baseportal | |||
English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
Ausgewählter Eintrag: | Zur Liste |
<perl>
<perl> # wenn Parameter für Speichern und der notwendige Systemhash vorhanden ist if ($cmd eq "add" && %_put){ # prüfen wir die einzelnen übergebenen Feldinhalte ab (nur einfacher Check!) $a_fehler = "Bitte Geburtstag angeben<br>" if $_Geburtstag_Tag eq "" || $_Geburtstag_Monat eq ""; $a_fehler .= "Bitte Jahrgang angeben (nur Zahl)<br>" if $Jahrgang eq "" || $Jahrgang =~ m/\D/; $a_fehler .= "Bitte Chatnick angeben" if $Chatnick eq ""; $a_fehler .= "Bitte Vorname angeben" if $Vorname eq ""; $a_fehler .= "Bitte $Nachname angeben" if $Nachname eq ""; $a_fehler .= "Bitte eMail-Adresse angeben" if $email eq ""; } # Wenn Fehler vorhanden sind, Parameter fürs Speichern und zugehörigen Systemhash löschen if ($a_fehler ne ""){ $cmd = "" ; %_put = undef; } </perl> $a_fehler <do action=input> <do action=list listtype=add db=/jenischinfo/Geburtstagskalender_jenischer_Chat >
Alle Einträge zum Thema: | Zur Liste |
<perl>
<perl> # wenn Parameter für Speichern und der notwendige Systemhash vorhanden ist if ($cmd eq "add" && %_put){ # prüfen wir die einzelnen übergebenen Feldinhalte ab (nur einfacher Check!) $a_fehler = "Bitte Geburtstag angeben<br>" if $_Geburtstag_Tag eq "" || $_Geburtstag_Monat eq ""; $a_fehler .= "Bitte Jahrgang angeben (nur Zahl)<br>" if $Jahrgang eq "" || $Jahrgang =~ m/\D/; $a_fehler .= "Bitte Chatnick angeben" if $Chatnick eq ""; $a_fehler .= "Bitte Vorname angeben" if $Vorname eq ""; $a_fehler .= "Bitte $Nachname angeben" if $Nachname eq ""; $a_fehler .= "Bitte eMail-Adresse angeben" if $email eq ""; } # Wenn Fehler vorhanden sind, Parameter fürs Speichern und zugehörigen Systemhash löschen if ($a_fehler ne ""){ $cmd = "" ; %_put = undef; } </perl> $a_fehler <do action=input> <do action=list listtype=add db=/jenischinfo/Geburtstagskalender_jenischer_Chat >
<perl> # wenn Parameter für Speichern und der notwendige Systemhash vorhanden ist if ($cmd eq "add" && %_put){ # prüfen wir die einzelnen übergebenen Feldinhalte ab (nur einfacher Check!) $a_fehler .= "<b><font size='12'>Bitte Chatnick angeben</font></b><br>" if $Chatnick eq ""; } # Wenn Fehler vorhanden sind, Parameter fürs Speichern und zugehörigen Systemhash löschen if ($a_fehler ne ""){ $cmd = "" ; %_put = undef; } </perl> $a_fehler <do action=input> <do action=list listtype=add db=/jenischinfo/Geburtstagskalender_jenischer_Chat >
<perl> $b_gebheute = "Du hast <b>HEUTE</b> Geburtstag? Herzliche Gratulation!<br>Falls das eine Fehleingabe war, bitte ändern!<br>" if $_Geburtstag_Tag eq $aktuelltag and $_Geburtstag_Monat eq $aktuellmonat; } </perl> $a_fehler $b_gebheute <do action=input> <do action=list listtype=add db=/jenischinfo/Geburtstagskalender_jenischer_Chat >
if(%_put) { unless($Vorschau) { get "Id==#";
$emsg.="Bitte gebe einen Titel ein! " if $_put{Titel} eq "";
Liste der Einträge von 24150 bis 24300: | 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 |