X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenunew.pl;h=793cec24eb3c266aca542e02c389df7c9464e2f3;hb=9d60642b51924a3fc44a0108777f0611ae19fb30;hp=b48abc814a41b2b9c124eabc0f69fcd25ad77744;hpb=f20785168580f2d3587ebb2d06ade189246fd5f3;p=kivitendo-erp.git diff --git a/bin/mozilla/menunew.pl b/bin/mozilla/menunew.pl index b48abc814..793cec24e 100644 --- a/bin/mozilla/menunew.pl +++ b/bin/mozilla/menunew.pl @@ -38,11 +38,17 @@ use URI; use SL::Menu; +use strict; + +my $locale; + 1; # end of main sub display { + my $form = $main::form; + $form->header(); # $form->{force_ul_width} = $ENV{HTTP_USER_AGENT} =~ m/MSIE\s+6\./; @@ -52,13 +58,15 @@ sub display { $form->{menu_items} = acc_menu(); my $callback = $form->unescape($form->{callback}); $callback = URI->new($callback)->rel($callback) if $callback; - $callback = "login.pl?action=company_logo" if $callback =~ /^(.\/)?$/; + $callback = "login.pl?action=company_logo" if $callback =~ /^(\.\/)?$/; $form->{callback} = $callback; print $form->parse_html_template("menu/menunew"); } sub clock_line { + my $form = $main::form; + my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time); @@ -81,13 +89,15 @@ sub clock_line { } sub acc_menu { - $locale = Locale->new($language, "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 = Menu->new('menu.ini'); - $AUTOFLUSH = 1; + $English::AUTOFLUSH = 1; my $all_items = []; create_menu($menu, $all_items); @@ -112,6 +122,9 @@ sub create_menu { my ($menu, $all_items, $parent, $depth) = @_; my $html; + my $form = $main::form; + my %myconfig = %main::myconfig; + die if ($depth * 1 > 5); my @menuorder = $menu->access_control(\%myconfig, $parent);