summaryrefslogtreecommitdiff
path: root/LedgerSMB/User.pm
diff options
context:
space:
mode:
Diffstat (limited to 'LedgerSMB/User.pm')
-rwxr-xr-xLedgerSMB/User.pm2
1 files changed, 1 insertions, 1 deletions
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}"|;