##### 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)
{
