# 2004-12-14 - Holger Lindemann
#######################################################################
-my $menufile = "menu.ini";
use SL::Menu;
use CGI::Carp qw(fatalsToBrowser);
use strict;
-my $locale;
-
1;
# end of main
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($::menufile);
$| = 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};