Beim Neuanlegen von Datenbanken darf die Datenbank schon existieren. Damit kann die...

[mfinanz.git] / SL / User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 212175aaccc28505f5ffc1e1b1eced44c37b0b60..ece1fb8b584c098d884f05419f659cc75aa5de19 100644 (file)
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -344,7 +344,8 @@ sub dbcreate {
   my $query = $dbcreate{$form->{dbdriver}};
   $query .= " WITH " . join(" ", @{$dboptions{"Pg"}}) if (@{$dboptions{"Pg"}});
 
-  do_query($form, $dbh, $query);
+  # Ignore errors if the database exists.
+  $dbh->do($query);
 
   if ($form->{dbdriver} eq 'Oracle') {
     $query = qq|GRANT CONNECT, RESOURCE TO "$form->{db}"|;