3 Einträge, 1 Seite |
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
my $sql_query = <<"_EOF";
SELECT
TS1.struktur_id,
TS1.struktur_txt,
TS1.links,
TS1.rechts
FROM
t_struktur AS TS1,
t_struktur AS TS2
WHERE
TS1.links BETWEEN TS2.links AND TS2.rechts
GROUP BY
TS1.links
ORDER BY
TS1.links
_EOF
my $sth = $Datenbank->DoSQLPrepare(sql_query=>$sql_query);
$sth->execute();
my (%Label_Struktur, @Value_Struktur);
while ( my $Zeile = $sth->fetch() ) {
push (@Value_Struktur, $Zeile->[0]);
$Label_Struktur{$Zeile->[0]} = "Zeile->[1]";
}
my $struktur_menu = $cgi->popup_menu (
-name => 'id',
-values => \@Value_Struktur,
-labels => \%Label_Struktur,
)
);
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
<form>
<p>das hab ich</p>
<select name="select">
<option value="1">autos</option>
<option value="2">opel</option>
<option value="3">bmw</option>
<option value="12">3er</option>
<option value="13">5er</option>
<option value="4">audi</option>
<option value="5">flugzeuge</option>
<option value="6">airbus</option>
<option value="7">boeing</option>
<option value="8">schiffe</option>
<option value="9">container</option>
<option value="10">passagier</option>
<option value="11">ruderboot</option>
</select>
<p>das will ich</p>
<select name="Namen" size="3">
<optgroup label="autos">
<option value="1">opel</option>
<optgroup label="bmw">
<option value="12">3er</option>
<option value="13">5er</option>
</optgroup>
<option value="3">audi</option>
</optgroup>
<optgroup label="flugzeuge">
<option value="6">airbus</option>
<option value="7">boeing</option>
</optgroup>
<optgroup label="schiffe">
<option value="9">container</option>
<option value="10">passagier</option>
<option value="11">ruderboot</option>
</optgroup>
</select>
</form>
Die SQL-Tabelle
struktur_id | links | rechts | ebene | struktur_txt
1 | 1 | 12 | 1 | autos
2 | 2 | 3 | 2 | opel
3 | 4 | 9 | 2 | bmw
12 | 5 | 6 | 3 | 3er
13 | 7 | 8 | 3 | 5er
4 | 10 | 11 | 2 | audi
5 | 13 | 18 | 1 | flugzeuge
6 | 14 | 15 | 2 | airbus
7 | 16 | 17 | 2 | boeing
8 | 19 | 26 | 1 | schiffe
9 | 20 | 21 | 2 | container
10 | 22 | 23 | 2 | passagier
11 | 24 | 25 | 2 | ruderboot
3 Einträge, 1 Seite |