modules/xnetevents/xnetevents.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2007 Polytechnique.org                              *
   4  *  http://opensource.polytechnique.org/                                   *
   5  *                                                                         *
   6  *  This program is free software; you can redistribute it and/or modify   *
   7  *  it under the terms of the GNU General Public License as published by   *
   8  *  the Free Software Foundation; either version 2 of the License, or      *
   9  *  (at your option) any later version.                                    *
  10  *                                                                         *
  11  *  This program is distributed in the hope that it will be useful,        *
  12  *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
  13  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
  14  *  GNU General Public License for more details.                           *
  15  *                                                                         *
  16  *  You should have received a copy of the GNU General Public License      *
  17  *  along with this program; if not, write to the Free Software            *
  18  *  Foundation, Inc.,                                                      *
  19  *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
  20  ***************************************************************************/
  21
  22 // {{{ function get_event_detail()
  23
  24 function get_event_detail($eid, $item_id = false)
  25 {
  26     global $globals;
  27     $res = XDB::query(
  28         "SELECT SUM(nb) AS nb_tot, e.*,
  29                 IF(e.deadline_inscription, e.deadline_inscription >= LEFT(NOW(), 10),
  30                    1) AS inscr_open,
  31                 LEFT(10, e.debut) AS debut_day, LEFT(10, e.fin) AS fin_day,
  32                 LEFT(NOW(), 10) AS now,
  33                 ei.titre,
  34                 al.vid AS absent_list, pl.vid AS participant_list,
  35                 a.nom, a.prenom, a.promo, aa.alias
  36            FROM groupex.evenements              AS e
  37      INNER JOIN x4dat.auth_user_md5             AS a  ON a.user_id = e.organisateur_uid
  38      INNER JOIN x4dat.aliases                   AS aa ON (aa.type = 'a_vie' AND aa.id = a.user_id)
  39      INNER JOIN groupex.evenements_items        AS ei ON (e.eid = ei.eid)
  40       LEFT JOIN groupex.evenements_participants AS ep ON(e.eid = ep.eid AND ei.item_id = ep.item_id)
  41       LEFT JOIN virtual AS al ON(al.type = 'evt' AND al.alias = CONCAT(short_name, {?}))
  42       LEFT JOIN virtual AS pl ON(pl.type = 'evt' AND pl.alias = CONCAT(short_name, {?}))
  43           WHERE (e.eid = {?} OR e.short_name = {?}) AND ei.item_id = {?} AND e.asso_id = {?}
  44        GROUP BY ei.item_id",
  45        '-absents@'.$globals->xnet->evts_domain,
  46        '-participants@'.$globals->xnet->evts_domain,
  47        $eid, $eid, $item_id ? $item_id : 1, $globals->asso('id'));
  48
  49     $evt = $res->fetchOneAssoc();
  50
  51     if (!$evt || ($evt['accept_nonmembre'] == 0 && !is_member() && !may_update())) {
  52         return null;
  53     }
  54
  55     // smart calculation of the total number
  56     if (!$item_id) {
  57         $res = XDB::query(
  58                "SELECT MAX(nb)
  59                   FROM groupex.evenements              AS e
  60             INNER JOIN groupex.evenements_items        AS ei ON (e.eid = ei.eid)
  61              LEFT JOIN groupex.evenements_participants AS ep
  62                        ON (e.eid = ep.eid AND ei.item_id = ep.item_id)
  63                  WHERE e.eid = {?}
  64               GROUP BY ep.uid", $evt['eid']);
  65         $evt['nb_tot'] = array_sum($res->fetchColumn());
  66         $evt['titre'] = '';
  67         $evt['item_id'] = 0;
  68     }
  69
  70     $res = XDB::query(
  71         "SELECT titre, details, montant, ei.item_id, nb, ep.paid
  72            FROM groupex.evenements_items        AS ei
  73       LEFT JOIN groupex.evenements_participants AS ep
  74                 ON (ep.eid = ei.eid AND ep.item_id = ei.item_id AND uid = {?})
  75           WHERE ei.eid = {?}",
  76             S::v('uid'), $evt['eid']);
  77     $evt['moments'] = $res->fetchAllAssoc();
  78
  79     $evt['topay'] = 0;
  80     $evt['paid'] = 0;
  81     foreach ($evt['moments'] as $m) {
  82         $evt['topay'] += $m['nb'] * $m['montant'];
  83         if ($m['montant']) {
  84             $evt['money'] = true;
  85         }
  86         $evt['paid']  = $m['paid'];
  87     }
  88
  89     $req = XDB::query(
  90         "SELECT montant
  91            FROM {$globals->money->mpay_tprefix}transactions AS t
  92          WHERE ref = {?} AND uid = {?}", $evt['paiement_id'], S::v('uid'));
  93     $montants = $req->fetchColumn();
  94
  95     foreach ($montants as $m) {
  96         $p = strtr(substr($m, 0, strpos($m, 'EUR')), ',', '.');
  97         $evt['paid'] += trim($p);
  98     }
  99
 100     return $evt;
 101 }
 102
 103 // }}}
 104
 105 // {{{ function get_event_participants()
 106 function get_event_participants($evt, $item_id, $tri, $limit = '') {
 107     global $globals;
 108
 109     if (Env::has('initiale')) {
 110         $where = 'AND IF(u.nom IS NULL, m.nom,
 111                          IF(u.nom_usage<>"", u.nom_usage, u.nom))
 112                   LIKE "'.addslashes(Env::v('initiale')).'%"';
 113     } else {
 114         $where = '';
 115     }
 116
 117     $eid    = $evt['eid'];
 118     $money  = $evt['money'] && may_update();
 119     $pay_id = $evt['paiement_id'];
 120
 121     $query =
 122           "SELECT  IF(m.origine != 'X',m.nom,IF(u.nom_usage<>'', u.nom_usage, u.nom)) AS nom,
 123                    IF(m.origine != 'X',m.prenom,u.prenom) AS prenom,
 124                    IF(m.origine != 'X','extérieur',u.promo) AS promo,
 125                    IF(m.origine != 'X' OR u.perms = 'pending',m.email,a.alias) AS email,
 126                    IF(m.origine != 'X',m.sexe,FIND_IN_SET('femme', u.flags)) AS femme,
 127                    m.perms='admin' AS admin,
 128                    (m.origine = 'X') AS x,
 129                            ep.uid, ep.paid, SUM(nb) AS nb
 130              FROM  groupex.evenements_participants AS ep
 131        INNER JOIN  groupex.evenements AS e ON (ep.eid = e.eid)
 132             LEFT JOIN  groupex.membres AS m ON ( ep.uid = m.uid AND e.asso_id = m.asso_id)
 133         LEFT JOIN  auth_user_md5   AS u ON ( u.user_id = ep.uid )
 134         LEFT JOIN  aliases         AS a ON ( a.id = ep.uid AND a.type='a_vie' )
 135             WHERE  ep.eid = {?}
 136                     ".(($item_id)?" AND item_id = $item_id":"")."
 137                     $where
 138          GROUP BY  ep.uid
 139          ORDER BY  $tri $limit";
 140
 141     if ($item_id) {
 142         $res = XDB::query($query, $eid);
 143         return $res->fetchAllAssoc();
 144     }
 145
 146     $res = XDB::iterator($query, $eid);
 147     $tab = array();
 148     $user = 0;
 149
 150     while ($u = $res->next()) {
 151         $u['montant'] = 0;
 152         if ($money && $pay_id) {
 153             $res_ = XDB::query(
 154                 "SELECT montant
 155                    FROM {$globals->money->mpay_tprefix}transactions AS t
 156                   WHERE ref = {?} AND uid = {?}",
 157                 $pay_id, $u['uid']);
 158             $montants = $res_->fetchColumn();
 159             foreach ($montants as $m) {
 160                     $p = strtr(substr($m, 0, strpos($m, "EUR")), ",", ".");
 161                     $u['paid'] += trim($p);
 162             }
 163         }
 164         $res_ = XDB::iterator(
 165             "SELECT ep.nb, ep.item_id, ei.montant
 166                FROM groupex.evenements_participants AS ep
 167          INNER JOIN groupex.evenements_items AS ei ON (ei.eid = ep.eid AND ei.item_id = ep.item_id)
 168               WHERE ep.eid = {?} AND ep.uid = {?}",
 169             $eid, $u['uid']);
 170         while ($i = $res_->next()) {
 171             $u[$i['item_id']] = $i['nb'];
 172             $u['montant'] += $i['montant']*$i['nb'];
 173         }
 174         $tab[] = $u;
 175     }
 176     return $tab;
 177 }
 178 // }}}
 179
 180 //  {{{ function subscribe_lists_event()
 181 function subscribe_lists_event($participate, $uid, $evt)
 182 {
 183     require_once('user.func.inc.php');
 184     global $globals,$page;
 185
 186     $participant_list = $evt['participant_list'];
 187     $absent_list      = $evt['absent_list'];
 188
 189     $email = get_user_forlife($uid);
 190
 191     if ($email) {
 192         $email .= '@'.$globals->mail->domain;
 193     } else {
 194         $res = XDB::query("SELECT email
 195                              FROM groupex.membres
 196                             WHERE uid = {?} AND asso_id = {?}",
 197                             S::v('uid'), $globals->asso('id'));
 198         $email = $res->fetchOneCell();
 199     }
 200
 201     function subscribe($list, $email)
 202     {
 203         if ($list && $email) {
 204             XDB::execute("REPLACE INTO virtual_redirect
 205                                 VALUES ({?},{?})",
 206                          $list, $email);
 207         }
 208     }
 209
 210     function unsubscribe($list, $email)
 211     {
 212         if ($list && $email) {
 213             XDB::execute("DELETE FROM virtual_redirect
 214                                 WHERE vid = {?} AND redirect = {?}",
 215                          $list, $email);
 216         }
 217     }
 218
 219     if (is_null($participate)) {
 220         unsubscribe($participant_list, $email);
 221         subscribe($absent_list, $email);
 222     } elseif ($participate) {
 223         subscribe($participant_list, $email);
 224         unsubscribe($absent_list, $email);
 225     } else {
 226         unsubscribe($participant_list, $email);
 227         unsubscribe($absent_list, $email);
 228     }
 229 }
 230 // }}}
 231
 232 function event_change_shortname(&$page, $old, $new)
 233 {
 234     global $globals;
 235
 236     if (is_null($old)) {
 237         $old = '';
 238     }
 239     // Quelques vérifications sur l'alias (caractères spéciaux)
 240     if ($new && !preg_match( "/^[a-zA-Z0-9\-.]{3,20}$/", $new)) {
 241         $page->trig("Le raccourci demandé n'est pas valide.
 242                     Vérifie qu'il comporte entre 3 et 20 caractères
 243                     et qu'il ne contient que des lettres non accentuées,
 244                     des chiffres ou les caractères - et .");
 245         return $old;
 246     }
 247
 248     //vérifier que l'alias n'est pas déja pris
 249     if ($new && $old != $new) {
 250         $res = XDB::query('SELECT COUNT(*)
 251                              FROM groupex.evenements
 252                             WHERE short_name = {?}',
 253                            $new);
 254         if ($res->fetchOneCell() > 0) {
 255             $page->trig("Le raccourci demandé est déjà utilisé. Choisis en un autre.");
 256             return $old;
 257         }
 258     }
 259
 260     if ($old == $new) {
 261         return $new;
 262     }
 263
 264     if ($old && $new) {
 265         // if had a previous shortname change the old lists
 266         foreach (array('-absents@', '-participants@') as $v) {
 267             $v .= $globals->xnet->evts_domain;
 268             XDB::execute("UPDATE virtual SET alias = {?}
 269                            WHERE type = 'evt' AND alias = {?}",
 270                          $new.$v, $old.$v);
 271         }
 272         return $new;
 273     }
 274
 275     if (!$old && $new) {
 276         // if we have a first new short_name create the lists
 277
 278         XDB::execute("INSERT INTO virtual SET type = 'evt', alias = {?}",
 279                 $new.'-participants@'.$globals->xnet->evts_domain);
 280
 281         $lastid = XDB::insertId();
 282         XDB::execute(
 283           "INSERT INTO virtual_redirect (
 284                 SELECT {?} AS vid, IF(u.nom IS NULL, m.email, CONCAT(a.alias, {?})) AS redirect
 285                   FROM groupex.evenements_participants AS ep
 286              LEFT JOIN groupex.membres AS m ON (ep.uid = m.uid)
 287              LEFT JOIN auth_user_md5   AS u ON (u.user_id = ep.uid)
 288              LEFT JOIN aliases         AS a ON (a.id = ep.uid AND a.type = 'a_vie')
 289                  WHERE ep.eid = {?}
 290               GROUP BY ep.uid)",
 291               $lastid, '@'.$globals->mail->domain, $eid);
 292
 293         XDB::execute("INSERT INTO virtual SET type = 'evt', alias = {?}",
 294                 $new.'-absents@'.$globals->xnet->evts_domain);
 295
 296         $lastid = XDB::insertId();
 297         XDB::execute("INSERT INTO virtual_redirect (
 298             SELECT {?} AS vid, IF(u.nom IS NULL, m.email, CONCAT(a.alias, {?})) AS redirect
 299                   FROM groupex.membres AS m
 300              LEFT JOIN groupex.evenements_participants AS ep ON (ep.uid = m.uid)
 301              LEFT JOIN auth_user_md5   AS u ON (u.user_id = m.uid)
 302              LEFT JOIN aliases         AS a ON (a.id = m.uid AND a.type = 'a_vie')
 303                  WHERE m.asso_id = {?} AND ep.uid IS NULL
 304               GROUP BY m.uid)",
 305              $lastid, "@".$globals->mail->domain, $globals->asso('id'));
 306
 307         return $new;
 308     }
 309
 310     if ($old && !$new) {
 311         // if we delete the old short name, delete the lists
 312         foreach (array('-absents@', '-participants@') as $v) {
 313             $v .= $globals->xnet->evts_domain;
 314             XDB::execute("DELETE virtual, virtual_redirect FROM virtual
 315                                  LEFT JOIN virtual_redirect USING(vid)
 316                                      WHERE virtual.alias = {?}",
 317                                    $infos['short_name'].$v);
 318         }
 319         return $new;
 320     }
 321
 322     // cannot happen
 323     return $old;
 324 }
 325
 326 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
 327 ?>