"
. $locale->text('Logout')
@@ -90,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|
@@ -361,16 +374,20 @@ function moveRoot() {
sub section_menu {
my ($menu, $level) = @_;
+ my $form = $main::form;
+ my %myconfig = %main::myconfig;
+
# build tiered menus
my @menuorder = $menu->access_control(\%myconfig, $level);
- $main = 0;
+ my $main = 0;
#$pm=0;
- $shlp=0;
+ my $shlp=0;
+ my (%mlz, $sm, $z, $pm, $mm);
while (@menuorder) {
- $item = shift @menuorder;
- $label = $item;
- $ml = $item;
+ my $item = shift @menuorder;
+ my $label = $item;
+ my $ml = $item;
$label =~ s/$level--//g;
$ml =~ s/--.*//;
$label = $locale->text($label);
@@ -382,11 +399,11 @@ sub section_menu {
# Untermen
if ($mlz{"s$ml"} > 1) {
- $z++;
- $sm = 1;
+ $z++;
+ $sm = 1;
} else {
- $z = $sm;
- $mlz{"s$ml"}++;
+ $z = $sm;
+ $mlz{"s$ml"}++;
}
print
qq|menu[$mlz{$ml}][$z] = new Item('$label', '#', '', defLength, 0, |
@@ -403,8 +420,8 @@ sub section_menu {
if ($menu->{$item}{module}) {
#Untermenüpunkte
- $target = $menu->{$item}{target};
- $uri = $menu->menuitem_js(\%myconfig, \%$form, $item, $level);
+ my $target = $menu->{$item}{target};
+ my $uri = $menu->menuitem_js(\%myconfig, \%$form, $item, $level);
print
qq|menu[$pm][$sm] = new Item('$label', '$uri', '$target', defLength, 0, 0);\n|;
@@ -416,9 +433,9 @@ sub section_menu {
%mlz = ($ml, $pm, "s$ml", 1);
$shlp = $sm;
$sm = 1;
- $breit = 15 + length($label) * 6;
+ my $breit = 15 + length($label) * 6;
print
- qq|menu[0][$mm] = new Item(' $label', '#', '', $breit, 10, $pm); \n|;
+ qq|menu[0][$mm] = new Item(' $label', '#', '', $breit, 10, $pm); \n|;
print qq|menu[$pm] = new Array();\n|;
print
qq|menu[$pm][0] = new Menu(true, '>', 0, 20, 180, defOver, defBack, 'itemBorder', 'itemText');\n|;