X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenujs.pl;h=54637216c00b0c30748e41159472dfcfc3857dbe;hb=8a2d9daf01083e1271cf6118591bb2c242734261;hp=37e083c738afa69e593aeb52eafae690a263b073;hpb=91e45c035d896c80b7405a037ded84fc89e28c5a;p=kivitendo-erp.git diff --git a/bin/mozilla/menujs.pl b/bin/mozilla/menujs.pl index 37e083c73..54637216c 100644 --- a/bin/mozilla/menujs.pl +++ b/bin/mozilla/menujs.pl @@ -35,7 +35,9 @@ # 2004-12-14 - Holger Lindemann ####################################################################### -$menufile = "menu.ini"; +use utf8; +use strict; + use SL::Menu; use CGI::Carp qw(fatalsToBrowser); @@ -45,6 +47,11 @@ use CGI::Carp qw(fatalsToBrowser); sub display { + my $form = $main::form; + + $form->{callback} = $form->unescape($form->{callback}); + $form->{callback} ||= "login.pl?action=company_logo"; + $form->header; &clock_line; @@ -52,7 +59,7 @@ sub display { &acc_menu; print qq| - @@ -65,15 +72,15 @@ sub display { sub clock_line { - $fensterlink="menujs.pl?login=$form->{login}&password=$form->{password}&action=display"; - $fenster = "["."neues Fenster]"; + my $form = $main::form; - $login = "[Nutzer " + my $fensterlink="menujs.pl?action=display"; + my $fenster = "["."neues Fenster]"; + + my $login = "[Nutzer " . $form->{login} - . " - {"password"} - . "&action=logout\" target=\"_top\">" - . $locale->text('Logout') + . " - " + . $::locale->text('Logout') . "] "; my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) @@ -90,14 +97,14 @@ sub clock_line { "April", "Mai", "Juni", "Juli", "August", "September", "Oktober", "November", "Dezember"); - $datum = + my $datum = $Wochentage[$Wochentag] . ", der " . $Monatstag . "." . $Monat . "." . $Jahr . " - "; #$zeit="
".$Stunden.":".$Minuten.":".$Sekunden."
"; - $zeit = "
" . $Stunden . ":" . $Minuten . "
"; + my $zeit = "
" . $Stunden . ":" . $Minuten . "
"; print qq| @@ -353,7 +363,7 @@ function moveRoot() { |; print qq| - + |; } @@ -361,19 +371,23 @@ function moveRoot() { sub section_menu { my ($menu, $level) = @_; + my $form = $main::form; + my %myconfig = %main::myconfig; + # build tiered menus my @menuorder = $menu->access_control(\%myconfig, $level); - $main = 0; + my $main = 0; #$pm=0; - $shlp=0; + my $shlp=0; + my (%mlz, $sm, $z, $pm, $mm); while (@menuorder) { - $item = shift @menuorder; - $label = $item; - $ml = $item; + my $item = shift @menuorder; + my $label = $item; + my $ml = $item; $label =~ s/$level--//g; $ml =~ s/--.*//; - $label = $locale->text($label); + $label = $::locale->text($label); $label =~ s/ / /g; $menu->{$item}{target} = "main_window" unless $menu->{$item}{target}; @@ -381,12 +395,12 @@ sub section_menu { $menu->{$item}{$item} = !$form->{$item}; # Untermen - if ($mlz{"s$ml"} > 1) { - $z++; - $sm = 1; - } else { - $z = $sm; - $mlz{"s$ml"}++; + if ($mlz{"s$ml"} > 1) { + $z++; + $sm = 1; + } else { + $z = $sm; + $mlz{"s$ml"}++; } print qq|menu[$mlz{$ml}][$z] = new Item('$label', '#', '', defLength, 0, | @@ -402,9 +416,9 @@ sub section_menu { } else { if ($menu->{$item}{module}) { - #Untermenüpunkte - $target = $menu->{$item}{target}; - $uri = $menu->menuitem_js(\%myconfig, \%$form, $item, $level); + #Untermenüpunkte + my $target = $menu->{$item}{target}; + my $uri = $menu->menuitem_js(\%myconfig, \%$form, $item, $level); print qq|menu[$pm][$sm] = new Item('$label', '$uri', '$target', defLength, 0, 0);\n|; @@ -416,9 +430,9 @@ sub section_menu { %mlz = ($ml, $pm, "s$ml", 1); $shlp = $sm; $sm = 1; - $breit = 15 + length($label) * 6; + my $breit = 15 + length($label) * 6; print - qq|menu[0][$mm] = new Item(' $label', '#', '', $breit, 10, $pm); \n|; + qq|menu[0][$mm] = new Item(' $label', '#', '', $breit, 10, $pm); \n|; print qq|menu[$pm] = new Array();\n|; print qq|menu[$pm][0] = new Menu(true, '>', 0, 20, 180, defOver, defBack, 'itemBorder', 'itemText');\n|;