[platal.git] / modules / marketing.php

<?php
/***************************************************************************
 *  Copyright (C) 2003-2006 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                *
 ***************************************************************************/

class MarketingModule extends PLModule
{
    function handlers()
    {
        return array(
            'marketing'            => $this->make_hook('marketing',  AUTH_MDP, 'admin'),
            'marketing/promo'      => $this->make_hook('promo',      AUTH_MDP, 'admin'),
            'marketing/relance'    => $this->make_hook('relance',    AUTH_MDP, 'admin'),
            'marketing/this_week'  => $this->make_hook('week',       AUTH_MDP, 'admin'),
            'marketing/volontaire' => $this->make_hook('volontaire', AUTH_MDP, 'admin'),

            'marketing/private'    => $this->make_hook('private',    AUTH_MDP, 'admin'),
            'marketing/public'     => $this->make_hook('public',     AUTH_COOKIE),
        );
    }

    function handler_marketing(&$page)
    {
        global $globals;

        $page->changeTpl('marketing/index.tpl');

        $page->assign('xorg_title','Polytechnique.org - Marketing');

        // Quelques statistiques

        $res   = $globals->xdb->query(
                  "SELECT COUNT(*) AS vivants,
                          COUNT(NULLIF(perms='admin' OR perms='user', 0)) AS inscrits,
                          100*COUNT(NULLIF(perms='admin' OR perms='user', 0))/COUNT(*) AS ins_rate,
                          COUNT(NULLIF(promo >= 1972, 0)) AS vivants72,
                          COUNT(NULLIF(promo >= 1972 AND (perms='admin' OR perms='user'), 0)) AS inscrits72,
                          100 * COUNT(NULLIF(promo >= 1972 AND (perms='admin' OR perms='user'), 0)) /
                              COUNT(NULLIF(promo >= 1972, 0)) AS ins72_rate,
                          COUNT(NULLIF(FIND_IN_SET('femme', flags), 0)) AS vivantes,
                          COUNT(NULLIF(FIND_IN_SET('femme', flags) AND (perms='admin' OR perms='user'), 0)) AS inscrites,
                          100 * COUNT(NULLIF(FIND_IN_SET('femme', flags) AND (perms='admin' OR perms='user'), 0)) /
                              COUNT(NULLIF(FIND_IN_SET('femme', flags), 0)) AS inse_rate
                     FROM auth_user_md5
                    WHERE deces = 0");
        $stats = $res->fetchOneAssoc();
        $page->assign('stats', $stats);

        $res   = $globals->xdb->query("SELECT count(*) FROM auth_user_md5 WHERE date_ins > ".
                                      date('Ymd000000', strtotime('1 week ago')));
        $page->assign('nbInsSem', $res->fetchOneCell());

        $res = $globals->xdb->query("SELECT count(*) FROM register_pending WHERE hash != 'INSCRIT'");
        $page->assign('nbInsEnCours', $res->fetchOneCell());

        $res = $globals->xdb->query("SELECT count(*) FROM register_marketing");
        $page->assign('nbInsMarket', $res->fetchOneCell());

        $res = $globals->xdb->query("SELECT count(*) FROM register_mstats
                                      WHERE TO_DAYS(NOW()) - TO_DAYS(success) <= 7");
        $page->assign('nbInsMarkOK', $res->fetchOneCell());

        return PL_OK;
    }

    function handler_private(&$page, $uid = null)
    {
        global $globals;

        $page->changeTpl('marketing/private.tpl');

        if (is_null($uid)) {
            return PL_NOT_FOUND;
        }

        $res = $globals->xdb->query("SELECT nom, prenom, promo, matricule
                                       FROM auth_user_md5
                                      WHERE user_id={?} AND perms='pending'", $uid);

        if (list($nom, $prenom, $promo, $matricule) = $res->fetchOneRow()) {
            require_once('register.inc.php');
            $matricule_X = get_X_mat($matricule);
            $page->assign('nom', $nom);
            $page->assign('prenom', $prenom);
            $page->assign('promo', $promo);
            $page->assign('matricule', $matricule);
            $page->assign('matricule_X',$matricule_X);
        } else {
            $page->kill('uid invalide');
        }

        if (Env::has('del')) {
            $globals->xdb->execute('DELETE FROM register_marketing WHERE uid={?} AND email={?}',
                                   $uid, Env::get('del'));
        }

        if (Env::has('rel') && !Env::has('valider')) {
            require_once('marketing.inc.php');
            list($to, $title, $text) = mark_text_mail($uid, Env::get('rel'));
            $from = mark_from_mail($uid, Env::get('rel'));
            $page->assign('rel_from_user', $from);
            $page->assign('rel_from_staff',
                          "\"Equipe Polytechnique.org\" <register@polytechnique.org>");
            $page->assign('rel_to', $to);
            $page->assign('rel_title', $title);
            $page->assign('rel_text', $text);
        }

        if (Env::get('valider') == 'Envoyer') {
            require_once('marketing.inc.php');
            mark_send_mail($uid, Env::get('rel'), Env::get('from'),
                           Env::get('to'), Env::get('title'),
                           Env::get('message'));
            $page->trig("Mail envoyé");
        }

        if (Env::has('relance')) {
            require_once('marketing.inc.php');
            if (relance($uid)) {
                $page->trig('relance faite');
            }
        }

        if (Env::get('action') == 'ajouter') {
            $globals->xdb->execute(
                "INSERT INTO register_marketing
                         SET uid = {?}, sender = {?}, email = {?},
                             date = NOW(), type = {?}",
                $uid, Session::get('uid'), Env::get('email'), Env::get('type')); 
        }

        $res = $globals->xdb->iterator(
                "SELECT  r.*, a.alias
                   FROM  register_marketing AS r
             INNER JOIN  aliases            AS a ON (r.sender=a.id AND a.type = 'a_vie')
                  WHERE  uid={?}
               ORDER BY  date", $uid);
        $page->assign('addr', $res);

        $res = $globals->xdb->query("SELECT date, relance FROM register_pending
                                      WHERE uid = {?}", $uid);
        if (list($pending, $relance) = $res->fetchOneCell()) {
            $page->assign('pending', $pending);
            $page->assign('relance', $relance);
        }

        return PL_OK;
    }

    function handler_promo(&$page, $promo = null)
    {
        global $globals;

        $page->changeTpl('marketing/promo.tpl');

        if (is_null($promo)) {
            $promo = Session::getInt('promo');
        }
        $page->assign('promo', $promo);

        $sql = "SELECT  u.user_id, u.nom, u.prenom, u.last_known_email, u.matricule_ax,
                        IF(MAX(m.last)>p.relance, MAX(m.last), p.relance) AS dern_rel, p.email
                  FROM  auth_user_md5      AS u
             LEFT JOIN  register_pending   AS p ON p.uid = u.user_id
             LEFT JOIN  register_marketing AS m ON m.uid = u.user_id
                 WHERE  u.promo = {?} AND u.deces = 0 AND u.perms='pending'
              GROUP BY  u.user_id
              ORDER BY  nom, prenom";
        $page->assign('nonins', $globals->xdb->iterator($sql, $promo));

        return PL_OK;
    }

    function handler_public(&$page, $uid = null)
    {
        global $globals;

        $page->changeTpl('marketing/public.tpl');

        if (is_null($uid)) {
            return PL_NOT_FOUND;
        }

        $res = $globals->xdb->query("SELECT nom, prenom, promo FROM auth_user_md5
                                      WHERE user_id={?} AND perms='pending'", $uid);

        if (list($nom, $prenom, $promo) = $res->fetchOneRow()) {
            $page->assign('prenom', $prenom);
            $page->assign('nom', $nom);
            $page->assign('promo', $promo);

            if (Env::has('valide')) {
                require_once('xorg.misc.inc.php');

                $email = trim(Env::get('mail'));
                $res   = $globals->xdb->query('SELECT COUNT(*) FROM register_marketing
                                                WHERE uid={?} AND email={?}', $uid, $email);

                if (!isvalid_email_redirection($email)) {
                    $page->trig("Email invalide !");
                } elseif ($res->fetchOneCell()) {
                    $page->assign('already', true);
                } else {
                    $page->assign('ok', true);
                    $globals->xdb->execute(
                            "INSERT INTO  register_marketing (uid,sender,email,date,last,nb,type,hash)
                                  VALUES  ({?}, {?}, {?}, NOW(), 0, 0, {?}, '')",
                            $uid, Session::getInt('uid'), $email, Env::get('origine'));
                    require_once('validations.inc.php');
                    $req = new MarkReq(Session::getInt('uid'), $uid, $email,
                                       Env::get('origine')=='user');
                    $req->submit();
                }
            }
        }

        return PL_OK;
    }

    function handler_week(&$page)
    {
        global $globals;

        $page->changeTpl('marketing/this_week.tpl');

        $sort = Get::get('sort') == 'promo' ? 'promo' : 'date_ins';

        $sql = "SELECT  a.alias AS forlife, u.date_ins, u.promo, u.nom, u.prenom
                  FROM  auth_user_md5  AS u
            INNER JOIN  aliases        AS a ON (u.user_id = a.id AND a.type='a_vie')
                 WHERE  u.date_ins > ".date("Ymd000000", strtotime ('1 week ago'))."
              ORDER BY  u.$sort DESC";
        $page->assign('ins', $globals->xdb->iterator($sql));

        return PL_OK;
    }

    function handler_volontaire(&$page)
    {
        global $globals;

        $page->changeTpl('marketing/volontaire.tpl');

        $res = $globals->xdb->query(
                "SELECT
               DISTINCT  a.promo
                   FROM  register_marketing AS m
             INNER JOIN  auth_user_md5      AS a  ON a.user_id = m.uid
               ORDER BY  a.promo");
        $page->assign('promos', $res->fetchColumn());


        if (Env::has('promo')) {
            $sql = "SELECT  a.nom, a.prenom, a.user_id,
                            m.email, sa.alias AS forlife
                      FROM  register_marketing AS m
                INNER JOIN  auth_user_md5      AS a  ON a.user_id = m.uid AND a.promo = {?}
                INNER JOIN  aliases            AS sa ON (m.sender = sa.id AND sa.type='a_vie')
                  ORDER BY  a.nom";
            $page->assign('addr', $globals->xdb->iterator($sql, Env::get('promo')));
        }

        return PL_OK;
    }

    function handler_relance(&$page)
    {
        global $globals;

        $page->changeTpl('marketing/relance.tpl');

        if (Post::has('relancer')) {
            $res   = $globals->xdb->query("SELECT COUNT(*) FROM auth_user_md5 WHERE deces=0");
            $nbdix = $res->fetchOneCell();

            $sent  = Array();
            foreach (array_keys($_POST['relance']) as $uid) {
                if ($tmp = relance($uid, $nbdix)) {
                    $sent[] = $tmp.' a été relancé';
                }
            }
            $page->assign('sent', $sent);
        }

        $sql = "SELECT  r.date, r.relance, r.uid, u.promo, u.nom, u.prenom
                  FROM  register_pending AS r
            INNER JOIN  auth_user_md5    AS u ON r. uid = u.user_id
                 WHERE  hash!='INSCRIT'
              ORDER BY  date DESC";
        $page->assign('relance', $globals->xdb->iterator($sql));

        return PL_OK;
    }
}

?>
Commit	Line	Data
10b057be	1	<?php
	2	/***************************************************************************
	3	* Copyright (C) 2003-2006 Polytechnique.org *
	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	class MarketingModule extends PLModule
	23	{
	24	function handlers()
	25	{
	26	return array(
	27	'marketing' => $this->make_hook('marketing', AUTH_MDP, 'admin'),
	28	'marketing/promo' => $this->make_hook('promo', AUTH_MDP, 'admin'),
	29	'marketing/relance' => $this->make_hook('relance', AUTH_MDP, 'admin'),
	30	'marketing/this_week' => $this->make_hook('week', AUTH_MDP, 'admin'),
	31	'marketing/volontaire' => $this->make_hook('volontaire', AUTH_MDP, 'admin'),
	32
	33	'marketing/private' => $this->make_hook('private', AUTH_MDP, 'admin'),
	34	'marketing/public' => $this->make_hook('public', AUTH_COOKIE),
	35	);
	36	}
	37
	38	function handler_marketing(&$page)
	39	{
	40	global $globals;
	41
	42	$page->changeTpl('marketing/index.tpl');
	43
	44	$page->assign('xorg_title','Polytechnique.org - Marketing');
	45
	46	// Quelques statistiques
	47
	48	$res = $globals->xdb->query(
	49	"SELECT COUNT(*) AS vivants,
	50	COUNT(NULLIF(perms='admin' OR perms='user', 0)) AS inscrits,
	51	100COUNT(NULLIF(perms='admin' OR perms='user', 0))/COUNT() AS ins_rate,
	52	COUNT(NULLIF(promo >= 1972, 0)) AS vivants72,
	53	COUNT(NULLIF(promo >= 1972 AND (perms='admin' OR perms='user'), 0)) AS inscrits72,
	54	100 * COUNT(NULLIF(promo >= 1972 AND (perms='admin' OR perms='user'), 0)) /
	55	COUNT(NULLIF(promo >= 1972, 0)) AS ins72_rate,
	56	COUNT(NULLIF(FIND_IN_SET('femme', flags), 0)) AS vivantes,
	57	COUNT(NULLIF(FIND_IN_SET('femme', flags) AND (perms='admin' OR perms='user'), 0)) AS inscrites,
	58	100 * COUNT(NULLIF(FIND_IN_SET('femme', flags) AND (perms='admin' OR perms='user'), 0)) /
	59	COUNT(NULLIF(FIND_IN_SET('femme', flags), 0)) AS inse_rate
	60	FROM auth_user_md5
	61	WHERE deces = 0");
	62	$stats = $res->fetchOneAssoc();
	63	$page->assign('stats', $stats);
	64
65	$res = $globals->xdb->query("SELECT count(*) FROM auth_user_md5 WHERE date_ins > ".
66	date('Ymd000000', strtotime('1 week ago')));
67	$page->assign('nbInsSem', $res->fetchOneCell());
68
69	$res = $globals->xdb->query("SELECT count(*) FROM register_pending WHERE hash != 'INSCRIT'");
70	$page->assign('nbInsEnCours', $res->fetchOneCell());
71
72	$res = $globals->xdb->query("SELECT count(*) FROM register_marketing");
73	$page->assign('nbInsMarket', $res->fetchOneCell());
74
75	$res = $globals->xdb->query("SELECT count(*) FROM register_mstats
76	WHERE TO_DAYS(NOW()) - TO_DAYS(success) <= 7");
77	$page->assign('nbInsMarkOK', $res->fetchOneCell());
78
79	return PL_OK;
80	}
81
82	function handler_private(&$page, $uid = null)
83	{
84	global $globals;
85
86	$page->changeTpl('marketing/private.tpl');
87
88	if (is_null($uid)) {
89	return PL_NOT_FOUND;
90	}
91
92	$res = $globals->xdb->query("SELECT nom, prenom, promo, matricule
93	FROM auth_user_md5
94	WHERE user_id={?} AND perms='pending'", $uid);
95
96	if (list($nom, $prenom, $promo, $matricule) = $res->fetchOneRow()) {
97	require_once('register.inc.php');
98	$matricule_X = get_X_mat($matricule);
0025a0c5	99	$page->assign('nom', $nom);
	100	$page->assign('prenom', $prenom);
	101	$page->assign('promo', $promo);
	102	$page->assign('matricule', $matricule);
10b057be	103	$page->assign('matricule_X',$matricule_X);
	104	} else {
	105	$page->kill('uid invalide');
	106	}
	107
	108	if (Env::has('del')) {
	109	$globals->xdb->execute('DELETE FROM register_marketing WHERE uid={?} AND email={?}',
	110	$uid, Env::get('del'));
	111	}
	112
	113	if (Env::has('rel') && !Env::has('valider')) {
	114	require_once('marketing.inc.php');
	115	list($to, $title, $text) = mark_text_mail($uid, Env::get('rel'));
	116	$from = mark_from_mail($uid, Env::get('rel'));
	117	$page->assign('rel_from_user', $from);
	118	$page->assign('rel_from_staff',
	119	"\"Equipe Polytechnique.org\" <register@polytechnique.org>");
	120	$page->assign('rel_to', $to);
	121	$page->assign('rel_title', $title);
	122	$page->assign('rel_text', $text);
	123	}
	124
	125	if (Env::get('valider') == 'Envoyer') {
	126	require_once('marketing.inc.php');
	127	mark_send_mail($uid, Env::get('rel'), Env::get('from'),
	128	Env::get('to'), Env::get('title'),
	129	Env::get('message'));
	130	$page->trig("Mail envoyé");
	131	}
	132
	133	if (Env::has('relance')) {
	134	require_once('marketing.inc.php');
	135	if (relance($uid)) {
	136	$page->trig('relance faite');
	137	}
	138	}
	139
	140	if (Env::get('action') == 'ajouter') {
	141	$globals->xdb->execute(
	142	"INSERT INTO register_marketing
	143	SET uid = {?}, sender = {?}, email = {?},
	144	date = NOW(), type = {?}",
	145	$uid, Session::get('uid'), Env::get('email'), Env::get('type'));
	146	}
	147
	148	$res = $globals->xdb->iterator(
	149	"SELECT r.*, a.alias
	150	FROM register_marketing AS r
	151	INNER JOIN aliases AS a ON (r.sender=a.id AND a.type = 'a_vie')
	152	WHERE uid={?}
	153	ORDER BY date", $uid);
	154	$page->assign('addr', $res);
	155
	156	$res = $globals->xdb->query("SELECT date, relance FROM register_pending
	157	WHERE uid = {?}", $uid);
	158	if (list($pending, $relance) = $res->fetchOneCell()) {
0025a0c5	159	$page->assign('pending', $pending);
0025a0c5	160	$page->assign('relance', $relance);
10b057be	161	}
	162
	163	return PL_OK;
	164	}
	165
	166	function handler_promo(&$page, $promo = null)
	167	{
	168	global $globals;
	169
	170	$page->changeTpl('marketing/promo.tpl');
	171
0025a0c5	172	if (is_null($promo)) {
0025a0c5	173	$promo = Session::getInt('promo');
10b057be	174	}
	175	$page->assign('promo', $promo);
	176
	177	$sql = "SELECT u.user_id, u.nom, u.prenom, u.last_known_email, u.matricule_ax,
	178	IF(MAX(m.last)>p.relance, MAX(m.last), p.relance) AS dern_rel, p.email
	179	FROM auth_user_md5 AS u
	180	LEFT JOIN register_pending AS p ON p.uid = u.user_id
	181	LEFT JOIN register_marketing AS m ON m.uid = u.user_id
	182	WHERE u.promo = {?} AND u.deces = 0 AND u.perms='pending'
	183	GROUP BY u.user_id
	184	ORDER BY nom, prenom";
	185	$page->assign('nonins', $globals->xdb->iterator($sql, $promo));
	186
	187	return PL_OK;
	188	}
	189
	190	function handler_public(&$page, $uid = null)
	191	{
	192	global $globals;
	193
	194	$page->changeTpl('marketing/public.tpl');
	195
	196	if (is_null($uid)) {
	197	return PL_NOT_FOUND;
	198	}
	199
	200	$res = $globals->xdb->query("SELECT nom, prenom, promo FROM auth_user_md5
	201	WHERE user_id={?} AND perms='pending'", $uid);
	202
	203	if (list($nom, $prenom, $promo) = $res->fetchOneRow()) {
	204	$page->assign('prenom', $prenom);
	205	$page->assign('nom', $nom);
	206	$page->assign('promo', $promo);
	207
	208	if (Env::has('valide')) {
	209	require_once('xorg.misc.inc.php');
	210
	211	$email = trim(Env::get('mail'));
	212	$res = $globals->xdb->query('SELECT COUNT(*) FROM register_marketing
	213	WHERE uid={?} AND email={?}', $uid, $email);
	214
	215	if (!isvalid_email_redirection($email)) {
	216	$page->trig("Email invalide !");
	217	} elseif ($res->fetchOneCell()) {
	218	$page->assign('already', true);
	219	} else {
	220	$page->assign('ok', true);
	221	$globals->xdb->execute(
	222	"INSERT INTO register_marketing (uid,sender,email,date,last,nb,type,hash)
	223	VALUES ({?}, {?}, {?}, NOW(), 0, 0, {?}, '')",
	224	$uid, Session::getInt('uid'), $email, Env::get('origine'));
	225	require_once('validations.inc.php');
	226	$req = new MarkReq(Session::getInt('uid'), $uid, $email,
	227	Env::get('origine')=='user');
	228	$req->submit();
	229	}
	230	}
	231	}
	232
	233	return PL_OK;
	234	}
	235
	236	function handler_week(&$page)
	237	{
238	global $globals;
239
240	$page->changeTpl('marketing/this_week.tpl');
241
242	$sort = Get::get('sort') == 'promo' ? 'promo' : 'date_ins';
243
244	$sql = "SELECT a.alias AS forlife, u.date_ins, u.promo, u.nom, u.prenom
245	FROM auth_user_md5 AS u
246	INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type='a_vie')
247	WHERE u.date_ins > ".date("Ymd000000", strtotime ('1 week ago'))."
248	ORDER BY u.$sort DESC";
249	$page->assign('ins', $globals->xdb->iterator($sql));
250
251	return PL_OK;
252	}
253
254	function handler_volontaire(&$page)
255	{
256	global $globals;
257
258	$page->changeTpl('marketing/volontaire.tpl');
259
260	$res = $globals->xdb->query(
261	"SELECT
262	DISTINCT a.promo
263	FROM register_marketing AS m
264	INNER JOIN auth_user_md5 AS a ON a.user_id = m.uid
265	ORDER BY a.promo");
266	$page->assign('promos', $res->fetchColumn());
267
268
269	if (Env::has('promo')) {
270	$sql = "SELECT a.nom, a.prenom, a.user_id,
271	m.email, sa.alias AS forlife
272	FROM register_marketing AS m
273	INNER JOIN auth_user_md5 AS a ON a.user_id = m.uid AND a.promo = {?}
274	INNER JOIN aliases AS sa ON (m.sender = sa.id AND sa.type='a_vie')
275	ORDER BY a.nom";
276	$page->assign('addr', $globals->xdb->iterator($sql, Env::get('promo')));
277	}
278
279	return PL_OK;
280	}
281
282	function handler_relance(&$page)
283	{
284	global $globals;
285
286	$page->changeTpl('marketing/relance.tpl');
287
288	if (Post::has('relancer')) {
289	$res = $globals->xdb->query("SELECT COUNT(*) FROM auth_user_md5 WHERE deces=0");
290	$nbdix = $res->fetchOneCell();
291
292	$sent = Array();
293	foreach (array_keys($_POST['relance']) as $uid) {
294	if ($tmp = relance($uid, $nbdix)) {
295	$sent[] = $tmp.' a été relancé';
296	}
297	}
298	$page->assign('sent', $sent);
299	}
300
301	$sql = "SELECT r.date, r.relance, r.uid, u.promo, u.nom, u.prenom
302	FROM register_pending AS r
303	INNER JOIN auth_user_md5 AS u ON r. uid = u.user_id
304	WHERE hash!='INSCRIT'
305	ORDER BY date DESC";
306	$page->assign('relance', $globals->xdb->iterator($sql));
307
308	return PL_OK;
309	}
310	}
311
312	?>