blob: e56ad0c02f17c1285d797e75c4484fc5049cd06b (
plain)
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
|
print "<?xml version='1.0' encoding='ISO-8859-1'?>\n";
print <<EOF;
<div class="op_sys select">
<div class="select-header">
<div class="chosen">(chose one)</div>
</div>
<div class="choices">
<div class="select-top">
<div class="select-left">
<div class="select-bottom">
<div class="select-right">
<div class="top-left"></div>
<div class="top-right"></div>
<div class="bottom-left"></div>
<div class="bottom-right"></div>
<div class="center">
<ul>
EOF
while(<STDIN>) {
$op_sys = $_;
$op_sys =~ s/\R//g;
my($display_value, $data) = split(/::/, $op_sys, 2);
print " <li class='choice' data='$data' idvalue='0'>$display_value</li>\n";
}
print <<EOF;
</ul>
</div>
</div>
</div>
</div>
</div>
</div>
</div>
EOF
|
