Speichern geht nicht: Datensatz ändern - speichern geht nicht (Seite 2) (Datenbanken und Verzeichnisdienste)

[thread]3337[/thread]

Speichern geht nicht: Datensatz ändern - speichern geht nicht (Seite 2)

Ronaldl

2003-09-21 13:16

User since
2003-09-09
28 Artikel
BenutzerIn

HAllo Format_c habe da ein Problem,
die daten kommen nicht an.
Hier mal der Relwante Code

Das Formular in dem Ich die DAzten ändere:

Code: (dl )

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();
}

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

Der Aufruf von der Funktion Speichern:

Code: (dl )

elsif ($aktion eq "speichern")
{         my $ArtIDA = param('ArtIDA');
          my $dat1 = param{'ArtNr'};
          my $dat2 = param{'ArtGruppe'};
          my $dat3 = param{'ArtNGruppe'};
          my $dat4 = param{'ArtTitel'};
          my $dat5 = param{'ArtText'};
          my $dat6 = param{'ArtPreis'};
          my $dat7 = param{'ArtMWSt'};
          my $dat8 = param{'ArtRabatt'};
          my $dat9 = param{'ArtEigenschaften'};
          my $dat10 = param{'ArtBildklein'};
          my $dat11 = param{'ArtBildgross'};
         speichern("$dat1","$dat2","$dat3","$dat4","$dat5","$dat6","$dat7","$dat8","$dat9","dat10","dat11","$ArtIDA");

Die Subroutine Speichern:

Code: (dl )

sub  speichern
{
# Objekt erstellen falls noch nicht geschehen
my $cgi = CGI->new();
# Alle Parameter ins Hash %v
my %v = $cgi->Vars();
my $dbh;
my $sth;
my $ref;
my ($da1,$da2,$da3,$da4,$da5,$da6,$da7,$da8,$da9,$da10,$da11,$IDA) = @_;


$dbh = WebDB::connect();
$dbh->do ("UPDATE shop1_artikel_1 SET ArtNr ='$da1',ArtGruppe ='$da2',ArtNGruppe ='$da3', ArtTitel ='$da4',ArtText ='$da5',ArtPreis ='$da6',ArtMWSt ='$da7',ArtRabatt ='$da8',ArtEigenschaften ='$da9',ArtBildklein ='$da10',ArtBildgross ='$da11' WHERE ArtID = '$IDA'");

$dbh->disconnect ();
print "Der Datenstz mit der ArtikelID $IDA wurde gespeichert";
print "$da1,$da2,$da3,$da4,$da5,$da6,$da7,$da8,$da9,$da10,$da11,$IDA"; 
}
#--------------------------------------------------------------------------

Print gibt mir dann folgendes aus :
Der Datenstz mit der ArtikelID 33 wurde gespeichert,,,,,,,,,dat10,dat11,33

woran liegt das ??\n\n

THX ,bis bald Ronald

jan10001

2003-09-21 13:30

User since
2003-08-14
962 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

my $dat8 = param{'ArtRabatt'};

So ist es richtig, am besten wechsel mal die Schriftart deines Editor, dann kannst du besser zwischen ) und } unterscheiden. :)

Ronaldl

2003-09-21 13:47

User since
2003-09-09
28 Artikel
BenutzerIn

hatt ich auch schon gesehen aber nun siehe oben neues problem das mit der schriftaert ist ne prima idee

THX ,bis bald Ronald

format_c

2003-09-23 10:38

User since
2003-08-04
1706 Artikel
HausmeisterIn

Jetzt kappier ich gar nichts mehr.
param ist doch ne Funktion von CGI und wird mit () für die Parameterübergabe aufgerufen.
Also ist param() richtig.
Am Anfang eines jedes CGI Scripts sollte mindestes folgendes zu sehen sein:

Code: (dl )

#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;

my $cgi = CGI::->new();

Jetzt hat man das Objekt über das man die Funktionen der Klasse eindeutiger identifizieren kann als über den Import einer Symboltabelle.
Also $cgi->param('name') ist besser als param('name').

Das hat den Hintergrund, wenn eine andere mit use eingebundene Klasse auch eine Funktion namens param hat (da gibts einige) welche funktion aus welcher Klasse wird dann wohl aufgerufen?
Deswegen gibts Objekte.
Bei wenigen Parametern die übergeben wurden würde ich die param Methode verwenden:

