From d91e720ffdc93b634290e9769c6fe6f4a5cab65a Mon Sep 17 00:00:00 2001
From: x2003bruneau <x2003bruneau@839d8a87-29fc-0310-9880-83ba4fa771e5>
Date: Mon, 21 Aug 2006 19:42:01 +0000
Subject: [PATCH] Remove rewrite rules when deleting an alias

git-svn-id: svn+ssh://murphy/home/svn/platal/trunk@827 839d8a87-29fc-0310-9880-83ba4fa771e5
---
 ChangeLog         | 1 +
 modules/admin.php | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index e303b8c..1c08b0f 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -24,6 +24,7 @@ New:
 
     * Emails:
         - Switch to the new URI scheme.                                     -MC
+        - Work around broken emails (detection, marketing...)              -FRU
 
     * Events:
         - Switch to the new URI scheme.                                 -MC/FRU
diff --git a/modules/admin.php b/modules/admin.php
index 6a3990f..8d59296 100644
--- a/modules/admin.php
+++ b/modules/admin.php
@@ -403,6 +403,10 @@ class AdminModule extends PLModule
                         if (!empty($val)) {
                             XDB::execute("DELETE FROM aliases WHERE id={?} AND alias={?}
                                     AND type!='a_vie' AND type!='homonyme'", $mr['user_id'], $val);
+                            XDB::execute("UPDATE emails
+                                             SET rewrite = ''
+                                           WHERE uid = {?} AND rewrite LIKE CONCAT({?}, '@%')",
+                                         $mr['user_id'], $val);               
                             fix_bestalias($mr['user_id']);
                             $page->trig($val." a été supprimé");
                         }
-- 
2.1.4