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 subscribe_lists_event($total, S
::i('uid'), $evt);
273 $page->assign('event', get_event_detail($eid));
276 function handler_csv(&$page, $eid = null
, $item_id = null
)
278 $this->load('xnetevents.inc.php');
280 if (!is_numeric($item_id)) {
284 $evt = get_event_detail($eid, $item_id);
289 header('Content-type: text/x-csv; encoding=UTF-8');
291 header('Cache-Control: ');
293 $page->changeTpl('xnetevents/csv.tpl', NO_SKIN
);
295 $admin = may_update();
297 $tri = (Env
::v('order') == 'alpha' ?
'promo, nom, prenom' : 'nom, prenom, promo');
299 $page->assign('participants',
300 get_event_participants($evt, $item_id, $tri));
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
));
309 function handler_ical(&$page, $eid = null
)
313 $this->load('xnetevents.inc.php');
314 $evt = get_event_detail($eid);
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']);
321 foreach ($evt['moments'] as $m) {
322 $evt['descriptif'] .= "\n\n** " . $m['titre'] . " **\n" . $m['details'];
325 $page->changeTpl('xnetevents/calendar.tpl', NO_SKIN
);
327 require_once('ical.inc.php');
328 $page->assign('asso', $globals->asso());
329 $page->assign('timestamp', time());
330 $page->assign('admin', may_update());
333 $page->assign('participants', get_event_participants($evt, null
, 'promo, nom, prenom'));
335 $page->register_function('display_ical', 'display_ical');
336 $page->assign_by_ref('e', $evt);
338 header('Content-Type: text/calendar; charset=utf-8');
341 function handler_edit(&$page, $eid = null
)
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();
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();
369 $page->changeTpl('xnetevents/edit.tpl');
371 $moments = range(1, 4);
373 $page->assign('moments', $moments);
375 if (Post
::v('intitule')) {
376 S
::assert_xsrf_token();
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')) {
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,
398 $trivial = array('intitule', 'descriptif', 'noinvite',
399 'show_participants', 'accept_nonmembre', 'organisateur_uid');
400 foreach ($trivial as $k) {
401 $evt[$k] = Post
::v($k);
404 $evt['organisateur_uid'] = S
::v('uid');
407 if (Post
::v('deadline')) {
408 $evt['deadline_inscription'] = Post
::v('inscr_Year').'-'
409 . Post
::v('inscr_Month').'-'
410 . Post
::v('inscr_Day');
412 $evt['deadline_inscription'] = null
;
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']);
428 // if new event, get its id
430 $eid = XDB
::insertId();
436 foreach ($moments as $i) {
437 if (Post
::v('titre'.$i)) {
440 $montant = strtr(Post
::v('montant'.$i), ',', '.');
441 $money_defaut +
= (float)$montant;
443 REPLACE INTO groupex.evenements_items
444 VALUES ({?}, {?}, {?}, {?}, {?})",
445 $eid, $i, Post
::v('titre'.$i),
446 Post
::v('details'.$i), $montant);
448 XDB
::execute("DELETE FROM groupex.evenements_items
449 WHERE eid = {?} AND item_id = {?}", $eid, $i);
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);
463 $page->assign('paiement_message', Post
::v('confirmation'));
464 $page->assign('paiement_site', Post
::v('site'));
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);
476 pl_redirect('events');
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);
489 // when modifying an old event retreive the old datas
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();
505 $evt['paiement_id'] = -2;
506 $evt['paiement_req'] = $stamp;
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)
515 ORDER BY item_id", $eid);
517 while ($item = $res->next()) {
518 $items[$item['item_id']] = $item;
520 $page->assign('items', $items);
522 $page->assign('url_ref', $eid);
525 function handler_admin(&$page, $eid = null
, $item_id = null
)
529 $this->load('xnetevents.inc.php');
531 $evt = get_event_detail($eid, $item_id);
536 $page->changeTpl('xnetevents/admin.tpl');
537 if (!$evt['show_participants'] && !may_update()) {
541 if (may_update() && Post
::v('adm')) {
542 S
::assert_xsrf_token();
544 $member = get_infos(Post
::v('mail'));
546 $page->trigError("Membre introuvable");
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']);
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']);
566 $paid = intval($res->fetchOneCell());
567 $nbs = Post
::v('nb', array());
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);
576 $res = XDB
::query("SELECT COUNT(uid) AS cnt, SUM(nb) AS nb
577 FROM groupex.evenements_participants
578 WHERE uid = {?} AND eid = {?}
580 $member['uid'], $evt['eid']);
581 $u = $res->fetchOneAssoc();
582 $u = $u['cnt'] ?
$u['nb'] : null
;
583 subscribe_lists_event($u, $member['uid'], $evt);
586 $evt = get_event_detail($eid, $item_id);
589 $page->assign_by_ref('evt', $evt);
590 $page->assign('tout', is_null($item_id));
592 if (count($evt['moments'])) {
593 $page->assign('moments', $evt['moments']);
596 $tri = (Env
::v('order') == 'alpha' ?
'promo, nom, prenom' : 'nom, prenom, promo');
597 $whereitemid = is_null($item_id) ?
'' : "AND ep.item_id = $item_id";
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']);
611 while (list($char, $nb) = $res->next()) {
612 $alphabet[ord($char)] = $char;
614 if (Env
::has('initiale') && $char == strtoupper(Env
::v('initiale'))) {
619 $page->assign('alphabet', $alphabet);
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);
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
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') . "%'"
652 ORDER BY nom, prenom, promo", $evt['eid']);
654 $ofs = Env
::i('offset');
655 $tot = (Env
::v('initiale') ?
$tot : $nb_tot) - $absents->total();
656 $nbp = intval(($tot-1)/NB_PER_PAGE
);
659 $links['précédent'] = $ofs-1;
661 for ($i = 0; $i <= $nbp; $i++
) {
662 $links[(string)($i+
1)] = $i;
665 $links['suivant'] = $ofs+
1;
667 if (count($links)>1) {
668 $page->assign('links', $links);
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
));
679 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: