X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenujs.pl;h=f4455d606a818f73a7702176d77794f7ee24ee48;hb=a2777d1ab70c9789131e9ad966f94a4ddf301bd2;hp=6e5b433883fd1b32e16b3293772b010651363060;hpb=84d90a036bc1638f752061d2da80cb5d6e3842cb;p=kivitendo-erp.git diff --git a/bin/mozilla/menujs.pl b/bin/mozilla/menujs.pl index 6e5b43388..f4455d606 100644 --- a/bin/mozilla/menujs.pl +++ b/bin/mozilla/menujs.pl @@ -35,16 +35,25 @@ # 2004-12-14 - Holger Lindemann ####################################################################### -$menufile = "menu.ini"; +my $menufile = "menu.ini"; use SL::Menu; use CGI::Carp qw(fatalsToBrowser); +use strict; + +my $locale; + 1; # end of main 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 +61,7 @@ sub display { &acc_menu; print qq| - @@ -65,10 +74,12 @@ sub display { sub clock_line { - $fensterlink="menujs.pl?action=display"; - $fenster = "["."neues Fenster]"; + my $form = $main::form; + + my $fensterlink="menujs.pl?action=display"; + my $fenster = "["."neues Fenster]"; - $login = "[Nutzer " + my $login = "[Nutzer " . $form->{login} . " - " . $locale->text('Logout') @@ -88,14 +99,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|