You are viewing a plain text version of this content. The canonical link for it is here.
Posted to embperl-cvs@perl.apache.org by ri...@apache.org on 2002/09/23 15:31:05 UTC
cvs commit: embperl/Embperl/Form/Validate Default.pm
richter 2002/09/23 06:31:05
Modified: . Tag: Embperl2c Changes.pod
Embperl/Form Tag: Embperl2c Validate.pm
Embperl/Form/Validate Tag: Embperl2c Default.pm
Log:
add same validation
Revision Changes Path
No revision
No revision
1.129.4.92 +1 -0 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.129.4.91
retrieving revision 1.129.4.92
diff -u -r1.129.4.91 -r1.129.4.92
--- Changes.pod 18 Sep 2002 09:33:26 -0000 1.129.4.91
+++ Changes.pod 23 Sep 2002 13:31:04 -0000 1.129.4.92
@@ -21,6 +21,7 @@
- Fix SIGSEGV when printing to Embperl::LOG before Embperl log file is setup.
- Fix problem when session id is given to Embperl, but session management
was not setup
+ - Added 'same' validation to check if two fileds have the same input enterd
=head1 2.0b8 (BETA) 25. Juni 2002
No revision
No revision
1.1.2.16 +19 -3 embperl/Embperl/Form/Attic/Validate.pm
Index: Validate.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Form/Attic/Validate.pm,v
retrieving revision 1.1.2.15
retrieving revision 1.1.2.16
diff -u -r1.1.2.15 -r1.1.2.16
--- Validate.pm 11 Sep 2002 09:17:19 -0000 1.1.2.15
+++ Validate.pm 23 Sep 2002 13:31:05 -0000 1.1.2.16
@@ -534,7 +534,7 @@
{
if ($typeobj -> can ($method))
{
- ($code, $msgparam) = $typeobj -> $method ($arg, $pref) ;
+ ($code, $msgparam) = $typeobj -> $method ($arg, $pref, $form) ;
$scriptcode -> {$k} = [$code, $msgparam] ;
}
else
@@ -774,6 +774,22 @@
=item length_eq
=item eq
+
+=item same
+
+Value must be the same as in field given as argument. This is usefull
+if you want for example verify that two passwords are the same. The
+Text displayed to the user for the second field maybe added to the argument
+separeted by a colon. Example:
+
+ $epf = Embperl::Form::Validate -> new (
+ [
+ -key => 'pass', -name => 'Password', required => 1, length_min => 4,
+ -key => 'pass2', -name => 'Repeat Password', required => 1, length_min => 4,
+ same => 'pass:Password',
+ ],
+ 'passform') ;
+
=item ne
No revision
No revision
1.1.2.10 +28 -2 embperl/Embperl/Form/Validate/Attic/Default.pm
Index: Default.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Form/Validate/Attic/Default.pm,v
retrieving revision 1.1.2.9
retrieving revision 1.1.2.10
diff -u -r1.1.2.9 -r1.1.2.10
--- Default.pm 21 Aug 2002 05:48:54 -0000 1.1.2.9
+++ Default.pm 23 Sep 2002 13:31:05 -0000 1.1.2.10
@@ -31,6 +31,7 @@
{
validate_required => 'Bitte Feld "%0" ausf�llen',
validate_eq => 'Falscher Inhalt "%1" des Feldes "%0": Erwartet wird "%2"',
+ validate_same => '"%0" stimmt nicht mit "%2" �berein',
validate_lt => '%0 mu� kleiner als %2 sein',
validate_gt => '%0 mu� gr��er als %2 sein',
validate_le => '%0 mu� kleiner oder gleich wie %2 sein',
@@ -53,6 +54,7 @@
{
validate_required => 'Please enter a value in %0',
validate_eq => 'Wrong content "%1" of field %0: Expected "%2"',
+ validate_same => '"%0" does not match "%2"',
validate_lt => '%0 must be less then %2',
validate_gt => '%0 must be greater then %2',
validate_le => '%0 must be less or equal then %2',
@@ -162,6 +164,30 @@
my ($self, $arg, $pref) = @_ ;
return ("obj.value == '$arg'", ['validate_eq', "+'obj.value'+", $arg]) ;
+ }
+
+# --------------------------------------------------------------
+
+sub validate_same
+ {
+ my ($self, $key, $value, $arg, $fdat, $pref) = @_ ;
+
+ my ($key2, $name2) = split (/:/, $arg) ;
+ $name2 ||= $key2 ;
+
+ return $value eq $fdat -> {$key2} ? undef : ['validate_same', $value, $name2] ;
+ }
+
+# --------------------------------------------------------------
+
+sub getscript_same
+ {
+ my ($self, $arg, $pref, $form) = @_ ;
+
+ my ($key2, $name2) = split (/:/, $arg) ;
+ $name2 ||= $key2 ;
+
+ return ("obj.value == document.$form\['$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