Mailing List Archive

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-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org