richter 02/03/06 20:41:07
Modified: Embperl/Form Tag: Embperl2c Validate.pm
Added: Embperl/Form/Validate Tag: Embperl2c Default.pm Number.pm
Removed: Embperl/Form/Validate Tag: Embperl2c Messages.pm Rules.pm
Embperl/Form/Validate/Messages Tag: Embperl2c Default.pm
Test.pm
Embperl/Form/Validate/Rules Tag: Embperl2c Default.pm
Float.pm Integer.pm String.pm
Log:
reorg form validation
Revision Changes Path
No revision
No revision
1.1.2.8 +3 -6 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.7
retrieving revision 1.1.2.8
diff -u -r1.1.2.7 -r1.1.2.8
--- Validate.pm 6 Mar 2002 15:24:22 -0000 1.1.2.7
+++ Validate.pm 7 Mar 2002 04:41:06 -0000 1.1.2.8
@@ -10,7 +10,7 @@
# IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
# WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
-# $Id: Validate.pm,v 1.1.2.7 2002/03/06 15:24:22 richter Exp $
+# $Id: Validate.pm,v 1.1.2.8 2002/03/07 04:41:06 richter Exp $
#
###################################################################################
@@ -20,7 +20,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = q$Id: Validate.pm,v 1.1.2.7 2002/03/06 15:24:22 richter Exp $;
+$VERSION = q$Id: Validate.pm,v 1.1.2.8 2002/03/07 04:41:06 richter Exp $;
=head1 NAME
@@ -127,10 +127,7 @@
form_id => $form_id || 'forms[0]', # The name (probably better
# XPath) of the HTML form
frules => $frules, # \%frules
- #rules => new Embperl::Form::Validate::Rules($frules), # A new
rules object
- msgmod => $msginstance, # A new messages object
default_language => 'en',
- #@_
};
bless($self, $class);
$self->init;
@@ -277,7 +274,7 @@
my ($self, $type) = @_ ;
$type ||= 'Default';
- $type = 'Embperl::Form::Validate::Rules::'.$type
+ $type = 'Embperl::Form::Validate::'.$type
unless $type =~ m!(::|/)!;
my $obj = $self -> {typeobjs}{$type} ;
No revision
No revision
1.1.2.1 +401 -0 embperl/Embperl/Form/Validate/Attic/Default.pm
1.1.2.1 +88 -0 embperl/Embperl/Form/Validate/Attic/Number.pm
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
