X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5ca497d53b8c09d4598fd73a5e73a032cf6731df..7288950e16a6706a155a0c2c4e2a512105b041e6:/SL/Menu.pm diff --git a/SL/Menu.pm b/SL/Menu.pm index 57d8b4e8a..0fb1b1a95 100644 --- a/SL/Menu.pm +++ b/SL/Menu.pm @@ -94,7 +94,7 @@ sub access_control { my @menu = (); - if ($menulevel eq "") { + if (!$menulevel) { @menu = grep { !/--/ } @{ $self->{ORDER} }; } else { @menu = grep { /^${menulevel}--/ } @{ $self->{ORDER} };