From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Mon, 20 Feb 2006 14:01:59 +0000 (+0000)
Subject: Wenn beim Login das Datenbankupgrade fehlschlaegt, dann sollte die Fehlermeldung... 
X-Git-Tag: release-2.4.0^2~324
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=c12ec0016cd30952749282401998b37474dafdd1;p=kivitendo-erp.git

Wenn beim Login das Datenbankupgrade fehlschlaegt, dann sollte die Fehlermeldung auch ausgegeben werden.
---

diff --git a/SL/User.pm b/SL/User.pm
index fbc022357..c35ff0e91 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -432,9 +432,11 @@ sub process_query {
 
           $sth = $dbh->prepare($query);
           if (!$sth->execute()) {
+            my $errstr = $dbh->errstr;
             $sth->finish();
             $dbh->rollback();
             $form->dberror("The database update/creation did not succeed. The file ${filename} containing the following query failed:<br>${query}<br>" .
+                           "The error message was: ${errstr}<br>" .
                            "All changes in that file have been reverted.");
           }
           $sth->finish();