X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FDispatcher.pm;h=b4f75ba1bbd860d098acf54553db0d034fe21fa8;hb=d4f9d559a4a4d5e8fa2bb10be268e24634169b5e;hp=fb88af58ef8b50120d9a91ec04b60aef6a5d28e5;hpb=fd574abba34aa0c58882ec32ebadb13551d9e77b;p=kivitendo-erp.git

diff --git a/SL/Dispatcher.pm b/SL/Dispatcher.pm
index fb88af58e..b4f75ba1b 100644
--- a/SL/Dispatcher.pm
+++ b/SL/Dispatcher.pm
@@ -67,15 +67,14 @@ sub pre_startup_setup {
   # dummy globals
   {
     no warnings 'once';
-    $::userspath   = "users";
-    $::templates   = "templates";
-    $::memberfile  = "users/members";
-    $::menufile    = "menu.ini";
-    $::sendmail    = "| /usr/sbin/sendmail -t";
-    $::lxdebug     = LXDebug->new;
-    $::auth        = SL::Auth->new;
-    %::myconfig    = ();
-    %::called_subs = ();
+    $::userspath  = "users";
+    $::templates  = "templates";
+    $::memberfile = "users/members";
+    $::menufile   = "menu.ini";
+    $::sendmail   = "| /usr/sbin/sendmail -t";
+    $::lxdebug    = LXDebug->new;
+    $::auth       = SL::Auth->new;
+    %::myconfig   = ();
   }
 }
 
@@ -103,10 +102,10 @@ sub require_main_code {
     };
     $::form->error($EVAL_ERROR) if ($EVAL_ERROR);
   }
-  if ($::form->{login} && -f "bin/mozilla/$::form->{login}_$::form->{script}") {
+  if ($::form->{login} && -f "bin/mozilla/$::form->{login}_$script") {
     eval {
       package main;
-      require "bin/mozilla/$::form->{login}_$::form->{script}";
+      require "bin/mozilla/$::form->{login}_$script";
     };
     $::form->error($EVAL_ERROR) if ($EVAL_ERROR);
   }
@@ -127,9 +126,10 @@ sub handle_request {
     $script_name = $0;
   }
 
-  $::cgi    = CGI->new('');
-  $::locale = Locale->new($::language);
-  $::form   = Form->new;
+  $::cgi         = CGI->new('');
+  $::locale      = Locale->new($::language);
+  $::form        = Form->new;
+  %::called_subs = ();
 
   eval { ($script_name, $action) = _route_request($script_name); 1; } or return;