From c078749ac84160099a6bca79c288f4f11e871eb8 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Bernd=20Ble=C3=9Fmann?= Date: Fri, 30 Sep 2016 10:59:50 +0200 Subject: [PATCH] =?utf8?q?GL=20u.=20AccTransCorrections:=20signle-dbh:=20"?= =?utf8?q?client"=20hinzugef=C3=BCgt=20bei=20with=5Ftransaction?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/AccTransCorrections.pm | 2 +- SL/GL.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/SL/AccTransCorrections.pm b/SL/AccTransCorrections.pm index fff16f759..2ecad9fb8 100644 --- a/SL/AccTransCorrections.pm +++ b/SL/AccTransCorrections.pm @@ -779,7 +779,7 @@ sub fix_ap_ar_wrong_taxkeys { } if (scalar @corrections) { - SL::DB->with_transaction(sub { + SL::DB->client->with_transaction(sub { my $q_taxkey_only = qq|UPDATE acc_trans SET taxkey = ? WHERE acc_trans_id = ?|; my $h_taxkey_only = prepare_query($form, $dbh, $q_taxkey_only); diff --git a/SL/GL.pm b/SL/GL.pm index 1d3065c2a..9e3806a05 100644 --- a/SL/GL.pm +++ b/SL/GL.pm @@ -50,7 +50,7 @@ sub delete_transaction { my ($self, $myconfig, $form) = @_; $main::lxdebug->enter_sub(); - SL::DB->with_transaction(sub { + SL::DB->client->with_transaction(sub { do_query($form, SL::DB->client->dbh, qq|DELETE FROM gl WHERE id = ?|, conv_i($form->{id})); 1; }) or do { die SL::DB->client->error }; -- 2.20.1