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, COUNT(DISTINCT ep.uid) AS nb, 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, SUM(ep.paid) AS 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 = {?} AND ep.nb > 0
 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['adminpaid'] = $u['paid'];
 152         $u['montant'] = 0;
 153         if ($money && $pay_id) {
 154             $res_ = XDB::query(
 155                 "SELECT montant
 156                    FROM {$globals->money->mpay_tprefix}transactions AS t
 157                   WHERE ref = {?} AND uid = {?}",
 158                 $pay_id, $u['uid']);
 159             $montants = $res_->fetchColumn();
 160             foreach ($montants as $m) {
 161                     $p = strtr(substr($m, 0, strpos($m, "EUR")), ",", ".");
 162                     $u['paid'] += trim($p);
 163             }
 164         }
 165         $u['telepayment'] = $u['paid'] - $u['adminpaid'];
 166         $res_ = XDB::iterator(
 167             "SELECT ep.nb, ep.item_id, ei.montant
 168                FROM groupex.evenements_participants AS ep
 169          INNER JOIN groupex.evenements_items AS ei ON (ei.eid = ep.eid AND ei.item_id = ep.item_id)
 170               WHERE ep.eid = {?} AND ep.uid = {?}",
 171             $eid, $u['uid']);
 172         while ($i = $res_->next()) {
 173             $u[$i['item_id']] = $i['nb'];
 174             $u['montant'] += $i['montant']*$i['nb'];
 175         }
 176         $tab[] = $u;
 177     }
 178     return $tab;
 179 }
 180 // }}}
 181
 182 //  {{{ function subscribe_lists_event()
 183 function subscribe_lists_event($participate, $uid, $evt)
 184 {
 185     require_once('user.func.inc.php');
 186     global $globals,$page;
 187
 188     $participant_list = $evt['participant_list'];
 189     $absent_list      = $evt['absent_list'];
 190
 191     $email = get_user_forlife($uid);
 192
 193     if ($email) {
 194         $email .= '@'.$globals->mail->domain;
 195     } else {
 196         $res = XDB::query("SELECT email
 197                              FROM groupex.membres
 198                             WHERE uid = {?} AND asso_id = {?}",
 199                             S::v('uid'), $globals->asso('id'));
 200         $email = $res->fetchOneCell();
 201     }
 202
 203     function subscribe($list, $email)
 204     {
 205         if ($list && $email) {
 206             XDB::execute("REPLACE INTO virtual_redirect
 207                                 VALUES ({?},{?})",
 208                          $list, $email);
 209         }
 210     }
 211
 212     function unsubscribe($list, $email)
 213     {
 214         if ($list && $email) {
 215             XDB::execute("DELETE FROM virtual_redirect
 216                                 WHERE vid = {?} AND redirect = {?}",
 217                          $list, $email);
 218         }
 219     }
 220
 221     if (is_null($participate)) {
 222         unsubscribe($participant_list, $email);
 223         subscribe($absent_list, $email);
 224     } elseif ($participate) {
 225         subscribe($participant_list, $email);
 226         unsubscribe($absent_list, $email);
 227     } else {
 228         unsubscribe($participant_list, $email);
 229         unsubscribe($absent_list, $email);
 230     }
 231 }
 232 // }}}
 233
 234 function event_change_shortname(&$page, $old, $new)
 235 {
 236     global $globals;
 237
 238     if (is_null($old)) {
 239         $old = '';
 240     }
 241     // Quelques vérifications sur l'alias (caractères spéciaux)
 242     if ($new && !preg_match( "/^[a-zA-Z0-9\-.]{3,20}$/", $new)) {
 243         $page->trig("Le raccourci demandé n'est pas valide.
 244                     Vérifie qu'il comporte entre 3 et 20 caractères
 245                     et qu'il ne contient que des lettres non accentuées,
 246                     des chiffres ou les caractères - et .");
 247         return $old;
 248     }
 249
 250     //vérifier que l'alias n'est pas déja pris
 251     if ($new && $old != $new) {
 252         $res = XDB::query('SELECT COUNT(*)
 253                              FROM groupex.evenements
 254                             WHERE short_name = {?}',
 255                            $new);
 256         if ($res->fetchOneCell() > 0) {
 257             $page->trig("Le raccourci demandé est déjà utilisé. Choisis en un autre.");
 258             return $old;
 259         }
 260     }
 261
 262     if ($old == $new) {
 263         return $new;
 264     }
 265
 266     if ($old && $new) {
 267         // if had a previous shortname change the old lists
 268         foreach (array('-absents@', '-participants@') as $v) {
 269             $v .= $globals->xnet->evts_domain;
 270             XDB::execute("UPDATE virtual SET alias = {?}
 271                            WHERE type = 'evt' AND alias = {?}",
 272                          $new.$v, $old.$v);
 273         }
 274         return $new;
 275     }
 276
 277     if (!$old && $new) {
 278         // if we have a first new short_name create the lists
 279
 280         XDB::execute("INSERT INTO virtual SET type = 'evt', alias = {?}",
 281                 $new.'-participants@'.$globals->xnet->evts_domain);
 282
 283         $lastid = XDB::insertId();
 284         XDB::execute(
 285           "INSERT INTO virtual_redirect (
 286                 SELECT {?} AS vid, IF(u.nom IS NULL, m.email, CONCAT(a.alias, {?})) AS redirect
 287                   FROM groupex.evenements_participants AS ep
 288              LEFT JOIN groupex.membres AS m ON (ep.uid = m.uid)
 289              LEFT JOIN auth_user_md5   AS u ON (u.user_id = ep.uid)
 290              LEFT JOIN aliases         AS a ON (a.id = ep.uid AND a.type = 'a_vie')
 291                  WHERE ep.eid = {?}
 292               GROUP BY ep.uid)",
 293               $lastid, '@'.$globals->mail->domain, $eid);
 294
 295         XDB::execute("INSERT INTO virtual SET type = 'evt', alias = {?}",
 296                 $new.'-absents@'.$globals->xnet->evts_domain);
 297
 298         $lastid = XDB::insertId();
 299         XDB::execute("INSERT INTO virtual_redirect (
 300             SELECT {?} AS vid, IF(u.nom IS NULL, m.email, CONCAT(a.alias, {?})) AS redirect
 301                   FROM groupex.membres AS m
 302              LEFT JOIN groupex.evenements_participants AS ep ON (ep.uid = m.uid)
 303              LEFT JOIN auth_user_md5   AS u ON (u.user_id = m.uid)
 304              LEFT JOIN aliases         AS a ON (a.id = m.uid AND a.type = 'a_vie')
 305                  WHERE m.asso_id = {?} AND ep.uid IS NULL
 306               GROUP BY m.uid)",
 307              $lastid, "@".$globals->mail->domain, $globals->asso('id'));
 308
 309         return $new;
 310     }
 311
 312     if ($old && !$new) {
 313         // if we delete the old short name, delete the lists
 314         foreach (array('-absents@', '-participants@') as $v) {
 315             $v .= $globals->xnet->evts_domain;
 316             XDB::execute("DELETE virtual, virtual_redirect FROM virtual
 317                                  LEFT JOIN virtual_redirect USING(vid)
 318                                      WHERE virtual.alias = {?}",
 319                                    $infos['short_name'].$v);
 320         }
 321         return $new;
 322     }
 323
 324     // cannot happen
 325     return $old;
 326 }
 327
 328 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 329 ?>