From 4ecf09d99d3724e776d881e0151eeed379da7fb0 Mon Sep 17 00:00:00 2001
From: christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Wed, 6 Sep 2006 16:57:02 +0000
Subject: adding query error reporting should the create fail

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@38 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/User.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/LedgerSMB/User.pm b/LedgerSMB/User.pm
index 57afd8d8..9eca7197 100755
--- a/LedgerSMB/User.pm
+++ b/LedgerSMB/User.pm
@@ -330,7 +330,7 @@ sub dbcreate {
   &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}"|;
-- 
cgit v1.2.3