kleine Weiterentwicklung

[mfinanz.git] / SL / Menu.pm

diff --git a/SL/Menu.pm b/SL/Menu.pm
index 8b2a201c077a7c3a0bbc21de9ad80d181d870639..debceae889880b0d9d71a9a48307ded1ff16b89d 100644 (file)
--- 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();