From 6de8e1614fb03b63967d06bd8522b4b46260832e Mon Sep 17 00:00:00 2001
From: =?utf8?q?Sven=20Sch=C3=B6ling?= <s.schoeling@linet-services.de>
Date: Tue, 10 Jan 2012 11:55:55 +0100
Subject: [PATCH] =?utf8?q?Beim=20Klonen=20eines=20einmal=20gel=C3=B6schten?=
 =?utf8?q?=20users=20das=20deleted=20Flag=20resetten.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/User.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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);
   }
 
-- 
2.20.1