# 2004-12-14 - Holger Lindemann
#######################################################################
+use utf8;
+use strict;
+
use SL::Menu;
use CGI::Carp qw(fatalsToBrowser);
-use strict;
-
1;
# end of main
my $login = "[Nutzer "
. $form->{login}
- . " - <a href=\"login.pl?action=logout\" target=\"_top\">"
+ . " - <a href=\"controller.pl?action=LoginScreen/logout\" target=\"_top\">"
. $::locale->text('Logout')
. "</a>] ";
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
my $mainlevel = $form->{level};
$mainlevel =~ s/$mainlevel--//g;
- my $menu = Menu->new($::menufile);
+ my $menu = Menu->new("menu.ini");
$| = 1;
} else {
if ($menu->{$item}{module}) {
- #Untermenüpunkte
+ #Untermenüpunkte
my $target = $menu->{$item}{target};
my $uri = $menu->menuitem_js(\%myconfig, \%$form, $item, $level);