GenericTranslations: single-dbh

diff --git a/SL/GenericTranslations.pm b/SL/GenericTranslations.pm
index a509212a3f7422ff68687dcca1103651bea8593a..4f33ab4121c0f58396948a89f4eeefef31f0c683 100644 (file)
--- a/SL/GenericTranslations.pm
+++ b/SL/GenericTranslations.pm
@@ -1,6 +1,7 @@
 package GenericTranslations;
 
 use SL::DBUtils;
 package GenericTranslations;
 
 use SL::DBUtils;

+use SL::DB;

 
 use strict;
 
 
 use strict;
 


@@ -90,8 +91,16 @@ sub list {
 }
 
 sub save {
 }
 
 sub save {

+  my ($self, %params) = @_;

   $main::lxdebug->enter_sub();
 
   $main::lxdebug->enter_sub();
 

+  my $rc = SL::DB->client->with_transaction(\&_save, %params);
+
+  $::lxdebug->leave_sub;
+  return $rc;
+}
+
+sub _save {

   my $self     = shift;
   my %params   = @_;
 
   my $self     = shift;
   my %params   = @_;
 


@@ -100,7 +109,7 @@ sub save {
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
 
   my $myconfig = \%main::myconfig;
   my $form     = $main::form;
 

-  my $dbh      = $params{dbh} || $form->get_standard_dbh($myconfig);
+  my $dbh      = $params{dbh} || SL::DB->client->dbh;

 
   $params{translation} =~ s/^\s+//;
   $params{translation} =~ s/\s+$//;
 
   $params{translation} =~ s/^\s+//;
   $params{translation} =~ s/\s+$//;


@@ -139,9 +148,7 @@ sub save {
     do_query($form, $dbh, $q_insert, @v_insert);
   }
 
     do_query($form, $dbh, $q_insert, @v_insert);
   }
 

-  $dbh->commit() unless ($params{dbh});
-
-  $main::lxdebug->leave_sub();
+  return 1;

 }
 
 
 }