From: Sven Schöling <s.schoeling@linet-services.de>
Date: Mon, 16 May 2011 15:35:57 +0000 (+0200)
Subject: Serverfehler beim Löschen von Benutzern behoben.
X-Git-Tag: release-2.6.3~25^2~26
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=02bec6bd8223b35938782b226d998fda1105c7d4;p=kivitendo-erp.git

Serverfehler beim Löschen von Benutzern behoben.

Das globale $form kann im admin.pl Environment nicht auf die User DB connecten, also muss das von Hand gemacht werden.

Conflicts:

	SL/Auth.pm
---

diff --git a/SL/Auth.pm b/SL/Auth.pm
index 8b8d859ae..347e95b08 100644
--- a/SL/Auth.pm
+++ b/SL/Auth.pm
@@ -437,6 +437,9 @@ sub delete_user {
 
   my $form  = $main::form;
 
+  my %user  = $self->read_user($login);
+  my $u_dbh = DBI->connect($user{dbconnect}, $user{dbuser}, $user{dbpasswd});
+
   my $dbh   = $self->dbconnect();
 
   $dbh->begin_work;
@@ -449,8 +452,10 @@ sub delete_user {
 
   do_query($form, $dbh, qq|DELETE FROM auth.user_group WHERE user_id = ?|, $id);
   do_query($form, $dbh, qq|DELETE FROM auth.user_config WHERE user_id = ?|, $id);
+  do_query($form, $u_dbh, qq|UPDATE employee SET deleted = 't' WHERE login = ?|, $login);
 
-  $dbh->commit();
+  $dbh->commit;
+  $u_dbh->commit;
 
   $main::lxdebug->leave_sub();
 }