User: single-dbh: vor upgrade nicht mehr disconnecten

diff --git a/SL/User.pm b/SL/User.pm
index 6d671c4..615f670 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -127,7 +127,7 @@ sub login {
 
   my $dbupdater        = SL::DBUpgrade2->new(form => $form)->parse_dbupdate_controls;
   my @unapplied_scripts = $dbupdater->unapplied_upgrade_scripts($dbh);
-  $dbh->disconnect;
+#   $dbh->disconnect;
 
   if (!@unapplied_scripts) {
     SL::DB::Manager::Employee->update_entries_for_authorized_users;