Beitrag von 2Pex (38 Beiträge) am Samstag, 26.Januar.2008, 20:04.
Re: Formularckeck für Datenbankeingabe
Ich gebe in einem ähnlichen Fall die Felder mit do_all aus, deshalb weiß ich nicht, ob es dir nutzt. Hier wird auf die Eingabe und auf die Länge geprüft. Stimmt alles, wird der Eintrag in die Datenbank geschrieben und es kommt die Meldung "Anmeldung gespeichert", wenn nicht wird die Variable $emsg bemüht.
<perl>
$text||=26;
my $emsg="";
if(%_put)
{
$emsg.="<p class='red'>Bitte geben Sie Ihren Nicknamen ein!</p> " if $_put{Nickname} eq "";
$emsg.="<p class='red'>Der Text Ihres Nicknamens ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen.</p>" if length($_put{Nickname})>$text;
if($emsg eq "")
{
put;
out "Anmeldung gespeichert";
} else
{
undef (%_put);
out "<ul><b>$emsg</b></ul>";
}
}
Beitrag von 2Pex (38 Beiträge) am Samstag, 26.Januar.2008, 20:08.
Re: Formularckeck für Datenbankeingabe
Oh, sorry, ein Fehler!
<perl>
$text||=26;
my $emsg="";
if(%_put)
{
$emsg.="<p class='red'>Bitte geben Sie Ihren Nicknamen ein!</p> " if $_put{Nickname} eq "";
$emsg.="<p class='red'>Der Text Ihres Nicknamens ist zu lang! Bitte kürzen Sie ihn auf maximal $text Zeichen.</p>" if length($_put{Nickname})>$text;
if($emsg eq "")
{
put;
out "Anmeldung gespeichert";
} else
{
undef (%_put);
out "<ul><b>$emsg</b></ul>";
}
}
</perl>