# 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;
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)
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;
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};
} else {
if ($menu->{$item}{module}) {
- #Untermenüpunkte
+ #Untermenüpunkte
my $target = $menu->{$item}{target};
my $uri = $menu->menuitem_js(\%myconfig, \%$form, $item, $level);