From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 20 Mar 2008 09:13:33 +0000 (+0000)
Subject: Wenn get_standard_dbh() merkt, dass $standard_dbh zwar definiert ist aber zwischenzei... 
X-Git-Tag: release-2.6.0beta1~177
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=de06210fe6ecd2e6260823bc57b73c39c4539845;p=kivitendo-erp.git

Wenn get_standard_dbh() merkt, dass $standard_dbh zwar definiert ist aber zwischenzeitlich geschlossen wurde, dann eine Warnung ausgeben und eine neue Verbindung aufbauen.
---

diff --git a/SL/Form.pm b/SL/Form.pm
index 37c60e96e..65be2584c 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1412,6 +1412,11 @@ sub get_standard_dbh {
 
   my ($self, $myconfig) = @_;
 
+  if ($standard_dbh && !$standard_dbh->{Active}) {
+    $main::lxdebug->message(LXDebug::INFO, "get_standard_dbh: \$standard_dbh is defined but not Active anymore");
+    undef $standard_dbh;
+  }
+
   $standard_dbh ||= $self->dbconnect_noauto($myconfig);
 
   $main::lxdebug->leave_sub(2);