modules/xnetevents.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2008 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 define('NB_PER_PAGE', 25);
  23
  24 class XnetEventsModule extends PLModule
  25 {
  26     function handlers()
  27     {
  28         return array(
  29             '%grp/events'       => $this->make_hook('events',  AUTH_MDP),
  30             '%grp/events/sub'   => $this->make_hook('sub',     AUTH_MDP),
  31             '%grp/events/csv'   => $this->make_hook('csv',     AUTH_MDP, 'user', NO_HTTPS),
  32             '%grp/events/ical'  => $this->make_hook('ical',    AUTH_MDP, 'user', NO_HTTPS),
  33             '%grp/events/edit'  => $this->make_hook('edit',    AUTH_MDP, 'groupadmin'),
  34             '%grp/events/admin' => $this->make_hook('admin',   AUTH_MDP, 'groupmember'),
  35         );
  36     }
  37
  38     function handler_events(&$page, $archive = null)
  39     {
  40         global $globals;
  41
  42         $page->changeTpl('xnetevents/index.tpl');
  43         $action = null;
  44         $archive = ($archive == 'archive' && may_update());
  45
  46         if (Post::has('del')) {
  47             $action = 'del';
  48             $eid = Post::v('del');
  49         } elseif (Post::has('archive')) {
  50             $action = 'archive';
  51             $eid = Post::v('archive');
  52         } elseif (Post::has('unarchive')) {
  53             $action = 'unarchive';
  54             $eid = Post::v('unarchive');
  55         }
  56
  57         if (!is_null($action)) {
  58             if (!may_update()) {
  59                 return PL_FORBIDDEN;
  60             }
  61             S::assert_xsrf_token();
  62
  63             $res = XDB::query("SELECT asso_id, short_name FROM groupex.evenements
  64                                 WHERE eid = {?} AND asso_id = {?}",
  65                               $eid, $globals->asso('id'));
  66
  67             $tmp = $res->fetchOneRow();
  68             if (!$tmp) {
  69                 return PL_FORBIDDEN;
  70             }
  71         }
  72
  73         if ($action == 'del') {
  74             // deletes the event mailing aliases
  75             if ($tmp[1]) {
  76                 XDB::execute(
  77                     "DELETE FROM virtual WHERE type = 'evt' AND alias LIKE {?}",
  78                     $tmp[1].'-absents@%');
  79                 XDB::execute(
  80                     "DELETE FROM virtual WHERE type = 'evt' AND alias LIKE {?}",
  81                     $tmp[1].'-participants@%');
  82             }
  83
  84             // deletes the event items
  85             XDB::execute("DELETE FROM groupex.evenements_items WHERE eid = {?}", $eid);
  86
  87             // deletes the event participants
  88             XDB::execute("DELETE FROM groupex.evenements_participants
  89                                     WHERE eid = {?}", $eid);
  90
  91             // deletes the event
  92             XDB::execute("DELETE FROM groupex.evenements
  93                                     WHERE eid = {?} AND asso_id = {?}",
  94                                    $eid, $globals->asso('id'));
  95
  96             // delete the requests for payments
  97             require_once 'validations.inc.php';
  98             XDB::execute("DELETE FROM requests
  99                                     WHERE type = 'paiements' AND data LIKE {?}",
 100                                    PayReq::same_event($eid, $globals->asso('id')));
 101             $globals->updateNbValid();
 102         }
 103
 104         if ($action == 'archive') {
 105             XDB::execute("UPDATE groupex.evenements
 106                              SET archive = 1
 107                            WHERE eid = {?} AND asso_id = {?}",
 108                          $eid, $globals->asso('id'));
 109         }
 110
 111         if ($action == 'unarchive') {
 112             XDB::execute("UPDATE groupex.evenements
 113                              SET archive = 0
 114                            WHERE eid = {?} AND asso_id = {?}",
 115                          $eid, $globals->asso('id'));
 116         }
 117
 118         $page->assign('archive', $archive);
 119         $evenements = XDB::iterator(
 120                 "SELECT  e.*, LEFT(10, e.debut) AS debut_day, LEFT(10, e.fin) AS fin_day,
 121                          IF(e.deadline_inscription, e.deadline_inscription >= LEFT(NOW(), 10),
 122                             1) AS inscr_open, e.deadline_inscription,
 123                          u.nom, u.prenom, u.promo, a.alias,
 124                          MAX(ep.nb) IS NOT NULL AS inscrit, MAX(ep.paid) AS paid
 125                   FROM  groupex.evenements  AS e
 126             INNER JOIN  x4dat.auth_user_md5 AS u ON u.user_id = e.organisateur_uid
 127             INNER JOIN  x4dat.aliases       AS a ON (a.type = 'a_vie' AND a.id = u.user_id)
 128              LEFT JOIN  groupex.evenements_participants AS ep ON (ep.eid = e.eid AND ep.uid = {?})
 129                  WHERE  asso_id = {?}
 130                    AND  archive = " . ($archive ? "1 " : "0 ")
 131               . "GROUP BY  e.eid
 132                  ORDER BY  inscr_open DESC, debut DESC", S::v('uid'), $globals->asso('id'));
 133
 134         $evts = array();
 135         $undisplayed_events = 0;
 136
 137         while ($e = $evenements->next()) {
 138             if (!is_member() && !may_update() && !$e['accept_nonmembre']) {
 139                 $undisplayed_events ++;
 140                 continue;
 141             }
 142
 143             $e['show_participants'] = ($e['show_participants'] && (is_member() || may_update()));
 144             $res = XDB::query(
 145                 "SELECT titre, details, montant, ei.item_id, nb, ep.paid
 146                    FROM groupex.evenements_items AS ei
 147               LEFT JOIN groupex.evenements_participants AS ep
 148                         ON (ep.eid = ei.eid AND ep.item_id = ei.item_id AND uid = {?})
 149                   WHERE ei.eid = {?}",
 150                     S::v('uid'), $e['eid']);
 151             $e['moments'] = $res->fetchAllAssoc();
 152
 153             $e['topay'] = 0;
 154             $e['paid']  = $e['moments'][0]['paid'];
 155             foreach ($e['moments'] as $m) {
 156                 $e['topay'] += $m['nb'] * $m['montant'];
 157             }
 158
 159             $query = XDB::query(
 160                 "SELECT montant
 161                    FROM {$globals->money->mpay_tprefix}transactions AS t
 162                  WHERE ref = {?} AND uid = {?}", $e['paiement_id'], S::v('uid'));
 163             $montants = $query->fetchColumn();
 164
 165             foreach ($montants as $m) {
 166                 $p = strtr(substr($m, 0, strpos($m, 'EUR')), ',', '.');
 167                 $e['paid'] += trim($p);
 168             }
 169
 170             if (Env::has('updated') && $e['eid'] == Env::i('updated')) {
 171                 $page->assign('updated', $e);
 172             }
 173             $evts[] = $e;
 174         }
 175
 176         $page->assign('evenements', $evts);
 177         $page->assign('undisplayed_events', $undisplayed_events);
 178     }
 179
 180     function handler_sub(&$page, $eid = null)
 181     {
 182         $this->load('xnetevents.inc.php');
 183         $page->changeTpl('xnetevents/subscribe.tpl');
 184
 185         $evt = get_event_detail($eid);
 186         if (is_null($evt)) {
 187             return PL_NOT_FOUND;
 188         }
 189         if ($evt === false) {
 190             global $globals, $platal;
 191             $url = $globals->asso('sub_url');
 192             if (empty($url)) {
 193                 $url = $platal->ns . 'subscribe';
 194             }
 195             $page->kill('Cet événement est reservé aux membres du groupe ' . $globals->asso('nom') .
 196                         '. Pour devenir membre, rends-toi sur la page de <a href="' . $url . '">demande d\'inscripton</a>.');
 197         }
 198
 199         if (!$evt['inscr_open']) {
 200             $page->kill('Les inscriptions pour cet événement sont closes');
 201         }
 202         if (!$evt['accept_nonmembre'] && !is_member() && !may_update()) {
 203             $page->kill('Cet événement est fermé aux non-membres du groupe');
 204         }
 205
 206         global $globals;
 207         $res = XDB::query("SELECT  stamp FROM requests
 208                             WHERE  type = 'paiements' AND data LIKE {?}",
 209                            PayReq::same_event($evt['eid'], $globals->asso('id')));
 210         $page->assign('validation', $res->numRows());
 211         $page->assign('event', $evt);
 212
 213         if (!Post::has('submit')) {
 214             return;
 215         } else {
 216             S::assert_xsrf_token();
 217         }
 218
 219         $moments = Post::v('moment',    array());
 220         $pers    = Post::v('personnes', array());
 221         $subs    = array();
 222
 223         foreach ($moments as $j => $v) {
 224             $subs[$j] = intval($v);
 225
 226             // retreive ohter field when more than one person
 227             if ($subs[$j] == 2) {
 228                 if (!isset($pers[$j]) || !is_numeric($pers[$j])
 229                 ||  $pers[$j] < 0)
 230                 {
 231                     $page->trigError('Tu dois choisir un nombre d\'invités correct !');
 232                     return;
 233                 }
 234                 $subs[$j] = 1 + $pers[$j];
 235             }
 236         }
 237
 238         // impossible to unsubscribe if you already paid sthing
 239         if (!array_sum($subs) && $evt['paid'] != 0) {
 240             $page->trigError("Impossible de te désinscrire complètement ".
 241                             "parce que tu as fait un paiement par ".
 242                             "chèque ou par liquide. Contacte un ".
 243                             "administrateur du groupe si tu es sûr de ".
 244                             "ne pas venir");
 245             return;
 246         }
 247
 248         // update actual inscriptions
 249         $updated = false;
 250         $total   = 0;
 251         $paid    = $evt['paid'] ? $evt['paid'] : 0;
 252         $telepaid= $evt['telepaid'] ? $evt['telepaid'] : 0;
 253         foreach ($subs as $j => $nb) {
 254             if ($nb >= 0) {
 255                 XDB::execute(
 256                     "REPLACE INTO  groupex.evenements_participants
 257                            VALUES  ({?}, {?}, {?}, {?}, {?}, {?})",
 258                     $eid, S::v('uid'), $j, $nb, Env::has('notify_payment') ? 'notify_payment' : '',
 259                     $j == 1 ? $paid - $telepaid : 0);
 260                 $updated = $eid;
 261             } else {
 262                 XDB::execute(
 263                     "DELETE FROM  groupex.evenements_participants
 264                            WHERE  eid = {?} AND uid = {?} AND item_id = {?}",
 265                     $eid, S::v("uid"), $j);
 266                 $updated = $eid;
 267             }
 268             $total += $nb;
 269         }
 270         if ($updated !== false) {
 271             subscribe_lists_event($total, S::i('uid'), $evt);
 272         }
 273         $page->assign('event', get_event_detail($eid));
 274     }
 275
 276     function handler_csv(&$page, $eid = null, $item_id = null)
 277     {
 278         $this->load('xnetevents.inc.php');
 279
 280         if (!is_numeric($item_id)) {
 281             $item_id = null;
 282         }
 283
 284         $evt = get_event_detail($eid, $item_id);
 285         if (!$evt) {
 286             return PL_NOT_FOUND;
 287         }
 288
 289         header('Content-type: text/x-csv; encoding=UTF-8');
 290         header('Pragma: ');
 291         header('Cache-Control: ');
 292
 293         $page->changeTpl('xnetevents/csv.tpl', NO_SKIN);
 294
 295         $admin = may_update();
 296
 297         $tri = (Env::v('order') == 'alpha' ? 'promo, nom, prenom' : 'nom, prenom, promo');
 298
 299         $page->assign('participants',
 300                       get_event_participants($evt, $item_id, $tri));
 301
 302         $page->assign('admin', $admin);
 303         $page->assign('moments', $evt['moments']);
 304         $page->assign('money', $evt['money']);
 305         $page->assign('telepayment', $evt['paiement_id']);
 306         $page->assign('tout', !Env::v('item_id', false));
 307     }
 308
 309     function handler_ical(&$page, $eid = null)
 310     {
 311         global $globals;
 312
 313         $this->load('xnetevents.inc.php');
 314         $evt = get_event_detail($eid);
 315         if (!$evt) {
 316             return PL_FORBIDDEN;
 317         }
 318         $evt['debut'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['debut']);
 319         $evt['fin'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['fin']);
 320
 321         foreach ($evt['moments'] as $m) {
 322             $evt['descriptif'] .= "\n\n** " . $m['titre'] . " **\n" . $m['details'];
 323         }
 324
 325         $page->changeTpl('xnetevents/calendar.tpl', NO_SKIN);
 326
 327         require_once('ical.inc.php');
 328         $page->assign('asso', $globals->asso());
 329         $page->assign('timestamp', time());
 330         $page->assign('admin', may_update());
 331
 332         if (may_update()) {
 333             $page->assign('participants', get_event_participants($evt, null, 'promo, nom, prenom'));
 334         }
 335         $page->register_function('display_ical', 'display_ical');
 336         $page->assign_by_ref('e', $evt);
 337
 338         header('Content-Type: text/calendar; charset=utf-8');
 339     }
 340
 341     function handler_edit(&$page, $eid = null)
 342     {
 343         global $globals;
 344
 345         // get eid if the the given one is a short name
 346         if (!is_null($eid) && !is_numeric($eid)) {
 347             $res = XDB::query("SELECT eid
 348                                  FROM groupex.evenements
 349                                 WHERE asso_id = {?} AND short_name = {?}",
 350                               $globals->asso('id'), $eid);
 351             if ($res->numRows()) {
 352                 $eid = (int)$res->fetchOneCell();
 353             }
 354         }
 355
 356         // check the event is in our group
 357         if (!is_null($eid)) {
 358             $res = XDB::query("SELECT short_name
 359                                  FROM groupex.evenements
 360                                 WHERE eid = {?} AND asso_id = {?}",
 361                               $eid, $globals->asso('id'));
 362             if ($res->numRows()) {
 363                 $infos = $res->fetchOneAssoc();
 364             } else {
 365                 return PL_FORBIDDEN;
 366             }
 367         }
 368
 369         $page->changeTpl('xnetevents/edit.tpl');
 370
 371         $moments    = range(1, 4);
 372         $error      = false;
 373         $page->assign('moments', $moments);
 374
 375         if (Post::v('intitule')) {
 376             S::assert_xsrf_token();
 377
 378             $this->load('xnetevents.inc.php');
 379             $short_name = event_change_shortname($page, $eid,
 380                                                  $infos['short_name'],
 381                                                  Env::v('short_name', ''));
 382             if ($short_name != Env::v('short_name')) {
 383                 $error = true;
 384             }
 385             $evt = array(
 386                 'eid'              => $eid,
 387                 'asso_id'          => $globals->asso('id'),
 388                 'paiement_id'      => Post::v('paiement_id') > 0 ? Post::v('paiement_id') : null,
 389                 'debut'            => Post::v('deb_Year').'-'.Post::v('deb_Month')
 390                                       .'-'.Post::v('deb_Day').' '.Post::v('deb_Hour')
 391                                       .':'.Post::v('deb_Minute').':00',
 392                 'fin'              => Post::v('fin_Year').'-'.Post::v('fin_Month')
 393                                       .'-'.Post::v('fin_Day').' '.Post::v('fin_Hour')
 394                                       .':'.Post::v('fin_Minute').':00',
 395                 'short_name'       => $short_name,
 396             );
 397
 398             $trivial = array('intitule', 'descriptif', 'noinvite',
 399                              'show_participants', 'accept_nonmembre', 'organisateur_uid');
 400             foreach ($trivial as $k) {
 401                 $evt[$k] = Post::v($k);
 402             }
 403             if (!$eid) {
 404                 $evt['organisateur_uid'] = S::v('uid');
 405             }
 406
 407             if (Post::v('deadline')) {
 408                 $evt['deadline_inscription'] = Post::v('inscr_Year').'-'
 409                                              . Post::v('inscr_Month').'-'
 410                                              . Post::v('inscr_Day');
 411             } else {
 412                 $evt['deadline_inscription'] = null;
 413             }
 414
 415             // Store the modifications in the database
 416             XDB::execute('REPLACE INTO groupex.evenements
 417                 SET eid={?}, asso_id={?}, organisateur_uid={?}, intitule={?},
 418                     paiement_id = {?}, descriptif = {?}, debut = {?},
 419                     fin = {?}, show_participants = {?}, short_name = {?},
 420                     deadline_inscription = {?}, noinvite = {?},
 421                     accept_nonmembre = {?}',
 422                     $evt['eid'], $evt['asso_id'], $evt['organisateur_uid'],
 423                     $evt['intitule'], $evt['paiement_id'], $evt['descriptif'],
 424                     $evt['debut'], $evt['fin'], $evt['show_participants'],
 425                     $evt['short_name'], $evt['deadline_inscription'],
 426                     $evt['noinvite'], $evt['accept_nonmembre']);
 427
 428             // if new event, get its id
 429             if (!$eid) {
 430                 $eid = XDB::insertId();
 431             }
 432
 433             $nb_moments   = 0;
 434             $money_defaut = 0;
 435
 436             foreach ($moments as $i) {
 437                 if (Post::v('titre'.$i)) {
 438                     $nb_moments++;
 439
 440                     $montant = strtr(Post::v('montant'.$i), ',', '.');
 441                     $money_defaut += (float)$montant;
 442                     XDB::execute("
 443                         REPLACE INTO groupex.evenements_items
 444                         VALUES ({?}, {?}, {?}, {?}, {?})",
 445                         $eid, $i, Post::v('titre'.$i),
 446                         Post::v('details'.$i), $montant);
 447                 } else {
 448                     XDB::execute("DELETE FROM groupex.evenements_items
 449                                             WHERE eid = {?} AND item_id = {?}", $eid, $i);
 450                 }
 451             }
 452             // request for a new payment
 453             if (Post::v('paiement_id') == -1 && $money_defaut >= 0) {
 454                 require_once 'validations.inc.php';
 455                 $p = new PayReq(S::v('uid'),
 456                                 Post::v('intitule')." - ".$globals->asso('nom'),
 457                                 Post::v('site'), $money_defaut,
 458                                 Post::v('confirmation'), 0, 999,
 459                                 $globals->asso('id'), $eid);
 460                 if ($p->accept()) {
 461                     $p->submit();
 462                 } else {
 463                     $page->assign('paiement_message', Post::v('confirmation'));
 464                     $page->assign('paiement_site', Post::v('site'));
 465                     $error = true;
 466                 }
 467             }
 468
 469             // events with no sub-event: add a sub-event with no name
 470             if ($nb_moments == 0) {
 471                 XDB::execute("INSERT INTO groupex.evenements_items
 472                                    VALUES ({?}, {?}, '', '', 0)", $eid, 1);
 473             }
 474
 475             if (!$error) {
 476                 pl_redirect('events');
 477             }
 478         }
 479
 480         // get a list of all the payment for this asso
 481         $res = XDB::iterator("SELECT id, text
 482                                 FROM {$globals->money->mpay_tprefix}paiements
 483                                WHERE asso_id = {?}", $globals->asso('id'));
 484         $paiements = array();
 485         while ($a = $res->next()) $paiements[$a['id']] = $a['text']; {
 486             $page->assign('paiements', $paiements);
 487         }
 488
 489         // when modifying an old event retreive the old datas
 490         if ($eid) {
 491             $res = XDB::query(
 492                     "SELECT     eid, intitule, descriptif, debut, fin, organisateur_uid,
 493                             show_participants, paiement_id, short_name,
 494                             deadline_inscription, noinvite, accept_nonmembre
 495                        FROM     groupex.evenements
 496                       WHERE eid = {?}", $eid);
 497             $evt = $res->fetchOneAssoc();
 498             // find out if there is already a request for a payment for this event
 499             require_once 'validations.inc.php';
 500             $res = XDB::query("SELECT stamp FROM requests
 501                                 WHERE type = 'paiements' AND data LIKE {?}",
 502                                PayReq::same_event($eid, $globals->asso('id')));
 503             $stamp = $res->fetchOneCell();
 504             if ($stamp) {
 505                 $evt['paiement_id']  = -2;
 506                 $evt['paiement_req'] = $stamp;
 507             }
 508             $page->assign('evt', $evt);
 509             // get all the different moments infos
 510             $res = XDB::iterator(
 511                     "SELECT item_id, titre, details, montant
 512                        FROM groupex.evenements_items AS ei
 513                  INNER JOIN groupex.evenements AS e ON(e.eid = ei.eid)
 514                       WHERE e.eid = {?}
 515                    ORDER BY item_id", $eid);
 516             $items = array();
 517             while ($item = $res->next()) {
 518                 $items[$item['item_id']] = $item;
 519             }
 520             $page->assign('items', $items);
 521         }
 522         $page->assign('url_ref', $eid);
 523     }
 524
 525     function handler_admin(&$page, $eid = null, $item_id = null)
 526     {
 527         global $globals;
 528
 529         $this->load('xnetevents.inc.php');
 530
 531         $evt = get_event_detail($eid, $item_id);
 532         if (!$evt) {
 533             return PL_NOT_FOUND;
 534         }
 535
 536         $page->changeTpl('xnetevents/admin.tpl');
 537         if (!$evt['show_participants'] && !may_update()) {
 538             return PL_FORBIDDEN;
 539         }
 540
 541         if (may_update() && Post::v('adm')) {
 542             S::assert_xsrf_token();
 543
 544             $member = get_infos(Post::v('mail'));
 545             if (!$member) {
 546                 $page->trigError("Membre introuvable");
 547             }
 548
 549             // change the price paid by a participant
 550             if (Env::v('adm') == 'prix' && $member) {
 551                 XDB::execute("UPDATE groupex.evenements_participants
 552                                  SET paid = IF(paid + {?} > 0, paid + {?}, 0)
 553                                WHERE uid = {?} AND eid = {?} AND item_id = 1",
 554                         strtr(Env::v('montant'), ',', '.'),
 555                         strtr(Env::v('montant'), ',', '.'),
 556                         $member['uid'], $evt['eid']);
 557             }
 558
 559             // change the number of personns coming with a participant
 560             if (Env::v('adm') == 'nbs' && $member) {
 561                 $res = XDB::query("SELECT paid
 562                                      FROM groupex.evenements_participants
 563                                     WHERE uid = {?} AND eid = {?}",
 564                                   $member['uid'], $evt['eid']);
 565
 566                 $paid = intval($res->fetchOneCell());
 567                 $nbs  = Post::v('nb', array());
 568
 569                 foreach ($nbs as $id => $nb) {
 570                     $nb = max(intval($nb), 0);
 571                     XDB::execute("REPLACE INTO groupex.evenements_participants
 572                                         VALUES ({?}, {?}, {?}, {?}, {?}, {?})",
 573                                   $evt['eid'], $member['uid'], $id, $nb, '', $id == 1 ? $paid : 0);
 574                 }
 575
 576                 $res = XDB::query("SELECT COUNT(uid) AS cnt, SUM(nb) AS nb
 577                                      FROM groupex.evenements_participants
 578                                     WHERE uid = {?} AND eid = {?}
 579                                  GROUP BY uid",
 580                                             $member['uid'], $evt['eid']);
 581                 $u = $res->fetchOneAssoc();
 582                 $u = $u['cnt'] ? $u['nb'] : null;
 583                 subscribe_lists_event($u, $member['uid'], $evt);
 584             }
 585
 586             $evt = get_event_detail($eid, $item_id);
 587         }
 588
 589         $page->assign_by_ref('evt', $evt);
 590         $page->assign('tout', is_null($item_id));
 591
 592         if (count($evt['moments'])) {
 593             $page->assign('moments', $evt['moments']);
 594         }
 595
 596         $tri = (Env::v('order') == 'alpha' ? 'promo, nom, prenom' : 'nom, prenom, promo');
 597         $whereitemid = is_null($item_id) ? '' : "AND ep.item_id = $item_id";
 598         $res = XDB::iterRow(
 599                     'SELECT  UPPER(SUBSTRING(IF(u.nom IS NULL, m.nom,
 600                                                 IF(u.nom_usage<>"", u.nom_usage, u.nom)), 1, 1)),
 601                              COUNT(DISTINCT ep.uid)
 602                        FROM  groupex.evenements_participants AS ep
 603                  INNER JOIN  groupex.evenements AS e ON (ep.eid = e.eid)
 604                   LEFT JOIN  groupex.membres AS m ON ( ep.uid = m.uid AND e.asso_id = m.asso_id)
 605                   LEFT JOIN  auth_user_md5   AS u ON ( u.user_id = ep.uid )
 606                       WHERE  ep.eid = {?} '.$whereitemid . '
 607                    GROUP BY  UPPER(SUBSTRING(IF(u.nom IS NULL,m.nom,u.nom), 1, 1))', $evt['eid']);
 608
 609         $alphabet = array();
 610         $nb_tot = 0;
 611         while (list($char, $nb) = $res->next()) {
 612             $alphabet[ord($char)] = $char;
 613             $nb_tot += $nb;
 614             if (Env::has('initiale') && $char == strtoupper(Env::v('initiale'))) {
 615                 $tot = $nb;
 616             }
 617         }
 618         ksort($alphabet);
 619         $page->assign('alphabet', $alphabet);
 620
 621         if ($evt['paiement_id']) {
 622             $res = XDB::iterator(
 623                 "SELECT IF(u.nom_usage<>'', u.nom_usage, u.nom) AS nom, u.prenom,
 624                         u.promo, a.alias AS email, t.montant
 625                    FROM {$globals->money->mpay_tprefix}transactions AS t
 626              INNER JOIN auth_user_md5 AS u ON(t.uid = u.user_id)
 627              INNER JOIN aliases AS a ON (a.id = t.uid AND a.type='a_vie' )
 628               LEFT JOIN groupex.evenements_participants AS ep ON(ep.uid = t.uid AND ep.eid = {?})
 629                   WHERE t.ref = {?} AND ep.uid IS NULL",
 630                   $evt['eid'], $evt['paiement_id']);
 631             $page->assign('oublis', $res->total());
 632             $page->assign('oubliinscription', $res);
 633         }
 634
 635         $absents = XDB::iterator("SELECT  p.uid,
 636                                           IF(m.origine = 'X', IF(u.nom_usage != '', u.nom_usage, u.nom), m.nom) AS nom,
 637                                           IF(m.origine = 'X', u.prenom, u.prenom) AS prenom,
 638                                           IF(m.origine = 'X', u.promo, m.origine) AS promo,
 639                                           IF(m.origine = 'X', FIND_IN_SET('femme', u.flags), m.sexe) AS sexe,
 640                                           IF(m.origine = 'X', a.alias, m.email) AS email
 641                                     FROM  groupex.evenements_participants AS p
 642                               INNER JOIN  groupex.membres                 AS m USING(uid)
 643                                LEFT JOIN  groupex.evenements_participants AS p2 ON (p2.uid = m.uid AND p2.eid = p.eid
 644                                                                                     AND p2.nb != 0)
 645                                LEFT JOIN  auth_user_md5                   AS u ON (u.user_id = m.uid)
 646                                LEFT JOIN  aliases                         AS a ON (a.id = u.user_id AND a.type = 'a_vie')
 647                                    WHERE  p.eid = {?} AND p2.eid IS NULL
 648                                        " . (Env::v('initiale') ? " AND IF(u.nom IS NULL, m.nom,
 649                                           IF(u.nom_usage<>'', u.nom_usage, u.nom)) LIKE '" . Env::v('initiale') . "%'"
 650                                          : "") . "
 651                                 GROUP BY  m.uid
 652                                 ORDER BY  nom, prenom, promo", $evt['eid']);
 653
 654         $ofs   = Env::i('offset');
 655         $tot   = (Env::v('initiale') ? $tot : $nb_tot) - $absents->total();
 656         $nbp   = intval(($tot-1)/NB_PER_PAGE);
 657         $links = array();
 658         if ($ofs) {
 659             $links['précédent'] = $ofs-1;
 660         }
 661         for ($i = 0; $i <= $nbp; $i++) {
 662             $links[(string)($i+1)] = $i;
 663         }
 664         if ($ofs < $nbp) {
 665             $links['suivant'] = $ofs+1;
 666         }
 667         if (count($links)>1) {
 668             $page->assign('links', $links);
 669         }
 670
 671
 672         $page->assign('absents', $absents);
 673         $page->assign('participants',
 674                       get_event_participants($evt, $item_id, $tri,
 675                                              "LIMIT ".($ofs*NB_PER_PAGE).", ".NB_PER_PAGE));
 676     }
 677 }
 678
 679 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
 680 ?>