squellete2
[aidenligne_francais_universite.git] / ecrire / action / regler_moderation.php
1 <?php
2
3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
5 * *
6 * Copyright (c) 2001-2007 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
8 * *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
12
13 if (!defined("_ECRIRE_INC_VERSION")) return;
14
15 // Modifier le reglage des forums publics de l'article x
16 // http://doc.spip.org/@action_regler_moderation_dist
17 function action_regler_moderation_dist()
18 {
19 include_spip('inc/autoriser');
20
21 $securiser_action = charger_fonction('securiser_action', 'inc');
22 $arg = $securiser_action();
23
24 if (!preg_match(",^\W*(\d+)$,", $arg, $r)) {
25 spip_log("action_regler_moderation_dist $arg pas compris");
26 return;
27 }
28
29 $id_article = $r[1];
30 if (!autoriser('modifier', 'article', $id_article))
31 return;
32
33 $statut = _request('change_accepter_forum');
34 spip_query("UPDATE spip_articles SET accepter_forum='$statut' WHERE id_article=". $id_article);
35 if ($statut == 'abo') {
36 ecrire_meta('accepter_visiteurs', 'oui');
37 ecrire_metas();
38 }
39 include_spip('inc/invalideur');
40 suivre_invalideur("id='id_forum/a$id_article'");
41 }
42 ?>