$cnt_ges = 0 ;
foreach(@l_ort)
{ my $akt_ort = $_;
  $anz_gruppe=<<EOF;
  <table width=100% align=center cellspacing=0 cellpadding=0>
   ${ \&_tz(1,5) }
   <tr><td class=dunkel><span class=mittelg><b> Veranstaltungen in $akt_ort:</b></span></td></tr>
   ${ \&_tz(1,5) }
EOF
     # Filterwerte f. Datum für Vergleich formatieren, Workaround f. bp-Datumsvergleich einbauen ($fzeit_e1 auf letzte Minute vom Vergleichstag setzen)
     my $fzeit_a =substr(datum($fzeit_a, intern),0,10); my $fzeit_e1= datum("$fzeit_e,23:59", intern); my $fzeit_e = substr(datum($fzeit_e, intern),0,10);
      get "verans_ort==$_ resu_id==!$r verans_ort~=$fort verans_art~=$fkat k_veranstalter~=$fvst verans_datum<=$fzeit_e1 sort=verans_datum ", "$db1";
   $cnt_ds = 0;
    while(get_next("$db1"))
   {  my $datum1 = datum($verans_datum,intern); my $datum2 = datum($verans_datum2,intern);
   if ($datum2 le $datum1){
   $vstat = 0
   }elsif ($datum2 ge $datum1){
   $vstat = 1;
   }else{
   $vstat = "ungültig!"; # else-Zweig nur für Debugging, kann entfallen
   }
   if ( ($vstat == 0 && $datum1 ge $fzeit_a) || ($vstat == 1 && $datum2 ge $fzeit_a) )
     {
     $cnt_ds++;     # Datensatz-Zähler f. gef. Datensätze der Gruppe
      my $anz_datum = datum($verans_datum, "Wochentag, Tag.Monat.Jahr"); # Ausgabe f. Datum formatieren
      my $anz_datum2 = datum($verans_datum2, "Wochentag, Tag.Monat.Jahr");
      my $a_verans_datum2 = " <br> bis<br> $anz_datum2" if  datum($verans_datum2, "intern") ge datum($verans_datum, "intern");
      my $anz_zeit = datum($verans_datum, "Stunde:Minute")." Uhr";  # Ausgabe f. Zeit formatieren
      $verans_bild=~s/\s//; my $bild_breite = 120;
      my $anz_verans_bild ="<img src=/files/$verans_bild width=$bild_breite>" if $verans_bild ne "";

      $anz_ortstab.=<<EOF;
           <table>

           </table> 
EOF
      } #ende if datum
   }  #ende while get next
   if ($cnt_ds > 0)
      {# Gruppen-Überschrift mit Anker auf Ort und Link zum Seitenanfang am Ende der Gruppe - Zusammenstellg. aller Gruppenanzeigen zur Gesamtanzeige
      $anz_atab.= "<a name=$akt_ort> </a>$anz_gruppe<br>$anz_ortstab<table width=95% border=0 cellspacing=2 cellpadding=2><tr><td class=klein align=left><a href=#oben>Seitenanfang</a></td></tr></table>";
      # interne Links f. Seiten"kopf", damit Sprung zur Gruppe erfolgen kann
      $linkreihe.= " [ <a href=#$akt_ort>$akt_ort</a> ] ";
      }
      # Gruppenanzeige leeren, damit neue Gruppe im nächsten Schleifendurchlauf ausgegeben werden kann
   $anz_ortstab = "";    $cnt_ges = $cnt_ges + $cnt_ds; #Datensatzzähler f. ges. gef. Datens.
}    #ende foreach ort
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#