$lz_option = runtime();
get "sort=ort,konfes konfes~=$fkon&landkreis~=$flk", "viskart";
while(get_next(viskart))
{
$anz_optOrt="<option value=$ort>$ort</option>";
push @optOrt, $anz_optOrt if index("@optOrt", "$anz_optOrt")<0; # jeden mehrf. vorh. Ort nur einmal
}
$lz_option = runtime() - $lz_option;
----------------------------------------------------$lz_sort=runtime();
while(get_next("viskart"))
{
$h_bezeich{$ort}.="$bezeichnun|";
$h_name{$ort}.="$name|";
}
foreach $k (sort (keys %h_bezeich))
{
###### Ausgabe des HTML-Inhalts für jeden Ort in Variable ######
###### (Verkettung - bei jedem Schleifen-Durchlauf Inhalt erweitern) #####
@ar_bezeich=split /\|/,$h_bezeich{$k};
@ar_name=split /\|/,$h_name{$k};
$l_ort=$k;
foreach $n (@ar_bezeich)
{
$cnt_ort++;
$l=shift @ar_name;
$inf = $lcnt % 2;
if ($inf eq 0)
{
$anz_linhalt.=<<EOF;
<tr><td valign=top class=norm>
Bezeichnung: $n
<br>Name: $l
</td></tr>
${ \&tz(1,1,"$fd") }
EOF
}
$lcnt++;
$inf2 = $rcnt % 2;
if ($inf2 eq 1)
{
$anz_rinhalt.=<<EOF;
<tr><td valign=top class=norm>
Bezeichnung: $n
<br>Name: $l
</td></tr>
${ \&tz(1,1,"$fd") }
EOF
}
$rcnt++;
}
$cnt_ges=$cnt_ges+$cnt_ort;
<table border=0 width=90% cellspacing=0 cellpadding=0>
${ \&tz(2,2,$fd) }
<tr><td colspan=2 align=center class=gross>
<span class=dunkel><b>$l_ort</b></span>
</td></tr>
${ \&tz(2,5) }
<tr><td colspan=2 align=center class=klein id=dunkel>
Insgesamt $cnt_ort Andressen in $k gefunden
</td></tr>
${ \&tz(2,5) }
${ \&tz(2,1,$fd) }
${ \&tz(2,5) }
<tr>
<td align=center valign=top width=50% class=norm>
<table border=0 width=90% cellspacing=0 cellpadding=0>
$anz_linhalt
</table>
</td>
<td align=center valign=top width=50%>
<table border=0 width=90% cellspacing=0 cellpadding=0>
$anz_rinhalt
</table>
</td>
</tr>
${ \&tz(2,5) }
</table>
EOF
##### Variablen nach Schleifendurchlauf leeren für nächsten Durchlauf #####
#
$anz_linhalt="";
$anz_rinhalt="";
$cnt_ort=0;
$lcnt=0;
$rcnt=0;
}
$lz_sort = runtime()-$lz_sort;
----------------------------------------------------