X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/b019bd393629352431702f8d0d9f122508ec56ca..36857857e2c4210c0080974b50e469507dfb912d:/SL/GoBD.pm

diff --git a/SL/GoBD.pm b/SL/GoBD.pm
index 2992b5f4e..45f055f85 100644
--- a/SL/GoBD.pm
+++ b/SL/GoBD.pm
@@ -549,7 +549,7 @@ sub do_csv_export {
   my $query = "SELECT " . join(', ', @select_tokens) . " FROM $table $where_clause";
 
   my $sth = $::form->get_standard_dbh->prepare($query);
-  $sth->execute(@values) or die "error executing query $query: " . $sth->errstr;
+  $sth->execute(@values) or $::form->dberror($query);
 
   while (my $row = $sth->fetch) {
     for my $keep_col (@{ $known_tables{$table}{keep} || [] }) {