$page is not anymore a global variable.
[platal.git] / modules / xnetevents / xnetevents.inc.php
CommitLineData
0337d704 1<?php
2/***************************************************************************
179afa7f 3 * Copyright (C) 2003-2008 Polytechnique.org *
0337d704 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
22// {{{ function get_event_detail()
d6d580ec 23
2ac0bcee 24function get_event_detail($eid, $item_id = false, $asso_id = null)
d6d580ec 25{
0337d704 26 global $globals;
2ac0bcee
FB
27 if (is_null($asso_id)) {
28 $asso_id = $globals->asso('id');
29 }
08cce2ff 30 $res = XDB::query(
2ac0bcee 31 "SELECT SUM(nb) AS nb_tot, COUNT(DISTINCT ep.uid) AS nb, e.*,
d6d580ec 32 IF(e.deadline_inscription, e.deadline_inscription >= LEFT(NOW(), 10),
33 1) AS inscr_open,
34 LEFT(10, e.debut) AS debut_day, LEFT(10, e.fin) AS fin_day,
35 LEFT(NOW(), 10) AS now,
36 ei.titre,
0337d704 37 al.vid AS absent_list, pl.vid AS participant_list,
d6d580ec 38 a.nom, a.prenom, a.promo, aa.alias
2ac0bcee 39 FROM groupex.evenements AS e
d6d580ec 40 INNER JOIN x4dat.auth_user_md5 AS a ON a.user_id = e.organisateur_uid
41 INNER JOIN x4dat.aliases AS aa ON (aa.type = 'a_vie' AND aa.id = a.user_id)
2ac0bcee
FB
42 INNER JOIN groupex.evenements_items AS ei ON (e.eid = ei.eid)
43 LEFT JOIN groupex.evenements_participants AS ep ON(e.eid = ep.eid AND ei.item_id = ep.item_id)
0337d704 44 LEFT JOIN virtual AS al ON(al.type = 'evt' AND al.alias = CONCAT(short_name, {?}))
45 LEFT JOIN virtual AS pl ON(pl.type = 'evt' AND pl.alias = CONCAT(short_name, {?}))
2ac0bcee 46 WHERE (e.eid = {?} OR e.short_name = {?}) AND ei.item_id = {?} AND e.asso_id = {?}
0337d704 47 GROUP BY ei.item_id",
48 '-absents@'.$globals->xnet->evts_domain,
49 '-participants@'.$globals->xnet->evts_domain,
2ac0bcee 50 $eid, $eid, $item_id ? $item_id : 1, $asso_id);
d6d580ec 51
0337d704 52 $evt = $res->fetchOneAssoc();
d6d580ec 53
2ac0bcee 54 if (!$evt || ($GLOBALS['IS_XNET_SITE'] && $evt['accept_nonmembre'] == 0 && !is_member() && !may_update())) {
d6d580ec 55 return null;
56 }
0337d704 57
58 // smart calculation of the total number
59 if (!$item_id) {
08cce2ff 60 $res = XDB::query(
0337d704 61 "SELECT MAX(nb)
d6d580ec 62 FROM groupex.evenements AS e
63 INNER JOIN groupex.evenements_items AS ei ON (e.eid = ei.eid)
64 LEFT JOIN groupex.evenements_participants AS ep
65 ON (e.eid = ep.eid AND ei.item_id = ep.item_id)
0337d704 66 WHERE e.eid = {?}
f6bdd218 67 GROUP BY ep.uid", $evt['eid']);
0337d704 68 $evt['nb_tot'] = array_sum($res->fetchColumn());
69 $evt['titre'] = '';
70 $evt['item_id'] = 0;
71 }
d6d580ec 72
08cce2ff 73 $res = XDB::query(
2ac0bcee 74 "SELECT titre, details, montant, ei.item_id, nb, ep.paid, FIND_IN_SET('notify_payment', ep.flags) AS notify_payment
d6d580ec 75 FROM groupex.evenements_items AS ei
76 LEFT JOIN groupex.evenements_participants AS ep
77 ON (ep.eid = ei.eid AND ep.item_id = ei.item_id AND uid = {?})
78 WHERE ei.eid = {?}",
cab08090 79 S::v('uid'), $evt['eid']);
d6d580ec 80 $evt['moments'] = $res->fetchAllAssoc();
81
82 $evt['topay'] = 0;
98a7e9dc 83 $evt['paid'] = 0;
2ac0bcee 84 $evt['notify_payment'] = false;
d6d580ec 85 foreach ($evt['moments'] as $m) {
86 $evt['topay'] += $m['nb'] * $m['montant'];
98a7e9dc 87 if ($m['montant']) {
54ac7230 88 $evt['money'] = true;
98a7e9dc 89 }
90 $evt['paid'] = $m['paid'];
2ac0bcee 91 $evt['notify_payment'] = $evt['notify_payment'] || $m['notify_payment'];
d6d580ec 92 }
93
08cce2ff 94 $req = XDB::query(
d6d580ec 95 "SELECT montant
96 FROM {$globals->money->mpay_tprefix}transactions AS t
cab08090 97 WHERE ref = {?} AND uid = {?}", $evt['paiement_id'], S::v('uid'));
d6d580ec 98 $montants = $req->fetchColumn();
99
8bac35d8 100 $evt['telepaid'] = 0;
d6d580ec 101 foreach ($montants as $m) {
102 $p = strtr(substr($m, 0, strpos($m, 'EUR')), ',', '.');
103 $evt['paid'] += trim($p);
8bac35d8 104 $evt['telepaid'] += trim($p);
0337d704 105 }
d6d580ec 106
0337d704 107 return $evt;
108}
d6d580ec 109
0337d704 110// }}}
111
112// {{{ function get_event_participants()
e01ebe65 113function get_event_participants(&$evt, $item_id, $tri, $limit = '') {
0337d704 114 global $globals;
ed21e24a 115
116 if (Env::has('initiale')) {
117 $where = 'AND IF(u.nom IS NULL, m.nom,
118 IF(u.nom_usage<>"", u.nom_usage, u.nom))
5e2307dc 119 LIKE "'.addslashes(Env::v('initiale')).'%"';
ed21e24a 120 } else {
121 $where = '';
122 }
123
124 $eid = $evt['eid'];
2ac0bcee 125 $money = $evt['money'] && (function_exists('may_update')) && may_update();
ed21e24a 126 $pay_id = $evt['paiement_id'];
127
0337d704 128 $query =
dc2073c3 129 "SELECT IF(m.origine != 'X',m.nom,IF(u.nom_usage<>'', u.nom_usage, u.nom)) AS nom,
130 IF(m.origine != 'X',m.prenom,u.prenom) AS prenom,
a7de4ef7 131 IF(m.origine != 'X','extérieur',u.promo) AS promo,
dc2073c3 132 IF(m.origine != 'X' OR u.perms = 'pending',m.email,a.alias) AS email,
133 IF(m.origine != 'X',m.sexe,FIND_IN_SET('femme', u.flags)) AS femme,
0337d704 134 m.perms='admin' AS admin,
346dddd7 135 (m.origine = 'X' OR m.origine IS NULL) AS x,
976c685d 136 ep.uid, SUM(ep.paid) AS paid, SUM(ep.nb) AS nb,
2ac0bcee 137 FIND_IN_SET('notify_payment', ep.flags) AS notify_payment
dc2073c3 138 FROM groupex.evenements_participants AS ep
139 INNER JOIN groupex.evenements AS e ON (ep.eid = e.eid)
2ac0bcee 140 LEFT JOIN groupex.membres AS m ON ( ep.uid = m.uid AND e.asso_id = m.asso_id)
dc2073c3 141 LEFT JOIN auth_user_md5 AS u ON ( u.user_id = ep.uid )
142 LEFT JOIN aliases AS a ON ( a.id = ep.uid AND a.type='a_vie' )
976c685d 143 WHERE ep.eid = {?}
0337d704 144 ".(($item_id)?" AND item_id = $item_id":"")."
145 $where
dc2073c3 146 GROUP BY ep.uid
147 ORDER BY $tri $limit";
ed21e24a 148
0337d704 149 if ($item_id) {
08cce2ff 150 $res = XDB::query($query, $eid);
0337d704 151 return $res->fetchAllAssoc();
152 }
ed21e24a 153
08cce2ff 154 $res = XDB::iterator($query, $eid);
0337d704 155 $tab = array();
156 $user = 0;
ed21e24a 157
e01ebe65
FB
158 $evt['adminpaid'] = 0;
159 $evt['telepaid'] = 0;
160 $evt['topay'] = 0;
161 $evt['paid'] = 0;
0337d704 162 while ($u = $res->next()) {
976c685d
FB
163 if ($u['nb'] == 0) {
164 continue;
165 }
58591700 166 $u['adminpaid'] = $u['paid'];
0337d704 167 $u['montant'] = 0;
2ac0bcee 168 if ($money && $pay_id) {
08cce2ff 169 $res_ = XDB::query(
0337d704 170 "SELECT montant
171 FROM {$globals->money->mpay_tprefix}transactions AS t
172 WHERE ref = {?} AND uid = {?}",
173 $pay_id, $u['uid']);
174 $montants = $res_->fetchColumn();
175 foreach ($montants as $m) {
e01ebe65
FB
176 $p = strtr(substr($m, 0, strpos($m, "EUR")), ",", ".");
177 $u['paid'] += trim($p);
0337d704 178 }
2ac0bcee 179 }
58591700 180 $u['telepayment'] = $u['paid'] - $u['adminpaid'];
08cce2ff 181 $res_ = XDB::iterator(
2ac0bcee
FB
182 "SELECT ep.nb, ep.item_id, ei.montant
183 FROM groupex.evenements_participants AS ep
184 INNER JOIN groupex.evenements_items AS ei ON (ei.eid = ep.eid AND ei.item_id = ep.item_id)
185 WHERE ep.eid = {?} AND ep.uid = {?}",
0337d704 186 $eid, $u['uid']);
187 while ($i = $res_->next()) {
188 $u[$i['item_id']] = $i['nb'];
189 $u['montant'] += $i['montant']*$i['nb'];
190 }
2ac0bcee 191 $tab[] = $u;
e01ebe65
FB
192 $evt['telepaid'] += $u['telepayment'];
193 $evt['adminpaid'] += $u['adminpaid'];
194 $evt['paid'] += $u['paid'];
195 $evt['topay'] += $u['montant'];
0337d704 196 }
197 return $tab;
198}
199// }}}
200
201// {{{ function subscribe_lists_event()
9193e8f7 202function subscribe_lists_event($participate, $uid, $evt)
203{
204 require_once('user.func.inc.php');
d7610c35
FB
205 global $globals;
206 $page =& Platal::page();
ed21e24a 207
208 $participant_list = $evt['participant_list'];
209 $absent_list = $evt['absent_list'];
210
9566c5c5 211 $email = get_user_forlife($uid, '_silent_user_callback');
0337d704 212
213 if ($email) {
214 $email .= '@'.$globals->mail->domain;
215 } else {
9193e8f7 216 $res = XDB::query("SELECT email
217 FROM groupex.membres
218 WHERE uid = {?} AND asso_id = {?}",
219 S::v('uid'), $globals->asso('id'));
0337d704 220 $email = $res->fetchOneCell();
221 }
222
9193e8f7 223 function subscribe($list, $email)
224 {
225 if ($list && $email) {
226 XDB::execute("REPLACE INTO virtual_redirect
227 VALUES ({?},{?})",
228 $list, $email);
229 }
0337d704 230 }
231
9193e8f7 232 function unsubscribe($list, $email)
233 {
234 if ($list && $email) {
235 XDB::execute("DELETE FROM virtual_redirect
236 WHERE vid = {?} AND redirect = {?}",
237 $list, $email);
238 }
0337d704 239 }
240
9193e8f7 241 if (is_null($participate)) {
242 unsubscribe($participant_list, $email);
243 subscribe($absent_list, $email);
244 } elseif ($participate) {
245 subscribe($participant_list, $email);
246 unsubscribe($absent_list, $email);
247 } else {
248 unsubscribe($participant_list, $email);
249 unsubscribe($absent_list, $email);
250 }
0337d704 251}
252// }}}
253
2847640f 254function event_change_shortname(&$page, $eid, $old, $new)
5070a22d 255{
256 global $globals;
257
f56e5e53 258 if (is_null($old)) {
259 $old = '';
260 }
a7de4ef7 261 // Quelques vérifications sur l'alias (caractères spéciaux)
2179ffa2 262 if ($new && !preg_match( "/^[a-zA-Z0-9\-.]{3,20}$/", $new)) {
a7d35093 263 $page->trigError("Le raccourci demandé n'est pas valide.
a7de4ef7 264 Vérifie qu'il comporte entre 3 et 20 caractères
265 et qu'il ne contient que des lettres non accentuées,
266 des chiffres ou les caractères - et .");
5070a22d 267 return $old;
268 }
269
a7de4ef7 270 //vérifier que l'alias n'est pas déja pris
5070a22d 271 if ($new && $old != $new) {
9193e8f7 272 $res = XDB::query('SELECT COUNT(*)
273 FROM groupex.evenements
274 WHERE short_name = {?}',
275 $new);
5070a22d 276 if ($res->fetchOneCell() > 0) {
a7d35093 277 $page->trigError("Le raccourci demandé est déjà utilisé. Choisis en un autre.");
5070a22d 278 return $old;
279 }
280 }
281
282 if ($old == $new) {
283 return $new;
284 }
285
286 if ($old && $new) {
287 // if had a previous shortname change the old lists
288 foreach (array('-absents@', '-participants@') as $v) {
289 $v .= $globals->xnet->evts_domain;
08cce2ff 290 XDB::execute("UPDATE virtual SET alias = {?}
9193e8f7 291 WHERE type = 'evt' AND alias = {?}",
292 $new.$v, $old.$v);
5070a22d 293 }
5070a22d 294 return $new;
295 }
296
297 if (!$old && $new) {
298 // if we have a first new short_name create the lists
299
08cce2ff 300 XDB::execute("INSERT INTO virtual SET type = 'evt', alias = {?}",
5070a22d 301 $new.'-participants@'.$globals->xnet->evts_domain);
302
8b83a166 303 $lastid = XDB::insertId();
08cce2ff 304 XDB::execute(
5070a22d 305 "INSERT INTO virtual_redirect (
306 SELECT {?} AS vid, IF(u.nom IS NULL, m.email, CONCAT(a.alias, {?})) AS redirect
307 FROM groupex.evenements_participants AS ep
308 LEFT JOIN groupex.membres AS m ON (ep.uid = m.uid)
309 LEFT JOIN auth_user_md5 AS u ON (u.user_id = ep.uid)
310 LEFT JOIN aliases AS a ON (a.id = ep.uid AND a.type = 'a_vie')
2847640f 311 WHERE ep.eid = {?} AND ep.nb > 0
5070a22d 312 GROUP BY ep.uid)",
313 $lastid, '@'.$globals->mail->domain, $eid);
314
08cce2ff 315 XDB::execute("INSERT INTO virtual SET type = 'evt', alias = {?}",
5070a22d 316 $new.'-absents@'.$globals->xnet->evts_domain);
317
8b83a166 318 $lastid = XDB::insertId();
08cce2ff 319 XDB::execute("INSERT INTO virtual_redirect (
5070a22d 320 SELECT {?} AS vid, IF(u.nom IS NULL, m.email, CONCAT(a.alias, {?})) AS redirect
321 FROM groupex.membres AS m
2847640f 322 LEFT JOIN groupex.evenements_participants AS ep ON (ep.uid = m.uid AND ep.eid = {?})
5070a22d 323 LEFT JOIN auth_user_md5 AS u ON (u.user_id = m.uid)
324 LEFT JOIN aliases AS a ON (a.id = m.uid AND a.type = 'a_vie')
325 WHERE m.asso_id = {?} AND ep.uid IS NULL
326 GROUP BY m.uid)",
2847640f 327 $lastid, "@".$globals->mail->domain, $eid, $globals->asso('id'));
5070a22d 328
329 return $new;
330 }
331
332 if ($old && !$new) {
333 // if we delete the old short name, delete the lists
334 foreach (array('-absents@', '-participants@') as $v) {
335 $v .= $globals->xnet->evts_domain;
08cce2ff 336 XDB::execute("DELETE virtual, virtual_redirect FROM virtual
5070a22d 337 LEFT JOIN virtual_redirect USING(vid)
338 WHERE virtual.alias = {?}",
339 $infos['short_name'].$v);
340 }
341 return $new;
342 }
343
344 // cannot happen
345 return $old;
346}
347
a7de4ef7 348// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
0337d704 349?>