3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2013 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
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 \***************************************************************************/
13 if (!defined("_ECRIRE_INC_VERSION")) return; #securite
15 include_spip('inc/acces');
16 include_spip('inc/texte');
17 include_spip('inc/forum');
19 /*******************************/
20 /* GESTION DU FORMULAIRE FORUM */
21 /*******************************/
24 * Contexte du formulaire
25 * Mots-cles dans les forums :
26 * Si la variable de personnalisation $afficher_groupe[] est definie
27 * dans le fichier d'appel, et si la table de reference est OK, proposer
28 * la liste des mots-cles
29 * #FORMULAIRE_FORUM seul calcule (objet, id_objet) depuis la boucle parente
30 * #FORMULAIRE_FORUM{#SELF} pour forcer l'url de retour
31 * #FORMULAIRE_FORUM{#SELF, article, 3} pour forcer l'objet et son identifiant
32 * http://doc.spip.org/@balise_FORMULAIRE_FORUM
37 function balise_FORMULAIRE_FORUM ($p) {
39 * On recupere $objet et $id_objet depuis une boucle englobante si possible
40 * Sinon, on essaie aussi de recuperer des id_xx dans l'URL qui pourraient indiquer
41 * sur quoi le formulaire porte.
42 * Enfin, on pourra aussi forcer objet et id_objet depuis l'appel du formulaire
45 $i_boucle = $p->nom_boucle ?
$p->nom_boucle
: $p->id_boucle
;
46 $_id_objet = $p->boucles
[$i_boucle]->primary
;
47 $_type = $p->boucles
[$i_boucle]->id_table
;
50 * On essaye de trouver les forums en fonction de l'environnement
51 * pour cela, on recupere l'ensemble des id_xxx possibles dans l'env
53 $ids = forum_get_objets_depuis_env();
54 $ids = array_values($ids);
65 $obtenir = array_merge($obtenir, $ids);
68 $p = calculer_balise_dynamique($p,'FORMULAIRE_FORUM', $obtenir,
69 array("'$_type'", count($ids))
72 // Ajouter le code d'invalideur specifique aux forums
73 include_spip('inc/invalideur');
74 if ($i = charger_fonction('code_invalideur_forums', '', true)) {
75 $p->code
= $i($p, $p->code
);
82 * Chercher l'objet/id_objet et la configuration du forum
84 * http://doc.spip.org/@balise_FORMULAIRE_FORUM_stat
87 * @param array $context_compil
90 function balise_FORMULAIRE_FORUM_stat($args, $context_compil) {
93 // un arg peut contenir l'url sur lequel faire le retour
94 // exemple dans un squelette article.html : [(#FORMULAIRE_FORUM{#SELF})]
95 // recuperer les donnees du forum auquel on repond.
96 // deux autres a la suite pour forcer objet et id_objet
97 // [(#FORMULAIRE_FORUM{#SELF, article, 8})]
99 // $args = (obtenir) + (ids) + (url, objet, id_objet)
100 $ido = array_shift($args);
101 $id_forum = intval(array_shift($args));
102 $ajouter_mot = array_shift($args);
103 $ajouter_groupe = array_shift($args);
104 $afficher_texte = array_shift($args);
106 $r = balise_forum_retrouve_objet($ido,$id_forum,$args,$context_compil);
110 list($objet, $id_objet, $retour) = $r;
112 // on verifie ici si on a le droit de poster sur ce forum
113 // doublonne le test dans le formulaire, mais permet d'utiliser la balise
114 // pour conditionner l'affichage d'un titre le precedant
115 // (ie compatibilite)
116 $accepter_forum = controler_forum($objet, $id_objet);
117 if ($accepter_forum == 'non')
122 $id_objet, $id_forum, $ajouter_mot, $ajouter_groupe, $afficher_texte, $retour);
127 * @param int $id_forum
129 * @param array $context_compil
130 * @param bool $objet_obligatoire
133 function balise_forum_retrouve_objet($ido,$id_forum,$args,$context_compil, $objet_obligatoire = true){
134 $_objet = $context_compil[5]; // type le la boucle deja calcule
135 $nb_ids_env = $context_compil[6]; // nombre d'elements id_xx recuperes
137 $url = isset($args[$nb]) ?
$args[$nb] : '';
138 $objet = isset($args[++
$nb]) ?
$args[$nb] : '';
139 $id_objet = isset($args[++
$nb]) ?
$args[$nb] : 0;
141 // pas d'objet force ? on prend le type de boucle calcule
144 $id_objet = intval($ido);
146 $id_objet = intval($id_objet);
148 unset($_objet, $ido);
150 $objet = objet_type($objet);
152 // on tente de prendre l'objet issu de l'environnement si un n'a pas pu etre calcule
154 $objets = forum_get_objets_depuis_env();
155 $ids = array(); $i = 0;
156 foreach ($objets as $o => $ido) {
157 if ($id = $args[$i]) {
163 if (isset($ids['rubrique'])) {
164 unset($ids['rubrique']);
167 if (count($ids) == 1) {
169 $id_objet = array_shift($ids);
174 // et si on n'a toujours pas ce qu'on souhaite, on tente de le trouver dans un forum existant...
175 if (($objet=='forum' OR !$id_objet) and $id_forum){
176 if ($objet = sql_fetsel(array('id_objet', 'objet'), 'spip_forum', 'id_forum=' . intval($id_forum))) {
177 $id_objet = $objet['id_objet'];
178 $objet = $objet['objet'];
180 if ($objet_obligatoire)
184 // vraiment la... faut pas exagerer !
185 if ($objet_obligatoire AND !$id_objet) {
189 return array($objet,$id_objet,$url);