X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5cdb20edf33f6e6cf5151b3d56e0b614222bf097..e97c628d0f75459a88926c33e4b370aa98c6b680:/SL/Menu.pm

diff --git a/SL/Menu.pm b/SL/Menu.pm
index 63a4f868e..eac4e2fe6 100644
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -39,11 +39,18 @@ use SL::Inifile;
 
 use strict;
 
+my $instance;
+
 sub new {
   $main::lxdebug->enter_sub();
 
   my ($type, $menufile) = @_;
 
+  if ($instance) {
+    $::lxdebug->leave_sub;
+    return $instance;
+  }
+
   my $self    = {};
   my $inifile = Inifile->new($menufile);
 
@@ -55,19 +62,7 @@ sub new {
 
   $main::lxdebug->leave_sub();
 
-  return $self;
-}
-
-sub menuitems {
-  my ($self) = @_;
-
-  map {
-    SL::MenuItem->new(
-      name => $_,
-      menu => $self,
-      item => $self->{$_}
-    );
-  } $self->access_control;
+  return $instance = $self;
 }
 
 sub menuitem_js {