X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=SL%2FMenu.pm;h=5da42e64a06443e3932c839a1aaa02bb2d04875f;hb=f51616ce7f8679b93113f296113932bc63917d06;hp=bef5242667c02080a643f4b76919254f24f01445;hpb=ff7976ff7cd8a0a703168b85e4150d68dbee77c3;p=kivitendo-erp.git
diff --git a/SL/Menu.pm b/SL/Menu.pm
index bef524266..5da42e64a 100644
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -69,7 +69,7 @@ sub menuitem {
my $level = $form->escape($item);
my $str =
- qq|{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
+ qq|{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
my @vars = qw(module action target href);
@@ -150,8 +150,11 @@ sub access_control {
@menu = grep { /^${menulevel}--/ } @{ $self->{ORDER} };
}
- my @a = split /;/, $myconfig->{acs};
- my %excl;
+ my @a = split /;/, $myconfig->{acs};
+ my $excl = ();
+
+ # remove --AR, --AP from array
+ grep { ($a, $b) = split /--/; s/--$a$//; } @a;
map { $excl{$_} = 1 } @a;