PERL Cod hier rein mit der Bitte ob einer den Fehler findet.

##### Einloggen #####
if($namerein eq "")
{
out <<EOF;
<form action="baseportal.pl?htx=$htx" method="post" enctype="multipart/form-data">
<input type=hidden name="htx=" value="$htx">
<input type="hidden" name="namerein" value="$namerein">
<input type="hidden" name="pwrein" value="$pwrein">
<table border="0">
<tr><td>Nur mit eigenem Name und Passwort funktionieren die zusätzlichen Funktionen.<br>z.B. Wenn ein Wort mehrfach richtig war, wird es nicht mehr abgefragt, erst nach einer Wiederreinstellungszeit erscheint es wieder.</td></tr>
<tr><td>Name: <input type="text" name="namerein=" value=$namerein> Passwort: <input type="password" name="pwrein=" value=$pwrein><input type=submit value="Anmelden"><br>Beide Male test eingeben, dann habt Ihr alle Funktionen.
<p><a href="http://www.kochhome.de/cgi-bin/baseportal.pl?htx=/kochhome.de/vokabeltrainer/name"  target="_blank">Hier könnt Ihr Euch Registrieren.</a></p> 
</td></tr>
</table></form>
EOF
##### Einloggen Ende ####
}
$dbname=vokabeln6;
get "name==$namerein", "name";
if($pwrein ne "" && $pw eq $pwrein)
{
out "Erfolgreich eingeloggt!<br>";
}
else
{
out "Hallo du bist als Gast eingeloggt.<br>";
$namerein="Gast";
}
if($antwort ne "")
{
  get "Id==$id", "$dbname";
if ($antwort eq $English)
{
out <<EOF;
<table border="0" width="100%">
  <tr>
    <td width="100%" align="right">
      <table border="3" cellpadding="10" bordercolor="#00FF00" bordercolorlight="#00FF00" bordercolordark="#00FF00" cellspacing="0">
        <tr>
          <td width="100%" bordercolor="#00FF00" bordercolorlight="#00FF00" bordercolordark="#00FF00"><font color='#008000' size='4'><b>Richtig!</b></font></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<br>
EOF
  if($namerein eq "Gast")
{
    put ["ID", "$ID_wort", "name", "$namerein", "english", "$English", "Klasse", "$Klasse", "Unit", "$Unit","richtig","1"], "richtig_gast";
}
  if($namerein ne "Gast" && $namerein ne "" )
  {
  $ID_wort=$id ;#id merken da es sonst überschrieben wird
  $richtig="" ;
  get "ID==$ID_wort name==$namerein ", "richtig";
  if($richtig ne "")
     {
     $richtig=$richtig+1 ;
     mod "ID==$ID_wort name==$namerein", ["richtig", "$richtig", "Klasse", "$Klasse", "Unit", "$Unit"], "richtig";
     }
    else
     {
$richtig=1;
    put ["ID", "$ID_wort", "name", "$namerein", "english", "$English", "Klasse", "$Klasse", "Unit", "$Unit","richtig","1"], "richtig";
  }
  }
}
else
{
out <<EOF;
<table border="0" width="100%">
  <tr>
    <td width="100%" align="right">
<table border="1" bordercolorlight="#FF0000" bordercolordark="#FF0000">
  <tr>
    <td width="100%" colspan="2"><b><font color="#FF0000">Falsch!</font></b></td>
  </tr>
  <tr>
    <td width="200">Deutsches Wort:</td>
    <td><b>$Deutsch</b>
EOF
out "($Deutsch_e)" if ($Deutsch_e ne "");
out <<EOF;
</td>
  </tr>
  <tr>
    <td>eingegebene Übersetzung</td>
    <td><b>$antwort</b></td>
  </tr>
  <tr>
    <td>richtige Übersetzung:</td>
    <td><b>$English</b></td>
  </tr>
  <tr>
    <td>Vokabel Nr.:</td>
    <td><b>$Id</b></td>
  </tr>
</table>
    </td>
  </tr>
</table>

}
}
$Deutsch_e="";
 get "sort=? Klasse==$Klasse_n Unit==$Unit_n", $dbname;
 while(get_next $dbname)
 {
   $ID_wort=$_id;
   $Deutsch_m=$Deutsch;
   $Deutsch_e_m=$Deutsch_e;
   $richtig="";
   get "ID==$_id name==$namerein", "richtig";
   $richtig_m=$richtig;
#  out "$_id - $richtig mal richtig - $Deutsch <br>" if ($richtig ne "");
#   out "Das neue Wort hast du noch nie richtig gehabt.<br>" if ($richtig eq "");
   last if $richtig<2;
 }
out <<EOF;
<form action="baseportal.pl?htx=$htx" method="get">

  <tr>
    <td width="100%" colspan="2"><b>Was soll ab der nächsten Frage geübt werden?</b></td>
  </tr>
  <tr>
    <td width="50%">Klasse (6)</td>
    <td width="50%"><input type="text" name="Klasse_n" size="3" value=$Klasse_n></td>
  </tr>
  <tr>
    <td width="50%">Unit (1-8)</td>
    <td width="50%"><input type="text" name="Unit_n" size="3" value=$Unit_n></td>
  </tr>
</table>
<p>Wenn hier nichts ausgewählt wird, erscheinen zufällige Vokabeln.</p>
</td>
    <td width="50%" valign="top" bgcolor="#FFFFFF">
<h2>$namerein übersetze bitte dies:</h2>
<h3>Aufgabe</h3>
Klasse: $Klasse Unit: $Unit<br>Vokabel Nr.: $ID_wort<br>
EOF
out "$richtig mal richtig" if ($richtig ne "");
out <<EOF;
<br>
<br>
<input type="hidden" name="htx" value="$htx">
<input type="hidden" name="id" value="$ID_wort">
<input type="hidden" name="namerein" value="$namerein">
<input type="hidden" name="pwrein" value="$pwrein">
 <b>$Deutsch_m</b> 
EOF
out "($Deutsch_e_m)" if ($Deutsch_e_m ne "");
out <<EOF;

<script type="text/javascript">
document.forms[0].antwort.focus();
</script>
 ?  <input type=submit value="Prüfen">
</form>
<p align="center"><img border="0" src="http://www.vokabeltrainer-online.net/00008798.gif"></p>
</td>
  </tr>
  <tr>
    <td width="100%" valign="top" bgcolor="#FFFFFF" colspan="2">
<h3>Statistik</h3>
EOF
get "Id=* name==$namerein Klasse==$Klasse_n Unit==$Unit_n", "richtig";
out "<b>$namerein</b> du hast von der Selektion schon <b>$_amount</b> Vokabeln richtig, von insgesamt";
get "Id=* Klasse==$Klasse_n Unit==$Unit_n", $dbname;
out " <b>$_amount</b> Vokabeln";
get "Id=* richtig>=2 name==$namerein Klasse==$Klasse_n Unit==$Unit_n", "richtig";
out " davon sind schon <b>$_amount</b> mindestens 2 x richtig gewesen.<br>";
out "<b>Insgesammt hast du heute</b> am ";
out datum ("jetzt", "Tag.Monatname Jahr");
#get "Id=* name==$namerein    datum==.datum("jetzt", "Tag.Monat.Jahr")     ", "richtig";
get "name==$namerein datum==".datum("jetzt", "Tag.Monat.Jahr"), "richtig";
out " dich bei <b>$_amount</b> Vokabeln verbessert.<br>";

get "name==$namerein Klasse==$Klasse_n Unit==$Unit_n datum==".datum("jetzt", "Tag.Monat.Jahr"), "richtig";

 while(get_next richtig)
 {

$richtig_s=$richtig_s+$richtig ;
 }
out "<b>$richtig_s</b> richtige Antworten heute in dieser Selektion.";
</perl>