Neutral formulation.
[platal.git] / modules / xnetevents.php
CommitLineData
4f10a058 1<?php
2/***************************************************************************
5e1513f6 3 * Copyright (C) 2003-2011 Polytechnique.org *
4f10a058 4 * http://opensource.polytechnique.org/ *
5 * *
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. *
10 * *
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. *
15 * *
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 *
18 * Foundation, Inc., *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
21
ed21e24a 22define('NB_PER_PAGE', 25);
23
4f10a058 24class XnetEventsModule extends PLModule
25{
26 function handlers()
27 {
28 return array(
bfe9f4c7
SJ
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'),
4f10a058 35 );
36 }
37
26ba053e 38 function handler_events($page, $archive = null)
4f10a058 39 {
40 global $globals;
41
1490093c 42 $page->changeTpl('xnetevents/index.tpl');
f02eefd4 43 $action = null;
1490093c 44 $archive = ($archive == 'archive' && may_update());
45
2b9e5fd3 46 if (Post::has('del')) {
f02eefd4 47 $action = 'del';
48 $eid = Post::v('del');
49 } elseif (Post::has('archive')) {
50 $action = 'archive';
51 $eid = Post::v('archive');
52 } elseif (Post::has('unarchive')) {
53 $action = 'unarchive';
54 $eid = Post::v('unarchive');
55 }
56
57 if (!is_null($action)) {
2b9e5fd3 58 if (!may_update()) {
73fdb1e8 59 return PL_FORBIDDEN;
2b9e5fd3 60 }
4fcbb455 61 S::assert_xsrf_token();
2b9e5fd3 62
eb41eda9 63 $res = XDB::query("SELECT asso_id, short_name FROM group_events
3cabafae 64 WHERE eid = {?} AND asso_id = {?}",
65 $eid, $globals->asso('id'));
2b9e5fd3 66
67 $tmp = $res->fetchOneRow();
68 if (!$tmp) {
73fdb1e8 69 return PL_FORBIDDEN;
2b9e5fd3 70 }
f02eefd4 71 }
2b9e5fd3 72
f02eefd4 73 if ($action == 'del') {
2b9e5fd3 74 // deletes the event mailing aliases
75 if ($tmp[1]) {
7852229b
SJ
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');
9ff5b337 79 }
2b9e5fd3 80 }
81
82 // deletes the event items
eb41eda9 83 XDB::execute('DELETE FROM group_event_items
9ff5b337 84 WHERE eid = {?}', $eid);
2b9e5fd3 85
86 // deletes the event participants
eb41eda9 87 XDB::execute('DELETE FROM group_event_participants
9ff5b337 88 WHERE eid = {?}', $eid);
2b9e5fd3 89
90 // deletes the event
eb41eda9 91 XDB::execute('DELETE FROM group_events
9ff5b337
SJ
92 WHERE eid = {?} AND asso_id = {?}',
93 $eid, $globals->asso('id'));
2b9e5fd3 94
95 // delete the requests for payments
9ff5b337
SJ
96 XDB::execute("DELETE FROM requests
97 WHERE type = 'paiements' AND data LIKE {?}",
98 PayReq::same_event($eid, $globals->asso('id')));
ebfdf077 99 $globals->updateNbValid();
2b9e5fd3 100 }
101
f02eefd4 102 if ($action == 'archive') {
eb41eda9 103 XDB::execute("UPDATE group_events
f02eefd4 104 SET archive = 1
105 WHERE eid = {?} AND asso_id = {?}",
106 $eid, $globals->asso('id'));
107 }
108
109 if ($action == 'unarchive') {
eb41eda9 110 XDB::execute("UPDATE group_events
f02eefd4 111 SET archive = 0
112 WHERE eid = {?} AND asso_id = {?}",
113 $eid, $globals->asso('id'));
114 }
ab02e9bc 115
f02eefd4 116 $page->assign('archive', $archive);
07eb5b0e
FB
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),
120 1) AS inscr_open,
121 e.deadline_inscription,
122 MAX(ep.nb) IS NOT NULL AS inscrit, MAX(ep.paid) AS paid
eb41eda9
FB
123 FROM group_events AS e
124 LEFT JOIN group_event_participants AS ep ON (ep.eid = e.eid AND ep.uid = {?})
07eb5b0e
FB
125 WHERE asso_id = {?} AND archive = {?}
126 GROUP BY e.eid
127 ORDER BY inscr_open DESC, debut DESC',
128 S::i('uid'), $globals->asso('id'), $archive ? 1 : 0);
4f10a058 129
130 $evts = array();
fbfc01a1 131 $undisplayed_events = 0;
20c5c7e6 132 $this->load('xnetevents.inc.php');
d6d580ec 133
4f10a058 134 while ($e = $evenements->next()) {
fbfc01a1
SJ
135 if (!is_member() && !may_update() && !$e['accept_nonmembre']) {
136 $undisplayed_events ++;
137 continue;
138 }
139
3cabafae 140 $e['show_participants'] = ($e['show_participants'] && (is_member() || may_update()));
07eb5b0e 141 $e['moments'] = XDB::fetchAllAssoc('SELECT titre, details, montant, ei.item_id, nb, ep.paid
eb41eda9
FB
142 FROM group_event_items AS ei
143 LEFT JOIN group_event_participants AS ep
07eb5b0e
FB
144 ON (ep.eid = ei.eid AND ep.item_id = ei.item_id AND ep.uid = {?})
145 WHERE ei.eid = {?}',
146 S::i('uid'), $e['eid']);
d6d580ec 147
148 $e['topay'] = 0;
98a7e9dc 149 $e['paid'] = $e['moments'][0]['paid'];
d6d580ec 150 foreach ($e['moments'] as $m) {
151 $e['topay'] += $m['nb'] * $m['montant'];
152 }
153
a7c0d514
DB
154 $montant = XDB::fetchOneCell(
155 "SELECT SUM(amount) as sum_amount
b3cd1320 156 FROM payment_transactions AS t
cab08090 157 WHERE ref = {?} AND uid = {?}", $e['paiement_id'], S::v('uid'));
a7c0d514 158 $e['paid'] += $montant;
d6d580ec 159
20c5c7e6
SJ
160 make_event_date($e);
161
1f5b0b59 162 if (Env::has('updated') && $e['eid'] == Env::i('updated')) {
163 $page->assign('updated', $e);
164 }
4f10a058 165 $evts[] = $e;
166 }
ab02e9bc 167
4f10a058 168 $page->assign('evenements', $evts);
fbfc01a1 169 $page->assign('undisplayed_events', $undisplayed_events);
4f10a058 170 }
171
26ba053e 172 function handler_sub($page, $eid = null)
d6d580ec 173 {
460d8f55 174 $this->load('xnetevents.inc.php');
1490093c 175 $page->changeTpl('xnetevents/subscribe.tpl');
d6d580ec 176
177 $evt = get_event_detail($eid);
df1cf596 178 if (is_null($evt)) {
d6d580ec 179 return PL_NOT_FOUND;
180 }
df1cf596
FB
181 if ($evt === false) {
182 global $globals, $platal;
183 $url = $globals->asso('sub_url');
184 if (empty($url)) {
185 $url = $platal->ns . 'subscribe';
186 }
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>.');
189 }
d6d580ec 190
191 if (!$evt['inscr_open']) {
a7de4ef7 192 $page->kill('Les inscriptions pour cet événement sont closes');
d6d580ec 193 }
3cabafae 194 if (!$evt['accept_nonmembre'] && !is_member() && !may_update()) {
a7de4ef7 195 $page->kill('Cet événement est fermé aux non-membres du groupe');
3cabafae 196 }
d6d580ec 197
2ac0bcee 198 global $globals;
257ae408
SJ
199 $res = XDB::query("SELECT stamp
200 FROM requests
2ac0bcee
FB
201 WHERE type = 'paiements' AND data LIKE {?}",
202 PayReq::same_event($evt['eid'], $globals->asso('id')));
203 $page->assign('validation', $res->numRows());
d6d580ec 204 $page->assign('event', $evt);
205
206 if (!Post::has('submit')) {
207 return;
4fcbb455
VZ
208 } else {
209 S::assert_xsrf_token();
d6d580ec 210 }
211
5e2307dc 212 $moments = Post::v('moment', array());
213 $pers = Post::v('personnes', array());
d6d580ec 214 $subs = array();
215
216 foreach ($moments as $j => $v) {
217 $subs[$j] = intval($v);
218
219 // retreive ohter field when more than one person
220 if ($subs[$j] == 2) {
e0422197 221 if (!isset($pers[$j]) || !is_numeric($pers[$j]) || $pers[$j] < 0) {
6bb2f79a 222 $page->trigError("Tu dois choisir un nombre d'invités correct&nbsp;!");
d6d580ec 223 return;
224 }
225 $subs[$j] = 1 + $pers[$j];
226 }
227 }
228
229 // impossible to unsubscribe if you already paid sthing
98a7e9dc 230 if (!array_sum($subs) && $evt['paid'] != 0) {
9ff5b337
SJ
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 " .
235 "ne pas venir.");
d6d580ec 236 return;
237 }
238
239 // update actual inscriptions
1f5b0b59 240 $updated = false;
9193e8f7 241 $total = 0;
30138a46 242 $paid = $evt['paid'] ? $evt['paid'] : 0;
8bac35d8 243 $telepaid= $evt['telepaid'] ? $evt['telepaid'] : 0;
d6d580ec 244 foreach ($subs as $j => $nb) {
9193e8f7 245 if ($nb >= 0) {
e0422197
SJ
246 XDB::execute('INSERT INTO group_event_participants (eid, uid, item_id, nb, flags, paid)
247 VALUES ({?}, {?}, {?}, {?}, {?}, {?})
00ba8a74
SJ
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));
1f5b0b59 251 $updated = $eid;
d6d580ec 252 } else {
08cce2ff 253 XDB::execute(
eb41eda9 254 "DELETE FROM group_event_participants
d6d580ec 255 WHERE eid = {?} AND uid = {?} AND item_id = {?}",
2847640f 256 $eid, S::v("uid"), $j);
1f5b0b59 257 $updated = $eid;
d6d580ec 258 }
9193e8f7 259 $total += $nb;
d6d580ec 260 }
9193e8f7 261 if ($updated !== false) {
6aac1d08 262 $page->trigSuccess('Ton inscription à l\'événement a été mise à jour avec succès.');
7852229b 263 subscribe_lists_event(S::i('uid'), $evt['short_name'], ($total > 0 ? 1 : 0), 0);
57cc5e63 264
96074354
SJ
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);
271 }
272 }
273 if ($evt['subscription_notification'] != 'animator') {
274 $mailer->addTo($evt['organizer']);
275 }
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'));
281 $mailer->send();
57cc5e63 282 }
1f5b0b59 283 }
d6d580ec 284 $page->assign('event', get_event_detail($eid));
285 }
286
26ba053e 287 function handler_csv($page, $eid = null, $item_id = null)
4f10a058 288 {
460d8f55 289 $this->load('xnetevents.inc.php');
4f10a058 290
bd46a8e4 291 if (!is_numeric($item_id)) {
292 $item_id = null;
293 }
294
4f10a058 295 $evt = get_event_detail($eid, $item_id);
296 if (!$evt) {
297 return PL_NOT_FOUND;
298 }
299
023c46fb 300 pl_cached_content_headers('text/x-csv', 1);
801fcad8 301 $page->changeTpl('xnetevents/csv.tpl', NO_SKIN);
4f10a058 302
303 $admin = may_update();
304
07eb5b0e 305 $tri = (Env::v('order') == 'alpha' ? UserFilter::sortByPromo() : UserFilter::sortByName());
4f10a058 306
ed21e24a 307 $page->assign('participants',
308 get_event_participants($evt, $item_id, $tri));
4f10a058 309
4f10a058 310 $page->assign('admin', $admin);
311 $page->assign('moments', $evt['moments']);
312 $page->assign('money', $evt['money']);
478f7c3a 313 $page->assign('telepayment', $evt['paiement_id']);
5e2307dc 314 $page->assign('tout', !Env::v('item_id', false));
4f10a058 315 }
bd46a8e4 316
26ba053e 317 function handler_ical($page, $eid = null)
11d8a183 318 {
319 global $globals;
320
460d8f55 321 $this->load('xnetevents.inc.php');
11d8a183 322 $evt = get_event_detail($eid);
323 if (!$evt) {
73fdb1e8 324 return PL_FORBIDDEN;
11d8a183 325 }
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']);
328
99544d53 329 foreach ($evt['moments'] as $m) {
330 $evt['descriptif'] .= "\n\n** " . $m['titre'] . " **\n" . $m['details'];
331 }
332
11d8a183 333 $page->changeTpl('xnetevents/calendar.tpl', NO_SKIN);
334
99544d53 335 require_once('ical.inc.php');
11d8a183 336 $page->assign('asso', $globals->asso());
337 $page->assign('timestamp', time());
99544d53 338 $page->assign('admin', may_update());
339
340 if (may_update()) {
07eb5b0e 341 $page->assign('participants', get_event_participants($evt, null, UserFilter::sortByPromo()));
99544d53 342 }
11d8a183 343 $page->register_function('display_ical', 'display_ical');
344 $page->assign_by_ref('e', $evt);
ab02e9bc 345
3cb500d5 346 pl_content_headers("text/calendar");
11d8a183 347 }
348
26ba053e 349 function handler_edit($page, $eid = null)
bd46a8e4 350 {
351 global $globals;
352
5cbb1fad 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
eb41eda9 356 FROM group_events
5cbb1fad 357 WHERE asso_id = {?} AND short_name = {?}",
358 $globals->asso('id'), $eid);
359 if ($res->numRows()) {
360 $eid = (int)$res->fetchOneCell();
361 }
362 }
363
5070a22d 364 // check the event is in our group
bd46a8e4 365 if (!is_null($eid)) {
73fdb1e8 366 $res = XDB::query("SELECT short_name
eb41eda9 367 FROM group_events
73fdb1e8 368 WHERE eid = {?} AND asso_id = {?}",
369 $eid, $globals->asso('id'));
370 if ($res->numRows()) {
371 $infos = $res->fetchOneAssoc();
372 } else {
373 return PL_FORBIDDEN;
bd46a8e4 374 }
375 }
376
1490093c 377 $page->changeTpl('xnetevents/edit.tpl');
bd46a8e4 378
58d0edab 379 $moments = range(1, 4);
f56e5e53 380 $error = false;
5070a22d 381 $page->assign('moments', $moments);
bd46a8e4 382
5e2307dc 383 if (Post::v('intitule')) {
4fcbb455
VZ
384 S::assert_xsrf_token();
385
460d8f55 386 $this->load('xnetevents.inc.php');
2847640f
VZ
387 $short_name = event_change_shortname($page, $eid,
388 $infos['short_name'],
5e2307dc 389 Env::v('short_name', ''));
f56e5e53 390 if ($short_name != Env::v('short_name')) {
391 $error = true;
392 }
5070a22d 393 $evt = array(
394 'eid' => $eid,
395 'asso_id' => $globals->asso('id'),
5e2307dc 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',
f56e5e53 403 'short_name' => $short_name,
5070a22d 404 );
405
96074354 406 $trivial = array('intitule', 'descriptif', 'noinvite', 'subscription_notification',
7f376ae0 407 'show_participants', 'accept_nonmembre', 'uid');
5070a22d 408 foreach ($trivial as $k) {
5e2307dc 409 $evt[$k] = Post::v($k);
bd46a8e4 410 }
25412aa4 411 if (!$eid) {
7f376ae0 412 $evt['uid'] = S::v('uid');
25412aa4 413 }
bd46a8e4 414
5e2307dc 415 if (Post::v('deadline')) {
416 $evt['deadline_inscription'] = Post::v('inscr_Year').'-'
417 . Post::v('inscr_Month').'-'
418 . Post::v('inscr_Day');
5070a22d 419 } else {
420 $evt['deadline_inscription'] = null;
9ece1588 421 }
bd46a8e4 422
423 // Store the modifications in the database
e0422197
SJ
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,
96074354
SJ
427 accept_nonmembre, subscription_notification)
428 VALUES ({?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?})
00ba8a74
SJ
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),
d7a53199 432 deadline_inscription = VALUES(deadline_inscription), noinvite = VALUES(noinvite),
96074354 433 accept_nonmembre = VALUES(accept_nonmembre), subscription_notification = VALUES(subscription_notification)',
7f376ae0
SJ
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'],
96074354 438 $evt['noinvite'], $evt['accept_nonmembre'], $evt['subscription_notification']);
bd46a8e4 439
440 // if new event, get its id
441 if (!$eid) {
8b83a166 442 $eid = XDB::insertId();
bd46a8e4 443 }
444
bd46a8e4 445 foreach ($moments as $i) {
e0422197 446 if (Post::v('titre' . $i)) {
bd46a8e4 447 $nb_moments++;
5070a22d 448
e0422197 449 $montant = strtr(Post::v('montant' . $i), ',', '.');
5070a22d 450 $money_defaut += (float)$montant;
e0422197
SJ
451 XDB::execute('INSERT INTO group_event_items (eid, item_id, titre, details, montant)
452 VALUES ({?}, {?}, {?}, {?}, {?})
00ba8a74
SJ
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);
bd46a8e4 455 } else {
e0422197
SJ
456 XDB::execute('DELETE FROM group_event_items
457 WHERE eid = {?} AND item_id = {?}', $eid, $i);
bd46a8e4 458 }
459 }
bd46a8e4 460 // request for a new payment
5e2307dc 461 if (Post::v('paiement_id') == -1 && $money_defaut >= 0) {
5daf68f6 462 $p = new PayReq(S::user(),
5e2307dc 463 Post::v('intitule')." - ".$globals->asso('nom'),
464 Post::v('site'), $money_defaut,
465 Post::v('confirmation'), 0, 999,
0a9d877e 466 $globals->asso('id'), $eid, Post::v('payment_public') == 'yes');
20934085 467 if ($p->accept()) {
468 $p->submit();
469 } else {
470 $page->assign('paiement_message', Post::v('confirmation'));
471 $page->assign('paiement_site', Post::v('site'));
472 $error = true;
473 }
bd46a8e4 474 }
475
476 // events with no sub-event: add a sub-event with no name
477 if ($nb_moments == 0) {
eb41eda9 478 XDB::execute("INSERT INTO group_event_items
20934085 479 VALUES ({?}, {?}, '', '', 0)", $eid, 1);
bd46a8e4 480 }
bd46a8e4 481
f56e5e53 482 if (!$error) {
58d0edab 483 pl_redirect('events');
484 }
bd46a8e4 485 }
486
487 // get a list of all the payment for this asso
c54b27c7
SJ
488 $res = XDB::iterator("SELECT id, text
489 FROM payments
490 WHERE asso_id = {?} AND NOT FIND_IN_SET('old', flags)",
491 $globals->asso('id'));
bd46a8e4 492 $paiements = array();
493 while ($a = $res->next()) $paiements[$a['id']] = $a['text']; {
494 $page->assign('paiements', $paiements);
495 }
496
497 // when modifying an old event retreive the old datas
498 if ($eid) {
08cce2ff 499 $res = XDB::query(
7f376ae0 500 "SELECT eid, intitule, descriptif, debut, fin, uid,
00112b2e 501 show_participants, paiement_id, short_name,
96074354 502 deadline_inscription, noinvite, accept_nonmembre, subscription_notification
eb41eda9 503 FROM group_events
bd46a8e4 504 WHERE eid = {?}", $eid);
505 $evt = $res->fetchOneAssoc();
506 // find out if there is already a request for a payment for this event
257ae408
SJ
507 $res = XDB::query("SELECT stamp
508 FROM requests
509 WHERE type = 'paiements' AND data LIKE {?}",
5cbb1fad 510 PayReq::same_event($eid, $globals->asso('id')));
bd46a8e4 511 $stamp = $res->fetchOneCell();
512 if ($stamp) {
f56e5e53 513 $evt['paiement_id'] = -2;
bd46a8e4 514 $evt['paiement_req'] = $stamp;
515 }
516 $page->assign('evt', $evt);
517 // get all the different moments infos
08cce2ff 518 $res = XDB::iterator(
00112b2e 519 "SELECT item_id, titre, details, montant
eb41eda9
FB
520 FROM group_event_items AS ei
521 INNER JOIN group_events AS e ON(e.eid = ei.eid)
00112b2e 522 WHERE e.eid = {?}
bd46a8e4 523 ORDER BY item_id", $eid);
524 $items = array();
525 while ($item = $res->next()) {
526 $items[$item['item_id']] = $item;
527 }
528 $page->assign('items', $items);
529 }
5cbb1fad 530 $page->assign('url_ref', $eid);
bd46a8e4 531 }
532
26ba053e 533 function handler_admin($page, $eid = null, $item_id = null)
bd46a8e4 534 {
535 global $globals;
536
460d8f55 537 $this->load('xnetevents.inc.php');
bd46a8e4 538
539 $evt = get_event_detail($eid, $item_id);
bd46a8e4 540 if (!$evt) {
541 return PL_NOT_FOUND;
542 }
543
1490093c 544 $page->changeTpl('xnetevents/admin.tpl');
545 if (!$evt['show_participants'] && !may_update()) {
546 return PL_FORBIDDEN;
bd46a8e4 547 }
548
5e2307dc 549 if (may_update() && Post::v('adm')) {
4fcbb455
VZ
550 S::assert_xsrf_token();
551
4bf97262 552 $member = User::getSilent(Post::v('mail'));
ed21e24a 553 if (!$member) {
a7d35093 554 $page->trigError("Membre introuvable");
bd46a8e4 555 }
bd46a8e4 556
ed21e24a 557 // change the price paid by a participant
5e2307dc 558 if (Env::v('adm') == 'prix' && $member) {
50208d22 559 $amount = strtr(Env::v('montant'), ',', '.');
eb41eda9 560 XDB::execute("UPDATE group_event_participants
d4fd2f8a 561 SET paid = paid + {?}
4e4b828b 562 WHERE uid = {?} AND eid = {?} AND item_id = 1",
50208d22 563 $amount, $member->uid, $evt['eid']);
7852229b 564 subscribe_lists_event($member->uid, $evt['short_name'], 1, $amount);
ed21e24a 565 }
bd46a8e4 566
ed21e24a 567 // change the number of personns coming with a participant
5e2307dc 568 if (Env::v('adm') == 'nbs' && $member) {
08cce2ff 569 $res = XDB::query("SELECT paid
eb41eda9 570 FROM group_event_participants
dc2073c3 571 WHERE uid = {?} AND eid = {?}",
4bf97262 572 $member->uid, $evt['eid']);
ed21e24a 573
574 $paid = intval($res->fetchOneCell());
5e2307dc 575 $nbs = Post::v('nb', array());
ed21e24a 576
577 foreach ($nbs as $id => $nb) {
5070a22d 578 $nb = max(intval($nb), 0);
e0422197
SJ
579 XDB::execute('INSERT INTO group_event_participants (eid, uid, item_id, nb, flags, paid)
580 VALUES ({?}, {?}, {?}, {?}, {?}, {?})
00ba8a74
SJ
581 ON DUPLICATE KEY UPDATE nb = VALUES(nb), flags = VALUES(flags), paid = VALUES(paid)',
582 $evt['eid'], $member->uid, $id, $nb, '', ($id == 1 ? $paid : 0));
bd46a8e4 583 }
ed21e24a 584
50208d22
SJ
585 $res = XDB::query('SELECT COUNT(uid) AS cnt, SUM(nb) AS nb
586 FROM group_event_participants
587 WHERE uid = {?} AND eid = {?}
588 GROUP BY uid',
589 $member->uid, $evt['eid']);
9193e8f7 590 $u = $res->fetchOneAssoc();
3bfa0e8d
PC
591 if ($u['cnt'] == 1 && $paid == 0 && Post::v('cancel')) {
592 XDB::execute("DELETE FROM group_event_participants
593 WHERE uid = {?} AND eid = {?}",
594 $member->uid, $evt['eid']);
595 $u = 0;
7852229b 596 subscribe_lists_event($member->uid, $evt['short_name'], -1, $paid);
3bfa0e8d
PC
597 } else {
598 $u = $u['cnt'] ? $u['nb'] : null;
7852229b 599 subscribe_lists_event($member->uid, $evt['short_name'], ($u > 0 ? 1 : 0), $paid);
3bfa0e8d 600 }
bd46a8e4 601 }
ed21e24a 602
bd46a8e4 603 $evt = get_event_detail($eid, $item_id);
604 }
605
e01ebe65 606 $page->assign_by_ref('evt', $evt);
1f3362a3 607 $page->assign('tout', is_null($item_id));
bd46a8e4 608
ed21e24a 609 if (count($evt['moments'])) {
610 $page->assign('moments', $evt['moments']);
611 }
bd46a8e4 612
bd46a8e4 613 if ($evt['paiement_id']) {
07eb5b0e 614 $infos = User::getBulkUsersWithUIDs(
b3cd1320
DB
615 XDB::fetchAllAssoc('SELECT t.uid, t.amount
616 FROM payment_transactions AS t
eb41eda9 617 LEFT JOIN group_event_participants AS ep ON(ep.uid = t.uid AND ep.eid = {?})
07eb5b0e
FB
618 WHERE t.ref = {?} AND ep.uid IS NULL',
619 $evt['eid'], $evt['paiement_id']),
620 'uid', 'user');
621 $page->assign('oublis', count($infos));
622 $page->assign('oubliinscription', $infos);
623 }
624
625 $absents = User::getBulkUsersFromDB('SELECT p.uid
eb41eda9
FB
626 FROM group_event_participants AS p
627 LEFT JOIN group_event_participants AS p2 ON (p2.uid = p.uid
07eb5b0e
FB
628 AND p2.eid = p.eid
629 AND p2.nb != 0)
630 WHERE p.eid = {?} AND p2.eid IS NULL
631 GROUP BY p.uid', $evt['eid']);
ab02e9bc 632
6601ea70 633 $ofs = Env::i('offset');
e48b1c76 634 $nbp = ceil($evt['user_count'] / NB_PER_PAGE);
037b02c8
FB
635 if ($nbp > 1) {
636 $links = array();
637 if ($ofs) {
638 $links['précédent'] = $ofs - 1;
639 }
640 for ($i = 1 ; $i <= $nbp; $i++) {
641 $links[(string)$i] = $i - 1;
642 }
6601ea70 643 if ($ofs < $nbp - 1) {
037b02c8
FB
644 $links['suivant'] = $ofs+1;
645 }
ab02e9bc 646 $page->assign('links', $links);
647 }
648
61664f8b 649 $page->assign('absents', $absents);
ab02e9bc 650 $page->assign('participants',
07eb5b0e 651 get_event_participants($evt, $item_id, UserFilter::sortByName(),
4935bab0 652 NB_PER_PAGE, $ofs * NB_PER_PAGE));
bd46a8e4 653 }
4f10a058 654}
655
a7de4ef7 656// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
4f10a058 657?>