#! /usr/bin/perl -w

use strict;
use CGI qw(:standard escapeHTML);
use CGI::Carp qw(fatalsToBrowser);
use WebDB;

my @element_liste =
(
    { name => "seriennr",
      bez  => "Seriennummer:",   size => 30, muss => 1 },
    { name => "kauf_datum",
      bez  => "Kauf-Datum:",     size => 20, muss => 1 },
    { name => "kauf_ort",
      bez  => "Wo gekauft:",     size => 30 },
    { name => "anrede",
      bez  => "Anrede:",         size => 30 },
    { name => "nach_name",
      bez  => "Nachname:",       size => 30, muss => 1 },
    { name => "vor_name",
      bez  => "Vorname:",        size => 30, muss => 1 },
    { name => "strasse",
      bez  => "Strasse:",        size => 30 },
    { name => "plz",
      bez  => "Postleitzahl:",   size => 10 },
    { name => "ort",
      bez  => "Ort:",            size => 30 },
    { name => "land",
      bez  => "Land:",           size => 2 },
    { name => "tel",
      bez  => "Telefon:",        size => 20 },
    { name => "email",
      bez  => "E-Mail Adresse:", size => 60 }
);

print header (),
        start_html (-title => "Produkt Registrierungs Formular", 
                    -bgcolor => "white"),
        h1("Produkt Registrierungs Formular");
        eingabe_formular_anzeigen (\@element_liste);
print end_html ();

exit (0);

sub eingabe_formular_anzeigen   # v3 mit Tabelle und Sternchen
{
my $element_liste_ref = shift;          
my @zeile;

        print start_form (-action => url ());
        print p ("Bitte geben sie die Registrierungs-Daten "
                        . "ein, und drücken Sie dann den " 
                        . strong ("Absenden") . "-Knopf.");
        print p ("(Felder mit einem Sternchen müssen ausgefüllt werden)");

        foreach my $f (@{$element_liste_ref})
        {
            my $bez = $f->{bez};
            $bez .= "*" if $f->{muss}; # Sternchen hinzufügen
            push (@zeile, Tr (
                        td (escapeHTML ($bez)),
                        td (textfield (-name => $f->{name}, 
                                       -size => $f->{size}))
            ));
        }
        print table (@zeile),
              submit (-name => "aktion", -value => "Absenden"),
              end_form ();

}