Form Validate Error

[Justin M. Harrison]

Hi,

I am attempting to validate a submitted form via code called in an
imported object perl module.

This is the error I am receiving:

ERR: 24: Error in Perl code: Can't locate object method
"validate_Username was not entered" via package
"Embperl::Form::Validate::Default" (perhaps you forgot to load
"Embperl::Form::Validate::Default"?) at
/usr/lib/perl5/site_perl/i386-linux/Embperl/Form/Validate.pm line 317.


----------------------------------------------

The calling code:

        use Embperl::Form::Validate;
        use rules;
        $epf = new Embperl::Form::Validate(&loginform,"login");
        print "Epf: $epf\n";
        $epf->validate_messages;


----------------------------------------------

Rules.pm:

sub loginform {
return([
        [-key => 'username',
        -name => 'username'
        -msg => "Username was not entered",
        required=>1.
        -msg => "Username was too short",
        length_min=>1,
        -msg => "Username was too long",
        length_max=>15,
        ],
        [-key => 'password',
        -name => 'password',
        -msg => "Password was not entered",
        required=>1.
        -msg => "Password was too short",
        length_min=>1,
        -msg => "Password was too long",
        length_max=>15,
        ]
]);
}

1;

----------------------------------------------

It appears to be receiving the rules and form fields in $fdat fine. I am
not sure what is causing this error.

Does anybody have any clues?

Thanks

Justin


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]