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

[..hidden..]

Revision: 6602
          http://sourceforge.net/p/ledger-smb/code/6602
Author:   einhverfr
Date:     2014-01-23 05:12:33 +0000 (Thu, 23 Jan 2014)
Log Message:
-----------
Correcting dbh handling on new to old code redirection

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

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2014-01-23 05:10:44 UTC (rev 6601)
+++ trunk/LedgerSMB/Form.pm	2014-01-23 05:12:33 UTC (rev 6602)
@@ -1233,7 +1233,9 @@
         $self->{company} = $LedgerSMB::Sysconfig::default_db;
     }
     my $dbname = $self->{company};
-    $self->{dbh} = LedgerSMB::DBH->connect($self->{company});
+    $self->{dbh} = LedgerSMB::App_State::DBH;
+    $self->{dbh} ||= LedgerSMB::DBH->connect($self->{company});
+    LedgerSMB::Auth::credential_prompt unless $self->{dbh};
     my $dbh = $self->{dbh};
     LedgerSMB::App_State::set_DBH($dbh);
     LedgerSMB::DBH->set_datestyle;

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


------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today. 
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits