projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Nicht verhindern, dass bei neuem Artikel Artikelnummer manuell vergeben wird
[kivitendo-erp.git]
/
SL
/
OE.pm
diff --git
a/SL/OE.pm
b/SL/OE.pm
index
7a35fa7
..
0fd91a4
100644
(file)
--- a/
SL/OE.pm
+++ b/
SL/OE.pm
@@
-52,7
+52,7
@@
sub transactions {
my ($self, $myconfig, $form) = @_;
# connect to database
my ($self, $myconfig, $form) = @_;
# connect to database
- my $dbh = $form->
dbconnect($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
my $query;
my $ordnumber = 'ordnumber';
my $query;
my $ordnumber = 'ordnumber';
@@
-226,7
+226,6
@@
SQL
}
$sth->finish;
}
$sth->finish;
- $dbh->disconnect;
$main::lxdebug->leave_sub();
}
$main::lxdebug->leave_sub();
}
@@
-658,7
+657,8
@@
sub delete {
my ($self, $myconfig, $form) = @_;
# connect to database
my ($self, $myconfig, $form) = @_;
# connect to database
- my $dbh = $form->dbconnect_noauto($myconfig);
+ my $dbh = $form->get_standard_dbh;
+ $dbh->begin_work;
# delete spool files
my $query = qq|SELECT s.spoolfile FROM status s | .
# delete spool files
my $query = qq|SELECT s.spoolfile FROM status s | .
@@
-702,7
+702,6
@@
sub delete {
do_query($form, $dbh, $query, @values);
my $rc = $dbh->commit;
do_query($form, $dbh, $query, @values);
my $rc = $dbh->commit;
- $dbh->disconnect;
if ($rc) {
my $spool = $::lx_office_conf{paths}->{spool};
if ($rc) {
my $spool = $::lx_office_conf{paths}->{spool};
@@
-1034,7
+1033,7
@@
sub order_details {
my ($self, $myconfig, $form) = @_;
# connect to database
my ($self, $myconfig, $form) = @_;
# connect to database
- my $dbh = $form->
dbconnect($myconfig)
;
+ my $dbh = $form->
get_standard_dbh
;
my $query;
my @values = ();
my $sth;
my $query;
my @values = ();
my $sth;