* 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),
);
}
{
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;
}
$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));
+ }
}
?>