Upgrade-Script für alte SQL-Ledger -> Lx-Office 1.0 entfernt

[mfinanz.git] / SL / Dispatcher.pm

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 1261aa72b75632ca44434b0e2e7212a4712e5118..8329c5b75abb0406b141582968514f96e108d0a9 100644 (file)
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -235,7 +235,7 @@ sub handle_request {
   eval {
     pre_request_checks(script => $script, action => $action, routing_type => $routing_type, script_name => $script_name);
 
-    if (   (-e ($::lx_office_conf{paths}->{userspath} . "/nologin"))
+    if (   SL::System::InstallationLock->is_locked
         && !is_admin_request(script => $script, script_name => $script_name, routing_type => $routing_type)) {
       $::form->error($::locale->text('System currently down for maintenance!'));
     }
@@ -251,6 +251,9 @@ sub handle_request {
     if (($script eq 'login') && !$action) {
       print $::request->{cgi}->redirect('controller.pl?action=LoginScreen/user_login');
 
+    } elsif ($script eq 'admin') {
+      ::run($session_result);
+
     } else {
       $self->redirect_to_login($script) if SL::Auth::SESSION_EXPIRED == $session_result;