Revision ed944ca3
Von Sven Schöling vor etwa 15 Jahren hinzugefügt
| SL/Menu.pm | ||
|---|---|---|
| 400 | 400 |
|
| 401 | 401 |
$self->{ORDER} = [ grep { $self->{$_}->{VISIBLE} } @{ $self->{ORDER} } ];
|
| 402 | 402 |
|
| 403 |
{ no strict 'refs';
|
|
| 404 |
# ToDO: fix this. nuke and pave algorithm without type checking screams for problems. |
|
| 403 | 405 |
map { delete @{$self->{$_}}{qw(GRANTED IS_MENU NUM_VISIBLE_CHILDREN VISIBLE ACCESS)} if ($_ ne 'ORDER') } keys %{ $self };
|
| 406 |
} |
|
| 404 | 407 |
} |
| 405 | 408 |
|
| 406 | 409 |
sub dump_visible {
|
Auch abrufbar als: Unified diff
Bugfix in SL/Menu und weitere stricts.