From: Sven Schöling <s.schoeling@linet-services.de>
Date: Fri, 1 Feb 2013 13:25:34 +0000 (+0100)
Subject: warnings
X-Git-Tag: release-3.1.0beta1~646^2~5
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=5ca497d53b8c09d4598fd73a5e73a032cf6731df;p=kivitendo-erp.git

warnings
---

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), "");