projects / platal.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Revert "Rewrites xnetevents index page."
[platal.git] / modules / xnetevents.php
CommitLineData
4f10a058 1<?php
2/***************************************************************************
c441aabe 3 * Copyright (C) 2003-2014 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
cf337669
AL		 82 // archive le paiement associé si il existe
83 $pay_id = XDB::fetchOneCell("SELECT paiement_id
84 FROM group_events
85 WHERE eid = {?} AND asso_id = {?}",
86 $eid, $globals->asso('id'));
87 if (!$pay_id=='') {
88 XDB::execute("UPDATE payments
89 SET flags = 'old'
90 WHERE id = {?}",
91 $pay_id);
92 }
2b9e5fd3 93 // deletes the event items
eb41eda9 94 XDB::execute('DELETE FROM group_event_items
9ff5b337 95 WHERE eid = {?}', $eid);
2b9e5fd3 96
97 // deletes the event participants
eb41eda9 98 XDB::execute('DELETE FROM group_event_participants
9ff5b337 99 WHERE eid = {?}', $eid);
2b9e5fd3 100
101 // deletes the event
eb41eda9 102 XDB::execute('DELETE FROM group_events
9ff5b337
SJ		 103 WHERE eid = {?} AND asso_id = {?}',
104 $eid, $globals->asso('id'));
2b9e5fd3 105
106 // delete the requests for payments
9ff5b337
SJ		 107 XDB::execute("DELETE FROM requests
108 WHERE type = 'paiements' AND data LIKE {?}",
109 PayReq::same_event($eid, $globals->asso('id')));
ebfdf077 110 $globals->updateNbValid();
2b9e5fd3 111 }
112
f02eefd4 113 if ($action == 'archive') {
cf337669
AL		 114 $pay_id = XDB::fetchOneCell("SELECT paiement_id
115 FROM group_events
116 WHERE eid = {?} AND asso_id = {?}",
117 $eid, $globals->asso('id'));
118 if (!$pay_id=='') {
119 XDB::execute("UPDATE payments
120 SET flags = 'old'
121 WHERE id = {?}",
122 $pay_id);
123 }
eb41eda9 124 XDB::execute("UPDATE group_events
f02eefd4 125 SET archive = 1
126 WHERE eid = {?} AND asso_id = {?}",
cf337669 127 $eid, $globals->asso('id'));
f02eefd4 128 }
129
130 if ($action == 'unarchive') {
cf337669
AL		 131 $pay_id = XDB::fetchOneCell("SELECT paiement_id FROM group_events
132 WHERE eid = {?} AND asso_id = {?}",
133 $eid, $globals->asso('id'));
134 if (!$pay_id=='') {
135 XDB::execute("UPDATE payments
136 SET flags = ''
137 WHERE id = {?}",
138 $pay_id);
139 }
eb41eda9 140 XDB::execute("UPDATE group_events
f02eefd4 141 SET archive = 0
142 WHERE eid = {?} AND asso_id = {?}",
143 $eid, $globals->asso('id'));
144 }
ab02e9bc 145
f02eefd4 146 $page->assign('archive', $archive);
30002fc8
AL		 147
148 if (Post::has('order')) {
149 $order = Post::v('order');
150 XDB::execute("UPDATE groups
151 SET event_order = {?}
152 WHERE id = {?}",
153 $order, $globals->asso('id'));
2d394628
NI		 154 } else {
155 $order = XDB::fetchOneCell("SELECT event_order FROM groups
156 WHERE id = {?}",
157 $globals->asso('id'));
158 }
159 if ($order == 'desc') {
160 $evenements = XDB::iterator('SELECT e.*, LEFT(e.debut, 10) AS first_day, LEFT(e.fin, 10) AS last_day,
161 IF(e.deadline_inscription,
162 e.deadline_inscription >= LEFT(NOW(), 10),
163 1) AS inscr_open,
164 e.deadline_inscription,
165 MAX(ep.nb) IS NOT NULL AS inscrit, MAX(ep.paid) AS paid
166 FROM group_events AS e
167 LEFT JOIN group_event_participants AS ep ON (ep.eid = e.eid AND ep.uid = {?})
168 WHERE asso_id = {?} AND archive = {?}
169 GROUP BY e.eid
170 ORDER BY inscr_open DESC, debut DESC',
171 S::i('uid'), $globals->asso('id'), $archive ? 1 : 0);
172 } else {
173 $evenements = XDB::iterator('SELECT e.*, LEFT(e.debut, 10) AS first_day, LEFT(e.fin, 10) AS last_day,
174 IF(e.deadline_inscription,
175 e.deadline_inscription >= LEFT(NOW(), 10),
176 1) AS inscr_open,
177 e.deadline_inscription,
178 MAX(ep.nb) IS NOT NULL AS inscrit, MAX(ep.paid) AS paid
179 FROM group_events AS e
180 LEFT JOIN group_event_participants AS ep ON (ep.eid = e.eid AND ep.uid = {?})
181 WHERE asso_id = {?} AND archive = {?}
182 GROUP BY e.eid
183 ORDER BY inscr_open DESC, debut ASC',
184 S::i('uid'), $globals->asso('id'), $archive ? 1 : 0);
30002fc8
AL		 185 }
186 $page->assign('order', $order);
4f10a058 187
2d394628 188 $evts = array();
fbfc01a1 189 $undisplayed_events = 0;
2d394628
NI		 190 $this->load('xnetevents.inc.php');
191
192 while ($e = $evenements->next()) {
fbfc01a1
SJ		 193 if (!is_member() && !may_update() && !$e['accept_nonmembre']) {
194 $undisplayed_events ++;
195 continue;
196 }
197
3cabafae 198 $e['show_participants'] = ($e['show_participants'] && (is_member() || may_update()));
2d394628
NI		 199 $e['moments'] = XDB::fetchAllAssoc('SELECT titre, details, montant, ei.item_id, nb, ep.paid
200 FROM group_event_items AS ei
201 LEFT JOIN group_event_participants AS ep
202 ON (ep.eid = ei.eid AND ep.item_id = ei.item_id AND ep.uid = {?})
203 WHERE ei.eid = {?}',
204 S::i('uid'), $e['eid']);
205
d6d580ec 206 $e['topay'] = 0;
f523d1a0 207 $e['paid'] = 0;
2d394628
NI		 208 foreach ($e['moments'] as $m) {
209 $e['topay'] += $m['nb'] * $m['montant'];
210 $e['paid'] += $m['paid'];
d6d580ec 211 }
20c5c7e6 212
2d394628
NI		 213 $montant = XDB::fetchOneCell(
214 "SELECT SUM(amount) as sum_amount
215 FROM payment_transactions AS t
216 WHERE ref = {?} AND uid = {?}", $e['paiement_id'], S::v('uid'));
217 $e['paid'] += $montant;
a24d3c48 218
2d394628 219 make_event_date($e);
a24d3c48 220
1f5b0b59 221 if (Env::has('updated') && $e['eid'] == Env::i('updated')) {
222 $page->assign('updated', $e);
223 }
2d394628 224 $evts[] = $e;
4f10a058 225 }
ab02e9bc 226
4f10a058 227 $page->assign('evenements', $evts);
fbfc01a1 228 $page->assign('undisplayed_events', $undisplayed_events);
4f10a058 229 }
230
26ba053e 231 function handler_sub($page, $eid = null)
d6d580ec 232 {
460d8f55 233 $this->load('xnetevents.inc.php');
1490093c 234 $page->changeTpl('xnetevents/subscribe.tpl');
d6d580ec 235
6c615821 236 $evt = get_event_detail($eid);
df1cf596 237 if (is_null($evt)) {
d6d580ec 238 return PL_NOT_FOUND;
239 }
6c615821
NI		 240 if ($evt === false) {
241 global $globals, $platal;
df1cf596
FB		 242 $url = $globals->asso('sub_url');
243 if (empty($url)) {
244 $url = $platal->ns . 'subscribe';
245 }
246 $page->kill('Cet événement est reservé aux membres du groupe ' . $globals->asso('nom') .
247 '. Pour devenir membre, rends-toi sur la page de <a href="' . $url . '">demande d\'inscripton</a>.');
248 }
d6d580ec 249
6c615821
NI		 250 if (!$evt['inscr_open']) {
251 $page->kill('Les inscriptions pour cet événement sont closes');
252 }
253 if (!$evt['accept_nonmembre'] && !is_member() && !may_update()) {
254 $page->kill('Cet événement est fermé aux non-membres du groupe');
255 }
256
257 global $globals;
257ae408
SJ		 258 $res = XDB::query("SELECT stamp
259 FROM requests
2ac0bcee 260 WHERE type = 'paiements' AND data LIKE {?}",
6c615821 261 PayReq::same_event($evt['eid'], $globals->asso('id')));
2ac0bcee 262 $page->assign('validation', $res->numRows());
a624ad23 263 $page->assign('event', $evt);
d6d580ec 264
6c615821
NI		 265 if (!Post::has('submit')) {
266 return;
267 } else {
a624ad23 268 S::assert_xsrf_token();
6c615821
NI		 269 }
270
271 $moments = Post::v('moment', array());
272 $pers = Post::v('personnes', array());
273 $subs = array();
274
275 foreach ($moments as $j => $v) {
276 $subs[$j] = intval($v);
277
278 // retrieve other field when more than one person
279 if ($subs[$j] == 2) {
280 if (!isset($pers[$j]) || !is_numeric($pers[$j]) || $pers[$j] < 0) {
281 $page->trigError("Tu dois choisir un nombre d'invités correct&nbsp;!");
282 return;
d6d580ec 283 }
6c615821 284 $subs[$j] = $pers[$j];
d6d580ec 285 }
6c615821 286 }
d6d580ec 287
6c615821
NI		 288 // impossible to unsubscribe if you already paid sthing
289 if (!array_sum($subs) && $evt['paid'] != 0) {
290 $page->trigError("Impossible de te désinscrire complètement " .
291 "parce que tu as fait un paiement par " .
292 "chèque ou par liquide. Contacte un " .
293 "administrateur du groupe si tu es sûr de " .
294 "ne pas venir.");
295 return;
296 }
297
298 // update actual inscriptions
299 $updated = false;
300 $total = 0;
301 $paid = $evt['paid'] ? $evt['paid'] : 0;
302 $telepaid = $evt['telepaid'] ? $evt['telepaid'] : 0;
303 $paid_inserted = false;
304 foreach ($subs as $j => $nb) {
305 if ($nb >= 0) {
306 XDB::execute('INSERT INTO group_event_participants (eid, uid, item_id, nb, flags, paid)
307 VALUES ({?}, {?}, {?}, {?}, {?}, {?})
308 ON DUPLICATE KEY UPDATE nb = VALUES(nb), flags = VALUES(flags), paid = VALUES(paid)',
309 $eid, S::v('uid'), $j, $nb, (Env::has('notify_payment') ? 'notify_payment' : ''),
310 ((!$paid_inserted) ? $paid - $telepaid : 0));
311 $updated = $eid;
312 $paid_inserted = true;
313 } else {
314 XDB::execute(
315 "DELETE FROM group_event_participants
316 WHERE eid = {?} AND uid = {?} AND item_id = {?}",
317 $eid, S::v("uid"), $j);
318 $updated = $eid;
d6d580ec 319 }
6c615821
NI		 320 $total += $nb;
321 }
322 if ($updated !== false) {
323 $evt = get_event_detail($eid);
324 if ($evt['topay'] > 0) {
325 $page->trigSuccess('Ton inscription à l\'événement a été mise à jour avec succès, tu peux payer ta participation en cliquant ci-dessous');
427ef707 326 } else {
6c615821 327 $page->trigSuccess('Ton inscription à l\'événement a été mise à jour avec succès.');
427ef707 328 }
6c615821
NI		 329 subscribe_lists_event(S::i('uid'), $evt['short_name'], ($total > 0 ? 1 : 0), 0);
330
331 if ($evt['subscription_notification'] != 'nobody') {
332 $mailer = new PlMailer('xnetevents/subscription-notif.mail.tpl');
333 if ($evt['subscription_notification'] != 'creator') {
334 $admins = $globals->asso()->iterAdmins();
335 while ($admin = $admins->next()) {
336 $mailer->addTo($admin);
a624ad23 337 }
96074354 338 }
6c615821
NI		 339 if ($evt['subscription_notification'] != 'animator') {
340 $mailer->addTo($evt['organizer']);
341 }
342 $mailer->assign('group', $globals->asso('nom'));
343 $mailer->assign('event', $evt['intitule']);
344 $mailer->assign('subs', $subs);
345 $mailer->assign('moments', $evt['moments']);
346 $mailer->assign('name', S::user()->fullName('promo'));
347 $mailer->send();
57cc5e63 348 }
1f5b0b59 349 }
6c615821 350 $page->assign('event', get_event_detail($eid));
d6d580ec 351 }
352
26ba053e 353 function handler_csv($page, $eid = null, $item_id = null)
4f10a058 354 {
460d8f55 355 $this->load('xnetevents.inc.php');
4f10a058 356
bd46a8e4 357 if (!is_numeric($item_id)) {
358 $item_id = null;
359 }
360
4f10a058 361 $evt = get_event_detail($eid, $item_id);
362 if (!$evt) {
363 return PL_NOT_FOUND;
364 }
365
ee923b43 366 pl_cached_content_headers('text/x-csv', 'iso-8859-1', 1);
801fcad8 367 $page->changeTpl('xnetevents/csv.tpl', NO_SKIN);
4f10a058 368
369 $admin = may_update();
07eb5b0e 370 $tri = (Env::v('order') == 'alpha' ? UserFilter::sortByPromo() : UserFilter::sortByName());
ee923b43 371 $all = !Env::v('item_id', false);
4f10a058 372
ee923b43 373 $participants = get_event_participants($evt, $item_id, $tri);
a507867b 374 $title = 'Nom;Prénom;Promotion;Email';
5dcca1b1
AL		 375 if ($admin) {
376 $title .=';Société;Poste';
377 }
ee923b43
SJ		 378 if ($all) {
379 foreach ($evt['moments'] as $moment) {
380 $title .= ';' . $moment['titre'];
381 }
382 }
383 if ($admin && $evt['money']) {
384 $title .= ';À payer;';
385 if ($evt['paiement_id']) {
386 $title .= 'Télépaiement;Liquide/Chèque;';
387 }
388 $title .= 'Payé';
389 } else {
390 $title .= ';Nombre';
5dcca1b1 391 }
ee923b43
SJ		 392 echo utf8_decode($title) . "\n";
393
394 if ($participants) {
395 foreach ($participants as $participant) {
396 $user = $participant['user'];
a507867b 397 $line = $user->lastName() . ';' . $user->firstName() . ';' . $user->promo() . ';' . $user->bestEmail();
5dcca1b1
AL		 398 if ($admin && $user->hasProfile()) {
399 $line .= ';' . $user->profile()->getMainJob()->company->name . ';' . $user->profile()->getMainJob()->description;
400 } else {
401 $line .= ';;';
402 }
ee923b43
SJ		 403 if ($all) {
404 foreach ($evt['moments'] as $moment) {
405 $line .= ';' . $participant[$moment['item_id']];
406 }
407 }
408 if ($admin && $evt['money']) {
409 $line .= ';' . $participant['montant'] . ';';
410 if ($evt['paiement_id']) {
411 $line .= $participant['telepayment'] . ';' . $participant['adminpaid'] . ';';
412 }
413 $line .= $participant['paid'];
414 } else {
415 $line .= ';' . $participant['nb'];
416 }
4f10a058 417
ee923b43
SJ		 418 echo utf8_decode($line) . "\n";
419 }
420 }
421 exit();
4f10a058 422 }
bd46a8e4 423
26ba053e 424 function handler_ical($page, $eid = null)
11d8a183 425 {
426 global $globals;
427
460d8f55 428 $this->load('xnetevents.inc.php');
11d8a183 429 $evt = get_event_detail($eid);
430 if (!$evt) {
73fdb1e8 431 return PL_FORBIDDEN;
11d8a183 432 }
433 $evt['debut'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['debut']);
434 $evt['fin'] = preg_replace('/(\d+)-(\d+)-(\d+) (\d+):(\d+):(\d+)/', "\\1\\2\\3T\\4\\5\\6", $evt['fin']);
435
99544d53 436 foreach ($evt['moments'] as $m) {
437 $evt['descriptif'] .= "\n\n** " . $m['titre'] . " **\n" . $m['details'];
438 }
439
11d8a183 440 $page->changeTpl('xnetevents/calendar.tpl', NO_SKIN);
441
99544d53 442 require_once('ical.inc.php');
11d8a183 443 $page->assign('asso', $globals->asso());
444 $page->assign('timestamp', time());
99544d53 445 $page->assign('admin', may_update());
446
447 if (may_update()) {
07eb5b0e 448 $page->assign('participants', get_event_participants($evt, null, UserFilter::sortByPromo()));
99544d53 449 }
11d8a183 450 $page->register_function('display_ical', 'display_ical');
451 $page->assign_by_ref('e', $evt);
ab02e9bc 452
3cb500d5 453 pl_content_headers("text/calendar");
11d8a183 454 }
455
26ba053e 456 function handler_edit($page, $eid = null)
bd46a8e4 457 {
458 global $globals;
459
5cbb1fad 460 // get eid if the the given one is a short name
461 if (!is_null($eid) && !is_numeric($eid)) {
462 $res = XDB::query("SELECT eid
eb41eda9 463 FROM group_events
5cbb1fad 464 WHERE asso_id = {?} AND short_name = {?}",
465 $globals->asso('id'), $eid);
466 if ($res->numRows()) {
467 $eid = (int)$res->fetchOneCell();
468 }
469 }
470
5070a22d 471 // check the event is in our group
bd46a8e4 472 if (!is_null($eid)) {
73fdb1e8 473 $res = XDB::query("SELECT short_name
eb41eda9 474 FROM group_events
73fdb1e8 475 WHERE eid = {?} AND asso_id = {?}",
476 $eid, $globals->asso('id'));
477 if ($res->numRows()) {
478 $infos = $res->fetchOneAssoc();
479 } else {
480 return PL_FORBIDDEN;
bd46a8e4 481 }
482 }
483
1490093c 484 $page->changeTpl('xnetevents/edit.tpl');
bd46a8e4 485
58d0edab 486 $moments = range(1, 4);
f56e5e53 487 $error = false;
5070a22d 488 $page->assign('moments', $moments);
bd46a8e4 489
5e2307dc 490 if (Post::v('intitule')) {
4fcbb455
VZ		 491 S::assert_xsrf_token();
492
460d8f55 493 $this->load('xnetevents.inc.php');
2847640f
VZ		 494 $short_name = event_change_shortname($page, $eid,
495 $infos['short_name'],
5e2307dc 496 Env::v('short_name', ''));
f56e5e53 497 if ($short_name != Env::v('short_name')) {
498 $error = true;
499 }
5070a22d 500 $evt = array(
501 'eid' => $eid,
502 'asso_id' => $globals->asso('id'),
5e2307dc 503 'paiement_id' => Post::v('paiement_id') > 0 ? Post::v('paiement_id') : null,
504 'debut' => Post::v('deb_Year').'-'.Post::v('deb_Month')
505 .'-'.Post::v('deb_Day').' '.Post::v('deb_Hour')
506 .':'.Post::v('deb_Minute').':00',
507 'fin' => Post::v('fin_Year').'-'.Post::v('fin_Month')
508 .'-'.Post::v('fin_Day').' '.Post::v('fin_Hour')
509 .':'.Post::v('fin_Minute').':00',
f56e5e53 510 'short_name' => $short_name,
5070a22d 511 );
512
96074354 513 $trivial = array('intitule', 'descriptif', 'noinvite', 'subscription_notification',
7f376ae0 514 'show_participants', 'accept_nonmembre', 'uid');
5070a22d 515 foreach ($trivial as $k) {
5e2307dc 516 $evt[$k] = Post::v($k);
bd46a8e4 517 }
25412aa4 518 if (!$eid) {
7f376ae0 519 $evt['uid'] = S::v('uid');
25412aa4 520 }
bd46a8e4 521
5e2307dc 522 if (Post::v('deadline')) {
523 $evt['deadline_inscription'] = Post::v('inscr_Year').'-'
524 . Post::v('inscr_Month').'-'
525 . Post::v('inscr_Day');
5070a22d 526 } else {
527 $evt['deadline_inscription'] = null;
9ece1588 528 }
bd46a8e4 529
530 // Store the modifications in the database
e0422197
SJ		 531 XDB::execute('INSERT INTO group_events (eid, asso_id, uid, intitule, paiement_id,
532 descriptif, debut, fin, show_participants,
533 short_name, deadline_inscription, noinvite,
96074354
SJ		 534 accept_nonmembre, subscription_notification)
535 VALUES ({?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?}, {?})
00ba8a74
SJ		 536 ON DUPLICATE KEY UPDATE asso_id = VALUES(asso_id), uid = VALUES(uid), intitule = VALUES(intitule),
537 paiement_id = VALUES(paiement_id), descriptif = VALUES(descriptif), debut = VALUES(debut),
538 fin = VALUES(fin), show_participants = VALUES(show_participants), short_name = VALUES(short_name),
d7a53199 539 deadline_inscription = VALUES(deadline_inscription), noinvite = VALUES(noinvite),
96074354 540 accept_nonmembre = VALUES(accept_nonmembre), subscription_notification = VALUES(subscription_notification)',
7f376ae0
SJ		 541 $evt['eid'], $evt['asso_id'], $evt['uid'],
542 $evt['intitule'], $evt['paiement_id'], $evt['descriptif'],
543 $evt['debut'], $evt['fin'], $evt['show_participants'],
544 $evt['short_name'], $evt['deadline_inscription'],
96074354 545 $evt['noinvite'], $evt['accept_nonmembre'], $evt['subscription_notification']);
bd46a8e4 546
547 // if new event, get its id
548 if (!$eid) {
8b83a166 549 $eid = XDB::insertId();
bd46a8e4 550 }
551
bd46a8e4 552 foreach ($moments as $i) {
e0422197 553 if (Post::v('titre' . $i)) {
bd46a8e4 554 $nb_moments++;
5070a22d 555
e0422197 556 $montant = strtr(Post::v('montant' . $i), ',', '.');
5070a22d 557 $money_defaut += (float)$montant;
e0422197
SJ		 558 XDB::execute('INSERT INTO group_event_items (eid, item_id, titre, details, montant)
559 VALUES ({?}, {?}, {?}, {?}, {?})
00ba8a74
SJ		 560 ON DUPLICATE KEY UPDATE titre = VALUES(titre), details = VALUES(details), montant = VALUES(montant)',
561 $eid, $i, Post::v('titre' . $i), Post::v('details' . $i), $montant);
bd46a8e4 562 } else {
e0422197
SJ		 563 XDB::execute('DELETE FROM group_event_items
564 WHERE eid = {?} AND item_id = {?}', $eid, $i);
bd46a8e4 565 }
566 }
bd46a8e4 567 // request for a new payment
5e2307dc 568 if (Post::v('paiement_id') == -1 && $money_defaut >= 0) {
5daf68f6 569 $p = new PayReq(S::user(),
5dcca1b1 570 $globals->asso('nom')." - ".Post::v('intitule'),
5e2307dc 571 Post::v('site'), $money_defaut,
572 Post::v('confirmation'), 0, 999,
0a9d877e 573 $globals->asso('id'), $eid, Post::v('payment_public') == 'yes');
20934085 574 if ($p->accept()) {
575 $p->submit();
576 } else {
dd4f932d
SJ		 577 $page->assign('payment_message', Post::v('confirmation'));
578 $page->assign('payment_site', Post::v('site'));
579 $page->assign('payment_public', Post::v('payment_public') == 'yes');
580 $page->assign('error', true);
20934085 581 $error = true;
582 }
bd46a8e4 583 }
584
d9687e80 585 // events with no sub-event: add a sub-event with default name
bd46a8e4 586 if ($nb_moments == 0) {
eb41eda9 587 XDB::execute("INSERT INTO group_event_items
d9687e80 588 VALUES ({?}, {?}, 'Événement', '', 0)", $eid, 1);
bd46a8e4 589 }
bd46a8e4 590
f56e5e53 591 if (!$error) {
58d0edab 592 pl_redirect('events');
593 }
bd46a8e4 594 }
595
596 // get a list of all the payment for this asso
c54b27c7
SJ		 597 $res = XDB::iterator("SELECT id, text
598 FROM payments
599 WHERE asso_id = {?} AND NOT FIND_IN_SET('old', flags)",
600 $globals->asso('id'));
bd46a8e4 601 $paiements = array();
602 while ($a = $res->next()) $paiements[$a['id']] = $a['text']; {
603 $page->assign('paiements', $paiements);
604 }
605
606 // when modifying an old event retreive the old datas
607 if ($eid) {
08cce2ff 608 $res = XDB::query(
7f376ae0 609 "SELECT eid, intitule, descriptif, debut, fin, uid,
00112b2e 610 show_participants, paiement_id, short_name,
96074354 611 deadline_inscription, noinvite, accept_nonmembre, subscription_notification
eb41eda9 612 FROM group_events
bd46a8e4 613 WHERE eid = {?}", $eid);
614 $evt = $res->fetchOneAssoc();
615 // find out if there is already a request for a payment for this event
257ae408
SJ		 616 $res = XDB::query("SELECT stamp
617 FROM requests
618 WHERE type = 'paiements' AND data LIKE {?}",
dd4f932d 619 PayReq::same_event($eid, $globals->asso('id')));
bd46a8e4 620 $stamp = $res->fetchOneCell();
621 if ($stamp) {
f56e5e53 622 $evt['paiement_id'] = -2;
bd46a8e4 623 $evt['paiement_req'] = $stamp;
624 }
625 $page->assign('evt', $evt);
626 // get all the different moments infos
08cce2ff 627 $res = XDB::iterator(
00112b2e 628 "SELECT item_id, titre, details, montant
eb41eda9
FB		 629 FROM group_event_items AS ei
630 INNER JOIN group_events AS e ON(e.eid = ei.eid)
00112b2e 631 WHERE e.eid = {?}
bd46a8e4 632 ORDER BY item_id", $eid);
633 $items = array();
634 while ($item = $res->next()) {
635 $items[$item['item_id']] = $item;
636 }
637 $page->assign('items', $items);
638 }
5cbb1fad 639 $page->assign('url_ref', $eid);
bd46a8e4 640 }
641
26ba053e 642 function handler_admin($page, $eid = null, $item_id = null)
bd46a8e4 643 {
644 global $globals;
645
460d8f55 646 $this->load('xnetevents.inc.php');
bd46a8e4 647
648 $evt = get_event_detail($eid, $item_id);
bd46a8e4 649 if (!$evt) {
650 return PL_NOT_FOUND;
651 }
652
1490093c 653 $page->changeTpl('xnetevents/admin.tpl');
654 if (!$evt['show_participants'] && !may_update()) {
655 return PL_FORBIDDEN;
bd46a8e4 656 }
657
5e2307dc 658 if (may_update() && Post::v('adm')) {
4fcbb455
VZ		 659 S::assert_xsrf_token();
660
4bf97262 661 $member = User::getSilent(Post::v('mail'));
ed21e24a 662 if (!$member) {
a7d35093 663 $page->trigError("Membre introuvable");
bd46a8e4 664 }
bd46a8e4 665
ed21e24a 666 // change the price paid by a participant
5e2307dc 667 if (Env::v('adm') == 'prix' && $member) {
50208d22 668 $amount = strtr(Env::v('montant'), ',', '.');
eb41eda9 669 XDB::execute("UPDATE group_event_participants
d4fd2f8a 670 SET paid = paid + {?}
51f1911c
BG		 671 WHERE uid = {?} AND eid = {?} AND nb > 0
672 ORDER BY item_id ASC
673 LIMIT 1",
50208d22 674 $amount, $member->uid, $evt['eid']);
7852229b 675 subscribe_lists_event($member->uid, $evt['short_name'], 1, $amount);
ed21e24a 676 }
bd46a8e4 677
ed21e24a 678 // change the number of personns coming with a participant
5e2307dc 679 if (Env::v('adm') == 'nbs' && $member) {
2ec25d62 680 $res = XDB::query("SELECT SUM(paid)
eb41eda9 681 FROM group_event_participants
dc2073c3 682 WHERE uid = {?} AND eid = {?}",
4bf97262 683 $member->uid, $evt['eid']);
ed21e24a 684
7c5d90fb 685 $paid = $res->fetchOneCell();
1f170710
RB		 686
687 // Ensure we have an integer
688 if ($paid == null) {
689 $paid = 0;
690 }
691
5e2307dc 692 $nbs = Post::v('nb', array());
ed21e24a 693
7c5d90fb 694 $paid_inserted = false;
ed21e24a 695 foreach ($nbs as $id => $nb) {
5070a22d 696 $nb = max(intval($nb), 0);
7c5d90fb
BG		 697 if (!$paid_inserted && $nb > 0) {
698 $item_paid = $paid;
699 $paid_inserted = true;
700 } else {
701 $item_paid = 0;
702 }
e0422197
SJ		 703 XDB::execute('INSERT INTO group_event_participants (eid, uid, item_id, nb, flags, paid)
704 VALUES ({?}, {?}, {?}, {?}, {?}, {?})
00ba8a74 705 ON DUPLICATE KEY UPDATE nb = VALUES(nb), flags = VALUES(flags), paid = VALUES(paid)',
7c5d90fb 706 $evt['eid'], $member->uid, $id, $nb, '', $item_paid);
bd46a8e4 707 }
ed21e24a 708
50208d22
SJ		 709 $res = XDB::query('SELECT COUNT(uid) AS cnt, SUM(nb) AS nb
710 FROM group_event_participants
711 WHERE uid = {?} AND eid = {?}
712 GROUP BY uid',
713 $member->uid, $evt['eid']);
9193e8f7 714 $u = $res->fetchOneAssoc();
2ec25d62 715 if ($paid == 0 && Post::v('cancel')) {
3bfa0e8d
PC		 716 XDB::execute("DELETE FROM group_event_participants
717 WHERE uid = {?} AND eid = {?}",
718 $member->uid, $evt['eid']);
719 $u = 0;
7852229b 720 subscribe_lists_event($member->uid, $evt['short_name'], -1, $paid);
3bfa0e8d
PC		 721 } else {
722 $u = $u['cnt'] ? $u['nb'] : null;
7852229b 723 subscribe_lists_event($member->uid, $evt['short_name'], ($u > 0 ? 1 : 0), $paid);
3bfa0e8d 724 }
bd46a8e4 725 }
ed21e24a 726
bd46a8e4 727 $evt = get_event_detail($eid, $item_id);
728 }
729
e01ebe65 730 $page->assign_by_ref('evt', $evt);
1f3362a3 731 $page->assign('tout', is_null($item_id));
bd46a8e4 732
ed21e24a 733 if (count($evt['moments'])) {
734 $page->assign('moments', $evt['moments']);
735 }
bd46a8e4 736
bd46a8e4 737 if ($evt['paiement_id']) {
07eb5b0e 738 $infos = User::getBulkUsersWithUIDs(
b3cd1320
DB		 739 XDB::fetchAllAssoc('SELECT t.uid, t.amount
740 FROM payment_transactions AS t
eb41eda9 741 LEFT JOIN group_event_participants AS ep ON(ep.uid = t.uid AND ep.eid = {?})
07eb5b0e
FB		 742 WHERE t.ref = {?} AND ep.uid IS NULL',
743 $evt['eid'], $evt['paiement_id']),
744 'uid', 'user');
745 $page->assign('oublis', count($infos));
746 $page->assign('oubliinscription', $infos);
747 }
748
749 $absents = User::getBulkUsersFromDB('SELECT p.uid
eb41eda9
FB		 750 FROM group_event_participants AS p
751 LEFT JOIN group_event_participants AS p2 ON (p2.uid = p.uid
07eb5b0e
FB		 752 AND p2.eid = p.eid
753 AND p2.nb != 0)
754 WHERE p.eid = {?} AND p2.eid IS NULL
755 GROUP BY p.uid', $evt['eid']);
ab02e9bc 756
6601ea70 757 $ofs = Env::i('offset');
f9e8637a
FB		 758 $part = get_event_participants($evt, $item_id, UserFilter::sortByName(),
759 NB_PER_PAGE, $ofs * NB_PER_PAGE);
760
e48b1c76 761 $nbp = ceil($evt['user_count'] / NB_PER_PAGE);
037b02c8
FB		 762 if ($nbp > 1) {
763 $links = array();
764 if ($ofs) {
765 $links['précédent'] = $ofs - 1;
766 }
767 for ($i = 1 ; $i <= $nbp; $i++) {
768 $links[(string)$i] = $i - 1;
769 }
6601ea70 770 if ($ofs < $nbp - 1) {
037b02c8
FB		 771 $links['suivant'] = $ofs+1;
772 }
ab02e9bc 773 $page->assign('links', $links);
774 }
775
61664f8b 776 $page->assign('absents', $absents);
f9e8637a 777 $page->assign('participants', $part);
bd46a8e4 778 }
4f10a058 779}
780
448c8cdc 781// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
4f10a058 782?>
plat/al