From: Pascal Corpet <pascal.corpet@m4x.org>
Date: Tue, 15 Jun 2010 20:29:48 +0000 (+0200)
Subject: MMList : adds a method to replace email in all lists where it is used
X-Git-Tag: core/1.1.0~6
X-Git-Url: http://git.polytechnique.org/?a=commitdiff_plain;h=5fe3a77aecc4416235d5f017212a112e5929ee85;p=platal.git

MMList : adds a method to replace email in all lists where it is used
---

diff --git a/classes/mmlist.php b/classes/mmlist.php
index 50aee1b..a94c722 100644
--- a/classes/mmlist.php
+++ b/classes/mmlist.php
@@ -39,6 +39,27 @@ class MMList extends XmlrpcClient
             $this->bt = new PlBacktrace('MMList');
         }
     }
+
+    /**
+     * Replace email in all lists where user has subscribe
+     * @param $old_email old email address used in mailing lits
+     * @param $new_email new email to use in place of the old one
+     * @return number of mailing lists changed
+     */
+    public function replace_email_in_all($old_email, $new_email) {
+        $all_lists = $this->get_lists($old_email);
+        if (!$all_lists) {
+            return 0;
+        }
+        $changed_lists = 0;
+        foreach ($all_lists as $list) {
+            if ($list->sub) {
+                $this->replace_email($list->list, $old_email, $new_email);
+                $changed_lists++;
+            }
+        }
+        return $changed_lists;
+    }
 }
 
 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: