[platal.git] / htdocs.net / groupe / evt-modif.php

<?php
// vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
/***************************************************************************
 *  Copyright (C) 2003-2004 Polytechnique.org                              *
 *  http://opensource.polytechnique.org/                                   *
 *                                                                         *
 *  This program is free software; you can redistribute it and/or modify   *
 *  it under the terms of the GNU General Public License as published by   *
 *  the Free Software Foundation; either version 2 of the License, or      *
 *  (at your option) any later version.                                    *
 *                                                                         *
 *  This program is distributed in the hope that it will be useful,        *
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
 *  GNU General Public License for more details.                           *
 *                                                                         *
 *  You should have received a copy of the GNU General Public License      *
 *  along with this program; if not, write to the Free Software            *
 *  Foundation, Inc.,                                                      *
 *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
 ***************************************************************************/

require 'xnet.inc.php';

new_group_page('xnet/groupe/evt-modif.tpl');

$page->assign('logged', logged());
$page->assign('admin', may_update());

$moments = range(1, 4);
$page->assign('moments', $moments);

$page->assign('eid', Env::get('eid'));

if (!may_update())
    redirect("evenements.php");

if ($eid = Env::get('eid')) {
	$res = $globals->xdb->query("SELECT asso_id, short_name FROM groupex.evenements WHERE eid = {?}", $eid);
	$infos = $res->fetchOneAssoc();
	if ($infos['asso_id'] != $globals->asso('id')) {
		unset($eid);
		unset($infos);
	}
}

$get_form = true;

