Author: richter
Date: Tue May 13 18:30:07 2014
New Revision: 1594321
URL: http://svn.apache.org/r1594321
Log:
Fix JS for validate same
Modified:
perl/embperl/trunk/Embperl/Form/Validate/Default.pm
Modified: perl/embperl/trunk/Embperl/Form/Validate/Default.pm
URL:
http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Validate/Default.pm?rev=1594321&r1=1594320&r2=1594321&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Validate/Default.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Validate/Default.pm Tue May 13 18:30:07 2014
@@ -248,7 +248,7 @@ sub getscript_same
my ($key2, $name2) = split (/:/, $arg) ;
$name2 ||= $key2 ;
- return ("obj.value == document.$form\['$key2'\].value", ['validate_same',
"+'obj.value'+", $name2]) ;
+ return ("obj.value == formelem\['$key2'\].value", ['validate_same',
"+'obj.value'+", $name2]) ;
}
# --------------------------------------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscr...@perl.apache.org
For additional commands, e-mail: embperl-cvs-h...@perl.apache.org
