Globale Variable $::menufile entfernt
authorMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 19 Jan 2011 15:17:44 +0000 (16:17 +0100)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 19 Jan 2011 15:17:44 +0000 (16:17 +0100)
SL/Dispatcher.pm
bin/mozilla/menu.pl
bin/mozilla/menuXML.pl
bin/mozilla/menujs.pl
bin/mozilla/menuv3.pl
bin/mozilla/menuv4.pl

index 3624cec..e0b163a 100644 (file)
@@ -88,7 +88,6 @@ sub pre_startup_setup {
   # canonial globals. if it's not here, chances are it will get refactored someday.
   {
     no warnings 'once';
-    $::menufile    = "menu.ini";
     $::lxdebug     = LXDebug->new;
     $::auth        = SL::Auth->new;
     $::form        = undef;
index 36bdadc..cd0ca0d 100644 (file)
@@ -82,7 +82,7 @@ sub acc_menu {
   $::lxdebug->enter_sub;
 
   my $framesize    = _calc_framesize() - 2;
-  my $menu         = Menu->new($::menufile);
+  my $menu         = Menu->new("menu.ini");
   $mainlevel       = $::form->{level};
   $::form->{title} = $::locale->text('Lx-Office');
   $::form->header;
index 2e7de67..1eed4ed 100644 (file)
@@ -99,7 +99,7 @@ sub acc_menu {
 
   my $mainlevel = $form->{level};
   $mainlevel =~ s/$mainlevel--//g;
-  my $menu = Menu->new($::menufile);
+  my $menu = Menu->new("menu.ini");
 
   $| = 1;
 
index 3ab3cf7..5463721 100644 (file)
@@ -136,7 +136,7 @@ sub acc_menu {
 
   my $mainlevel = $form->{level};
   $mainlevel =~ s/$mainlevel--//g;
-  my $menu = Menu->new($::menufile);
+  my $menu = Menu->new("menu.ini");
 
   $| = 1;
 
index e35a51e..d444b75 100644 (file)
@@ -85,7 +85,7 @@ sub acc_menu {
 
   my $mainlevel = $form->{level};
   $mainlevel =~ s/\Q$mainlevel\E--//g;
-  my $menu = Menu->new($::menufile);
+  my $menu = Menu->new("menu.ini");
 
   $| = 1;
 
index 56d7347..ae82d45 100644 (file)
@@ -87,7 +87,7 @@ sub acc_menu {
 
   my $mainlevel = $form->{level};
   $mainlevel =~ s/\Q$mainlevel\E--//g;
-  my $menu = Menu->new($::menufile);
+  my $menu = Menu->new("menu.ini");
 
   $| = 1;