# ----------------------------------------------------------------------

sub anzeigen
{
my ($buch,$zu, $wo1) = @_;
my ($dbh, $sth, $ref, $anz);
    $dbh = WebDB::connect();

$sth = $dbh->prepare ("SELECT ArtID, Reihenfolge, ArtNr, ArtGruppe, ArtNGruppe, ArtTitel, ArtText, ArtPreis, ArtMWSt, ArtRabatt, ArtEigenschaften, ArtBildklein, ArtBildgross FROM shop1_artikel_1 WHERE $wo1 LIKE '$buch' '$zu' ");
$sth->execute ();
while (my $ref = $sth->fetchrow_hashref ()){
my %hash = %{$ref};
print start_form (-action => url ()),
       table (
       Tr (
               td ("ArtID:"),
               td (textfield (-name => 'ArtIDA',
                              -size => 15,
                              -value => $hash{'ArtID'}))
           ),
           Tr (
               td ("ArtNr:"),
               td (textfield (-name => "name",
                              -size => 15,
                              -value => $hash{'ArtNr'}))
           ),
           Tr (
               td ("ArtGruppe"),
               td (textfield (-name => "name",
                              -size => 5,
                              -value => $hash{'ArtGruppe'}))
           ),
           Tr (
               td ("ArtNGruppe"),
               td (textfield (-name => "name",
                              -size => 5,
                              -value => $hash{'ArtNGruppe'}))
           ),
           Tr (
               td ("ArtTitel:"),
               td (textfield (-name => "name",
                              -size => 60,
                              -value => $hash{'ArtTitel'}))
           ),
            Tr (
               td ("ArtText:"),
               td (textarea (-name => "name",
                              -cols => 60, -rows => 4,
                              -value => $hash{'ArtText'}))
           ),
           Tr (
               td ("ArtPreis:"),
               td (textfield (-name => "name",
                              -size => 15,
                              -value => $hash{'ArtPreis'}))
           ),
           Tr (
               td ("ArtMWSt:"),
               td (textfield (-name => "name",
                              -size => 15,
                              -value => $hash{'ArtMWSt'}))
           ),
           Tr (
               td ("ArtRabatt:"),
               td (textfield (-name => "name",
                              -size => 15,
                              -value => $hash{'ArtRabatt'}))
           ),
           Tr (
               td ("ArtEigenschaften:"),
               td (textfield (-name => "name",
                              -size => 15,
                              -value => $hash{'ArtEigenschaften'}))
           ),
          Tr (
               td ("ArtBildklein:"),
               td (textfield (-name => "name",
                              -size => 25,
                              -value => $hash{'ArtBildklein'}))
           ),
           Tr (
               td ("ArtBildgross:"),
               td (textfield (-name => "name",
                              -size => 25,
                              -value => $hash{'ArtBildgross'}))
           ),
       ),
       br (),
      submit (-name => "aktion", -value => "Speichern"),
       " ",
     submit (-name => "aktion", -value => "Daten Löschen"),
             end_form ();
print p hr();
}

}
# ----------------------------------------------------------------------

sub  speichern
{
my $dbh;
my $sth;
my $ref;
my ($IDA) = @_;
print $IDA; # hier kommt noch der Richtige wert an.

$dbh = WebDB::connect();
$dbh->do ("REPLACE INTO shop1_artikel_1 (Reihenfolge, ArtNr, ArtGruppe, ArtNGruppe, ArtTitel, ArtText, ArtPreis, ArtMWSt, ArtRabatt, ArtEigenschaften, ArtBildklein, ArtBildgross)"."VALUES (?,?,?,?,?,?,?,?,?,?,?,?)",  undef, param ("name"), param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"),param ("name"));

$sth = $dbh->prepare ( "SELECT * FROM shop1_artikel_1 WHERE ArtID = $IDA ");
    $sth->execute ();
    $ref = $sth->fetchrow_hashref ();
    $sth->finish ();
    $dbh->disconnect ();

}
#--------------------------------------------------------------------------