From 78d2ecf7d8ee85d943f26a0df35a7c40e3ecb913 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 26 Jun 2007 19:02:03 +0000
Subject: Fixing ordering issue for LedgerSMB.pm

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1331 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/login.pl | 24 ++----------------------
 1 file changed, 2 insertions(+), 22 deletions(-)

(limited to 'scripts')

diff --git a/scripts/login.pl b/scripts/login.pl
index b07d9c3d..bdd98037 100644
--- a/scripts/login.pl
+++ b/scripts/login.pl
@@ -30,28 +30,8 @@ sub login {
     if (!$request->{_user}){
         __default($request);
     }
-    our $user = new LedgerSMB::User($request->{login});
-    our $form = new Form; 
-    for (keys %$request){
-        $form->{$_} = $request->{$_};
-    }
-    my $menu_entrypoint;
-    require "bin/menu.pl";
-    if (($request->{_user}->{acs} !~ /Recurring Transactions/) || 
-        $request->{_user}->{role} ne 'user'){
-        if ($user->check_recurring($form) ) {
-            $form->{main} = "recurring_transactions";
-        }
-        else {
-            $form->{main} = "company_logo";
-        }
-
-    }
-    else {
-
-        $form->{main} = "company_logo";
-    }
-    &display;
+    require "scripts/menu.pl";
+    LedgerSMB::Scripts::menu::display($request);
 
 }
 
-- 
cgit v1.2.3