[-
use Embperl::Form::Validate;
$epf = Embperl::Form::Validate -> new ([
[
-key => 'datum',
-msg => 'Bitte Datum eintragen',
required => 1,
-msg => 'Datum überprüfen',
matches_regex => '\d+\.\d+\.\d+',
],
[
-key => 'stunden',
-msg => 'Bitte Stunden eintragen',
required => 1,
-msg => 'Stundenzahl nicht numerisch', # fail-msg for next test
-type => 'Number', # only Number and Default available
-msg => 'Stundenzahl muß >0 sein', # fail-msg for next test
gt => 0,
],
[
-key => 'kommentar',
-msg => 'Bitte (sinnvollen) Kommentar eingeben',
required => 1,
],
], 'foo');
$failures = $epf -> validate_messages ;
if (@$failures)
{
print OUT "Fehler:\n";
foreach $msg (@$failures) {
print OUT "$msg
\n";
}
}
-]