Mailing List Archive

Author: richter
Date: Wed Nov 19 05:34:26 2014
New Revision: 1640490

URL: http://svn.apache.org/r1640490
Log:
Create empty validate function, in case there is no validate in the form

Modified:
perl/embperl/trunk/Embperl/Form.pm

Modified: perl/embperl/trunk/Embperl/Form.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form.pm?rev=1640490&r1=1640489&r2=1640490&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form.pm (original)
+++ perl/embperl/trunk/Embperl/Form.pm Wed Nov 19 05:34:26 2014
@@ -582,6 +582,7 @@ sub init_validate
}
else
{
+ $self -> add_code_at_bottom (" function epform_validate_$self->{formname} () { return false } ") ;
$self -> {validate} = 0 ;
}
}



---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-cvs-help@perl.apache.org