warnings

diff --git a/SL/Layout/Javascript.pm b/SL/Layout/Javascript.pm
index c63b1f7c7ac0a031095f72113c7d391d6e7f2511..2cda0f45916e31f7f3b39f1075e55b72d95d3f59 100644 (file)
--- 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;
 
   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);
   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), "");
 
   foreach my $name (@menuorder) {
     substr($name, 0, length($parent), "");