2 /***************************************************************************
3 * Copyright (C) 2003-2010 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
76 foreach (array('-absents@', '-participants@', '-paye@', '-participants-non-paye@') as $v) {
77 XDB
::execute("DELETE FROM virtual
78 WHERE type = 'evt' AND alias LIKE {?}",
83 // deletes the event items
84 XDB
::execute('DELETE FROM #groupex#.evenements_items
85 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 first_day, LEFT(10, e.fin) AS last_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;
136 $this->load('xnetevents.inc.php');
138 while ($e = $evenements->next()) {
139 if (!is_member() && !may_update() && !$e['accept_nonmembre']) {
140 $undisplayed_events ++
;
144 $e['show_participants'] = ($e['show_participants'] && (is_member() ||
may_update()));
146 "SELECT titre, details, montant, ei.item_id, nb, ep.paid
147 FROM #groupex#.evenements_items AS ei
148 LEFT JOIN #groupex#.evenements_participants AS ep
149 ON (ep.eid = ei.eid AND ep.item_id = ei.item_id AND uid = {?})
151 S
::v('uid'), $e['eid']);
152 $e['moments'] = $res->fetchAllAssoc();
155 $e['paid'] = $e['moments'][0]['paid'];
156 foreach ($e['moments'] as $m) {
157 $e['topay'] +
= $m['nb'] * $m['montant'];
162 FROM {$globals->money->mpay_tprefix}transactions AS t
163 WHERE ref = {?} AND uid = {?}", $e['paiement_id'], S
::v('uid'));
164 $montants = $query->fetchColumn();
166 foreach ($montants as $m) {
167 $p = strtr(substr($m, 0, strpos($m, 'EUR')), ',', '.');
168 $e['paid'] +
= trim($p);
173 if (Env
::has('updated') && $e['eid'] == Env
::i('updated')) {
174 $page->assign('updated', $e);
179 $page->assign('evenements', $evts);
180 $page->assign('undisplayed_events', $undisplayed_events);
183 function handler_sub(&$page, $eid = null
)
185 $this->load('xnetevents.inc.php');
186 $page->changeTpl('xnetevents/subscribe.tpl');
188 $evt = get_event_detail($eid);
192 if ($evt === false
) {
193 global $globals, $platal;
194 $url = $globals->asso('sub_url');
196 $url = $platal->ns
. 'subscribe';
198 $page->kill('Cet événement est reservé aux membres du groupe ' . $globals->asso('nom') .
199 '. Pour devenir membre, rends-toi sur la page de <a href="' . $url . '">demande d\'inscripton</a>.');
202 if (!$evt['inscr_open']) {
203 $page->kill('Les inscriptions pour cet événement sont closes');
205 if (!$evt['accept_nonmembre'] && !is_member() && !may_update()) {
206 $page->kill('Cet événement est fermé aux non-membres du groupe');
210 $res = XDB
::query("SELECT stamp FROM requests
211 WHERE type = 'paiements' AND data LIKE {?}",
212 PayReq
::same_event($evt['eid'], $globals->asso('id')));
213 $page->assign('validation', $res->numRows());
214 $page->assign('event', $evt);
216 if (!Post
::has('submit')) {
219 S
::assert_xsrf_token();
222 $moments = Post
::v('moment', array());
223 $pers = Post
::v('personnes', array());
226 foreach ($moments as $j => $v) {
227 $subs[$j] = intval($v);
229 // retreive ohter field when more than one person
230 if ($subs[$j] == 2) {
231 if (!isset($pers[$j]) ||
!is_numeric($pers[$j])
234 $page->trigError("Tu dois choisir un nombre d'invités correct !");
237 $subs[$j] = 1 +
$pers[$j];
241 // impossible to unsubscribe if you already paid sthing
242 if (!array_sum($subs) && $evt['paid'] != 0) {
243 $page->trigError("Impossible de te désinscrire complètement " .
244 "parce que tu as fait un paiement par " .
245 "chèque ou par liquide. Contacte un " .
246 "administrateur du groupe si tu es sûr de " .
251 // update actual inscriptions
254 $paid = $evt['paid'] ?
$evt['paid'] : 0;
255 $telepaid= $evt['telepaid'] ?
$evt['telepaid'] : 0;
256 foreach ($subs as $j => $nb) {
259 "REPLACE INTO #groupex#.evenements_participants
260 VALUES ({?}, {?}, {?}, {?}, {?}, {?})",
261 $eid, S
::v('uid'), $j, $nb, Env
::has('notify_payment') ?
'notify_payment' : '',
262 $j == 1 ?
$paid - $telepaid : 0);
266 "DELETE FROM #groupex#.evenements_participants
267 WHERE eid = {?} AND uid = {?} AND item_id = {?}",
268 $eid, S
::v("uid"), $j);
273 if ($updated !== false
) {
274 $page->trigSuccess('Ton inscription à l\'événement a été mise à jour avec succès.');
275 subscribe_lists_event($total, S
::i('uid'), $evt, $paid);
277 $page->assign('event', get_event_detail($eid));
280 function handler_csv(&$page, $eid = null
, $item_id = null
)
282 $this->load('xnetevents.inc.php');
284 if (!is_numeric($item_id)) {
288 $evt = get_event_detail($eid, $item_id);
293 pl_content_headers("text/x-csv");
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 pl_content_headers("text/calendar");
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 = paid + {?}
554 WHERE uid = {?} AND eid = {?} AND item_id = 1",
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, $paid);
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 #x4dat#.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 == mb_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 #x4dat#.auth_user_md5 AS u ON(t.uid = u.user_id)
627 INNER JOIN #x4dat#.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 #x4dat#.auth_user_md5 AS u ON (u.user_id = m.uid)
646 LEFT JOIN #x4dat#.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);
656 $nbp = ceil($tot / NB_PER_PAGE
);
660 $links['précédent'] = $ofs - 1;
662 for ($i = 1 ; $i <= $nbp; $i++
) {
663 $links[(string)$i] = $i - 1;
666 $links['suivant'] = $ofs+
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: