Revision 471d166b
Von Bernd Bleßmann vor mehr als 6 Jahren hinzugefügt
| SL/Menu.pm | ||
|---|---|---|
| 180 | 180 |
|
| 181 | 181 |
my $access = $node->{access};
|
| 182 | 182 |
|
| 183 |
while ($access =~ m/^([a-z_\/]+|\||\&|\(|\)|\s+)/) {
|
|
| 183 |
while ($access =~ m/^([a-z_\/]+|\!|\||\&|\(|\)|\s+)/) {
|
|
| 184 | 184 |
my $token = $1; |
| 185 | 185 |
substr($access, 0, length($1)) = ""; |
| 186 | 186 |
|
| ... | ... | |
| 199 | 199 |
} |
| 200 | 200 |
$cur_ary = $stack[-1]; |
| 201 | 201 |
|
| 202 |
} elsif (($token eq "|") || ($token eq "&")) {
|
|
| 202 |
} elsif (($token eq "|") || ($token eq "&") || ($token eq "!")) {
|
|
| 203 | 203 |
push @{$cur_ary}, $token;
|
| 204 | 204 |
|
| 205 | 205 |
} else {
|
| ... | ... | |
| 273 | 273 |
} |
| 274 | 274 |
|
| 275 | 275 |
1; |
| 276 |
|
|
Auch abrufbar als: Unified diff
SL::Menu: Negierung (!) beim access_string erlauben
und Tests hierzu