| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
<perl>
$err.="<font face=verdana,helvetica size=-1 color=#FF0000>
-Rubrik<br>" if $_put{Rubrik} eq "";
if (length($_put{Text}) > 120){
$err.="<font face=verdana,helvetica size=-1 color=#FF0000>
Ihr Eintrag darf max. 120 Zeichen haben.<br>";
}
if ($err ne ""){
undef %_put;
}
if ($err ne "") {
out "<b>Ihre Kleinanzeige konnte nicht entgegengenommen werden.<br>
Es wurden nicht alle Felder korrekt ausgefüllt.</b> <br>$err";
undef %_put;
}else{
$senddat=datum('jetzt', 'intern');
| Alle Einträge zum Thema: | Zur Liste |
<perl>
my $emsg="";
if ($cmd eq "add") {
if(%_put)
{
$emsg.="Bitte geben Sie Ihren Namen ein! " if $_put{Name} eq "";
$emsg.="Bitte geben Sie einen Text ein! " if $_put{Text} eq "";
$emsg.="Der Text ist zu lang! Bitte kürzen Sie ihn auf maximal $maxtext Zeichen." if length($_put{Text})>$maxtext;
if($emsg eq "")
{
put;
out "<ul><b>Ihr Eintrag wurde aufgenommen...</b></ul>";
} else
{
out "<ul><b>$emsg</b></ul>";
}
}
</perl>
<perl>
$err.="<font face=verdana,helvetica size=-1 color=#FF0000>
-Rubrik<br>" if $_put{Rubrik} eq "";
if (length($_put{Text}) > 120){
$err.="<font face=verdana,helvetica size=-1 color=#FF0000>
Ihr Eintrag darf max. 120 Zeichen haben.<br>";
}
if ($err ne ""){
undef %_put;
}
if ($err ne "") {
out "<b>Ihre Kleinanzeige konnte nicht entgegengenommen werden.<br>
Es wurden nicht alle Felder korrekt ausgefüllt.</b> <br>$err";
undef %_put;
}else{
$senddat=datum('jetzt', 'intern');
| Liste der Einträge von 30750 bis 30900: | Einklappen | Zur Eingabe |
| Neueste Einträge << 10 | 9 | 8 | 7 | 6 | 5 | 4 | 3 | 2 | Neuere Einträge < | Zur Eingabe | > Ältere Einträge | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 >> Älteste Einträge |
| © baseportal.de. Alle Rechte vorbehalten. Nutzungsbedingungen |