X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FMenu.pm;h=6bbcffb9c8af8adbfc42883522e3298b47a2e5cd;hb=ee75e5986c75b6cf9886bf315e83d05ae210add0;hp=1ecb52fab7fd47d2eb87071c08e3143985e2b2a2;hpb=fb974d9c26db844c754b75506a28f3ca9f5522ca;p=kivitendo-erp.git

diff --git a/SL/Menu.pm b/SL/Menu.pm
index 1ecb52fab..6bbcffb9c 100644
--- a/SL/Menu.pm
+++ b/SL/Menu.pm
@@ -12,37 +12,46 @@ BEGIN {
    $yaml_xs =  eval { require YAML::XS };
 }
 
+our %menu_cache;
+
 sub new {
   my ($package, $domain) = @_;
 
-  my $path = File::Spec->catdir('menus', $domain);
+  if (!$menu_cache{$domain}) {
+    my $path = File::Spec->catdir('menus', $domain);
 
-  opendir my $dir, $path or die "can't open $path: $!";
-  my @files = sort grep -f "$path/$_", readdir $dir;
-  close $dir;
+    opendir my $dir, $path or die "can't open $path: $!";
+    my @files = sort grep -f "$path/$_", grep /\.yaml$/, readdir $dir;
+    close $dir;
 
-  my $nodes = [];
-  my $nodes_by_id = {};
-  for my $file (@files) {
-    my $data;
-    if ($yaml_xs) {
-      $data = YAML::XS::LoadFile(File::Spec->catfile($path, $file));
-    } else {
-      $data = YAML::LoadFile(File::Spec->catfile($path, $file));
+    my $nodes = [];
+    my $nodes_by_id = {};
+    for my $file (@files) {
+      my $data;
+      if ($yaml_xs) {
+        $data = YAML::XS::LoadFile(File::Spec->catfile($path, $file));
+      } else {
+        $data = YAML::LoadFile(File::Spec->catfile($path, $file));
+      }
+      _merge($nodes, $nodes_by_id, $data);
     }
-    _merge($nodes, $nodes_by_id, $data);
-  }
 
 
-  my $self = bless {
-    nodes => $nodes,
-    by_id => $nodes_by_id,
-  }, $package;
+    my $self = bless {
+      nodes => $nodes,
+      by_id => $nodes_by_id,
+    }, $package;
+
+    $self->build_tree;
 
-  $self->build_tree;
-  $self->set_access;
+    $menu_cache{$domain} = $self;
+  } else {
+    $menu_cache{$domain}->clear_access;
+  }
+
+  $menu_cache{$domain}->set_access;
 
-  return $self;
+  return $menu_cache{$domain};
 }
 
 sub _merge {
@@ -88,13 +97,13 @@ sub build_tree {
   # first, some sanity check. are all parents valid ids or empty?
   for my $node ($self->nodes) {
     next if !exists $node->{parent} || !$node->{parent} || $self->{by_id}->{$node->{id}};
-    die "menu: node $node->{id} has non-existant parent $node->{parent}";
+    die "menu: node $node->{id} has non-existent parent $node->{parent}";
   }
 
   my %by_parent;
   # order them by parent
   for my $node ($self->nodes) {
-    push @{ $by_parent{ $node->{parent} } //= [] }, $node;
+    push @{ $by_parent{ $node->{parent} // '' } //= [] }, $node;
   }
 
   my $tree = { };
@@ -211,6 +220,14 @@ sub parse_instance_conf_string {
   return $::instance_conf->data->{$setting};
 }
 
+sub clear_access {
+  my ($self) = @_;
+  for my $node ($self->tree_walk("all")) {
+    delete $node->{visible};
+    delete $node->{visible_children};
+  }
+}
+
 sub set_access {
   my ($self) = @_;
   # 1. evaluate access for all