Author: richter
Date: Fri Sep 19 04:38:41 2014
New Revision: 1626121
URL: http://svn.apache.org/r1626121
Log:
Fix auto validation for password
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=1626121&r1=1626120&r2=1626121&view=diff
==============================================================================
--- perl/embperl/trunk/Embperl/Form/Control/password.pm (original)
+++ perl/embperl/trunk/Embperl/Form/Control/password.pm Fri Sep 19 04:38:41 2014
@@ -70,7 +70,11 @@ sub get_validate_auto_rules
my ($self, $req) = @_ ;
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 ] ;
+
+ $req ||= $Embperl::req ;
+ my $text = $self -> form -> convert_label ($self, $self->{retype_name},
undef, $req) ;
+ return [ "same", $self->{retype_name} . ':' . $text, ($self ->
{required}?(required => 1):(emptyok => 1)), length_min => 4 ] ;
+ #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
