<!----ab hier Routine Detail-Anzeige--------------------->
<table class=tab1 align=center><tr><td>&nbsp;</td></tr>

        <perl>
        #---------- Datensatz wird geändert -------------# 
        if ($cmd eq "mod")
             {

             ($xortgesamt, $xvort, $xvort2)=split(/\|/, $work_xvort);

             mod "Id==$Id",[

             "xvort", "$xvort", "xvort2", "$xvort2", "xortgesamt", "$xortgesamt",
             "xtyp", "$xtyp", "xgruppe", "$xgruppe", "xvera", "$xvera",
             "xdatumvon", "$xdatumvon", "xdatumbis", "$xdatumbis", "xbezlang", "$xbezlang" ], 
             "bgtest"; 
             out "<tr><td colspan=2 class=a10b align=center> ---------- Eintrag wurde geändert ! ---------- <br>&nbsp;</td></tr>";
             }
         get "Id==$Id", "bgtest";
         

         #---------- Datensatz wird gelöscht -------------# 
         if ($cmd eq "del")
             {

             out "<tr><td colspan=2 class=a10b align=center> ---------- Eintrag wurde gelöscht ! ---------- <br>&nbsp;</td></tr>";
             }
         </perl>

         <perl> 
         #---------- Ausgabe Änderungs-Formular ----------#
         out <<EOF;
         <form action="baseportal.pl?htx=/gpark/bg/bgtestdt&cmd=mod" method="post" enctype="multipart/form-data">
         <input type=hidden name="htx=" value="/gpark/bg/bgtestdt">
         <input type=hidden name="cmd=" value="mod">
         <input type=hidden name="Id=" value="$Id">
EOF
         </perl>         
         <tr><td valign=top><table> 
                 <tr><td align=right>Beginn :</td>                  <td><input type="text" name="xdatumvon:=" size=40 value="$xdatumvon"></td></tr>
                 <tr><td align=right>Ende :</td>                    <td><input type="text" name="xdatumbis:=" size=40 value="$xdatumbis"></td></tr>
                 <tr><td align=right>Bezeichnung :</td>             <td><input type="text" name="xbez:=" size=40 value="$xbez"></td></tr>
                 <tr><td align=right>&nbsp;&nbsp;Bezeichnung 2:</td><td><input type="text" name="xbez2:=" size=40 value="$xbez2">&nbsp;&nbsp;</td></tr>
                 <tr><td align=right>Veranst.Typ :</td>             <td><select name="work_xtyp:="><loop db=bgvtyp sort=v3gruppe,v3typ code=perl>
                                                                                                   out "<option value='$v3gruppe|$v3typ'";
                                                                                                   out " selected" if($v3gruppe eq $xgruppe && $v3typ eq $xtyp);
                                                                                                   out ">$v3gruppe $v3typ</option>";
                                                                                                   </loop></select></td></tr>
                 <tr><td align=right>Veranst.Ort :</td>             <td><select name="work_xvort:="><loop db=bgvort sort=v2ortgesamt,v2vort code=perl>
                                                                                                     out "<option value='$v2ortgesamt|$v2vort|$v2vort2'";
                                                                                                     out " selected" if($v2ortgesamt eq $xortgesamt && $v2vort eq $xvort && $v2vort2 eq $xvort2); 
                                                                                                     out ">$v2ortgesamt $v2vort $v2vort2</option>";
                                                                                                     </loop></select>&nbsp;&nbsp;</td></tr>
                 <tr><td align=right>Veranstalter :</td>            <td><select name="xvera:="><loop db=bgvver sort=v4name code=perl>
                                                                                                out "<option value='$v4name'";
                                                                                                out ">" if($v4name ne $xvera);
                                                                                                out " selected>" if($v4name eq $xvera);
                                                                                                out "$v4name</option>";
                                                                                                </loop></select></td></tr>
                 <tr><td align=right>Beschreibung :</td>            <td><textarea name="xbezlang:=" cols=40 rows=8 wrap=virtual>$xbezlang</textarea><br>&nbsp;</td></tr>
                 </table>
          </td></tr>
         <perl>
         out <<EOF;   
         <tr><td colspan=2 align=center><input type=submit value="Datensatz ändern">&nbsp;<input type=reset value="Formular leeren">&nbsp;&nbsp;</td></tr>
         </form>
EOF
         #---------- Ende Änderungs-Formular -------------#
         </perl>

         <perl> 
         #---------- Ausgabe Löschen-Button --------------#
         out <<EOF;
         <form action="baseportal.pl?htx=/gpark/bg/bgtestdt&cmd=del" method="post" enctype="multipart/form-data">
         <input type=hidden name="htx=" value="/gpark/bg/bgtestdt">
         <input type=hidden name="cmd=" value="del">
         <input type=hidden name="Id=" value="$Id">

         <tr><td colspan=2 align=center><br><input type=submit value='Datensatz löschen' onclick='return confirm(\'Diesen Eintrag wirklich l&ouml;schen?\')'></td></tr>
         </form>

         #---------- Ende Löschen-Button -----------------#
         </perl>

         <!------------ Test: Löschen als Link ----------->
         <tr><td colspan=2 align=center><br><a href="http://baseportal.de/cgi-bin/baseportal.pl?htx=/gpark/bg/bgtestdt&cmd=all&Id=$_id" onclick="return confirm(\'Diesen Eintrag wirklich l&ouml;schen?\')">Datensatz löschen!</a><br>&nbsp;</td></tr>
         <!------------ Ende: Löschen als Link ----------->

         </table>