<perl>
if ($cmd eq "")
{
get "Id==* sort=Thema","/icd/osan/kurse","haf";
$"=' ';
while (get_next("haf"))
{
push @hafen, $Thema if index(" @hafen ", " $Thema ")<0;

get "Id==* sort=Termin","/icd/osan/kurse","fuss";
$"=' ';
while (get_next("fuss"))
{
$fus=$Kurs-Termin;
push @fuss, $Termin if index(" @fuss ", " $Termin ")<0;

out <<EOF;
<form action="baseportal.pl?htx=$htx&cmd=search&range=0,10" method="post"
enctype="multipart/form-data" value="search">
<input type=hidden name="htx=" value="$htx">
<input type=hidden name="htx=" value="$htx">

<option value="">alle Kursinhalte</option>

foreach $var(@hafen)
{
out "<option value=$var>$var</option>";
}
out "</select>   
<select name='Termin=='>
<option value=''>alle Termine</option>";
foreach $variable(@fuss)
{
out "<option value=$variable>$variable</option>";
}
out "</select>  <input type=submit value=suchen></form><p>";
}
</perl>
    <td width="100%">
<font face="Verdana" color="#ffffff" size="2">
<loop db=kurse>
<b>Kursinhalt: $Thema</b><br>
<b>Dauer:</b> $_loop{"Kurs-Anfang"} <b>bis</b> $_loop{"Kurs-Ende"} <b>immer:</b> $Termin <br><br>Kosten:<br>$Preis <br>
Inhalt: $Inhalt <br><br>
</loop>