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

GRICHTER / Embperl-3.0.1 / test / html / lists.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
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110

              
<html>
<head>
<meta http-equiv="Content-Type"
content="text/html; charset=iso-8859-1">
<title>Lists</title>
</head>
<body bgcolor="#FFFFFF">
[- @k = (1, 2, 3, 4, 5, 6) -]
[- @v = ('A', 'B', 'C', 'D', 'E', 'F') -]
</p>
<hr>
<P>OL Tag</P>
<ol>
    <li>[+ $k[$row] +] = [+ $v[$row] +]</li>
</ol>
<hr>
<P>UL Tag</P>
<ul>
    <li>[+ $k[$row] +] = [+ $v[$row] +]</li>
</ul>
<hr>
<form method="POST">
  <P>Select Tag</P>
    If you request this document with list.htm?sel=n you can specify that the
    nth element of the dropdownlist is initialy selected
     
    <p><select name="D1" size="1">
        <option value="[+ $v[$row] +]" [+ $row + 1 == $fdat{sel}?'SELECTED':'' +]>[+ $k[$row] +]</option>
    </select></p>
</form>
<form method="POST">
  <P>Select Tag</P>
    If you request this document with list.htm?sel1=x you can specify that the
    element of the dropdownlist is initialy selected
     
    <p><select name="SEL1">
        <option value="[+ $v[$row] +]">[+ $k[$row] +]</option>
    </select></p>
</form>
<form method="POST">
  <P>Select Tag</P>
    If you request this document with list.htm?sel2=x you can specify that the
    element of the dropdownlist is initialy selected
     
    <p><select name="SEL2">
        <option selected value="[+ $v[$row] +]">[+ $k[$row] +]</option>
        <option value="[+ $v[$row] +]" selected>[+ $k[$row] +]</option>
        <option value="[+ $v[$row] +]" selected size=5>[+ $k[$row] +]</option>
    </select></p>
    <p><select name="SEL3">
        <option selected value="[+ $v[$row] +]">[+ $k[$row] +]</option>
        <option value="[+ $v[$row] +]" selected>[+ $k[$row] +]</option>
        <option value="[+ $v[$row] +]" selected size=5>[+ $k[$row] +]</option>
    </select></p>
    <p><select name="SEL4">
        <option selected value="aa">aaaa</option>
        <option value="bb" selected>bbbb</option>
        <option value="cc" selected size=5>cccc</option>
        <option value="dd">aaaa</option>
        <option value="ee">bbbb</option>
        <option value="cc" size=5>cccc</option>
    </select></p>
</form>
<hr>
<P>DL Tag</P>
<dl>
    <dt>[+ $k[$row] +]</dt>
    <dd>[+ $v[$row] +]</dd>
</dl>
<hr>
<P>MENU Tag</P>
<menu>
    <li>[+ $k[$row] +] = [+ $v[$row] +]</li>
</menu>
<hr>
<P>DIR Tag</P>
<dir>
    <li>[+ $k[$row] +] = [+ $v[$row] +]</li>
</dir>
    [- $articles = [ 'one', 'two' ] -]
    <ul class="articles_by_author">
      [- $dn = $articles->[$row]; -]
      <li><a href="kb.epl?-dn=[+ $dn +]">[+ uc($dn) +]</a></li>
    </ul>
</body>
</html>