<perl>
        #------------------------------------------------#
        #--SR            Ausgabe Liste                   #
        #------------------------------------------------#
        sub do_liste
           {
            $suvdatumvon = "";
            $suvdatumvon .= "$suvdatumvon_tt";
            $suvdatumvon .= ".";
            $suvdatumvon .= "$suvdatumvon_mo";
            $suvdatumvon .= ".";
            $suvdatumvon .= "$suvdatumvon_jjjj";
            $suvdatumvon .= ",";
            $suvdatumvon .= "$suvdatumvon_hh";
            $suvdatumvon .= ":";
            $suvdatumvon .= "$suvdatumvon_mi";

            $suvdatumvon = "" if (!$cmd); # leer, bei Programmstart

            local $aussuch = "";
            $aussuch .= "Datum von: " . $suvdatumvon if ($suvdatumvon);
            $aussuch .= ", " if (($aussuch) && ($suvdatumbis));
            $aussuch .= "Datum bis: " . $suvdatumbis if ($suvdatumbis);
            $aussuch .= ", " if (($aussuch) && ($suvgruppe));
            $aussuch .= "Veranstaltungs-Gruppe: " . $suvgruppe if ($suvgruppe);
            $aussuch .= ", " if (($aussuch) && ($suvtyp));
            $aussuch .= "Veranstaltungs-Typ: " . $suvtyp if ($suvtyp);
            $aussuch .= ", " if (($aussuch) && ($suvbez));
            $aussuch .= "Veranstaltungs-Name: " . $suvbez if ($suvbez);
            $aussuch .= ", " if (($aussuch) && ($suvvort));
            $aussuch .= "Veranstaltungs-Ort: " . $suvvort if ($suvvort);
            $aussuch .= ", " if (($aussuch) && ($suvvera));
            $aussuch .= "Veranstalter: " . $suvvera if ($suvvera);
            $aussuch .= ", " if (($aussuch) && ($suvortgesamt));
            $aussuch .= "Stadt: " . $suvortgesamt if ($suvortgesamt);

            $append .= "&suvbez=" . convert_url($suvbez) if ($suvbez);
            $append .= "&suvbez2=" . convert_url($suvbez2) if ($suvbez2);
            $append .= "&suvvort=" . convert_url($suvvort) if ($suvvort);
            $append .= "&suvgruppe=" . convert_url($suvgruppe) if ($suvgruppe);
            $append .= "&suvtyp=" . convert_url($suvtyp) if ($suvtyp);
            $append .= "&suvvera=" . convert_url($suvvera) if ($suvvera);
            $append .= "&suvortgesamt=" . convert_url($suvortgesamt) if ($suvortgesamt);
            $append .= "&suvdatumvon=" . convert_url($suvdatumvon) if ($suvdatumvon);
            $append .= "&suvdatumvon_tt=" . convert_url($suvdatumvon_tt) if ($suvdatumvon_tt);
            $append .= "&suvdatumvon_mo=" . convert_url($suvdatumvon_mo) if ($suvdatumvon_mo);
            $append .= "&suvdatumvon_jjjj=" . convert_url($suvdatumvon_jjjj) if ($suvdatumvon_jjjj);
            $append .= "&suvdatumvon_hh=" . convert_url($suvdatumvon_hh) if ($suvdatumvon_hh);
            $append .= "&suvdatumvon_mi=" . convert_url($suvdatumvon_mi) if ($suvdatumvon_mi);
            $append .= "&suvdatumbis=" . convert_url($suvdatumbis) if ($suvdatumbis);

            out "<table width=100% align='center'>\n";
            out "<tr><td valign='top' align='center'>\n";
            out "<h1>Testdaten Suchergebnis</h1>\n";
            out "<table class='tab1' width=90%>\n";
                    
            if ($msg eq "DEL")
               {
                out "<tr><td colspan=5 class=alarm align=center><br><img src='http://www.bestguide.de/gfc/achtung.gif' border=0 alt='!'> Eintrag wurde gel&ouml;scht ! <img src='http://www.bestguide.de/gfc/achtung.gif' border=0 alt='!'></td></tr>\n";
               }
            out "<tr><td colspan=5>\n";
            out "<br>&nbsp;&nbsp;Suche nach:&nbsp;$aussuch";
            out "</td></tr>\n";

            $_range = 0 if (!$_range_length);
            $_range_length = 15 if (!$_range_length);
            $rng = $_range . "," . $_range_length;
            get "vdatumvon>=$suvdatumvon & vbez~=$suvbez & vtyp~=$suvtyp & vgruppe~=$suvgruppe &  vvera~=$suvvera & vvort~=$suvvort & vortgesamt~=$suvortgesamt range=$rng  sort=vdatumvon,vtyp,vortgesamt,vvort", "../bg/bgvera";
      
            my $newrange = $_range + $_range_length;
            my $oldrange = $_range - $_range_length;

            $oldrange = 0 if (($oldrange < 0) && ($oldrange >= $_range_length));
            out "<tr>\n";
            out "<td colspan=5>\n";
            if ($oldrange >= 0)
               {
               out "&nbsp;&nbsp;&nbsp;&nbsp;";
               out "<a href='$_link&range=$oldrange,$_range_length$append'>\n";
               out "<img src='http://www.bestguide.de/gfc/pflinks.gif' border=0 alt='zur&uuml;ck'>\n";
               out "</a>\n";
               }
            if ($newrange < $_amount_query)
               {
               out "&nbsp;&nbsp;&nbsp;&nbsp;\n";
               out "<a href='$_link&range=$newrange,$_range_length$append'>\n";
               out "<img src='http://www.bestguide.de/gfc/pfrechts.gif' border=0 alt='weiter'>\n";
               out "</a>\n";
               }
            if ($_amount != 0)
               {
               $bis = $_range + $_range_length;
               $von = $_range + 1;
               out "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Eintr&auml;ge $von bis \n";
               if ($bis < $_amount_query)
                  {
                  out "$bis von $_amount_query\n";
                  }
               else
                  {
                   out "$_amount_query von $_amount_query";
                  }
               }
               out "</td>\n";
               out "</tr>\n";
               out "<tr>\n";
               out "<td>\n";
               out "&nbsp;\n";
               out "</td>\n";
               out "</tr>";
               out "<tr>\n";
               out "<th class='th1'>\n";
               out "&nbsp;Datum\n";
               out "</th>\n";
               out "<th class='th1'>\n";
               out "&nbsp;Bezeichnung\n";
               out "</th>\n";
               out "<th class='th1'>\n";
               out "&nbsp;Veranst.ort\n";
               out "</th>\n";
               out "<th class='th1'>\n";
               out "&nbsp;Ort\n";
               out "</th>\n";
               out "<th class='th1'>\n";
               out "&nbsp;L\n";
               out "</th>\n";
               out "<th class='th1'>\n";
               out "&nbsp;x\n";
               out "</th>\n";
               out "</tr>\n";
            while (get_next("../bg/bgvera"))
                   {
                    out "<tr bgcolor=" . ($_loop %2 ? "#A0A0A0" : "#E0E0E0") . ">\n";
                    out "<td class='b8'>\n";
                    out "&nbsp;";
                    out datum($vdatumvon, "lang");
                    out "</td>\n";
                    out "<td class='b8'>\n";
                    out "&nbsp;$vbez\n";
                    out "</td>\n";
                    out "<td class='b8'>\n";
                    out "&nbsp;$vvort\n";
                    out "</td>\n";
                    out "<td class='b8'>\n";
                    out "&nbsp;$vortgesamt\n";
                    out "</td>\n";
                    out "<td>\n";
out <<EOF;
                    <a class=link2 href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/bg/bgverap&cmd=do_del&Id=$_id"  onClick="return confirm('Sind Sie sicher, dass Sie den Eintrag löschen wollen?')">
EOF
                    out "&nbsp;L\n";
                    out "</a>\n";
                    out "</td>\n";
                    out "<td>\n";
                    out "<a class=link2 href=http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/bg/bgverap&cmd=fm_mod&Id=$_id>\n";
                    out "&nbsp;?\n";
                    out "</a>\n";
                    out "</td>\n"; 
                    out "</tr>\n";
                   }

            my $newrange = $_range + $_range_length;
            my $oldrange = $_range - $_range_length;
            $oldrange = 0 if (($oldrange < 0) && ($oldrange >= $_range_length));
            out "<tr>\n";
            out "<td colspan=7>\n";
            if ($oldrange >= 0)
               {
                out "&nbsp;&nbsp;&nbsp;&nbsp;\n";
                out "<a href='$_link&range=$oldrange,$_range_length$append'>\n";
                out "<img src='http://www.bestguide.de/gfc/pflinks.gif' border=0 alt='zur&uuml;ck'>\n";
                out "</a>\n";
               }
            if ($newrange < $_amount_query)
               {
                out "&nbsp;&nbsp;&nbsp;&nbsp;\n";
                out "<a href='$_link&range=$newrange,$_range_length$append'>\n";
                out "<img src='http://www.bestguide.de/gfc/pfrechts.gif' border=0 alt='weiter'>\n";
                out "</a>\n";
                       }
            out "</tr>\n";
            out "<tr>\n";
            out "<td>\n";
            out "&nbsp;\n";
            out "</td>\n";
            out "</tr>\n";
            out "</table>\n";

            out "<a class='link3' href='javascript:history.back();'>[Zurück]</a>\n";
            out "<a class='link3' href='http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/bg/bgverap&cmd=fm_search'>[Suchen]</a>\n";
            out "<a class='link3' href='http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/bg/bgverap&cmd=fm_add'>[Erfassen]</a>\n";
            out "</td>\n";
            out "</tr>\n";
            out "</table>\n";
            
           }
        </perl>