SF.net SVN: ledger-smb: [1372] trunk/bin/admin.pl

[..hidden..]

Revision: 1372
          http://svn.sourceforge.net/ledger-smb/?rev=1372&view=rev
Author:   einhverfr
Date:     2007-07-10 14:14:55 -0700 (Tue, 10 Jul 2007)

Log Message:
-----------
Removing old inifile handling from admin.pl

Modified Paths:
--------------
    trunk/bin/admin.pl

Modified: trunk/bin/admin.pl
===================================================================
--- trunk/bin/admin.pl	2007-07-10 19:53:55 UTC (rev 1371)
+++ trunk/bin/admin.pl	2007-07-10 21:14:55 UTC (rev 1372)
@@ -34,7 +34,6 @@
 #
 #======================================================================
 
-$menufile = "menu.ini";
 
 use LedgerSMB::Form;
 use LedgerSMB::Locale;
@@ -647,42 +646,7 @@
     }
 
     # 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'),
         'user'       => $locale->text('User'),


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.