projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Falscher Namensraum: $form in $self umgewandelt in der Form.pm
[kivitendo-erp.git]
/
SL
/
Menu.pm
diff --git
a/SL/Menu.pm
b/SL/Menu.pm
index
bef5242
..
5da42e6
100644
(file)
--- a/
SL/Menu.pm
+++ b/
SL/Menu.pm
@@
-69,7
+69,7
@@
sub menuitem {
my $level = $form->escape($item);
my $str =
my $level = $form->escape($item);
my $str =
- qq|<a href=$module?path=$form->{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
+ qq|<a
style="vertical-align:top"
href=$module?path=$form->{path}&action=$action&level=$level&login=$form->{login}&password=$form->{password}|;
my @vars = qw(module action target href);
my @vars = qw(module action target href);
@@
-150,8
+150,11
@@
sub access_control {
@menu = grep { /^${menulevel}--/ } @{ $self->{ORDER} };
}
@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;
map { $excl{$_} = 1 } @a;