From 819ab93566e8e604e756ac4646c87e46e59ee7ad Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 19 May 2008 22:36:45 +0000
Subject: Correcting problem in DBObject.pm constructor Correcting
 method->procedure mappings for DBD::Pg 2.0 and above.

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

(limited to 'LedgerSMB.pm')

diff --git a/LedgerSMB.pm b/LedgerSMB.pm
index 7c9e9644..ce279466 100755
--- a/LedgerSMB.pm
+++ b/LedgerSMB.pm
@@ -197,11 +197,12 @@ sub new {
     if (!$self->{script}) {
         $self->{script} = 'login.pl';
     }
-    if ($self->{action} eq 'migrate_user'){
-        return $self;
-    }
+#    if ($self->{action} eq 'migrate_user'){
+#        return $self;
+#    }
     if ($self->{script} eq 'login.pl' &&
-        ($self->{action} eq 'authenticate' || !$self->{action})){
+        ($self->{action} eq 'authenticate'  || $self->{action} eq '__default' 
+		|| !$self->{action})){
         return $self;
     }
     if (!$self->{company} && $self->is_run_mode('cgi', 'mod_perl')){
-- 
cgit v1.2.3