richter 2004/02/02 11:06:15
Modified: . Changes.pod
Embperl/Form Validate.pm
Log:
fix Validate JS code
Revision Changes Path
1.224 +5 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.223
retrieving revision 1.224
diff -u -r1.223 -r1.224
--- Changes.pod 23 Jan 2004 07:37:12 -0000 1.223
+++ Changes.pod 2 Feb 2004 19:06:15 -0000 1.224
@@ -1,5 +1,10 @@
=pod
+=head1 2.0b11
+
+ - Fix problem with JavaScript code in Form::Validate, when fields names
+ are non JavaScript Identifier.
+
=head1 2.0b10 23. Jan 2004
- Added -break parameter for haveing precondition to
1.10 +3 -3 embperl/Embperl/Form/Validate.pm
Index: Validate.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Form/Validate.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- Validate.pm 23 Jan 2004 06:50:57 -0000 1.9
+++ Validate.pm 2 Feb 2004 19:06:15 -0000 1.10
@@ -580,7 +580,7 @@
{
foreach my $k (@$keys)
{
- $script .= "obj = document.$form.$k ; if (!($code)) {" ;
+ $script .= "obj = document.$form\['$k'\] ; if (!($code)) {"
;
}
$script .= " $setmsg " .
($param{fail}?'fail=1;break;':($param{cont}?'':'break;')) . "\n" ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
