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