[interchange-cvs] interchange - jon modified code/SystemTag/image.tag

[interchange-cvs at icdevgroup.org]

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/;