<perl>
# Den Perl-Teil an den Anfang des Templates, weil hier die Variablen-
# und Hashwerte komplett zur Verfügung stehen
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -#
# Den per Formular übergebenen Datumswert in ne Zwischenvariable speichern
# damit er später nicht überschrieben wird und damit verloren geht
$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", "reservierungen", "hol_ds";
while(get_next("hol_ds")){ # und zusammenzählen wieviele schon am Datum bestellt sind
$gesamt += $Anzahl;
}
# Ausgabe wieviel Bestellungen vorliegen, nur zur Kontrolle
out "Es liegen bereits $gesamt Bestellungen vor<br>";
$frei = 100 - $gesamt; # freie Bestellungen berechnen
if ($frei < $Anzahl){ # wenn mehr geordert als da
out "Es sind nur $frei Plätze noch da<br>";
} elsif ($frei <= 0){ # keine mehr da
out "Keine Plätze mehr<br>";
} else { # ok
  # wenn Formularwerte übergeben wurden und Parameter cmd Wert "add" hat
  if (%_put && $cmd eq "add") {
     put undef, "reservierungen"; # Speichern, Werte aus dem put-Hash nehmen (undef)
  }
  out "Vielen Dank, Ihre Bestellung wurde aufgenommen!";
}

<!-- --------------------------------------------------- -->
<!-- Formula erst jetzt ausgeben , weil hier egal ist, wie die -->
<!-- Variablenwerte überschrieben werden -->
<form action="$_link" method=post enctype="multipart/form-data">
<input type="hidden" name="cmd=" value="add">
Datum:<SELECT NAME="Datum:=">
<loop db=resbuch>
<OPTION VALUE="$Datum">$Datum</OPTION>
</loop>
</SELECT>
Anzahl: <INPUT TYPE=TEXT NAME="Anzahl:=" size=5>
Name:<INPUT TYPE=TEXT NAME="Name:=">
Email: <INPUT TYPE=TEXT NAME="Email:=">

</form>
<!-- -------------------------------------------------- -->