<perl>
if ($cmd eq "")
{
get "Id==* sort=Hafen","/holidaysailing/Yachten","haf";
$"=' ';
while (get_next("haf"))
{
push @hafen, $Hafen if index(" @hafen ", " $Hafen ")<0;
}
get "Id==* sort=Fuß","/holidaysailing/Yachten","fuss";
$"=' ';
while (get_next("fuss"))
{
$Fus=$_loop{"Fuß"};
push @fuss, $Fus if index(" @fuss ", " $Fus ")<0;
}

<form action="baseportal.pl?htx=$htx&cmd=search&range=0,10" method="post"
enctype="multipart/form-data"><input type=hidden name="cmd="
value="search"><input type=hidden name="htx=" value="$htx"><input
type=hidden name="htx=" value="$htx">
<select name="Hafen==">
<option value="">Alle Häfen</option>
EOF
foreach $var(@hafen)
{
out "<option value=$var>$var</option>";
}
out "</select>&nbsp;&nbsp;&nbsp;<select name='Fuß=='><option value=''>Alle
Fuß</option>";
foreach $variable(@fuss)
{
out "<option value=$variable>$variable</option>";
}
out "</select>&nbsp;&nbsp;<input type=submit value=suchen></form><p>";
}
</perl>