X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/2c54fff80c11b1b174d7b48a8d505066942db699..5ca497d53b8c09d4598fd73a5e73a032cf6731df:/SL/Layout/Javascript.pm diff --git a/SL/Layout/Javascript.pm b/SL/Layout/Javascript.pm index c63b1f7c7..2cda0f459 100644 --- a/SL/Layout/Javascript.pm +++ b/SL/Layout/Javascript.pm @@ -110,10 +110,13 @@ sub create_menu { my $form = $main::form; my %myconfig = %main::myconfig; + $depth ||= 0; + die if ($depth * 1 > 5); my @menuorder = $menu->access_control(\%myconfig, $parent); $parent .= "--" if ($parent); + $parent ||= ''; foreach my $name (@menuorder) { substr($name, 0, length($parent), "");