X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FMenu.pm;h=044ce9b798ea3a3a05f4a31d05b7821f8079f8ba;hb=a5d5620d468d74e593ee31ece1d7dc3612d14faa;hp=b3ffd0f94e0eb82b216610b206cc6ff101975281;hpb=e98e20941b580769e3f4e6e2bcac60a679b7e06b;p=kivitendo-erp.git
diff --git a/SL/Menu.pm b/SL/Menu.pm
index b3ffd0f94..044ce9b79 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|{login}&password=$form->{password}|;
my @vars = qw(module action target href);
@@ -122,7 +122,7 @@ sub menuitem_v3 {
my $str = qq|escape($form->{$_}); } qw(path login password));
+ map({ $str .= "&${_}=" . $form->escape($form->{$_}); } qw(login password));
my @vars = qw(module action target href);
@@ -176,7 +176,7 @@ sub menuitemNew {
my $level = $form->escape($item);
my $str =
- qq|$module?path=$form->{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
+ qq|$module?action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
my @vars = qw(module action target href);
if ($self->{$item}{href}) {
@@ -215,7 +215,7 @@ sub access_control {
my $excl = ();
# remove --AR, --AP from array
- grep { ($a, $b) = split /--/; s/--$a$//; } @a;
+ grep { ($a, $b) = split(/--/); s/--$a$//; } @a;
map { $excl{$_} = 1 } @a;