Revision 7288950e
Von Sven Schöling vor fast 12 Jahren hinzugefügt
SL/Menu.pm | ||
---|---|---|
94 | 94 |
|
95 | 95 |
my @menu = (); |
96 | 96 |
|
97 |
if ($menulevel eq "") {
|
|
97 |
if (!$menulevel) {
|
|
98 | 98 |
@menu = grep { !/--/ } @{ $self->{ORDER} }; |
99 | 99 |
} else { |
100 | 100 |
@menu = grep { /^${menulevel}--/ } @{ $self->{ORDER} }; |
Auch abrufbar als: Unified diff
warnings