[SPIP][PLUGINS] v3.0-->v3.2
[lhc/web/www.git] / www / ecrire / inc / rubriques.php
index e1ccdaa..e3cf0c5 100644 (file)
@@ -3,7 +3,7 @@
 /***************************************************************************\
  *  SPIP, Systeme de publication pour l'internet                           *
  *                                                                         *
- *  Copyright (c) 2001-2016                                                *
+ *  Copyright (c) 2001-2017                                                *
  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
  *                                                                         *
  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
 /**
  * Fichier gérant l'actualisation et le suivi des rubriques, et de leurs branches
  *
- * @package SPIP\Rubriques
+ * @package SPIP\Core\Rubriques
  */
-if (!defined('_ECRIRE_INC_VERSION')) return;
+
+if (!defined('_ECRIRE_INC_VERSION')) {
+       return;
+}
 
 
 /**
  * Recalcule les statuts d'une rubrique
- * 
+ *
  * Fonction à appeler lorsque le statut d'un objet change dans une rubrique
  * ou que la rubrique est deplacée.
- * 
+ *
  * Si le statut passe a "publie", la rubrique et ses parents y passent aussi
  * et les langues utilisees sont recalculées.
  * Conséquences symétriques s'il est depublié.
- * 
+ *
  * S'il est deplacé alors qu'il était publiée, double conséquence.
- * 
+ *
  * Tout cela devrait passer en SQL, sous forme de Cascade SQL.
  *
+ * @uses depublier_branche_rubrique_if()
+ * @uses calculer_prochain_postdate()
+ * @uses publier_branche_rubrique()
+ *
  * @param int $id_rubrique
  *     Identifiant de la rubrique
  * @param array $modifs
@@ -46,35 +52,36 @@ if (!defined('_ECRIRE_INC_VERSION')) return;
  *     true pour recalculer aussi la date du prochain article post-daté
  * @return bool
  *     true si le statut change effectivement
-**/
-function calculer_rubriques_if ($id_rubrique, $modifs, $statut_ancien='', $postdate = false)
-{
+ **/
+function calculer_rubriques_if($id_rubrique, $modifs, $statut_ancien = '', $postdate = false) {
        $neuf = false;
        if ($statut_ancien == 'publie') {
                if (isset($modifs['statut'])
-                       OR isset($modifs['id_rubrique'])
-                       OR ($postdate AND strtotime($postdate)>time()))
+                       or isset($modifs['id_rubrique'])
+                       or ($postdate and strtotime($postdate) > time())
+               ) {
                        $neuf |= depublier_branche_rubrique_if($id_rubrique);
+               }
                // ne publier que si c'est pas un postdate, ou si la date n'est pas dans le futur
-               if ($postdate){
+               if ($postdate) {
                        calculer_prochain_postdate(true);
-                       $neuf |= (strtotime($postdate)<=time()); // par securite
-               }
-               elseif (isset($modifs['id_rubrique']))
+                       $neuf |= (strtotime($postdate) <= time()); // par securite
+               } elseif (isset($modifs['id_rubrique'])) {
                        $neuf |= publier_branche_rubrique($modifs['id_rubrique']);
-       }
-       elseif ($modifs['statut']=='publie'){
-               if ($postdate){
-                       calculer_prochain_postdate(true);
-                       $neuf |= (strtotime($postdate)<=time()); // par securite
                }
-               else
+       } elseif (isset($modifs['statut']) and $modifs['statut'] == 'publie') {
+               if ($postdate) {
+                       calculer_prochain_postdate(true);
+                       $neuf |= (strtotime($postdate) <= time()); // par securite
+               } else {
                        $neuf |= publier_branche_rubrique($id_rubrique);
+               }
        }
 
-       if ($neuf)
-       // Sauver la date de la derniere mise a jour (pour menu_rubriques)
-         ecrire_meta("date_calcul_rubriques", date("U"));
+       if ($neuf) // Sauver la date de la derniere mise a jour (pour menu_rubriques)
+       {
+               ecrire_meta("date_calcul_rubriques", date("U"));
+       }
 
        $langues = calculer_langues_utilisees();
        ecrire_meta('langues_utilisees', $langues);
@@ -83,26 +90,28 @@ function calculer_rubriques_if ($id_rubrique, $modifs, $statut_ancien='', $postd
 
 /**
  * Publie une rubrique et sa hiérarchie de rubriques
- * 
+ *
  * Fonction à appeler lorsqu'on dépublie ou supprime quelque chose
- * dans une rubrique. 
+ * dans une rubrique.
  *
  * @todo Le nom de la fonction est trompeur, vu que la fonction remonte dans la hierarchie !
- * 
+ *
  * @param int $id_rubrique
  *     Identifiant de la rubrique
  * @return bool
  *     true si le statut change effectivement
  */
-function publier_branche_rubrique($id_rubrique)
-{
+function publier_branche_rubrique($id_rubrique) {
        $id_pred = $id_rubrique;
        while (true) {
-               sql_updateq('spip_rubriques', array('statut'=>'publie', 'date'=>date('Y-m-d H:i:s')), "id_rubrique=$id_rubrique");
-               $id_parent = sql_getfetsel('id_parent', 'spip_rubriques AS R', "R.id_rubrique=$id_rubrique");
-               if (!$id_parent) break;
+               sql_updateq('spip_rubriques', array('statut' => 'publie', 'date' => date('Y-m-d H:i:s')),
+                       "id_rubrique=" . intval($id_rubrique));
+               $id_parent = sql_getfetsel('id_parent', 'spip_rubriques AS R', "R.id_rubrique=" . intval($id_rubrique));
+               if (!$id_parent) {
+                       break;
+               }
                $id_rubrique = $id_parent;
-       } 
+       }
 
 #      spip_log(" publier_branche_rubrique($id_rubrique $id_pred");
        return $id_pred != $id_rubrique;
@@ -110,28 +119,30 @@ function publier_branche_rubrique($id_rubrique)
 
 /**
  * Dépublie si nécessaire des éléments d'une hiérarchie de rubriques
- * 
+ *
  * Fonction à appeler lorsqu'on dépublie ou supprime quelque chose
- * dans une rubrique. 
+ * dans une rubrique.
  *
+ * @uses depublier_rubrique_if()
  * @todo Le nom de la fonction est trompeur, vu que la fonction remonte dans la hierarchie !
- * 
+ *
  * @param int $id_rubrique
  *     Identifiant de la rubrique
  * @return bool
  *     true si le statut change effectivement
  */
-function depublier_branche_rubrique_if($id_rubrique){
+function depublier_branche_rubrique_if($id_rubrique) {
        $date = date('Y-m-d H:i:s'); // figer la date
 
        #       spip_log("depublier_branche_rubrique($id_rubrique ?");
        $id_pred = $id_rubrique;
        while ($id_pred) {
 
-               if (!depublier_rubrique_if($id_pred,$date))
+               if (!depublier_rubrique_if($id_pred, $date)) {
                        return $id_pred != $id_rubrique;
+               }
                // passer au parent si on a depublie
-               $r = sql_fetsel("id_parent", "spip_rubriques", "id_rubrique=$id_pred");
+               $r = sql_fetsel("id_parent", "spip_rubriques", "id_rubrique=" . intval($id_pred));
                $id_pred = $r['id_parent'];
        }
 
@@ -140,7 +151,9 @@ function depublier_branche_rubrique_if($id_rubrique){
 
 /**
  * Dépublier une rubrique si aucun contenu publié connu n'est trouvé dedans
- * 
+ *
+ * @pipeline_appel objet_compte_enfants
+ *
  * @param int $id_rubrique
  *     Identifiant de la rubrique à tester
  * @param string|null $date
@@ -149,29 +162,32 @@ function depublier_branche_rubrique_if($id_rubrique){
  * @return bool
  *    true si la rubrique a été dépubliée
  */
-function depublier_rubrique_if($id_rubrique,$date=null){
+function depublier_rubrique_if($id_rubrique, $date = null) {
        if (is_null($date)) {
                $date = date('Y-m-d H:i:s');
        }
        $postdates = ($GLOBALS['meta']["post_dates"] == "non") ?
-               " AND date <= ".sql_quote($date) : '';
+               " AND date <= " . sql_quote($date) : '';
 
-       if (!$id_rubrique=intval($id_rubrique))
+       if (!$id_rubrique = intval($id_rubrique)) {
                return false;
+       }
 
        // verifier qu'elle existe et est bien publiee
-       $r = sql_fetsel('id_rubrique,statut','spip_rubriques',"id_rubrique=$id_rubrique");
-       if (!$r OR $r['statut']!=='publie')
+       $r = sql_fetsel('id_rubrique,statut', 'spip_rubriques', "id_rubrique=" . intval($id_rubrique));
+       if (!$r or $r['statut'] !== 'publie') {
                return false;
+       }
 
        // On met le nombre de chaque type d'enfants dans un tableau
        // Le type de l'objet est au pluriel
        $compte = array(
-               'articles' => sql_countsel("spip_articles",  "id_rubrique=$id_rubrique AND statut='publie'$postdates"),
-               'rubriques' => sql_countsel("spip_rubriques",  "id_parent=$id_rubrique AND statut='publie'"),
-               'documents' => sql_countsel("spip_documents_liens",  "id_objet=$id_rubrique AND objet='rubrique'")
+               'articles' => sql_countsel("spip_articles",
+                       "id_rubrique=" . intval($id_rubrique) . " AND statut='publie'$postdates"),
+               'rubriques' => sql_countsel("spip_rubriques", "id_parent=" . intval($id_rubrique) . " AND statut='publie'"),
+               'documents' => sql_countsel("spip_documents_liens", "id_objet=" . intval($id_rubrique) . " AND objet='rubrique'")
        );
-       
+
        // On passe le tableau des comptes dans un pipeline pour que les plugins puissent ajouter (ou retirer) des enfants
        $compte = pipeline('objet_compte_enfants',
                array(
@@ -184,13 +200,16 @@ function depublier_rubrique_if($id_rubrique,$date=null){
                        'data' => $compte
                )
        );
-       
+
        // S'il y a au moins un enfant de n'importe quoi, on ne dépublie pas
-       foreach($compte as $objet => $n)
-               if ($n)
+       foreach ($compte as $objet => $n) {
+               if ($n) {
                        return false;
+               }
+       }
+
+       sql_updateq("spip_rubriques", array("statut" => 'prepa'), "id_rubrique=" . intval($id_rubrique));
 
-       sql_updateq("spip_rubriques", array("statut" => '0'), "id_rubrique=$id_rubrique");
 #              spip_log("depublier_rubrique $id_pred");
        return true;
 }
@@ -201,14 +220,18 @@ function depublier_rubrique_if($id_rubrique,$date=null){
  *
  * Recalcule le statut des rubriques, les langues héritées et la date
  * du prochain article post-daté
- * 
+ *
  * Cette fonction est appelée après importation: elle calcule les meta-donnes
  * resultantes et remet de la coherence au cas où la base importée en manquait
- * 
+ *
  * Cette fonction doit etre invoquée sans processus concurrent potentiel.
- * 
+ *
+ * @uses calculer_rubriques_publiees()
+ * @uses calculer_langues_utilisees()
+ * @uses calculer_prochain_postdate()
+ *
  * @return void
-**/
+ **/
 function calculer_rubriques() {
 
        calculer_rubriques_publiees();
@@ -227,19 +250,20 @@ function calculer_rubriques() {
 
 
 /**
- *  
- * Recalcule l'ensemble des donnees associees a l'arborescence des rubriques
- * 
+ * Recalcule l'ensemble des données associées à l'arborescence des rubriques
+ *
  * Attention, faute de SQL transactionnel on travaille sur
  * des champs temporaires afin de ne pas casser la base
  * pendant la demi seconde de recalculs
- * 
+ *
+ * @pipeline_appel calculer_rubriques
+ *
  * @return void
-**/
+ **/
 function calculer_rubriques_publiees() {
 
        // Mettre les compteurs a zero
-       sql_updateq('spip_rubriques', array('date_tmp' => '0000-00-00 00:00:00', 'statut_tmp' => 'prive'));
+       sql_updateq('spip_rubriques', array('date_tmp' => '0000-00-00 00:00:00', 'statut_tmp' => 'prepa'));
 
        //
        // Publier et dater les rubriques qui ont un article publie
@@ -247,11 +271,16 @@ function calculer_rubriques_publiees() {
 
        // Afficher les articles post-dates ?
        $postdates = ($GLOBALS['meta']["post_dates"] == "non") ?
-               "AND A.date <= ".sql_quote(date('Y-m-d H:i:s')) : '';
+               "AND A.date <= " . sql_quote(date('Y-m-d H:i:s')) : '';
 
-       $r = sql_select("R.id_rubrique AS id, max(A.date) AS date_h", "spip_rubriques AS R, spip_articles AS A", "R.id_rubrique = A.id_rubrique AND A.statut='publie' $postdates ", "R.id_rubrique");
-       while ($row = sql_fetch($r))
-               sql_updateq("spip_rubriques", array("statut_tmp" => 'publie', "date_tmp" => $row['date_h']), "id_rubrique=".$row['id']);
+       $r = sql_select(
+               "R.id_rubrique AS id, max(A.date) AS date_h",
+               "spip_rubriques AS R JOIN spip_articles AS A ON R.id_rubrique = A.id_rubrique",
+               "A.date>R.date_tmp AND A.statut='publie' $postdates ", "R.id_rubrique");
+       while ($row = sql_fetch($r)) {
+               sql_updateq("spip_rubriques", array("statut_tmp" => 'publie', "date_tmp" => $row['date_h']),
+                       "id_rubrique=" . intval($row['id']));
+       }
 
        // point d'entree pour permettre a des plugins de gerer le statut
        // autrement (par ex: toute rubrique est publiee des sa creation)
@@ -259,21 +288,25 @@ function calculer_rubriques_publiees() {
        // c'est statut_tmp/date_tmp qu'il doit modifier
        // [C'est un trigger... a renommer en trig_calculer_rubriques ?]
        pipeline('calculer_rubriques', null);
-       
+
 
        // Les rubriques qui ont une rubrique fille plus recente
        // on tourne tant que les donnees remontent vers la racine.
        do {
                $continuer = false;
-               $r = sql_select("R.id_rubrique AS id, max(A.date_tmp) AS date_h", "spip_rubriques AS R, spip_rubriques AS A", "R.id_rubrique = A.id_parent AND (R.date_tmp < A.date_tmp OR R.statut_tmp<>'publie') AND A.statut_tmp='publie' ", "R.id_rubrique");
+               $r = sql_select(
+                       "R.id_rubrique AS id, max(SR.date_tmp) AS date_h",
+                       "spip_rubriques AS R JOIN spip_rubriques AS SR ON R.id_rubrique = SR.id_parent",
+                       "(SR.date_tmp>R.date_tmp OR R.statut_tmp<>'publie') AND SR.statut_tmp='publie' ", "R.id_rubrique");
                while ($row = sql_fetch($r)) {
-                 sql_updateq('spip_rubriques', array('statut_tmp'=>'publie', 'date_tmp'=>$row['date_h']),"id_rubrique=".$row['id']);
+                       sql_updateq('spip_rubriques', array('statut_tmp' => 'publie', 'date_tmp' => $row['date_h']),
+                               "id_rubrique=" . intval($row['id']));
                        $continuer = true;
                }
        } while ($continuer);
 
        // Enregistrement des modifs
-       sql_update('spip_rubriques', array('date'=>'date_tmp', 'statut'=>'statut_tmp'));
+       sql_update('spip_rubriques', array('date' => 'date_tmp', 'statut' => 'statut_tmp'));
 }
 
 /**
@@ -282,17 +315,18 @@ function calculer_rubriques_publiees() {
  * Cherche les rubriques ayant des id_secteur ou profondeurs ne correspondant pas
  * avec leur parent, et les met à jour. De même avec les articles et leur id_secteur
  * On procede en iterant la profondeur de 1 en 1 pour ne pas risquer une boucle infinie sur reference circulaire
- * 
+ *
+ * @pipeline_appel trig_propager_les_secteurs
+ *
  * @return void
-**/
-function propager_les_secteurs()
-{
+ **/
+function propager_les_secteurs() {
        // Profondeur 0
        // Toutes les rubriques racines sont de profondeur 0
        // et fixer les id_secteur des rubriques racines
-       sql_update('spip_rubriques', array('id_secteur'=>'id_rubrique','profondeur'=>0), "id_parent=0");
+       sql_update('spip_rubriques', array('id_secteur' => 'id_rubrique', 'profondeur' => 0), "id_parent=0");
        // Toute rubrique non racine est de profondeur >0
-       sql_updateq('spip_rubriques', array('profondeur'=>1), "id_parent<>0 AND profondeur=0");
+       sql_updateq('spip_rubriques', array('profondeur' => 1), "id_parent<>0 AND profondeur=0");
 
        // securite : pas plus d'iteration que de rubriques dans la base
        $maxiter = sql_countsel("spip_rubriques");
@@ -314,66 +348,72 @@ function propager_les_secteurs()
                // - cela nous protege de la boucle infinie en cas de reference circulaire dans les rubriques
                $maxiter2 = $maxiter;
                while ($maxiter2--
-                       AND $rows = sql_allfetsel(
-                       "A.id_rubrique AS id, R.id_secteur AS id_secteur, R.profondeur+1 as profondeur",
-                       "spip_rubriques AS A JOIN spip_rubriques AS R ON A.id_parent = R.id_rubrique",
-                       "R.profondeur=".intval($prof)." AND (A.id_secteur <> R.id_secteur OR A.profondeur > R.profondeur+1)",
-                 "","R.id_secteur","0,100")){
+                       and $rows = sql_allfetsel(
+                               "A.id_rubrique AS id, R.id_secteur AS id_secteur, R.profondeur+1 as profondeur",
+                               "spip_rubriques AS A JOIN spip_rubriques AS R ON A.id_parent = R.id_rubrique",
+                               "R.profondeur=" . intval($prof) . " AND (A.id_secteur <> R.id_secteur OR A.profondeur > R.profondeur+1)",
+                               "", "R.id_secteur", "0,100")) {
 
                        $id_secteur = null;
                        $ids = array();
                        while ($row = array_shift($rows)) {
-                               if ($row['id_secteur']!==$id_secteur){
-                                       if (count($ids))
-                                               sql_updateq("spip_rubriques", array("id_secteur" => $id_secteur,'profondeur' => $prof+1), sql_in('id_rubrique',$ids));
+                               if ($row['id_secteur'] !== $id_secteur) {
+                                       if (count($ids)) {
+                                               sql_updateq("spip_rubriques", array("id_secteur" => $id_secteur, 'profondeur' => $prof + 1),
+                                                       sql_in('id_rubrique', $ids));
+                                       }
                                        $id_secteur = $row['id_secteur'];
                                        $ids = array();
                                }
                                $ids[] = $row['id'];
                        }
-                       if (count($ids))
-                               sql_updateq("spip_rubriques", array("id_secteur" => $id_secteur,'profondeur' => $prof+1), sql_in('id_rubrique',$ids));
+                       if (count($ids)) {
+                               sql_updateq("spip_rubriques", array("id_secteur" => $id_secteur, 'profondeur' => $prof + 1),
+                                       sql_in('id_rubrique', $ids));
+                       }
                }
 
 
                // Toutes les rubriques de profondeur $prof+1 qui n'ont pas un parent de profondeur $prof sont decalees
                $maxiter2 = $maxiter;
                while ($maxiter2--
-                       AND $rows = sql_allfetsel(
-                       "id_rubrique as id",
-                       "spip_rubriques",
-                       "profondeur=".intval($prof+1)." AND id_parent NOT IN (".sql_get_select("zzz.id_rubrique","spip_rubriques AS zzz","zzz.profondeur=".intval($prof)).")",'','','0,100')){
-                       $rows = array_map('reset',$rows);
-                       sql_updateq("spip_rubriques", array('profondeur' => $prof+2), sql_in("id_rubrique",$rows));
+                       and $rows = sql_allfetsel(
+                               "id_rubrique as id",
+                               "spip_rubriques",
+                               "profondeur=" . intval($prof + 1) . " AND id_parent NOT IN (" . sql_get_select("zzz.id_rubrique",
+                                       "spip_rubriques AS zzz", "zzz.profondeur=" . intval($prof)) . ")", '', '', '0,100')) {
+                       $rows = array_map('reset', $rows);
+                       sql_updateq("spip_rubriques", array('profondeur' => $prof + 2), sql_in("id_rubrique", $rows));
                }
 
                // ici on a fini de valider $prof+1, toutes les rubriques de prondeur 0 a $prof+1 sont OK
                // si pas de rubrique a profondeur $prof+1 pas la peine de continuer
                // si il reste des rubriques non vues, c'est une branche morte ou reference circulaire (base foireuse)
                // on arrete les frais
-               if (sql_countsel("spip_rubriques","profondeur=".intval($prof+1))){
+               if (sql_countsel("spip_rubriques", "profondeur=" . intval($prof + 1))) {
                        $prof++;
                        $continuer = true;
                }
-       }
-       while ($continuer AND $maxiter--);
+       } while ($continuer and $maxiter--);
 
        // loger si la table des rubriques semble foireuse
        // et mettre un id_secteur=0 sur ces rubriques pour eviter toute selection par les boucles
-       if (sql_countsel("spip_rubriques","profondeur>".intval($prof+1))){
-               spip_log("Les rubriques de profondeur>".($prof+1)." semblent suspectes (branches morte ou reference circulaire dans les parents)",_LOG_CRITIQUE);
-               sql_update("spip_rubriques",array('id_secteur'=>0),"profondeur>".intval($prof+1));
+       if (sql_countsel("spip_rubriques", "profondeur>" . intval($prof + 1))) {
+               spip_log("Les rubriques de profondeur>" . ($prof + 1) . " semblent suspectes (branches morte ou reference circulaire dans les parents)",
+                       _LOG_CRITIQUE);
+               sql_update("spip_rubriques", array('id_secteur' => 0), "profondeur>" . intval($prof + 1));
        }
 
        // reparer les articles
-       $r = sql_select("A.id_article AS id, R.id_secteur AS secteur", "spip_articles AS A, spip_rubriques AS R", "A.id_rubrique = R.id_rubrique AND A.id_secteur <> R.id_secteur");
+       $r = sql_select("A.id_article AS id, R.id_secteur AS secteur", "spip_articles AS A, spip_rubriques AS R",
+               "A.id_rubrique = R.id_rubrique AND A.id_secteur <> R.id_secteur");
 
        while ($row = sql_fetch($r)) {
-               sql_update("spip_articles", array("id_secteur" => $row['secteur']), "id_article=".$row['id']);
+               sql_update("spip_articles", array("id_secteur" => $row['secteur']), "id_article=" . intval($row['id']));
        }
 
        // avertir les plugins qui peuvent faire leur mises a jour egalement
-       pipeline('trig_propager_les_secteurs','');
+       pipeline('trig_propager_les_secteurs', '');
 }
 
 
@@ -383,17 +423,19 @@ function propager_les_secteurs()
  * Cherche les langues incorrectes de sous rubriques, qui doivent hériter
  * de la rubrique parente lorsque langue_choisie est différent de oui,
  * et les corrige.
- * 
+ *
  * @return bool
  *     true si un changement a eu lieu
-**/
+ **/
 function calculer_langues_rubriques_etape() {
-       $s = sql_select("A.id_rubrique AS id_rubrique, R.lang AS lang", "spip_rubriques AS A, spip_rubriques AS R", "A.id_parent = R.id_rubrique AND A.langue_choisie != 'oui' AND R.lang<>'' AND R.lang<>A.lang");
+       $s = sql_select("A.id_rubrique AS id_rubrique, R.lang AS lang", "spip_rubriques AS A, spip_rubriques AS R",
+               "A.id_parent = R.id_rubrique AND A.langue_choisie != 'oui' AND R.lang<>'' AND R.lang<>A.lang");
 
        $t = false;
        while ($row = sql_fetch($s)) {
                $id_rubrique = $row['id_rubrique'];
-               $t = sql_updateq('spip_rubriques', array('lang' => $row['lang'], 'langue_choisie'=>'non'), "id_rubrique=$id_rubrique");
+               $t = sql_updateq('spip_rubriques', array('lang' => $row['lang'], 'langue_choisie' => 'non'),
+                       "id_rubrique=" . intval($id_rubrique));
        }
 
        return $t;
@@ -404,24 +446,32 @@ function calculer_langues_rubriques_etape() {
  *
  * Redéfinit la langue du site sur les rubriques sans langue spécifiée
  * (langue_choisie différent de 'oui')
- * 
+ *
  * Redéfinit les langues des articles sans langue spécifiée
  * (langue_choisie différent de 'oui') en les rebasant sur la langue
  * de la rubrique parente lorsque ce n'est pas le cas.
  *
- * @return void 
-**/
+ * @uses calculer_langues_rubriques_etape()
+ * @pipeline_appel trig_calculer_langues_rubriques
+ *
+ * @return void
+ **/
 function calculer_langues_rubriques() {
 
        // rubriques (recursivite)
-       sql_updateq("spip_rubriques", array("lang" => $GLOBALS['meta']['langue_site'], "langue_choisie" => 'non'), "id_parent=0 AND langue_choisie != 'oui'");
-       while (calculer_langues_rubriques_etape());
+       sql_updateq("spip_rubriques", array("lang" => $GLOBALS['meta']['langue_site'], "langue_choisie" => 'non'),
+               "id_parent=0 AND langue_choisie != 'oui'");
+       while (calculer_langues_rubriques_etape()) {
+               ;
+       }
 
        // articles
-       $s = sql_select("A.id_article AS id_article, R.lang AS lang", "spip_articles AS A, spip_rubriques AS R", "A.id_rubrique = R.id_rubrique AND A.langue_choisie != 'oui' AND (length(A.lang)=0 OR length(R.lang)>0) AND R.lang<>A.lang");
+       $s = sql_select("A.id_article AS id_article, R.lang AS lang", "spip_articles AS A, spip_rubriques AS R",
+               "A.id_rubrique = R.id_rubrique AND A.langue_choisie != 'oui' AND (length(A.lang)=0 OR length(R.lang)>0) AND R.lang<>A.lang");
        while ($row = sql_fetch($s)) {
                $id_article = $row['id_article'];
-               sql_updateq('spip_articles', array("lang"=> $row['lang'], 'langue_choisie'=>'non'), "id_article=$id_article");
+               sql_updateq('spip_articles', array("lang" => $row['lang'], 'langue_choisie' => 'non'),
+                       "id_article=" . intval($id_article));
        }
 
        if ($GLOBALS['meta']['multi_rubriques'] == 'oui') {
@@ -429,42 +479,44 @@ function calculer_langues_rubriques() {
                $langues = calculer_langues_utilisees();
                ecrire_meta('langues_utilisees', $langues);
        }
-       
+
        // avertir les plugins qui peuvent faire leur mises a jour egalement
-       pipeline('trig_calculer_langues_rubriques','');
+       pipeline('trig_calculer_langues_rubriques', '');
 }
 
 
 /**
- * Calcule la liste des langues reellement utilisees dans le site public
+ * Calcule la liste des langues réellement utilisées dans le site public
  *
  * La recherche de langue est effectuée en recréant une boucle pour chaque
  * objet éditorial gérant des langues de sorte que les éléments non publiés
  * ne sont pas pris en compte.
- * 
+ *
  * @param string $serveur
  *    Nom du connecteur à la base de données
  * @return string
  *    Liste des langues utilisées séparées par des virgules
-**/
-function calculer_langues_utilisees ($serveur='') {
+ **/
+function calculer_langues_utilisees($serveur = '') {
        include_spip('public/interfaces');
        include_spip('public/compiler');
        include_spip('public/composer');
+       include_spip('public/phraser_html');
        $langues = array();
 
        $langues[$GLOBALS['meta']['langue_site']] = 1;
 
        include_spip('base/objets');
        $tables = lister_tables_objets_sql();
-       $trouver_table = charger_fonction('trouver_table','base');
+       $trouver_table = charger_fonction('trouver_table', 'base');
 
-       foreach(array_keys($tables) as $t){
-               $desc = $trouver_table($t,$serveur);
+       foreach (array_keys($tables) as $t) {
+               $desc = $trouver_table($t, $serveur);
                // c'est une table avec des langues
                if ($desc['exist']
-                 AND isset($desc['field']['lang'])
-                       AND isset($desc['field']['langue_choisie'])){
+                       and isset($desc['field']['lang'])
+                       and isset($desc['field']['langue_choisie'])
+               ) {
 
                        $boucle = new Boucle();
                        $boucle->show = $desc;
@@ -474,48 +526,71 @@ function calculer_langues_utilisees ($serveur='') {
                        $boucle->sql_serveur = $serveur;
                        $boucle->select[] = "DISTINCT lang";
                        $boucle->from[$desc['table_objet']] = $t;
+                       $boucle->separateur[] = ',';
+                       $boucle->return = '$Pile[$SP][\'lang\']';
+                       $boucle->iterateur = 'sql';
+
+                       $boucle->descr['nom'] = 'objet_test_si_publie'; // eviter notice php
+                       $boucle->descr['sourcefile'] = 'internal';
+
                        $boucle = pipeline('pre_boucle', $boucle);
-                       
+
                        if (isset($desc['statut'])
-                   AND $desc['statut']){
-                               instituer_boucle($boucle, false);
-                               $res = calculer_select($boucle->select,$boucle->from,$boucle->from_type,$boucle->where,$boucle->join,$boucle->group,$boucle->order,$boucle->limit,$boucle->having,$desc['table_objet'],$desc['table_objet'],$serveur);
-                       }
-                       else
-                               $res = sql_select(implode(',',$boucle->select),$boucle->from);
-                       while ($row = sql_fetch($res)) {
-                               $langues[$row['lang']] = 1;
+                               and $desc['statut']
+                       ) {
+                               $boucles = array(
+                                       'calculer_langues_utilisees' => $boucle,
+                               );
+                               // generer un nom de fonction "anonyme" unique
+                               do {
+                                       $functionname = 'f_calculer_langues_utilisees_' . $boucle->id_table . '_' . time() . '_' . rand();
+                               } while (function_exists($functionname));
+                               $code = calculer_boucle('calculer_langues_utilisees', $boucles);
+                               $code = '$SP=0; $command=array();$command["connect"] = $connect = "' . $serveur . '"; $Pile=array(0=>array());' . "\n" . $code;
+                               $code = 'function ' . $functionname . '(){' . $code . '};$res = ' . $functionname . '();';
+                               $res = '';
+                               eval($code);
+                               $res = explode(',', $res);
+                               foreach ($res as $lang) {
+                                       $langues[$lang] = 1;
+                               }
+                       } else {
+                               $res = sql_select(implode(',', $boucle->select), $boucle->from);
+                               while ($row = sql_fetch($res)) {
+                                       $langues[$row['lang']] = 1;
+                               }
                        }
                }
        }
 
        $langues = array_filter(array_keys($langues));
        sort($langues);
-       $langues = join(',',$langues);
+       $langues = join(',', $langues);
        spip_log("langues utilisees: $langues");
+
        return $langues;
 }
 
 /**
  * Calcule une branche de rubriques
- * 
+ *
  * Dépréciée, pour compatibilité
  *
  * @deprecated
  * @see calcul_branche_in()
- * 
+ *
  * @param string|int|array $generation
  * @return string
  */
-function calcul_branche ($generation) {return calcul_branche_in($generation);}
+function calcul_branche($generation) { return calcul_branche_in($generation); }
 
 /**
  * Calcul d'une branche de rubrique
- * 
+ *
  * Liste des id_rubrique contenues dans une rubrique donnée
  *
  * @see inc_calcul_branche_in_dist()
- * 
+ *
  * @param string|int|array $id
  *     Identifiant de la, ou des rubriques noeuds
  * @return string
@@ -523,13 +598,14 @@ function calcul_branche ($generation) {return calcul_branche_in($generation);}
  *     incluant les rubriques noeuds et toutes leurs descendances
  */
 function calcul_branche_in($id) {
-       $calcul_branche_in = charger_fonction('calcul_branche_in','inc');
+       $calcul_branche_in = charger_fonction('calcul_branche_in', 'inc');
+
        return $calcul_branche_in($id);
 }
 
 /**
  * Calcul d'une hiérarchie
- * 
+ *
  * Liste des id_rubrique contenant une rubrique donnée
  *
  * @see inc_calcul_hierarchie_in_dist()
@@ -541,20 +617,23 @@ function calcul_branche_in($id) {
  *     Liste des identifiants séparés par des virgules,
  *     incluant les rubriques transmises et toutes leurs parentées
  */
-function calcul_hierarchie_in($id, $tout=true) {
-       $calcul_hierarchie_in = charger_fonction('calcul_hierarchie_in','inc');
+function calcul_hierarchie_in($id, $tout = true) {
+       $calcul_hierarchie_in = charger_fonction('calcul_hierarchie_in', 'inc');
+
        return $calcul_hierarchie_in($id, $tout);
 }
 
 
 /**
  * Calcul d'une branche de rubriques
- * 
+ *
  * Liste des id_rubrique contenues dans une rubrique donnée
  * pour le critere {branche}
- * 
+ *
  * Fonction surchargeable pour optimisation
  *
+ * @see inc_calcul_hierarchie_in_dist() pour la hierarchie
+ *
  * @param string|int|array $id
  *     Identifiant de la, ou des rubriques noeuds
  * @return string
@@ -565,10 +644,13 @@ function inc_calcul_branche_in_dist($id) {
        static $b = array();
 
        // normaliser $id qui a pu arriver comme un array, comme un entier, ou comme une chaine NN,NN,NN
-       if (!is_array($id)) $id = explode(',',$id);
+       if (!is_array($id)) {
+               $id = explode(',', $id);
+       }
        $id = join(',', array_map('intval', $id));
-       if (isset($b[$id]))
+       if (isset($b[$id])) {
                return $b[$id];
+       }
 
        // Notre branche commence par la rubrique de depart
        $branche = $r = $id;
@@ -576,29 +658,33 @@ function inc_calcul_branche_in_dist($id) {
        // On ajoute une generation (les filles de la generation precedente)
        // jusqu'a epuisement, en se protegeant des references circulaires
        $maxiter = 10000;
-       while ($maxiter-- AND $filles = sql_allfetsel(
-                                       'id_rubrique',
-                                       'spip_rubriques',
-                                       sql_in('id_parent', $r) ." AND ". sql_in('id_rubrique', $r, 'NOT')
-                                       )) {
+       while ($maxiter-- and $filles = sql_allfetsel(
+                       'id_rubrique',
+                       'spip_rubriques',
+                       sql_in('id_parent', $r) . " AND " . sql_in('id_rubrique', $r, 'NOT')
+               )) {
                $r = join(',', array_map('reset', $filles));
                $branche .= ',' . $r;
        }
 
        # securite pour ne pas plomber la conso memoire sur les sites prolifiques
-       if (strlen($branche)<10000)
+       if (strlen($branche) < 10000) {
                $b[$id] = $branche;
+       }
+
        return $branche;
 }
 
 
 /**
  * Calcul d'une hiérarchie
- * 
+ *
  * Liste des id_rubrique contenant une rubrique donnée,
  * contrairement à la fonction calcul_branche_in() qui calcule les
  * rubriques contenues
  *
+ * @see inc_calcul_branche_in_dist() pour la descendence
+ *
  * @param string|int|array $id
  *     Identifiant de la, ou des rubriques dont on veut obtenir les hierarchies
  * @param bool $tout
@@ -607,11 +693,13 @@ function inc_calcul_branche_in_dist($id) {
  *     Liste des identifiants séparés par des virgules,
  *     incluant les rubriques transmises et toutes leurs parentées
  */
-function inc_calcul_hierarchie_in_dist($id, $tout=true) {
+function inc_calcul_hierarchie_in_dist($id, $tout = true) {
        static $b = array();
 
        // normaliser $id qui a pu arriver comme un array, comme un entier, ou comme une chaine NN,NN,NN
-       if (!is_array($id)) $id = explode(',',$id);
+       if (!is_array($id)) {
+               $id = explode(',', $id);
+       }
        $id = join(',', array_map('intval', $id));
 
        if (isset($b[$id])) {
@@ -625,17 +713,17 @@ function inc_calcul_hierarchie_in_dist($id, $tout=true) {
        // jusqu'a epuisement, en se protegeant des references circulaires
        $ids_nouveaux_parents = $id;
        $maxiter = 10000;
-       while ($maxiter-- AND $parents = sql_allfetsel(
+       while ($maxiter-- and $parents = sql_allfetsel(
                        'id_parent',
                        'spip_rubriques',
-                       sql_in('id_rubrique', $ids_nouveaux_parents) ." AND ". sql_in('id_parent',$hier,'NOT')
-                 )) {
+                       sql_in('id_rubrique', $ids_nouveaux_parents) . " AND " . sql_in('id_parent', $hier, 'NOT')
+               )) {
                $ids_nouveaux_parents = join(',', array_map('reset', $parents));
-               $hier = $ids_nouveaux_parents.(strlen($hier)?','.$hier:'');
+               $hier = $ids_nouveaux_parents . (strlen($hier) ? ',' . $hier : '');
        }
 
        # securite pour ne pas plomber la conso memoire sur les sites prolifiques
-       if (strlen($hier)<10000) {
+       if (strlen($hier) < 10000) {
                $b[$id] = $hier;
        }
 
@@ -646,42 +734,47 @@ function inc_calcul_hierarchie_in_dist($id, $tout=true) {
 }
 
 
-
 /**
- * Calcule la date du prochain article post-daté 
+ * Calcule la date du prochain article post-daté
  *
  * Appelée lorsqu'un (ou plusieurs) article post-daté arrive à terme
  * ou est redaté
- * 
+ *
+ * @uses publier_branche_rubrique()
+ * @pipeline_appel trig_calculer_prochain_postdate
+ *
  * @param bool $check
  *     true pour affecter le statut des rubriques concernées.
  * @return void
-**/
-function calculer_prochain_postdate($check= false) {
+ **/
+function calculer_prochain_postdate($check = false) {
        include_spip('base/abstract_sql');
        if ($check) {
                $postdates = ($GLOBALS['meta']["post_dates"] == "non") ?
-                       "AND A.date <= ".sql_quote(date('Y-m-d H:i:s')) : '';
+                       "AND A.date <= " . sql_quote(date('Y-m-d H:i:s')) : '';
 
                $r = sql_select("DISTINCT A.id_rubrique AS id",
-                       "spip_articles AS A LEFT JOIN spip_rubriques AS R ON A.id_rubrique=R.id_rubrique", "R.statut != 'publie' AND A.statut='publie'$postdates");
-               while ($row = sql_fetch($r))
+                       "spip_articles AS A LEFT JOIN spip_rubriques AS R ON A.id_rubrique=R.id_rubrique",
+                       "R.statut != 'publie' AND A.statut='publie'$postdates");
+               while ($row = sql_fetch($r)) {
                        publier_branche_rubrique($row['id']);
+               }
 
-               pipeline('trig_calculer_prochain_postdate','');
+               pipeline('trig_calculer_prochain_postdate', '');
        }
 
-       $t = sql_fetsel("date", "spip_articles", "statut='publie' AND date > ".sql_quote(date('Y-m-d H:i:s')), "", "date", "1");
-       
+       $t = sql_fetsel("date", "spip_articles", "statut='publie' AND date > " . sql_quote(date('Y-m-d H:i:s')), "", "date",
+               "1");
+
        if ($t) {
-               $t =  $t['date'];
+               $t = $t['date'];
                if (!isset($GLOBALS['meta']['date_prochain_postdate'])
-                       OR $t<>$GLOBALS['meta']['date_prochain_postdate']){
+                       or $t <> $GLOBALS['meta']['date_prochain_postdate']
+               ) {
                        ecrire_meta('date_prochain_postdate', strtotime($t));
                        ecrire_meta('derniere_modif', time());
                }
-       }
-       else {
+       } else {
                effacer_meta('date_prochain_postdate');
                ecrire_meta('derniere_modif', time());
        }
@@ -691,12 +784,12 @@ function calculer_prochain_postdate($check= false) {
 
 /**
  * Crée une arborescence de rubrique
- * 
+ *
  * creer_rubrique_nommee('truc/machin/chose') va créer
  * une rubrique truc, une sous-rubrique machin, et une sous-sous-rubrique
  * chose, sans créer de rubrique si elle existe déjà
  * à partir de $id_parent (par défaut, à partir de la racine)
- * 
+ *
  * NB: cette fonction est très pratique, mais pas utilisée dans le core
  * pour rester légère elle n'appelle pas calculer_rubriques()
  *
@@ -709,29 +802,30 @@ function calculer_prochain_postdate($check= false) {
  * @return int
  *     Identifiant de la rubrique la plus profonde.
  */
-function creer_rubrique_nommee($titre, $id_parent=0, $serveur='') {
+function creer_rubrique_nommee($titre, $id_parent = 0, $serveur = '') {
 
        // eclater l'arborescence demandee
        // echapper les </multi> et autres balises fermantes html
-       $titre = preg_replace(",</([a-z][^>]*)>,ims","<@\\1>",$titre);
+       $titre = preg_replace(",</([a-z][^>]*)>,ims", "<@\\1>", $titre);
        $arbo = explode('/', preg_replace(',^/,', '', $titre));
        include_spip('base/abstract_sql');
        foreach ($arbo as $titre) {
                // retablir les </multi> et autres balises fermantes html
-               $titre = preg_replace(",<@([a-z][^>]*)>,ims","</\\1>",$titre);
-               $r = sql_getfetsel("id_rubrique", "spip_rubriques", "titre = ".sql_quote($titre)." AND id_parent=".intval($id_parent),
-               $groupby = array(), $orderby = array(), $limit = '', $having = array(), $serveur);
-               if ($r !== NULL) {
+               $titre = preg_replace(",<@([a-z][^>]*)>,ims", "</\\1>", $titre);
+               $r = sql_getfetsel("id_rubrique", "spip_rubriques",
+                       "titre = " . sql_quote($titre) . " AND id_parent=" . intval($id_parent),
+                       $groupby = array(), $orderby = array(), $limit = '', $having = array(), $serveur);
+               if ($r !== null) {
                        $id_parent = $r;
                } else {
                        $id_rubrique = sql_insertq('spip_rubriques', array(
-                               'titre' => $titre,
-                               'id_parent' => $id_parent,
-                               'statut' => 'prive')
-                               ,$desc=array(), $serveur);
+                                       'titre' => $titre,
+                                       'id_parent' => $id_parent,
+                                       'statut' => 'prepa'
+                               ), $desc = array(), $serveur);
                        if ($id_parent > 0) {
                                $data = sql_fetsel("id_secteur,lang", "spip_rubriques", "id_rubrique=$id_parent",
-                               $groupby = array(), $orderby = array(), $limit = '', $having = array(), $serveur);
+                                       $groupby = array(), $orderby = array(), $limit = '', $having = array(), $serveur);
                                $id_secteur = $data['id_secteur'];
                                $lang = $data['lang'];
                        } else {
@@ -739,7 +833,8 @@ function creer_rubrique_nommee($titre, $id_parent=0, $serveur='') {
                                $lang = $GLOBALS['meta']['langue_site'];
                        }
 
-                       sql_updateq('spip_rubriques', array('id_secteur'=>$id_secteur, "lang"=>$lang), "id_rubrique=$id_rubrique", $desc='', $serveur);
+                       sql_updateq('spip_rubriques', array('id_secteur' => $id_secteur, "lang" => $lang),
+                               "id_rubrique=" . intval($id_rubrique), $desc = '', $serveur);
 
                        // pour la recursion
                        $id_parent = $id_rubrique;
@@ -748,5 +843,3 @@ function creer_rubrique_nommee($titre, $id_parent=0, $serveur='') {
 
        return intval($id_parent);
 }
-
-?>