[interchange-cvs] interchange - heins modified code/UserTag/button.tag
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Sun Oct 27 00:55:01 2002
User: heins
Date: 2002-10-27 04:54:29 GMT
Modified: code/UserTag button.tag
Log:
* Prevent problems with ä and like translations -- the Scratch
variable for the click action was not working.
Closes Bugzilla #453.
Revision Changes Path
1.4 +3 -1 interchange/code/UserTag/button.tag
rev 1.4, prev_rev 1.3
Index: button.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/button.tag,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- button.tag 25 Oct 2002 21:50:10 -0000 1.3
+++ button.tag 27 Oct 2002 04:54:29 -0000 1.4
@@ -2,6 +2,7 @@
UserTag button addAttr
UserTag button attrAlias value text
UserTag button hasEndTag
+UserTag button Version $Id: button.tag,v 1.4 2002/10/27 04:54:29 mheins Exp $
UserTag button Documentation <<EOD
This tag creates an mv_click button either as a <INPUT TYPE=submit ...>
or a JavaScript-linked <A HREF=....><img src=...> combination.
@@ -91,7 +92,8 @@
if(! $name or $name eq 'mv_click') {
$action =~ s/^\s+//;
$action =~ s/\s+$//;
- $::Scratch->{$text} = $action;
+ my $set_text = HTML::Entities::decode($text);
+ $::Scratch->{$set_text} = $action;
$name = 'mv_click' if ! $name;
}