File: select.htm

package info (click to toggle)
libembperl-perl 2.5.0-17
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid
  • size: 7,632 kB
  • sloc: ansic: 21,387; perl: 14,497; javascript: 4,280; cpp: 467; xml: 49; makefile: 35; sh: 24
file content (17 lines) | stat: -rw-r--r-- 604 bytes parent folder | download | duplicates (11)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
[-  $values = [ [1, 2, 'a', 'aa'], [3, 4, 'b', 'bb'], [5, 6, 'c', 'cc'] ];  -]

 <select id="udf_list" class="udf_list" onchange="SelectUDF()">
 [$ foreach my $item (@$values) $]
     <option value="[+ $item->[0] +]"
             label="[+ $item->[2] +]"
             title="[+ $item->[3] +]">[+ $item->[1] +]
     </option>
 [$ endforeach $]
 </select>

 <select id="udf_list" class="udf_list" onchange="SelectUDF()">
     <option value="[+ $values->[$row][0] +]"
           label="[+ $values->[$row][2] +]"
           title="[+ $values->[$row][3] +]">[+ $values->[$row][1] +]
     </option>
 </select>