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

1 files changed, 2 insertions, 22 deletions

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