From 4f44fd6b4fb34349a74614f6b68a878cc2e2bf27 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Thu, 8 Sep 2016 16:48:14 +0200
Subject: [PATCH] AP: single-dbh disconnects

---
 SL/AP.pm | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/SL/AP.pm b/SL/AP.pm
index 6de1b158b..5839fb563 100644
--- a/SL/AP.pm
+++ b/SL/AP.pm
@@ -565,7 +565,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(" .
@@ -574,8 +574,6 @@ sub get_transdate {
     "  current_date)";
   ($form->{transdate}) = $dbh->selectrow_array($query);
 
-  $dbh->disconnect;
-
   $main::lxdebug->leave_sub();
 }
 
-- 
2.20.1