X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FMenu.pm;h=9fcf15374eb3babffd34ac5d408db0b7d28b4269;hb=f8529382599e678ff266bd26ab82782e3d7b2686;hp=adac1b00689eca9d18fc18e534dcbe7fa7853e67;hpb=c621a9187eb258019fa540490de21b248c709516;p=kivitendo-erp.git

diff --git a/SL/Menu.pm b/SL/Menu.pm
index adac1b006..9fcf15374 100644
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -400,7 +400,10 @@ sub set_access {
 
   $self->{ORDER} = [ grep { $self->{$_}->{VISIBLE} } @{ $self->{ORDER} } ];
 
+  { no strict 'refs';
+  # ToDO: fix this. nuke and pave algorithm without type checking screams for problems.
   map { delete @{$self->{$_}}{qw(GRANTED IS_MENU NUM_VISIBLE_CHILDREN VISIBLE ACCESS)} if ($_ ne 'ORDER') } keys %{ $self };
+  }
 }
 
 sub dump_visible {