<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&auml;ndert...</b>";
    } else
    {
      out "<b>Passwort falsch!</b>";
    }
  } else
  {
    out <<EOF;
<h3>Eintrag &auml;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">&nbsp;</td>
</tr>
<tr>
<td>&nbsp;</td>
<td nowrap><input type=submit value="Abschicken">  <input type=reset value="Zur&uuml;cksetzen"></td>
</tr>
</table>
</form>
EOF

  }
  out "";

{
  out "";
}

out "<h3>Liste aller Eintr&auml;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>";