The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

GRICHTER / Embperl-3.0.1 / test / html / hidden.htm 

            

              
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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95

              
<html>
<head>
<title>Test for hidden meta command</title>
</head>
[-
$regs{feld1} = 'Pfalz' ;
$regs{feld2} = 'Rhein"hessen"&Pfalz' ;
$kats{feld1} = 'Kultur' ;
$sort[0] = 'feld4' ;
$sort[1] = 'feld3' ;
$sort[2] = 'feld2' ;
$sort[3] = 'feld1' ;
-]
<form action="inhalt.htm" method="POST">
    <p>&nbsp;</p>
        a1[$hidden$]
        a2[$hidden regs $]
        a3[$hidden regs, kats $]
        a4[$hidden regs, kats, sort $]
        a5[$hidden %regs $]
        a6[$hidden %regs, %kats $]
        a7[$hidden %regs, %kats, @sort $]
        a8[$hidden %fdat, %idat, @sort $]
     
        <input type="text" name="feld1">
        b1[$hidden$]
        b2[$hidden regs $]
        b3[$hidden regs, kats $]
        b4[$hidden regs, kats, sort $]
        b5[$hidden %regs $]
        b6[$hidden %regs, %kats $]
         
    <select name="feld2"><option value="Wert1">rlp</option></select>
        s1[$hidden$]
    <select name="feld2"><option value="Wert1"><option value="Wert2">rlp</option></select>
     
        c1[$hidden$]
        c2[$hidden regs $]
        c3[$hidden regs, kats $]
        c4[$hidden regs, kats, sort $]
        c5[$hidden %regs $]
        c6[$hidden %regs, %kats $]
        <input type="text" name="feld3">
    <input type="text" name="feld4">
     
        d1[$hidden$]
        d2[$hidden regs $]
        d3[$hidden regs, kats $]
        d4[$hidden regs, kats, sort $]
        d5[$hidden %regs $]
        d6[$hidden %regs, %kats $]
        d7[$hidden %regs, %kats, @sort $]
        [- $fdat{empty1} = undef ; push @ffld, 'empty1' ; -]
        [- $fdat{empty2} = '' ;    push @ffld, 'empty2' ; -]
        e1[$hidden $]
        e2[$hidden %fdat, %idat, @ffld $]
        optNoHiddenEmptyValue is now [+ $optNoHiddenEmptyValue +]
        [- $optNoHiddenEmptyValue = 1 -]
        optNoHiddenEmptyValue is now [+ $optNoHiddenEmptyValue +]
        e1[$hidden $]
        e2[$hidden %fdat, %idat, @ffld $]
        [- $optNoHiddenEmptyValue = 0 -]
        optNoHiddenEmptyValue is now [+ $optNoHiddenEmptyValue +]
        e1[$hidden $]
        e2[$hidden %fdat, %idat, @ffld $]
</form>
[$foreach $i (1..4)$]
<form>
        l1[$hidden $]
</form>
[$endforeach$]
</body>
</html>