X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/63cbca66735250be3fb0c616cc84c46a3495a3f0..6b23fb212fb1cee6e1034601d3ceb22a182e50f0:/SL/DATEV.pm

diff --git a/SL/DATEV.pm b/SL/DATEV.pm
index eb23cf284..be3ec958c 100644
--- a/SL/DATEV.pm
+++ b/SL/DATEV.pm
@@ -293,7 +293,8 @@ sub save_datev_stamm {
 
     my $query = "INSERT INTO datev (" . join(', ', @columns) . ") VALUES (" . join(', ', ('?') x @columns) . ")";
     do_query($::form, $self->dbh, $query, map { $data->{$_} } @columns);
-  });
+    1;
+  }) or do { die SL::DB->client->error };
 }
 
 sub export {