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)) {
62 $res = XDB
::query("SELECT asso_id, short_name FROM groupex.evenements
63 WHERE eid = {?} AND asso_id = {?}",
64 $eid, $globals->asso('id'));
66 $tmp = $res->fetchOneRow();
72 if ($action == 'del') {
73 // deletes the event mailing aliases
76 "DELETE FROM virtual WHERE type = 'evt' AND alias LIKE {?}",
77 $tmp[1].'-absents@%');
79 "DELETE FROM virtual WHERE type = 'evt' AND alias LIKE {?}",
80 $tmp[1].'-participants@%');
83 // deletes the event items
84 XDB
::execute("DELETE FROM groupex.evenements_items WHERE eid = {?}", $eid);
86 // deletes the event participants
87 XDB
::execute("DELETE FROM groupex.evenements_participants
88 WHERE eid = {?}", $eid);
91 XDB
::execute("DELETE FROM groupex.evenements
92 WHERE eid = {?} AND asso_id = {?}",
93 $eid, $globals->asso('id'));
95 // delete the requests for payments
96 require_once 'validations.inc.php';
97 XDB
::execute("DELETE FROM requests
98 WHERE type = 'paiements' AND data LIKE {?}",
99 PayReq
::same_event($eid, $globals->asso('id')));
103 if ($action == 'archive') {
104 XDB
::execute("UPDATE groupex.evenements
106 WHERE eid = {?} AND asso_id = {?}",
107 $eid, $globals->asso('id'));
110 if ($action == 'unarchive') {
111 XDB
::execute("UPDATE groupex.evenements
113 WHERE eid = {?} AND asso_id = {?}",
114 $eid, $globals->asso('id'));
117 $page->assign('archive', $archive);
118 $evenements = XDB
::iterator(
119 "SELECT e.*, LEFT(10, e.debut) AS debut_day, LEFT(10, e.fin) AS fin_day,
120 IF(e.deadline_inscription, e.deadline_inscription >= LEFT(NOW(), 10),
121 1) AS inscr_open, e.deadline_inscription,
122 u.nom, u.prenom, u.promo, a.alias,
123 MAX(ep.nb) IS NOT NULL AS inscrit, MAX(ep.paid) AS paid
124 FROM groupex.evenements AS e
125 INNER JOIN x4dat.auth_user_md5 AS u ON u.user_id = e.organisateur_uid
126 INNER JOIN x4dat.aliases AS a ON (a.type = 'a_vie' AND a.id = u.user_id)
127 LEFT JOIN groupex.evenements_participants AS ep ON (ep.eid = e.eid AND ep.uid = {?})
129 AND archive = " . ($archive ?
"1 " : "0 ")
130 . (is_member() ||
may_update() ?
"" : " AND accept_nonmembre != 0 ")
132 ORDER BY inscr_open DESC, debut DESC", S
::v('uid'), $globals->asso('id'));
136 while ($e = $evenements->next()) {
137 $e['show_participants'] = ($e['show_participants'] && (is_member() ||
may_update()));
139 "SELECT titre, details, montant, ei.item_id, nb, ep.paid
140 FROM groupex.evenements_items AS ei
141 LEFT JOIN groupex.evenements_participants AS ep
142 ON (ep.eid = ei.eid AND ep.item_id = ei.item_id AND uid = {?})
144 S
::v('uid'), $e['eid']);
145 $e['moments'] = $res->fetchAllAssoc();
148 $e['paid'] = $e['moments'][0]['paid'];
149 foreach ($e['moments'] as $m) {
150 $e['topay'] +
= $m['nb'] * $m['montant'];
155 FROM {$globals->money->mpay_tprefix}transactions AS t
156 WHERE ref = {?} AND uid = {?}", $e['paiement_id'], S
::v('uid'));
157 $montants = $query->fetchColumn();
159 foreach ($montants as $m) {
160 $p = strtr(substr($m, 0, strpos($m, 'EUR')), ',', '.');
161 $e['paid'] +
= trim($p);
164 if (Env
::has('updated') && $e['eid'] == Env
::i('updated')) {
165 $page->assign('updated', $e);
170 $page->assign('evenements', $evts);
173 function handler_sub(&$page, $eid = null
)
175 require_once dirname(__FILE__
).'/xnetevents/xnetevents.inc.php';
176 $page->changeTpl('xnetevents/subscribe.tpl');
178 $evt = get_event_detail($eid);
183 if (!$evt['inscr_open']) {
184 $page->kill('Les inscriptions pour cet événement sont closes');
186 if (!$evt['accept_nonmembre'] && !is_member() && !may_update()) {
187 $page->kill('Cet événement est fermé aux non-membres du groupe');
191 $res = XDB
::query("SELECT stamp FROM requests
192 WHERE type = 'paiements' AND data LIKE {?}",
193 PayReq
::same_event($evt['eid'], $globals->asso('id')));
194 $page->assign('validation', $res->numRows());
195 $page->assign('event', $evt);
197 if (!Post
::has('submit')) {
201 $moments = Post
::v('moment', array());
202 $pers = Post
::v('personnes', array());
205 foreach ($moments as $j => $v) {
206 $subs[$j] = intval($v);
208 // retreive ohter field when more than one person
209 if ($subs[$j] == 2) {
210 if (!isset($pers[$j]) ||
!is_numeric($pers[$j])
213 $page->trig('Tu dois choisir un nombre d\'invités correct !');
216 $subs[$j] = 1 +
$pers[$j];
220 // impossible to unsubscribe if you already paid sthing
221 if (!array_sum($subs) && $evt['paid'] != 0) {
222 $page->trig("Impossible de te désinscrire complètement ".
223 "parce que tu as fait un paiement par ".
224 "chèque ou par liquide. Contacte un ".
225 "administrateur du groupe si tu es sûr de ".
230 // update actual inscriptions
233 $paid = $evt['paid'] ?
$evt['paid'] : 0;
234 $telepaid= $evt['telepaid'] ?
$evt['telepaid'] : 0;
235 foreach ($subs as $j => $nb) {
238 "REPLACE INTO groupex.evenements_participants
239 VALUES ({?}, {?}, {?}, {?}, {?}, {?})",
240 $eid, S
::v('uid'), $j, $nb, Env
::has('notify_payment') ?
'notify_payment' : '',
241 $j == 1 ?
$paid - $telepaid : 0);
245 "DELETE FROM groupex.evenements_participants
246 WHERE eid = {?} AND uid = {?} AND item_id = {?}",
247 $eid, S
::v("uid"), $j);
252 if ($updated !== false
) {
253 subscribe_lists_event($total, S
::i('uid'), $evt);
255 $page->assign('event', get_event_detail($eid));
258 function handler_csv(&$page, $eid = null
, $item_id = null
)
260 require_once dirname(__FILE__
).'/xnetevents/xnetevents.inc.php';
262 if (!is_numeric($item_id)) {
266 $evt = get_event_detail($eid, $item_id);
271 header('Content-type: text/x-csv; encoding=UTF-8');
273 header('Cache-Control: ');
275 $page->changeTpl('xnetevents/csv.tpl', NO_SKIN
);
277 $admin = may_update();
279 $tri = (Env
::v('order') == 'alpha' ?
'promo, nom, prenom' : 'nom, prenom, promo');
281 $page->assign('participants',
282 get_event_participants($evt, $item_id, $tri));
284 $page->assign('admin', $admin);
285 $page->assign('moments', $evt['moments']);
286 $page->assign('money', $evt['money']);
287 $page->assign('telepayment', $evt['paiement_id']);
288 $page->assign('tout', !Env
::v('item_id', false
));
291 function handler_ical(&$page, $eid = null
)
295 require_once dirname(__FILE__
).'/xnetevents/xnetevents.inc.php';
296 $evt = get_event_detail($eid);
300 $evt['debut'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['debut']);
301 $evt['fin'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['fin']);
303 foreach ($evt['moments'] as $m) {
304 $evt['descriptif'] .= "\n\n** " . $m['titre'] . " **\n" . $m['details'];
307 $page->changeTpl('xnetevents/calendar.tpl', NO_SKIN
);
309 require_once('ical.inc.php');
310 $page->assign('asso', $globals->asso());
311 $page->assign('timestamp', time());
312 $page->assign('admin', may_update());
315 $page->assign('participants', get_event_participants($evt, null
, 'promo, nom, prenom'));
317 $page->register_function('display_ical', 'display_ical');
318 $page->assign_by_ref('e', $evt);
320 header('Content-Type: text/calendar; charset=utf-8');
323 function handler_edit(&$page, $eid = null
)
327 // get eid if the the given one is a short name
328 if (!is_null($eid) && !is_numeric($eid)) {
329 $res = XDB
::query("SELECT eid
330 FROM groupex.evenements
331 WHERE asso_id = {?} AND short_name = {?}",
332 $globals->asso('id'), $eid);
333 if ($res->numRows()) {
334 $eid = (int)$res->fetchOneCell();
338 // check the event is in our group
339 if (!is_null($eid)) {
340 $res = XDB
::query("SELECT short_name
341 FROM groupex.evenements
342 WHERE eid = {?} AND asso_id = {?}",
343 $eid, $globals->asso('id'));
344 if ($res->numRows()) {
345 $infos = $res->fetchOneAssoc();
351 $page->changeTpl('xnetevents/edit.tpl');
353 $moments = range(1, 4);
355 $page->assign('moments', $moments);
357 if (Post
::v('intitule')) {
358 require_once dirname(__FILE__
).'/xnetevents/xnetevents.inc.php';
359 $short_name = event_change_shortname($page, $eid,
360 $infos['short_name'],
361 Env
::v('short_name', ''));
362 if ($short_name != Env
::v('short_name')) {
367 'asso_id' => $globals->asso('id'),
368 'paiement_id' => Post
::v('paiement_id') > 0 ? Post
::v('paiement_id') : null
,
369 'debut' => Post
::v('deb_Year').'-'.Post
::v('deb_Month')
370 .'-'.Post
::v('deb_Day').' '.Post
::v('deb_Hour')
371 .':'.Post
::v('deb_Minute').':00',
372 'fin' => Post
::v('fin_Year').'-'.Post
::v('fin_Month')
373 .'-'.Post
::v('fin_Day').' '.Post
::v('fin_Hour')
374 .':'.Post
::v('fin_Minute').':00',
375 'short_name' => $short_name,
378 $trivial = array('intitule', 'descriptif', 'noinvite',
379 'show_participants', 'accept_nonmembre', 'organisateur_uid');
380 foreach ($trivial as $k) {
381 $evt[$k] = Post
::v($k);
384 $evt['organisateur_uid'] = S
::v('uid');
387 if (Post
::v('deadline')) {
388 $evt['deadline_inscription'] = Post
::v('inscr_Year').'-'
389 . Post
::v('inscr_Month').'-'
390 . Post
::v('inscr_Day');
392 $evt['deadline_inscription'] = null
;
395 // Store the modifications in the database
396 XDB
::execute('REPLACE INTO groupex.evenements
397 SET eid={?}, asso_id={?}, organisateur_uid={?}, intitule={?},
398 paiement_id = {?}, descriptif = {?}, debut = {?},
399 fin = {?}, show_participants = {?}, short_name = {?},
400 deadline_inscription = {?}, noinvite = {?},
401 accept_nonmembre = {?}',
402 $evt['eid'], $evt['asso_id'], $evt['organisateur_uid'],
403 $evt['intitule'], $evt['paiement_id'], $evt['descriptif'],
404 $evt['debut'], $evt['fin'], $evt['show_participants'],
405 $evt['short_name'], $evt['deadline_inscription'],
406 $evt['noinvite'], $evt['accept_nonmembre']);
408 // if new event, get its id
410 $eid = XDB
::insertId();
416 foreach ($moments as $i) {
417 if (Post
::v('titre'.$i)) {
420 $montant = strtr(Post
::v('montant'.$i), ',', '.');
421 $money_defaut +
= (float)$montant;
423 REPLACE INTO groupex.evenements_items
424 VALUES ({?}, {?}, {?}, {?}, {?})",
425 $eid, $i, Post
::v('titre'.$i),
426 Post
::v('details'.$i), $montant);
428 XDB
::execute("DELETE FROM groupex.evenements_items
429 WHERE eid = {?} AND item_id = {?}", $eid, $i);
432 // request for a new payment
433 if (Post
::v('paiement_id') == -1 && $money_defaut >= 0) {
434 require_once 'validations.inc.php';
435 $p = new PayReq(S
::v('uid'),
436 Post
::v('intitule')." - ".$globals->asso('nom'),
437 Post
::v('site'), $money_defaut,
438 Post
::v('confirmation'), 0, 999,
439 $globals->asso('id'), $eid);
443 $page->assign('paiement_message', Post
::v('confirmation'));
444 $page->assign('paiement_site', Post
::v('site'));
449 // events with no sub-event: add a sub-event with no name
450 if ($nb_moments == 0) {
451 XDB
::execute("INSERT INTO groupex.evenements_items
452 VALUES ({?}, {?}, '', '', 0)", $eid, 1);
456 pl_redirect('events');
460 // get a list of all the payment for this asso
461 $res = XDB
::iterator("SELECT id, text
462 FROM {$globals->money->mpay_tprefix}paiements
463 WHERE asso_id = {?}", $globals->asso('id'));
464 $paiements = array();
465 while ($a = $res->next()) $paiements[$a['id']] = $a['text']; {
466 $page->assign('paiements', $paiements);
469 // when modifying an old event retreive the old datas
472 "SELECT eid, intitule, descriptif, debut, fin, organisateur_uid,
473 show_participants, paiement_id, short_name,
474 deadline_inscription, noinvite, accept_nonmembre
475 FROM groupex.evenements
476 WHERE eid = {?}", $eid);
477 $evt = $res->fetchOneAssoc();
478 // find out if there is already a request for a payment for this event
479 require_once 'validations.inc.php';
480 $res = XDB
::query("SELECT stamp FROM requests
481 WHERE type = 'paiements' AND data LIKE {?}",
482 PayReq
::same_event($eid, $globals->asso('id')));
483 $stamp = $res->fetchOneCell();
485 $evt['paiement_id'] = -2;
486 $evt['paiement_req'] = $stamp;
488 $page->assign('evt', $evt);
489 // get all the different moments infos
490 $res = XDB
::iterator(
491 "SELECT item_id, titre, details, montant
492 FROM groupex.evenements_items AS ei
493 INNER JOIN groupex.evenements AS e ON(e.eid = ei.eid)
495 ORDER BY item_id", $eid);
497 while ($item = $res->next()) {
498 $items[$item['item_id']] = $item;
500 $page->assign('items', $items);
502 $page->assign('url_ref', $eid);
505 function handler_admin(&$page, $eid = null
, $item_id = null
)
509 require_once dirname(__FILE__
).'/xnetevents/xnetevents.inc.php';
511 $evt = get_event_detail($eid, $item_id);
516 $page->changeTpl('xnetevents/admin.tpl');
517 if (!$evt['show_participants'] && !may_update()) {
521 if (may_update() && Post
::v('adm')) {
522 $member = get_infos(Post
::v('mail'));
524 $page->trig("Membre introuvable");
527 // change the price paid by a participant
528 if (Env
::v('adm') == 'prix' && $member) {
529 XDB
::execute("UPDATE groupex.evenements_participants
530 SET paid = IF(paid + {?} > 0, paid + {?}, 0)
531 WHERE uid = {?} AND eid = {?} AND item_id = 1",
532 strtr(Env
::v('montant'), ',', '.'),
533 strtr(Env
::v('montant'), ',', '.'),
534 $member['uid'], $evt['eid']);
537 // change the number of personns coming with a participant
538 if (Env
::v('adm') == 'nbs' && $member) {
539 $res = XDB
::query("SELECT paid
540 FROM groupex.evenements_participants
541 WHERE uid = {?} AND eid = {?}",
542 $member['uid'], $evt['eid']);
544 $paid = intval($res->fetchOneCell());
545 $nbs = Post
::v('nb', array());
547 foreach ($nbs as $id => $nb) {
548 $nb = max(intval($nb), 0);
549 XDB
::execute("REPLACE INTO groupex.evenements_participants
550 VALUES ({?}, {?}, {?}, {?}, {?}, {?})",
551 $evt['eid'], $member['uid'], $id, $nb, '', $id == 1 ?
$paid : 0);
554 $res = XDB
::query("SELECT COUNT(uid) AS cnt, SUM(nb) AS nb
555 FROM groupex.evenements_participants
556 WHERE uid = {?} AND eid = {?}
558 $member['uid'], $evt['eid']);
559 $u = $res->fetchOneAssoc();
560 $u = $u['cnt'] ?
$u['nb'] : null
;
561 subscribe_lists_event($u, $member['uid'], $evt);
564 $evt = get_event_detail($eid, $item_id);
567 $page->assign_by_ref('evt', $evt);
568 $page->assign('tout', is_null($item_id));
570 if (count($evt['moments'])) {
571 $page->assign('moments', $evt['moments']);
574 $tri = (Env
::v('order') == 'alpha' ?
'promo, nom, prenom' : 'nom, prenom, promo');
575 $whereitemid = is_null($item_id) ?
'' : "AND ep.item_id = $item_id";
577 'SELECT UPPER(SUBSTRING(IF(u.nom IS NULL, m.nom,
578 IF(u.nom_usage<>"", u.nom_usage, u.nom)), 1, 1)),
579 COUNT(DISTINCT ep.uid)
580 FROM groupex.evenements_participants AS ep
581 INNER JOIN groupex.evenements AS e ON (ep.eid = e.eid)
582 LEFT JOIN groupex.membres AS m ON ( ep.uid = m.uid AND e.asso_id = m.asso_id)
583 LEFT JOIN auth_user_md5 AS u ON ( u.user_id = ep.uid )
584 WHERE ep.eid = {?} '.$whereitemid . '
585 GROUP BY UPPER(SUBSTRING(IF(u.nom IS NULL,m.nom,u.nom), 1, 1))', $evt['eid']);
589 while (list($char, $nb) = $res->next()) {
590 $alphabet[ord($char)] = $char;
592 if (Env
::has('initiale') && $char == strtoupper(Env
::v('initiale'))) {
597 $page->assign('alphabet', $alphabet);
599 if ($evt['paiement_id']) {
600 $res = XDB
::iterator(
601 "SELECT IF(u.nom_usage<>'', u.nom_usage, u.nom) AS nom, u.prenom,
602 u.promo, a.alias AS email, t.montant
603 FROM {$globals->money->mpay_tprefix}transactions AS t
604 INNER JOIN auth_user_md5 AS u ON(t.uid = u.user_id)
605 INNER JOIN aliases AS a ON (a.id = t.uid AND a.type='a_vie' )
606 LEFT JOIN groupex.evenements_participants AS ep ON(ep.uid = t.uid AND ep.eid = {?})
607 WHERE t.ref = {?} AND ep.uid IS NULL",
608 $evt['eid'], $evt['paiement_id']);
609 $page->assign('oublis', $res->total());
610 $page->assign('oubliinscription', $res);
613 $absents = XDB
::iterator("SELECT p.uid,
614 IF(m.origine = 'X', IF(u.nom_usage != '', u.nom_usage, u.nom), m.nom) AS nom,
615 IF(m.origine = 'X', u.prenom, u.prenom) AS prenom,
616 IF(m.origine = 'X', u.promo, m.origine) AS promo,
617 IF(m.origine = 'X', FIND_IN_SET('femme', u.flags), m.sexe) AS sexe,
618 IF(m.origine = 'X', a.alias, m.email) AS email
619 FROM groupex.evenements_participants AS p
620 INNER JOIN groupex.membres AS m USING(uid)
621 LEFT JOIN groupex.evenements_participants AS p2 ON (p2.uid = m.uid AND p2.eid = p.eid
623 LEFT JOIN auth_user_md5 AS u ON (u.user_id = m.uid)
624 LEFT JOIN aliases AS a ON (a.id = u.user_id AND a.type = 'a_vie')
625 WHERE p.eid = {?} AND p2.eid IS NULL
626 " . (Env
::v('initiale') ?
" AND IF(u.nom IS NULL, m.nom,
627 IF(u.nom_usage<>'', u.nom_usage, u.nom)) LIKE '" . Env
::v('initiale') . "%'"
630 ORDER BY nom, prenom, promo", $evt['eid']);
632 $ofs = Env
::i('offset');
633 $tot = (Env
::v('initiale') ?
$tot : $nb_tot) - $absents->total();
634 $nbp = intval(($tot-1)/NB_PER_PAGE
);
637 $links['précédent'] = $ofs-1;
639 for ($i = 0; $i <= $nbp; $i++
) {
640 $links[(string)($i+
1)] = $i;
643 $links['suivant'] = $ofs+
1;
645 if (count($links)>1) {
646 $page->assign('links', $links);
650 $page->assign('absents', $absents);
651 $page->assign('participants',
652 get_event_participants($evt, $item_id, $tri,
653 "LIMIT ".($ofs*NB_PER_PAGE
).", ".NB_PER_PAGE
));
657 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: