+
+ function handler_admin_events(&$page, $action = 'list', $eid = null)
+ {
+ $page->changeTpl('admin/evenements.tpl');
+ $page->assign('xorg_title','Polytechnique.org - Administration - Evenements');
+ $page->register_modifier('hde', 'html_entity_decode');
+
+ $arch = $action == 'archives';
+ $page->assign('action', $action);
+
+ if (Post::v('action') == "Proposer" && $eid) {
+ $promo_min = Post::i('promo_min');
+ $promo_max = Post::i('promo_max');
+ if ($promo_min > $promo_max ||
+ ($promo_min != 0 && ($promo_min <= 1900 || $promo_min >= 2020)) ||
+ ($promo_max != 0 && ($promo_max <= 1900 || $promo_max >= 2020)))
+ {
+ $page->trig("L'intervalle de promotions $promo_min -> $promo_max n'est pas valide");
+ $action = 'edit';
+ } else {
+ XDB::execute('UPDATE evenements
+ SET titre={?}, texte={?}, peremption={?}, promo_min={?}, promo_max={?}
+ WHERE id = {?}',
+ Post::v('titre'), Post::v('texte'), Post::v('peremption'),
+ Post::v('promo_min'), Post::v('promo_max'), $eid);
+ }
+ }
+
+ if ($action == 'edit') {
+ $res = XDB::query('SELECT titre, texte, peremption, promo_min, promo_max
+ FROM evenements
+ WHERE id={?}', $eid);
+ list($titre, $texte, $peremption, $promo_min, $promo_max) = $res->fetchOneRow();
+ $page->assign('titre',$titre);
+ $page->assign('texte',$texte);
+ $page->assign('promo_min',$promo_min);
+ $page->assign('promo_max',$promo_max);
+ $page->assign('peremption',$peremption);
+
+ $select = "";
+ for ($i = 1 ; $i < 30 ; $i++) {
+ $p_stamp=date("Ymd",time()+3600*24*$i);
+ $year=substr($p_stamp,0,4);
+ $month=substr($p_stamp,4,2);
+ $day=substr($p_stamp,6,2);
+
+ $select .= "<option value=\"$p_stamp\""
+ . (($p_stamp == strtr($peremption, array("-" => ""))) ? " selected" : "")
+ . "> $day / $month / $year</option>\n";
+ }
+ $page->assign('select',$select);
+ } else {
+ switch ($action) {
+ case 'delete':
+ XDB::execute('DELETE from evenements
+ WHERE id = {?}', $eid);
+ break;
+
+ case "archive":
+ XDB::execute('UPDATE evenements
+ SET creation_date = creation_date, flags = CONCAT(flags,",archive")
+ WHERE id = {?}', $eid);
+ break;
+
+ case "unarchive":
+ XDB::execute('UPDATE evenements
+ SET creation_date = creation_date, flags = REPLACE(flags,"archive","")
+ WHERE id = {?}', $eid);
+ $action = 'archives';
+ $arch = true;
+ break;
+
+ case "valid":
+ XDB::execute('UPDATE evenements
+ SET creation_date = creation_date, flags = CONCAT(flags,",valide")
+ WHERE id = {?}', $eid);
+ break;
+
+ case "unvalid":
+ XDB::execute('UPDATE evenements
+ SET creation_date = creation_date, flags = REPLACE(flags,"valide", "")
+ WHERE id = {?}', $eid);
+ break;
+ }
+
+ $pid = ($eid && $action == 'preview') ? $eid : -1;
+ $sql = "SELECT e.id, e.titre, e.texte,e.id = $pid AS preview,
+ DATE_FORMAT(e.creation_date,'%d/%m/%Y %T') AS creation_date,
+ DATE_FORMAT(e.peremption,'%d/%m/%Y') AS peremption,
+ e.promo_min, e.promo_max,
+ FIND_IN_SET('valide', e.flags) AS fvalide,
+ FIND_IN_SET('archive', e.flags) AS farch,
+ u.promo, u.nom, u.prenom, a.alias AS forlife
+ FROM evenements AS e
+ INNER JOIN auth_user_md5 AS u ON(e.user_id = u.user_id)
+ INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type='a_vie')
+ WHERE ".($arch ? "" : "!")."FIND_IN_SET('archive',e.flags)
+ ORDER BY FIND_IN_SET('valide',e.flags), e.peremption DESC";
+ $page->assign('evs', XDB::iterator($sql));
+ }
+ $page->assign('arch', $arch);
+ }
+
+ function handler_admin_nl(&$page, $new = false) {
+ $page->changeTpl('newsletter/admin.tpl');
+ $page->assign('xorg_title','Polytechnique.org - Administration - Newsletter : liste');
+ require_once("newsletter.inc.php");
+
+ if($new) {
+ insert_new_nl();
+ pl_redirect("admin/newsletter");
+ }
+
+ $page->assign('nl_list', get_nl_slist());
+ }
+
+ function handler_admin_nl_edit(&$page, $nid = 'last', $aid = null, $action = 'edit') {
+ $page->changeTpl('newsletter/edit.tpl');
+ $page->assign('xorg_title','Polytechnique.org - Administration - Newsletter : Edition');
+ require_once("newsletter.inc.php");
+
+ $nl = new NewsLetter($nid);
+
+ if($action == 'delete') {
+ $nl->delArticle($aid);
+ pl_redirect("admin/newsletter/edit/$nid");
+ }
+
+ if($aid == 'update') {
+ $nl->_title = Post::v('title');
+ $nl->_title_mail= Post::v('title_mail');
+ $nl->_date = Post::v('date');
+ $nl->_head = Post::v('head');
+ $nl->_shortname = strlen(Post::v('shortname')) ? Post::v('shortname') : null;
+ if (preg_match('/^[-a-z0-9]*$/i', $nl->_shortname) && !is_numeric($nl->_shortname)) {
+ $nl->save();
+ } else {
+ $page->trig('Le nom de la NL n\'est pas valide');
+ pl_redirect('admin/newsletter/edit/' . $nl->_id);
+ }
+ }
+
+ if(Post::v('save')) {
+ $art = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'),
+ $aid, Post::v('cid'), Post::v('pos'));
+ $nl->saveArticle($art);
+ pl_redirect("admin/newsletter/edit/$nid");
+ }
+
+ if($action == 'edit' && $aid != 'update') {
+ $eaid = $aid;
+ if(Post::has('title')) {
+ $art = new NLArticle(Post::v('title'), Post::v('body'), Post::v('append'),
+ $eaid, Post::v('cid'), Post::v('pos'));
+ } else {
+ $art = ($eaid == 'new') ? new NLArticle() : $nl->getArt($eaid);
+ }
+ $page->assign('art', $art);
+ }
+
+ $page->assign_by_ref('nl',$nl);
+ }
+ function handler_admin_nl_cat(&$page, $action = 'list', $id = null) {
+ $page->assign('xorg_title','Polytechnique.org - Administration - Newsletter : Catégories');
+ $page->assign('title', 'Gestion des catégories de la newsletter');
+ $table_editor = new PLTableEditor('admin/newsletter/categories','newsletter_cat','cid');
+ $table_editor->describe('titre','intitulé',true);
+ $table_editor->describe('pos','position',true);
+ $table_editor->apply($page, $action, $id);
+ }
+