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

[..hidden..]

Revision: 218
          http://svn.sourceforge.net/ledger-smb/?rev=218&view=rev
Author:   einhverfr
Date:     2006-10-16 07:26:24 -0700 (Mon, 16 Oct 2006)

Log Message:
-----------
Added error of ->{dbh} fails to connect

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

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2006-10-16 14:05:37 UTC (rev 217)
+++ trunk/LedgerSMB/Form.pm	2006-10-16 14:26:24 UTC (rev 218)
@@ -1296,7 +1296,7 @@
 
 sub db_init {
 	my ($self, $myconfig) = @_;
-	$self->{dbh} = $self->dbconnect_noauto($myconfig);
+	$self->{dbh} = $self->dbconnect_noauto($myconfig) || $self->dberror();
 
 	my $query = 
 		"SELECT t.extends, 


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