if (Post::get('intitule')) {
    $get_form = false;
    $short_name = Env::get('short_name');
    //Quelques v�rifications sur l'alias (caract�res sp�ciaux)
    if ($short_name && !preg_match( "/^[a-zA-Z0-9\-.]{3,20}$/", $short_name))
    {
        $page->trig("Le raccourci demand� n'est pas valide.
                    V�rifie qu'il comporte entre 3 et 20 caract�res
                    et qu'il ne contient que des lettres non accentu�es,
                    des chiffres ou les caract�res - et .");
        $short_name = $infos['short_name'];
        $get_form = true;
    }
    //v�rifier que l'alias n'est pas d�ja pris
    if ($short_name && $short_name != $infos['short_name']) {
        $res = $globals->xdb->query('SELECT COUNT(*) FROM virtual WHERE alias LIKE {?}', $short_name."-%");
        if ($res->fetchOneCell() > 0) {
            $page->trig("Le raccourci demand� est d�j� utilis�. Choisis en un autre.");
            $short_name = $infos['short_name'];
            $get_form = true;
        }
    }

    // if had a previous shortname change the old lists
    if ($short_name && $infos['short_name'] && $short_name != $infos['short_name']) {
        $globals->xdb->execute("UPDATE virtual SET alias = REPLACE(alias, {?}, {?}) WHERE type = 'evt' AND alias LIKE {?}",
                $infos['short_name'], $short_name, $infos['short_name']."-%");
    } 
    // if we have a first new short_name create the lists
    elseif ($short_name && !$infos['short_name'])
    {
        $globals->xdb->execute("INSERT INTO virtual SET type = 'evt', alias = {?}",
                $short_name."-participants@".$globals->xnet->evts_domain);
            
        $res = $globals->xdb->query("SELECT LAST_INSERT_ID()");
        $globals->xdb->execute("INSERT INTO virtual_redirect (
            SELECT {?} AS vid, IF(u.nom IS NULL, m.email, CONCAT(a.alias, {?})) AS redirect
              FROM groupex.evenements_participants AS ep
         LEFT JOIN groupex.membres AS m ON (ep.uid = m.uid)
         LEFT JOIN auth_user_md5 AS u ON (u.user_id = ep.uid)
         LEFT JOIN aliases AS a ON (a.id = ep.uid AND a.type = 'a_vie')
             WHERE ep.eid = {?}
          GROUP BY ep.uid)",
                 $res->fetchOneCell(), "@".$globals->mail->domain, $eid);

        $globals->xdb->execute("INSERT INTO virtual SET type = 'evt', alias = {?}",
                $short_name."-absents@".$globals->xnet->evts_domain);
                
        $res = $globals->xdb->query("SELECT LAST_INSERT_ID()");
        $globals->xdb->execute("INSERT INTO virtual_redirect (
            SELECT {?} AS vid, IF(u.nom IS NULL, m.email, CONCAT(a.alias, {?})) AS redirect
                  FROM groupex.membres AS m
             LEFT JOIN groupex.evenements_participants AS ep ON (ep.uid = m.uid)
             LEFT JOIN auth_user_md5 AS u ON (u.user_id = m.uid)
             LEFT JOIN aliases AS a ON (a.id = m.uid AND a.type = 'a_vie')
                 WHERE m.asso_id = {?} AND ep.uid IS NULL
              GROUP BY m.uid)",
                 $res->fetchOneCell(), "@".$globals->mail->domain, $globals->asso('id'));
    }
    // if we delete the old short name, delete the lists
    elseif (!$short_name && $infos['short_name']) {
        $globals->xdb->execute("DELETE virtual, virtual_redirect FROM virtual LEFT JOIN virtual_redirect USING(vid) WHERE virtual.alias LIKE {?}",
                $infos['short_name']."-%");
    }

    $evt = array();
    $evt['eid'] = $eid;
    $evt['asso_id'] = $globals->asso('id');
    $evt['organisateur_uid'] = Session::get('uid');
    $evt['intitule'] = Post::get('intitule');
    $evt['paiement_id'] =(Post::get('paiement_id')>0)?Post::get('paiement_id'):null;
    $evt['descriptif'] =Post::get('descriptif');
    $evt['debut'] = Post::get('deb_Year')."-".Post::get('deb_Month')."-".Post::get('deb_Day')." ".Post::get('deb_Hour').":".Post::get('deb_Minute').":00";
    $evt['fin'] = Post::get('fin_Year')."-".Post::get('fin_Month')."-".Post::get('fin_Day')." ".Post::get('fin_Hour').":".Post::get('fin_Minute').":00";
    $evt['membres_only'] = Post::get('membres_only');
    $evt['advertise'] = Post::get('advertise');
    $evt['show_participants'] = Post::get('show_participants');
    if (!$short_name) $short_name = '';
    $evt['short_name'] = $short_name;
    $evt['deadline_inscription'] = (Post::get('deadline', 'off')=='on')?null:(Post::get('inscr_Year')."-".Post::get('inscr_Month')."-".Post::get('inscr_Day'));

    // Store the modifications in the database
    $globals->xdb->execute("REPLACE INTO groupex.evenements 
        SET eid={?}, asso_id={?}, organisateur_uid={?}, intitule={?},
            paiement_id = {?}, descriptif = {?},
            debut = {?}, fin = {?},
            membres_only = {?}, advertise = {?}, show_participants = {?}, 
            short_name = {?}, deadline_inscription = {?}",
            $evt['eid'], $evt['asso_id'], $evt['organisateur_uid'], $evt['intitule']
            , $evt['paiement_id'], $evt['descriptif'],
            $evt['debut'], $evt['fin'],
            $evt['membres_only'], $evt['advertise'], $evt['show_participants'],
            $evt['short_name'], $evt['deadline_inscription']);

    // if new event, get its id
    if (!$eid) {
        $res = $globals->xdb->query("SELECT LAST_INSERT_ID()");
        $eid = $res->fetchOneCell();
        $evt['eid'] = $eid;
    }

    $nb_moments = 0;
    $money_defaut = 0;
    foreach ($moments as $i) 
    {
        if (Post::get('titre'.$i)) {
            $nb_moments++;
            if (!($money_defaut > 0))
                $money_defaut = strtr(Post::get('montant'.$i), ',', '.');
            $globals->xdb->execute("
                REPLACE INTO groupex.evenements_items VALUES (
                    {?}, {?},
                    {?}, {?}, {?})",
                    $eid, $i,
                    Post::get('titre'.$i), Post::get('details'.$i), strtr(Post::get('montant'.$i), ',', '.'));
        }
        else
        {
            $globals->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(
        Session::get('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)
        $globals->xdb->execute("INSERT INTO groupex.evenements_items VALUES ({?}, {?}, '', '', 0)", $eid, 1);
}

if (Env::has('sup') && $eid) {
    // deletes the event
    $globals->xdb->execute("DELETE FROM groupex.evenements WHERE eid = {?} AND asso_id = {?}", $eid, $globals->asso('id'));
    // deletes the event items
    $globals->xdb->execute("DELETE FROM groupex.evenements_items WHERE eid = {?}", $eid);
    // deletes the event participants
    $globals->xdb->execute("DELETE FROM groupex.evenements_participants WHERE eid = {?}", $eid);
    // deletes the event mailing aliases
    if ($infos['short_name'])
            $globals->xdb->execute("DELETE FROM virtual WHERE type = 'evt' AND alias LIKE {?}", $infos['short_name']."-%");
    // delete the requests for payments
    require_once('validations.inc.php');
    $globals->xdb->execute("DELETE FROM requests WHERE type = 'paiements' AND data  LIKE {?}", PayReq::same_event($eid, $globals->asso('id')));
    redirect("evenements.php");
}

if (!$get_form)
    redirect("evenements.php");

// get a list of all the payment for this asso
$res = $globals->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 = $globals->xdb->query(
            "SELECT	eid, intitule, descriptif, debut, fin, membres_only, advertise, show_participants, paiement_id, short_name, deadline_inscription
               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 = $globals->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 = $globals->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);
}

$page->run();

?>
Commit	Line	Data
258b9710	1	<?php
	2	// vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
	3	/***************************************************************************
	4	* Copyright (C) 2003-2004 Polytechnique.org *
	5	* http://opensource.polytechnique.org/ *
	6	* *
	7	* This program is free software; you can redistribute it and/or modify *
	8	* it under the terms of the GNU General Public License as published by *
	9	* the Free Software Foundation; either version 2 of the License, or *
	10	* (at your option) any later version. *
	11	* *
	12	* This program is distributed in the hope that it will be useful, *
	13	* but WITHOUT ANY WARRANTY; without even the implied warranty of *
	14	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
	15	* GNU General Public License for more details. *
	16	* *
	17	* You should have received a copy of the GNU General Public License *
	18	* along with this program; if not, write to the Free Software *
	19	* Foundation, Inc., *
	20	* 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
	21	***************************************************************************/
	22
	23	require 'xnet.inc.php';
	24
	25	new_group_page('xnet/groupe/evt-modif.tpl');
	26
	27	$page->assign('logged', logged());
	28	$page->assign('admin', may_update());
	29
	30	$moments = range(1, 4);
	31	$page->assign('moments', $moments);
	32
	33	$page->assign('eid', Env::get('eid'));
	34
	35	if (!may_update())
	36	redirect("evenements.php");
	37
	38	if ($eid = Env::get('eid')) {
	39	$res = $globals->xdb->query("SELECT asso_id, short_name FROM groupex.evenements WHERE eid = {?}", $eid);
	40	$infos = $res->fetchOneAssoc();
	41	if ($infos['asso_id'] != $globals->asso('id')) {
	42	unset($eid);
	43	unset($infos);
	44	}
	45	}
	46
	47	$get_form = true;
	48
	49	if (Post::get('intitule')) {
	50	$get_form = false;
	51	$short_name = Env::get('short_name');
	52	//Quelques v�rifications sur l'alias (caract�res sp�ciaux)
	53	if ($short_name && !preg_match( "/^[a-zA-Z0-9\-.]{3,20}$/", $short_name))
	54	{
	55	$page->trig("Le raccourci demand� n'est pas valide.
	56	V�rifie qu'il comporte entre 3 et 20 caract�res
	57	et qu'il ne contient que des lettres non accentu�es,
	58	des chiffres ou les caract�res - et .");
	59	$short_name = $infos['short_name'];
	60	$get_form = true;
	61	}
	62	//v�rifier que l'alias n'est pas d�ja pris
	63	if ($short_name && $short_name != $infos['short_name']) {
	64	$res = $globals->xdb->query('SELECT COUNT(*) FROM virtual WHERE alias LIKE {?}', $short_name."-%");
65	if ($res->fetchOneCell() > 0) {
66	$page->trig("Le raccourci demand� est d�j� utilis�. Choisis en un autre.");
67	$short_name = $infos['short_name'];
68	$get_form = true;
69	}
70	}
71
72	// if had a previous shortname change the old lists
73	if ($short_name && $infos['short_name'] && $short_name != $infos['short_name']) {
74	$globals->xdb->execute("UPDATE virtual SET alias = REPLACE(alias, {?}, {?}) WHERE type = 'evt' AND alias LIKE {?}",
75	$infos['short_name'], $short_name, $infos['short_name']."-%");
76	}
77	// if we have a first new short_name create the lists
78	elseif ($short_name && !$infos['short_name'])
79	{
80	$globals->xdb->execute("INSERT INTO virtual SET type = 'evt', alias = {?}",
81	$short_name."-participants@".$globals->xnet->evts_domain);
82
83	$res = $globals->xdb->query("SELECT LAST_INSERT_ID()");
84	$globals->xdb->execute("INSERT INTO virtual_redirect (
85	SELECT {?} AS vid, IF(u.nom IS NULL, m.email, CONCAT(a.alias, {?})) AS redirect
86	FROM groupex.evenements_participants AS ep
87	LEFT JOIN groupex.membres AS m ON (ep.uid = m.uid)
88	LEFT JOIN auth_user_md5 AS u ON (u.user_id = ep.uid)
89	LEFT JOIN aliases AS a ON (a.id = ep.uid AND a.type = 'a_vie')
90	WHERE ep.eid = {?}
91	GROUP BY ep.uid)",
92	$res->fetchOneCell(), "@".$globals->mail->domain, $eid);
93
94	$globals->xdb->execute("INSERT INTO virtual SET type = 'evt', alias = {?}",
95	$short_name."-absents@".$globals->xnet->evts_domain);
96
97	$res = $globals->xdb->query("SELECT LAST_INSERT_ID()");
98	$globals->xdb->execute("INSERT INTO virtual_redirect (
99	SELECT {?} AS vid, IF(u.nom IS NULL, m.email, CONCAT(a.alias, {?})) AS redirect
100	FROM groupex.membres AS m
101	LEFT JOIN groupex.evenements_participants AS ep ON (ep.uid = m.uid)
102	LEFT JOIN auth_user_md5 AS u ON (u.user_id = m.uid)
103	LEFT JOIN aliases AS a ON (a.id = m.uid AND a.type = 'a_vie')
104	WHERE m.asso_id = {?} AND ep.uid IS NULL
105	GROUP BY m.uid)",
106	$res->fetchOneCell(), "@".$globals->mail->domain, $globals->asso('id'));
107	}
108	// if we delete the old short name, delete the lists
109	elseif (!$short_name && $infos['short_name']) {
110	$globals->xdb->execute("DELETE virtual, virtual_redirect FROM virtual LEFT JOIN virtual_redirect USING(vid) WHERE virtual.alias LIKE {?}",
111	$infos['short_name']."-%");
112	}
113
114	$evt = array();
115	$evt['eid'] = $eid;
116	$evt['asso_id'] = $globals->asso('id');
117	$evt['organisateur_uid'] = Session::get('uid');
118	$evt['intitule'] = Post::get('intitule');
119	$evt['paiement_id'] =(Post::get('paiement_id')>0)?Post::get('paiement_id'):null;
120	$evt['descriptif'] =Post::get('descriptif');
121	$evt['debut'] = Post::get('deb_Year')."-".Post::get('deb_Month')."-".Post::get('deb_Day')." ".Post::get('deb_Hour').":".Post::get('deb_Minute').":00";
122	$evt['fin'] = Post::get('fin_Year')."-".Post::get('fin_Month')."-".Post::get('fin_Day')." ".Post::get('fin_Hour').":".Post::get('fin_Minute').":00";
123	$evt['membres_only'] = Post::get('membres_only');
124	$evt['advertise'] = Post::get('advertise');
125	$evt['show_participants'] = Post::get('show_participants');
576208f3	126	if (!$short_name) $short_name = '';
258b9710	127	$evt['short_name'] = $short_name;
	128	$evt['deadline_inscription'] = (Post::get('deadline', 'off')=='on')?null:(Post::get('inscr_Year')."-".Post::get('inscr_Month')."-".Post::get('inscr_Day'));
	129
	130	// Store the modifications in the database
	131	$globals->xdb->execute("REPLACE INTO groupex.evenements
	132	SET eid={?}, asso_id={?}, organisateur_uid={?}, intitule={?},
	133	paiement_id = {?}, descriptif = {?},
	134	debut = {?}, fin = {?},
	135	membres_only = {?}, advertise = {?}, show_participants = {?},
	136	short_name = {?}, deadline_inscription = {?}",
	137	$evt['eid'], $evt['asso_id'], $evt['organisateur_uid'], $evt['intitule']
	138	, $evt['paiement_id'], $evt['descriptif'],
	139	$evt['debut'], $evt['fin'],
	140	$evt['membres_only'], $evt['advertise'], $evt['show_participants'],
	141	$evt['short_name'], $evt['deadline_inscription']);
	142
	143	// if new event, get its id
	144	if (!$eid) {
	145	$res = $globals->xdb->query("SELECT LAST_INSERT_ID()");
	146	$eid = $res->fetchOneCell();
	147	$evt['eid'] = $eid;
	148	}
	149
	150	$nb_moments = 0;
	151	$money_defaut = 0;
	152	foreach ($moments as $i)
	153	{
	154	if (Post::get('titre'.$i)) {
	155	$nb_moments++;
	156	if (!($money_defaut > 0))
	157	$money_defaut = strtr(Post::get('montant'.$i), ',', '.');
	158	$globals->xdb->execute("
	159	REPLACE INTO groupex.evenements_items VALUES (
	160	{?}, {?},
	161	{?}, {?}, {?})",
	162	$eid, $i,
	163	Post::get('titre'.$i), Post::get('details'.$i), strtr(Post::get('montant'.$i), ',', '.'));
	164	}
	165	else
	166	{
	167	$globals->xdb->execute("DELETE FROM groupex.evenements_items WHERE eid = {?} AND item_id = {?}", $eid, $i);
	168	}
	169	}
	170
	171	// request for a new payment
	172	if (Post::get('paiement_id') == -1 && $money_defaut >= 0) {
576208f3	173	require_once ('validations.inc.php');
576208f3	174	$p = new PayReq(
258b9710	175	Session::get('uid'),
	176	Post::get('intitule')." - ".$globals->asso('nom'),
	177	Post::get('site'),
	178	$money_defaut,
	179	Post::get('confirmation'),
	180	0,
	181	999,
	182	$globals->asso('id'),
	183	$eid);
576208f3	184	$p->submit();
258b9710	185	}
	186
	187	// events with no sub-event: add a sub-event with no name
	188	if ($nb_moments == 0)
	189	$globals->xdb->execute("INSERT INTO groupex.evenements_items VALUES ({?}, {?}, '', '', 0)", $eid, 1);
	190	}
	191
	192	if (Env::has('sup') && $eid) {
	193	// deletes the event
	194	$globals->xdb->execute("DELETE FROM groupex.evenements WHERE eid = {?} AND asso_id = {?}", $eid, $globals->asso('id'));
	195	// deletes the event items
	196	$globals->xdb->execute("DELETE FROM groupex.evenements_items WHERE eid = {?}", $eid);
	197	// deletes the event participants
	198	$globals->xdb->execute("DELETE FROM groupex.evenements_participants WHERE eid = {?}", $eid);
	199	// deletes the event mailing aliases
	200	if ($infos['short_name'])
	201	$globals->xdb->execute("DELETE FROM virtual WHERE type = 'evt' AND alias LIKE {?}", $infos['short_name']."-%");
	202	// delete the requests for payments
	203	require_once('validations.inc.php');
	204	$globals->xdb->execute("DELETE FROM requests WHERE type = 'paiements' AND data LIKE {?}", PayReq::same_event($eid, $globals->asso('id')));
df8fe359	205	redirect("evenements.php");
258b9710	206	}
	207
	208	if (!$get_form)
be007d27	209	redirect("evenements.php");
258b9710	210
	211	// get a list of all the payment for this asso
	212	$res = $globals->xdb->iterator
	213	("SELECT id, text FROM {$globals->money->mpay_tprefix}paiements WHERE asso_id = {?}", $globals->asso('id'));
	214	$paiements = array();
	215	while ($a = $res->next()) $paiements[$a['id']] = $a['text'];
	216	$page->assign('paiements', $paiements);
	217
	218	// when modifying an old event retreive the old datas
	219	if ($eid) {
	220	$res = $globals->xdb->query(
	221	"SELECT eid, intitule, descriptif, debut, fin, membres_only, advertise, show_participants, paiement_id, short_name, deadline_inscription
	222	FROM groupex.evenements
	223	WHERE eid = {?}", $eid);
	224	$evt = $res->fetchOneAssoc();
	225	// find out if there is already a request for a payment for this event
	226	require_once('validations.inc.php');
	227	$res = $globals->xdb->query("SELECT stamp FROM requests WHERE type = 'paiements' AND data LIKE {?}", PayReq::same_event($eid, $globals->asso('id')));
	228	$stamp = $res->fetchOneCell();
	229	if ($stamp) {
	230	$evt['paiement_id'] = -2;
	231	$evt['paiement_req'] = $stamp;
	232	}
	233	$page->assign('evt', $evt);
	234	// get all the different moments infos
	235	$res = $globals->xdb->iterator(
	236	"SELECT item_id, titre, details, montant
	237	FROM groupex.evenements_items AS ei
	238	INNER JOIN groupex.evenements AS e ON(e.eid = ei.eid)
	239	WHERE e.eid = {?}
	240	ORDER BY item_id", $eid);
	241	$items = array();
	242	while ($item = $res->next()) $items[$item['item_id']] = $item;
	243	$page->assign('items', $items);
	244	}
	245
	246	$page->run();
	247
	248	?>