($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> </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> </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> Bezeichnung 2:</td><td><input type="text" name="xbez2:=" size=40 value="$xbez2"> </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> </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> </td></tr>
</table>
</td></tr>
<perl>
out <<EOF;
<tr><td colspan=2 align=center><input type=submit value="Datensatz ändern"> <input type=reset value="Formular leeren"> </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ö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öschen?\')">Datensatz löschen!</a><br> </td></tr>
<!------------ Ende: Löschen als Link ----------->
