# 2004-12-14 - Holger Lindemann
#######################################################################
+use utf8;
+use strict;
+
use SL::Menu;
use CGI::Carp qw(fatalsToBrowser);
-use strict;
-
1;
# end of main
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);