From: Sven Schöling <s.schoeling@linet-services.de>
Date: Wed, 28 Aug 2013 14:30:30 +0000 (+0200)
Subject: Keine Datenbankhandle aufmachen und dann nicht zumachen.
X-Git-Tag: release-3.1.0beta1~75
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=9da45b829bedb62872220846b5f2685b359e8f81;p=kivitendo-erp.git

Keine Datenbankhandle aufmachen und dann nicht zumachen.

Teilfix für #2349
---

diff --git a/SL/Form.pm b/SL/Form.pm
index d040b5675..e28c35376 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1422,7 +1422,7 @@ sub date_closed {
   $main::lxdebug->enter_sub();
 
   my ($self, $date, $myconfig) = @_;
-  my $dbh = $self->dbconnect($myconfig);
+  my $dbh = $self->get_standard_dbh;
 
   my $query = "SELECT 1 FROM defaults WHERE ? < closedto";
   my $sth = prepare_execute_query($self, $dbh, $query, conv_date($date));
@@ -1455,7 +1455,7 @@ sub date_max_future {
   $main::lxdebug->enter_sub();
 
   my ($self, $date, $myconfig) = @_;
-  my $dbh = $self->dbconnect($myconfig);
+  my $dbh = $self->get_standard_dbh;
 
   my $query = "SELECT 1 FROM defaults WHERE ? - current_date > max_future_booking_interval";
   my $sth = prepare_execute_query($self, $dbh, $query, conv_date($date));