From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 29 Dec 2010 12:05:32 +0000 (+0100)
Subject: Merge branch 'master' of ssh://lx-office.linet-services.de/~/lx-office-erp
X-Git-Tag: release-2.6.2beta1~46^2
X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/commitdiff_plain/d73a8843d998152d2384a6bb5fd966badcb1e505?hp=d5c0d18a11c012e287f99d74365f42758f7e6b3b

Merge branch 'master' of ssh://lx-office.linet-services.de/~/lx-office-erp
---

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index 98c93d4f4..35284db4b 100644
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -149,16 +149,16 @@ sub handle_request {
   pre_request_checks();
 
   eval {
+    my $session_result = $::auth->restore_session;
+    $::auth->create_or_refresh_session;
+
     $::form->error($::locale->text('System currently down for maintenance!')) if -e "$::userspath/nologin" && $script ne 'admin';
 
     if ($script eq 'login' or $script eq 'admin' or $script eq 'kopf') {
       $::form->{titlebar} = "Lx-Office " . $::locale->text('Version') . " $::form->{version}";
-      ::run($::auth->restore_session);
+      ::run($session_result);
 
     } else {
-      # copy from am.pl routines
-      my $session_result = $::auth->restore_session;
-
       show_error('login/password_error', 'session') if SL::Auth::SESSION_EXPIRED == $session_result;
       %::myconfig = $::auth->read_user($::form->{login});
 
diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index 3a5e810c2..c5c97cd89 100755
--- a/bin/mozilla/admin.pl
+++ b/bin/mozilla/admin.pl
@@ -86,11 +86,6 @@ sub run {
       }
       call_sub($locale->findsub($form->{action}));
     }
-  } elsif ($auth->authenticate_root($form->{rpw}, 0) == $auth->OK()) {
-
-    $auth->create_or_refresh_session() if ($auth->session_tables_present());
-
-    login();
   } else {
     # if there are no drivers bail out
     $form->error($locale->text('No Database Drivers available!'))