From: x2003bruneau <x2003bruneau@839d8a87-29fc-0310-9880-83ba4fa771e5>
Date: Mon, 4 Dec 2006 09:21:43 +0000 (+0000)
Subject: [1232] => prod
X-Git-Tag: xorg/0.9.12~10
X-Git-Url: http://git.polytechnique.org/?a=commitdiff_plain;h=ceda9ef1f826bfd1752e7dbf90d2679286afb0fe;p=platal.git

[1232] => prod


git-svn-id: svn+ssh://murphy/home/svn/platal/branches/platal-0.9.12@1236 839d8a87-29fc-0310-9880-83ba4fa771e5
---

diff --git a/include/user.func.inc.php b/include/user.func.inc.php
index fb7ac34..8cd8954 100644
--- a/include/user.func.inc.php
+++ b/include/user.func.inc.php
@@ -37,8 +37,8 @@ function user_clear_all_subs($user_id, $really_del=true)
     $alias = $res->fetchOneCell();
 
     if ($really_del) {
-	XDB::execute("DELETE FROM emails WHERE uid={?}", $uid);
-	XDB::execute("DELETE FROM newsletter_ins WHERE user_id={?}", $uid);
+    	XDB::execute("DELETE FROM emails WHERE uid={?}", $uid);
+	    XDB::execute("DELETE FROM newsletter_ins WHERE user_id={?}", $uid);
     }
 
     XDB::execute("DELETE FROM virtual_redirect WHERE redirect = {?}", $alias.'@'.$globals->mail->domain);
@@ -51,14 +51,14 @@ function user_clear_all_subs($user_id, $really_del=true)
     XDB::execute("DELETE FROM entreprises     WHERE uid={?}", $uid);
     XDB::execute("DELETE FROM langues_ins     WHERE uid={?}", $uid);
     XDB::execute("DELETE FROM mentor_pays     WHERE uid={?}", $uid);
-    XDB::execute("DELETE FROM mentor_secteur  WHERE uid={?}", $uid);
+    XDB::execute("DELETE FROM mentor_secteurs WHERE uid={?}", $uid);
     XDB::execute("DELETE FROM mentor          WHERE uid={?}", $uid);
     XDB::execute("DELETE FROM perte_pass      WHERE uid={?}", $uid);
     XDB::execute("DELETE FROM requests        WHERE user_id={?}", $uid);
     XDB::execute("DELETE FROM user_changes    WHERE user_id={?}", $uid);
     XDB::execute("DELETE FROM watch_sub       WHERE uid={?}", $uid);
 
-    $mmlist = new MMList(S::v('id'), S::v('password'));
+    $mmlist = new MMList(S::v('uid'), S::v('password'));
     $mmlist->kill($alias, $really_del);
 }
 
diff --git a/modules/admin.php b/modules/admin.php
index 3bac937..7a981fd 100644
--- a/modules/admin.php
+++ b/modules/admin.php
@@ -499,6 +499,9 @@ class AdminModule extends PLModule
                         if (Env::v('nomusageN') != $mr['nom_usage']) {
                             set_new_usage($mr['user_id'], Env::v('nomusageN'), make_username(Env::v('prenomN'), Env::v('nomusageN')));
                         }
+                        if (Env::v('decesN') != $mr['deces']) {
+                            user_clear_all_subs($mr['user_id'], false);
+                        }
                         $r = XDB::query("SELECT *, a.alias AS forlife, u.flags AS sexe
                                            FROM auth_user_md5 AS u
                                       LEFT JOIN aliases       AS a ON (a.id = u.user_id AND type= 'a_vie')