task_server: single-dbh: Form::disconnect entfernt

[mfinanz.git] / SL / Common.pm

diff --git a/SL/Common.pm b/SL/Common.pm
index 31fbba9fee6092621d47fa128c689f9e7be4a3f3..28a3d5a14dd1d90d9c74150e34a63daf7a09ec7d 100644 (file)
--- 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);
     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();
 }
 
   $main::lxdebug->leave_sub();
 }