X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/77527022ef849e10970f285717b9db5d383a1a2e..72be9c763f3b7f7df1fae4fe10011e45f9e2ad1d:/SL/User.pm

diff --git a/SL/User.pm b/SL/User.pm
index 49ba33924..5d58b5dac 100644
--- a/SL/User.pm
+++ b/SL/User.pm
@@ -738,7 +738,7 @@ sub create_employee_entry {
     do_query($form, $dbh, $query, ($self->{login}, $myconfig->{name}, $myconfig->{tel}, "user"));
 
   } elsif ($update_existing) {
-    my $query = qq|UPDATE employee SET name = ?, workphone = ?, role = 'user' WHERE id = ?|;
+    my $query = qq|UPDATE employee SET name = ?, workphone = ?, role = 'user', deleted = 'f' WHERE id = ?|;
     do_query($form, $dbh, $query, $myconfig->{name}, $myconfig->{tel}, $id);
   }