X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/9bfcaea81966e1964c16214dd6af87120405e91e..2dda5e9d9d08d35123cae92d55c8f092cd9ed02f:/SL/Common.pm

diff --git a/SL/Common.pm b/SL/Common.pm
index 31fbba9fe..28a3d5a14 100644
--- a/SL/Common.pm
+++ b/SL/Common.pm
@@ -434,7 +434,8 @@ sub save_email_status {
     do_query($form, $dbh, qq|UPDATE $table SET intnotes = ? WHERE id = ?|, $intnotes, $form->{id});
 
     $form->save_status($dbh);
-  });
+    1;
+  }) or do { die SL::DB->client->error };
 
   $main::lxdebug->leave_sub();
 }