{
get "Id==$Id";
if($xName)
{
if($Passwort eq $xPasswort)
{
mod "Id==$Id", ["Name",$xName,"Matrikelnummer",$xMatrikelnummer,"Veranstaltung",$xVeranstaltung];
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>Name:</td><td><input type="text" name="xName=" value="$Name"></td></tr>
<tr><td>Matrikelnummer:</td><td><input type="text" name="xMatrikelnummer=" value="$Matrikelnummer"></td></tr>
<tr><td>Veranstaltung:</td><td><input type="text" name="xVeranstaltung=" value="$Veranstaltung"></td></tr>
{
out "<h3>Neuer Eintrag</h3>";
out "Wählen Sie bitte ein beliebiges, aber gut merkbares persönliches Passwort. Mit diesem Passwort können Sie ihre Einträge später bearbeiten.";
init; get;
list "add";
out "<h4>Wenn Sie Ihre Einträge korrigieren wollen, müssen Sie nur auf Ihren Namen klicken!</h4>";
out "<table><tr><td>Name</td><td>Veranstaltung</td></tr>";
while(get_next)
{
out "<tr><td><a href=\"$_link&Id=$_id\">$Name<sort=$_id> </a></td><td>$Veranstaltung</td></tr>";
}
out "</table>";
</perl>
