single-dbh: Fehler in Transaktionen immer weiterwerfen

[mfinanz.git] / SL / IR.pm

diff --git a/SL/IR.pm b/SL/IR.pm
index f1a1b7c171c02e32f2ef36a09d2f4964ff4dcd89..4a5b22e1528b1317e305c93fe3d50f473d8306f7 100644 (file)
--- 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;
 }