[interchange-cvs] interchange - jon modified code/SystemTag/image.tag
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Sun Jun 22 02:53:11 UTC 2008
User: jon
Date: 2008-06-22 02:53:11 GMT
Modified: code/SystemTag image.tag
Log:
Add name and id to list of [image] pass-through attributes.
Revision Changes Path
1.24 interchange/code/SystemTag/image.tag
rev 1.24, prev_rev 1.23
Index: image.tag
===================================================================
RCS file: /var/cvs/interchange/code/SystemTag/image.tag,v
retrieving revision 1.23
retrieving revision 1.24
diff -u -u -r1.23 -r1.24
--- image.tag 25 Mar 2008 17:13:20 -0000 1.23
+++ image.tag 22 Jun 2008 02:53:11 -0000 1.24
@@ -5,13 +5,13 @@
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version. See the LICENSE file for details.
#
-# $Id: image.tag,v 1.23 2008-03-25 17:13:20 jon Exp $
+# $Id: image.tag,v 1.24 2008-06-22 02:53:11 jon Exp $
UserTag image Order src
UserTag image AttrAlias geometry makesize
UserTag image AttrAlias resize makesize
UserTag image AddAttr
-UserTag image Version $Revision: 1.23 $
+UserTag image Version $Revision: 1.24 $
UserTag image Routine <<EOR
sub {
my ($src, $opt) = @_;
@@ -259,7 +259,7 @@
$opt->{title} = $opt->{alt} if ! defined $opt->{title} and $opt->{alt};
my $opts = '';
- for (qw: width height alt title border hspace vspace align valign style class :) {
+ for (qw: width height alt title border hspace vspace align valign style class name id :) {
if (defined $opt->{$_}) {
my $val = $opt->{$_};
$val = HTML::Entities::encode($val) if $val =~ /\W/;
More information about the interchange-cvs
mailing list