$::cgi entfernt.
[kivitendo-erp.git] / bin / mozilla / menujs.pl
index ef7b2b8..5463721 100644 (file)
 #  2004-12-14 - Holger Lindemann
 #######################################################################
 
-my $menufile = "menu.ini";
-use SL::Menu;
-use CGI::Carp qw(fatalsToBrowser);
-
+use utf8;
 use strict;
 
-my $locale;
+use SL::Menu;
+use CGI::Carp qw(fatalsToBrowser);
 
 1;
 
@@ -82,7 +80,7 @@ sub clock_line {
   my $login = "[Nutzer "
     . $form->{login}
     . " - <a href=\"login.pl?action=logout\" target=\"_top\">"
-    . $locale->text('Logout')
+    . $::locale->text('Logout')
     . "</a>] ";
   my ($Sekunden, $Minuten,   $Stunden,   $Monatstag, $Monat,
       $Jahr,     $Wochentag, $Jahrestag, $Sommerzeit)
@@ -136,10 +134,9 @@ sub acc_menu {
   my $form     = $main::form;
   my %myconfig = %main::myconfig;
 
-  $locale = Locale->new($myconfig{countrycode}, "menu");
   my $mainlevel = $form->{level};
   $mainlevel =~ s/$mainlevel--//g;
-  my $menu = new Menu "$menufile";
+  my $menu = Menu->new("menu.ini");
 
   $| = 1;
 
@@ -390,7 +387,7 @@ sub section_menu {
     my $ml    = $item;
     $label =~ s/$level--//g;
     $ml    =~ s/--.*//;
-    $label = $locale->text($label);
+    $label = $::locale->text($label);
     $label =~ s/ /&nbsp;/g;
     $menu->{$item}{target} = "main_window" unless $menu->{$item}{target};
 
@@ -419,7 +416,7 @@ sub section_menu {
     } else {
       if ($menu->{$item}{module}) {
 
-        #Untermenüpunkte
+        #Untermenüpunkte
         my $target = $menu->{$item}{target};
         my $uri    = $menu->menuitem_js(\%myconfig, \%$form, $item, $level);