From: Sven Schöling <s.schoeling@linet-services.de>
Date: Thu, 8 Sep 2016 14:48:25 +0000 (+0200)
Subject: AR: single-dbh disconnects
X-Git-Tag: release-3.5.4~2054
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=98202944b9d7e33813d3996b6b19028e8f5e8041;p=kivitendo-erp.git

AR: single-dbh disconnects
---

diff --git a/SL/AR.pm b/SL/AR.pm
index 3b795d492..b4b686748 100644
--- a/SL/AR.pm
+++ b/SL/AR.pm
@@ -657,7 +657,7 @@ sub get_transdate {
   my ($self, $myconfig, $form) = @_;
 
   # connect to database
-  my $dbh = $form->dbconnect($myconfig);
+  my $dbh = SL::DB->client->dbh;
 
   my $query =
     "SELECT COALESCE(" .
@@ -666,8 +666,6 @@ sub get_transdate {
     "  current_date)";
   ($form->{transdate}) = $dbh->selectrow_array($query);
 
-  $dbh->disconnect;
-
   $main::lxdebug->leave_sub();
 }