[interchange-cvs] interchange - jon modified
code/SystemTag/image.tag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Wed Aug 3 14:58:48 EDT 2005
User: jon
Date: 2005-08-03 18:58:48 GMT
Modified: code/SystemTag image.tag
Log:
Support pass-through of a few more HTML <img> attributes.
Revision Changes Path
1.14 +3 -3 interchange/code/SystemTag/image.tag
rev 1.14, prev_rev 1.13
Index: image.tag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/image.tag,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -u -r1.13 -r1.14
--- image.tag 9 Feb 2005 13:39:42 -0000 1.13
+++ image.tag 3 Aug 2005 18:58:48 -0000 1.14
@@ -1,12 +1,12 @@
# Copyright 2002, 2004 Interchange Development Group (http://www.icdevgroup.org/)
# Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: image.tag,v 1.13 2005/02/09 13:39:42 docelic Exp $
+# $Id: image.tag,v 1.14 2005/08/03 18:58:48 jon Exp $
UserTag image Order src
UserTag image AttrAlias geometry makesize
UserTag image AttrAlias resize makesize
UserTag image AddAttr
-UserTag image Version $Revision: 1.13 $
+UserTag image Version $Revision: 1.14 $
UserTag image Routine <<EOR
sub {
my ($src, $opt) = @_;
@@ -247,7 +247,7 @@
$opt->{title} = $opt->{alt} if ! defined $opt->{title} and $opt->{alt};
my $opts = '';
- for (qw: width height alt title border hspace vspace align :) {
+ for (qw: width height alt title border hspace vspace align valign style class :) {
if (defined $opt->{$_}) {
my $val = $opt->{$_};
$val = HTML::Entities::encode($val) if $val =~ /\W/;
More information about the interchange-cvs
mailing list