modules/xnetevents.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2014 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_PASSWD, 'groups'),
  30             '%grp/events/sub'   => $this->make_hook('sub',    AUTH_PASSWD, 'groups'),
  31             '%grp/events/csv'   => $this->make_hook('csv',    AUTH_PASSWD, 'groups', NO_HTTPS),
  32             '%grp/events/ical'  => $this->make_hook('ical',   AUTH_PASSWD, 'groups', NO_HTTPS),
  33             '%grp/events/edit'  => $this->make_hook('edit',   AUTH_PASSWD, 'groupadmin'),
  34             '%grp/events/admin' => $this->make_hook('admin',  AUTH_PASSWD, '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 group_events
  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                 require_once 'emails.inc.php';
  77                 foreach (explode(',', $globals->xnet->event_lists) as $suffix) {
  78                     delete_list_alias($tmp[1] . $suffix, $globals->xnet->evts_domain, 'event');
  79                 }
  80             }
  81
  82             // archive le paiement associé si il existe
  83             $pay_id = XDB::fetchOneCell("SELECT paiement_id
  84                                            FROM group_events
  85                                           WHERE eid = {?} AND asso_id = {?}",
  86                                         $eid, $globals->asso('id'));
  87             if (!$pay_id=='') {
  88                 XDB::execute("UPDATE payments
  89                                  SET flags = 'old'
  90                                WHERE id = {?}",
  91                              $pay_id);
  92             }
  93             // deletes the event items
  94             XDB::execute('DELETE FROM  group_event_items
  95                                 WHERE  eid = {?}', $eid);
  96
  97             // deletes the event participants
  98             XDB::execute('DELETE FROM  group_event_participants
  99                                 WHERE  eid = {?}', $eid);
 100
 101             // deletes the event
 102             XDB::execute('DELETE FROM  group_events
 103                                 WHERE  eid = {?} AND asso_id = {?}',
 104                          $eid, $globals->asso('id'));
 105
 106             // delete the requests for payments
 107             XDB::execute("DELETE FROM  requests
 108                                 WHERE  type = 'paiements' AND data LIKE {?}",
 109                          PayReq::same_event($eid, $globals->asso('id')));
 110             $globals->updateNbValid();
 111         }
 112
 113         if ($action == 'archive') {
 114             $pay_id = XDB::fetchOneCell("SELECT paiement_id
 115                                            FROM group_events
 116                                           WHERE eid = {?} AND asso_id = {?}",
 117                                         $eid, $globals->asso('id'));
 118             if (!$pay_id=='') {
 119                 XDB::execute("UPDATE payments
 120                                  SET flags = 'old'
 121                                WHERE id = {?}",
 122                                $pay_id);
 123             }
 124             XDB::execute("UPDATE group_events
 125                              SET archive = 1
 126                            WHERE eid = {?} AND asso_id = {?}",
 127                            $eid, $globals->asso('id'));
 128         }
 129
 130         if ($action == 'unarchive') {
 131             $pay_id = XDB::fetchOneCell("SELECT paiement_id FROM group_events
 132                                      WHERE eid = {?} AND asso_id = {?}",
 133                                    $eid, $globals->asso('id'));
 134             if (!$pay_id=='') {
 135                 XDB::execute("UPDATE payments
 136                                  SET flags = ''
 137                                WHERE id = {?}",
 138                                $pay_id);
 139             }
 140             XDB::execute("UPDATE group_events
 141                              SET archive = 0
 142                            WHERE eid = {?} AND asso_id = {?}",
 143                          $eid, $globals->asso('id'));
 144         }
 145
 146         $page->assign('archive', $archive);
 147
 148         if (Post::has('order')) {
 149             $order = Post::v('order');
 150             XDB::execute("UPDATE groups
 151                              SET event_order = {?}
 152                            WHERE id = {?}",
 153                           $order, $globals->asso('id'));
 154         } else {
 155             $order = XDB::fetchOneCell("SELECT event_order FROM groups
 156                                          WHERE id = {?}",
 157                                         $globals->asso('id'));
 158         }
 159         if ($order == 'desc') {
 160             $evenements = XDB::iterator('SELECT  e.*, LEFT(e.debut, 10) AS first_day, LEFT(e.fin, 10) AS last_day,
 161                                                  IF(e.deadline_inscription,
 162                                                          e.deadline_inscription >= LEFT(NOW(), 10),
 163                                                          1) AS inscr_open,
 164                                                  e.deadline_inscription,
 165                                                  MAX(ep.nb) IS NOT NULL AS inscrit, MAX(ep.paid) AS paid
 166                                            FROM  group_events              AS e
 167                                       LEFT JOIN  group_event_participants AS ep ON (ep.eid = e.eid AND ep.uid = {?})
 168                                           WHERE  asso_id = {?} AND  archive = {?}
 169                                        GROUP BY  e.eid
 170                                        ORDER BY  inscr_open DESC, debut DESC',
 171                                          S::i('uid'), $globals->asso('id'), $archive ? 1 : 0);
 172         } else {
 173             $evenements = XDB::iterator('SELECT  e.*, LEFT(e.debut, 10) AS first_day, LEFT(e.fin, 10) AS last_day,
 174                                                  IF(e.deadline_inscription,
 175                                                          e.deadline_inscription >= LEFT(NOW(), 10),
 176                                                          1) AS inscr_open,
 177                                                  e.deadline_inscription,
 178                                                  MAX(ep.nb) IS NOT NULL AS inscrit, MAX(ep.paid) AS paid
 179                                            FROM  group_events              AS e
 180                                       LEFT JOIN  group_event_participants AS ep ON (ep.eid = e.eid AND ep.uid = {?})
 181                                           WHERE  asso_id = {?} AND  archive = {?}
 182                                        GROUP BY  e.eid
 183                                        ORDER BY  inscr_open DESC, debut ASC',
 184                                          S::i('uid'), $globals->asso('id'), $archive ? 1 : 0);
 185         }
 186         $page->assign('order', $order);
 187
 188         $evts = array();
 189         $undisplayed_events = 0;
 190         $this->load('xnetevents.inc.php');
 191
 192         while ($e = $evenements->next()) {
 193             if (!is_member() && !may_update() && !$e['accept_nonmembre']) {
 194                 $undisplayed_events ++;
 195                 continue;
 196             }
 197
 198             $e['show_participants'] = ($e['show_participants'] && (is_member() || may_update()));
 199             $e['moments'] = XDB::fetchAllAssoc('SELECT  titre, details, montant, ei.item_id, nb, ep.paid
 200                                                   FROM  group_event_items AS ei
 201                                              LEFT JOIN  group_event_participants AS ep
 202                                                            ON (ep.eid = ei.eid AND ep.item_id = ei.item_id AND ep.uid = {?})
 203                                                  WHERE ei.eid = {?}',
 204                                                 S::i('uid'), $e['eid']);
 205
 206             $e['topay'] = 0;
 207             $e['paid']  = 0;
 208             foreach ($e['moments'] as $m) {
 209                 $e['topay'] += $m['nb'] * $m['montant'];
 210                 $e['paid'] += $m['paid'];
 211             }
 212
 213             $montant = XDB::fetchOneCell(
 214                 "SELECT SUM(amount) as sum_amount
 215                    FROM payment_transactions AS t
 216                  WHERE ref = {?} AND uid = {?}", $e['paiement_id'], S::v('uid'));
 217             $e['paid'] += $montant;
 218
 219             make_event_date($e);
 220
 221             if (Env::has('updated') && $e['eid'] == Env::i('updated')) {
 222                 $page->assign('updated', $e);
 223             }
 224             $evts[] = $e;
 225         }
 226
 227         $page->assign('evenements', $evts);
 228         $page->assign('undisplayed_events', $undisplayed_events);
 229     }
 230
 231     function handler_sub($page, $eid = null)
 232     {
 233         $this->load('xnetevents.inc.php');
 234         $page->changeTpl('xnetevents/subscribe.tpl');
 235
 236         $evt = get_event_detail($eid);
 237         if (is_null($evt)) {
 238             return PL_NOT_FOUND;
 239         }
 240         if ($evt === false) {
 241             global $globals, $platal;
 242             $url = $globals->asso('sub_url');
 243             if (empty($url)) {
 244                 $url = $platal->ns . 'subscribe';
 245             }
 246             $page->kill('Cet événement est reservé aux membres du groupe ' . $globals->asso('nom') .
 247                         '. Pour devenir membre, rends-toi sur la page de <a href="' . $url . '">demande d\'inscripton</a>.');
 248         }
 249
 250         if (!$evt['inscr_open']) {
 251             $page->kill('Les inscriptions pour cet événement sont closes');
 252         }
 253         if (!$evt['accept_nonmembre'] && !is_member() && !may_update()) {
 254             $page->kill('Cet événement est fermé aux non-membres du groupe');
 255         }
 256
 257         global $globals;
 258         $res = XDB::query("SELECT  stamp
 259                              FROM  requests
 260                             WHERE  type = 'paiements' AND data LIKE {?}",
 261                            PayReq::same_event($evt['eid'], $globals->asso('id')));
 262         $page->assign('validation', $res->numRows());
 263         $page->assign('event', $evt);
 264
 265         if (!Post::has('submit')) {
 266             return;
 267         } else {
 268             S::assert_xsrf_token();
 269         }
 270
 271         $moments = Post::v('moment',    array());
 272         $pers    = Post::v('personnes', array());
 273         $subs    = array();
 274
 275         foreach ($moments as $j => $v) {
 276             $subs[$j] = intval($v);
 277
 278             // retrieve other field when more than one person
 279             if ($subs[$j] == 2) {
 280                 if (!isset($pers[$j]) || !is_numeric($pers[$j]) || $pers[$j] < 0) {
 281                     $page->trigError("Tu dois choisir un nombre d'invités correct&nbsp;!");
 282                     return;
 283                 }
 284                 $subs[$j] = $pers[$j];
 285             }
 286         }
 287
 288         // impossible to unsubscribe if you already paid sthing
 289         if (!array_sum($subs) && $evt['paid'] != 0) {
 290             $page->trigError("Impossible de te désinscrire complètement " .
 291                             "parce que tu as fait un paiement par " .
 292                             "chèque ou par liquide. Contacte un " .
 293                             "administrateur du groupe si tu es sûr de " .
 294                             "ne pas venir.");
 295             return;
 296         }
 297
 298         // update actual inscriptions
 299         $updated       = false;
 300         $total         = 0;
 301         $paid          = $evt['paid'] ? $evt['paid'] : 0;
 302         $telepaid      = $evt['telepaid'] ? $evt['telepaid'] : 0;
 303         $paid_inserted = false;
 304         foreach ($subs as $j => $nb) {
 305             if ($nb >= 0) {
 306                 XDB::execute('INSERT INTO  group_event_participants (eid, uid, item_id, nb, flags, paid)
 307                                    VALUES  ({?}, {?}, {?}, {?}, {?}, {?})
 308                   ON DUPLICATE KEY UPDATE  nb = VALUES(nb), flags = VALUES(flags), paid = VALUES(paid)',
 309                              $eid, S::v('uid'), $j, $nb, (Env::has('notify_payment') ? 'notify_payment' : ''),
 310                              ((!$paid_inserted) ? $paid - $telepaid : 0));
 311                 $updated = $eid;
 312                 $paid_inserted = true;
 313             } else {
 314                 XDB::execute(
 315                     "DELETE FROM  group_event_participants
 316                            WHERE  eid = {?} AND uid = {?} AND item_id = {?}",
 317                     $eid, S::v("uid"), $j);
 318                 $updated = $eid;
 319             }
 320             $total += $nb;
 321         }
 322         if ($updated !== false) {
 323             $evt = get_event_detail($eid);
 324             if ($evt['topay'] > 0) {
 325                 $page->trigSuccess('Ton inscription à l\'événement a été mise à jour avec succès, tu peux payer ta participation en cliquant ci-dessous');
 326             } else {
 327                 $page->trigSuccess('Ton inscription à l\'événement a été mise à jour avec succès.');
 328             }
 329             subscribe_lists_event(S::i('uid'), $evt['short_name'], ($total > 0 ? 1 : 0), 0);
 330
 331             if ($evt['subscription_notification'] != 'nobody') {
 332                 $mailer = new PlMailer('xnetevents/subscription-notif.mail.tpl');
 333                 if ($evt['subscription_notification'] != 'creator') {
 334                     $admins = $globals->asso()->iterAdmins();
 335                     while ($admin = $admins->next()) {
 336                         $mailer->addTo($admin);
 337                     }
 338                 }
 339                 if ($evt['subscription_notification'] != 'animator') {
 340                     $mailer->addTo($evt['organizer']);
 341                 }
 342                 $mailer->assign('group', $globals->asso('nom'));
 343                 $mailer->assign('event', $evt['intitule']);
 344                 $mailer->assign('subs', $subs);
 345                 $mailer->assign('moments', $evt['moments']);
 346                 $mailer->assign('name', S::user()->fullName('promo'));
 347                 $mailer->send();
 348             }
 349         }
 350         $page->assign('event', get_event_detail($eid));
 351     }
 352
 353     function handler_csv($page, $eid = null, $item_id = null)
 354     {
 355         $this->load('xnetevents.inc.php');
 356
 357         if (!is_numeric($item_id)) {
 358             $item_id = null;
 359         }
 360
 361         $evt = get_event_detail($eid, $item_id);
 362         if (!$evt) {
 363             return PL_NOT_FOUND;
 364         }
 365
 366         pl_cached_content_headers('text/x-csv', 'iso-8859-1', 1);
 367         $page->changeTpl('xnetevents/csv.tpl', NO_SKIN);
 368
 369         $admin = may_update();
 370         $tri = (Env::v('order') == 'alpha' ? UserFilter::sortByPromo() : UserFilter::sortByName());
 371         $all = !Env::v('item_id', false);
 372
 373         $participants = get_event_participants($evt, $item_id, $tri);
 374         $title = 'Nom;Prénom;Promotion;Email';
 375         if ($admin) {
 376             $title .=';Société;Poste';
 377         }
 378         if ($all) {
 379             foreach ($evt['moments'] as $moment) {
 380                 $title .= ';' . $moment['titre'];
 381             }
 382         }
 383         if ($admin && $evt['money']) {
 384             $title .= ';À payer;';
 385             if ($evt['paiement_id']) {
 386                 $title .= 'Télépaiement;Liquide/Chèque;';
 387             }
 388             $title .= 'Payé';
 389         } else {
 390             $title .= ';Nombre';
 391         }
 392         echo utf8_decode($title) . "\n";
 393
 394         if ($participants) {
 395             foreach ($participants as $participant) {
 396                 $user = $participant['user'];
 397                 $line = $user->lastName() . ';' . $user->firstName() . ';' . $user->promo() . ';' . $user->bestEmail();
 398                 if ($admin && $user->hasProfile()) {
 399                     $line .= ';' . $user->profile()->getMainJob()->company->name . ';' . $user->profile()->getMainJob()->description;
 400                 } else  {
 401                     $line .= ';;';
 402                 }
 403                 if ($all) {
 404                     foreach ($evt['moments'] as $moment) {
 405                         $line .= ';' . $participant[$moment['item_id']];
 406                     }
 407                 }
 408                 if ($admin && $evt['money']) {
 409                     $line .= ';' . $participant['montant'] . ';';
 410                     if ($evt['paiement_id']) {
 411                         $line .= $participant['telepayment'] . ';' . $participant['adminpaid'] . ';';
 412                     }
 413                     $line .= $participant['paid'];
 414                 } else {
 415                     $line .= ';' . $participant['nb'];
 416                 }
 417
 418                 echo utf8_decode($line) . "\n";
 419             }
 420         }
 421         exit();
 422     }
 423
 424     function handler_ical($page, $eid = null)
 425     {
 426         global $globals;
 427
 428         $this->load('xnetevents.inc.php');
 429         $evt = get_event_detail($eid);
 430         if (!$evt) {
 431             return PL_FORBIDDEN;
 432         }
 433         $evt['debut'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['debut']);
 434         $evt['fin'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['fin']);
 435
 436         foreach ($evt['moments'] as $m) {
 437             $evt['descriptif'] .= "\n\n** " . $m['titre'] . " **\n" . $m['details'];
 438         }
 439
 440         $page->changeTpl('xnetevents/calendar.tpl', NO_SKIN);
 441
 442         require_once('ical.inc.php');
 443         $page->assign('asso', $globals->asso());
 444         $page->assign('timestamp', time());
 445         $page->assign('admin', may_update());
 446
 447         if (may_update()) {
 448             $page->assign('participants', get_event_participants($evt, null, UserFilter::sortByPromo()));
 449         }
 450         $page->register_function('display_ical', 'display_ical');
 451         $page->assign_by_ref('e', $evt);
 452
 453         pl_content_headers("text/calendar");
 454     }
 455
 456     function handler_edit($page, $eid = null)
 457     {
 458         global $globals;
 459
 460         // get eid if the the given one is a short name
 461         if (!is_null($eid) && !is_numeric($eid)) {
 462             $res = XDB::query("SELECT eid
 463                                  FROM group_events
 464                                 WHERE asso_id = {?} AND short_name = {?}",
 465                               $globals->asso('id'), $eid);
 466             if ($res->numRows()) {
 467                 $eid = (int)$res->fetchOneCell();
 468             }
 469         }
 470
 471         // check the event is in our group
 472         if (!is_null($eid)) {
 473             $res = XDB::query("SELECT short_name
 474                                  FROM group_events
 475                                 WHERE eid = {?} AND asso_id = {?}",
 476                               $eid, $globals->asso('id'));
 477             if ($res->numRows()) {
 478                 $infos = $res->fetchOneAssoc();
 479             } else {
 480                 return PL_FORBIDDEN;
 481             }
 482         }
 483
 484         $page->changeTpl('xnetevents/edit.tpl');
 485
 486         $moments    = range(1, 4);
 487         $error      = false;
 488         $page->assign('moments', $moments);
 489
 490         if (Post::v('intitule')) {
 491             S::assert_xsrf_token();
 492
 493             $this->load('xnetevents.inc.php');
 494             $short_name = event_change_shortname($page, $eid,
 495                                                  $infos['short_name'],
 496                                                  Env::v('short_name', ''));
 497             if ($short_name != Env::v('short_name')) {
 498                 $error = true;
 499             }
 500             $evt = array(
 501                 'eid'              => $eid,
 502                 'asso_id'          => $globals->asso('id'),
 503                 'paiement_id'      => Post::v('paiement_id') > 0 ? Post::v('paiement_id') : null,
 504                 'debut'            => Post::v('deb_Year').'-'.Post::v('deb_Month')
 505                                       .'-'.Post::v('deb_Day').' '.Post::v('deb_Hour')
 506                                       .':'.Post::v('deb_Minute').':00',
 507                 'fin'              => Post::v('fin_Year').'-'.Post::v('fin_Month')
 508                                       .'-'.Post::v('fin_Day').' '.Post::v('fin_Hour')
 509                                       .':'.Post::v('fin_Minute').':00',
 510                 'short_name'       => $short_name,
 511             );
 512
 513             $trivial = array('intitule', 'descriptif', 'noinvite', 'subscription_notification',
 514                              'show_participants', 'accept_nonmembre', 'uid');
 515             foreach ($trivial as $k) {
 516                 $evt[$k] = Post::v($k);
 517             }
 518             if (!$eid) {
 519                 $evt['uid'] = S::v('uid');
 520             }
 521
 522             if (Post::v('deadline')) {
 523                 $evt['deadline_inscription'] = Post::v('inscr_Year').'-'
 524                                              . Post::v('inscr_Month').'-'
 525                                              . Post::v('inscr_Day');
 526             } else {
 527                 $evt['deadline_inscription'] = null;
 528             }
 529
 530             // Store the modifications in the database
 531             XDB::execute('INSERT INTO  group_events (eid, asso_id, uid, intitule, paiement_id,
 532                                                      descriptif, debut, fin, show_participants,
 533                                                      short_name, deadline_inscription, noinvite,
 534                                                      accept_nonmembre, subscription_notification)
 535                                VALUES  ({?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?})
 536               ON DUPLICATE KEY UPDATE  asso_id = VALUES(asso_id), uid = VALUES(uid), intitule = VALUES(intitule),
 537                                        paiement_id = VALUES(paiement_id), descriptif = VALUES(descriptif), debut = VALUES(debut),
 538                                        fin = VALUES(fin), show_participants = VALUES(show_participants), short_name = VALUES(short_name),
 539                                        deadline_inscription = VALUES(deadline_inscription), noinvite = VALUES(noinvite),
 540                                        accept_nonmembre = VALUES(accept_nonmembre), subscription_notification = VALUES(subscription_notification)',
 541                          $evt['eid'], $evt['asso_id'], $evt['uid'],
 542                          $evt['intitule'], $evt['paiement_id'], $evt['descriptif'],
 543                          $evt['debut'], $evt['fin'], $evt['show_participants'],
 544                          $evt['short_name'], $evt['deadline_inscription'],
 545                          $evt['noinvite'], $evt['accept_nonmembre'], $evt['subscription_notification']);
 546
 547             // if new event, get its id
 548             if (!$eid) {
 549                 $eid = XDB::insertId();
 550             }
 551
 552             foreach ($moments as $i) {
 553                 if (Post::v('titre' . $i)) {
 554                     $nb_moments++;
 555
 556                     $montant = strtr(Post::v('montant' . $i), ',', '.');
 557                     $money_defaut += (float)$montant;
 558                     XDB::execute('INSERT INTO  group_event_items (eid, item_id, titre, details, montant)
 559                                        VALUES  ({?}, {?}, {?}, {?}, {?})
 560                       ON DUPLICATE KEY UPDATE  titre = VALUES(titre), details = VALUES(details), montant = VALUES(montant)',
 561                                  $eid, $i, Post::v('titre' . $i), Post::v('details' . $i), $montant);
 562                 } else {
 563                     XDB::execute('DELETE FROM  group_event_items
 564                                         WHERE  eid = {?} AND item_id = {?}', $eid, $i);
 565                 }
 566             }
 567             // request for a new payment
 568             if (Post::v('paiement_id') == -1 && $money_defaut >= 0) {
 569                 $p = new PayReq(S::user(),
 570                                 $globals->asso('nom')." - ".Post::v('intitule'),
 571                                 Post::v('site'), $money_defaut,
 572                                 Post::v('confirmation'), 0, 999,
 573                                 $globals->asso('id'), $eid, Post::v('payment_public') == 'yes');
 574                 if ($p->accept()) {
 575                     $p->submit();
 576                 } else {
 577                     $page->assign('payment_message', Post::v('confirmation'));
 578                     $page->assign('payment_site', Post::v('site'));
 579                     $page->assign('payment_public', Post::v('payment_public') == 'yes');
 580                     $page->assign('error', true);
 581                     $error = true;
 582                 }
 583             }
 584
 585             // events with no sub-event: add a sub-event with default name
 586             if ($nb_moments == 0) {
 587                 XDB::execute("INSERT INTO group_event_items
 588                                    VALUES ({?}, {?}, 'Événement', '', 0)", $eid, 1);
 589             }
 590
 591             if (!$error) {
 592                 pl_redirect('events');
 593             }
 594         }
 595
 596         // get a list of all the payment for this asso
 597         $res = XDB::iterator("SELECT  id, text
 598                                 FROM  payments
 599                                WHERE  asso_id = {?} AND NOT FIND_IN_SET('old', flags)",
 600                              $globals->asso('id'));
 601         $paiements = array();
 602         while ($a = $res->next()) $paiements[$a['id']] = $a['text']; {
 603             $page->assign('paiements', $paiements);
 604         }
 605
 606         // when modifying an old event retreive the old datas
 607         if ($eid) {
 608             $res = XDB::query(
 609                     "SELECT  eid, intitule, descriptif, debut, fin, uid,
 610                              show_participants, paiement_id, short_name,
 611                              deadline_inscription, noinvite, accept_nonmembre, subscription_notification
 612                        FROM  group_events
 613                       WHERE eid = {?}", $eid);
 614             $evt = $res->fetchOneAssoc();
 615             // find out if there is already a request for a payment for this event
 616             $res = XDB::query("SELECT  stamp
 617                                  FROM  requests
 618                                 WHERE  type = 'paiements' AND data LIKE {?}",
 619                               PayReq::same_event($eid, $globals->asso('id')));
 620             $stamp = $res->fetchOneCell();
 621             if ($stamp) {
 622                 $evt['paiement_id']  = -2;
 623                 $evt['paiement_req'] = $stamp;
 624             }
 625             $page->assign('evt', $evt);
 626             // get all the different moments infos
 627             $res = XDB::iterator(
 628                     "SELECT  item_id, titre, details, montant
 629                        FROM  group_event_items AS ei
 630                  INNER JOIN  group_events AS e ON(e.eid = ei.eid)
 631                       WHERE  e.eid = {?}
 632                    ORDER BY item_id", $eid);
 633             $items = array();
 634             while ($item = $res->next()) {
 635                 $items[$item['item_id']] = $item;
 636             }
 637             $page->assign('items', $items);
 638         }
 639         $page->assign('url_ref', $eid);
 640     }
 641
 642     function handler_admin($page, $eid = null, $item_id = null)
 643     {
 644         global $globals;
 645
 646         $this->load('xnetevents.inc.php');
 647
 648         $evt = get_event_detail($eid, $item_id);
 649         if (!$evt) {
 650             return PL_NOT_FOUND;
 651         }
 652
 653         $page->changeTpl('xnetevents/admin.tpl');
 654         if (!$evt['show_participants'] && !may_update()) {
 655             return PL_FORBIDDEN;
 656         }
 657
 658         if (may_update() && Post::v('adm')) {
 659             S::assert_xsrf_token();
 660
 661             $member = User::getSilent(Post::v('mail'));
 662             if (!$member) {
 663                 $page->trigError("Membre introuvable");
 664             }
 665
 666             // change the price paid by a participant
 667             if (Env::v('adm') == 'prix' && $member) {
 668                 $amount = strtr(Env::v('montant'), ',', '.');
 669                 XDB::execute("UPDATE group_event_participants
 670                                  SET paid = paid + {?}
 671                                WHERE uid = {?} AND eid = {?} AND nb > 0
 672                             ORDER BY item_id ASC
 673                                LIMIT 1",
 674                              $amount, $member->uid, $evt['eid']);
 675                 subscribe_lists_event($member->uid, $evt['short_name'], 1, $amount);
 676             }
 677
 678             // change the number of personns coming with a participant
 679             if (Env::v('adm') == 'nbs' && $member) {
 680                 $res = XDB::query("SELECT SUM(paid)
 681                                      FROM group_event_participants
 682                                     WHERE uid = {?} AND eid = {?}",
 683                                   $member->uid, $evt['eid']);
 684
 685                 $paid = $res->fetchOneCell();
 686
 687                 // Ensure we have an integer
 688                 if ($paid == null) {
 689                     $paid = 0;
 690                 }
 691
 692                 $nbs  = Post::v('nb', array());
 693
 694                 $paid_inserted = false;
 695                 foreach ($nbs as $id => $nb) {
 696                     $nb = max(intval($nb), 0);
 697                     if (!$paid_inserted && $nb > 0) {
 698                         $item_paid = $paid;
 699                         $paid_inserted = true;
 700                     } else {
 701                         $item_paid = 0;
 702                     }
 703                     XDB::execute('INSERT INTO  group_event_participants (eid, uid, item_id, nb, flags, paid)
 704                                        VALUES  ({?}, {?}, {?}, {?}, {?}, {?})
 705                       ON DUPLICATE KEY UPDATE  nb = VALUES(nb), flags = VALUES(flags), paid = VALUES(paid)',
 706                                  $evt['eid'], $member->uid, $id, $nb, '', $item_paid);
 707                 }
 708
 709                 $res = XDB::query('SELECT  COUNT(uid) AS cnt, SUM(nb) AS nb
 710                                      FROM  group_event_participants
 711                                     WHERE  uid = {?} AND eid = {?}
 712                                  GROUP BY  uid',
 713                                   $member->uid, $evt['eid']);
 714                 $u = $res->fetchOneAssoc();
 715                 if ($paid == 0 && Post::v('cancel')) {
 716                     XDB::execute("DELETE FROM group_event_participants
 717                                         WHERE uid = {?} AND eid = {?}",
 718                                     $member->uid, $evt['eid']);
 719                     $u = 0;
 720                     subscribe_lists_event($member->uid, $evt['short_name'], -1, $paid);
 721                 } else {
 722                     $u = $u['cnt'] ? $u['nb'] : null;
 723                     subscribe_lists_event($member->uid, $evt['short_name'], ($u > 0 ? 1 : 0), $paid);
 724                 }
 725             }
 726
 727             $evt = get_event_detail($eid, $item_id);
 728         }
 729
 730         $page->assign_by_ref('evt', $evt);
 731         $page->assign('tout', is_null($item_id));
 732
 733         if (count($evt['moments'])) {
 734             $page->assign('moments', $evt['moments']);
 735         }
 736
 737         if ($evt['paiement_id']) {
 738             $infos = User::getBulkUsersWithUIDs(
 739                             XDB::fetchAllAssoc('SELECT  t.uid, t.amount
 740                                                   FROM  payment_transactions AS t
 741                                              LEFT JOIN  group_event_participants AS ep ON(ep.uid = t.uid AND ep.eid = {?})
 742                                                  WHERE  t.ref = {?} AND ep.uid IS NULL',
 743                                                $evt['eid'], $evt['paiement_id']),
 744                             'uid', 'user');
 745             $page->assign('oublis', count($infos));
 746             $page->assign('oubliinscription', $infos);
 747         }
 748
 749         $absents = User::getBulkUsersFromDB('SELECT  p.uid
 750                                                FROM  group_event_participants AS p
 751                                           LEFT JOIN  group_event_participants AS p2 ON (p2.uid = p.uid
 752                                                                                                AND p2.eid = p.eid
 753                                                                                                AND p2.nb != 0)
 754                                               WHERE  p.eid = {?} AND p2.eid IS NULL
 755                                            GROUP BY  p.uid', $evt['eid']);
 756
 757         $ofs = Env::i('offset');
 758         $part = get_event_participants($evt, $item_id, UserFilter::sortByName(),
 759                                        NB_PER_PAGE, $ofs * NB_PER_PAGE);
 760
 761         $nbp = ceil($evt['user_count'] / NB_PER_PAGE);
 762         if ($nbp > 1) {
 763             $links = array();
 764             if ($ofs) {
 765                 $links['précédent'] = $ofs - 1;
 766             }
 767             for ($i = 1 ; $i <= $nbp; $i++) {
 768                 $links[(string)$i] = $i - 1;
 769             }
 770             if ($ofs < $nbp - 1) {
 771                 $links['suivant'] = $ofs+1;
 772             }
 773             $page->assign('links', $links);
 774         }
 775
 776         $page->assign('absents', $absents);
 777         $page->assign('participants', $part);
 778     }
 779 }
 780
 781 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
 782 ?>