fix bug with deletion of lists: DB was not purged

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

diff --git a/htdocs/listes/delete.php b/htdocs/listes/delete.php
index 1f49536..ce36f1c 100644 (file)
--- a/htdocs/listes/delete.php
+++ b/htdocs/listes/delete.php
@@ -31,6 +31,11 @@ if (!$page) {
 }
 
 if ( Post::get('valid') == 'OUI' && $client->delete_list($liste, Post::getBool('del_archive')) ) {
+    foreach (array('', '-owner', '-admin', '-bounces') as $app) {
+        $globals->xdb->execute("DELETE FROM  aliases
+                                      WHERE  type='liste' AND alias='{?}'",
+                               $ml.$app)
+    }
     $page->assign('deleted', true);
 } elseif (list($details,$options) = $client->get_owner_options($liste)) {
     $page->assign_by_ref('details', $details);