<perl>

if($Id ne "")
{
  get "Id==$Id";

  if($xName)
  {
    if($Passwort eq $xPasswort)
    {
      mod "Id==$Id", ["Name",$xName,"Ueberschrift1",$xUeberschrift1,"Ueberschrift2",$xUeberschrift2,"Text1",$xText1,"Text2",$xText2,"Bild1",$xBild1,"Bild2",$xBild2];
      out "<b>Eintrag ge&auml;ndert...</b>";
    } else
    {
      out "<b>Passwort falsch!</b>";
    }
  } else
  {
    out <<EOF;
<h3>Eintrag &auml;ndern</h3>
<table>
<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">
<tr><td>Name:</td><td><input type="text" name="xName=" value="$Name"></td></tr>
<tr><td><b>Paßwort:</td><td><input type="password" name="xPasswort="></b></td></tr>
</table>
<hr><br><br>
<table>
<tr><td>Ueberschrift1:</td><td><input type="text" name="xUeberschrift1=" value="$Ueberschrift1"></td></tr>
<tr><td>Text1:</td><td><input type="textarea" name="xText1=" value="$Text1"></td></tr>
<tr><td>Bild1:</td><td><input type="text" name="xBild1=" value="$Bild1"></td></tr>
<tr><td>Ueberschrift2:</td><td><input type="text" name="xUeberschrift2=" value="$Ueberschrift2"></td></tr>
<tr><td>Text2:</td><td><input type="text" name="xText2=" value="$Text2"></td></tr>
<tr><td>Bild2:</td><td><input type="text" name="xBild2=" value="$Bild2"></td></tr>
<tr><td></td><td><input type=submit value="Abschicken"> </td></tr>
</form></table>
EOF

  }
  out "<p><a href=\"$_link\">Neuer Eintrag</a>";

{
  out "<h3>Neuer Eintrag</h3>";
  out "Mit dem Passwort k&ouml;nnen Sie den Eintrag sp&auml;ter bearbeiten.";

  init; get;
  list "add";

get;

out "<table><tr><td>Name</td><td>letzte Änderung:</td></tr>";
while(get_next)
{
  out "<tr><td><a href=\"$_link&Id=$_id\">$Name</a></td><td>$Datum</td></tr>";
}
out "</table>";
</perl>