Nur noch ein DB-Hanlde pro Request zum Client aufmachen

diff --git a/SL/DB.pm b/SL/DB.pm
index f133e6a..f125847 100644 (file)
--- a/SL/DB.pm
+++ b/SL/DB.pm
@@ -34,6 +34,14 @@ sub create {
   return $db;
 }
 
+sub client {
+  create(undef, 'KIVITENDO');
+}
+
+sub auth {
+  create(undef, 'KIVITENDO_AUTH');
+}
+
 sub _register_db {
   my $domain = shift;
   my $type   = shift;

diff --git a/SL/Form.pm b/SL/Form.pm
index fb5dffe..64d09d1 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -1436,7 +1436,7 @@ sub get_standard_dbh {
     undef $standard_dbh;
   }
 
-  $standard_dbh ||= $self->dbconnect_noauto($myconfig);
+  $standard_dbh ||= SL::DB->create(undef, 'KIVITENDO')->dbh;
 
   $main::lxdebug->leave_sub(2);