X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FXIII.pm;h=75dfb6142df1dff2f90641500f722715751d4495;hb=f7be5c27b83384d10db241fe454ea103ff9c723d;hp=dccd435d8c3a49bfce44fd3cc2b61ee5de193fef;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git diff --git a/SL/XIII.pm b/SL/XIII.pm index dccd435d8..75dfb6142 100644 --- a/SL/XIII.pm +++ b/SL/XIII.pm @@ -11,13 +11,12 @@ package XIII; - sub retrieve_form { $main::lxdebug->enter_sub(); my ($self, $myconfig, $form) = @_; - my $dbh = $form->dbconnect($myconfig); + my $dbh = $form->dbconnect($myconfig); my $query = qq|SELECT f.line FROM xiii_forms f WHERE f.file = '$form->{file}' @@ -25,13 +24,13 @@ sub retrieve_form { ORDER BY f.oid|; my $sth = $dbh->prepare($query); $sth->execute || $form->dberror($query); - + my $ref; - + while ($ref = $sth->fetchrow_hashref(NAME_lc)) { push @{ $form->{body} }, $ref->{line}; } - + $sth->finish; $dbh->disconnect; @@ -39,8 +38,6 @@ sub retrieve_form { $main::lxdebug->leave_sub(); } - - sub delete_form { $main::lxdebug->enter_sub(); @@ -53,17 +50,16 @@ sub delete_form { WHERE file = '$form->{file}' AND dbname = '$myconfig->{dbname}'|; $dbh->do($query) || $form->dberror($query); - + # commit and redirect $rc = $dbh->commit; $dbh->disconnect; - + $main::lxdebug->leave_sub(); return $rc; } - sub save_form { $main::lxdebug->enter_sub(); @@ -76,13 +72,11 @@ sub save_form { WHERE file = '$form->{file}' AND dbname = '$myconfig->{dbname}'|; $dbh->do($query) || $form->dberror($query); - - + $query = qq|INSERT INTO xiii_forms (line, file, dbname) VALUES (?, '$form->{file}', '$myconfig->{dbname}')|; - - $sth = $dbh->prepare($query); + $sth = $dbh->prepare($query); foreach $line (split /\r/, $form->{body}) { $sth->execute($line) || $form->dberror($query); @@ -97,6 +91,5 @@ sub save_form { return $rc; } - 1;