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();