Dunning: Email und Zahlungsbedingung in Mahnlaufbericht aufgenommen

[mfinanz.git] / SL / Controller / Employee.pm

diff --git a/SL/Controller/Employee.pm b/SL/Controller/Employee.pm
index 679227202c59dd6e2f1ea055cb6caaedf2c0fe8f..431c8b77502c633acb33f623bd18940d0fc7c1a6 100644 (file)
--- a/SL/Controller/Employee.pm
+++ b/SL/Controller/Employee.pm
@@ -35,7 +35,24 @@ sub action_edit {
 sub action_save {
   my ($self, %params) = @_;
 
-  $self->{employee}->save;
+  SL::DB->client->with_transaction(sub {
+    1;
+
+    $self->{employee}->save;
+
+    if ($self->{employee}->deleted) {
+      my $auth_user = SL::DB::Manager::AuthUser->get_first(login => $self->{employee}->login);
+      if ($auth_user) {
+        SL::DB::Manager::AuthClientUser->delete_all(
+          where => [
+            client_id => $::auth->client->{id},
+            user_id   => $auth_user->id,
+          ]);
+      }
+    }
+
+    1;
+  });
 
   flash('info', $::locale->text('Employee #1 saved!', $self->{employee}->safe_name));