From 5548540b4fa7fc79fbab3ea000861f9a8c7c67e1 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Mon, 4 Jan 2010 15:37:43 +0100
Subject: [PATCH] get_standard_dbh nimmt jetzt myconfig optional. default uf
 die globale.
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

(das war so überfällig)
---
 SL/Form.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/SL/Form.pm b/SL/Form.pm
index 6a5745b43..6d2ae4914 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1580,7 +1580,8 @@ sub dbconnect_noauto {
 sub get_standard_dbh {
   $main::lxdebug->enter_sub(2);
 
-  my ($self, $myconfig) = @_;
+  my $self     = shift;
+  my $myconfig = shift || \%::myconfig;
 
   if ($standard_dbh && !$standard_dbh->{Active}) {
     $main::lxdebug->message(LXDebug->INFO(), "get_standard_dbh: \$standard_dbh is defined but not Active anymore");
-- 
2.20.1