Mailing List Archive

Author: richter
Date: Sat Feb 1 13:09:59 2014
New Revision: 1563414

URL: http://svn.apache.org/r1563414
Log:
Default mimimum password length

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

Modified: perl/embperl/trunk/Embperl/Form/Control/password.pm
URL: http://svn.apache.org/viewvc/perl/embperl/trunk/Embperl/Form/Control/password.pm?rev=1563414&r1=1563413&r2=1563414&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/password.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/password.pm Sat Feb 1 13:09:59 2014
@@ -69,8 +69,8 @@ sub get_validate_auto_rules
{
my ($self, $req) = @_ ;

- return if (!$self->{retype_name}) ;
- return [ "same", $self->{retype_name} ] ;
+ return [. ($self -> {required}?(required => 1):(emptyok => 1)), length_min => 4 ] if (!$self->{retype_name}) ;
+ return [. "same", $self->{retype_name}, ($self -> {required}?(required => 1):(emptyok => 1)), length_min => 4 ] ;
}





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