diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-05-19 22:36:45 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-05-19 22:36:45 +0000 |
commit | 819ab93566e8e604e756ac4646c87e46e59ee7ad (patch) | |
tree | 43ed7c5f29991f57ea7167edf323c3fe1eb9c662 /LedgerSMB.pm | |
parent | 5a0e273bc0edbd031aecacbc485309db0707712f (diff) |
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
Diffstat (limited to 'LedgerSMB.pm')
-rwxr-xr-x | LedgerSMB.pm | 9 |
1 files changed, 5 insertions, 4 deletions
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')){ |