1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
<html>
<head>
<title>Embperl Tests - Embperl::Form::Validate</title>
</head>
<body>
[-
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 "<font size="+2">Fehler:</font>\n";
foreach $msg (@$failures) {
print OUT "$msg<br>\n";
}
}
-]
<script>
[+ do { local $escmode = 0 ; $epf -> get_script_code } +]
</script>
<form name="foo" action="POST" onSubmit="return epform_validate_foo()">
stunden <input type=text name="stunden"><br>
datum <input type=text name="datum"><br>
kommentar <input type=text name="kommentar"><br>
<input type=submit><br>
</form>
</body>
</html>
|
