{
get "Id==$Id";
if($xKontakt)
{
if($Passwort eq $xPasswort)
{
mod "Id==$Id", ["Kontakt",$xKontakt,"EMail",$xEMail,"Region",$xRegion,"Objektart",$xObjektart,"Objektkategorie",$xObjektkategorie,"Objektbeschreibung",$xObjektbeschreibung];
out "<b>Eintrag geändert...</b>";
} else
{
out "<b>Passwort falsch!</b>";
}
} else
{
out <<EOF;
<h3>Eintrag ä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>Kontakt (Tel, Fax, etc.):</td><td><input type="text" name="xKontakt=" value="$Kontakt"></td></tr>
<tr><td>EMail:</td><td><input type="EMail" name="xEMail=" value="$EMail"></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="xPasswort="></td></tr>
<tr><td>Region:</td><td><input type="option" name="xRegion=" value="$Region"></td></tr>
<tr><td>Objektart:</td><td><input type="option" name="xObjektart=" value="$Objektart"></td></tr>
<tr><td>Objektkategorie:</td><td><input type="option" name="xObjektkategorie=" value="$Objektkategorie"></td></tr>
<tr><td>Objektbeschreibung:</td><td><input type="textarea" name="xObjektbeschreibung=" value="$Objektbeschreibung"></td></tr>
<tr><td></td><td><input type=submit value="Abschicken"> </td></tr>
</form></table>
EOF
}
out "<p><a href=\"$_link\">Neuer Eintrag</a>";