Code: (dl )

1
2

my $value1 = $cgi->param('value1');
my $value2 = $cgi->param('value2');

Bei vielen die Vars-Methode:

Code: (dl )

1
2
3

my %params = $cgi->Vars();
my $value1 = $params{value1};
my $value2 = $params{value2};

Mehr findest du in in perldoc CGI.
Ist wirklich eine gute Dokumentation.
Ich hoffe ich hab dich jetzt nicht vollends verwirrt. ;)

Gruß Alex

Effizente Linuxshell

Ronaldl

2003-10-08 11:19

User since
2003-09-09
28 Artikel
BenutzerIn

Hallo format_c Habe das so umgestzt wie ich es verstanden habe :
Bekomme dann folgende Fehlermeldung:
------------------------------------------------------------------------------------------
---
Shop Artikel ändern
Content-type: text/html
Software error:
Can't call method "param" on an undefined value at aend2.pl line 40.

For help, please send mail to the webmaster (webmaster@fotos.ronaldl.de), giving this error message and the time and date of the error.
------------------------------------------------------------------------------------------
---
Hier der Code mal komplett,es geht nur um die "speichern funktion ", der rest funktioniert.

Code: (dl )

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 $cgi;
          my $ArtIDA = $cgi->param('ArtIDA');
          my $dat1 = $cgi->param('ArtNr');
          my $dat2 = $cgi->param('ArtGruppe');
          my $dat3 = $cgi->param('ArtNGruppe');
          my $dat4 = $cgi->param('ArtTitel');
          my $dat5 = $cgi->param('ArtText');
          my $dat6 = $cgi->param('ArtPreis');
          my $dat7 = $cgi->param('ArtMWSt');
          my $dat8 = $cgi->param('ArtRabatt');
          my $dat9 = $cgi->param('ArtEigenschaften');
          my $dat10 = $cgi->param('ArtBildklein');
          my $dat11 = $cgi->param('ArtBildgross');
         speichern("$dat1","$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 => "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
{
# Objekt erstellen falls noch nicht geschehen
my $cgi = CGI->new();
# Alle Parameter ins Hash %v
my $cgi = CGI::->new();
my $dbh;
my $sth;
my $ref;
my %params =$cgi->Vars();
my $IDA = $params{ArtIDA};

$dbh = WebDB::connect();
$dbh->do ("UPDATE shop1_artikel_1 SET ArtNr = $params{ArtNr},ArtGruppe =$params{ArtGruppe},ArtNGruppe =$params{ArtNGruppe}, ArtTitel =$params{ArtTitel},ArtText =$params{ArtText},ArtPreis =$params{ArtPreis},ArtMWSt =$params{ArtMWSt},ArtRabatt =$params{ArtRabatt},ArtEigenschaften =$params{ArtEigenschaften},ArtBildklein =$params{ArtBildklein},ArtBildgross =$params{ArtBildgross} WHERE ArtID = $IDA");

#$sth = $dbh->prepare { "SELECT * FROM shop1_artikel_1 WHERE ArtID = $IDA ");
 #$sth->execute ();
#$ref = $sth->fetchrow_hashref ();
#sth->finish ();
$dbh->disconnect ();
print "Der Datenstz mit der ArtikelID $IDA wurde gespeichert";
#print "$da1,$da2,$da3,$da4,$da5,$da6,$da7,$da8,$da9,$da10,$da11,$IDA"; # hier kommt noch der Richtige wert an.
}
#--------------------------------------------------------------------------
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";
}
#---------------------------------------------------------------------------

THX ,bis bald Ronald

format_c

2003-10-08 12:03

User since
2003-08-04
1706 Artikel
HausmeisterIn

Also du hast das Objekt aus der Klasse CGI so definiert:

Code: (dl )

1
2
3

my $q = CGI::new();
#besser so:
my $q = CGI::->new();

In der elsif-Anweisung deklarierst du $cgi implizit mit undef: my $cgi;
Dann erwartest du von $cgi dass es ein Objekt ist und die Methode param aufrufen soll.
Kann nicht gehen denn $q ist doch das CGI-Objekt. Hast du ja oben defniniert.

