X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=inline;f=bin%2Fmozilla%2Fmenuv4.pl;h=e9e7ac499995ce14202071e1042a14ec7278385a;hb=8b6ad9a4da005f880abf86378299756cebae75c4;hp=3b736bf41d981469427b9f0fc8da40d71e26252e;hpb=57bf9c89a037036fcf433de39643778854defe51;p=kivitendo-erp.git
diff --git a/bin/mozilla/menuv4.pl b/bin/mozilla/menuv4.pl
index 3b736bf41..e9e7ac499 100644
--- a/bin/mozilla/menuv4.pl
+++ b/bin/mozilla/menuv4.pl
@@ -37,9 +37,6 @@ use URI;
use strict;
-my $menufile = "menu.ini";
-my $locale;
-
1;
# end of main
@@ -47,7 +44,7 @@ my $locale;
sub display {
my $form = $main::form;
- $form->header(qq||);
+ $form->header(extra_code => qq||);
$form->{date} = clock_line();
$form->{menu} = acc_menu();
@@ -88,11 +85,9 @@ sub acc_menu {
my $form = $main::form;
my %myconfig = %main::myconfig;
- $locale = Locale->new($myconfig{countrycode}, "menu");
-
my $mainlevel = $form->{level};
$mainlevel =~ s/\Q$mainlevel\E--//g;
- my $menu = new Menu "$menufile";
+ my $menu = Menu->new("menu.ini");
$| = 1;
@@ -120,7 +115,7 @@ sub print_menu {
next if (($item eq "") || ($item =~ /--/));
my $menu_item = $menu->{"${parent}${item}"};
- my $menu_title = $locale->text($item);
+ my $menu_title = $::locale->text($item);
my $menu_text = $menu_title;
my $target = "main_window";