<perl>
if ($cmd eq "bildgross")
{
get "Id<$bildid nummer_galerie==$galerie sort=- range=0,1", "bilder";
$zurueck=$_id;
get "Id>$_id nummer_galerie==$galerie range=0,2", "bilder","naechste";
$galerie=$nummer_galerie;
while (get_next("naechste"))
{
 
if ($_id==$bildid)
         {
              out "<br><br><span class=\"hitext\"><b>$bild_text</b></span><br><br>";
              out "<hr color=\"#990000\" size=\"2\"><br>";
              out "<table width=\"97%\" align='center'><tr><td align=\"center\">";
              out "<img src='$url$datei_name' alt='$bild_text'><br>";
         }else
         {
                $vor=$_id;
         }
 }

{
out "<a class=\"tatext\" href='/cgi-bin/baseportal.pl?htx=/verwitwet/ev/grossbild_Kopie&url=$url&bildid=$zurueck&galerie=$nummer_galerie&v=$v&cmd=bildgross&namerein=$namerein&sid=$sid_aktuell'><img src=\"http://www.verwitwet.de/bilder/1ARROW4.GIF\" alt=\"vorheriges Bild\" border=\"0\" align=\"left\"></a> - ";
}
out "<a class=\"tatext\" HREF='javascript:window.close();'>Fenster schließen</a>";

{
out " - <a class=\"tatext\" href='/cgi-bin/baseportal.pl?htx=/verwitwet/ev/grossbild_Kopie&url=$url&bildid=$vor&galerie=$nummer_galerie&v=$v&cmd=bildgross&namerein=$namerein&sid=$sid_aktuell'><img src=\"http://www.verwitwet.de/bilder/1ARROW5.GIF\" alt=\"n&auml;chstes Bild\" border=\"0\" align=\"right\"></a>";
}
out "<br></td></tr></table>";

{
out "<span class=\"text\">Bild nicht vorhanden !!</span>";
}
</perl>