Revision ff7976ff
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| SL/Menu.pm | ||
|---|---|---|
| 150 | 150 |
@menu = grep { /^${menulevel}--/ } @{ $self->{ORDER} };
|
| 151 | 151 |
} |
| 152 | 152 |
|
| 153 |
my @a = split /;/, $myconfig->{acs};
|
|
| 154 |
my $excl = (); |
|
| 155 |
|
|
| 156 |
# remove --AR, --AP from array |
|
| 157 |
grep { ($a, $b) = split /--/; s/--$a$//; } @a;
|
|
| 153 |
my @a = split /;/, $myconfig->{acs};
|
|
| 154 |
my %excl; |
|
| 158 | 155 |
|
| 159 | 156 |
map { $excl{$_} = 1 } @a;
|
| 160 | 157 |
|
| ... | ... | |
| 166 | 163 |
return @a; |
| 167 | 164 |
} |
| 168 | 165 |
|
| 166 |
sub generate_acl {
|
|
| 167 |
my ($self, $menulevel, $hash) = @_; |
|
| 168 |
|
|
| 169 |
my @items = $self->access_control(\%main::myconfig, $menulevel); |
|
| 170 |
|
|
| 171 |
$menulevel =~ s/[^A-Za-z_\/\.\+\-]/_/g; |
|
| 172 |
$hash->{"access_" . lc($menulevel)} = 1 if ($menulevel);
|
|
| 173 |
|
|
| 174 |
foreach my $item (@items) {
|
|
| 175 |
$self->generate_acl($item, $hash); #unless ($menulevel); |
|
| 176 |
} |
|
| 177 |
} |
|
| 178 |
|
|
| 169 | 179 |
1; |
| 170 | 180 |
|
Auch abrufbar als: Unified diff
Menü: Zu viele Einträge wurden entfernt, wenn bestimmte Einträge nicht erlaubt sind. [Merge von 1173 aus dem LINET prog Repo]