X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FUser.pm;h=c35ff0e9122b5715f7f5db4c00b6ca0f91d70b1f;hb=8b68b3f8f2cc88d620b484a2219c85f6ff4d78a8;hp=fbc022357d5f5567d9ead2806cbdffdb0b22b6f5;hpb=0d6920540b289a59b021a6be86445279b39a26ef;p=kivitendo-erp.git
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:
${query}
" .
+ "The error message was: ${errstr}
" .
"All changes in that file have been reverted.");
}
$sth->finish();