X-Git-Url: http://git.polytechnique.org/?a=blobdiff_plain;f=modules%2Fxnetevents.php;h=d290d5e83cc72081453a75f76797e72dde59548c;hb=cab0809050d58f8484608e91f7555ebd69dcb451;hp=460bedbc462a26cbf040b9e0f55ba4ac8dc4ec6d;hpb=4f10a0584b9a24af98c39de0919c9a007963be9b;p=platal.git diff --git a/modules/xnetevents.php b/modules/xnetevents.php index 460bedb..d290d5e 100644 --- a/modules/xnetevents.php +++ b/modules/xnetevents.php @@ -19,13 +19,18 @@ * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * ***************************************************************************/ +define('NB_PER_PAGE', 25); + class XnetEventsModule extends PLModule { function handlers() { return array( - 'grp/events' => $this->make_hook('events', AUTH_MDP), - 'grp/events/csv' => $this->make_hook('csv', AUTH_MDP), + 'grp/events' => $this->make_hook('events', AUTH_MDP), + 'grp/events/sub' => $this->make_hook('sub', AUTH_MDP), + 'grp/events/csv' => $this->make_hook('csv', AUTH_MDP), + 'grp/events/edit' => $this->make_hook('edit', AUTH_MDP), + 'grp/events/admin' => $this->make_hook('admin', AUTH_MDP), ); } @@ -33,134 +38,97 @@ class XnetEventsModule extends PLModule { global $globals; - new_group_page('xnet/groupe/evenements.tpl'); - - /**** manage inscriptions ****/ - // inscription to events - if (Env::has('ins')) { - for ($i=1; Env::has('evt_'.$i); $i++) { - $eid = Env::get('evt_'.$i); - $res = $globals->xdb->query(" - SELECT deadline_inscription, - LEFT(NOW(), 10) AS now, - noinvite, - membres_only - FROM groupex.evenements - WHERE eid = {?}", $eid); - $e = $res->fetchOneAssoc(); - // impossible to change inscription: either inscription closed or members only - if ($e['deadline_inscription'] && $e['deadline_inscription'] < $e['now']) - { - $page->trig("Les inscriptions sont closes"); - continue; - } + new_group_page('xnetevents/index.tpl'); - if ($e['membres_only'] && !is_member()) - { - $page->trig("Les inscriptions à cet événement ne sont pas publiques"); - continue; - } + if (Post::has('del')) { + if (!may_update()) { + return PL_NOT_ALLOWED; + } - // impossible to unsubscribe if you already paid sthing - $total_inscr = 0; - $inscriptions = array(); - for ($j=1; Env::has('moment'.$eid.'_'.$j); $j++) - { - $inscriptions[$j] = Env::get('moment'.$eid.'_'.$j); - // retreive ohter field when more than one person - if ($inscriptions[$j] == 2) - $inscriptions[$j] = 1 + Env::get('personnes'.$eid.'_'.$j,0); - // avoid negative count if other field incorrect - if ($inscriptions[$j] < 0) - $inscriptions[$j] = 0; - // avoid floating count if other field incorrect - $inscriptions[$j] = floor($inscriptions[$j]); - // avoid invite if no invite allowed - if ($inscriptions[$j] > 1 && $e['noinvite']) - $inscriptions[$j] = 1; - $total_inscr += $inscriptions[$j]; - } - $unsubscribing = ($total_inscr == 0); - - // retreive the amount already paid for this event in cash - $res = $globals->xdb->query(" - SELECT paid - FROM groupex.evenements_participants - WHERE eid = {?} AND uid = {?} - LIMIT 1", - $eid, Session::get("uid")); - $paid = $res->fetchOneCell(); - if (!$paid) $paid = 0; - - if ($unsubscribing && $paid != 0) { - $page->trig("Impossible de te désinscrire complètement ". - "parce que tu as fait un paiement par ". - "chèque ou par liquide. Contacte un ". - "administrateur du groupe si tu es sûr de ". - "ne pas venir"); - continue; - } + $eid = Post::get('del'); - // update actual inscriptions - foreach ($inscriptions as $j=>$nb) { - if ($nb > 0) { - $globals->xdb->execute( - "REPLACE INTO groupex.evenements_participants - VALUES ({?}, {?}, {?}, {?}, {?})", - $eid, Session::get("uid"), $j, $nb, $paid); - } else { - $globals->xdb->execute( - "DELETE FROM groupex.evenements_participants - WHERE eid = {?} AND uid = {?} AND item_id = {?}", - $eid, Session::get("uid"), $j); - } - } + $res = XDB::query("SELECT asso_id, short_name FROM groupex.evenements + WHERE eid = {?} AND asso_id = {?}", + $eid, $globals->asso('id')); + + $tmp = $res->fetchOneRow(); + if (!$tmp) { + return PL_NOT_ALLOWED; } + + // deletes the event mailing aliases + if ($tmp[1]) { + XDB::execute( + "DELETE FROM virtual WHERE type = 'evt' AND alias LIKE {?}", + $tmp[1].'-absents@%'); + XDB::execute( + "DELETE FROM virtual WHERE type = 'evt' AND alias LIKE {?}", + $tmp[1].'-participants@%'); + } + + // deletes the event items + XDB::execute("DELETE FROM groupex.evenements_items WHERE eid = {?}", $eid); + + // deletes the event participants + XDB::execute("DELETE FROM groupex.evenements_participants + WHERE eid = {?}", $eid); + + // deletes the event + XDB::execute("DELETE FROM groupex.evenements + WHERE eid = {?} AND asso_id = {?}", + $eid, $globals->asso('id')); + + // delete the requests for payments + require_once 'validations.inc.php'; + XDB::execute("DELETE FROM requests + WHERE type = 'paiements' AND data LIKE {?}", + PayReq::same_event($eid, $globals->asso('id'))); } - /**** retreive all infos about all events ****/ - $page->assign('logged', logged()); $page->assign('admin', may_update()); - $evenements = $globals->xdb->iterator( - "SELECT e.eid, - IF(e.intitule = '', ' ', e.intitule) AS intitule, - IF(e.descriptif = '', ' ', e.descriptif) AS descriptif, - e.debut, e.fin, - LEFT(10,e.debut) AS debut_day, - LEFT(10,e.fin) AS fin_day, - e.paiement_id, e.membres_only, e.noinvite, - e.show_participants, u.nom, u.prenom, u.promo, a.alias, MAX(ep.nb) AS inscrit, - MAX(ep.paid) AS paid, - e.short_name, - IF(e.deadline_inscription, e.deadline_inscription >= LEFT(NOW(), 10), - 1) AS inscr_open, e.deadline_inscription - FROM groupex.evenements AS e + $evenements = XDB::iterator( + "SELECT e.*, LEFT(10, e.debut) AS debut_day, LEFT(10, e.fin) AS fin_day, + IF(e.deadline_inscription, e.deadline_inscription >= LEFT(NOW(), 10), + 1) AS inscr_open, e.deadline_inscription, + u.nom, u.prenom, u.promo, a.alias, + MAX(ep.nb) AS inscrit, MAX(ep.paid) AS paid + FROM groupex.evenements AS e INNER JOIN x4dat.auth_user_md5 AS u ON u.user_id = e.organisateur_uid - LEFT JOIN x4dat.aliases AS a ON (a.type = 'a_vie' AND a.id = u.user_id) + INNER JOIN x4dat.aliases AS a ON (a.type = 'a_vie' AND a.id = u.user_id) LEFT JOIN groupex.evenements_participants AS ep ON (ep.eid = e.eid AND ep.uid = {?}) WHERE asso_id = {?} GROUP BY e.eid - ORDER BY debut",Session::get('uid'),$globals->asso('id')); + ORDER BY debut", S::v('uid'), $globals->asso('id')); $evts = array(); + while ($e = $evenements->next()) { - $e['moments'] = $globals->xdb->iterator( + $res = XDB::query( "SELECT titre, details, montant, ei.item_id, nb FROM groupex.evenements_items AS ei LEFT JOIN groupex.evenements_participants AS ep ON (ep.eid = ei.eid AND ep.item_id = ei.item_id AND uid = {?}) WHERE ei.eid = {?}", - Session::get('uid'), $e['eid']); - $query = $globals->xdb->query( + S::v('uid'), $e['eid']); + $e['moments'] = $res->fetchAllAssoc(); + + $e['topay'] = 0; + foreach ($e['moments'] as $m) { + $e['topay'] += $m['nb'] * $m['montant']; + } + + $query = XDB::query( "SELECT montant FROM {$globals->money->mpay_tprefix}transactions AS t - WHERE ref = {?} AND uid = {?}", $e['paiement_id'], Session::get('uid')); + WHERE ref = {?} AND uid = {?}", $e['paiement_id'], S::v('uid')); $montants = $query->fetchColumn(); + foreach ($montants as $m) { - $p = strtr(substr($m, 0, strpos($m, "EUR")), ",", "."); + $p = strtr(substr($m, 0, strpos($m, 'EUR')), ',', '.'); $e['paid'] += trim($p); } + $evts[] = $e; } @@ -168,43 +136,400 @@ class XnetEventsModule extends PLModule $page->assign('is_member', is_member()); } + function handler_sub(&$page, $eid = null) + { + require_once dirname(__FILE__).'/xnetevents/xnetevents.inc.php'; + + new_group_page('xnetevents/subscribe.tpl'); + + $evt = get_event_detail($eid); + if (!$evt) { + return PL_NOT_FOUND; + } + + if (!$evt['inscr_open']) { + $page->kill('Les inscriptions pour cet événement sont closes'); + } + + $page->assign('event', $evt); + + if (!Post::has('submit')) { + return; + } + + $moments = Post::getMixed('moment', array()); + $pers = Post::getMixed('personnes', array()); + $subs = array(); + + foreach ($moments as $j => $v) { + $subs[$j] = intval($v); + + // retreive ohter field when more than one person + if ($subs[$j] == 2) { + if (!isset($pers[$j]) || !is_numeric($pers[$j]) + || $pers[$j] < 0) + { + $page->trig('Tu dois choisir un nombre d\'invités correct !'); + return; + } + $subs[$j] = 1 + $pers[$j]; + } + } + + // impossible to unsubscribe if you already paid sthing + if (array_sum($subs) && $evt['paid'] != 0) { + $page->trig("Impossible de te désinscrire complètement ". + "parce que tu as fait un paiement par ". + "chèque ou par liquide. Contacte un ". + "administrateur du groupe si tu es sûr de ". + "ne pas venir"); + return; + } + + // update actual inscriptions + foreach ($subs as $j => $nb) { + if ($nb > 0) { + XDB::execute( + "REPLACE INTO groupex.evenements_participants + VALUES ({?}, {?}, {?}, {?}, {?})", + $eid, S::v('uid'), $j, $nb, $evt['paid']); + $page->assign('updated', true); + } else { + XDB::execute( + "DELETE FROM groupex.evenements_participants + WHERE eid = {?} AND uid = {?} AND item_id = {?}", + $eid, S::v("uid"), $j); + $page->assign('updated', true); + } + } + + $page->assign('event', get_event_detail($eid)); + } + function handler_csv(&$page, $eid = null, $item_id = null) { - require_once('xnet/evenements.php'); + require_once dirname(__FILE__).'/xnetevents/xnetevents.inc.php'; + + if (!is_numeric($item_id)) { + $item_id = null; + } $evt = get_event_detail($eid, $item_id); if (!$evt) { return PL_NOT_FOUND; } - header('Content-type: text/x-csv'); + header('Content-type: text/x-csv; encoding=iso-8859-1'); header('Pragma: '); header('Cache-Control: '); - new_nonhtml_page('xnet/groupe/evt-csv.tpl'); + new_nonhtml_page('xnetevents/csv.tpl'); $admin = may_update(); $tri = (Env::get('order') == 'alpha' ? 'promo, nom, prenom' : 'nom, prenom, promo'); - if (Env::has('initiale')) { - $ini = 'AND IF(u.nom IS NULL, m.nom, - IF(u.nom_usage<>"", u.nom_usage, u.nom)) - LIKE "'.addslashes(Env::get('initiale')).'%"'; - } else { - $ini = ''; - } + $page->assign('participants', + get_event_participants($evt, $item_id, $tri)); - $participants = get_event_participants($eid, $item_id, $ini, $tri, "", - $evt['money'] && $admin, - $evt['paiement_id']); - - $page->assign('participants', $participants); $page->assign('admin', $admin); $page->assign('moments', $evt['moments']); $page->assign('money', $evt['money']); $page->assign('tout', !Env::get('item_id', false)); } + + function handler_edit(&$page, $eid = null) + { + global $globals; + + // check the event is in our group + if (!is_null($eid)) { + $res = XDB::query("SELECT short_name, asso_id + FROM groupex.evenements + WHERE eid = {?}", $eid); + $infos = $res->fetchOneAssoc(); + if ($infos['asso_id'] != $globals->asso('id')) { + return PL_NOT_ALLOWED; + } + } + + new_groupadmin_page('xnetevents/edit.tpl'); + + $moments = range(1, 4); + $page->assign('moments', $moments); + + if (Post::get('intitule')) { + require_once dirname(__FILE__).'/xnetevents/xnetevents.inc.php'; + $short_name = event_change_shortname($page, $infos['short_name'], + Env::get('short_name', '')); + + $evt = array( + 'eid' => $eid, + 'asso_id' => $globals->asso('id'), + 'organisateur_uid' => S::v('uid'), + 'paiement_id' => Post::get('paiement_id') > 0 ? Post::get('paiement_id') : null, + 'debut' => Post::get('deb_Year').'-'.Post::get('deb_Month') + .'-'.Post::get('deb_Day').' '.Post::get('deb_Hour') + .':'.Post::get('deb_Minute').':00', + 'fin' => Post::get('fin_Year').'-'.Post::get('fin_Month') + .'-'.Post::get('fin_Day').' '.Post::get('fin_Hour') + .':'.Post::get('fin_Minute').':00', + 'short_name' => $short_name, + ); + + $trivial = array('intitule', 'descriptif', 'noinvite', + 'show_participants'); + foreach ($trivial as $k) { + $evt[$k] = Post::get($k); + } + + if (Post::get('deadline')) { + $evt['deadline_inscription'] = Post::get('inscr_Year').'-' + . Post::get('inscr_Month').'-' + . Post::get('inscr_Day'); + } else { + $evt['deadline_inscription'] = null; + } + + // Store the modifications in the database + XDB::execute('REPLACE INTO groupex.evenements + SET eid={?}, asso_id={?}, organisateur_uid={?}, intitule={?}, + paiement_id = {?}, descriptif = {?}, debut = {?}, + fin = {?}, show_participants = {?}, short_name = {?}, + deadline_inscription = {?}, noinvite = {?}', + $evt['eid'], $evt['asso_id'], $evt['organisateur_uid'], + $evt['intitule'], $evt['paiement_id'], $evt['descriptif'], + $evt['debut'], $evt['fin'], $evt['show_participants'], + $evt['short_name'], $evt['deadline_inscription'], + $evt['noinvite']); + + // if new event, get its id + if (!$eid) { + $eid = mysql_insert_id(); + } + + $nb_moments = 0; + $money_defaut = 0; + + foreach ($moments as $i) { + if (Post::get('titre'.$i)) { + $nb_moments++; + + $montant = strtr(Post::get('montant'.$i), ',', '.'); + $money_defaut += (float)$montant; + XDB::execute(" + REPLACE INTO groupex.evenements_items + VALUES ({?}, {?}, {?}, {?}, {?})", + $eid, $i, Post::get('titre'.$i), + Post::get('details'.$i), $montant); + } else { + XDB::execute("DELETE FROM groupex.evenements_items + WHERE eid = {?} AND item_id = {?}", $eid, $i); + } + } + + // request for a new payment + if (Post::get('paiement_id') == -1 && $money_defaut >= 0) { + require_once 'validations.inc.php'; + $p = new PayReq(S::v('uid'), + Post::get('intitule')." - ".$globals->asso('nom'), + Post::get('site'), $money_defaut, + Post::get('confirmation'), 0, 999, + $globals->asso('id'), $eid); + $p->submit(); + } + + // events with no sub-event: add a sub-event with no name + if ($nb_moments == 0) { + XDB::execute("INSERT INTO groupex.evenements_items + VALUES ({?}, {?}, '', '', 0)", $eid, 1); + } + + if (is_null($evt['eid'])) { + global $platal; + redirect(smarty_function_rel().'/'.$platal->path.'/'.$eid); + } + } + + // get a list of all the payment for this asso + $res = XDB::iterator("SELECT id, text + FROM {$globals->money->mpay_tprefix}paiements + WHERE asso_id = {?}", $globals->asso('id')); + $paiements = array(); + while ($a = $res->next()) $paiements[$a['id']] = $a['text']; { + $page->assign('paiements', $paiements); + } + + // when modifying an old event retreive the old datas + if ($eid) { + $res = XDB::query( + "SELECT eid, intitule, descriptif, debut, fin, + show_participants, paiement_id, short_name, + deadline_inscription, noinvite + FROM groupex.evenements + WHERE eid = {?}", $eid); + $evt = $res->fetchOneAssoc(); + // find out if there is already a request for a payment for this event + require_once 'validations.inc.php'; + $res = XDB::query("SELECT stamp FROM requests + WHERE type = 'paiements' AND data LIKE {?}", + PayReq::same_event($eid, $globals->asso('id'))); + $stamp = $res->fetchOneCell(); + if ($stamp) { + $evt['paiement_id'] = -2; + $evt['paiement_req'] = $stamp; + } + $page->assign('evt', $evt); + // get all the different moments infos + $res = XDB::iterator( + "SELECT item_id, titre, details, montant + FROM groupex.evenements_items AS ei + INNER JOIN groupex.evenements AS e ON(e.eid = ei.eid) + WHERE e.eid = {?} + ORDER BY item_id", $eid); + $items = array(); + while ($item = $res->next()) { + $items[$item['item_id']] = $item; + } + $page->assign('items', $items); + } + } + + function handler_admin(&$page, $eid = null, $item_id = null) + { + global $globals; + + require_once dirname(__FILE__).'/xnetevents/xnetevents.inc.php'; + + $evt = get_event_detail($eid, $item_id); + if (!$evt) { + return PL_NOT_FOUND; + } + + if ($evt['show_participants']) { + new_group_page('xnetevents/admin.tpl'); + } else { + new_groupadmin_page('xnetevents/admin.tpl'); + } + + if (may_update() && Post::get('adm')) { + $member = get_infos(Post::get('mail')); + if (!$member) { + $page->trig("Membre introuvable"); + } + + // change the price paid by a participant + if (Env::get('adm') == 'prix' && $member) { + XDB::execute("UPDATE groupex.evenements_participants + SET paid = IF(paid + {?} > 0, paid + {?}, 0) + WHERE uid = {?} AND eid = {?}", + strtr(Env::get('montant'), ',', '.'), + strtr(Env::get('montant'), ',', '.'), + $member['uid'], $eid); + } + + // change the number of personns coming with a participant + if (Env::get('adm') == 'nbs' && $member) { + $res = XDB::query("SELECT paid + FROM groupex.evenements_participants + WHERE uid = {?} AND eid = {?}", + $member['uid'], $eid); + + $paid = intval($res->fetchOneCell()); + $nbs = Post::getMixed('nb', array()); + + foreach ($nbs as $id => $nb) { + $nb = max(intval($nb), 0); + + if ($nb) { + XDB::execute("REPLACE INTO groupex.evenements_participants + VALUES ({?}, {?}, {?}, {?}, {?})", + $eid, $member['uid'], $id, $nb, $paid); + } else { + XDB::execute("DELETE FROM groupex.evenements_participants + WHERE uid = {?} AND eid = {?} AND item_id = {?}", + $member['uid'], $eid, $id); + } + } + + $res = XDB::query("SELECT uid FROM groupex.evenements_participants + WHERE uid = {?} AND eid = {?}", + $member['uid'], $eid); + $u = $res->fetchOneCell(); + subscribe_lists_event($u, $member['uid'], $evt); + } + + $evt = get_event_detail($eid, $item_id); + } + + $page->assign('admin', may_update()); + $page->assign('evt', $evt); + $page->assign('tout', is_null($item_id)); + + if (count($evt['moments'])) { + $page->assign('moments', $evt['moments']); + } + + $tri = (Env::get('order') == 'alpha' ? 'promo, nom, prenom' : 'nom, prenom, promo'); + $whereitemid = is_null($item_id) ? '' : "AND ep.item_id = $item_id"; + $res = XDB::iterRow( + 'SELECT UPPER(SUBSTRING(IF(u.nom IS NULL, m.nom, + IF(u.nom_usage<>"", u.nom_usage, u.nom)), 1, 1)), + COUNT(DISTINCT ep.uid) + FROM groupex.evenements_participants AS ep + INNER JOIN groupex.evenements AS e ON (ep.eid = e.eid) + LEFT JOIN groupex.membres AS m ON ( ep.uid = m.uid AND e.asso_id = m.asso_id) + LEFT JOIN auth_user_md5 AS u ON ( u.user_id = ep.uid ) + WHERE ep.eid = {?} '.$whereitemid.' + GROUP BY UPPER(SUBSTRING(IF(u.nom IS NULL,m.nom,u.nom), 1, 1))', $eid); + + $alphabet = array(); + $nb_tot = 0; + while (list($char, $nb) = $res->next()) { + $alphabet[ord($char)] = $char; + $nb_tot += $nb; + if (Env::has('initiale') && $char == strtoupper(Env::get('initiale'))) { + $tot = $nb; + } + } + ksort($alphabet); + $page->assign('alphabet', $alphabet); + + $ofs = Env::getInt('offset'); + $tot = Env::get('initiale') ? $tot : $nb_tot; + $nbp = intval(($tot-1)/NB_PER_PAGE); + $links = array(); + if ($ofs) { + $links['précédent'] = $ofs-1; + } + for ($i = 0; $i <= $nbp; $i++) { + $links[(string)($i+1)] = $i; + } + if ($ofs < $nbp) { + $links['suivant'] = $ofs+1; + } + if (count($links)>1) { + $page->assign('links', $links); + } + + if ($evt['paiement_id']) { + $res = XDB::iterator( + "SELECT IF(u.nom_usage<>'', u.nom_usage, u.nom) AS nom, u.prenom, + u.promo, a.alias AS email, t.montant + FROM {$globals->money->mpay_tprefix}transactions AS t + INNER JOIN auth_user_md5 AS u ON(t.uid = u.user_id) + INNER JOIN aliases AS a ON (a.id = t.uid AND a.type='a_vie' ) + LEFT JOIN groupex.evenements_participants AS ep ON(ep.uid = t.uid AND ep.eid = {?}) + WHERE t.ref = {?} AND ep.uid IS NULL", + $evt['eid'], $evt['paiement_id']); + $page->assign('oublis', $res->total()); + $page->assign('oubliinscription', $res); + } + + $page->assign('participants', + get_event_participants($evt, $item_id, $tri, + "LIMIT ".($ofs*NB_PER_PAGE).", ".NB_PER_PAGE)); + } } ?>