#! /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";
}
#---------------------------------------------------------------------------