Adds promotion_ml reminder.

diff --git a/include/reminder/promotion_ml.inc.php b/include/reminder/promotion_ml.inc.php
new file mode 100644 (file)
index 0000000..6a70e67
--- /dev/null
+++ b/include/reminder/promotion_ml.inc.php
@@ -0,0 +1,77 @@
+<?php
+/***************************************************************************
+ *  Copyright (C) 2003-2009 Polytechnique.org                              *
+ *  http://opensource.polytechnique.org/                                   *
+ *                                                                         *
+ *  This program is free software; you can redistribute it and/or modify   *
+ *  it under the terms of the GNU General Public License as published by   *
+ *  the Free Software Foundation; either version 2 of the License, or      *
+ *  (at your option) any later version.                                    *
+ *                                                                         *
+ *  This program is distributed in the hope that it will be useful,        *
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
+ *  GNU General Public License for more details.                           *
+ *                                                                         *
+ *  You should have received a copy of the GNU General Public License      *
+ *  along with this program; if not, write to the Free Software            *
+ *  Foundation, Inc.,                                                      *
+ *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
+ ***************************************************************************/
+
+class ReminderPromotionMl extends Reminder
+{
+    public function HandleAction($action)
+    {
+        switch ($action) {
+          case 'yes':
+            $res = XDB::query('SELECT  id
+                               FROM  groupex.asso
+                              WHERE  diminutif = {?}',
+                            S::v('promo'));
+            $asso_id = $res->fetchOneCell();
+            XDB::execute('REPLACE INTO  groupex.membres (uid, asso_id)
+                                VALUES  ({?}, {?})',
+                         S::v('uid'), $asso_id);
+            $mmlist = new MMList(S::v('uid'), S::v('password'));
+            $mmlist->subscribe('promo' . S::v('promo'));
+
+            $this->UpdateOnYes();
+            break;
+
+          case 'dismiss':
+            $this->UpdateOnDismiss();
+            break;
+
+          case 'no':
+            $this->UpdateOnNo();
+            break;
+        }
+    }
+
+    protected function GetDisplayText()
+    {
+        return "La liste de diffusion de ta promotion permet de recevoir les
+            informations plus spécifiques de ta promotion pour pouvoir
+            participer plus facilement aux événements qu'elle organise. Tu
+            seras aussi inscrit dans le groupe de la promotion " .
+            S::user()->promo() . '.';
+    }
+
+    public static function IsCandidate(User &$user)
+    {
+        // We only test if the user is in her promotion group for it is too
+        // expensive to check if she is in the corresponding ML as well.
+        $res = XDB::query('SELECT  COUNT(*)
+                             FROM  groupex.membres
+                            WHERE  uid = {?} AND asso_id = (SELECT  id
+                                                              FROM  groupex.asso
+                                                             WHERE  diminutif = {?})',
+                          $user->id(), S::v('promo'));
+
+        return ($res->fetchOneCell() > 0);
+    }
+}
+
+// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
+?>