| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| baseportal | |||
| English - Deutsch | "Es gibt keine dummen Fragen - jeder hat einmal angefangen" | ||
|
| Ausgewählter Eintrag: | Zur Liste |
<perl> get "", "shop";
# schaun, ob in Pflichtfelder was eingegeben wurde, wenn nicht, Variable err füllen
$err.=" | Name" if $_put{name} eq "";
$err.=" | Email" if $_put{email} eq "";
if ($err ne ""){ # wenn Var err nicht leer ist Fehlermeldung ausgeben
# put-Hash leeren, damit nichts gespeichert wird
out "$err";
} else { # wenn nichts in err steht
$senddat=datum('jetzt', 'intern'); # $enddat füllen
mail ‚info@….', "Bestellung", "
$Artikel01: $Artikelanzahl01 x $Artikel02: $Artikelanzahl02 x $Artikel03: $Artikelanzahl03 x $Artikel04: $Artikelanzahl04 x
# Bestätigungstext ausgeben
out<<EOF;
Danke
EOF
} # E if/else err
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
} else { # wenn cmd nicht "add" ist
# Eingabeformular ausgeben
out<<EOF;
<form action=„..." method=post enctype="multipart/form-data" class="form contact">
<input type="hidden" name="cmd=" value="add">
EOF
out <<EOF;
$Artikel01 - $Preis01<br> $Artikelbeschreibung01 Anzahl bitte auswählen:<select name="Artikelanzahl01:=" /> <option value=" ">0<option value="1">1<option value="2">2<option value="3">3<option value="4">4<option value="5">5</select>
<input type="submit" class="submit" value="bestellen" />
</form>
EOF } # E if/else-cmd
| Alle Einträge zum Thema: | Zur Liste |
<loop db=shop code=perl> out <<EOF; <div class="row"> <div class="span6"><h3>$Artikel01</h3><p>$Artikelbeschreibung01</p></div> <select name="Artikelanzahl01:=" class="text"/> <option value=" ">0<option value="1">1<option value="2">2<option value="3">3<option value="4">4<option value="5">5</select></div> </div> <div class="row"> <div class="span6"><h3>$Artikel02</h3><p>$Artikelbeschreibung02</p></div> <select name="Artikelanzahl02:=" class="text"/> <option value=" ">0<option value="1">1<option value="2">2<option value="3">3<option value="4">4<option value="5">5</select></div> </div> <div class="row"> <div class="span6"><h3>$Artikel03</h3><p>$Artikelbeschreibung03</p></div> <select name="Artikelanzahl03:=" class="text"/> <option value=" ">0<option value="1">1<option value="2">2<option value="3">3<option value="4">4<option value="5">5</select></div> </div> EOF </loop> <perl>
$err.=" | Name" if $_put{name} eq "";
$err.=" | Email" if $_put{email} eq "";
$err.=" | Strasse" if $_put{strasse} eq "";
$err.=" | PLZ" if $_put{plz} eq "";
$err.=" | Ort" if $_put{ort} eq "";
if ($err ne ""){
out "Deine Mail wurde nicht gesendet. Fülle bitte noch folgende Felder aus.<br>$err
<a HREF=''>zurück</a>";
undef %_put;
} else {
$senddat=datum('jetzt', 'intern');
<b>Ihre Bestellung:</b><br> $Artikel01 - $Artikelanzahl01<br> $Artikel02 - $Artikelanzahl02<br> $Artikel03 - $Artikelanzahl03<br>
<b>Bestellerdaten:</b><br> Name: $name <br> Email: $email <br> $strasse<br> $plz $ort<br>
out<<EOF;
Vielen Dank!
EOF
} # E if/else err
} else {
<form action="/cgi-bin/baseportal.pl?htx=/...shop.de/shop" method=post enctype="multipart/form-data" class="form contact"> <input type="hidden" name="cmd=" value="add">
<label>E-mail</label><input type="email" name="email:=" value="" />
<input type="submit" class="submit" id="submit" value="Zahlungspflichtig bestellen" /> </div> </div> </form>
} </perl>
$Artikel01 - $Artikelanzahl01<br> $Artikel02 - $Artikelanzahl02<br> $Artikel03 - $Artikelanzahl03<br>
$Artikel01 - $_put{Artikelanzahl01}<br>
$Artikel02 - $_put{Artikelanzahl02}<br>
$Artikel03 - $_put{Artikelanzahl03}<br>
<perl> get "", "shop";
# schaun, ob in Pflichtfelder was eingegeben wurde, wenn nicht, Variable err füllen
$err.=" | Name" if $_put{name} eq "";
$err.=" | Email" if $_put{email} eq "";
if ($err ne ""){ # wenn Var err nicht leer ist Fehlermeldung ausgeben
# put-Hash leeren, damit nichts gespeichert wird
out "$err";
} else { # wenn nichts in err steht
$senddat=datum('jetzt', 'intern'); # $enddat füllen
mail ‚info@….', "Bestellung", "
$Artikel01: $Artikelanzahl01 x $Artikel02: $Artikelanzahl02 x $Artikel03: $Artikelanzahl03 x $Artikel04: $Artikelanzahl04 x
# Bestätigungstext ausgeben
out<<EOF;
Danke
EOF
} # E if/else err
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
} else { # wenn cmd nicht "add" ist
# Eingabeformular ausgeben
out<<EOF;
<form action=„..." method=post enctype="multipart/form-data" class="form contact">
<input type="hidden" name="cmd=" value="add">
EOF
out <<EOF;
$Artikel01 - $Preis01<br> $Artikelbeschreibung01 Anzahl bitte auswählen:<select name="Artikelanzahl01:=" /> <option value=" ">0<option value="1">1<option value="2">2<option value="3">3<option value="4">4<option value="5">5</select>
<input type="submit" class="submit" value="bestellen" />
</form>
EOF } # E if/else-cmd
| Liste der Einträge von 1200 bis 1350: | Einklappen | Zur Eingabe |
| Neueste Einträge << 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 |