[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;
 	}