Beim Klonen eines einmal gelöschten users das deleted Flag resetten.
authorSven Schöling <s.schoeling@linet-services.de>
Tue, 10 Jan 2012 10:55:55 +0000 (11:55 +0100)
committerSven Schöling <s.schoeling@linet-services.de>
Tue, 10 Jan 2012 10:55:55 +0000 (11:55 +0100)
SL/User.pm

index 49ba339..5d58b5d 100644 (file)
@@ -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);
   }