From 29c86d0d226bf46c96ff9eedde0232d016e32722 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Tue, 30 Oct 2007 21:14:50 +0000
Subject: Load the destination script after initiating a db connection.  Stops
 redirects to bin/ps.pl from blowing up.

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1826 4979c152-3d1c-0410-bac9-87ea11338e46
---
 common.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'common.pl')

diff --git a/common.pl b/common.pl
index dc5684a5..2755dee7 100644
--- a/common.pl
+++ b/common.pl
@@ -48,20 +48,20 @@ sub redirect {
 
     undef $form;
     $form = new Form($argv);
-    require "bin/$script";
 
     for (@common_attrs) {
         $form->{$_} = $temphash{$_};
     }
     $form->{script} = $script;
 
-    if ( !$myconfig ) {    # needed for login
+    if ( !%myconfig ) {    # needed for login
         %myconfig = %{ LedgerSMB::User->fetch_config( $form->{login} ) };
     }
     if ( !$form->{dbh} and ( $script ne 'admin.pl' ) ) {
         $form->db_init( \%myconfig );
     }
 
+    require "bin/$script";
     &{ $form->{action} };
 }
 
-- 
cgit v1.2.3