Wenn get_standard_dbh() merkt, dass $standard_dbh zwar definiert ist aber zwischenzei...

diff --git a/SL/Form.pm b/SL/Form.pm
index 37c60e9..65be258 100644 (file)
--- 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);