baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl>
if($Id ne "") { get "Id==$Id";
if($xTermNr) { if($Passwort eq $xPasswort) { mod "Id==$Id", ["TermNr",$xTermNr,"von",$xvon,"bis",$xbis,"Anzahl",$xAnzahl,"Bemerk",$xBemerk]; out "<b>Eintrag geändert...</b>"; } else { out "<b>Passwort falsch!</b>"; } } else { out <<EOF; <h3>Eintrag ändern</h3> <form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <input type=hidden name="Id=" value="$Id"> <input type=hidden name="KundenNr=" value="$KundenNr"><input type=hidden name="ObjNr=" value="$ObjNr"><input type=hidden name="Hausname=" value='$Hausname'> <table align="center" border=0 width=600 cellpadding=2 cellspacing=0> <tr bgcolor="#c7e19e"> <td colspan="2"><b>Termin ändern:</b></td> </tr> <tr> <td colspan="2" height="30"><input type="passwort" name="xPasswort:=" value=''></td> </tr> <tr> <td colspan="2" height="30"><input type="text" name="xTermNr:=" value='$TermNr' readonly></td> </tr> <tr> <td width="200">vom:</td> <td><input type="datum" name="xvon:=" value=' EOF out datum("$von","Tag0.Monat0.Jahr"); out <<EOF; '> (Format: TT.MM.JJJJ)</td> </tr> <tr> <td>bis:</td> <td><input type="text" name="xbis:=" value=' EOF out datum("$bis","Tag0.Monat0.Jahr"); out <<EOF; '> (Format: TT.MM.JJJJ)</td> </tr> <tr> <td>Anzahl Plätze:</td> <td><input type="text" name="xAnzahl:=" value='$Anzahl'></td> </tr> <tr> <td>Bemerkung:</td> <td><input type="text" name="xBemerk:=" value='$Bemerk'></td> </tr> <tr> <td colspan="2" height="30"> </td> </tr> <tr> <td> </td> <td nowrap><input type=submit value="Abschicken"> <input type=reset value="Zurücksetzen"></td> </tr> </table> </form> EOF
} out "";
{ out ""; }
out "<h3>Liste aller Einträge</h3>";
while(get_next("termine")) { out "<tr><td><a href=\"$_link&Id=$_id\">$Hausname</a></td><td>"; out datum("$bis","Tag0.Monat0.Jahr"); out"<\/td><\/tr>"; } out "</table>";
|
Alle Einträge zum Thema: | Zur Liste |
<perl>
if($Id ne "") { get "Id==$Id";
if($xTermNr) { if($Passwort eq $xPasswort) { mod "Id==$Id", ["TermNr",$xTermNr,"von",$xvon,"bis",$xbis,"Anzahl",$xAnzahl,"Bemerk",$xBemerk]; out "<b>Eintrag geändert...</b>"; } else { out "<b>Passwort falsch!</b>"; } } else { out <<EOF; <h3>Eintrag ändern</h3> <form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data"> <input type=hidden name="htx=" value="$htx"> <input type=hidden name="Id=" value="$Id"> <input type=hidden name="KundenNr=" value="$KundenNr"><input type=hidden name="ObjNr=" value="$ObjNr"><input type=hidden name="Hausname=" value='$Hausname'> <table align="center" border=0 width=600 cellpadding=2 cellspacing=0> <tr bgcolor="#c7e19e"> <td colspan="2"><b>Termin ändern:</b></td> </tr> <tr> <td colspan="2" height="30"><input type="passwort" name="xPasswort:=" value=''></td> </tr> <tr> <td colspan="2" height="30"><input type="text" name="xTermNr:=" value='$TermNr' readonly></td> </tr> <tr> <td width="200">vom:</td> <td><input type="datum" name="xvon:=" value=' EOF out datum("$von","Tag0.Monat0.Jahr"); out <<EOF; '> (Format: TT.MM.JJJJ)</td> </tr> <tr> <td>bis:</td> <td><input type="text" name="xbis:=" value=' EOF out datum("$bis","Tag0.Monat0.Jahr"); out <<EOF; '> (Format: TT.MM.JJJJ)</td> </tr> <tr> <td>Anzahl Plätze:</td> <td><input type="text" name="xAnzahl:=" value='$Anzahl'></td> </tr> <tr> <td>Bemerkung:</td> <td><input type="text" name="xBemerk:=" value='$Bemerk'></td> </tr> <tr> <td colspan="2" height="30"> </td> </tr> <tr> <td> </td> <td nowrap><input type=submit value="Abschicken"> <input type=reset value="Zurücksetzen"></td> </tr> </table> </form> EOF
} out "";
{ out ""; }
out "<h3>Liste aller Einträge</h3>";
while(get_next("termine")) { out "<tr><td><a href=\"$_link&Id=$_id\">$Hausname</a></td><td>"; out datum("$bis","Tag0.Monat0.Jahr"); out"<\/td><\/tr>"; } out "</table>";
put if %_put;
Liste der ersten 150 Einträge: | Einklappen | Zur Eingabe |
Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
© baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |