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

diff --git a/SL/AccTransCorrections.pm b/SL/AccTransCorrections.pm
index fff16f759e3489b0e18bfd52e771f51eaba58ebf..2ecad9fb8f492cfa4e7ce71ea53c491678517795 100644 (file)
--- a/SL/AccTransCorrections.pm
+++ b/SL/AccTransCorrections.pm
@@ -779,7 +779,7 @@ sub fix_ap_ar_wrong_taxkeys {
   }
 
   if (scalar @corrections) {
   }
 
   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);
 
       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 1d3065c2a3ccd6a0476824f404e28726bfe68edc..9e3806a05b1878cc967b0fbe54e60371eee180e7 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();
 
   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 };
     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 };