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

diff --git a/SL/IR.pm b/SL/IR.pm
index f1a1b7c17..4a5b22e15 100644
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -933,7 +933,8 @@ sub delete_invoice {
     );
 
     map { do_query($form, $dbh, $_, @values) } @queries;
-  });
+    1;
+  }) or do { die SL::DB->client->error };
 
   return 1;
 }