diff options
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/menu.pl | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/scripts/menu.pl b/scripts/menu.pl index 3b2748a1..4f5cbb80 100644 --- a/scripts/menu.pl +++ b/scripts/menu.pl @@ -43,41 +43,8 @@ sub expanding_menu { template => 'menu_expand', format => 'HTML', ); - $request->{subs} = []; - $menu->debug({file => '/tmp/debug-menu'}); - $request->debug({file => '/tmp/debug'}); $template->render($menu); } -sub _attach_references { - no strict qw(refs); - my ($args) = @_; - my ($source, $dest, $path) - = ($args->{source}, $args->{dest}, $args->{path}); - my %hash; - if ($path and $source->{id}){ - for (sort keys %$source){ - next if $_ eq 'subs'; - $hash{$_} = $source->{$_}; - } - $hash{path} = $path; - push @{$dest}, \%hash; - foreach (sort keys %{$source->{subs}}) { - _attach_references({ - source => $source->{subs}->{$_}, - dest => $dest, - path => "$path--$_", - }); - } - } else { - foreach (sort keys %$source){ - _attach_references({ - source => $source->{$_}, - dest => $dest, - path => "$_", - }); - } - } -} 1; |