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

1 files changed, 4 insertions, 5 deletions

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);
 }