SF.net SVN: ledger-smb:[5894] trunk/LedgerSMB.pm

[..hidden..]

Revision: 5894
          http://sourceforge.net/p/ledger-smb/code/5894
Author:   tshvr
Date:     2013-06-19 08:11:07 +0000 (Wed, 19 Jun 2013)
Log Message:
-----------
move dbi_trace further on , dbh may not have been acquired because of authentication error

Modified Paths:
--------------
    trunk/LedgerSMB.pm

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2013-06-14 20:04:14 UTC (rev 5893)
+++ trunk/LedgerSMB.pm	2013-06-19 08:11:07 UTC (rev 5894)
@@ -866,13 +866,7 @@
     $self->{dbh} = DBI->connect(
         "dbi:Pg:dbname=$dbname", "$creds->{login}", "$creds->{password}", { AutoCommit => 0 }
     ); 
-    $logger->debug("DBI->connect dbh=$self->{dbh}");
-    my $dbi_trace=$LedgerSMB::Sysconfig::DBI_TRACE;
-    if($dbi_trace)
-    {
-     $logger->debug("\$dbi_trace=$dbi_trace");
-     $self->{dbh}->trace(split /=/,$dbi_trace,2);#http://search.cpan.org/~timb/DBI-1.616/DBI.pm#TRACING
-    }
+    #move dbi_trace further on , dbh may not have been acquired because of authentication error
 
 
     if (($self->{script} eq 'login.pl') && ($self->{action} eq 
@@ -885,6 +879,15 @@
     elsif (!$self->{dbh}){
         $self->_get_password;
     }
+
+    $logger->debug("DBI->connect dbh=$self->{dbh}");
+    my $dbi_trace=$LedgerSMB::Sysconfig::DBI_TRACE;
+    if($dbi_trace)
+    {
+     $logger->debug("\$dbi_trace=$dbi_trace");
+     $self->{dbh}->trace(split /=/,$dbi_trace,2);#http://search.cpan.org/~timb/DBI-1.616/DBI.pm#TRACING
+    }
+
     $self->{dbh}->{pg_server_prepare} = 0;
     $self->{dbh}->{pg_enable_utf8} = 1;
     $LedgerSMB::App_State::DBH = $self->{dbh};

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.