From de06210fe6ecd2e6260823bc57b73c39c4539845 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 20 Mar 2008 09:13:33 +0000
Subject: [PATCH] Wenn get_standard_dbh() merkt, dass $standard_dbh zwar
 definiert ist aber zwischenzeitlich geschlossen wurde, dann eine Warnung
 ausgeben und eine neue Verbindung aufbauen.

---
 SL/Form.pm | 5 +++++
 1 file changed, 5 insertions(+)

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);
-- 
2.20.1