Also alle $cgi->param in der elsif-Anweisung durch $q->param ersetzen und das my $cgi; kannst du in der elsif-Anweisung löschen. Dann bitte nochmal probieren.

Gruß alex

Effizente Linuxshell

Strat

2003-10-08 13:21

User since
2003-08-04
5246 Artikel
ModeratorIn

versuch mal:

Code: (dl )

... $dbh->do("REPLACE .... ") or die "Error: $DBI::errstr\n";

anstelle des prepare/executes, was nur fuer SELECT taugt

Eine Fehlerabfrage bei prepare und execute muesste dir sowas eigentlich sagen....

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

Ronaldl

2003-10-08 16:01

User since
2003-09-09
28 Artikel
BenutzerIn

Habe ich getan etwas rumprobiert aber nun eine neue Fehlermeldung_
-----------------------------------------------------------------------
Shop Artikel ändern
Content-type: text/html
Software error:
DBD::mysql::db do failed: You have an error in your SQL syntax near 'ArtGruppe = ,ArtNGruppe =, ArtTitel =,ArtText =,ArtPreis =,ArtMWSt =,ArtRabatt =' at line 1 at aend2.pl line 203.

For help, please send mail to the webmaster (webmaster@fotos.ronaldl.de), giving this error message and the time and date of the error.
------------------------------------------------------------------------------------------
---

Hier der geänderte code:
------------------------

Code: (dl )

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 $dat1 = $q->param('ArtNr');
          my $dat2 = $q->param('ArtGruppe');
          my $dat3 = $q->param('ArtNGruppe');
          my $dat4 = $q->param('ArtTitel');
          my $dat5 = $q->param('ArtText');
          my $dat6 = $q->param('ArtPreis');
          my $dat7 = $q->param('ArtMWSt');
          my $dat8 = $q->param('ArtRabatt');
          my $dat9 = $q->param('ArtEigenschaften');
          my $dat10 = $q->param('ArtBildklein');
          my $dat11 = $q->param('ArtBildgross');
         speichern("$dat1","$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 => "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
{
# Objekt erstellen falls noch nicht geschehen
my $q = CGI::->new();
# 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{ArtNr},ArtGruppe = $params{ArtGruppe},ArtNGruppe =$params{'ArtNGruppe'}, ArtTitel =$params{'ArtTitel'},ArtText =$params{'ArtText'},ArtPreis =$params{'ArtPreis'},ArtMWSt =$params{'ArtMWSt'},ArtRabatt =$params{'ArtRabatt'},ArtEigenschaften =$params{'ArtEigenschaften'},ArtBildklein =$params{'ArtBildklein'},ArtBildgross =$params{'ArtBildgross'} WHERE ArtID = $IDA");

$dbh->disconnect ();
print "Der Datenstz mit der ArtikelID $IDA wurde gespeichert";
#print "$da1,$da2,$da3,$da4,$da5,$da6,$da7,$da8,$da9,$da10,$da11,$IDA"; # hier kommt noch der Richtige wert an.
}
#--------------------------------------------------------------------------
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";
}
#---------------------------------------------------------------------------

THX ,bis bald Ronald

Ronaldl

2003-10-08 16:02

User since
2003-09-09
28 Artikel
BenutzerIn

Zusatz das ist zeile 203

$dbh->do ("UPDATE shop1_artikel_1 SET ArtNr = $params{ArtNr},ArtGruppe = $params{ArtGruppe},ArtNGruppe =$params{'ArtNGruppe'}, ArtTitel =$params{'ArtTitel'},ArtText =$params{'ArtText'},ArtPreis =$params{'ArtPreis'},ArtMWSt =$params{'ArtMWSt'},ArtRabatt =$params{'ArtRabatt'},ArtEigenschaften =$params{'ArtEigenschaften'},ArtBildklein =$params{'ArtBildklein'},ArtBildgross =$params{'ArtBildgross'} WHERE ArtID = $IDA");

THX ,bis bald Ronald

renee

2003-10-08 16:25

User since
2003-08-04
14371 Artikel
ModeratorIn

mach mal aus

Code: (dl )

ArtTitel =$params{'ArtTitel'},

das hier:

Code: (dl )

ArtTitel ='$params{ArtTitel}',

natürlich auch bei den anderen...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

View all threads created 2003-09-20 10:04.