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