From 5228c0019ce9dc5f8e01d5d4ef1daa99669f82d6 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 3 Oct 2007 16:15:40 +0000
Subject: Cleaning up scripts/menu.pl slightly.

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

(limited to 'scripts')

diff --git a/scripts/menu.pl b/scripts/menu.pl
index 81628db6..f873398f 100644
--- a/scripts/menu.pl
+++ b/scripts/menu.pl
@@ -71,8 +71,10 @@ sub root_doc {
     $request->{title} = "LedgerSMB $request->{VERSION} -- ".
 	"$request->{login} -- $request->{_user}->{dbname}";
 
-    $request->call_procedure(procname => );
-    if (!$request->{menubar}){
+    if ($request->{menubar}){
+        drilldown_menu($request);
+        return;
+    } else {
         $request->{main} = "splash.html" if $request->{main} eq 'company_logo';
         $request->{main} = "am.pl?action=recurring_transactions"
             if $request->{main} eq 'recurring_transactions';
@@ -83,9 +85,6 @@ sub root_doc {
             template => 'frameset',
 	     format => 'HTML'
 	);
-    } else {
-        drilldown_menu($request);
-        return;
     }
     $template->render($request);
 }
-- 
cgit v1.2.3