From fdc51082c09fbe2d3db25bcc85945959a5728ffd Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 10 Jul 2007 01:08:48 +0000
Subject: Applying fix for order consolidation

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1366 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/menu.pl | 33 ---------------------------------
 1 file changed, 33 deletions(-)

(limited to 'scripts')

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;
-- 
cgit v1.2.3