# holt er alle orte welche abgefragt werden sollen
get "organisation==$orga seminarort_land==$sem_land seminarort_region==$sem_region seminarort_ort==$sem_ort","seminarort";
while (get_next("seminarort"))
{
$orte{$Id}++;
}

foreach $val (sort keys %orte)
 {
   push @abfrage, "seminar_ort", "==", $val, "|";
 }
 pop @abfrage; # letztes oder abschneiden

get "\@abfrage organisation==$orga seminar_typ==$sem_typ seminar_datum>jetzt sort=seminar_datum","seminare";
out "<tr bgcolor=eeeeee><td colspan=4><font size=1>Keine Seminare gefunden</td></tr>"if ($_amount<1);
while(get_next("seminare"))
{
$datum1=datum($seminar_datum,"Wochentagkurz, Tag.Monatname.Jahr2");
$datum2=datum($seminar_datum,"Stunde:Minute");
out <<EOF;

<td align=left><font size=1>
<b>$datum1,</b><br> $datum2
</td>
<td><font size=1>
$seminar_typ
</td>
<td><font size=1>
EOF
get "Id==$seminar_ort organisation==$orga","seminarort";
out "$seminarort_name</td><td><font size=1>$seminarort_ort</font>";

</td>

EOF
}