hallo,
ich habe ein perl, bei dem, wenn die max. ticketbestellung erreicht ist, kein eintrag mehr vorgenommen werden soll.
ist ein eintrag möglich, sollen die daten per mail verschickt werden.
ich hatte das x mal getestet und war der meinung es klappt.
jetzt nach livegang scheinbar nicht mehr.
ist die max. anzahl erreicht, kommt die meldung, daß eine buchung nicht mehr geht - trotzdem wird die mail geschickt.
doch die mail soll nur geschickt werden, wenn ein eintrag vorgenommen wurde. jetzt wird sie auch geschickt, obwohl kein eintrag gemacht wurde?!?
help :-[
markus
........
$Datum_in = $_put{Datum} if $_put{Datum}; # bedingt, wenn Formular abgeschickt wurde
#. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .#
# jetzt die Datensätze mit genau diesem Datum holen
get "Datum==$Datum_in", "revueres", "hol_ds";
while(get_next("hol_ds")){ # und zusammenzählen wieviele schon am Datum bestellt sind
$gesamt += $Anzahl;
}
$frei = 300 - $gesamt; # freie Bestellungen berechnen
if ($frei <= 0){ # keine mehr da
out<<EOF;
<table width=500>
<tr><td>
<font face=verdana size=-1 color=>
Für den gewünschten Termin sind keine Plätze mehr frei<br>
EOF
}
else { # ok
# wenn Formularwerte übergeben wurden und Parameter cmd Wert "add" hat
if (%_put && $cmd eq "add") {
put undef, "revueres";
out<<EOF;
<table width=500 bgcolor=ffffff>
<tr><td colspan=2>
<font face=verdana size=-1>
<center>
<b>Vielen Dank für Ihre Reservierung!</b><br><br>
</td></tr>
<tr>
<td colspan=2>
<font face=verdana size=-1><br>
<b>Reservierungscode:</b> [ 123.$_put{Datum}-$_put{Name}-456.$_put{Anzahl} ]
</td>
</tr>
EOF
out "<tr><td colspan=2><font face=verdana size=-1><b>Reservierungsdatum:</b> ";
out datum("jetzt", "lang");
out "<br><br></td></tr>";
out<<EOF;
<tr>
<td width=150><font face=verdana size=-1>
Veranstaltungsdatum:</td>
<td width=350><font face=verdana size=-1>
$_put{Datum}</td>
</tr>
<tr>
<td width=150><font face=verdana size=-1>
Anzahl:</td>
<td width=350><font face=verdana size=-1>
$_put{Anzahl}</td>
</tr>
<tr><td colspan=2 bgcolor=e5e5e5>
<font face=verdana size=-1>
<u><b>Bestellerdaten</u></b>
</td></tr>
<tr>
<td width=150><font face=verdana size=-1>
Vorname:</td>
<td width=350><font face=verdana size=-1>
$_put{Vorname}</td>
</tr>
<tr>
<td width=150><font face=verdana size=-1>
Name:</td>
<td width=350><font face=verdana size=-1>
$_put{Name}</td>
</tr>
......
EOF
out "</td></tr></table>";
}
}
}
{
$senddat=datum('jetzt', 'intern');
$resdat=datum("jetzt", "lang");
if($cmd eq "add")
{
mail "$_put{Email}", "Ticketreservierung", "
Vielen Dank für Ihre Ticketreservierung.
Datum: $_put{Datum}
Anzahl: $_put{Anzahl}
.....
