{
get "Id==$Id";
if($xBesitzer)
{
if($passwort eq $xpasswort)
{
mod "Id==$Id", ["Rubrik",$xRubrik,"Suchbegriff",$xSuchbegriff,"Autor",$xAutor,"Titel",$xTitel,"Untertitel",$xUntertitel,"Bild",$xBild,"Beschreibung",$xBeschreibung,"verleihbar",$xverleihbar,"Entleiher",$xEntleiher,"Besitzer",$xBesitzer,"email",$xemail];
out "<b>Eintrag geändert...</b>";
} else
{
out "<b>Passwort falsch!</b>";
}
} else
{
out <<EOF;
<h3>Eintrag ändern (bei "verleihbar" gilt 1 für "ja" und 0 für "nein")</h3>
<table>
<form action="/cgi-bin/baseportal.pl?htx=$htx&Id=$Id" method="post" enctype="multipart/form-data">
<input type=hidden Besitzer="htx=" value="$htx">
<input type=hidden Besitzer="Id=" value="$Id">
<tr><td>Suchbegriff:</td><td><input type="text" size="33" name="xSuchbegriff=" value="$Suchbegriff"></td></tr>
<tr><td>Autor:</td><td><input type="text" size="33" name="xAutor=" value="$Autor"></td></tr>
<tr><td>Titel:</td><td><input type="text" size="33" name="xTitel=" value="$Titel"></td></tr>
<tr><td>Untertitel:</td><td><input type="text" size="33" name="xUntertitel=" value="$Untertitel"></td></tr>
<tr><td>Bild:</td><td><textarea name="xBild=" cols="75" rows="1" wrap=virtual>$Bild</textarea></td></tr>
<tr><td>Beschreibung:</td><td><textarea name="xBeschreibung=" cols="75" rows="15" wrap=virtual>$Beschreibung</textarea></td></tr>
<tr><td>Besitzer:</td><td><input type="text" size="33" name="xBesitzer=" value="$Besitzer"></td></tr>
<tr><td>email:</td><td><input type="text" size="33" name="xemail=" value="$email"></td></tr>
<tr><td>Entleiher:</td><td><input type="text" size="33" name="xEntleiher=" value="$Entleiher"></td></tr>
<tr><td>verleihbar:</td><td><input type="text" size="33" name="xverleihbar="value="$verleihbar"></td></tr>
<tr><td>Passwort:</td><td><input type="password" name="xpasswort="></td></tr>
<tr><td></td><td><input type=submit value="Abschicken"> </td></tr> </form></table>
EOF
}
out "<p><a href=\"$_link\">Neuer Eintrag</a>";
