X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fmenu.pl;h=976e27e794c20bd0f9c2f6a1313fa0c02db6c94d;hb=919007c2bfb65ec08728d3f647446465860bb7f9;hp=3da92a906b0b683553b8bc0429b108073558b641;hpb=d629acd82a27e980899a044ca8b0f4becc8e94bb;p=kivitendo-erp.git diff --git a/bin/mozilla/menu.pl b/bin/mozilla/menu.pl index 3da92a906..976e27e79 100644 --- a/bin/mozilla/menu.pl +++ b/bin/mozilla/menu.pl @@ -52,10 +52,10 @@ sub display { print qq| - + - - + + You need a browser that can read frames to see this page. @@ -70,11 +70,8 @@ sub display { sub acc_menu { $lxdebug->enter_sub(); $mainlevel = $form->{level}; - $mainlevel =~ s/$mainlevel--//g; + $mainlevel =~ s/\Q$mainlevel\E--//g; my $menu = new Menu "$menufile"; - $menu = new Menu "custom_$menufile" if (-f "custom_$menufile"); - $menu = new Menu "$form->{login}_$menufile" - if (-f "$form->{login}_$menufile"); $form->{title} = $locale->text('Accounting Menu'); @@ -109,7 +106,7 @@ sub section_menu { $item = shift @menuorder; $label = $item; $ml = $item; - $label =~ s/$level--//g; + $label =~ s/\Q$level\E--//g; $ml =~ s/--.*//; if ($ml eq $mainlevel) { $zeige = 1; } else { $zeige = 0; } @@ -141,7 +138,7 @@ sub section_menu { if ($menu->{$item}{submenu}) { $menu->{$item}{$item} = !$form->{$item}; - if ($form->{level} && $item =~ /^$form->{level}/) { + if ($form->{level} && $item =~ /^\Q$form->{level}\E/) { # expand menu if ($zeige) { @@ -201,7 +198,7 @@ sub section_menu { } else { my $ml_ = $form->escape($ml); print - qq|<tr><td class="bg" height="22" align="left" valign="middle" ><img src="image/$item.png" style="vertical-align:middle">&nbsp;<a href="menu.pl?action=acc_menu&level=$ml_&login=$form->{login}&password=$form->{password}" class="nohover">$label</a>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>\n|; + qq|<tr><td class="bg" height="22" align="left" valign="middle" ><img src="image/$item.png" style="vertical-align:middle">&nbsp;<a href="menu.pl?action=acc_menu&level=$ml_" class="nohover">$label</a>&nbsp;&nbsp;&nbsp;&nbsp;</td></tr>\n|; &section_menu($menu, $item); #print qq|<br>\n|;