SF.net SVN: ledger-smb:[5060] branches/1.3/LedgerSMB.pm

[..hidden..]

Revision: 5060
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5060&view=rev
Author:   einhverfr
Date:     2012-07-30 01:20:39 +0000 (Mon, 30 Jul 2012)
Log Message:
-----------
Correcting lack of DBH creating database

Modified Paths:
--------------
    branches/1.3/LedgerSMB.pm

Modified: branches/1.3/LedgerSMB.pm
===================================================================
--- branches/1.3/LedgerSMB.pm	2012-07-29 14:01:30 UTC (rev 5059)
+++ branches/1.3/LedgerSMB.pm	2012-07-30 01:20:39 UTC (rev 5060)
@@ -783,6 +783,9 @@
     my $schema   = $args{schema};
     my @call_args;
     my $dbh = $LedgerSMB::App_State::DBH;
+    if (!$dbh){
+        $dbh = $self->{dbh};
+    }	
     @call_args = @{ $args{args} } if defined $args{args};
     my $order_by = $args{order_by};
     my $query_rc;

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