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

[..hidden..]

Revision: 38
          http://svn.sourceforge.net/ledger-smb/?rev=38&view=rev
Author:   christopherm
Date:     2006-09-06 09:57:02 -0700 (Wed, 06 Sep 2006)

Log Message:
-----------
adding query error reporting should the create fail

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

Modified: trunk/LedgerSMB/User.pm
===================================================================
--- trunk/LedgerSMB/User.pm	2006-09-06 16:56:09 UTC (rev 37)
+++ trunk/LedgerSMB/User.pm	2006-09-06 16:57:02 UTC (rev 38)
@@ -330,7 +330,7 @@
   &dbconnect_vars($form, $form->{dbdefault});
   my $dbh = DBI->connect($form->{dbconnect}, $form->{dbuser}, $form->{dbpasswd}) or $form->dberror;
   my $query = qq|$dbcreate{$form->{dbdriver}}|;
-  $dbh->do($query);
+  $dbh->do($query) || $form->dberror($query);
 
   if ($form->{dbdriver} eq 'Oracle') {
     $query = qq|GRANT CONNECT,RESOURCE TO "$form->{db}"|;


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