2 /***************************************************************************
3 * Copyright (C) 2003-2011 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_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'),
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 group_events
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 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');
82 // deletes the event items
83 XDB
::execute('DELETE FROM group_event_items
84 WHERE eid = {?}', $eid);
86 // deletes the event participants
87 XDB
::execute('DELETE FROM group_event_participants
88 WHERE eid = {?}', $eid);
91 XDB
::execute('DELETE FROM group_events
92 WHERE eid = {?} AND asso_id = {?}',
93 $eid, $globals->asso('id'));
95 // delete the requests for payments
96 XDB
::execute("DELETE FROM requests
97 WHERE type = 'paiements' AND data LIKE {?}",
98 PayReq
::same_event($eid, $globals->asso('id')));
99 $globals->updateNbValid();
102 if ($action == 'archive') {
103 XDB
::execute("UPDATE group_events
105 WHERE eid = {?} AND asso_id = {?}",
106 $eid, $globals->asso('id'));
109 if ($action == 'unarchive') {
110 XDB
::execute("UPDATE group_events
112 WHERE eid = {?} AND asso_id = {?}",
113 $eid, $globals->asso('id'));
116 $page->assign('archive', $archive);
117 $evenements = XDB
::iterator('SELECT e.*, LEFT(10, e.debut) AS first_day, LEFT(10, e.fin) AS last_day,
118 IF(e.deadline_inscription,
119 e.deadline_inscription >= LEFT(NOW(), 10),
121 e.deadline_inscription,
122 MAX(ep.nb) IS NOT NULL AS inscrit, MAX(ep.paid) AS paid
123 FROM group_events AS e
124 LEFT JOIN group_event_participants AS ep ON (ep.eid = e.eid AND ep.uid = {?})
125 WHERE asso_id = {?} AND archive = {?}
127 ORDER BY inscr_open DESC, debut DESC',
128 S
::i('uid'), $globals->asso('id'), $archive ?
1 : 0);
131 $undisplayed_events = 0;
132 $this->load('xnetevents.inc.php');
134 while ($e = $evenements->next()) {
135 if (!is_member() && !may_update() && !$e['accept_nonmembre']) {
136 $undisplayed_events ++
;
140 $e['show_participants'] = ($e['show_participants'] && (is_member() ||
may_update()));
141 $e['moments'] = XDB
::fetchAllAssoc('SELECT titre, details, montant, ei.item_id, nb, ep.paid
142 FROM group_event_items AS ei
143 LEFT JOIN group_event_participants AS ep
144 ON (ep.eid = ei.eid AND ep.item_id = ei.item_id AND ep.uid = {?})
146 S
::i('uid'), $e['eid']);
149 $e['paid'] = $e['moments'][0]['paid'];
150 foreach ($e['moments'] as $m) {
151 $e['topay'] +
= $m['nb'] * $m['montant'];
154 $montant = XDB
::fetchOneCell(
155 "SELECT SUM(amount) as sum_amount
156 FROM payment_transactions AS t
157 WHERE ref = {?} AND uid = {?}", $e['paiement_id'], S
::v('uid'));
158 $e['paid'] +
= $montant;
162 if (Env
::has('updated') && $e['eid'] == Env
::i('updated')) {
163 $page->assign('updated', $e);
168 $page->assign('evenements', $evts);
169 $page->assign('undisplayed_events', $undisplayed_events);
172 function handler_sub($page, $eid = null
)
174 $this->load('xnetevents.inc.php');
175 $page->changeTpl('xnetevents/subscribe.tpl');
177 $evt = get_event_detail($eid);
181 if ($evt === false
) {
182 global $globals, $platal;
183 $url = $globals->asso('sub_url');
185 $url = $platal->ns
. 'subscribe';
187 $page->kill('Cet événement est reservé aux membres du groupe ' . $globals->asso('nom') .
188 '. Pour devenir membre, rends-toi sur la page de <a href="' . $url . '">demande d\'inscripton</a>.');
191 if (!$evt['inscr_open']) {
192 $page->kill('Les inscriptions pour cet événement sont closes');
194 if (!$evt['accept_nonmembre'] && !is_member() && !may_update()) {
195 $page->kill('Cet événement est fermé aux non-membres du groupe');
199 $res = XDB
::query("SELECT stamp
201 WHERE type = 'paiements' AND data LIKE {?}",
202 PayReq
::same_event($evt['eid'], $globals->asso('id')));
203 $page->assign('validation', $res->numRows());
204 $page->assign('event', $evt);
206 if (!Post
::has('submit')) {
209 S
::assert_xsrf_token();
212 $moments = Post
::v('moment', array());
213 $pers = Post
::v('personnes', array());
216 foreach ($moments as $j => $v) {
217 $subs[$j] = intval($v);
219 // retreive ohter field when more than one person
220 if ($subs[$j] == 2) {
221 if (!isset($pers[$j]) ||
!is_numeric($pers[$j]) ||
$pers[$j] < 0) {
222 $page->trigError("Tu dois choisir un nombre d'invités correct !");
225 $subs[$j] = 1 +
$pers[$j];
229 // impossible to unsubscribe if you already paid sthing
230 if (!array_sum($subs) && $evt['paid'] != 0) {
231 $page->trigError("Impossible de te désinscrire complètement " .
232 "parce que tu as fait un paiement par " .
233 "chèque ou par liquide. Contacte un " .
234 "administrateur du groupe si tu es sûr de " .
239 // update actual inscriptions
242 $paid = $evt['paid'] ?
$evt['paid'] : 0;
243 $telepaid= $evt['telepaid'] ?
$evt['telepaid'] : 0;
244 foreach ($subs as $j => $nb) {
246 XDB
::execute('INSERT INTO group_event_participants (eid, uid, item_id, nb, flags, paid)
247 VALUES ({?}, {?}, {?}, {?}, {?}, {?})
248 ON DUPLICATE KEY UPDATE nb = VALUES(nb), flags = VALUES(flags), paid = VALUES(paid)',
249 $eid, S
::v('uid'), $j, $nb, (Env
::has('notify_payment') ?
'notify_payment' : ''),
250 ($j == 1 ?
$paid - $telepaid : 0));
254 "DELETE FROM group_event_participants
255 WHERE eid = {?} AND uid = {?} AND item_id = {?}",
256 $eid, S
::v("uid"), $j);
261 if ($updated !== false
) {
262 $page->trigSuccess('Ton inscription à l\'événement a été mise à jour avec succès.');
263 subscribe_lists_event(S
::i('uid'), $evt['short_name'], ($total > 0 ?
1 : 0), 0);
265 if ($evt['subscription_notification'] != 'nobody') {
266 $mailer = new PlMailer('xnetevents/subscription-notif.mail.tpl');
267 if ($evt['subscription_notification'] != 'creator') {
268 $admins = $globals->asso()->iterAdmins();
269 while ($admin = $admins->next()) {
270 $mailer->addTo($admin);
273 if ($evt['subscription_notification'] != 'animator') {
274 $mailer->addTo($evt['organizer']);
276 $mailer->assign('group', $globals->asso('nom'));
277 $mailer->assign('event', $evt['intitule']);
278 $mailer->assign('subs', $subs);
279 $mailer->assign('moments', $evt['moments']);
280 $mailer->assign('name', S
::user()->fullName('promo'));
284 $page->assign('event', get_event_detail($eid));
287 function handler_csv($page, $eid = null
, $item_id = null
)
289 $this->load('xnetevents.inc.php');
291 if (!is_numeric($item_id)) {
295 $evt = get_event_detail($eid, $item_id);
300 pl_cached_content_headers('text/x-csv', 1);
301 $page->changeTpl('xnetevents/csv.tpl', NO_SKIN
);
303 $admin = may_update();
305 $tri = (Env
::v('order') == 'alpha' ? UserFilter
::sortByPromo() : UserFilter
::sortByName());
307 $page->assign('participants',
308 get_event_participants($evt, $item_id, $tri));
310 $page->assign('admin', $admin);
311 $page->assign('moments', $evt['moments']);
312 $page->assign('money', $evt['money']);
313 $page->assign('telepayment', $evt['paiement_id']);
314 $page->assign('tout', !Env
::v('item_id', false
));
317 function handler_ical($page, $eid = null
)
321 $this->load('xnetevents.inc.php');
322 $evt = get_event_detail($eid);
326 $evt['debut'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['debut']);
327 $evt['fin'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['fin']);
329 foreach ($evt['moments'] as $m) {
330 $evt['descriptif'] .= "\n\n** " . $m['titre'] . " **\n" . $m['details'];
333 $page->changeTpl('xnetevents/calendar.tpl', NO_SKIN
);
335 require_once('ical.inc.php');
336 $page->assign('asso', $globals->asso());
337 $page->assign('timestamp', time());
338 $page->assign('admin', may_update());
341 $page->assign('participants', get_event_participants($evt, null
, UserFilter
::sortByPromo()));
343 $page->register_function('display_ical', 'display_ical');
344 $page->assign_by_ref('e', $evt);
346 pl_content_headers("text/calendar");
349 function handler_edit($page, $eid = null
)
353 // get eid if the the given one is a short name
354 if (!is_null($eid) && !is_numeric($eid)) {
355 $res = XDB
::query("SELECT eid
357 WHERE asso_id = {?} AND short_name = {?}",
358 $globals->asso('id'), $eid);
359 if ($res->numRows()) {
360 $eid = (int)$res->fetchOneCell();
364 // check the event is in our group
365 if (!is_null($eid)) {
366 $res = XDB
::query("SELECT short_name
368 WHERE eid = {?} AND asso_id = {?}",
369 $eid, $globals->asso('id'));
370 if ($res->numRows()) {
371 $infos = $res->fetchOneAssoc();
377 $page->changeTpl('xnetevents/edit.tpl');
379 $moments = range(1, 4);
381 $page->assign('moments', $moments);
383 if (Post
::v('intitule')) {
384 S
::assert_xsrf_token();
386 $this->load('xnetevents.inc.php');
387 $short_name = event_change_shortname($page, $eid,
388 $infos['short_name'],
389 Env
::v('short_name', ''));
390 if ($short_name != Env
::v('short_name')) {
395 'asso_id' => $globals->asso('id'),
396 'paiement_id' => Post
::v('paiement_id') > 0 ? Post
::v('paiement_id') : null
,
397 'debut' => Post
::v('deb_Year').'-'.Post
::v('deb_Month')
398 .'-'.Post
::v('deb_Day').' '.Post
::v('deb_Hour')
399 .':'.Post
::v('deb_Minute').':00',
400 'fin' => Post
::v('fin_Year').'-'.Post
::v('fin_Month')
401 .'-'.Post
::v('fin_Day').' '.Post
::v('fin_Hour')
402 .':'.Post
::v('fin_Minute').':00',
403 'short_name' => $short_name,
406 $trivial = array('intitule', 'descriptif', 'noinvite', 'subscription_notification',
407 'show_participants', 'accept_nonmembre', 'uid');
408 foreach ($trivial as $k) {
409 $evt[$k] = Post
::v($k);
412 $evt['uid'] = S
::v('uid');
415 if (Post
::v('deadline')) {
416 $evt['deadline_inscription'] = Post
::v('inscr_Year').'-'
417 . Post
::v('inscr_Month').'-'
418 . Post
::v('inscr_Day');
420 $evt['deadline_inscription'] = null
;
423 // Store the modifications in the database
424 XDB
::execute('INSERT INTO group_events (eid, asso_id, uid, intitule, paiement_id,
425 descriptif, debut, fin, show_participants,
426 short_name, deadline_inscription, noinvite,
427 accept_nonmembre, subscription_notification)
428 VALUES ({?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?})
429 ON DUPLICATE KEY UPDATE asso_id = VALUES(asso_id), uid = VALUES(uid), intitule = VALUES(intitule),
430 paiement_id = VALUES(paiement_id), descriptif = VALUES(descriptif), debut = VALUES(debut),
431 fin = VALUES(fin), show_participants = VALUES(show_participants), short_name = VALUES(short_name),
432 deadline_inscription = VALUES(deadline_inscription), noinvite = VALUES(noinvite),
433 accept_nonmembre = VALUES(accept_nonmembre), subscription_notification = VALUES(subscription_notification)',
434 $evt['eid'], $evt['asso_id'], $evt['uid'],
435 $evt['intitule'], $evt['paiement_id'], $evt['descriptif'],
436 $evt['debut'], $evt['fin'], $evt['show_participants'],
437 $evt['short_name'], $evt['deadline_inscription'],
438 $evt['noinvite'], $evt['accept_nonmembre'], $evt['subscription_notification']);
440 // if new event, get its id
442 $eid = XDB
::insertId();
445 foreach ($moments as $i) {
446 if (Post
::v('titre' . $i)) {
449 $montant = strtr(Post
::v('montant' . $i), ',', '.');
450 $money_defaut +
= (float)$montant;
451 XDB
::execute('INSERT INTO group_event_items (eid, item_id, titre, details, montant)
452 VALUES ({?}, {?}, {?}, {?}, {?})
453 ON DUPLICATE KEY UPDATE titre = VALUES(titre), details = VALUES(details), montant = VALUES(montant)',
454 $eid, $i, Post
::v('titre' . $i), Post
::v('details' . $i), $montant);
456 XDB
::execute('DELETE FROM group_event_items
457 WHERE eid = {?} AND item_id = {?}', $eid, $i);
460 // request for a new payment
461 if (Post
::v('paiement_id') == -1 && $money_defaut >= 0) {
462 $p = new PayReq(S
::user(),
463 Post
::v('intitule')." - ".$globals->asso('nom'),
464 Post
::v('site'), $money_defaut,
465 Post
::v('confirmation'), 0, 999,
466 $globals->asso('id'), $eid);
470 $page->assign('paiement_message', Post
::v('confirmation'));
471 $page->assign('paiement_site', Post
::v('site'));
476 // events with no sub-event: add a sub-event with no name
477 if ($nb_moments == 0) {
478 XDB
::execute("INSERT INTO group_event_items
479 VALUES ({?}, {?}, '', '', 0)", $eid, 1);
483 pl_redirect('events');
487 // get a list of all the payment for this asso
488 $res = XDB
::iterator("SELECT id, text
490 WHERE asso_id = {?}", $globals->asso('id'));
491 $paiements = array();
492 while ($a = $res->next()) $paiements[$a['id']] = $a['text']; {
493 $page->assign('paiements', $paiements);
496 // when modifying an old event retreive the old datas
499 "SELECT eid, intitule, descriptif, debut, fin, uid,
500 show_participants, paiement_id, short_name,
501 deadline_inscription, noinvite, accept_nonmembre, subscription_notification
503 WHERE eid = {?}", $eid);
504 $evt = $res->fetchOneAssoc();
505 // find out if there is already a request for a payment for this event
506 $res = XDB
::query("SELECT stamp
508 WHERE type = 'paiements' AND data LIKE {?}",
509 PayReq
::same_event($eid, $globals->asso('id')));
510 $stamp = $res->fetchOneCell();
512 $evt['paiement_id'] = -2;
513 $evt['paiement_req'] = $stamp;
515 $page->assign('evt', $evt);
516 // get all the different moments infos
517 $res = XDB
::iterator(
518 "SELECT item_id, titre, details, montant
519 FROM group_event_items AS ei
520 INNER JOIN group_events AS e ON(e.eid = ei.eid)
522 ORDER BY item_id", $eid);
524 while ($item = $res->next()) {
525 $items[$item['item_id']] = $item;
527 $page->assign('items', $items);
529 $page->assign('url_ref', $eid);
532 function handler_admin($page, $eid = null
, $item_id = null
)
536 $this->load('xnetevents.inc.php');
538 $evt = get_event_detail($eid, $item_id);
543 $page->changeTpl('xnetevents/admin.tpl');
544 if (!$evt['show_participants'] && !may_update()) {
548 if (may_update() && Post
::v('adm')) {
549 S
::assert_xsrf_token();
551 $member = User
::getSilent(Post
::v('mail'));
553 $page->trigError("Membre introuvable");
556 // change the price paid by a participant
557 if (Env
::v('adm') == 'prix' && $member) {
558 $amount = strtr(Env
::v('montant'), ',', '.');
559 XDB
::execute("UPDATE group_event_participants
560 SET paid = paid + {?}
561 WHERE uid = {?} AND eid = {?} AND item_id = 1",
562 $amount, $member->uid
, $evt['eid']);
563 subscribe_lists_event($member->uid
, $evt['short_name'], 1, $amount);
566 // change the number of personns coming with a participant
567 if (Env
::v('adm') == 'nbs' && $member) {
568 $res = XDB
::query("SELECT paid
569 FROM group_event_participants
570 WHERE uid = {?} AND eid = {?}",
571 $member->uid
, $evt['eid']);
573 $paid = intval($res->fetchOneCell());
574 $nbs = Post
::v('nb', array());
576 foreach ($nbs as $id => $nb) {
577 $nb = max(intval($nb), 0);
578 XDB
::execute('INSERT INTO group_event_participants (eid, uid, item_id, nb, flags, paid)
579 VALUES ({?}, {?}, {?}, {?}, {?}, {?})
580 ON DUPLICATE KEY UPDATE nb = VALUES(nb), flags = VALUES(flags), paid = VALUES(paid)',
581 $evt['eid'], $member->uid
, $id, $nb, '', ($id == 1 ?
$paid : 0));
584 $res = XDB
::query('SELECT COUNT(uid) AS cnt, SUM(nb) AS nb
585 FROM group_event_participants
586 WHERE uid = {?} AND eid = {?}
588 $member->uid
, $evt['eid']);
589 $u = $res->fetchOneAssoc();
590 if ($u['cnt'] == 1 && $paid == 0 && Post
::v('cancel')) {
591 XDB
::execute("DELETE FROM group_event_participants
592 WHERE uid = {?} AND eid = {?}",
593 $member->uid
, $evt['eid']);
595 subscribe_lists_event($member->uid
, $evt['short_name'], -1, $paid);
597 $u = $u['cnt'] ?
$u['nb'] : null
;
598 subscribe_lists_event($member->uid
, $evt['short_name'], ($u > 0 ?
1 : 0), $paid);
602 $evt = get_event_detail($eid, $item_id);
605 $page->assign_by_ref('evt', $evt);
606 $page->assign('tout', is_null($item_id));
608 if (count($evt['moments'])) {
609 $page->assign('moments', $evt['moments']);
612 if ($evt['paiement_id']) {
613 $infos = User
::getBulkUsersWithUIDs(
614 XDB
::fetchAllAssoc('SELECT t.uid, t.amount
615 FROM payment_transactions AS t
616 LEFT JOIN group_event_participants AS ep ON(ep.uid = t.uid AND ep.eid = {?})
617 WHERE t.ref = {?} AND ep.uid IS NULL',
618 $evt['eid'], $evt['paiement_id']),
620 $page->assign('oublis', count($infos));
621 $page->assign('oubliinscription', $infos);
624 $absents = User
::getBulkUsersFromDB('SELECT p.uid
625 FROM group_event_participants AS p
626 LEFT JOIN group_event_participants AS p2 ON (p2.uid = p.uid
629 WHERE p.eid = {?} AND p2.eid IS NULL
630 GROUP BY p.uid', $evt['eid']);
632 $ofs = Env
::i('offset');
633 $nbp = ceil($evt['user_count'] / NB_PER_PAGE
);
637 $links['précédent'] = $ofs - 1;
639 for ($i = 1 ; $i <= $nbp; $i++
) {
640 $links[(string)$i] = $i - 1;
642 if ($ofs < $nbp - 1) {
643 $links['suivant'] = $ofs+
1;
645 $page->assign('links', $links);
648 $page->assign('absents', $absents);
649 $page->assign('participants',
650 get_event_participants($evt, $item_id, UserFilter
::sortByName(),
651 NB_PER_PAGE
, $ofs * NB_PER_PAGE
));
655 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: