diff options
| author | christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-06 16:57:02 +0000 |
|---|---|---|
| committer | christopherm <christopherm@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-06 16:57:02 +0000 |
| commit | 4ecf09d99d3724e776d881e0151eeed379da7fb0 (patch) | |
| tree | 35ab7a431dbe8d465e02f0388ad9cc3ff745b06f | |
| parent | 271341ef0145176512f1bf739943c2088a92a8ef (diff) | |
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
| -rwxr-xr-x | LedgerSMB/User.pm | 2 |
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}"|; |