X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/c6a27f90a8e644ed00910aeddaff38c74b513032..f1b0785501f46f6204ae46cdc9b9ef257b5a216b:/SL/Menu.pm?ds=sidebyside

diff --git a/SL/Menu.pm b/SL/Menu.pm
index bc1b4e753..debceae88 100644
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -58,6 +58,18 @@ sub new {
   return $self;
 }
 
+sub menuitems {
+  my ($self) = @_;
+
+  map {
+    SL::MenuItem->new(
+      name => $_,
+      menu => $self,
+      item => $self->{$_}
+    );
+  } $self->access_control;
+}
+
 sub menuitem {
   $main::lxdebug->enter_sub();
 
@@ -73,10 +85,6 @@ sub menuitem {
            ? $form->escape($self->{$item}{href})
            : "$module?action=$action";
 
-#  my @vars = ($self->{$item}{href})
-#           ? qw(module        target href)
-#           : qw(module action target href);
-#
   # add other params
   foreach my $key (keys %{ $self->{$item} }) {
     next if $key =~ /target|module|action/;