From 47025e9f26cf3f037841dcae5b281fc38f5051ba Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 10 Jul 2007 21:14:55 +0000
Subject: Removing old inifile handling from admin.pl

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

(limited to 'bin')

diff --git a/bin/admin.pl b/bin/admin.pl
index b430d865..5a89da02 100644
--- a/bin/admin.pl
+++ b/bin/admin.pl
@@ -34,7 +34,6 @@
 #
 #======================================================================
 
-$menufile = "menu.ini";
 
 use LedgerSMB::Form;
 use LedgerSMB::Locale;
@@ -647,41 +646,6 @@ sub form_header {
     }
 
     # access control
-    open( FH, '<', $menufile )
-      or $form->error( __FILE__ . ':' . __LINE__ . ': ' . "$menufile : $!" );
-
-    # scan for first menu level
-    @a = <FH>;
-    close(FH);
-
-    if ( open( FH, '<', "custom_$menufile" ) ) {
-        push @a, <FH>;
-    }
-
-    close(FH);
-
-    foreach $item (@a) {
-
-        next unless $item =~ /\[\w+/;
-        next if $item =~ /\#/;
-
-        $item =~ s/(\[|\])//g;
-        chop $item;
-
-        if ( $item =~ /--/ ) {
-
-            ( $level, $menuitem ) = split /--/, $item, 2;
-        }
-        else {
-
-            $level    = $item;
-            $menuitem = $item;
-            push @acsorder, $item;
-        }
-
-        push @{ $acs{$level} }, $menuitem;
-
-    }
 
     %role = (
         'admin'      => $locale->text('Administrator'),
-- 
cgit v1.2.3