2 /***************************************************************************
3 * Copyright (C) 2003-2008 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
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. *
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. *
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 *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 define('NB_PER_PAGE', 25);
24 class XnetEventsModule
extends PLModule
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'),
38 function handler_events(&$page, $archive = null
)
42 $page->changeTpl('xnetevents/index.tpl');
44 $archive = ($archive == 'archive' && may_update());
46 if (Post
::has('del')) {
48 $eid = Post
::v('del');
49 } elseif (Post
::has('archive')) {
51 $eid = Post
::v('archive');
52 } elseif (Post
::has('unarchive')) {
53 $action = 'unarchive';
54 $eid = Post
::v('unarchive');
57 if (!is_null($action)) {
61 S
::assert_xsrf_token();
63 $res = XDB
::query("SELECT asso_id, short_name FROM groupex.evenements
64 WHERE eid = {?} AND asso_id = {?}",
65 $eid, $globals->asso('id'));
67 $tmp = $res->fetchOneRow();
73 if ($action == 'del') {
74 // deletes the event mailing aliases
77 "DELETE FROM virtual WHERE type = 'evt' AND alias LIKE {?}",
78 $tmp[1].'-absents@%');
80 "DELETE FROM virtual WHERE type = 'evt' AND alias LIKE {?}",
81 $tmp[1].'-participants@%');
84 // deletes the event items
85 XDB
::execute("DELETE FROM groupex.evenements_items WHERE eid = {?}", $eid);
87 // deletes the event participants
88 XDB
::execute("DELETE FROM groupex.evenements_participants
89 WHERE eid = {?}", $eid);
92 XDB
::execute("DELETE FROM groupex.evenements
93 WHERE eid = {?} AND asso_id = {?}",
94 $eid, $globals->asso('id'));
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();
104 if ($action == 'archive') {
105 XDB
::execute("UPDATE groupex.evenements
107 WHERE eid = {?} AND asso_id = {?}",
108 $eid, $globals->asso('id'));
111 if ($action == 'unarchive') {
112 XDB
::execute("UPDATE groupex.evenements
114 WHERE eid = {?} AND asso_id = {?}",
115 $eid, $globals->asso('id'));
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 = {?})
130 AND archive = " . ($archive ?
"1 " : "0 ")
132 ORDER BY inscr_open DESC, debut DESC", S
::v('uid'), $globals->asso('id'));
135 $undisplayed_events = 0;
137 while ($e = $evenements->next()) {
138 if (!is_member() && !may_update() && !$e['accept_nonmembre']) {
139 $undisplayed_events ++
;
143 $e['show_participants'] = ($e['show_participants'] && (is_member() ||
may_update()));
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 = {?})
150 S
::v('uid'), $e['eid']);
151 $e['moments'] = $res->fetchAllAssoc();
154 $e['paid'] = $e['moments'][0]['paid'];
155 foreach ($e['moments'] as $m) {
156 $e['topay'] +
= $m['nb'] * $m['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();
165 foreach ($montants as $m) {
166 $p = strtr(substr($m, 0, strpos($m, 'EUR')), ',', '.');
167 $e['paid'] +
= trim($p);
170 if (Env
::has('updated') && $e['eid'] == Env
::i('updated')) {
171 $page->assign('updated', $e);
176 $page->assign('evenements', $evts);
177 $page->assign('undisplayed_events', $undisplayed_events);
180 function handler_sub(&$page, $eid = null
)
182 $this->load('xnetevents.inc.php');
183 $page->changeTpl('xnetevents/subscribe.tpl');
185 $evt = get_event_detail($eid);
189 if ($evt === false
) {
190 global $globals, $platal;
191 $url = $globals->asso('sub_url');
193 $url = $platal->ns
. 'subscribe';
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>.');
199 if (!$evt['inscr_open']) {
200 $page->kill('Les inscriptions pour cet événement sont closes');
202 if (!$evt['accept_nonmembre'] && !is_member() && !may_update()) {
203 $page->kill('Cet événement est fermé aux non-membres du groupe');
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);
213 if (!Post
::has('submit')) {
216 S
::assert_xsrf_token();
219 $moments = Post
::v('moment', array());
220 $pers = Post
::v('personnes', array());
223 foreach ($moments as $j => $v) {
224 $subs[$j] = intval($v);
226 // retreive ohter field when more than one person
227 if ($subs[$j] == 2) {
228 if (!isset($pers[$j]) ||
!is_numeric($pers[$j])
231 $page->trigError('Tu dois choisir un nombre d\'invités correct !');
234 $subs[$j] = 1 +
$pers[$j];
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 ".
248 // update actual inscriptions
251 $paid = $evt['paid'] ?
$evt['paid'] : 0;
252 $telepaid= $evt['telepaid'] ?
$evt['telepaid'] : 0;
253 foreach ($subs as $j => $nb) {
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);
263 "DELETE FROM groupex.evenements_participants
264 WHERE eid = {?} AND uid = {?} AND item_id = {?}",
265 $eid, S
::v("uid"), $j);
270 if ($updated !== false
) {
271 $page->trigSuccess('Ton inscription à l\'événement a été mise à jour avec succès.');
272 subscribe_lists_event($total, S
::i('uid'), $evt);
274 $page->assign('event', get_event_detail($eid));
277 function handler_csv(&$page, $eid = null
, $item_id = null
)
279 $this->load('xnetevents.inc.php');
281 if (!is_numeric($item_id)) {
285 $evt = get_event_detail($eid, $item_id);
290 header('Content-type: text/x-csv; encoding=UTF-8');
292 header('Cache-Control: ');
294 $page->changeTpl('xnetevents/csv.tpl', NO_SKIN
);
296 $admin = may_update();
298 $tri = (Env
::v('order') == 'alpha' ?
'promo, nom, prenom' : 'nom, prenom, promo');
300 $page->assign('participants',
301 get_event_participants($evt, $item_id, $tri));
303 $page->assign('admin', $admin);
304 $page->assign('moments', $evt['moments']);
305 $page->assign('money', $evt['money']);
306 $page->assign('telepayment', $evt['paiement_id']);
307 $page->assign('tout', !Env
::v('item_id', false
));
310 function handler_ical(&$page, $eid = null
)
314 $this->load('xnetevents.inc.php');
315 $evt = get_event_detail($eid);
319 $evt['debut'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['debut']);
320 $evt['fin'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['fin']);
322 foreach ($evt['moments'] as $m) {
323 $evt['descriptif'] .= "\n\n** " . $m['titre'] . " **\n" . $m['details'];
326 $page->changeTpl('xnetevents/calendar.tpl', NO_SKIN
);
328 require_once('ical.inc.php');
329 $page->assign('asso', $globals->asso());
330 $page->assign('timestamp', time());
331 $page->assign('admin', may_update());
334 $page->assign('participants', get_event_participants($evt, null
, 'promo, nom, prenom'));
336 $page->register_function('display_ical', 'display_ical');
337 $page->assign_by_ref('e', $evt);
339 header('Content-Type: text/calendar; charset=utf-8');
342 function handler_edit(&$page, $eid = null
)
346 // get eid if the the given one is a short name
347 if (!is_null($eid) && !is_numeric($eid)) {
348 $res = XDB
::query("SELECT eid
349 FROM groupex.evenements
350 WHERE asso_id = {?} AND short_name = {?}",
351 $globals->asso('id'), $eid);
352 if ($res->numRows()) {
353 $eid = (int)$res->fetchOneCell();
357 // check the event is in our group
358 if (!is_null($eid)) {
359 $res = XDB
::query("SELECT short_name
360 FROM groupex.evenements
361 WHERE eid = {?} AND asso_id = {?}",
362 $eid, $globals->asso('id'));
363 if ($res->numRows()) {
364 $infos = $res->fetchOneAssoc();
370 $page->changeTpl('xnetevents/edit.tpl');
372 $moments = range(1, 4);
374 $page->assign('moments', $moments);
376 if (Post
::v('intitule')) {
377 S
::assert_xsrf_token();
379 $this->load('xnetevents.inc.php');
380 $short_name = event_change_shortname($page, $eid,
381 $infos['short_name'],
382 Env
::v('short_name', ''));
383 if ($short_name != Env
::v('short_name')) {
388 'asso_id' => $globals->asso('id'),
389 'paiement_id' => Post
::v('paiement_id') > 0 ? Post
::v('paiement_id') : null
,
390 'debut' => Post
::v('deb_Year').'-'.Post
::v('deb_Month')
391 .'-'.Post
::v('deb_Day').' '.Post
::v('deb_Hour')
392 .':'.Post
::v('deb_Minute').':00',
393 'fin' => Post
::v('fin_Year').'-'.Post
::v('fin_Month')
394 .'-'.Post
::v('fin_Day').' '.Post
::v('fin_Hour')
395 .':'.Post
::v('fin_Minute').':00',
396 'short_name' => $short_name,
399 $trivial = array('intitule', 'descriptif', 'noinvite',
400 'show_participants', 'accept_nonmembre', 'organisateur_uid');
401 foreach ($trivial as $k) {
402 $evt[$k] = Post
::v($k);
405 $evt['organisateur_uid'] = S
::v('uid');
408 if (Post
::v('deadline')) {
409 $evt['deadline_inscription'] = Post
::v('inscr_Year').'-'
410 . Post
::v('inscr_Month').'-'
411 . Post
::v('inscr_Day');
413 $evt['deadline_inscription'] = null
;
416 // Store the modifications in the database
417 XDB
::execute('REPLACE INTO groupex.evenements
418 SET eid={?}, asso_id={?}, organisateur_uid={?}, intitule={?},
419 paiement_id = {?}, descriptif = {?}, debut = {?},
420 fin = {?}, show_participants = {?}, short_name = {?},
421 deadline_inscription = {?}, noinvite = {?},
422 accept_nonmembre = {?}',
423 $evt['eid'], $evt['asso_id'], $evt['organisateur_uid'],
424 $evt['intitule'], $evt['paiement_id'], $evt['descriptif'],
425 $evt['debut'], $evt['fin'], $evt['show_participants'],
426 $evt['short_name'], $evt['deadline_inscription'],
427 $evt['noinvite'], $evt['accept_nonmembre']);
429 // if new event, get its id
431 $eid = XDB
::insertId();
437 foreach ($moments as $i) {
438 if (Post
::v('titre'.$i)) {
441 $montant = strtr(Post
::v('montant'.$i), ',', '.');
442 $money_defaut +
= (float)$montant;
444 REPLACE INTO groupex.evenements_items
445 VALUES ({?}, {?}, {?}, {?}, {?})",
446 $eid, $i, Post
::v('titre'.$i),
447 Post
::v('details'.$i), $montant);
449 XDB
::execute("DELETE FROM groupex.evenements_items
450 WHERE eid = {?} AND item_id = {?}", $eid, $i);
453 // request for a new payment
454 if (Post
::v('paiement_id') == -1 && $money_defaut >= 0) {
455 require_once 'validations.inc.php';
456 $p = new PayReq(S
::user(),
457 Post
::v('intitule')." - ".$globals->asso('nom'),
458 Post
::v('site'), $money_defaut,
459 Post
::v('confirmation'), 0, 999,
460 $globals->asso('id'), $eid);
464 $page->assign('paiement_message', Post
::v('confirmation'));
465 $page->assign('paiement_site', Post
::v('site'));
470 // events with no sub-event: add a sub-event with no name
471 if ($nb_moments == 0) {
472 XDB
::execute("INSERT INTO groupex.evenements_items
473 VALUES ({?}, {?}, '', '', 0)", $eid, 1);
477 pl_redirect('events');
481 // get a list of all the payment for this asso
482 $res = XDB
::iterator("SELECT id, text
483 FROM {$globals->money->mpay_tprefix}paiements
484 WHERE asso_id = {?}", $globals->asso('id'));
485 $paiements = array();
486 while ($a = $res->next()) $paiements[$a['id']] = $a['text']; {
487 $page->assign('paiements', $paiements);
490 // when modifying an old event retreive the old datas
493 "SELECT eid, intitule, descriptif, debut, fin, organisateur_uid,
494 show_participants, paiement_id, short_name,
495 deadline_inscription, noinvite, accept_nonmembre
496 FROM groupex.evenements
497 WHERE eid = {?}", $eid);
498 $evt = $res->fetchOneAssoc();
499 // find out if there is already a request for a payment for this event
500 require_once 'validations.inc.php';
501 $res = XDB
::query("SELECT stamp FROM requests
502 WHERE type = 'paiements' AND data LIKE {?}",
503 PayReq
::same_event($eid, $globals->asso('id')));
504 $stamp = $res->fetchOneCell();
506 $evt['paiement_id'] = -2;
507 $evt['paiement_req'] = $stamp;
509 $page->assign('evt', $evt);
510 // get all the different moments infos
511 $res = XDB
::iterator(
512 "SELECT item_id, titre, details, montant
513 FROM groupex.evenements_items AS ei
514 INNER JOIN groupex.evenements AS e ON(e.eid = ei.eid)
516 ORDER BY item_id", $eid);
518 while ($item = $res->next()) {
519 $items[$item['item_id']] = $item;
521 $page->assign('items', $items);
523 $page->assign('url_ref', $eid);
526 function handler_admin(&$page, $eid = null
, $item_id = null
)
530 $this->load('xnetevents.inc.php');
532 $evt = get_event_detail($eid, $item_id);
537 $page->changeTpl('xnetevents/admin.tpl');
538 if (!$evt['show_participants'] && !may_update()) {
542 if (may_update() && Post
::v('adm')) {
543 S
::assert_xsrf_token();
545 $member = get_infos(Post
::v('mail'));
547 $page->trigError("Membre introuvable");
550 // change the price paid by a participant
551 if (Env
::v('adm') == 'prix' && $member) {
552 XDB
::execute("UPDATE groupex.evenements_participants
553 SET paid = IF(paid + {?} > 0, paid + {?}, 0)
554 WHERE uid = {?} AND eid = {?} AND item_id = 1",
555 strtr(Env
::v('montant'), ',', '.'),
556 strtr(Env
::v('montant'), ',', '.'),
557 $member['uid'], $evt['eid']);
560 // change the number of personns coming with a participant
561 if (Env
::v('adm') == 'nbs' && $member) {
562 $res = XDB
::query("SELECT paid
563 FROM groupex.evenements_participants
564 WHERE uid = {?} AND eid = {?}",
565 $member['uid'], $evt['eid']);
567 $paid = intval($res->fetchOneCell());
568 $nbs = Post
::v('nb', array());
570 foreach ($nbs as $id => $nb) {
571 $nb = max(intval($nb), 0);
572 XDB
::execute("REPLACE INTO groupex.evenements_participants
573 VALUES ({?}, {?}, {?}, {?}, {?}, {?})",
574 $evt['eid'], $member['uid'], $id, $nb, '', $id == 1 ?
$paid : 0);
577 $res = XDB
::query("SELECT COUNT(uid) AS cnt, SUM(nb) AS nb
578 FROM groupex.evenements_participants
579 WHERE uid = {?} AND eid = {?}
581 $member['uid'], $evt['eid']);
582 $u = $res->fetchOneAssoc();
583 $u = $u['cnt'] ?
$u['nb'] : null
;
584 subscribe_lists_event($u, $member['uid'], $evt);
587 $evt = get_event_detail($eid, $item_id);
590 $page->assign_by_ref('evt', $evt);
591 $page->assign('tout', is_null($item_id));
593 if (count($evt['moments'])) {
594 $page->assign('moments', $evt['moments']);
597 $tri = (Env
::v('order') == 'alpha' ?
'promo, nom, prenom' : 'nom, prenom, promo');
598 $whereitemid = is_null($item_id) ?
'' : "AND ep.item_id = $item_id";
600 'SELECT UPPER(SUBSTRING(IF(u.nom IS NULL, m.nom,
601 IF(u.nom_usage<>"", u.nom_usage, u.nom)), 1, 1)),
602 COUNT(DISTINCT ep.uid)
603 FROM groupex.evenements_participants AS ep
604 INNER JOIN groupex.evenements AS e ON (ep.eid = e.eid)
605 LEFT JOIN groupex.membres AS m ON ( ep.uid = m.uid AND e.asso_id = m.asso_id)
606 LEFT JOIN auth_user_md5 AS u ON ( u.user_id = ep.uid )
607 WHERE ep.eid = {?} '.$whereitemid . '
608 GROUP BY UPPER(SUBSTRING(IF(u.nom IS NULL,m.nom,u.nom), 1, 1))', $evt['eid']);
612 while (list($char, $nb) = $res->next()) {
613 $alphabet[ord($char)] = $char;
615 if (Env
::has('initiale') && $char == strtoupper(Env
::v('initiale'))) {
620 $page->assign('alphabet', $alphabet);
622 if ($evt['paiement_id']) {
623 $res = XDB
::iterator(
624 "SELECT IF(u.nom_usage<>'', u.nom_usage, u.nom) AS nom, u.prenom,
625 u.promo, a.alias AS email, t.montant
626 FROM {$globals->money->mpay_tprefix}transactions AS t
627 INNER JOIN auth_user_md5 AS u ON(t.uid = u.user_id)
628 INNER JOIN aliases AS a ON (a.id = t.uid AND a.type='a_vie' )
629 LEFT JOIN groupex.evenements_participants AS ep ON(ep.uid = t.uid AND ep.eid = {?})
630 WHERE t.ref = {?} AND ep.uid IS NULL",
631 $evt['eid'], $evt['paiement_id']);
632 $page->assign('oublis', $res->total());
633 $page->assign('oubliinscription', $res);
636 $absents = XDB
::iterator("SELECT p.uid,
637 IF(m.origine = 'X', IF(u.nom_usage != '', u.nom_usage, u.nom), m.nom) AS nom,
638 IF(m.origine = 'X', u.prenom, u.prenom) AS prenom,
639 IF(m.origine = 'X', u.promo, m.origine) AS promo,
640 IF(m.origine = 'X', FIND_IN_SET('femme', u.flags), m.sexe) AS sexe,
641 IF(m.origine = 'X', a.alias, m.email) AS email
642 FROM groupex.evenements_participants AS p
643 INNER JOIN groupex.membres AS m USING(uid)
644 LEFT JOIN groupex.evenements_participants AS p2 ON (p2.uid = m.uid AND p2.eid = p.eid
646 LEFT JOIN auth_user_md5 AS u ON (u.user_id = m.uid)
647 LEFT JOIN aliases AS a ON (a.id = u.user_id AND a.type = 'a_vie')
648 WHERE p.eid = {?} AND p2.eid IS NULL
649 " . (Env
::v('initiale') ?
" AND IF(u.nom IS NULL, m.nom,
650 IF(u.nom_usage<>'', u.nom_usage, u.nom)) LIKE '" . Env
::v('initiale') . "%'"
653 ORDER BY nom, prenom, promo", $evt['eid']);
655 $ofs = Env
::i('offset');
656 $tot = (Env
::v('initiale') ?
$tot : $nb_tot);
657 $nbp = ceil($tot / NB_PER_PAGE
);
661 $links['précédent'] = $ofs - 1;
663 for ($i = 1 ; $i <= $nbp; $i++
) {
664 $links[(string)$i] = $i - 1;
667 $links['suivant'] = $ofs+
1;
669 $page->assign('links', $links);
673 $page->assign('absents', $absents);
674 $page->assign('participants',
675 get_event_participants($evt, $item_id, $tri,
676 "LIMIT ".($ofs*NB_PER_PAGE
).", ".NB_PER_PAGE
));
680 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: