richter 02/03/05 07:59:31
Modified: Embperl/Form/Validate/Rules Tag: Embperl2c Default.pm
Log:
form validation
Revision Changes Path
No revision
No revision
1.1.2.2 +27 -5 embperl/Embperl/Form/Validate/Rules/Attic/Default.pm
Index: Default.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Form/Validate/Rules/Attic/Default.pm,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -u -r1.1.2.1 -r1.1.2.2
--- Default.pm 27 Feb 2002 15:42:50 -0000 1.1.2.1
+++ Default.pm 5 Mar 2002 15:59:31 -0000 1.1.2.2
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Default.pm,v 1.1.2.1 2002/02/27 15:42:50 richter Exp $
+# $Id: Default.pm,v 1.1.2.2 2002/03/05 15:59:31 richter Exp $
#
###################################################################################
@@ -20,7 +20,7 @@
use strict;
use vars qw($VERSION %error_messages %script_functions %prefixes);
-$VERSION = q$Id: Default.pm,v 1.1.2.1 2002/02/27 15:42:50 richter Exp $;
+$VERSION = q$Id: Default.pm,v 1.1.2.2 2002/03/05 15:59:31 richter Exp $;
%error_messages = ();
%script_functions = ();
@@ -45,10 +45,32 @@
sub validate # $self, $string, \%pref, \%fdat
{
my $self = shift;
- return (); # Returns no errors (means success), successor
- # modules should return a list of encountered errors,
- # in case of there being errors
+ return undef ;
}
+
+
+
+
+sub eq
+{
+ my ($self, $validate, $name, $value, $frules, $i, $fdat, $pref) = @_ ;
+
+ my $should = $frules -> [$$i++] ;
+ return undef if ($value eq $should) ;
+
+ return [ 'string_eq',
+ $key,
+ $name,
+ $self->{eq},
+ $string,
+ $string,
+ $self->get_error_message_templates('string_eq')
+ ]
+ );
+ }
+
+
+
sub rules_prefix # $self
{
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
