#! /usr/bin/perl -w
# adr_ein.pl - mehrseitiges Adress-Verzeichnis

use strict;
use DBI;
use CGI;
use CGI qw(:standard escapeHTML escape);
use lib qw(/home/web0rlsd2/www/cgi-bin/lib/Date);
use Date::Manip;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use lib qw(/home/web0rlsd2/www/cgi-bin/lib);
use WebDB;

my $q = CGI::new();
warningsToBrowser(1);
print $q->header (-type => "text/html", -status => "200 OK");
print $q->start_html(-title=>"Shop Artikel ändern",-style =>{'src'=>'/default.css'});
print        h1("Shop Artikel ändern");

my $aktion = lc (param ("aktion"));

if ($aktion eq "")
{
        suche ();
}
elsif ($aktion eq "absenden")
{
       my $st = param('st');
       my $wo = param('wo');
        anzeigen("$st","%","$wo");
}
elsif ($aktion eq "löschen")
{
      loesch ();

}
elsif ($aktion eq "speichern")
{
          #my $q;
          my $ArtIDA = $q->param('ArtIDA');
          my $ArtNr = $q->param('ArNr');
          my $dat2 = $q->param('ArGruppe');
          my $dat3 = $q->param('ArNGruppe');
          my $dat4 = $q->param('ArTitel');
          my $dat5 = $q->param('ArText');
          my $dat6 = $q->param('ArPreis');
          my $dat7 = $q->param('ArMWSt');
          my $dat8 = $q->param('ArRabatt');
          my $dat9 = $q->param('ArEigenschaften');
          my $dat10 = $q->param('ArBildklein');
          my $dat11 = $q->param('ArBildgross');
         speichern("$ArtNr","$dat2","$dat3","$dat4","$dat5","$dat6","$dat7","$dat8","$dat9","dat10","dat11","$ArtIDA");
}
elsif ($aktion eq "daten löschen")
{          my $ArtIDA = param('ArtIDA');
          del("$ArtIDA");
}
else
{
        print p (escapeHTML ("Fehler in der Programm-Logik: $aktion?"));
}

print end_html ();

exit (0);

# ----------------------------------------------------------------------
sub suche
{
print start_form (-action => url ()),
     table (
          Tr (
                td ("Kategorie:"),
                td (popup_menu (-name => 'wo',
                               -values => ["ArtID","ArtTitel"],
                               -labels => {"a1" => "ArtID","b1" => "ArtTitel"},
                               ))
            ),
          Tr (
                td ("Suchbegriff:"),
                td (textfield (-name => 'st',
                               -size => 60))
            ),
),
        br (),
        submit (-name => "aktion", -value => "Absenden"),
        " ",

        end_form ();

        print p hr();
}
# ----------------------------------------------------------------------

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 => 'ArNr',
                              -size => 15,
                              -value => $hash{'ArtNr'}))
           ),
           Tr (
               td ("ArtGruppe"),
               td (textfield (-name => 'ArGruppe',
                              -size => 5,
                              -value => $hash{'ArtGruppe'}))
           ),
           Tr (
               td ("ArtNGruppe"),
               td (textfield (-name => 'ArNGruppe',
                              -size => 5,
                              -value => $hash{'ArtNGruppe'}))
           ),
           Tr (
               td ("ArtTitel:"),
               td (textfield (-name => 'ArTitel',
                              -size => 60,
                              -value => $hash{'ArtTitel'}))
           ),
            Tr (
               td ("ArtText:"),
               td (textarea (-name => 'ArText',
                              -cols => 60, -rows => 4,
                              -value => $hash{'ArtText'}))
           ),
           Tr (
               td ("ArtPreis:"),
               td (textfield (-name => 'ArPreis',
                              -size => 15,
                              -value => $hash{'ArtPreis'}))
           ),
           Tr (
               td ("ArtMWSt:"),
               td (textfield (-name => 'ArMWSt',
                              -size => 15,
                              -value => $hash{'ArtMWSt'}))
           ),
           Tr (
               td ("ArtRabatt:"),
               td (textfield (-name => 'ArRabatt',
                              -size => 15,
                              -value => $hash{'ArtRabatt'}))
           ),
           Tr (
               td ("ArtEigenschaften:"),
               td (textfield (-name => 'ArEigenschaften',
                              -size => 15,
                              -value => $hash{'ArtEigenschaften'}))
           ),
          Tr (
               td ("ArtBildklein:"),
               td (textfield (-name => 'ArBildklein',
                              -size => 25,
                              -value => $hash{'ArtBildklein'}))
           ),
           Tr (
               td ("ArtBildgross:"),
               td (textfield (-name => 'ArBildgross',
                              -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
{
# Objekt erstellen falls noch nicht geschehen
# Alle Parameter ins Hash %v
my $dbh;
my $sth;
my $ref;
my %params =$q->Vars();
my $IDA = $params{ArtIDA};

$dbh = WebDB::connect();
$dbh->do ("UPDATE shop1_artikel_1 SET ArtNr = '$params{ArNr}',ArtGruppe = '$params{ArGruppe}',ArtNGruppe = '$params{ArNGruppe}', ArtTitel = '$params{ArTitel}',ArtText = '$params{ArText}',ArtPreis = '$params{ArPreis}',ArtMWSt = '$params{ArMWSt}',ArtRabatt = '$params{ArRabatt}',ArtEigenschaften = '$params{ArEigenschaften}',ArtBildklein = '$params{ArBildklein}',ArtBildgross = '$params{ArBildgross}' WHERE ArtID = $IDA");

$dbh->disconnect ();
print "Der Datenstz mit der ArtikelID $IDA wurde gespeichert\n";
print "ArtNr = '$params{ArNr}',ArtGruppe = '$params{ArGruppe}',ArNGruppe = '$params{ArNGruppe}', ArtTitel = '$params{ArTitel}',ArtText = '$params{ArText}',ArtPreis = '$params{ArPreis}',ArtMWSt = '$params{ArMWSt}',ArtRabatt = '$params{ArRabatt}',ArtEigenschaften = '$params{ArEigenschaften}',ArtBildklein = '$params{ArBildklein}',ArBildgross = '$params{ArBildgross}"
}

#--------------------------------------------------------------------------
sub loesch
{
my $url;
reset ();
$url= "http://www.fotos.ronaldl.de/cgi-bin/shopadmin/aend2.pl";
print a ({-href => $url}, "<h5><u>Das Formular wurde geleert.\n Bitte hier klicken um es neu zu laden.</u></h5>");
}
#---------------------------------------------------------------------------
sub del()
{
my $dbh;
my $sth;
my $ref;
my ($IDA) = @_;

$dbh = WebDB::connect();

$dbh->do ("DELETE FROM shop1_artikel_1 WHERE ArtID = $IDA ");
$dbh->disconnect ();
print "Der Datenstz mit der ArtikelID $IDA wurde gelöscht";
}
#---------------------------------------------------------------------------