baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<!----ab hier Routine Detail-Anzeige---------------------> <table class=tab1 align=center><tr><td> </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> </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 ----------->
</table>
Alle Einträge zum Thema: | Zur Liste |
<perl> #---------- Datensatz wird geändert -------------# if ($cmd eq "mod") { mod "Id==$Id",[ ...... ], "bgtest"; } get "Id==$Id", "bgtest";
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"> out "Felder .....
<!------ Ende ----->
#---------- Datensatz wird gelöscht -------------# if ($cmd eq "del") { del "Id==$Id", "bgtest"; } <!------ Ende ----->
<input type=submit name=cmd= value=modifizieren> <input type=submit name=cmd= value=loeschen>
if ($cmd eq "modifizieren")
2. schau dir mal den quellcode eines von baseportal erstellten formulars an (bei dem man löschen kann) und kopier dir den entsprechenden javascript-code dort raus und setz ihn bei dir ein...
2. schau dir mal den quellcode eines von baseportal erstellten formulars an (bei dem man löschen kann) und kopier dir den entsprechenden javascript-code dort raus und setz ihn bei dir ein...
<!----ab hier Routine Detail-Anzeige---------------------> <table class=tab1 align=center><tr><td> </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> </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 ----------->
</table>
<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>
<form action="baseportal.pl?htx=/gpark/bg/bgtestdt&cmd=del" method="post" enctype="multipart/form-data" onsubmit="return confirm('Diesen Eintrag wirklich löschen?')"> <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'></td></tr> </form>
Liste der Einträge von 60000 bis 60150: | Einklappen | Zur Eingabe |
Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |