Revision 5cf977e5
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| bin/mozilla/menu.pl | ||
|---|---|---|
| 70 | 70 |
sub acc_menu {
|
| 71 | 71 |
$lxdebug->enter_sub(); |
| 72 | 72 |
$mainlevel = $form->{level};
|
| 73 |
$mainlevel =~ s/$mainlevel--//g;
|
|
| 73 |
$mainlevel =~ s/\Q$mainlevel\E--//g;
|
|
| 74 | 74 |
my $menu = new Menu "$menufile"; |
| 75 | 75 |
|
| 76 | 76 |
$form->{title} = $locale->text('Accounting Menu');
|
| ... | ... | |
| 106 | 106 |
$item = shift @menuorder; |
| 107 | 107 |
$label = $item; |
| 108 | 108 |
$ml = $item; |
| 109 |
$label =~ s/$level--//g;
|
|
| 109 |
$label =~ s/\Q$level\E--//g;
|
|
| 110 | 110 |
$ml =~ s/--.*//; |
| 111 | 111 |
if ($ml eq $mainlevel) { $zeige = 1; }
|
| 112 | 112 |
else { $zeige = 0; }
|
| ... | ... | |
| 138 | 138 |
|
| 139 | 139 |
if ($menu->{$item}{submenu}) {
|
| 140 | 140 |
$menu->{$item}{$item} = !$form->{$item};
|
| 141 |
if ($form->{level} && $item =~ /^$form->{level}/) {
|
|
| 141 |
if ($form->{level} && $item =~ /^\Q$form->{level}\E/) {
|
|
| 142 | 142 |
|
| 143 | 143 |
# expand menu |
| 144 | 144 |
if ($zeige) {
|
Auch abrufbar als: Unified diff
Quoten von allen in regulären Ausdrücken verwendeten Variablen, die direkt oder indirekt von Benutzereingaben stammen können. Fix für Bug 302.