GL u. AccTransCorrections: signle-dbh: "client" hinzugefügt bei with_transaction

diff --git a/SL/AccTransCorrections.pm b/SL/AccTransCorrections.pm
index fff16f7..2ecad9f 100644 (file)
--- 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 1d3065c..9e3806a 100644 (file)
--- 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 };