[interchange-cvs] interchange - heins modified code/UserTag/button.tag
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Mon Nov 4 10:47:01 2002
User: heins
Date: 2002-11-04 15:46:52 GMT
Modified: code/UserTag button.tag
Log:
* Allow this to work with an unnamed form.
Revision Changes Path
1.6 +2 -2 interchange/code/UserTag/button.tag
rev 1.6, prev_rev 1.5
Index: button.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/button.tag,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- button.tag 30 Oct 2002 20:43:05 -0000 1.5
+++ button.tag 4 Nov 2002 15:46:52 -0000 1.6
@@ -2,7 +2,7 @@
UserTag button addAttr
UserTag button attrAlias value text
UserTag button hasEndTag
-UserTag button Version $Id: button.tag,v 1.5 2002/10/30 20:43:05 racke Exp $
+UserTag button Version $Id: button.tag,v 1.6 2002/11/04 15:46:52 mheins Exp $
UserTag button Documentation <<EOD
=pod
@@ -186,7 +186,7 @@
$out .= qq{<INPUT TYPE=hidden NAME="$clickname" VALUE="">} if $image;
my $formname;
- $opt->{form} = 'document.forms[0]'
+ $opt->{form} = 'forms[0]'
if ! $opt->{form};
$confirm .= ' && ' if $confirm;