DB Handling: Einige executes mit Fehlerbehandlung versehen

[kivitendo-erp.git] / SL / GoBD.pm

diff --git a/SL/GoBD.pm b/SL/GoBD.pm
index 2992b5f..45f055f 100644 (file)
--- 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} || [] }) {