spip / SPIP

prive/transmettre/rss/a_suivre_fonctions.php

Indentation +14 added lines, -14 removed lines

@@ -1,22 +1,22 @@
 <?php
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function trier_rss($texte) {
-	if (preg_match_all(',<item.*</item>\s*?,Uims', $texte, $matches, PREG_SET_ORDER)) {
-		$placeholder = '<!--REINSERT-->';
-		$items = [];
-		foreach ($matches as $match) {
-			if (preg_match(',<dc:date>(.*)</dc:date>,Uims', $match[0], $r)) {
-				$items[strtotime($r[1])] = trim($match[0]);
-				$texte = str_replace($match[0], unique($placeholder), $texte);
-			}
-		}
-		krsort($items);
-		$texte = str_replace($placeholder, implode("\n\t", $items) . "\n", $texte);
-	}
+    if (preg_match_all(',<item.*</item>\s*?,Uims', $texte, $matches, PREG_SET_ORDER)) {
+        $placeholder = '<!--REINSERT-->';
+        $items = [];
+        foreach ($matches as $match) {
+            if (preg_match(',<dc:date>(.*)</dc:date>,Uims', $match[0], $r)) {
+                $items[strtotime($r[1])] = trim($match[0]);
+                $texte = str_replace($match[0], unique($placeholder), $texte);
+            }
+        }
+        krsort($items);
+        $texte = str_replace($placeholder, implode("\n\t", $items) . "\n", $texte);
+    }
 
-	return $texte;
+    return $texte;
 }

Spacing +1 added lines, -1 removed lines

@@ -15,7 +15,7 @@
 			}
 		}
 		krsort($items);
-		$texte = str_replace($placeholder, implode("\n\t", $items) . "\n", $texte);
+		$texte = str_replace($placeholder, implode("\n\t", $items)."\n", $texte);
 	}
 
 	return $texte;

ecrire/action/instituer_langue_objet.php

Indentation +37 added lines, -37 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -31,43 +31,43 @@ 
  * @return string
  */
 function action_instituer_langue_objet_dist($objet, $id, $id_rubrique, $changer_lang, $serveur = '') {
-	if ($changer_lang) {
-		$table_objet_sql = table_objet_sql($objet);
-		$id_table_objet = id_table_objet($objet);
-		$trouver_table = charger_fonction('trouver_table', 'base');
-		$desc = $trouver_table($table_objet_sql, $serveur);
+    if ($changer_lang) {
+        $table_objet_sql = table_objet_sql($objet);
+        $id_table_objet = id_table_objet($objet);
+        $trouver_table = charger_fonction('trouver_table', 'base');
+        $desc = $trouver_table($table_objet_sql, $serveur);
 
-		$set = [];
-		if (isset($desc['field']['langue_choisie'])) {
-			$set['langue_choisie'] = 'oui';
-		}
+        $set = [];
+        if (isset($desc['field']['langue_choisie'])) {
+            $set['langue_choisie'] = 'oui';
+        }
 
-		if ($changer_lang != 'herit') {
-			$set['lang'] = $changer_lang;
-			sql_updateq($table_objet_sql, $set, "$id_table_objet=" . intval($id), [], $serveur);
-			include_spip('inc/rubriques'); // pour calculer_langues_rubriques et calculer_langues_utilisees
-			if ($table_objet_sql == 'spip_rubriques') {
-				calculer_langues_rubriques();
-			}
-			$langues = calculer_langues_utilisees($serveur);
-			ecrire_meta('langues_utilisees', $langues);
-		} else {
-			$langue_parent = sql_getfetsel('lang', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
-			if (!$langue_parent) {
-				$langue_parent = $GLOBALS['meta']['langue_site'];
-			}
-			$changer_lang = $langue_parent;
-			$set['lang'] = $changer_lang;
-			if (isset($set['langue_choisie'])) {
-				$set['langue_choisie'] = 'non';
-			}
-			sql_updateq($table_objet_sql, $set, "$id_table_objet=" . intval($id), [], $serveur);
-			if ($table_objet_sql == 'spip_rubriques') {
-				include_spip('inc/rubriques');
-				calculer_langues_rubriques();
-			}
-		}
-	}
+        if ($changer_lang != 'herit') {
+            $set['lang'] = $changer_lang;
+            sql_updateq($table_objet_sql, $set, "$id_table_objet=" . intval($id), [], $serveur);
+            include_spip('inc/rubriques'); // pour calculer_langues_rubriques et calculer_langues_utilisees
+            if ($table_objet_sql == 'spip_rubriques') {
+                calculer_langues_rubriques();
+            }
+            $langues = calculer_langues_utilisees($serveur);
+            ecrire_meta('langues_utilisees', $langues);
+        } else {
+            $langue_parent = sql_getfetsel('lang', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
+            if (!$langue_parent) {
+                $langue_parent = $GLOBALS['meta']['langue_site'];
+            }
+            $changer_lang = $langue_parent;
+            $set['lang'] = $changer_lang;
+            if (isset($set['langue_choisie'])) {
+                $set['langue_choisie'] = 'non';
+            }
+            sql_updateq($table_objet_sql, $set, "$id_table_objet=" . intval($id), [], $serveur);
+            if ($table_objet_sql == 'spip_rubriques') {
+                include_spip('inc/rubriques');
+                calculer_langues_rubriques();
+            }
+        }
+    }
 
-	return $changer_lang;
+    return $changer_lang;
 }

Spacing +3 added lines, -3 removed lines

@@ -44,7 +44,7 @@ 
 
 		if ($changer_lang != 'herit') {
 			$set['lang'] = $changer_lang;
-			sql_updateq($table_objet_sql, $set, "$id_table_objet=" . intval($id), [], $serveur);
+			sql_updateq($table_objet_sql, $set, "$id_table_objet=".intval($id), [], $serveur);
 			include_spip('inc/rubriques'); // pour calculer_langues_rubriques et calculer_langues_utilisees
 			if ($table_objet_sql == 'spip_rubriques') {
 				calculer_langues_rubriques();
@@ -52,7 +52,7 @@ 
 			$langues = calculer_langues_utilisees($serveur);
 			ecrire_meta('langues_utilisees', $langues);
 		} else {
-			$langue_parent = sql_getfetsel('lang', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
+			$langue_parent = sql_getfetsel('lang', 'spip_rubriques', 'id_rubrique='.intval($id_rubrique));
 			if (!$langue_parent) {
 				$langue_parent = $GLOBALS['meta']['langue_site'];
 			}
@@ -61,7 +61,7 @@ 
 			if (isset($set['langue_choisie'])) {
 				$set['langue_choisie'] = 'non';
 			}
-			sql_updateq($table_objet_sql, $set, "$id_table_objet=" . intval($id), [], $serveur);
+			sql_updateq($table_objet_sql, $set, "$id_table_objet=".intval($id), [], $serveur);
 			if ($table_objet_sql == 'spip_rubriques') {
 				include_spip('inc/rubriques');
 				calculer_langues_rubriques();

ecrire/base/upgrade.php

Spacing +17 added lines, -17 removed lines

@@ -56,7 +56,7 @@ 
 	if ($GLOBALS['spip_version_base'] != $GLOBALS['meta']['version_installee']) {
 		if (!is_numeric(_request('reinstall'))) {
 			include_spip('base/create');
-			spip_log('recree les tables eventuellement disparues', 'maj.' . _LOG_INFO_IMPORTANTE);
+			spip_log('recree les tables eventuellement disparues', 'maj.'._LOG_INFO_IMPORTANTE);
 			creer_base();
 		}
 
@@ -69,7 +69,7 @@ 
 			exit;
 		}
 	}
-	spip_log('Fin de mise a jour SQL. Debut m-a-j acces et config', 'maj.' . _LOG_INFO_IMPORTANTE);
+	spip_log('Fin de mise a jour SQL. Debut m-a-j acces et config', 'maj.'._LOG_INFO_IMPORTANTE);
 
 	// supprimer quelques fichiers temporaires qui peuvent se retrouver invalides
 	@spip_unlink(_CACHE_RUBRIQUES);
@@ -78,7 +78,7 @@ 
 	@spip_unlink(_CACHE_PLUGINS_OPT);
 	@spip_unlink(_CACHE_PLUGINS_FCT);
 	@spip_unlink(_CACHE_CHEMIN);
-	@spip_unlink(_DIR_TMP . 'plugin_xml_cache.gz');
+	@spip_unlink(_DIR_TMP.'plugin_xml_cache.gz');
 
 	include_spip('inc/auth');
 	auth_synchroniser_distant();
@@ -117,8 +117,8 @@ 
 	$version_installee = $GLOBALS['meta']['version_installee'] ?? null;
 
 	spip_log(
-		"Version anterieure: $version_installee. Courante: " . $GLOBALS['spip_version_base'],
-		'maj.' . _LOG_INFO_IMPORTANTE
+		"Version anterieure: $version_installee. Courante: ".$GLOBALS['spip_version_base'],
+		'maj.'._LOG_INFO_IMPORTANTE
 	);
 	if (!$version_installee or ($GLOBALS['spip_version_base'] < $version_installee)) {
 		sql_replace(
@@ -151,9 +151,9 @@ 
 	$res = maj_while($version_installee, $cible, $GLOBALS['maj'], 'version_installee', 'meta', $redirect, $debut_page);
 	if ($res) {
 		if (!is_array($res)) {
-			spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
+			spip_log("Pb d'acces SQL a la mise a jour", 'maj.'._LOG_ERREUR);
 		} else {
-			echo _T('avis_operation_echec') . ' ' . join(' ', $res);
+			echo _T('avis_operation_echec').' '.join(' ', $res);
 			echo install_fin_html();
 		}
 	}
@@ -241,9 +241,9 @@ 
 		$res = maj_while($current_version, $version_cible, $maj, $nom_meta_base_version, $table_meta, $redirect);
 		if ($res) {
 			if (!is_array($res)) {
-				spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
+				spip_log("Pb d'acces SQL a la mise a jour", 'maj.'._LOG_ERREUR);
 			} else {
-				echo '<p>' . _T('avis_operation_echec') . ' ' . join(' ', $res) . '</p>';
+				echo '<p>'._T('avis_operation_echec').' '.join(' ', $res).'</p>';
 			}
 		}
 	}
@@ -299,7 +299,7 @@ 
 	echo(install_debut_html($titre));
 	// script de rechargement auto sur timeout
 	$redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
-	echo http_script("window.setTimeout('location.href=\"" . $redirect . "\";'," . ($timeout * 1000) . ')');
+	echo http_script("window.setTimeout('location.href=\"".$redirect."\";',".($timeout * 1000).')');
 	echo "<div style='text-align: left'>\n";
 	if (ob_get_level()) {
 		ob_flush();
@@ -388,7 +388,7 @@ 
 				return [$v, $etape];
 			}
 			$n = time() - $time;
-			spip_log("$table $meta: $v en $n secondes", 'maj.' . _LOG_INFO_IMPORTANTE);
+			spip_log("$table $meta: $v en $n secondes", 'maj.'._LOG_INFO_IMPORTANTE);
 			if ($meta) {
 				ecrire_meta($meta, $installee = $v, 'oui', $table);
 			}
@@ -404,7 +404,7 @@ 
 	if ($meta) {
 		ecrire_meta($meta, $cible, 'oui', $table);
 	}
-	spip_log("MAJ terminee. $meta: $installee", 'maj.' . _LOG_INFO_IMPORTANTE);
+	spip_log("MAJ terminee. $meta: $installee", 'maj.'._LOG_INFO_IMPORTANTE);
 
 	return [];
 }
@@ -429,7 +429,7 @@ 
  * @return int
  */
 function serie_alter($serie, $q = [], $meta = '', $table = 'meta', $redirect = '') {
-	$meta2 = $meta . '_maj_' . $serie;
+	$meta2 = $meta.'_maj_'.$serie;
 	$etape = 0;
 	if (isset($GLOBALS[$table][$meta2])) {
 		$etape = intval($GLOBALS[$table][$meta2]);
@@ -442,7 +442,7 @@ 
 				and function_exists($f = array_shift($r))
 			) {
 				// note: $r (arguments de la fonction $f) peut avoir des données tabulaires
-				spip_log("$msg: $f " . @join(',', $r), 'maj.' . _LOG_INFO_IMPORTANTE);
+				spip_log("$msg: $f ".@join(',', $r), 'maj.'._LOG_INFO_IMPORTANTE);
 				// pour les fonctions atomiques sql_xx
 				// on enregistre le meta avant de lancer la fonction,
 				// de maniere a eviter de boucler sur timeout
@@ -460,12 +460,12 @@ 
 					relance_maj($meta, $table, $redirect);
 				}
 				ecrire_meta($meta2, $i + 1, 'non', $table);
-				spip_log("$meta2: ok", 'maj.' . _LOG_INFO_IMPORTANTE);
+				spip_log("$meta2: ok", 'maj.'._LOG_INFO_IMPORTANTE);
 			} else {
 				if (!is_array($r)) {
-					spip_log("maj $i format incorrect", 'maj.' . _LOG_ERREUR);
+					spip_log("maj $i format incorrect", 'maj.'._LOG_ERREUR);
 				} else {
-					spip_log("maj $i fonction $f non definie", 'maj.' . _LOG_ERREUR);
+					spip_log("maj $i fonction $f non definie", 'maj.'._LOG_ERREUR);
 				}
 				// en cas d'erreur serieuse, on s'arrete
 				// mais on permet de passer par dessus en rechargeant la page.

Indentation +284 added lines, -284 removed lines

@@ -17,17 +17,17 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_UPGRADE_TIME_OUT')) {
-	/**
-	 * Durée en secondes pour relancer les scripts de mises à jour, x secondes
-	 * avant que la durée d'exécution du script provoque un timeout
-	 *
-	 * @var int
-	 **/
-	define('_UPGRADE_TIME_OUT', 20);
+    /**
+     * Durée en secondes pour relancer les scripts de mises à jour, x secondes
+     * avant que la durée d'exécution du script provoque un timeout
+     *
+     * @var int
+     **/
+    define('_UPGRADE_TIME_OUT', 20);
 }
 
 /**
@@ -50,40 +50,40 @@ 
  * @return void
  */
 function base_upgrade_dist($titre = '', $reprise = '') {
-	if (!$titre) {
-		return;
-	} // anti-testeur automatique
-	if ($GLOBALS['spip_version_base'] != $GLOBALS['meta']['version_installee']) {
-		if (!is_numeric(_request('reinstall'))) {
-			include_spip('base/create');
-			spip_log('recree les tables eventuellement disparues', 'maj.' . _LOG_INFO_IMPORTANTE);
-			creer_base();
-		}
-
-		// quand on rentre par ici, c'est toujours une mise a jour de SPIP
-		// lancement de l'upgrade SPIP
-		$res = maj_base();
-
-		if ($res) {
-			// on arrete tout ici !
-			exit;
-		}
-	}
-	spip_log('Fin de mise a jour SQL. Debut m-a-j acces et config', 'maj.' . _LOG_INFO_IMPORTANTE);
-
-	// supprimer quelques fichiers temporaires qui peuvent se retrouver invalides
-	@spip_unlink(_CACHE_RUBRIQUES);
-	@spip_unlink(_CACHE_PIPELINES);
-	@spip_unlink(_CACHE_PLUGINS_PATH);
-	@spip_unlink(_CACHE_PLUGINS_OPT);
-	@spip_unlink(_CACHE_PLUGINS_FCT);
-	@spip_unlink(_CACHE_CHEMIN);
-	@spip_unlink(_DIR_TMP . 'plugin_xml_cache.gz');
-
-	include_spip('inc/auth');
-	auth_synchroniser_distant();
-	$config = charger_fonction('config', 'inc');
-	$config();
+    if (!$titre) {
+        return;
+    } // anti-testeur automatique
+    if ($GLOBALS['spip_version_base'] != $GLOBALS['meta']['version_installee']) {
+        if (!is_numeric(_request('reinstall'))) {
+            include_spip('base/create');
+            spip_log('recree les tables eventuellement disparues', 'maj.' . _LOG_INFO_IMPORTANTE);
+            creer_base();
+        }
+
+        // quand on rentre par ici, c'est toujours une mise a jour de SPIP
+        // lancement de l'upgrade SPIP
+        $res = maj_base();
+
+        if ($res) {
+            // on arrete tout ici !
+            exit;
+        }
+    }
+    spip_log('Fin de mise a jour SQL. Debut m-a-j acces et config', 'maj.' . _LOG_INFO_IMPORTANTE);
+
+    // supprimer quelques fichiers temporaires qui peuvent se retrouver invalides
+    @spip_unlink(_CACHE_RUBRIQUES);
+    @spip_unlink(_CACHE_PIPELINES);
+    @spip_unlink(_CACHE_PLUGINS_PATH);
+    @spip_unlink(_CACHE_PLUGINS_OPT);
+    @spip_unlink(_CACHE_PLUGINS_FCT);
+    @spip_unlink(_CACHE_CHEMIN);
+    @spip_unlink(_DIR_TMP . 'plugin_xml_cache.gz');
+
+    include_spip('inc/auth');
+    auth_synchroniser_distant();
+    $config = charger_fonction('config', 'inc');
+    $config();
 }
 
 /**
@@ -114,51 +114,51 @@ 
  */
 function maj_base($version_cible = 0, $redirect = '', $debut_page = true) {
 
-	$version_installee = $GLOBALS['meta']['version_installee'] ?? null;
-
-	spip_log(
-		"Version anterieure: $version_installee. Courante: " . $GLOBALS['spip_version_base'],
-		'maj.' . _LOG_INFO_IMPORTANTE
-	);
-	if (!$version_installee or ($GLOBALS['spip_version_base'] < $version_installee)) {
-		sql_replace(
-			'spip_meta',
-			[
-				'nom' => 'version_installee',
-				'valeur' => $GLOBALS['spip_version_base'],
-				'impt' => 'non'
-			]
-		);
-		return false;
-	}
-	if (!upgrade_test()) {
-		return true;
-	}
-
-	$cible = ($version_cible ?: $GLOBALS['spip_version_base']);
-
-	if ($version_installee < 2021_01_01_00) {
-		include_spip('maj/legacy/v21');
-		include_spip('maj/legacy/v30');
-		include_spip('maj/legacy/v31');
-		include_spip('maj/legacy/v32');
-		include_spip('maj/legacy/v40');
-	}
-
-	include_spip('maj/2021');
-
-	ksort($GLOBALS['maj']);
-	$res = maj_while($version_installee, $cible, $GLOBALS['maj'], 'version_installee', 'meta', $redirect, $debut_page);
-	if ($res) {
-		if (!is_array($res)) {
-			spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
-		} else {
-			echo _T('avis_operation_echec') . ' ' . join(' ', $res);
-			echo install_fin_html();
-		}
-	}
-
-	return $res;
+    $version_installee = $GLOBALS['meta']['version_installee'] ?? null;
+
+    spip_log(
+        "Version anterieure: $version_installee. Courante: " . $GLOBALS['spip_version_base'],
+        'maj.' . _LOG_INFO_IMPORTANTE
+    );
+    if (!$version_installee or ($GLOBALS['spip_version_base'] < $version_installee)) {
+        sql_replace(
+            'spip_meta',
+            [
+                'nom' => 'version_installee',
+                'valeur' => $GLOBALS['spip_version_base'],
+                'impt' => 'non'
+            ]
+        );
+        return false;
+    }
+    if (!upgrade_test()) {
+        return true;
+    }
+
+    $cible = ($version_cible ?: $GLOBALS['spip_version_base']);
+
+    if ($version_installee < 2021_01_01_00) {
+        include_spip('maj/legacy/v21');
+        include_spip('maj/legacy/v30');
+        include_spip('maj/legacy/v31');
+        include_spip('maj/legacy/v32');
+        include_spip('maj/legacy/v40');
+    }
+
+    include_spip('maj/2021');
+
+    ksort($GLOBALS['maj']);
+    $res = maj_while($version_installee, $cible, $GLOBALS['maj'], 'version_installee', 'meta', $redirect, $debut_page);
+    if ($res) {
+        if (!is_array($res)) {
+            spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
+        } else {
+            echo _T('avis_operation_echec') . ' ' . join(' ', $res);
+            echo install_fin_html();
+        }
+    }
+
+    return $res;
 }
 
 /**
@@ -200,53 +200,53 @@ 
  */
 function maj_plugin($nom_meta_base_version, $version_cible, $maj, $table_meta = 'meta') {
 
-	if ($table_meta !== 'meta') {
-		installer_table_meta($table_meta);
-	}
-
-	$current_version = null;
-
-	if (
-		(!isset($GLOBALS[$table_meta][$nom_meta_base_version]))
-		|| (!spip_version_compare($current_version = $GLOBALS[$table_meta][$nom_meta_base_version], $version_cible, '='))
-	) {
-		// $maj['create'] contient les directives propres a la premiere creation de base
-		// c'est une operation derogatoire qui fait aboutir directement dans la version_cible
-		if (isset($maj['create'])) {
-			if (!isset($GLOBALS[$table_meta][$nom_meta_base_version])) {
-				// installation : on ne fait que l'operation create
-				$maj = ['init' => $maj['create']];
-				// et on lui ajoute un appel a inc/config
-				// pour creer les metas par defaut
-				$config = charger_fonction('config', 'inc');
-				$maj[$version_cible] = [[$config]];
-			}
-			// dans tous les cas enlever cet index du tableau
-			unset($maj['create']);
-		}
-		// si init, deja dans le bon ordre
-		if (!isset($maj['init'])) {
-			include_spip('inc/plugin'); // pour spip_version_compare
-			uksort($maj, 'spip_version_compare');
-		}
-
-		// la redirection se fait par defaut sur la page d'administration des plugins
-		// sauf lorsque nous sommes sur l'installation de SPIP
-		// ou define _REDIRECT_MAJ_PLUGIN
-		$redirect = (defined('_REDIRECT_MAJ_PLUGIN') ? _REDIRECT_MAJ_PLUGIN : generer_url_ecrire('admin_plugin'));
-		if (defined('_ECRIRE_INSTALL')) {
-			$redirect = parametre_url(generer_url_ecrire('install'), 'etape', _request('etape'));
-		}
-
-		$res = maj_while($current_version, $version_cible, $maj, $nom_meta_base_version, $table_meta, $redirect);
-		if ($res) {
-			if (!is_array($res)) {
-				spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
-			} else {
-				echo '<p>' . _T('avis_operation_echec') . ' ' . join(' ', $res) . '</p>';
-			}
-		}
-	}
+    if ($table_meta !== 'meta') {
+        installer_table_meta($table_meta);
+    }
+
+    $current_version = null;
+
+    if (
+        (!isset($GLOBALS[$table_meta][$nom_meta_base_version]))
+        || (!spip_version_compare($current_version = $GLOBALS[$table_meta][$nom_meta_base_version], $version_cible, '='))
+    ) {
+        // $maj['create'] contient les directives propres a la premiere creation de base
+        // c'est une operation derogatoire qui fait aboutir directement dans la version_cible
+        if (isset($maj['create'])) {
+            if (!isset($GLOBALS[$table_meta][$nom_meta_base_version])) {
+                // installation : on ne fait que l'operation create
+                $maj = ['init' => $maj['create']];
+                // et on lui ajoute un appel a inc/config
+                // pour creer les metas par defaut
+                $config = charger_fonction('config', 'inc');
+                $maj[$version_cible] = [[$config]];
+            }
+            // dans tous les cas enlever cet index du tableau
+            unset($maj['create']);
+        }
+        // si init, deja dans le bon ordre
+        if (!isset($maj['init'])) {
+            include_spip('inc/plugin'); // pour spip_version_compare
+            uksort($maj, 'spip_version_compare');
+        }
+
+        // la redirection se fait par defaut sur la page d'administration des plugins
+        // sauf lorsque nous sommes sur l'installation de SPIP
+        // ou define _REDIRECT_MAJ_PLUGIN
+        $redirect = (defined('_REDIRECT_MAJ_PLUGIN') ? _REDIRECT_MAJ_PLUGIN : generer_url_ecrire('admin_plugin'));
+        if (defined('_ECRIRE_INSTALL')) {
+            $redirect = parametre_url(generer_url_ecrire('install'), 'etape', _request('etape'));
+        }
+
+        $res = maj_while($current_version, $version_cible, $maj, $nom_meta_base_version, $table_meta, $redirect);
+        if ($res) {
+            if (!is_array($res)) {
+                spip_log("Pb d'acces SQL a la mise a jour", 'maj.' . _LOG_ERREUR);
+            } else {
+                echo '<p>' . _T('avis_operation_echec') . ' ' . join(' ', $res) . '</p>';
+            }
+        }
+    }
 }
 
 /**
@@ -263,17 +263,17 @@ 
  * @return void
  */
 function relance_maj($meta, $table, $redirect = '') {
-	include_spip('inc/headers');
-	if (!$redirect) {
-		// recuperer la valeur installee en cours
-		// on la tronque numeriquement, elle ne sert pas reellement
-		// sauf pour verifier que ce n'est pas oui ou non
-		// sinon is_numeric va echouer sur un numero de version 1.2.3
-		$installee = intval($GLOBALS[$table][$meta]);
-		$redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
-	}
-	echo redirige_formulaire($redirect);
-	exit();
+    include_spip('inc/headers');
+    if (!$redirect) {
+        // recuperer la valeur installee en cours
+        // on la tronque numeriquement, elle ne sert pas reellement
+        // sauf pour verifier que ce n'est pas oui ou non
+        // sinon is_numeric va echouer sur un numero de version 1.2.3
+        $installee = intval($GLOBALS[$table][$meta]);
+        $redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
+    }
+    echo redirige_formulaire($redirect);
+    exit();
 }
 
 /**
@@ -286,28 +286,28 @@ 
  * @return void
  */
 function maj_debut_page($installee, $meta, $table) {
-	static $done = false;
-	if ($done) {
-		return;
-	}
-	include_spip('inc/minipres');
-	if (function_exists('ini_set')) {
-		@ini_set('zlib.output_compression', '0'); // pour permettre l'affichage au fur et a mesure
-	}
-	$timeout = _UPGRADE_TIME_OUT * 2;
-	$titre = _T('titre_page_upgrade');
-	$balise_img = charger_filtre('balise_img');
-	$titre .= $balise_img(chemin_image('loader.svg'), '', 'loader');
-	echo(install_debut_html($titre));
-	// script de rechargement auto sur timeout
-	$redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
-	echo http_script("window.setTimeout('location.href=\"" . $redirect . "\";'," . ($timeout * 1000) . ')');
-	echo "<div style='text-align: left'>\n";
-	if (ob_get_level()) {
-		ob_flush();
-	}
-	flush();
-	$done = true;
+    static $done = false;
+    if ($done) {
+        return;
+    }
+    include_spip('inc/minipres');
+    if (function_exists('ini_set')) {
+        @ini_set('zlib.output_compression', '0'); // pour permettre l'affichage au fur et a mesure
+    }
+    $timeout = _UPGRADE_TIME_OUT * 2;
+    $titre = _T('titre_page_upgrade');
+    $balise_img = charger_filtre('balise_img');
+    $titre .= $balise_img(chemin_image('loader.svg'), '', 'loader');
+    echo(install_debut_html($titre));
+    // script de rechargement auto sur timeout
+    $redirect = generer_url_ecrire('upgrade', "reinstall=$installee&meta=$meta&table=$table", true);
+    echo http_script("window.setTimeout('location.href=\"" . $redirect . "\";'," . ($timeout * 1000) . ')');
+    echo "<div style='text-align: left'>\n";
+    if (ob_get_level()) {
+        ob_flush();
+    }
+    flush();
+    $done = true;
 }
 
 
@@ -351,64 +351,64 @@ 
  *    - tableau vide sinon.
  */
 function maj_while($installee, $cible, $maj, $meta = '', $table = 'meta', $redirect = '', $debut_page = false) {
-	# inclusions pour que les procedures d'upgrade disposent des fonctions de base
-	include_spip('base/create');
-	include_spip('base/abstract_sql');
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	include_spip('inc/plugin'); // pour spip_version_compare
-	$n = 0;
-	$time = time();
-
-	if (!defined('_TIME_OUT')) {
-		/**
-		 * Définir le timeout qui peut-être utilisé dans les fonctions
-		 * de mises à jour qui durent trop longtemps
-		 *
-		 * À utiliser tel que : `if (time() >= _TIME_OUT)`
-		 *
-		 * @var int
-		 */
-		define('_TIME_OUT', $time + _UPGRADE_TIME_OUT);
-	}
-
-	foreach ($maj as $v => $operations) {
-		// si une maj pour cette version
-		if (
-			$v == 'init' or
-			(spip_version_compare($v, $installee, '>')
-				and spip_version_compare($v, $cible, '<='))
-		) {
-			if ($debut_page) {
-				maj_debut_page($v, $meta, $table);
-			}
-			echo "MAJ $v";
-			$etape = serie_alter($v, $operations, $meta, $table, $redirect);
-			$trouver_table(''); // vider le cache des descriptions de table
-			# echec sur une etape en cours ?
-			# on sort
-			if ($etape) {
-				return [$v, $etape];
-			}
-			$n = time() - $time;
-			spip_log("$table $meta: $v en $n secondes", 'maj.' . _LOG_INFO_IMPORTANTE);
-			if ($meta) {
-				ecrire_meta($meta, $installee = $v, 'oui', $table);
-			}
-			echo (_IS_CLI ? "\n" : '<br />');
-		}
-		if (time() >= _TIME_OUT) {
-			relance_maj($meta, $table, $redirect);
-		}
-	}
-	$trouver_table(''); // vider le cache des descriptions de table
-	// indispensable pour les chgt de versions qui n'ecrivent pas en base
-	// tant pis pour la redondance eventuelle avec ci-dessus
-	if ($meta) {
-		ecrire_meta($meta, $cible, 'oui', $table);
-	}
-	spip_log("MAJ terminee. $meta: $installee", 'maj.' . _LOG_INFO_IMPORTANTE);
-
-	return [];
+    # inclusions pour que les procedures d'upgrade disposent des fonctions de base
+    include_spip('base/create');
+    include_spip('base/abstract_sql');
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    include_spip('inc/plugin'); // pour spip_version_compare
+    $n = 0;
+    $time = time();
+
+    if (!defined('_TIME_OUT')) {
+        /**
+         * Définir le timeout qui peut-être utilisé dans les fonctions
+         * de mises à jour qui durent trop longtemps
+         *
+         * À utiliser tel que : `if (time() >= _TIME_OUT)`
+         *
+         * @var int
+         */
+        define('_TIME_OUT', $time + _UPGRADE_TIME_OUT);
+    }
+
+    foreach ($maj as $v => $operations) {
+        // si une maj pour cette version
+        if (
+            $v == 'init' or
+            (spip_version_compare($v, $installee, '>')
+                and spip_version_compare($v, $cible, '<='))
+        ) {
+            if ($debut_page) {
+                maj_debut_page($v, $meta, $table);
+            }
+            echo "MAJ $v";
+            $etape = serie_alter($v, $operations, $meta, $table, $redirect);
+            $trouver_table(''); // vider le cache des descriptions de table
+            # echec sur une etape en cours ?
+            # on sort
+            if ($etape) {
+                return [$v, $etape];
+            }
+            $n = time() - $time;
+            spip_log("$table $meta: $v en $n secondes", 'maj.' . _LOG_INFO_IMPORTANTE);
+            if ($meta) {
+                ecrire_meta($meta, $installee = $v, 'oui', $table);
+            }
+            echo (_IS_CLI ? "\n" : '<br />');
+        }
+        if (time() >= _TIME_OUT) {
+            relance_maj($meta, $table, $redirect);
+        }
+    }
+    $trouver_table(''); // vider le cache des descriptions de table
+    // indispensable pour les chgt de versions qui n'ecrivent pas en base
+    // tant pis pour la redondance eventuelle avec ci-dessus
+    if ($meta) {
+        ecrire_meta($meta, $cible, 'oui', $table);
+    }
+    spip_log("MAJ terminee. $meta: $installee", 'maj.' . _LOG_INFO_IMPORTANTE);
+
+    return [];
 }
 
 /**
@@ -431,53 +431,53 @@ 
  * @return int
  */
 function serie_alter($serie, $q = [], $meta = '', $table = 'meta', $redirect = '') {
-	$meta2 = $meta . '_maj_' . $serie;
-	$etape = 0;
-	if (isset($GLOBALS[$table][$meta2])) {
-		$etape = intval($GLOBALS[$table][$meta2]);
-	}
-	foreach ($q as $i => $r) {
-		if ($i >= $etape) {
-			$msg = "maj $table $meta2 etape $i";
-			if (
-				is_array($r)
-				and function_exists($f = array_shift($r))
-			) {
-				// note: $r (arguments de la fonction $f) peut avoir des données tabulaires
-				spip_log("$msg: $f " . @join(',', $r), 'maj.' . _LOG_INFO_IMPORTANTE);
-				// pour les fonctions atomiques sql_xx
-				// on enregistre le meta avant de lancer la fonction,
-				// de maniere a eviter de boucler sur timeout
-				// mais pour les fonctions complexes,
-				// il faut les rejouer jusqu'a achevement.
-				// C'est a elle d'assurer qu'elles progressent a chaque rappel
-				if (strncmp($f, 'sql_', 4) == 0) {
-					ecrire_meta($meta2, $i + 1, 'non', $table);
-				}
-				echo (_IS_CLI ? '.' : " <span title='$i'>.</span>");
-				$f(...$r);
-				// si temps imparti depasse, on relance sans ecrire en meta
-				// car on est peut etre sorti sur timeout si c'est une fonction longue
-				if (time() >= _TIME_OUT) {
-					relance_maj($meta, $table, $redirect);
-				}
-				ecrire_meta($meta2, $i + 1, 'non', $table);
-				spip_log("$meta2: ok", 'maj.' . _LOG_INFO_IMPORTANTE);
-			} else {
-				if (!is_array($r)) {
-					spip_log("maj $i format incorrect", 'maj.' . _LOG_ERREUR);
-				} else {
-					spip_log("maj $i fonction $f non definie", 'maj.' . _LOG_ERREUR);
-				}
-				// en cas d'erreur serieuse, on s'arrete
-				// mais on permet de passer par dessus en rechargeant la page.
-				return $i + 1;
-			}
-		}
-	}
-	effacer_meta($meta2, $table);
-
-	return 0;
+    $meta2 = $meta . '_maj_' . $serie;
+    $etape = 0;
+    if (isset($GLOBALS[$table][$meta2])) {
+        $etape = intval($GLOBALS[$table][$meta2]);
+    }
+    foreach ($q as $i => $r) {
+        if ($i >= $etape) {
+            $msg = "maj $table $meta2 etape $i";
+            if (
+                is_array($r)
+                and function_exists($f = array_shift($r))
+            ) {
+                // note: $r (arguments de la fonction $f) peut avoir des données tabulaires
+                spip_log("$msg: $f " . @join(',', $r), 'maj.' . _LOG_INFO_IMPORTANTE);
+                // pour les fonctions atomiques sql_xx
+                // on enregistre le meta avant de lancer la fonction,
+                // de maniere a eviter de boucler sur timeout
+                // mais pour les fonctions complexes,
+                // il faut les rejouer jusqu'a achevement.
+                // C'est a elle d'assurer qu'elles progressent a chaque rappel
+                if (strncmp($f, 'sql_', 4) == 0) {
+                    ecrire_meta($meta2, $i + 1, 'non', $table);
+                }
+                echo (_IS_CLI ? '.' : " <span title='$i'>.</span>");
+                $f(...$r);
+                // si temps imparti depasse, on relance sans ecrire en meta
+                // car on est peut etre sorti sur timeout si c'est une fonction longue
+                if (time() >= _TIME_OUT) {
+                    relance_maj($meta, $table, $redirect);
+                }
+                ecrire_meta($meta2, $i + 1, 'non', $table);
+                spip_log("$meta2: ok", 'maj.' . _LOG_INFO_IMPORTANTE);
+            } else {
+                if (!is_array($r)) {
+                    spip_log("maj $i format incorrect", 'maj.' . _LOG_ERREUR);
+                } else {
+                    spip_log("maj $i fonction $f non definie", 'maj.' . _LOG_ERREUR);
+                }
+                // en cas d'erreur serieuse, on s'arrete
+                // mais on permet de passer par dessus en rechargeant la page.
+                return $i + 1;
+            }
+        }
+    }
+    effacer_meta($meta2, $table);
+
+    return 0;
 }
 
 /**
@@ -486,16 +486,16 @@ 
  * @return bool True si possible.
  **/
 function upgrade_test() {
-	sql_drop_table('spip_test', true);
-	sql_create('spip_test', ['a' => 'int']);
-	sql_alter('TABLE spip_test ADD b INT');
-	sql_insertq('spip_test', ['b' => 1], ['field' => ['b' => 'int']]);
-	$result = sql_select('b', 'spip_test');
-	// ne pas garder le resultat de la requete sinon sqlite3
-	// ne peut pas supprimer la table spip_test lors du sql_alter qui suit
-	// car cette table serait alors 'verouillee'
-	$result = $result ? true : false;
-	sql_alter('TABLE spip_test DROP b');
-
-	return $result;
+    sql_drop_table('spip_test', true);
+    sql_create('spip_test', ['a' => 'int']);
+    sql_alter('TABLE spip_test ADD b INT');
+    sql_insertq('spip_test', ['b' => 1], ['field' => ['b' => 'int']]);
+    $result = sql_select('b', 'spip_test');
+    // ne pas garder le resultat de la requete sinon sqlite3
+    // ne peut pas supprimer la table spip_test lors du sql_alter qui suit
+    // car cette table serait alors 'verouillee'
+    $result = $result ? true : false;
+    sql_alter('TABLE spip_test DROP b');
+
+    return $result;
 }

ecrire/balise/menu_lang_ecrire.php

Spacing +3 added lines, -3 removed lines

@@ -99,9 +99,9 @@ 
 	include_spip('inc/lang');
 
 	if ($GLOBALS['spip_lang'] <> $default) {
-		$opt = lang_select($default);  # et remplace
+		$opt = lang_select($default); # et remplace
 		if ($GLOBALS['spip_lang'] <> $default) {
-			$default = '';  # annule tout choix par defaut
+			$default = ''; # annule tout choix par defaut
 			if ($opt) {
 				lang_select();
 			}
@@ -110,7 +110,7 @@ 
 
 	# lien a partir de /
 	$cible = parametre_url(self(), 'lang', '', '&');
-	$post = generer_url_action('converser', 'redirect=' . rawurlencode($cible), true);
+	$post = generer_url_action('converser', 'redirect='.rawurlencode($cible), true);
 
 	return [
 		'formulaires/menu_lang',

Indentation +31 added lines, -31 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -37,7 +37,7 @@ 
  *     Pile complétée du code compilé
  **/
 function balise_MENU_LANG_ECRIRE($p) {
-	return calculer_balise_dynamique($p, 'MENU_LANG_ECRIRE', ['lang']);
+    return calculer_balise_dynamique($p, 'MENU_LANG_ECRIRE', ['lang']);
 }
 
 /**
@@ -56,12 +56,12 @@ 
  *   - string: Si pas de multilinguisme
  */
 function balise_MENU_LANG_ECRIRE_stat($args, $context_compil) {
-	include_spip('inc/lang');
-	if (strpos($GLOBALS['meta']['langues_proposees'], ',') === false) {
-		return '';
-	}
+    include_spip('inc/lang');
+    if (strpos($GLOBALS['meta']['langues_proposees'], ',') === false) {
+        return '';
+    }
 
-	return $args;
+    return $args;
 }
 
 /**
@@ -77,7 +77,7 @@ 
  *     Liste : Chemin du squelette, durée du cache, contexte
  **/
 function balise_MENU_LANG_ECRIRE_dyn($opt) {
-	return menu_lang_pour_tous('var_lang_ecrire', $opt);
+    return menu_lang_pour_tous('var_lang_ecrire', $opt);
 }
 
 /**
@@ -97,30 +97,30 @@ 
  *     Liste : Chemin du squelette, durée du cache, contexte
  **/
 function menu_lang_pour_tous($nom, $default) {
-	include_spip('inc/lang');
+    include_spip('inc/lang');
 
-	if ($GLOBALS['spip_lang'] <> $default) {
-		$opt = lang_select($default);  # et remplace
-		if ($GLOBALS['spip_lang'] <> $default) {
-			$default = '';  # annule tout choix par defaut
-			if ($opt) {
-				lang_select();
-			}
-		}
-	}
+    if ($GLOBALS['spip_lang'] <> $default) {
+        $opt = lang_select($default);  # et remplace
+        if ($GLOBALS['spip_lang'] <> $default) {
+            $default = '';  # annule tout choix par defaut
+            if ($opt) {
+                lang_select();
+            }
+        }
+    }
 
-	# lien a partir de /
-	$cible = parametre_url(self(), 'lang', '', '&');
-	$post = generer_url_action('converser', 'redirect=' . rawurlencode($cible), true);
+    # lien a partir de /
+    $cible = parametre_url(self(), 'lang', '', '&');
+    $post = generer_url_action('converser', 'redirect=' . rawurlencode($cible), true);
 
-	return [
-		'formulaires/menu_lang',
-		3600,
-		[
-			'nom' => $nom,
-			'url' => $post,
-			'name' => $nom,
-			'default' => $default,
-		]
-	];
+    return [
+        'formulaires/menu_lang',
+        3600,
+        [
+            'nom' => $nom,
+            'url' => $post,
+            'name' => $nom,
+            'default' => $default,
+        ]
+    ];
 }

ecrire/balise/menu_lang.php

Indentation +8 added lines, -8 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -37,7 +37,7 @@ 
  *     Pile complétée du code compilé
  **/
 function balise_MENU_LANG($p) {
-	return calculer_balise_dynamique($p, 'MENU_LANG', ['lang']);
+    return calculer_balise_dynamique($p, 'MENU_LANG', ['lang']);
 }
 
 /**
@@ -56,11 +56,11 @@ 
  *   string: (vide) si pas de multilinguisme
  */
 function balise_MENU_LANG_stat($args, $context_compil) {
-	if (strpos($GLOBALS['meta']['langues_multilingue'], ',') === false) {
-		return '';
-	}
+    if (strpos($GLOBALS['meta']['langues_multilingue'], ',') === false) {
+        return '';
+    }
 
-	return $args;
+    return $args;
 }
 
 /**
@@ -76,7 +76,7 @@ 
  *     Liste : Chemin du squelette, durée du cache, contexte
  **/
 function balise_MENU_LANG_dyn($opt) {
-	include_spip('balise/menu_lang_ecrire');
+    include_spip('balise/menu_lang_ecrire');
 
-	return menu_lang_pour_tous('var_lang', $opt);
+    return menu_lang_pour_tous('var_lang', $opt);
 }

ecrire/inc/filtres_mime.php

Indentation +53 added lines, -53 removed lines

@@ -22,7 +22,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('inc/filtres');
 
@@ -39,7 +39,7 @@ 
  * @return string Rien.
  **/
 function filtre_image_dist($t) {
-	return '';
+    return '';
 }
 
 /**
@@ -52,7 +52,7 @@ 
  * @return string Rien.
  **/
 function filtre_audio_dist($t) {
-	return '';
+    return '';
 }
 
 /**
@@ -65,7 +65,7 @@ 
  * @return string Rien.
  **/
 function filtre_video_dist($t) {
-	return '';
+    return '';
 }
 
 /**
@@ -78,7 +78,7 @@ 
  * @return string Rien.
  **/
 function filtre_application_dist($t) {
-	return '';
+    return '';
 }
 
 /**
@@ -91,7 +91,7 @@ 
  * @return string Rien.
  **/
 function filtre_message_dist($t) {
-	return '';
+    return '';
 }
 
 /**
@@ -104,7 +104,7 @@ 
  * @return string Rien.
  **/
 function filtre_multipart_dist($t) {
-	return '';
+    return '';
 }
 
 /**
@@ -117,10 +117,10 @@ 
  * @return string Contenu échappé.
  **/
 function filtre_text_dist($t) {
-	static $t1 = ['&', '<', '>'];
-	static $t2 = ['&amp;', '&lt;', '&gt;'];
+    static $t1 = ['&', '<', '>'];
+    static $t2 = ['&amp;', '&lt;', '&gt;'];
 
-	return '<pre>' . str_replace($t1, $t2, (string) $t) . '</pre>';
+    return '<pre>' . str_replace($t1, $t2, (string) $t) . '</pre>';
 }
 
 /**
@@ -135,21 +135,21 @@ 
  *     Tableau (formaté en SPIP)
  **/
 function filtre_text_csv_dist($t) {
-	include_spip('inc/csv');
-	[$entete, $lignes, $caption] = analyse_csv($t);
-	foreach ($lignes as &$l) {
-		$l = join('|', $l);
-	}
-	$corps = join("\n", $lignes) . "\n";
-	$corps = $caption .
-		"\n|{{" .
-		join('}}|{{', $entete) .
-		'}}|' .
-		"\n|" .
-		str_replace("\n", "|\n|", $corps);
-	include_spip('inc/texte');
-
-	return propre($corps);
+    include_spip('inc/csv');
+    [$entete, $lignes, $caption] = analyse_csv($t);
+    foreach ($lignes as &$l) {
+        $l = join('|', $l);
+    }
+    $corps = join("\n", $lignes) . "\n";
+    $corps = $caption .
+        "\n|{{" .
+        join('}}|{{', $entete) .
+        '}}|' .
+        "\n|" .
+        str_replace("\n", "|\n|", $corps);
+    include_spip('inc/texte');
+
+    return propre($corps);
 }
 
 /**
@@ -163,33 +163,33 @@ 
  * @return string Code html sécurisé ou texte échappé
  **/
 function filtre_text_html_dist($t) {
-	if (!preg_match(',^(.*?)<body[^>]*>(.*)</body>,is', $t, $r)) {
-		return appliquer_filtre($t, 'text/plain');
-	}
-
-	[, $h, $t] = $r;
-
-	$style = '';
-	// recuperer les styles internes
-	if (preg_match_all(',<style>(.*?)</style>,is', $h, $r, PREG_PATTERN_ORDER)) {
-		$style = join("\n", $r[1]);
-	}
-	// ... et externes
-
-	include_spip('inc/distant');
-	if (preg_match_all(',<link[^>]+type=.text/css[^>]*>,is', $h, $r, PREG_PATTERN_ORDER)) {
-		foreach ($r[0] as $l) {
-			preg_match("/href='([^']*)'/", str_replace('"', "'", $l), $m);
-			$page = recuperer_url($m[1]);
-			$page = $page['page'] ?? '';
-			$style .= "\n/* $l */\n"
-				. str_replace('<', '', $page);
-		}
-	}
-	// Pourquoi SafeHtml transforme-t-il en texte les scripts dans Body ?
-	$t = safehtml(preg_replace(',<script' . '.*?</script>,is', '', $t));
-
-	return (!$style ? '' : "\n<style>" . $style . '</style>') . $t;
+    if (!preg_match(',^(.*?)<body[^>]*>(.*)</body>,is', $t, $r)) {
+        return appliquer_filtre($t, 'text/plain');
+    }
+
+    [, $h, $t] = $r;
+
+    $style = '';
+    // recuperer les styles internes
+    if (preg_match_all(',<style>(.*?)</style>,is', $h, $r, PREG_PATTERN_ORDER)) {
+        $style = join("\n", $r[1]);
+    }
+    // ... et externes
+
+    include_spip('inc/distant');
+    if (preg_match_all(',<link[^>]+type=.text/css[^>]*>,is', $h, $r, PREG_PATTERN_ORDER)) {
+        foreach ($r[0] as $l) {
+            preg_match("/href='([^']*)'/", str_replace('"', "'", $l), $m);
+            $page = recuperer_url($m[1]);
+            $page = $page['page'] ?? '';
+            $style .= "\n/* $l */\n"
+                . str_replace('<', '', $page);
+        }
+    }
+    // Pourquoi SafeHtml transforme-t-il en texte les scripts dans Body ?
+    $t = safehtml(preg_replace(',<script' . '.*?</script>,is', '', $t));
+
+    return (!$style ? '' : "\n<style>" . $style . '</style>') . $t;
 }
 
 /**
@@ -202,7 +202,7 @@ 
  * @return string Code HTML des balises `<param>`
  **/
 function filtre_audio_x_pn_realaudio($id) {
-	return "
+    return "
 	<param name='controls' value='PositionSlider' />
 	<param name='controls' value='ImageWindow' />
 	<param name='controls' value='PlayButton' />

Spacing +9 added lines, -9 removed lines

@@ -120,7 +120,7 @@ 
 	static $t1 = ['&', '<', '>'];
 	static $t2 = ['&amp;', '&lt;', '&gt;'];
 
-	return '<pre>' . str_replace($t1, $t2, (string) $t) . '</pre>';
+	return '<pre>'.str_replace($t1, $t2, (string) $t).'</pre>';
 }
 
 /**
@@ -140,12 +140,12 @@ 
 	foreach ($lignes as &$l) {
 		$l = join('|', $l);
 	}
-	$corps = join("\n", $lignes) . "\n";
-	$corps = $caption .
-		"\n|{{" .
-		join('}}|{{', $entete) .
-		'}}|' .
-		"\n|" .
+	$corps = join("\n", $lignes)."\n";
+	$corps = $caption.
+		"\n|{{".
+		join('}}|{{', $entete).
+		'}}|'.
+		"\n|".
 		str_replace("\n", "|\n|", $corps);
 	include_spip('inc/texte');
 
@@ -187,9 +187,9 @@ 
 		}
 	}
 	// Pourquoi SafeHtml transforme-t-il en texte les scripts dans Body ?
-	$t = safehtml(preg_replace(',<script' . '.*?</script>,is', '', $t));
+	$t = safehtml(preg_replace(',<script'.'.*?</script>,is', '', $t));
 
-	return (!$style ? '' : "\n<style>" . $style . '</style>') . $t;
+	return (!$style ? '' : "\n<style>".$style.'</style>').$t;
 }
 
 /**

ecrire/public/balises.php

Braces +1 added lines, -2 removed lines

@@ -2868,8 +2868,7 @@
 	$_const = interprete_argument_balise(1, $p);
 	if (!strlen($_const ?? '')) {
 		$p->code = "''";
-	}
-	else {
+	} else {
 		$p->code = "(defined($_const)?constant($_const):'')";
 	}
 	$p->interdire_scripts = false;

Spacing +48 added lines, -48 removed lines

@@ -358,7 +358,7 @@ 
  */
 function balise_DOSSIER_SQUELETTE_dist($p) {
 	$code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE));
-	$p->code = "_DIR_RACINE . '$code'" .
+	$p->code = "_DIR_RACINE . '$code'".
 		$p->interdire_scripts = false;
 
 	return $p;
@@ -377,7 +377,7 @@ 
  */
 function balise_SQUELETTE_dist($p) {
 	$code = addslashes($p->descr['sourcefile']);
-	$p->code = "'$code'" .
+	$p->code = "'$code'".
 		$p->interdire_scripts = false;
 
 	return $p;
@@ -429,9 +429,9 @@ 
  **/
 function balise_NOM_SITE_dist($p) {
 	if (!$p->etoile) {
-		$p->code = 'supprimer_numero(calculer_url(' .
-			champ_sql('url_site', $p) . ',' .
-			champ_sql('nom_site', $p) .
+		$p->code = 'supprimer_numero(calculer_url('.
+			champ_sql('url_site', $p).','.
+			champ_sql('nom_site', $p).
 			", 'titre', \$connect, false))";
 	} else {
 		$p->code = champ_sql('nom_site', $p);
@@ -582,8 +582,8 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POPULARITE_ABSOLUE_dist($p) {
-	$p->code = 'ceil(' .
-		champ_sql('popularite', $p) .
+	$p->code = 'ceil('.
+		champ_sql('popularite', $p).
 		')';
 	$p->interdire_scripts = false;
 
@@ -664,7 +664,7 @@ 
 	$p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);
 ;
 	if (($v = interprete_argument_balise(1, $p)) !== null) {
-		$p->code = 'table_valeur(' . $p->code . ', ' . $v . ')';
+		$p->code = 'table_valeur('.$p->code.', '.$v.')';
 	}
 	$p->interdire_scripts = true;
 
@@ -804,16 +804,16 @@ 
 	$trouver_table = charger_fonction('trouver_table', 'base');
 	if ($desc = $trouver_table(table_objet_sql($type_objet))) {
 		if (isset($desc['field']['descriptif'])) {
-			$_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ',';
+			$_ligne .= "'descriptif' => ".champ_sql('descriptif', $p).',';
 		}
 		if (isset($desc['field']['texte'])) {
-			$_ligne .= "'texte' => " . champ_sql('texte', $p) . ',';
+			$_ligne .= "'texte' => ".champ_sql('texte', $p).',';
 		}
 		if (isset($desc['field']['chapo'])) {
-			$_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ',';
+			$_ligne .= "'chapo' => ".champ_sql('chapo', $p).',';
 		}
 		if (isset($desc['introduction_longueur'])) {
-			$_introduction_longueur = "'" . $desc['introduction_longueur'] . "'";
+			$_introduction_longueur = "'".$desc['introduction_longueur']."'";
 		}
 	}
 	$_ligne .= ')';
@@ -909,10 +909,10 @@ 
 		$p->code = sprintf(
 			CODE_RECUPERER_FOND,
 			"'modeles/lesauteurs'",
-			"array('objet'=>'" . $objet .
-			"','id_objet' => " . champ_sql($id_table_objet, $p) .
-			",'$id_table_objet' => " . champ_sql($id_table_objet, $p) .
-			($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) .
+			"array('objet'=>'".$objet.
+			"','id_objet' => ".champ_sql($id_table_objet, $p).
+			",'$id_table_objet' => ".champ_sql($id_table_objet, $p).
+			($objet == 'article' ? '' : ",'id_article' => ".champ_sql('id_article', $p)).
 			')',
 			"'trim'=>true, 'compil'=>array($c)",
 			_q($connect)
@@ -981,7 +981,7 @@ 
 					$m = trim($m);
 					if ($m != "''") {
 						if (!preg_match(',\W,', $m)) {
-							$m = $boucle->id_table . ".$m";
+							$m = $boucle->id_table.".$m";
 						}
 
 						$m .= ' AS titre_rang';
@@ -1142,7 +1142,7 @@ 
 	$f_pagination = chercher_filtre('pagination');
 	$type = $p->boucles[$b]->modificateur['debut_nom'];
 	$modif = ($type[0] !== "'") ? "'debut'.$type"
-		: ("'debut" . substr($type, 1));
+		: ("'debut".substr($type, 1));
 
 	$p->code = sprintf(
 		CODE_PAGINATION,
@@ -1285,7 +1285,7 @@ 
 		$msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN']];
 		erreur_squelette($msg, $p);
 	} else {
-		$p->code = 'find_in_path((string)' . $arg . ')';
+		$p->code = 'find_in_path((string)'.$arg.')';
 	}
 
 	$p->interdire_scripts = false;
@@ -1320,7 +1320,7 @@ 
 		$msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN_IMAGE']];
 		erreur_squelette($msg, $p);
 	} else {
-		$p->code = 'chemin_image((string)' . $arg . ')';
+		$p->code = 'chemin_image((string)'.$arg.')';
 	}
 
 	$p->interdire_scripts = false;
@@ -1374,7 +1374,7 @@ 
 		// cas de #ENV sans argument : on retourne le serialize() du tableau
 		// une belle fonction [(#ENV|affiche_env)] serait pratique
 		if ($src) {
-			$p->code = '(is_array($a = (' . $src . ')) ? serialize($a) : "")';
+			$p->code = '(is_array($a = ('.$src.')) ? serialize($a) : "")';
 		} else {
 			$p->code = 'serialize($Pile[0]??[])';
 		}
@@ -1427,8 +1427,8 @@ 
 	$_sinon = interprete_argument_balise(2, $p);
 	$_unserialize = sinon(interprete_argument_balise(3, $p), 'false');
 
-	$p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' .
-		($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')";
+	$p->code = '(include_spip(\'inc/config\')?lire_config('.$arg.','.
+		($_sinon && $_sinon != "''" ? $_sinon : 'null').','.$_unserialize."):'')";
 
 	return $p;
 }
@@ -1521,7 +1521,7 @@ 
 		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SESSION_SET']];
 		erreur_squelette($err_b_s_a, $p);
 	} else {
-		$p->code = '(include_spip("inc/session") AND session_set(' . $_nom . ',' . $_val . '))';
+		$p->code = '(include_spip("inc/session") AND session_set('.$_nom.','.$_val.'))';
 	}
 
 	$p->interdire_scripts = false;
@@ -1569,7 +1569,7 @@ 
 			)
 		) {
 			$p->code = /* $r[1]. */
-				'(' . $r[2] . ')';
+				'('.$r[2].')';
 		} else {
 			$p->code = "eval('return '.$php.';')";
 		}
@@ -1813,9 +1813,9 @@ 
 
 		// noter la duree du cache dans un entete proprietaire
 
-		$code = "'<'.'" . '?php header("X-Spip-Cache: '
+		$code = "'<'.'".'?php header("X-Spip-Cache: '
 			. $duree
-			. '"); ?' . "'.'>'";
+			. '"); ?'."'.'>'";
 
 		// Remplir le header Cache-Control
 		// cas #CACHE{0}
@@ -1836,9 +1836,9 @@ 
 				$pa == 'cache-client'
 				and $duree > 0
 			) {
-				$code .= ".'<'.'" . '?php header("Cache-Control: max-age='
+				$code .= ".'<'.'".'?php header("Cache-Control: max-age='
 					. $duree
-					. '"); ?' . "'.'>'";
+					. '"); ?'."'.'>'";
 				// il semble logique, si on cache-client, de ne pas invalider
 				$pa = 'statique';
 			}
@@ -1847,7 +1847,7 @@ 
 				$pa == 'statique'
 				and $duree > 0
 			) {
-				$code .= ".'<'.'" . '?php header("X-Spip-Statique: oui"); ?' . "'.'>'";
+				$code .= ".'<'.'".'?php header("X-Spip-Statique: oui"); ?'."'.'>'";
 			}
 		}
 	} else {
@@ -2011,9 +2011,9 @@ 
 		if ($p->etoile) {
 			$_options[] = "'etoile'=>true";
 		}
-		$_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) . ')';
+		$_options[] = "'compil'=>array(".memoriser_contexte_compil($p).')';
 
-		$_l = 'array(' . join(",\n\t", $_contexte) . ')';
+		$_l = 'array('.join(",\n\t", $_contexte).')';
 		if ($flag_env) {
 			$_l = "array_merge(\$Pile[0],$_l)";
 		}
@@ -2023,7 +2023,7 @@ 
 		$msg = ['zbug_balise_sans_argument', ['balise' => ' INCLURE']];
 		erreur_squelette($msg, $p);
 	} else {
-		$p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
+		$p->code = 'charge_scripts('.$_contexte[1].',false)';
 	}
 
 	$p->interdire_scripts = false; // la securite est assuree par recuperer_fond
@@ -2071,7 +2071,7 @@ 
 		unset($_contexte[1]);
 
 		if (preg_match("/^\s*'[^']*'/s", $nom)) {
-			$nom = "'modeles/" . substr($nom, 1);
+			$nom = "'modeles/".substr($nom, 1);
 		} else {
 			$nom = "'modeles/' . $nom";
 		}
@@ -2088,8 +2088,8 @@ 
 			$primary = $p->boucles[$p->id_boucle]->primary;
 			if (!strpos($primary, ',')) {
 				$id = champ_sql($primary, $p);
-				$_contexte[] = "'$primary'=>" . $id;
-				$_contexte[] = "'id'=>" . $id;
+				$_contexte[] = "'$primary'=>".$id;
+				$_contexte[] = "'id'=>".$id;
 			}
 		}
 		$_contexte[] = "'recurs'=>(++\$recurs)";
@@ -2101,11 +2101,11 @@ 
 		$_options = memoriser_contexte_compil($p);
 		$_options = "'compil'=>array($_options), 'trim'=>true";
 		if (isset($_contexte['ajax'])) {
-			$_options .= ', ' . preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
+			$_options .= ', '.preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
 			unset($_contexte['ajax']);
 		}
 
-		$_l = 'array(' . join(",\n\t", $_contexte) . ')';
+		$_l = 'array('.join(",\n\t", $_contexte).')';
 		if ($flag_env) {
 			$_l = "array_merge(\$Pile[0],$_l)";
 		}
@@ -2215,12 +2215,12 @@ 
 function balise_DOUBLONS_dist($p) {
 	if ($type = interprete_argument_balise(1, $p)) {
 		if ($famille = interprete_argument_balise(2, $p)) {
-			$type .= '.' . $famille;
+			$type .= '.'.$famille;
 		}
-		$p->code = '(isset($doublons[' . $type . ']) ? $doublons[' . $type . '] : "")';
+		$p->code = '(isset($doublons['.$type.']) ? $doublons['.$type.'] : "")';
 		if (!$p->etoile) {
 			$p->code = 'array_filter(array_map("intval",explode(",",'
-				. $p->code . ')))';
+				. $p->code.')))';
 		}
 	} else {
 		$p->code = '$doublons';
@@ -2349,7 +2349,7 @@ 
 			$_code[] = "$_key => $_val";
 		}
 	} while ($_key && $_val);
-	$p->code = 'array(' . join(', ', $_code) . ')';
+	$p->code = 'array('.join(', ', $_code).')';
 	$p->interdire_scripts = false;
 
 	return $p;
@@ -2376,7 +2376,7 @@ 
 	while ($_val = interprete_argument_balise($n++, $p)) {
 		$_code[] = $_val;
 	}
-	$p->code = 'array(' . join(', ', $_code) . ')';
+	$p->code = 'array('.join(', ', $_code).')';
 	$p->interdire_scripts = false;
 
 	return $p;
@@ -2421,10 +2421,10 @@ 
 		$_code[] = $_v;
 	}
 
-	$p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(
+	$p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser('.join(
 		', ',
 		$_code
-	) . ')?" ":"")';
+	).')?" ":"")';
 	$p->interdire_scripts = false;
 
 	return $p;
@@ -2457,7 +2457,7 @@ 
 	$type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"';
 
 	$f = chercher_filtre('info_plugin');
-	$p->code = $f . '(' . $plugin . ', ' . $type_info . ')';
+	$p->code = $f.'('.$plugin.', '.$type_info.')';
 
 	return $p;
 }
@@ -2689,7 +2689,7 @@ 
 	}
 
 	// Différentes infos relatives au tri présentes dans les modificateurs
-	$_tri_nom = $boucle->modificateur['tri_nom'] ; // nom du paramètre définissant le tri
+	$_tri_nom = $boucle->modificateur['tri_nom']; // nom du paramètre définissant le tri
 	$_tri_champ = $boucle->modificateur['tri_champ']; // champ actuel utilisé le tri
 	$_tri_sens = $boucle->modificateur['tri_sens']; // sens de tri actuel
 	$_tri_liste_sens_defaut = $boucle->modificateur['tri_liste_sens_defaut']; // sens par défaut pour chaque champ
@@ -2784,7 +2784,7 @@ 
 		$connect = $p->boucles[$p->id_boucle]->sql_serveur;
 	}
 
-	$p->code = '(objet_test_si_publie(' . $_type . ',intval(' . $_id . '),' . _q($connect) . ")?' ':'')";
+	$p->code = '(objet_test_si_publie('.$_type.',intval('.$_id.'),'._q($connect).")?' ':'')";
 	$p->interdire_scripts = false;
 
 	return $p;

Indentation +943 added lines, -943 removed lines

@@ -28,7 +28,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -50,16 +50,16 @@ 
  *     Code PHP si cet argument est présent, sinon null
  **/
 function interprete_argument_balise(int $n, Champ $p): ?string {
-	if (($p->param) && (!$p->param[0][0]) && ((is_countable($p->param[0]) ? count($p->param[0]) : 0) > $n)) {
-		return calculer_liste(
-			$p->param[0][$n],
-			$p->descr,
-			$p->boucles,
-			$p->id_boucle
-		);
-	} else {
-		return null;
-	}
+    if (($p->param) && (!$p->param[0][0]) && ((is_countable($p->param[0]) ? count($p->param[0]) : 0) > $n)) {
+        return calculer_liste(
+            $p->param[0][$n],
+            $p->descr,
+            $p->boucles,
+            $p->id_boucle
+        );
+    } else {
+        return null;
+    }
 }
 
 
@@ -79,10 +79,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_NOM_SITE_SPIP_dist($p) {
-	$p->code = "\$GLOBALS['meta']['nom_site']";
+    $p->code = "\$GLOBALS['meta']['nom_site']";
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 /**
@@ -98,10 +98,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_EMAIL_WEBMASTER_dist($p) {
-	$p->code = "\$GLOBALS['meta']['email_webmaster']";
+    $p->code = "\$GLOBALS['meta']['email_webmaster']";
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 /**
@@ -117,10 +117,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_DESCRIPTIF_SITE_SPIP_dist($p) {
-	$p->code = "\$GLOBALS['meta']['descriptif_site']";
+    $p->code = "\$GLOBALS['meta']['descriptif_site']";
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 
@@ -141,10 +141,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_CHARSET_dist($p) {
-	$p->code = "\$GLOBALS['meta']['charset']";
+    $p->code = "\$GLOBALS['meta']['charset']";
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 /**
@@ -169,11 +169,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_LANG_LEFT_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	$p->code = "lang_dir($_lang, 'left','right')";
-	$p->interdire_scripts = false;
+    $_lang = champ_sql('lang', $p);
+    $p->code = "lang_dir($_lang, 'left','right')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -193,11 +193,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_LANG_RIGHT_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	$p->code = "lang_dir($_lang, 'right','left')";
-	$p->interdire_scripts = false;
+    $_lang = champ_sql('lang', $p);
+    $p->code = "lang_dir($_lang, 'right','left')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -222,11 +222,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_LANG_DIR_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	$p->code = "lang_dir($_lang, 'ltr','rtl')";
-	$p->interdire_scripts = false;
+    $_lang = champ_sql('lang', $p);
+    $p->code = "lang_dir($_lang, 'ltr','rtl')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -243,10 +243,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_PUCE_dist($p) {
-	$p->code = 'definir_puce()';
-	$p->interdire_scripts = false;
+    $p->code = 'definir_puce()';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -270,9 +270,9 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DATE_dist($p) {
-	$p->code = champ_sql('date', $p);
+    $p->code = champ_sql('date', $p);
 
-	return $p;
+    return $p;
 }
 
 
@@ -292,10 +292,10 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DATE_REDAC_dist($p) {
-	$p->code = champ_sql('date_redac', $p);
-	$p->interdire_scripts = false;
+    $p->code = champ_sql('date_redac', $p);
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -314,10 +314,10 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DATE_MODIF_dist($p) {
-	$p->code = champ_sql('date_modif', $p);
-	$p->interdire_scripts = false;
+    $p->code = champ_sql('date_modif', $p);
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -335,13 +335,13 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DATE_NOUVEAUTES_dist($p) {
-	$p->code = "((\$GLOBALS['meta']['quoi_de_neuf'] == 'oui'
+    $p->code = "((\$GLOBALS['meta']['quoi_de_neuf'] == 'oui'
 	AND isset(\$GLOBALS['meta']['dernier_envoi_neuf'])) ?
 	\$GLOBALS['meta']['dernier_envoi_neuf'] :
 	\"'0000-00-00'\")";
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -359,11 +359,11 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_DOSSIER_SQUELETTE_dist($p) {
-	$code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE));
-	$p->code = "_DIR_RACINE . '$code'" .
-		$p->interdire_scripts = false;
+    $code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE));
+    $p->code = "_DIR_RACINE . '$code'" .
+        $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -378,11 +378,11 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_SQUELETTE_dist($p) {
-	$code = addslashes($p->descr['sourcefile']);
-	$p->code = "'$code'" .
-		$p->interdire_scripts = false;
+    $code = addslashes($p->descr['sourcefile']);
+    $p->code = "'$code'" .
+        $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -401,10 +401,10 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_SPIP_VERSION_dist($p) {
-	$p->code = 'spip_version()';
-	$p->interdire_scripts = false;
+    $p->code = 'spip_version()';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -430,18 +430,18 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_NOM_SITE_dist($p) {
-	if (!$p->etoile) {
-		$p->code = 'supprimer_numero(calculer_url(' .
-			champ_sql('url_site', $p) . ',' .
-			champ_sql('nom_site', $p) .
-			", 'titre', \$connect, false))";
-	} else {
-		$p->code = champ_sql('nom_site', $p);
-	}
+    if (!$p->etoile) {
+        $p->code = 'supprimer_numero(calculer_url(' .
+            champ_sql('url_site', $p) . ',' .
+            champ_sql('nom_site', $p) .
+            ", 'titre', \$connect, false))";
+    } else {
+        $p->code = champ_sql('nom_site', $p);
+    }
 
-	$p->interdire_scripts = true;
+    $p->interdire_scripts = true;
 
-	return $p;
+    return $p;
 }
 
 
@@ -458,11 +458,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_NOTES_dist($p) {
-	// Recuperer les notes
-	$p->code = 'calculer_notes()';
+    // Recuperer les notes
+    $p->code = 'calculer_notes()';
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 
@@ -484,10 +484,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_RECHERCHE_dist($p) {
-	$p->code = 'entites_html(_request("recherche"))';
-	$p->interdire_scripts = false;
+    $p->code = 'entites_html(_request("recherche"))';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -505,18 +505,18 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_COMPTEUR_BOUCLE_dist($p) {
-	$b = index_boucle_mere($p);
-	if ($b === '') {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-		return null;
-	} else {
-		$p->code = "(\$Numrows['$b']['compteur_boucle'] ?? 0)";
-		$p->boucles[$b]->cptrows = true;
-		$p->interdire_scripts = false;
+    $b = index_boucle_mere($p);
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+        return null;
+    } else {
+        $p->code = "(\$Numrows['$b']['compteur_boucle'] ?? 0)";
+        $p->boucles[$b]->cptrows = true;
+        $p->interdire_scripts = false;
 
-		return $p;
-	}
+        return $p;
+    }
 }
 
 /**
@@ -534,17 +534,17 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_TOTAL_BOUCLE_dist($p) {
-	$b = index_boucle_mere($p);
-	if ($b === '') {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = "(\$Numrows['$b']['total'] ?? 0)";
-		$p->boucles[$b]->numrows = true;
-		$p->interdire_scripts = false;
-	}
+    $b = index_boucle_mere($p);
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "(\$Numrows['$b']['total'] ?? 0)";
+        $p->boucles[$b]->numrows = true;
+        $p->interdire_scripts = false;
+    }
 
-	return $p;
+    return $p;
 }
 
 
@@ -564,7 +564,7 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POINTS_dist($p) {
-	return rindex_pile($p, 'points', 'recherche');
+    return rindex_pile($p, 'points', 'recherche');
 }
 
 
@@ -585,12 +585,12 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POPULARITE_ABSOLUE_dist($p) {
-	$p->code = 'ceil(' .
-		champ_sql('popularite', $p) .
-		')';
-	$p->interdire_scripts = false;
+    $p->code = 'ceil(' .
+        champ_sql('popularite', $p) .
+        ')';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -610,10 +610,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POPULARITE_SITE_dist($p) {
-	$p->code = 'ceil($GLOBALS["meta"][\'popularite_total\'])';
-	$p->interdire_scripts = false;
+    $p->code = 'ceil($GLOBALS["meta"][\'popularite_total\'])';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -634,10 +634,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POPULARITE_MAX_dist($p) {
-	$p->code = 'ceil($GLOBALS["meta"][\'popularite_max\'])';
-	$p->interdire_scripts = false;
+    $p->code = 'ceil($GLOBALS["meta"][\'popularite_max\'])';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -663,15 +663,15 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_VALEUR_dist($p) {
-	$b = $p->nom_boucle ?: $p->id_boucle;
-	$p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);
+    $b = $p->nom_boucle ?: $p->id_boucle;
+    $p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);
 ;
-	if (($v = interprete_argument_balise(1, $p)) !== null) {
-		$p->code = 'table_valeur(' . $p->code . ', ' . $v . ')';
-	}
-	$p->interdire_scripts = true;
+    if (($v = interprete_argument_balise(1, $p)) !== null) {
+        $p->code = 'table_valeur(' . $p->code . ', ' . $v . ')';
+    }
+    $p->interdire_scripts = true;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -700,16 +700,16 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_EXPOSE_dist($p) {
-	$on = "'on'";
-	$off = "''";
-	if (($v = interprete_argument_balise(1, $p)) !== null) {
-		$on = $v;
-		if (($v = interprete_argument_balise(2, $p)) !== null) {
-			$off = $v;
-		}
-	}
+    $on = "'on'";
+    $off = "''";
+    if (($v = interprete_argument_balise(1, $p)) !== null) {
+        $on = $v;
+        if (($v = interprete_argument_balise(2, $p)) !== null) {
+            $off = $v;
+        }
+    }
 
-	return calculer_balise_expose($p, $on, $off);
+    return calculer_balise_expose($p, $on, $off);
 }
 
 /**
@@ -727,35 +727,35 @@ 
  *     Pile complétée par le code à générer
  **/
 function calculer_balise_expose($p, $on, $off) {
-	$b = index_boucle($p);
-	if (empty($p->boucles[$b]->primary)) {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-	} else {
-		$key = $p->boucles[$b]->primary;
-		$type = $p->boucles[$p->id_boucle]->primary;
-		$desc = $p->boucles[$b]->show;
-		$connect = sql_quote($p->boucles[$b]->sql_serveur);
+    $b = index_boucle($p);
+    if (empty($p->boucles[$b]->primary)) {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+    } else {
+        $key = $p->boucles[$b]->primary;
+        $type = $p->boucles[$p->id_boucle]->primary;
+        $desc = $p->boucles[$b]->show;
+        $connect = sql_quote($p->boucles[$b]->sql_serveur);
 
-		// Ne pas utiliser champ_sql, on jongle avec le nom boucle explicite
-		$c = index_pile($p->id_boucle, $type, $p->boucles);
+        // Ne pas utiliser champ_sql, on jongle avec le nom boucle explicite
+        $c = index_pile($p->id_boucle, $type, $p->boucles);
 
-		if (isset($desc['field']['id_parent'])) {
-			$parent = 0; // pour if (!$parent) dans calculer_expose
-		} elseif (isset($desc['field']['id_rubrique'])) {
-			$parent = index_pile($p->id_boucle, 'id_rubrique', $p->boucles, $b);
-		} elseif (isset($desc['field']['id_groupe'])) {
-			$parent = index_pile($p->id_boucle, 'id_groupe', $p->boucles, $b);
-		} else {
-			$parent = "''";
-		}
+        if (isset($desc['field']['id_parent'])) {
+            $parent = 0; // pour if (!$parent) dans calculer_expose
+        } elseif (isset($desc['field']['id_rubrique'])) {
+            $parent = index_pile($p->id_boucle, 'id_rubrique', $p->boucles, $b);
+        } elseif (isset($desc['field']['id_groupe'])) {
+            $parent = index_pile($p->id_boucle, 'id_groupe', $p->boucles, $b);
+        } else {
+            $parent = "''";
+        }
 
-		$p->code = "(calcul_exposer($c, '$type', \$Pile[0], $parent, '$key', $connect) ? $on : $off)";
-	}
+        $p->code = "(calcul_exposer($c, '$type', \$Pile[0], $parent, '$key', $connect) ? $on : $off)";
+    }
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -796,46 +796,46 @@ 
  **/
 function balise_INTRODUCTION_dist($p) {
 
-	$type_objet = $p->type_requete;
-	$cle_objet = id_table_objet($type_objet);
-	$_id_objet = champ_sql($cle_objet, $p);
-
-	// Récupérer les valeurs sql nécessaires : descriptif, texte et chapo
-	// ainsi que le longueur d'introduction donnée dans la description de l'objet.
-	$_introduction_longueur = 'null';
-	$_ligne = 'array(';
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	if ($desc = $trouver_table(table_objet_sql($type_objet))) {
-		if (isset($desc['field']['descriptif'])) {
-			$_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ',';
-		}
-		if (isset($desc['field']['texte'])) {
-			$_ligne .= "'texte' => " . champ_sql('texte', $p) . ',';
-		}
-		if (isset($desc['field']['chapo'])) {
-			$_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ',';
-		}
-		if (isset($desc['introduction_longueur'])) {
-			$_introduction_longueur = "'" . $desc['introduction_longueur'] . "'";
-		}
-	}
-	$_ligne .= ')';
-
-	// Récupérer la longueur et la suite passés en paramètres
-	$_longueur_ou_suite = 'null';
-	if (($v1 = interprete_argument_balise(1, $p)) !== null) {
-		$_longueur_ou_suite = $v1;
-	}
-	$_suite = 'null';
-	if (($v2 = interprete_argument_balise(2, $p)) !== null) {
-		$_suite = $v2;
-	}
-
-	$p->code = "generer_objet_introduction($_id_objet, '$type_objet', $_ligne, $_introduction_longueur, $_longueur_ou_suite, $_suite, \$connect)";
-
-	#$p->interdire_scripts = true;
-	$p->etoile = '*'; // propre est deja fait dans le calcul de l'intro
-	return $p;
+    $type_objet = $p->type_requete;
+    $cle_objet = id_table_objet($type_objet);
+    $_id_objet = champ_sql($cle_objet, $p);
+
+    // Récupérer les valeurs sql nécessaires : descriptif, texte et chapo
+    // ainsi que le longueur d'introduction donnée dans la description de l'objet.
+    $_introduction_longueur = 'null';
+    $_ligne = 'array(';
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    if ($desc = $trouver_table(table_objet_sql($type_objet))) {
+        if (isset($desc['field']['descriptif'])) {
+            $_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ',';
+        }
+        if (isset($desc['field']['texte'])) {
+            $_ligne .= "'texte' => " . champ_sql('texte', $p) . ',';
+        }
+        if (isset($desc['field']['chapo'])) {
+            $_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ',';
+        }
+        if (isset($desc['introduction_longueur'])) {
+            $_introduction_longueur = "'" . $desc['introduction_longueur'] . "'";
+        }
+    }
+    $_ligne .= ')';
+
+    // Récupérer la longueur et la suite passés en paramètres
+    $_longueur_ou_suite = 'null';
+    if (($v1 = interprete_argument_balise(1, $p)) !== null) {
+        $_longueur_ou_suite = $v1;
+    }
+    $_suite = 'null';
+    if (($v2 = interprete_argument_balise(2, $p)) !== null) {
+        $_suite = $v2;
+    }
+
+    $p->code = "generer_objet_introduction($_id_objet, '$type_objet', $_ligne, $_introduction_longueur, $_longueur_ou_suite, $_suite, \$connect)";
+
+    #$p->interdire_scripts = true;
+    $p->etoile = '*'; // propre est deja fait dans le calcul de l'intro
+    return $p;
 }
 
 
@@ -855,15 +855,15 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_LANG_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	if (!$p->etoile) {
-		$p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])";
-	} else {
-		$p->code = "spip_htmlentities($_lang)";
-	}
-	$p->interdire_scripts = false;
+    $_lang = champ_sql('lang', $p);
+    if (!$p->etoile) {
+        $p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])";
+    } else {
+        $p->code = "spip_htmlentities($_lang)";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -885,45 +885,45 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_LESAUTEURS_dist($p) {
-	// Cherche le champ 'lesauteurs' dans la pile
-	$_lesauteurs = champ_sql('lesauteurs', $p, '');
-
-	// Si le champ n'existe pas (cas de spip_articles), on applique
-	// le modele lesauteurs.html en passant id_article dans le contexte;
-	// dans le cas contraire on prend le champ 'lesauteurs'
-	// (cf extension sites/)
-	if ($_lesauteurs) {
-		$p->code = "safehtml($_lesauteurs)";
-		// $p->interdire_scripts = true;
-	} else {
-		if (!$p->id_boucle) {
-			$connect = '';
-			$objet = 'article';
-			$id_table_objet = 'id_article';
-		} else {
-			$b = $p->nom_boucle ?: $p->id_boucle;
-			$connect = $p->boucles[$b]->sql_serveur;
-			$type_boucle = $p->boucles[$b]->type_requete;
-			$objet = objet_type($type_boucle);
-			$id_table_objet = id_table_objet($type_boucle);
-		}
-		$c = memoriser_contexte_compil($p);
-
-		$p->code = sprintf(
-			CODE_RECUPERER_FOND,
-			"'modeles/lesauteurs'",
-			"array('objet'=>'" . $objet .
-			"','id_objet' => " . champ_sql($id_table_objet, $p) .
-			",'$id_table_objet' => " . champ_sql($id_table_objet, $p) .
-			($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) .
-			')',
-			"'trim'=>true, 'compil'=>array($c)",
-			_q($connect)
-		);
-		$p->interdire_scripts = false; // securite apposee par recuperer_fond()
-	}
-
-	return $p;
+    // Cherche le champ 'lesauteurs' dans la pile
+    $_lesauteurs = champ_sql('lesauteurs', $p, '');
+
+    // Si le champ n'existe pas (cas de spip_articles), on applique
+    // le modele lesauteurs.html en passant id_article dans le contexte;
+    // dans le cas contraire on prend le champ 'lesauteurs'
+    // (cf extension sites/)
+    if ($_lesauteurs) {
+        $p->code = "safehtml($_lesauteurs)";
+        // $p->interdire_scripts = true;
+    } else {
+        if (!$p->id_boucle) {
+            $connect = '';
+            $objet = 'article';
+            $id_table_objet = 'id_article';
+        } else {
+            $b = $p->nom_boucle ?: $p->id_boucle;
+            $connect = $p->boucles[$b]->sql_serveur;
+            $type_boucle = $p->boucles[$b]->type_requete;
+            $objet = objet_type($type_boucle);
+            $id_table_objet = id_table_objet($type_boucle);
+        }
+        $c = memoriser_contexte_compil($p);
+
+        $p->code = sprintf(
+            CODE_RECUPERER_FOND,
+            "'modeles/lesauteurs'",
+            "array('objet'=>'" . $objet .
+            "','id_objet' => " . champ_sql($id_table_objet, $p) .
+            ",'$id_table_objet' => " . champ_sql($id_table_objet, $p) .
+            ($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) .
+            ')',
+            "'trim'=>true, 'compil'=>array($c)",
+            _q($connect)
+        );
+        $p->interdire_scripts = false; // securite apposee par recuperer_fond()
+    }
+
+    return $p;
 }
 
 
@@ -950,76 +950,76 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_RANG_dist($p) {
-	$b = index_boucle($p);
-	if ($b === '') {
-		$msg = [
-			'zbug_champ_hors_boucle',
-			['champ' => '#RANG']
-		];
-		erreur_squelette($msg, $p);
-	} else {
-		// chercher d'abord un champ sql rang (mais pas dans le env : defaut '' si on trouve pas de champ sql)
-		// dans la boucle immediatement englobante uniquement
-		// sinon on compose le champ calcule
-		$_rang = champ_sql('rang', $p, '', false);
-
-		// si pas trouve de champ sql rang :
-		if (!$_rang or $_rang == "''") {
-			$boucle = &$p->boucles[$b];
-
-			// on gere le cas ou #RANG est une extraction du numero dans le titre
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$desc = $trouver_table($boucle->id_table);
-			$_titre = ''; # où extraire le numero ?
-
-			if (isset($desc['titre'])) {
-				$t = $desc['titre'];
-				if (
-					// Soit on trouve avec la déclaration de la lang AVANT
-					preg_match(';(?:lang\s*,)\s*(.*?titre)\s*(,|$);', $t, $m)
-					// Soit on prend depuis le début
-					or preg_match(';^(.*?titre)\s*(,|$);', $t, $m)
-				) {
-					$m = preg_replace(',as\s+titre$,i', '', $m[1]);
-					$m = trim($m);
-					if ($m != "''") {
-						if (!preg_match(',\W,', $m)) {
-							$m = $boucle->id_table . ".$m";
-						}
-
-						$m .= ' AS titre_rang';
-
-						$boucle->select[] = $m;
-						$_titre = '$Pile[$SP][\'titre_rang\']';
-					}
-				}
-			}
-
-			// si on n'a rien trouvé, on utilise le champ titre classique
-			if (!$_titre) {
-				$_titre = champ_sql('titre', $p);
-			}
-
-			// et on recupere aussi les infos de liaison si on est en train d'editer les liens justement
-			// cas des formulaires xxx_lies utilises par #FORMULAIRE_EDITER_LIENS
-			$type_boucle = $boucle->type_requete;
-			$objet = objet_type($type_boucle);
-			$id_table_objet = id_table_objet($type_boucle);
-			$_primary = champ_sql($id_table_objet, $p, '', false);
-			$_env = '$Pile[0]';
-
-			if (!$_titre) {$_titre = "''";
-			}
-			if (!$_primary) {$_primary = "''";
-			}
-			$_rang = "calculer_rang_smart($_titre, '$objet', $_primary, $_env)";
-		}
-
-		$p->code = $_rang;
-		$p->interdire_scripts = false;
-	}
-
-	return $p;
+    $b = index_boucle($p);
+    if ($b === '') {
+        $msg = [
+            'zbug_champ_hors_boucle',
+            ['champ' => '#RANG']
+        ];
+        erreur_squelette($msg, $p);
+    } else {
+        // chercher d'abord un champ sql rang (mais pas dans le env : defaut '' si on trouve pas de champ sql)
+        // dans la boucle immediatement englobante uniquement
+        // sinon on compose le champ calcule
+        $_rang = champ_sql('rang', $p, '', false);
+
+        // si pas trouve de champ sql rang :
+        if (!$_rang or $_rang == "''") {
+            $boucle = &$p->boucles[$b];
+
+            // on gere le cas ou #RANG est une extraction du numero dans le titre
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $desc = $trouver_table($boucle->id_table);
+            $_titre = ''; # où extraire le numero ?
+
+            if (isset($desc['titre'])) {
+                $t = $desc['titre'];
+                if (
+                    // Soit on trouve avec la déclaration de la lang AVANT
+                    preg_match(';(?:lang\s*,)\s*(.*?titre)\s*(,|$);', $t, $m)
+                    // Soit on prend depuis le début
+                    or preg_match(';^(.*?titre)\s*(,|$);', $t, $m)
+                ) {
+                    $m = preg_replace(',as\s+titre$,i', '', $m[1]);
+                    $m = trim($m);
+                    if ($m != "''") {
+                        if (!preg_match(',\W,', $m)) {
+                            $m = $boucle->id_table . ".$m";
+                        }
+
+                        $m .= ' AS titre_rang';
+
+                        $boucle->select[] = $m;
+                        $_titre = '$Pile[$SP][\'titre_rang\']';
+                    }
+                }
+            }
+
+            // si on n'a rien trouvé, on utilise le champ titre classique
+            if (!$_titre) {
+                $_titre = champ_sql('titre', $p);
+            }
+
+            // et on recupere aussi les infos de liaison si on est en train d'editer les liens justement
+            // cas des formulaires xxx_lies utilises par #FORMULAIRE_EDITER_LIENS
+            $type_boucle = $boucle->type_requete;
+            $objet = objet_type($type_boucle);
+            $id_table_objet = id_table_objet($type_boucle);
+            $_primary = champ_sql($id_table_objet, $p, '', false);
+            $_env = '$Pile[0]';
+
+            if (!$_titre) {$_titre = "''";
+            }
+            if (!$_primary) {$_primary = "''";
+            }
+            $_rang = "calculer_rang_smart($_titre, '$objet', $_primary, $_env)";
+        }
+
+        $p->code = $_rang;
+        $p->interdire_scripts = false;
+    }
+
+    return $p;
 }
 
 
@@ -1041,12 +1041,12 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POPULARITE_dist($p) {
-	$_popularite = champ_sql('popularite', $p);
-	$p->code = "(ceil(min(100, 100 * $_popularite
+    $_popularite = champ_sql('popularite', $p);
+    $p->code = "(ceil(min(100, 100 * $_popularite
 	/ max(1 , 0 + \$GLOBALS['meta']['popularite_max']))))";
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1057,8 +1057,8 @@ 
  * l'absence peut-être due à une faute de frappe dans le contexte inclus.
  */
 define(
-	'CODE_PAGINATION',
-	'%s($Numrows["%s"]["grand_total"],
+    'CODE_PAGINATION',
+    '%s($Numrows["%s"]["grand_total"],
  		%s,
 		isset($Pile[0][%4$s])?$Pile[0][%4$s]:intval(_request(%4$s)),
 		%5$s, %6$s, %7$s, %8$s, array(%9$s))'
@@ -1095,75 +1095,75 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_PAGINATION_dist($p, $liste = 'true') {
-	$b = index_boucle_mere($p);
-
-	// s'il n'y a pas de nom de boucle, on ne peut pas paginer
-	if ($b === '') {
-		$msg = [
-			'zbug_champ_hors_boucle',
-			['champ' => $liste ? 'PAGINATION' : 'ANCRE_PAGINATION']
-		];
-		erreur_squelette($msg, $p);
-
-		return $p;
-	}
-
-	// s'il n'y a pas de mode_partie, c'est qu'on se trouve
-	// dans un boucle recursive ou qu'on a oublie le critere {pagination}
-	if (!$p->boucles[$b]->mode_partie) {
-		if (!$p->boucles[$b]->table_optionnelle) {
-			$msg = [
-				'zbug_pagination_sans_critere',
-				['champ' => '#PAGINATION']
-			];
-			erreur_squelette($msg, $p);
-		}
-
-		return $p;
-	}
-
-	// a priori true
-	// si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise
-	// si true, les arguments simples (sans truc=chose) vont degager
-	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false);
-	if (is_countable($_contexte) ? count($_contexte) : 0) {
-		$key = key($_contexte);
-		if (is_numeric($key)) {
-			array_shift($_contexte);
-			$__modele = interprete_argument_balise(1, $p);
-		}
-	}
-
-	if (is_countable($_contexte) ? count($_contexte) : 0) {
-		$code_contexte = implode(',', $_contexte);
-	} else {
-		$code_contexte = '';
-	}
-
-	$connect = $p->boucles[$b]->sql_serveur;
-	$pas = $p->boucles[$b]->total_parties;
-	$f_pagination = chercher_filtre('pagination');
-	$type = $p->boucles[$b]->modificateur['debut_nom'];
-	$modif = ($type[0] !== "'") ? "'debut'.$type"
-		: ("'debut" . substr($type, 1));
-
-	$p->code = sprintf(
-		CODE_PAGINATION,
-		$f_pagination,
-		$b,
-		$type,
-		$modif,
-		$pas,
-		$liste,
-		((isset($__modele) and $__modele) ? $__modele : "''"),
-		_q($connect),
-		$code_contexte
-	);
-
-	$p->boucles[$b]->numrows = true;
-	$p->interdire_scripts = false;
-
-	return $p;
+    $b = index_boucle_mere($p);
+
+    // s'il n'y a pas de nom de boucle, on ne peut pas paginer
+    if ($b === '') {
+        $msg = [
+            'zbug_champ_hors_boucle',
+            ['champ' => $liste ? 'PAGINATION' : 'ANCRE_PAGINATION']
+        ];
+        erreur_squelette($msg, $p);
+
+        return $p;
+    }
+
+    // s'il n'y a pas de mode_partie, c'est qu'on se trouve
+    // dans un boucle recursive ou qu'on a oublie le critere {pagination}
+    if (!$p->boucles[$b]->mode_partie) {
+        if (!$p->boucles[$b]->table_optionnelle) {
+            $msg = [
+                'zbug_pagination_sans_critere',
+                ['champ' => '#PAGINATION']
+            ];
+            erreur_squelette($msg, $p);
+        }
+
+        return $p;
+    }
+
+    // a priori true
+    // si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise
+    // si true, les arguments simples (sans truc=chose) vont degager
+    $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false);
+    if (is_countable($_contexte) ? count($_contexte) : 0) {
+        $key = key($_contexte);
+        if (is_numeric($key)) {
+            array_shift($_contexte);
+            $__modele = interprete_argument_balise(1, $p);
+        }
+    }
+
+    if (is_countable($_contexte) ? count($_contexte) : 0) {
+        $code_contexte = implode(',', $_contexte);
+    } else {
+        $code_contexte = '';
+    }
+
+    $connect = $p->boucles[$b]->sql_serveur;
+    $pas = $p->boucles[$b]->total_parties;
+    $f_pagination = chercher_filtre('pagination');
+    $type = $p->boucles[$b]->modificateur['debut_nom'];
+    $modif = ($type[0] !== "'") ? "'debut'.$type"
+        : ("'debut" . substr($type, 1));
+
+    $p->code = sprintf(
+        CODE_PAGINATION,
+        $f_pagination,
+        $b,
+        $type,
+        $modif,
+        $pas,
+        $liste,
+        ((isset($__modele) and $__modele) ? $__modele : "''"),
+        _q($connect),
+        $code_contexte
+    );
+
+    $p->boucles[$b]->numrows = true;
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 
@@ -1190,11 +1190,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_ANCRE_PAGINATION_dist($p) {
-	if ($f = charger_fonction('PAGINATION', 'balise', true)) {
-		return $f($p, $liste = 'false');
-	} else {
-		return null;
-	} // ou une erreur ?
+    if ($f = charger_fonction('PAGINATION', 'balise', true)) {
+        return $f($p, $liste = 'false');
+    } else {
+        return null;
+    } // ou une erreur ?
 }
 
 
@@ -1215,17 +1215,17 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_GRAND_TOTAL_dist($p) {
-	$b = index_boucle_mere($p);
-	if ($b === '') {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = "(\$Numrows['$b']['grand_total'] ?? \$Numrows['$b']['total'] ?? 0)";
-		$p->boucles[$b]->numrows = true;
-		$p->interdire_scripts = false;
-	}
+    $b = index_boucle_mere($p);
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "(\$Numrows['$b']['grand_total'] ?? \$Numrows['$b']['total'] ?? 0)";
+        $p->boucles[$b]->numrows = true;
+        $p->interdire_scripts = false;
+    }
 
-	return $p;
+    return $p;
 }
 
 
@@ -1253,10 +1253,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_SELF_dist($p) {
-	$p->code = 'self()';
-	$p->interdire_scripts = false;
+    $p->code = 'self()';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1283,17 +1283,17 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_CHEMIN_dist($p) {
-	$arg = interprete_argument_balise(1, $p);
-	if (!$arg) {
-		$msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN']];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = 'find_in_path((string)' . $arg . ')';
-	}
+    $arg = interprete_argument_balise(1, $p);
+    if (!$arg) {
+        $msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN']];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = 'find_in_path((string)' . $arg . ')';
+    }
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1318,16 +1318,16 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_CHEMIN_IMAGE_dist($p) {
-	$arg = interprete_argument_balise(1, $p);
-	if (!$arg) {
-		$msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN_IMAGE']];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = 'chemin_image((string)' . $arg . ')';
-	}
+    $arg = interprete_argument_balise(1, $p);
+    if (!$arg) {
+        $msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN_IMAGE']];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = 'chemin_image((string)' . $arg . ')';
+    }
 
-	$p->interdire_scripts = false;
-	return $p;
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -1365,36 +1365,36 @@ 
  **/
 function balise_ENV_dist($p, $src = null) {
 
-	// cle du tableau desiree
-	$_nom = interprete_argument_balise(1, $p);
-	// valeur par defaut
-	$_sinon = interprete_argument_balise(2, $p);
+    // cle du tableau desiree
+    $_nom = interprete_argument_balise(1, $p);
+    // valeur par defaut
+    $_sinon = interprete_argument_balise(2, $p);
 
-	// $src est un tableau de donnees sources eventuellement transmis
-	// en absence, on utilise l'environnement du squelette $Pile[0]
+    // $src est un tableau de donnees sources eventuellement transmis
+    // en absence, on utilise l'environnement du squelette $Pile[0]
 
-	if (!$_nom) {
-		// cas de #ENV sans argument : on retourne le serialize() du tableau
-		// une belle fonction [(#ENV|affiche_env)] serait pratique
-		if ($src) {
-			$p->code = '(is_array($a = (' . $src . ')) ? serialize($a) : "")';
-		} else {
-			$p->code = 'serialize($Pile[0]??[])';
-		}
-	} else {
-		if (!$src) {
-			$src = '$Pile[0]??[]';
-		}
-		if ($_sinon) {
-			$p->code = "sinon(table_valeur($src, (string)$_nom, null), $_sinon)";
-		} else {
-			$p->code = "table_valeur($src, (string)$_nom, null)";
-		}
-	}
+    if (!$_nom) {
+        // cas de #ENV sans argument : on retourne le serialize() du tableau
+        // une belle fonction [(#ENV|affiche_env)] serait pratique
+        if ($src) {
+            $p->code = '(is_array($a = (' . $src . ')) ? serialize($a) : "")';
+        } else {
+            $p->code = 'serialize($Pile[0]??[])';
+        }
+    } else {
+        if (!$src) {
+            $src = '$Pile[0]??[]';
+        }
+        if ($_sinon) {
+            $p->code = "sinon(table_valeur($src, (string)$_nom, null), $_sinon)";
+        } else {
+            $p->code = "table_valeur($src, (string)$_nom, null)";
+        }
+    }
 
-	#$p->interdire_scripts = true;
+    #$p->interdire_scripts = true;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1424,16 +1424,16 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_CONFIG_dist($p) {
-	if (!$arg = interprete_argument_balise(1, $p)) {
-		$arg = "''";
-	}
-	$_sinon = interprete_argument_balise(2, $p);
-	$_unserialize = sinon(interprete_argument_balise(3, $p), 'false');
+    if (!$arg = interprete_argument_balise(1, $p)) {
+        $arg = "''";
+    }
+    $_sinon = interprete_argument_balise(2, $p);
+    $_unserialize = sinon(interprete_argument_balise(3, $p), 'false');
 
-	$p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' .
-		($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')";
+    $p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' .
+        ($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')";
 
-	return $p;
+    return $p;
 }
 
 
@@ -1456,10 +1456,10 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  */
 function balise_CONNECT_dist($p) {
-	$p->code = '($connect ? $connect : NULL)';
-	$p->interdire_scripts = false;
+    $p->code = '($connect ? $connect : NULL)';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1487,15 +1487,15 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  **/
 function balise_SESSION_dist($p) {
-	$p->descr['session'] = true;
+    $p->descr['session'] = true;
 
-	$f = function_exists('balise_ENV')
-		? 'balise_ENV'
-		: 'balise_ENV_dist';
+    $f = function_exists('balise_ENV')
+        ? 'balise_ENV'
+        : 'balise_ENV_dist';
 
-	$p = $f($p, '$GLOBALS["visiteur_session"]??[]');
+    $p = $f($p, '$GLOBALS["visiteur_session"]??[]');
 
-	return $p;
+    return $p;
 }
 
 
@@ -1518,18 +1518,18 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  **/
 function balise_SESSION_SET_dist($p) {
-	$_nom = interprete_argument_balise(1, $p);
-	$_val = interprete_argument_balise(2, $p);
-	if (!$_nom or !$_val) {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SESSION_SET']];
-		erreur_squelette($err_b_s_a, $p);
-	} else {
-		$p->code = '(include_spip("inc/session") AND session_set(' . $_nom . ',' . $_val . '))';
-	}
+    $_nom = interprete_argument_balise(1, $p);
+    $_val = interprete_argument_balise(2, $p);
+    if (!$_nom or !$_val) {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SESSION_SET']];
+        erreur_squelette($err_b_s_a, $p);
+    } else {
+        $p->code = '(include_spip("inc/session") AND session_set(' . $_nom . ',' . $_val . '))';
+    }
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1560,30 +1560,30 @@ 
  *     Pile completée du code PHP d'exécution de la balise
  **/
 function balise_EVAL_dist($p) {
-	$php = interprete_argument_balise(1, $p);
-	if ($php) {
-		# optimisation sur les #EVAL{une expression sans #BALISE}
-		# attention au commentaire "// x signes" qui precede
-		if (
-			preg_match(
-				",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms",
-				$php,
-				$r
-			)
-		) {
-			$p->code = /* $r[1]. */
-				'(' . $r[2] . ')';
-		} else {
-			$p->code = "eval('return '.$php.';')";
-		}
-	} else {
-		$msg = ['zbug_balise_sans_argument', ['balise' => ' EVAL']];
-		erreur_squelette($msg, $p);
-	}
-
-	#$p->interdire_scripts = true;
-
-	return $p;
+    $php = interprete_argument_balise(1, $p);
+    if ($php) {
+        # optimisation sur les #EVAL{une expression sans #BALISE}
+        # attention au commentaire "// x signes" qui precede
+        if (
+            preg_match(
+                ",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms",
+                $php,
+                $r
+            )
+        ) {
+            $p->code = /* $r[1]. */
+                '(' . $r[2] . ')';
+        } else {
+            $p->code = "eval('return '.$php.';')";
+        }
+    } else {
+        $msg = ['zbug_balise_sans_argument', ['balise' => ' EVAL']];
+        erreur_squelette($msg, $p);
+    }
+
+    #$p->interdire_scripts = true;
+
+    return $p;
 }
 
 
@@ -1613,19 +1613,19 @@ 
  **/
 function balise_CHAMP_SQL_dist($p) {
 
-	if (
-		$p->param
-		and isset($p->param[0][1][0])
-		and $champ = ($p->param[0][1][0]->texte)
-	) {
-		$p->code = champ_sql($champ, $p);
-	} else {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => ' CHAMP_SQL']];
-		erreur_squelette($err_b_s_a, $p);
-	}
+    if (
+        $p->param
+        and isset($p->param[0][1][0])
+        and $champ = ($p->param[0][1][0]->texte)
+    ) {
+        $p->code = champ_sql($champ, $p);
+    } else {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => ' CHAMP_SQL']];
+        erreur_squelette($err_b_s_a, $p);
+    }
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 /**
@@ -1651,13 +1651,13 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_VAL_dist($p) {
-	$p->code = interprete_argument_balise(1, $p) ?? '';
-	if (!strlen($p->code)) {
-		$p->code = "''";
-	}
-	$p->interdire_scripts = false;
+    $p->code = interprete_argument_balise(1, $p) ?? '';
+    if (!strlen($p->code)) {
+        $p->code = "''";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1686,10 +1686,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_REM_dist($p) {
-	$p->code = "''";
-	$p->interdire_scripts = false;
+    $p->code = "''";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1699,10 +1699,10 @@ 
  * @return mixed
  */
 function balise_NULL_dist($p) {
-	$p->code = 'null';
-	$p->interdire_scripts = false;
+    $p->code = 'null';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1726,18 +1726,18 @@ 
  **/
 function balise_HTTP_HEADER_dist($p) {
 
-	$header = interprete_argument_balise(1, $p);
-	if (!$header) {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'HTTP_HEADER']];
-		erreur_squelette($err_b_s_a, $p);
-	} else {
-		$p->code = "'<'.'?php header(' . _q("
-			. $header
-			. ") . '); ?'.'>'";
-	}
-	$p->interdire_scripts = false;
+    $header = interprete_argument_balise(1, $p);
+    if (!$header) {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'HTTP_HEADER']];
+        erreur_squelette($err_b_s_a, $p);
+    } else {
+        $p->code = "'<'.'?php header(' . _q("
+            . $header
+            . ") . '); ?'.'>'";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1762,22 +1762,22 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_FILTRE_dist($p) {
-	if ($p->param) {
-		$args = [];
-		foreach ($p->param as $i => $ignore) {
-			$args[] = interprete_argument_balise($i + 1, $p);
-		}
-		$p->code = "'<' . '"
-			. '?php header("X-Spip-Filtre: \'.'
-			. join('.\'|\'.', $args)
-			. " . '\"); ?'.'>'";
+    if ($p->param) {
+        $args = [];
+        foreach ($p->param as $i => $ignore) {
+            $args[] = interprete_argument_balise($i + 1, $p);
+        }
+        $p->code = "'<' . '"
+            . '?php header("X-Spip-Filtre: \'.'
+            . join('.\'|\'.', $args)
+            . " . '\"); ?'.'>'";
 
-		$p->interdire_scripts = false;
+        $p->interdire_scripts = false;
 
-		return $p;
-	}
+        return $p;
+    }
 
-	return null;
+    return null;
 }
 
 
@@ -1813,55 +1813,55 @@ 
  **/
 function balise_CACHE_dist($p) {
 
-	if ($p->param) {
-		$duree = valeur_numerique($p->param[0][1][0]->texte);
-
-		// noter la duree du cache dans un entete proprietaire
-
-		$code = "'<'.'" . '?php header("X-Spip-Cache: '
-			. $duree
-			. '"); ?' . "'.'>'";
-
-		// Remplir le header Cache-Control
-		// cas #CACHE{0}
-		if ($duree == 0) {
-			$code .= ".'<'.'"
-				. '?php header("Cache-Control: no-cache, must-revalidate"); ?'
-				. "'.'><'.'"
-				. '?php header("Pragma: no-cache"); ?'
-				. "'.'>'";
-		}
-
-		// recuperer les parametres suivants
-		$i = 1;
-		while (isset($p->param[0][++$i])) {
-			$pa = ($p->param[0][$i][0]->texte);
-
-			if (
-				$pa == 'cache-client'
-				and $duree > 0
-			) {
-				$code .= ".'<'.'" . '?php header("Cache-Control: max-age='
-					. $duree
-					. '"); ?' . "'.'>'";
-				// il semble logique, si on cache-client, de ne pas invalider
-				$pa = 'statique';
-			}
-
-			if (
-				$pa == 'statique'
-				and $duree > 0
-			) {
-				$code .= ".'<'.'" . '?php header("X-Spip-Statique: oui"); ?' . "'.'>'";
-			}
-		}
-	} else {
-		$code = "''";
-	}
-	$p->code = $code;
-	$p->interdire_scripts = false;
-
-	return $p;
+    if ($p->param) {
+        $duree = valeur_numerique($p->param[0][1][0]->texte);
+
+        // noter la duree du cache dans un entete proprietaire
+
+        $code = "'<'.'" . '?php header("X-Spip-Cache: '
+            . $duree
+            . '"); ?' . "'.'>'";
+
+        // Remplir le header Cache-Control
+        // cas #CACHE{0}
+        if ($duree == 0) {
+            $code .= ".'<'.'"
+                . '?php header("Cache-Control: no-cache, must-revalidate"); ?'
+                . "'.'><'.'"
+                . '?php header("Pragma: no-cache"); ?'
+                . "'.'>'";
+        }
+
+        // recuperer les parametres suivants
+        $i = 1;
+        while (isset($p->param[0][++$i])) {
+            $pa = ($p->param[0][$i][0]->texte);
+
+            if (
+                $pa == 'cache-client'
+                and $duree > 0
+            ) {
+                $code .= ".'<'.'" . '?php header("Cache-Control: max-age='
+                    . $duree
+                    . '"); ?' . "'.'>'";
+                // il semble logique, si on cache-client, de ne pas invalider
+                $pa = 'statique';
+            }
+
+            if (
+                $pa == 'statique'
+                and $duree > 0
+            ) {
+                $code .= ".'<'.'" . '?php header("X-Spip-Statique: oui"); ?' . "'.'>'";
+            }
+        }
+    } else {
+        $code = "''";
+    }
+    $p->code = $code;
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 
@@ -1893,13 +1893,13 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_INSERT_HEAD_dist($p) {
-	$p->code = "'<'.'"
-		. '?php header("X-Spip-Filtre: insert_head_css_conditionnel"); ?'
-		. "'.'>'";
-	$p->code .= ". pipeline('insert_head','<!-- insert_head -->')";
-	$p->interdire_scripts = false;
+    $p->code = "'<'.'"
+        . '?php header("X-Spip-Filtre: insert_head_css_conditionnel"); ?'
+        . "'.'>'";
+    $p->code .= ". pipeline('insert_head','<!-- insert_head -->')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1917,10 +1917,10 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_INSERT_HEAD_CSS_dist($p) {
-	$p->code = "pipeline('insert_head_css','<!-- insert_head_css -->')";
-	$p->interdire_scripts = false;
+    $p->code = "pipeline('insert_head_css','<!-- insert_head_css -->')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1935,11 +1935,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_INCLUDE_dist($p) {
-	if (function_exists('balise_INCLURE')) {
-		return balise_INCLURE($p);
-	} else {
-		return balise_INCLURE_dist($p);
-	}
+    if (function_exists('balise_INCLURE')) {
+        return balise_INCLURE($p);
+    } else {
+        return balise_INCLURE_dist($p);
+    }
 }
 
 /**
@@ -1973,66 +1973,66 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_INCLURE_dist($p) {
-	$id_boucle = $p->id_boucle;
-	// la lang n'est pas passe de facon automatique par argumenter
-	// mais le sera pas recuperer_fond, sauf si etoile=>true est passe
-	// en option
-
-	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $id_boucle, false, false);
-
-	// erreur de syntaxe = fond absent
-	// (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
-	if (!$_contexte) {
-		$_contexte = [];
-	}
-
-	if (isset($_contexte['fond'])) {
-		$f = $_contexte['fond'];
-		// toujours vrai :
-		if (preg_match('/^.fond.\s*=>(.*)$/s', $f, $r)) {
-			$f = $r[1];
-			unset($_contexte['fond']);
-		} else {
-			spip_log('compilation de #INCLURE a revoir');
-		}
-
-		// #INCLURE{doublons}
-		if (isset($_contexte['doublons'])) {
-			$_contexte['doublons'] = "'doublons' => \$doublons";
-		}
-
-		// Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
-		$flag_env = false;
-		if (isset($_contexte['env']) or isset($_contexte['self'])) {
-			$flag_env = true;
-			unset($_contexte['env']);
-		}
-
-		$_options = [];
-		if (isset($_contexte['ajax'])) {
-			$_options[] = preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
-			unset($_contexte['ajax']);
-		}
-		if ($p->etoile) {
-			$_options[] = "'etoile'=>true";
-		}
-		$_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) . ')';
-
-		$_l = 'array(' . join(",\n\t", $_contexte) . ')';
-		if ($flag_env) {
-			$_l = "array_merge(\$Pile[0],$_l)";
-		}
-
-		$p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',', $_options), "_request('connect') ?? ''");
-	} elseif (!isset($_contexte[1])) {
-		$msg = ['zbug_balise_sans_argument', ['balise' => ' INCLURE']];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
-	}
-
-	$p->interdire_scripts = false; // la securite est assuree par recuperer_fond
-	return $p;
+    $id_boucle = $p->id_boucle;
+    // la lang n'est pas passe de facon automatique par argumenter
+    // mais le sera pas recuperer_fond, sauf si etoile=>true est passe
+    // en option
+
+    $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $id_boucle, false, false);
+
+    // erreur de syntaxe = fond absent
+    // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
+    if (!$_contexte) {
+        $_contexte = [];
+    }
+
+    if (isset($_contexte['fond'])) {
+        $f = $_contexte['fond'];
+        // toujours vrai :
+        if (preg_match('/^.fond.\s*=>(.*)$/s', $f, $r)) {
+            $f = $r[1];
+            unset($_contexte['fond']);
+        } else {
+            spip_log('compilation de #INCLURE a revoir');
+        }
+
+        // #INCLURE{doublons}
+        if (isset($_contexte['doublons'])) {
+            $_contexte['doublons'] = "'doublons' => \$doublons";
+        }
+
+        // Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
+        $flag_env = false;
+        if (isset($_contexte['env']) or isset($_contexte['self'])) {
+            $flag_env = true;
+            unset($_contexte['env']);
+        }
+
+        $_options = [];
+        if (isset($_contexte['ajax'])) {
+            $_options[] = preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
+            unset($_contexte['ajax']);
+        }
+        if ($p->etoile) {
+            $_options[] = "'etoile'=>true";
+        }
+        $_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) . ')';
+
+        $_l = 'array(' . join(",\n\t", $_contexte) . ')';
+        if ($flag_env) {
+            $_l = "array_merge(\$Pile[0],$_l)";
+        }
+
+        $p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',', $_options), "_request('connect') ?? ''");
+    } elseif (!isset($_contexte[1])) {
+        $msg = ['zbug_balise_sans_argument', ['balise' => ' INCLURE']];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
+    }
+
+    $p->interdire_scripts = false; // la securite est assuree par recuperer_fond
+    return $p;
 }
 
 
@@ -2060,69 +2060,69 @@ 
  **/
 function balise_MODELE_dist($p) {
 
-	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false);
-
-	// erreur de syntaxe = fond absent
-	// (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
-	if (!$_contexte) {
-		$_contexte = [];
-	}
-
-	if (!isset($_contexte[1])) {
-		$msg = ['zbug_balise_sans_argument', ['balise' => ' MODELE']];
-		erreur_squelette($msg, $p);
-	} else {
-		$nom = $_contexte[1];
-		unset($_contexte[1]);
-
-		if (preg_match("/^\s*'[^']*'/s", $nom)) {
-			$nom = "'modeles/" . substr($nom, 1);
-		} else {
-			$nom = "'modeles/' . $nom";
-		}
-
-		$flag_env = false;
-		if (isset($_contexte['env'])) {
-			$flag_env = true;
-			unset($_contexte['env']);
-		}
-
-		// Incoherence dans la syntaxe du contexte. A revoir.
-		// Reserver la cle primaire de la boucle courante si elle existe
-		if (isset($p->boucles[$p->id_boucle]->primary)) {
-			$primary = $p->boucles[$p->id_boucle]->primary;
-			if (!strpos($primary, ',')) {
-				$id = champ_sql($primary, $p);
-				$_contexte[] = "'$primary'=>" . $id;
-				$_contexte[] = "'id'=>" . $id;
-			}
-		}
-		$_contexte[] = "'recurs'=>(++\$recurs)";
-		$connect = '';
-		if (isset($p->boucles[$p->id_boucle])) {
-			$connect = $p->boucles[$p->id_boucle]->sql_serveur;
-		}
-
-		$_options = memoriser_contexte_compil($p);
-		$_options = "'compil'=>array($_options), 'trim'=>true";
-		if (isset($_contexte['ajax'])) {
-			$_options .= ', ' . preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
-			unset($_contexte['ajax']);
-		}
-
-		$_l = 'array(' . join(",\n\t", $_contexte) . ')';
-		if ($flag_env) {
-			$_l = "array_merge(\$Pile[0],$_l)";
-		}
-
-		$page = sprintf(CODE_RECUPERER_FOND, $nom, $_l, $_options, _q($connect));
-
-		$p->code = "\n\t(((\$recurs=(isset(\$Pile[0]['recurs'])?\$Pile[0]['recurs']:0))>=5)? '' :\n\t$page)\n";
-
-		$p->interdire_scripts = false; // securite assuree par le squelette
-	}
-
-	return $p;
+    $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false);
+
+    // erreur de syntaxe = fond absent
+    // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
+    if (!$_contexte) {
+        $_contexte = [];
+    }
+
+    if (!isset($_contexte[1])) {
+        $msg = ['zbug_balise_sans_argument', ['balise' => ' MODELE']];
+        erreur_squelette($msg, $p);
+    } else {
+        $nom = $_contexte[1];
+        unset($_contexte[1]);
+
+        if (preg_match("/^\s*'[^']*'/s", $nom)) {
+            $nom = "'modeles/" . substr($nom, 1);
+        } else {
+            $nom = "'modeles/' . $nom";
+        }
+
+        $flag_env = false;
+        if (isset($_contexte['env'])) {
+            $flag_env = true;
+            unset($_contexte['env']);
+        }
+
+        // Incoherence dans la syntaxe du contexte. A revoir.
+        // Reserver la cle primaire de la boucle courante si elle existe
+        if (isset($p->boucles[$p->id_boucle]->primary)) {
+            $primary = $p->boucles[$p->id_boucle]->primary;
+            if (!strpos($primary, ',')) {
+                $id = champ_sql($primary, $p);
+                $_contexte[] = "'$primary'=>" . $id;
+                $_contexte[] = "'id'=>" . $id;
+            }
+        }
+        $_contexte[] = "'recurs'=>(++\$recurs)";
+        $connect = '';
+        if (isset($p->boucles[$p->id_boucle])) {
+            $connect = $p->boucles[$p->id_boucle]->sql_serveur;
+        }
+
+        $_options = memoriser_contexte_compil($p);
+        $_options = "'compil'=>array($_options), 'trim'=>true";
+        if (isset($_contexte['ajax'])) {
+            $_options .= ', ' . preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
+            unset($_contexte['ajax']);
+        }
+
+        $_l = 'array(' . join(",\n\t", $_contexte) . ')';
+        if ($flag_env) {
+            $_l = "array_merge(\$Pile[0],$_l)";
+        }
+
+        $page = sprintf(CODE_RECUPERER_FOND, $nom, $_l, $_options, _q($connect));
+
+        $p->code = "\n\t(((\$recurs=(isset(\$Pile[0]['recurs'])?\$Pile[0]['recurs']:0))>=5)? '' :\n\t$page)\n";
+
+        $p->interdire_scripts = false; // securite assuree par le squelette
+    }
+
+    return $p;
 }
 
 
@@ -2146,21 +2146,21 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_SET_dist($p) {
-	$_nom = interprete_argument_balise(1, $p);
-	$_val = interprete_argument_balise(2, $p);
+    $_nom = interprete_argument_balise(1, $p);
+    $_val = interprete_argument_balise(2, $p);
 
-	if (!$_nom or !$_val) {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SET']];
-		erreur_squelette($err_b_s_a, $p);
-	}
-	// affectation $_zzz inutile, mais permet de contourner un bug OpCode cache sous PHP 5.5.4
-	// cf https://bugs.php.net/bug.php?id=65845
-	else {
-		$p->code = "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)";
-	}
+    if (!$_nom or !$_val) {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SET']];
+        erreur_squelette($err_b_s_a, $p);
+    }
+    // affectation $_zzz inutile, mais permet de contourner un bug OpCode cache sous PHP 5.5.4
+    // cf https://bugs.php.net/bug.php?id=65845
+    else {
+        $p->code = "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)";
+    }
 
-	$p->interdire_scripts = false; // la balise ne renvoie rien
-	return $p;
+    $p->interdire_scripts = false; // la balise ne renvoie rien
+    return $p;
 }
 
 
@@ -2190,12 +2190,12 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_GET_dist($p) {
-	$p->interdire_scripts = false; // le contenu vient de #SET, donc il est de confiance
-	if (function_exists('balise_ENV')) {
-		return balise_ENV($p, '$Pile["vars"]??[]');
-	} else {
-		return balise_ENV_dist($p, '$Pile["vars"]??[]');
-	}
+    $p->interdire_scripts = false; // le contenu vient de #SET, donc il est de confiance
+    if (function_exists('balise_ENV')) {
+        return balise_ENV($p, '$Pile["vars"]??[]');
+    } else {
+        return balise_ENV_dist($p, '$Pile["vars"]??[]');
+    }
 }
 
 
@@ -2218,22 +2218,22 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_DOUBLONS_dist($p) {
-	if ($type = interprete_argument_balise(1, $p)) {
-		if ($famille = interprete_argument_balise(2, $p)) {
-			$type .= '.' . $famille;
-		}
-		$p->code = '(isset($doublons[' . $type . ']) ? $doublons[' . $type . '] : "")';
-		if (!$p->etoile) {
-			$p->code = 'array_filter(array_map("intval",explode(",",'
-				. $p->code . ')))';
-		}
-	} else {
-		$p->code = '$doublons';
-	}
+    if ($type = interprete_argument_balise(1, $p)) {
+        if ($famille = interprete_argument_balise(2, $p)) {
+            $type .= '.' . $famille;
+        }
+        $p->code = '(isset($doublons[' . $type . ']) ? $doublons[' . $type . '] : "")';
+        if (!$p->etoile) {
+            $p->code = 'array_filter(array_map("intval",explode(",",'
+                . $p->code . ')))';
+        }
+    } else {
+        $p->code = '$doublons';
+    }
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2256,18 +2256,18 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_PIPELINE_dist($p) {
-	$_pipe = interprete_argument_balise(1, $p);
-	if (!$_pipe) {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'PIPELINE']];
-		erreur_squelette($err_b_s_a, $p);
-	} else {
-		$_flux = interprete_argument_balise(2, $p);
-		$_flux = $_flux ?: "''";
-		$p->code = "pipeline( $_pipe , $_flux )";
-		$p->interdire_scripts = false;
-	}
+    $_pipe = interprete_argument_balise(1, $p);
+    if (!$_pipe) {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'PIPELINE']];
+        erreur_squelette($err_b_s_a, $p);
+    } else {
+        $_flux = interprete_argument_balise(2, $p);
+        $_flux = $_flux ?: "''";
+        $p->code = "pipeline( $_pipe , $_flux )";
+        $p->interdire_scripts = false;
+    }
 
-	return $p;
+    return $p;
 }
 
 
@@ -2292,10 +2292,10 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_EDIT_dist($p) {
-	$p->code = "''";
-	$p->interdire_scripts = false;
+    $p->code = "''";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2318,11 +2318,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_TOTAL_UNIQUE_dist($p) {
-	$_famille = interprete_argument_balise(1, $p);
-	$_famille = $_famille ?: "''";
-	$p->code = "unique('', $_famille, true)";
+    $_famille = interprete_argument_balise(1, $p);
+    $_famille = $_famille ?: "''";
+    $p->code = "unique('', $_famille, true)";
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2345,19 +2345,19 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_ARRAY_dist($p) {
-	$_code = [];
-	$n = 1;
-	do {
-		$_key = interprete_argument_balise($n++, $p);
-		$_val = interprete_argument_balise($n++, $p);
-		if ($_key and $_val) {
-			$_code[] = "$_key => $_val";
-		}
-	} while ($_key && $_val);
-	$p->code = 'array(' . join(', ', $_code) . ')';
-	$p->interdire_scripts = false;
+    $_code = [];
+    $n = 1;
+    do {
+        $_key = interprete_argument_balise($n++, $p);
+        $_val = interprete_argument_balise($n++, $p);
+        if ($_key and $_val) {
+            $_code[] = "$_key => $_val";
+        }
+    } while ($_key && $_val);
+    $p->code = 'array(' . join(', ', $_code) . ')';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2376,15 +2376,15 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_LISTE_dist($p) {
-	$_code = [];
-	$n = 1;
-	while ($_val = interprete_argument_balise($n++, $p)) {
-		$_code[] = $_val;
-	}
-	$p->code = 'array(' . join(', ', $_code) . ')';
-	$p->interdire_scripts = false;
+    $_code = [];
+    $n = 1;
+    while ($_val = interprete_argument_balise($n++, $p)) {
+        $_code[] = $_val;
+    }
+    $p->code = 'array(' . join(', ', $_code) . ')';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2418,21 +2418,21 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_AUTORISER_dist($p) {
-	$_code = [];
-	$p->descr['session'] = true; // faire un cache par session
+    $_code = [];
+    $p->descr['session'] = true; // faire un cache par session
 
-	$n = 1;
-	while ($_v = interprete_argument_balise($n++, $p)) {
-		$_code[] = $_v;
-	}
+    $n = 1;
+    while ($_v = interprete_argument_balise($n++, $p)) {
+        $_code[] = $_v;
+    }
 
-	$p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(
-		', ',
-		$_code
-	) . ')?" ":"")';
-	$p->interdire_scripts = false;
+    $p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(
+        ', ',
+        $_code
+    ) . ')?" ":"")';
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2456,15 +2456,15 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_PLUGIN_dist($p) {
-	$plugin = interprete_argument_balise(1, $p);
-	$plugin = isset($plugin) ? str_replace('\'', '"', $plugin) : '""';
-	$type_info = interprete_argument_balise(2, $p);
-	$type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"';
+    $plugin = interprete_argument_balise(1, $p);
+    $plugin = isset($plugin) ? str_replace('\'', '"', $plugin) : '""';
+    $type_info = interprete_argument_balise(2, $p);
+    $type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"';
 
-	$f = chercher_filtre('info_plugin');
-	$p->code = $f . '(' . $plugin . ', ' . $type_info . ')';
+    $f = chercher_filtre('info_plugin');
+    $p->code = $f . '(' . $plugin . ', ' . $type_info . ')';
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2485,9 +2485,9 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_AIDER_dist($p) {
-	$_motif = interprete_argument_balise(1, $p);
-	$p->code = "((\$aider=charger_fonction('aide','inc',true))?\$aider($_motif):'')";
-	return $p;
+    $_motif = interprete_argument_balise(1, $p);
+    $p->code = "((\$aider=charger_fonction('aide','inc',true))?\$aider($_motif):'')";
+    return $p;
 }
 
 /**
@@ -2513,16 +2513,16 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_ACTION_FORMULAIRE($p) {
-	if (!$_url = interprete_argument_balise(1, $p)) {
-		$_url = "(\$Pile[0]['action'] ?? '')";
-	}
-	if (!$_form = interprete_argument_balise(2, $p)) {
-		$_form = "(\$Pile[0]['form'] ?? '')";
-	}
-
-	// envoyer le nom du formulaire que l'on traite
-	// transmettre les eventuels args de la balise formulaire
-	$p->code = "	'<span class=\"form-hidden\">' .
+    if (!$_url = interprete_argument_balise(1, $p)) {
+        $_url = "(\$Pile[0]['action'] ?? '')";
+    }
+    if (!$_form = interprete_argument_balise(2, $p)) {
+        $_form = "(\$Pile[0]['form'] ?? '')";
+    }
+
+    // envoyer le nom du formulaire que l'on traite
+    // transmettre les eventuels args de la balise formulaire
+    $p->code = "	'<span class=\"form-hidden\">' .
 	form_hidden($_url) .
 	'<input name=\'formulaire_action\' type=\'hidden\'
 		value=\'' . $_form . '\' />' .
@@ -2533,9 +2533,9 @@ 
 	(\$Pile[0]['_hidden'] ?? '') .
 	'</span>'";
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2576,25 +2576,25 @@ 
  */
 function balise_BOUTON_ACTION_dist($p) {
 
-	$args = [];
-	for ($k = 1; $k <= 6; $k++) {
-		$_a = interprete_argument_balise($k, $p);
-		if (!$_a) {
-			$_a = "''";
-		}
-		$args[] = $_a;
-	}
-	// supprimer les args vides
-	while (end($args) == "''" and count($args) > 2) {
-		array_pop($args);
-	}
-	$args = implode(',', $args);
+    $args = [];
+    for ($k = 1; $k <= 6; $k++) {
+        $_a = interprete_argument_balise($k, $p);
+        if (!$_a) {
+            $_a = "''";
+        }
+        $args[] = $_a;
+    }
+    // supprimer les args vides
+    while (end($args) == "''" and count($args) > 2) {
+        array_pop($args);
+    }
+    $args = implode(',', $args);
 
-	$bouton_action = chercher_filtre('bouton_action');
-	$p->code = "$bouton_action($args)";
-	$p->interdire_scripts = false;
+    $bouton_action = chercher_filtre('bouton_action');
+    $p->code = "$bouton_action($args)";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2613,10 +2613,10 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_SLOGAN_SITE_SPIP_dist($p) {
-	$p->code = "\$GLOBALS['meta']['slogan_site']";
+    $p->code = "\$GLOBALS['meta']['slogan_site']";
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 
@@ -2640,10 +2640,10 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_HTML5_dist($p) {
-	$p->code = html5_permis() ? "' '" : "''";
-	$p->interdire_scripts = false;
+    $p->code = html5_permis() ? "' '" : "''";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2669,58 +2669,58 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_TRI_dist($p, $liste = 'true') {
-	$b = index_boucle_mere($p);
-	// s'il n'y a pas de nom de boucle, on ne peut pas trier
-	if ($b === '') {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-		$p->code = "''";
+    $b = index_boucle_mere($p);
+    // s'il n'y a pas de nom de boucle, on ne peut pas trier
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+        $p->code = "''";
 
-		return $p;
-	}
-	$boucle = $p->boucles[$b];
+        return $p;
+    }
+    $boucle = $p->boucles[$b];
 
-	// s'il n'y a pas de tri_champ, c'est qu'on se trouve
-	// dans un boucle recursive ou qu'on a oublie le critere {tri}
-	if (!isset($boucle->modificateur['tri_champ'])) {
-		$msg = ['zbug_champ_hors_critere', [
-			'champ' => zbug_presenter_champ($p),
-			'critere' => 'tri'
-		]];
-		erreur_squelette($msg, $p);
-		$p->code = "''";
+    // s'il n'y a pas de tri_champ, c'est qu'on se trouve
+    // dans un boucle recursive ou qu'on a oublie le critere {tri}
+    if (!isset($boucle->modificateur['tri_champ'])) {
+        $msg = ['zbug_champ_hors_critere', [
+            'champ' => zbug_presenter_champ($p),
+            'critere' => 'tri'
+        ]];
+        erreur_squelette($msg, $p);
+        $p->code = "''";
 
-		return $p;
-	}
+        return $p;
+    }
 
-	// Différentes infos relatives au tri présentes dans les modificateurs
-	$_tri_nom = $boucle->modificateur['tri_nom'] ; // nom du paramètre définissant le tri
-	$_tri_champ = $boucle->modificateur['tri_champ']; // champ actuel utilisé le tri
-	$_tri_sens = $boucle->modificateur['tri_sens']; // sens de tri actuel
-	$_tri_liste_sens_defaut = $boucle->modificateur['tri_liste_sens_defaut']; // sens par défaut pour chaque champ
+    // Différentes infos relatives au tri présentes dans les modificateurs
+    $_tri_nom = $boucle->modificateur['tri_nom'] ; // nom du paramètre définissant le tri
+    $_tri_champ = $boucle->modificateur['tri_champ']; // champ actuel utilisé le tri
+    $_tri_sens = $boucle->modificateur['tri_sens']; // sens de tri actuel
+    $_tri_liste_sens_defaut = $boucle->modificateur['tri_liste_sens_defaut']; // sens par défaut pour chaque champ
 
-	$_champ_ou_sens = interprete_argument_balise(1, $p);
-	// si pas de champ, renvoyer le critère de tri actuel
-	if (!$_champ_ou_sens) {
-		$p->code = $_tri_champ;
+    $_champ_ou_sens = interprete_argument_balise(1, $p);
+    // si pas de champ, renvoyer le critère de tri actuel
+    if (!$_champ_ou_sens) {
+        $p->code = $_tri_champ;
 
-		return $p;
-	}
-	// forcer la jointure si besoin, et si le champ est statique
-	if (preg_match(",^'([\w.]+)'$,i", $_champ_ou_sens, $m)) {
-		index_pile($b, $m[1], $p->boucles, '', null, true, false);
-	}
+        return $p;
+    }
+    // forcer la jointure si besoin, et si le champ est statique
+    if (preg_match(",^'([\w.]+)'$,i", $_champ_ou_sens, $m)) {
+        index_pile($b, $m[1], $p->boucles, '', null, true, false);
+    }
 
-	$_libelle = interprete_argument_balise(2, $p);
-	$_libelle = $_libelle ?: $_champ_ou_sens;
+    $_libelle = interprete_argument_balise(2, $p);
+    $_libelle = $_libelle ?: $_champ_ou_sens;
 
-	$_class = interprete_argument_balise(3, $p) ?? "''";
+    $_class = interprete_argument_balise(3, $p) ?? "''";
 
-	$p->code = "calculer_balise_tri($_champ_ou_sens, $_libelle, $_class, $_tri_nom, $_tri_champ, $_tri_sens, $_tri_liste_sens_defaut)";
+    $p->code = "calculer_balise_tri($_champ_ou_sens, $_libelle, $_class, $_tri_nom, $_tri_champ, $_tri_sens, $_tri_liste_sens_defaut)";
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2741,21 +2741,21 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_SAUTER_dist($p) {
-	$id_boucle = $p->id_boucle;
+    $id_boucle = $p->id_boucle;
 
-	if (empty($p->boucles[$id_boucle])) {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => '#SAUTER']];
-		erreur_squelette($msg, $p);
-	} else {
-		$_saut = interprete_argument_balise(1, $p);
-		$_compteur = "\$Numrows['$id_boucle']['compteur_boucle']";
-		$_total = "(\$Numrows['$id_boucle']['total'] ?? null)";
+    if (empty($p->boucles[$id_boucle])) {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => '#SAUTER']];
+        erreur_squelette($msg, $p);
+    } else {
+        $_saut = interprete_argument_balise(1, $p);
+        $_compteur = "\$Numrows['$id_boucle']['compteur_boucle']";
+        $_total = "(\$Numrows['$id_boucle']['total'] ?? null)";
 
-		$p->code = "vide($_compteur=\$iter->skip($_saut,$_total))";
-	}
-	$p->interdire_scripts = false;
+        $p->code = "vide($_compteur=\$iter->skip($_saut,$_total))";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2777,22 +2777,22 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_PUBLIE_dist($p) {
-	if (!$_type = interprete_argument_balise(1, $p)) {
-		$_type = _q($p->type_requete);
-		$_id = champ_sql($p->boucles[$p->id_boucle]->primary, $p);
-	} else {
-		$_id = interprete_argument_balise(2, $p);
-	}
+    if (!$_type = interprete_argument_balise(1, $p)) {
+        $_type = _q($p->type_requete);
+        $_id = champ_sql($p->boucles[$p->id_boucle]->primary, $p);
+    } else {
+        $_id = interprete_argument_balise(2, $p);
+    }
 
-	$connect = '';
-	if (isset($p->boucles[$p->id_boucle])) {
-		$connect = $p->boucles[$p->id_boucle]->sql_serveur;
-	}
+    $connect = '';
+    if (isset($p->boucles[$p->id_boucle])) {
+        $connect = $p->boucles[$p->id_boucle]->sql_serveur;
+    }
 
-	$p->code = '(objet_test_si_publie(' . $_type . ',intval(' . $_id . '),' . _q($connect) . ")?' ':'')";
-	$p->interdire_scripts = false;
+    $p->code = '(objet_test_si_publie(' . $_type . ',intval(' . $_id . '),' . _q($connect) . ")?' ':'')";
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2821,12 +2821,12 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_PRODUIRE_dist($p) {
-	$balise_inclure = charger_fonction('INCLURE', 'balise');
-	$p = $balise_inclure($p);
+    $balise_inclure = charger_fonction('INCLURE', 'balise');
+    $p = $balise_inclure($p);
 
-	$p->code = str_replace('recuperer_fond(', 'produire_fond_statique(', $p->code);
+    $p->code = str_replace('recuperer_fond(', 'produire_fond_statique(', $p->code);
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2845,13 +2845,13 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_LARGEUR_ECRAN_dist($p) {
-	$_class = interprete_argument_balise(1, $p);
-	if (!$_class) {
-		$_class = 'null';
-	}
-	$p->code = "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))";
+    $_class = interprete_argument_balise(1, $p);
+    if (!$_class) {
+        $_class = 'null';
+    }
+    $p->code = "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))";
 
-	return $p;
+    return $p;
 }
 
 
@@ -2867,14 +2867,14 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_CONST_dist($p) {
-	$_const = interprete_argument_balise(1, $p);
-	if (!strlen($_const ?? '')) {
-		$p->code = "''";
-	}
-	else {
-		$p->code = "(defined($_const)?constant($_const):'')";
-	}
-	$p->interdire_scripts = false;
-
-	return $p;
+    $_const = interprete_argument_balise(1, $p);
+    if (!strlen($_const ?? '')) {
+        $p->code = "''";
+    }
+    else {
+        $p->code = "(defined($_const)?constant($_const):'')";
+    }
+    $p->interdire_scripts = false;
+
+    return $p;
 }

ecrire/inc/autoriser.php

Braces +3 added lines, -6 removed lines

@@ -267,8 +267,7 @@ 
 		if ($id === '*') {
 			unset($GLOBALS['autoriser_exception'][$faire][$type]);
 			unset($autorisation[$faire][$type]);
-		}
-		else {
+		} else {
 			unset($GLOBALS['autoriser_exception'][$faire][$type][$id]);
 			unset($autorisation[$faire][$type][$id]);
 		}
@@ -652,8 +651,7 @@ 
 function autoriser_rubrique_creer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
 	if (!empty($opt['id_parent'])) {
 		return autoriser('creerrubriquedans', 'rubrique', $opt['id_parent'], $qui);
-	}
-	else {
+	} else {
 		return autoriser('defaut', null, 0, $qui, $opt);
 	}
 }
@@ -814,8 +812,7 @@ 
 	if (!empty($opt['id_parent'])) {
 		// creerarticledans rappelle autoriser(creer,article) sans id, donc on verifiera condition du else aussi
 		return autoriser('creerarticledans', 'rubrique', $opt['id_parent'], $qui);
-	}
-	else {
+	} else {
 		return (sql_countsel('spip_rubriques') > 0 and in_array($qui['statut'], ['0minirezo', '1comite']));
 	}
 }

Spacing +38 added lines, -38 removed lines

@@ -120,7 +120,7 @@ 
 // mais apres la fonction autoriser()
 if ($f = find_in_path('mes_fonctions.php')) {
 	global $dossier_squelettes;
-	include_once(_ROOT_CWD . $f);
+	include_once(_ROOT_CWD.$f);
 }
 
 
@@ -162,7 +162,7 @@ 
 		$qui = $GLOBALS['visiteur_session'] ?: [];
 		$qui = array_merge(['statut' => '', 'id_auteur' => 0, 'webmestre' => 'non'], $qui);
 	} elseif (is_numeric($qui)) {
-		$qui = sql_fetsel('*', 'spip_auteurs', 'id_auteur=' . $qui);
+		$qui = sql_fetsel('*', 'spip_auteurs', 'id_auteur='.$qui);
 		if (!$qui) {
 			return false;
 		}
@@ -175,8 +175,8 @@ 
 	}
 
 	spip_log(
-		"autoriser $faire $type $id (" . ($qui['nom'] ?? '') . ') ?',
-		'autoriser' . _LOG_DEBUG
+		"autoriser $faire $type $id (".($qui['nom'] ?? '').') ?',
+		'autoriser'._LOG_DEBUG
 	);
 
 	// passer par objet_type pour avoir les alias
@@ -192,7 +192,7 @@ 
 		(isset($GLOBALS['autoriser_exception'][$faire][$type][$id]) and autoriser_exception($faire, $type, $id, 'verifier'))
 		or (isset($GLOBALS['autoriser_exception'][$faire][$type]['*']) and autoriser_exception($faire, $type, '*', 'verifier'))
 	) {
-		spip_log("autoriser ($faire, $type, $id, " . ($qui['nom'] ?? '') . ') : OK Exception', 'autoriser' . _LOG_DEBUG);
+		spip_log("autoriser ($faire, $type, $id, ".($qui['nom'] ?? '').') : OK Exception', 'autoriser'._LOG_DEBUG);
 		return true;
 	}
 
@@ -201,18 +201,18 @@ 
 	// autoriser_faire[_dist], autoriser_defaut[_dist]
 	$fonctions = $type
 		? [
-			'autoriser_' . $type . '_' . $faire,
-			'autoriser_' . $type . '_' . $faire . '_dist',
-			'autoriser_' . $type,
-			'autoriser_' . $type . '_dist',
-			'autoriser_' . $faire,
-			'autoriser_' . $faire . '_dist',
+			'autoriser_'.$type.'_'.$faire,
+			'autoriser_'.$type.'_'.$faire.'_dist',
+			'autoriser_'.$type,
+			'autoriser_'.$type.'_dist',
+			'autoriser_'.$faire,
+			'autoriser_'.$faire.'_dist',
 			'autoriser_defaut',
 			'autoriser_defaut_dist'
 		]
 		: [
-			'autoriser_' . $faire,
-			'autoriser_' . $faire . '_dist',
+			'autoriser_'.$faire,
+			'autoriser_'.$faire.'_dist',
 			'autoriser_defaut',
 			'autoriser_defaut_dist'
 		];
@@ -225,8 +225,8 @@ 
 	}
 
 	spip_log(
-		"$f($faire, $type, $id, " . ($qui['nom'] ?? '') . ') : ' . ($a ? 'OK' : 'niet'),
-		'autoriser' . _LOG_DEBUG
+		"$f($faire, $type, $id, ".($qui['nom'] ?? '').') : '.($a ? 'OK' : 'niet'),
+		'autoriser'._LOG_DEBUG
 	);
 
 	return $a;
@@ -375,7 +375,7 @@ 
 function autoriser_previsualiser_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
 
 	// Le visiteur a-t-il un statut prevu par la config ?
-	if (strpos($GLOBALS['meta']['preview'], ',' . $qui['statut'] . ',') !== false) {
+	if (strpos($GLOBALS['meta']['preview'], ','.$qui['statut'].',') !== false) {
 		return test_previsualiser_objet_champ($type, $id, $qui, $opt);
 	}
 
@@ -433,7 +433,7 @@ 
 				} // pas de champ passe a la demande => NIET
 				$previsu = explode(',', $c['previsu']);
 				// regarder si ce statut est autorise pour l'auteur
-				if (in_array($opt[$champ] . '/auteur', $previsu)) {
+				if (in_array($opt[$champ].'/auteur', $previsu)) {
 					// retrouver l’id_auteur qui a filé un lien de prévisu éventuellement,
 					// sinon l’auteur en session
 					include_spip('inc/securiser_action');
@@ -447,12 +447,12 @@ 
 
 					if (!$id_auteur) {
 						return false;
-					} elseif (autoriser('previsualiser' . $opt[$champ], $type, 0, $id_auteur)) {
+					} elseif (autoriser('previsualiser'.$opt[$champ], $type, 0, $id_auteur)) {
 						// dans ce cas (admin en general), pas de filtrage sur ce statut
 					} elseif (
 						!sql_countsel(
 							'spip_auteurs_liens',
-							'id_auteur=' . intval($id_auteur) . ' AND objet=' . sql_quote($type) . ' AND id_objet=' . intval($id)
+							'id_auteur='.intval($id_auteur).' AND objet='.sql_quote($type).' AND id_objet='.intval($id)
 						)
 					) {
 						return false;
@@ -497,16 +497,16 @@ 
 			// multilinguisme par secteur et objet rattaché à une rubrique
 			$primary = id_table_objet($type);
 			if ($table != 'spip_rubriques') {
-				$id_rubrique = sql_getfetsel('id_rubrique', "$table", "$primary=" . intval($id));
+				$id_rubrique = sql_getfetsel('id_rubrique', "$table", "$primary=".intval($id));
 			} else {
 				$id_rubrique = $id;
 			}
-			$id_secteur = sql_getfetsel('id_secteur', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
+			$id_secteur = sql_getfetsel('id_secteur', 'spip_rubriques', 'id_rubrique='.intval($id_rubrique));
 			if (!$id_secteur > 0) {
 				$id_secteur = $id_rubrique;
 			}
-			$langue_secteur = sql_getfetsel('lang', 'spip_rubriques', 'id_rubrique=' . intval($id_secteur));
-			$langue_objet = sql_getfetsel('lang', "$table", "$primary=" . intval($id));
+			$langue_secteur = sql_getfetsel('lang', 'spip_rubriques', 'id_rubrique='.intval($id_secteur));
+			$langue_objet = sql_getfetsel('lang', "$table", "$primary=".intval($id));
 			if ($langue_secteur != $langue_objet) {
 				// configuration incohérente, on laisse l'utilisateur corriger la situation
 				return true;
@@ -514,7 +514,7 @@ 
 			if ($table != 'spip_rubriques') { // le choix de la langue se fait seulement sur les rubriques
 				return false;
 			} else {
-				$id_parent = sql_getfetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . intval($id));
+				$id_parent = sql_getfetsel('id_parent', 'spip_rubriques', 'id_rubrique='.intval($id));
 				if ($id_parent != 0) {
 					// sous-rubriques : pas de choix de langue
 					return false;
@@ -566,7 +566,7 @@ 
 
 	if (!isset($opt['statut'])) {
 		if (isset($desc['field']['statut'])) {
-			$statut = sql_getfetsel('statut', $desc['table'], id_table_objet($type) . '=' . intval($id));
+			$statut = sql_getfetsel('statut', $desc['table'], id_table_objet($type).'='.intval($id));
 		} else {
 			$statut = 'publie';
 		} // pas de statut => publie
@@ -740,11 +740,11 @@ 
 		return false;
 	}
 
-	if (sql_countsel('spip_rubriques', 'id_parent=' . intval($id))) {
+	if (sql_countsel('spip_rubriques', 'id_parent='.intval($id))) {
 		return false;
 	}
 
-	if (sql_countsel('spip_articles', 'id_rubrique=' . intval($id) . " AND (statut<>'poubelle')")) {
+	if (sql_countsel('spip_articles', 'id_rubrique='.intval($id)." AND (statut<>'poubelle')")) {
 		return false;
 	}
 
@@ -781,7 +781,7 @@ 
 	if (!$id) {
 		return false;
 	}
-	$r = sql_fetsel('id_rubrique,statut', 'spip_articles', 'id_article=' . sql_quote($id));
+	$r = sql_fetsel('id_rubrique,statut', 'spip_articles', 'id_article='.sql_quote($id));
 
 	return
 		$r
@@ -792,7 +792,7 @@ 
 				(!isset($opt['statut']) or !in_array($opt['statut'], ['publie', 'refuse'], true))
 				and in_array($qui['statut'], ['0minirezo', '1comite'])
 				and in_array($r['statut'], ['prop', 'prepa', 'poubelle'])
-				and auteurs_objet('article', $id, 'id_auteur=' . $qui['id_auteur'])
+				and auteurs_objet('article', $id, 'id_auteur='.$qui['id_auteur'])
 			)
 		);
 }
@@ -850,7 +850,7 @@ 
 		if (!$id) {
 			return false;
 		}
-		$statut = sql_getfetsel('statut', 'spip_articles', 'id_article=' . intval($id));
+		$statut = sql_getfetsel('statut', 'spip_articles', 'id_article='.intval($id));
 	}
 
 	return
@@ -861,7 +861,7 @@ 
 		or
 		($id
 			and $qui['id_auteur']
-			and auteurs_objet('article', $id, 'id_auteur=' . $qui['id_auteur']));
+			and auteurs_objet('article', $id, 'id_auteur='.$qui['id_auteur']));
 }
 
 
@@ -882,8 +882,8 @@ 
 function autoriser_voir_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
 	# securite, mais on aurait pas du arriver ici !
 	if (
-		function_exists($f = 'autoriser_' . $type . '_voir')
-		or function_exists($f = 'autoriser_' . $type . '_voir_dist')
+		function_exists($f = 'autoriser_'.$type.'_voir')
+		or function_exists($f = 'autoriser_'.$type.'_voir_dist')
 	) {
 		return $f($faire, $type, $id, $qui, $opt);
 	}
@@ -1014,7 +1014,7 @@ 
 	$n = sql_fetsel(
 		'A.id_article',
 		'spip_auteurs_liens AS L LEFT JOIN spip_articles AS A ON (L.objet=\'article\' AND L.id_objet=A.id_article)',
-		"A.statut='publie' AND L.id_auteur=" . sql_quote($id)
+		"A.statut='publie' AND L.id_auteur=".sql_quote($id)
 	);
 
 	return $n ? true : false;
@@ -1226,7 +1226,7 @@ 
 		and $r = sql_allfetsel(
 			'id_objet',
 			'spip_auteurs_liens',
-			'id_auteur=' . intval($id_auteur) . " AND objet='rubrique' AND id_objet!=0"
+			'id_auteur='.intval($id_auteur)." AND objet='rubrique' AND id_objet!=0"
 		)
 		and is_countable($r) ? count($r) : 0
 	) {
@@ -1911,8 +1911,8 @@ 
 function auteurs_objet($objet, $id_objet, $cond = '') {
 	$objet = objet_type($objet);
 	$where = [
-		'objet=' . sql_quote($objet),
-		'id_objet=' . intval($id_objet)
+		'objet='.sql_quote($objet),
+		'id_objet='.intval($id_objet)
 	];
 	if (!empty($cond)) {
 		if (is_array($cond)) {
@@ -1947,7 +1947,7 @@ 
 	return sql_allfetsel(
 		'id_auteur',
 		'spip_auteurs_liens',
-		"objet='article' AND id_objet=" . intval($id_article) . ($cond ? " AND $cond" : '')
+		"objet='article' AND id_objet=".intval($id_article).($cond ? " AND $cond" : '')
 	);
 }
 

Indentation +683 added lines, -683 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Autorisations
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/abstract_sql');
@@ -38,89 +38,89 @@ 
 
 
 if (!function_exists('autoriser')) {
-	/**
-	 * Autoriser une action
-	 *
-	 * Teste si une personne (par défaut le visiteur en cours) peut effectuer
-	 * une certaine action. Cette fonction est le point d'entrée de toutes
-	 * les autorisations.
-	 *
-	 * La fonction se charge d'appeler des fonctions d'autorisations spécifiques
-	 * aux actions demandées si elles existent. Elle cherche donc les fonctions
-	 * dans cet ordre :
-	 *
-	 * - autoriser_{type}_{faire}, sinon avec _dist
-	 * - autoriser_{type}, sinon avec _dist
-	 * - autoriser_{faire}, sinon avec _dist
-	 * - autoriser_{defaut}, sinon avec _dist
-	 *
-	 * Seul le premier argument est obligatoire.
-	 *
-	 * @note
-	 *     Le paramètre `$type` attend par défaut un type d'objet éditorial, et à ce titre,
-	 *     la valeur transmise se verra appliquer la fonction 'objet_type' pour uniformiser
-	 *     cette valeur.
-	 *
-	 *     Si ce paramètre n'a rien n'a voir avec un objet éditorial, par exemple
-	 *     'statistiques', un souligné avant le terme est ajouté afin d'indiquer
-	 *     explicitement à la fonction autoriser de ne pas transformer la chaîne en type
-	 *     d'objet. Cela donne pour cet exemple : `autoriser('detruire', '_statistiques')`
-	 *
-	 * @note
-	 *     Le paramètre `$type`, en plus de l'uniformisation en type d'objet, se voit retirer
-	 *     tous les soulignés du terme. Ainsi le type d'objet `livre_art` deviendra `livreart`
-	 *     et SPIP cherchera une fonction `autoriser_livreart_{faire}`. Ceci permet
-	 *     d'éviter une possible confusion si une fonction `autoriser_livre_art` existait :
-	 *     quel serait le type, quel serait l'action ?
-	 *
-	 *     Pour résumer, si le type d'objet éditorial a un souligné, tel que 'livre_art',
-	 *     la fonction d'autorisation correspondante ne l'aura pas.
-	 *     Exemple : `function autoriser_livreart_modifier_dist(...){...}`
-	 *
-	 * @api
-	 * @see autoriser_dist()
-	 * @see objet_type()
-	 *
-	 * @param string $faire
-	 *   une action ('modifier', 'publier'...)
-	 * @param string|null $type
-	 *   Type d’objet ou élément sur lequel appliquer l’action.
-	 *   - null: indifférent à tout type d’élément ou objet éditorial
-	 *   - string: objet éditorial (objet_type() est appliqué pour homogénéiser l’entrée)
-	 *   - _string: autre élément (avec un souligné en premier caractère, désactive objet_type()).
-	 *   Les soulignés seront retirés (cf. la note).
-	 * @param string|int|null $id
-	 *   id de l'objet ou élément sur lequel on veut agir, si pertinent.
-	 *   - null: non utile pour l’autorisation
-	 *   - int: identifiant numérique (cas de tous les objets éditoriaux de SPIP)
-	 *   - string: identifiant textuel
-	 * @param null|int|array $qui
-	 *   - si null on prend alors visiteur_session
-	 *   - un id_auteur (on regarde dans la base)
-	 *   - un tableau auteur complet, y compris [restreint]
-	 * @param array $opt
-	 *   options sous forme de tableau associatif
-	 * @return bool
-	 *   true si la personne peut effectuer l'action
-	 */
-	function autoriser(string $faire, ?string $type = '', $id = null, $qui = null, array $opt = []): bool {
-		// Charger les fonctions d'autorisation supplementaires
-		static $pipe;
-		if (!isset($pipe)) {
-			$pipe = 1;
-			pipeline('autoriser');
-		}
-
-		return autoriser_dist($faire, $type, $id, $qui, $opt);
-	}
+    /**
+     * Autoriser une action
+     *
+     * Teste si une personne (par défaut le visiteur en cours) peut effectuer
+     * une certaine action. Cette fonction est le point d'entrée de toutes
+     * les autorisations.
+     *
+     * La fonction se charge d'appeler des fonctions d'autorisations spécifiques
+     * aux actions demandées si elles existent. Elle cherche donc les fonctions
+     * dans cet ordre :
+     *
+     * - autoriser_{type}_{faire}, sinon avec _dist
+     * - autoriser_{type}, sinon avec _dist
+     * - autoriser_{faire}, sinon avec _dist
+     * - autoriser_{defaut}, sinon avec _dist
+     *
+     * Seul le premier argument est obligatoire.
+     *
+     * @note
+     *     Le paramètre `$type` attend par défaut un type d'objet éditorial, et à ce titre,
+     *     la valeur transmise se verra appliquer la fonction 'objet_type' pour uniformiser
+     *     cette valeur.
+     *
+     *     Si ce paramètre n'a rien n'a voir avec un objet éditorial, par exemple
+     *     'statistiques', un souligné avant le terme est ajouté afin d'indiquer
+     *     explicitement à la fonction autoriser de ne pas transformer la chaîne en type
+     *     d'objet. Cela donne pour cet exemple : `autoriser('detruire', '_statistiques')`
+     *
+     * @note
+     *     Le paramètre `$type`, en plus de l'uniformisation en type d'objet, se voit retirer
+     *     tous les soulignés du terme. Ainsi le type d'objet `livre_art` deviendra `livreart`
+     *     et SPIP cherchera une fonction `autoriser_livreart_{faire}`. Ceci permet
+     *     d'éviter une possible confusion si une fonction `autoriser_livre_art` existait :
+     *     quel serait le type, quel serait l'action ?
+     *
+     *     Pour résumer, si le type d'objet éditorial a un souligné, tel que 'livre_art',
+     *     la fonction d'autorisation correspondante ne l'aura pas.
+     *     Exemple : `function autoriser_livreart_modifier_dist(...){...}`
+     *
+     * @api
+     * @see autoriser_dist()
+     * @see objet_type()
+     *
+     * @param string $faire
+     *   une action ('modifier', 'publier'...)
+     * @param string|null $type
+     *   Type d’objet ou élément sur lequel appliquer l’action.
+     *   - null: indifférent à tout type d’élément ou objet éditorial
+     *   - string: objet éditorial (objet_type() est appliqué pour homogénéiser l’entrée)
+     *   - _string: autre élément (avec un souligné en premier caractère, désactive objet_type()).
+     *   Les soulignés seront retirés (cf. la note).
+     * @param string|int|null $id
+     *   id de l'objet ou élément sur lequel on veut agir, si pertinent.
+     *   - null: non utile pour l’autorisation
+     *   - int: identifiant numérique (cas de tous les objets éditoriaux de SPIP)
+     *   - string: identifiant textuel
+     * @param null|int|array $qui
+     *   - si null on prend alors visiteur_session
+     *   - un id_auteur (on regarde dans la base)
+     *   - un tableau auteur complet, y compris [restreint]
+     * @param array $opt
+     *   options sous forme de tableau associatif
+     * @return bool
+     *   true si la personne peut effectuer l'action
+     */
+    function autoriser(string $faire, ?string $type = '', $id = null, $qui = null, array $opt = []): bool {
+        // Charger les fonctions d'autorisation supplementaires
+        static $pipe;
+        if (!isset($pipe)) {
+            $pipe = 1;
+            pipeline('autoriser');
+        }
+
+        return autoriser_dist($faire, $type, $id, $qui, $opt);
+    }
 }
 
 
 // mes_fonctions peut aussi declarer des autorisations, il faut donc le charger
 // mais apres la fonction autoriser()
 if ($f = find_in_path('mes_fonctions.php')) {
-	global $dossier_squelettes;
-	include_once(_ROOT_CWD . $f);
+    global $dossier_squelettes;
+    include_once(_ROOT_CWD . $f);
 }
 
 
@@ -151,85 +151,85 @@ 
  */
 function autoriser_dist(string $faire, ?string $type = '', $id = null, $qui = null, array $opt = []): bool {
 
-	if ($type === null) {
-		$type = '';
-	}
-
-	// Qui ? visiteur_session ?
-	// si null ou '' (appel depuis #AUTORISER) on prend l'auteur loge
-	if ($qui === null or $qui === '') {
-		$qui = $GLOBALS['visiteur_session'] ?: [];
-		$qui = array_merge(['statut' => '', 'id_auteur' => 0, 'webmestre' => 'non'], $qui);
-	} elseif (is_numeric($qui)) {
-		$qui = sql_fetsel('*', 'spip_auteurs', 'id_auteur=' . $qui);
-		if (!$qui) {
-			return false;
-		}
-	}
-
-	// Admins restreints, on construit ici (pas generique mais...)
-	// le tableau de toutes leurs rubriques (y compris les sous-rubriques)
-	if (_ADMINS_RESTREINTS and is_array($qui)) {
-		$qui['restreint'] = isset($qui['id_auteur']) ? liste_rubriques_auteur($qui['id_auteur']) : [];
-	}
-
-	spip_log(
-		"autoriser $faire $type $id (" . ($qui['nom'] ?? '') . ') ?',
-		'autoriser' . _LOG_DEBUG
-	);
-
-	// passer par objet_type pour avoir les alias
-	// sauf si _ est le premier caractère.
-	if ($type and $type[0] !== '_') {
-		$type = objet_type($type, false);
-	}
-	// et supprimer les _
-	$type = str_replace('_', '', (string) $type);
-
-	// Si une exception a ete decretee plus haut dans le code, l'appliquer
-	if (
-		(isset($GLOBALS['autoriser_exception'][$faire][$type][$id]) and autoriser_exception($faire, $type, $id, 'verifier'))
-		or (isset($GLOBALS['autoriser_exception'][$faire][$type]['*']) and autoriser_exception($faire, $type, '*', 'verifier'))
-	) {
-		spip_log("autoriser ($faire, $type, $id, " . ($qui['nom'] ?? '') . ') : OK Exception', 'autoriser' . _LOG_DEBUG);
-		return true;
-	}
-
-	// Chercher une fonction d'autorisation
-	// Dans l'ordre on va chercher autoriser_type_faire[_dist], autoriser_type[_dist],
-	// autoriser_faire[_dist], autoriser_defaut[_dist]
-	$fonctions = $type
-		? [
-			'autoriser_' . $type . '_' . $faire,
-			'autoriser_' . $type . '_' . $faire . '_dist',
-			'autoriser_' . $type,
-			'autoriser_' . $type . '_dist',
-			'autoriser_' . $faire,
-			'autoriser_' . $faire . '_dist',
-			'autoriser_defaut',
-			'autoriser_defaut_dist'
-		]
-		: [
-			'autoriser_' . $faire,
-			'autoriser_' . $faire . '_dist',
-			'autoriser_defaut',
-			'autoriser_defaut_dist'
-		];
-
-	$a = false;
-	foreach ($fonctions as $f) {
-		if (function_exists($f)) {
-			$a = $f($faire, $type, $id, $qui, $opt);
-			break;
-		}
-	}
-
-	spip_log(
-		"$f($faire, $type, $id, " . ($qui['nom'] ?? '') . ') : ' . ($a ? 'OK' : 'niet'),
-		'autoriser' . _LOG_DEBUG
-	);
-
-	return $a;
+    if ($type === null) {
+        $type = '';
+    }
+
+    // Qui ? visiteur_session ?
+    // si null ou '' (appel depuis #AUTORISER) on prend l'auteur loge
+    if ($qui === null or $qui === '') {
+        $qui = $GLOBALS['visiteur_session'] ?: [];
+        $qui = array_merge(['statut' => '', 'id_auteur' => 0, 'webmestre' => 'non'], $qui);
+    } elseif (is_numeric($qui)) {
+        $qui = sql_fetsel('*', 'spip_auteurs', 'id_auteur=' . $qui);
+        if (!$qui) {
+            return false;
+        }
+    }
+
+    // Admins restreints, on construit ici (pas generique mais...)
+    // le tableau de toutes leurs rubriques (y compris les sous-rubriques)
+    if (_ADMINS_RESTREINTS and is_array($qui)) {
+        $qui['restreint'] = isset($qui['id_auteur']) ? liste_rubriques_auteur($qui['id_auteur']) : [];
+    }
+
+    spip_log(
+        "autoriser $faire $type $id (" . ($qui['nom'] ?? '') . ') ?',
+        'autoriser' . _LOG_DEBUG
+    );
+
+    // passer par objet_type pour avoir les alias
+    // sauf si _ est le premier caractère.
+    if ($type and $type[0] !== '_') {
+        $type = objet_type($type, false);
+    }
+    // et supprimer les _
+    $type = str_replace('_', '', (string) $type);
+
+    // Si une exception a ete decretee plus haut dans le code, l'appliquer
+    if (
+        (isset($GLOBALS['autoriser_exception'][$faire][$type][$id]) and autoriser_exception($faire, $type, $id, 'verifier'))
+        or (isset($GLOBALS['autoriser_exception'][$faire][$type]['*']) and autoriser_exception($faire, $type, '*', 'verifier'))
+    ) {
+        spip_log("autoriser ($faire, $type, $id, " . ($qui['nom'] ?? '') . ') : OK Exception', 'autoriser' . _LOG_DEBUG);
+        return true;
+    }
+
+    // Chercher une fonction d'autorisation
+    // Dans l'ordre on va chercher autoriser_type_faire[_dist], autoriser_type[_dist],
+    // autoriser_faire[_dist], autoriser_defaut[_dist]
+    $fonctions = $type
+        ? [
+            'autoriser_' . $type . '_' . $faire,
+            'autoriser_' . $type . '_' . $faire . '_dist',
+            'autoriser_' . $type,
+            'autoriser_' . $type . '_dist',
+            'autoriser_' . $faire,
+            'autoriser_' . $faire . '_dist',
+            'autoriser_defaut',
+            'autoriser_defaut_dist'
+        ]
+        : [
+            'autoriser_' . $faire,
+            'autoriser_' . $faire . '_dist',
+            'autoriser_defaut',
+            'autoriser_defaut_dist'
+        ];
+
+    $a = false;
+    foreach ($fonctions as $f) {
+        if (function_exists($f)) {
+            $a = $f($faire, $type, $id, $qui, $opt);
+            break;
+        }
+    }
+
+    spip_log(
+        "$f($faire, $type, $id, " . ($qui['nom'] ?? '') . ') : ' . ($a ? 'OK' : 'niet'),
+        'autoriser' . _LOG_DEBUG
+    );
+
+    return $a;
 }
 
 // une globale pour aller au plus vite dans la fonction generique ci dessus
@@ -249,33 +249,33 @@ 
  * @return bool
  */
 function autoriser_exception(string $faire, ?string $type = '', $id = null, $autoriser = true): bool {
-	// une static innaccessible par url pour verifier que la globale est positionnee a bon escient
-	static $autorisation;
-	// Tolérance avec certains appels
-	if ($type === null) {
-		$type = '';
-	}
-	if ($id === null) {
-		$id = 0;
-	}
-	if ($autoriser === 'verifier') {
-		return isset($autorisation[$faire][$type][$id]);
-	}
-	if ($autoriser === true) {
-		$GLOBALS['autoriser_exception'][$faire][$type][$id] = $autorisation[$faire][$type][$id] = true;
-	}
-	if ($autoriser === false) {
-		if ($id === '*') {
-			unset($GLOBALS['autoriser_exception'][$faire][$type]);
-			unset($autorisation[$faire][$type]);
-		}
-		else {
-			unset($GLOBALS['autoriser_exception'][$faire][$type][$id]);
-			unset($autorisation[$faire][$type][$id]);
-		}
-	}
-
-	return false;
+    // une static innaccessible par url pour verifier que la globale est positionnee a bon escient
+    static $autorisation;
+    // Tolérance avec certains appels
+    if ($type === null) {
+        $type = '';
+    }
+    if ($id === null) {
+        $id = 0;
+    }
+    if ($autoriser === 'verifier') {
+        return isset($autorisation[$faire][$type][$id]);
+    }
+    if ($autoriser === true) {
+        $GLOBALS['autoriser_exception'][$faire][$type][$id] = $autorisation[$faire][$type][$id] = true;
+    }
+    if ($autoriser === false) {
+        if ($id === '*') {
+            unset($GLOBALS['autoriser_exception'][$faire][$type]);
+            unset($autorisation[$faire][$type]);
+        }
+        else {
+            unset($GLOBALS['autoriser_exception'][$faire][$type][$id]);
+            unset($autorisation[$faire][$type][$id]);
+        }
+    }
+
+    return false;
 }
 
 
@@ -294,9 +294,9 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_defaut_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return
-		$qui['statut'] === '0minirezo'
-		and !$qui['restreint'];
+    return
+        $qui['statut'] === '0minirezo'
+        and !$qui['restreint'];
 }
 
 /**
@@ -316,10 +316,10 @@ 
  * @return bool true s'il a le droit, false sinon
  */
 function autoriser_loger_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	if ($qui['statut'] === '5poubelle') {
-		return false;
-	}
-	return true;
+    if ($qui['statut'] === '5poubelle') {
+        return false;
+    }
+    return true;
 }
 
 /**
@@ -335,7 +335,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_ecrire_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return isset($qui['statut']) and in_array($qui['statut'], ['0minirezo', '1comite']);
+    return isset($qui['statut']) and in_array($qui['statut'], ['0minirezo', '1comite']);
 }
 
 /**
@@ -354,7 +354,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_creer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return in_array($qui['statut'], ['0minirezo', '1comite']);
+    return in_array($qui['statut'], ['0minirezo', '1comite']);
 }
 
 /**
@@ -374,18 +374,18 @@ 
  **/
 function autoriser_previsualiser_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
 
-	// Le visiteur a-t-il un statut prevu par la config ?
-	if (strpos($GLOBALS['meta']['preview'], ',' . $qui['statut'] . ',') !== false) {
-		return test_previsualiser_objet_champ($type, $id, $qui, $opt);
-	}
+    // Le visiteur a-t-il un statut prevu par la config ?
+    if (strpos($GLOBALS['meta']['preview'], ',' . $qui['statut'] . ',') !== false) {
+        return test_previsualiser_objet_champ($type, $id, $qui, $opt);
+    }
 
-	// A-t-on un token de prévisualisation valable ?
-	include_spip('inc/securiser_action');
-	if (decrire_token_previsu()) {
-		return true;
-	}
+    // A-t-on un token de prévisualisation valable ?
+    include_spip('inc/securiser_action');
+    if (decrire_token_previsu()) {
+        return true;
+    }
 
-	return false;
+    return false;
 }
 
 /**
@@ -414,58 +414,58 @@ 
  */
 function test_previsualiser_objet_champ(string $type = '', $id = null, array $qui = [], array $opt = []): bool {
 
-	// si pas de type et statut fourni, c'est une autorisation generale => OK
-	if (!$type) {
-		return true;
-	}
-
-	include_spip('base/objets');
-	$infos = lister_tables_objets_sql(table_objet_sql($type));
-	if (isset($infos['statut'])) {
-		foreach ($infos['statut'] as $c) {
-			if (isset($c['publie'])) {
-				if (!isset($c['previsu'])) {
-					return false;
-				} // pas de previsu definie => NIET
-				$champ = $c['champ'];
-				if (!isset($opt[$champ])) {
-					return false;
-				} // pas de champ passe a la demande => NIET
-				$previsu = explode(',', $c['previsu']);
-				// regarder si ce statut est autorise pour l'auteur
-				if (in_array($opt[$champ] . '/auteur', $previsu)) {
-					// retrouver l’id_auteur qui a filé un lien de prévisu éventuellement,
-					// sinon l’auteur en session
-					include_spip('inc/securiser_action');
-					if ($desc = decrire_token_previsu()) {
-						$id_auteur = $desc['id_auteur'];
-					} elseif (isset($GLOBALS['visiteur_session']['id_auteur'])) {
-						$id_auteur = intval($GLOBALS['visiteur_session']['id_auteur']);
-					} else {
-						$id_auteur = null;
-					}
-
-					if (!$id_auteur) {
-						return false;
-					} elseif (autoriser('previsualiser' . $opt[$champ], $type, 0, $id_auteur)) {
-						// dans ce cas (admin en general), pas de filtrage sur ce statut
-					} elseif (
-						!sql_countsel(
-							'spip_auteurs_liens',
-							'id_auteur=' . intval($id_auteur) . ' AND objet=' . sql_quote($type) . ' AND id_objet=' . intval($id)
-						)
-					) {
-						return false;
-					} // pas auteur de cet objet => NIET
-				} elseif (!in_array($opt[$champ], $previsu)) {
-					// le statut n'est pas dans ceux definis par la previsu => NIET
-					return false;
-				}
-			}
-		}
-	}
-
-	return true;
+    // si pas de type et statut fourni, c'est une autorisation generale => OK
+    if (!$type) {
+        return true;
+    }
+
+    include_spip('base/objets');
+    $infos = lister_tables_objets_sql(table_objet_sql($type));
+    if (isset($infos['statut'])) {
+        foreach ($infos['statut'] as $c) {
+            if (isset($c['publie'])) {
+                if (!isset($c['previsu'])) {
+                    return false;
+                } // pas de previsu definie => NIET
+                $champ = $c['champ'];
+                if (!isset($opt[$champ])) {
+                    return false;
+                } // pas de champ passe a la demande => NIET
+                $previsu = explode(',', $c['previsu']);
+                // regarder si ce statut est autorise pour l'auteur
+                if (in_array($opt[$champ] . '/auteur', $previsu)) {
+                    // retrouver l’id_auteur qui a filé un lien de prévisu éventuellement,
+                    // sinon l’auteur en session
+                    include_spip('inc/securiser_action');
+                    if ($desc = decrire_token_previsu()) {
+                        $id_auteur = $desc['id_auteur'];
+                    } elseif (isset($GLOBALS['visiteur_session']['id_auteur'])) {
+                        $id_auteur = intval($GLOBALS['visiteur_session']['id_auteur']);
+                    } else {
+                        $id_auteur = null;
+                    }
+
+                    if (!$id_auteur) {
+                        return false;
+                    } elseif (autoriser('previsualiser' . $opt[$champ], $type, 0, $id_auteur)) {
+                        // dans ce cas (admin en general), pas de filtrage sur ce statut
+                    } elseif (
+                        !sql_countsel(
+                            'spip_auteurs_liens',
+                            'id_auteur=' . intval($id_auteur) . ' AND objet=' . sql_quote($type) . ' AND id_objet=' . intval($id)
+                        )
+                    ) {
+                        return false;
+                    } // pas auteur de cet objet => NIET
+                } elseif (!in_array($opt[$champ], $previsu)) {
+                    // le statut n'est pas dans ceux definis par la previsu => NIET
+                    return false;
+                }
+            }
+        }
+    }
+
+    return true;
 }
 
 /**
@@ -481,51 +481,51 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_changerlangue_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	$multi_objets = explode(',', lire_config('multi_objets'));
-	$gerer_trad_objets = explode(',', lire_config('gerer_trad_objets'));
-	$table = table_objet_sql($type);
-	if (
-		in_array($table, $multi_objets)
-		or in_array($table, $gerer_trad_objets)
-	) { // affichage du formulaire si la configuration l'accepte
-		$multi_secteurs = lire_config('multi_secteurs');
-		$champs = objet_info($type, 'field');
-		if (
-			$multi_secteurs === 'oui'
-			and array_key_exists('id_rubrique', $champs)
-		) {
-			// multilinguisme par secteur et objet rattaché à une rubrique
-			$primary = id_table_objet($type);
-			if ($table != 'spip_rubriques') {
-				$id_rubrique = sql_getfetsel('id_rubrique', "$table", "$primary=" . intval($id));
-			} else {
-				$id_rubrique = $id;
-			}
-			$id_secteur = sql_getfetsel('id_secteur', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
-			if (!$id_secteur > 0) {
-				$id_secteur = $id_rubrique;
-			}
-			$langue_secteur = sql_getfetsel('lang', 'spip_rubriques', 'id_rubrique=' . intval($id_secteur));
-			$langue_objet = sql_getfetsel('lang', "$table", "$primary=" . intval($id));
-			if ($langue_secteur != $langue_objet) {
-				// configuration incohérente, on laisse l'utilisateur corriger la situation
-				return true;
-			}
-			if ($table != 'spip_rubriques') { // le choix de la langue se fait seulement sur les rubriques
-				return false;
-			} else {
-				$id_parent = sql_getfetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . intval($id));
-				if ($id_parent != 0) {
-					// sous-rubriques : pas de choix de langue
-					return false;
-				}
-			}
-		}
-	} else {
-		return false;
-	}
-
-	return autoriser('modifier', $type, $id, $qui, $opt);
+    $multi_objets = explode(',', lire_config('multi_objets'));
+    $gerer_trad_objets = explode(',', lire_config('gerer_trad_objets'));
+    $table = table_objet_sql($type);
+    if (
+        in_array($table, $multi_objets)
+        or in_array($table, $gerer_trad_objets)
+    ) { // affichage du formulaire si la configuration l'accepte
+        $multi_secteurs = lire_config('multi_secteurs');
+        $champs = objet_info($type, 'field');
+        if (
+            $multi_secteurs === 'oui'
+            and array_key_exists('id_rubrique', $champs)
+        ) {
+            // multilinguisme par secteur et objet rattaché à une rubrique
+            $primary = id_table_objet($type);
+            if ($table != 'spip_rubriques') {
+                $id_rubrique = sql_getfetsel('id_rubrique', "$table", "$primary=" . intval($id));
+            } else {
+                $id_rubrique = $id;
+            }
+            $id_secteur = sql_getfetsel('id_secteur', 'spip_rubriques', 'id_rubrique=' . intval($id_rubrique));
+            if (!$id_secteur > 0) {
+                $id_secteur = $id_rubrique;
+            }
+            $langue_secteur = sql_getfetsel('lang', 'spip_rubriques', 'id_rubrique=' . intval($id_secteur));
+            $langue_objet = sql_getfetsel('lang', "$table", "$primary=" . intval($id));
+            if ($langue_secteur != $langue_objet) {
+                // configuration incohérente, on laisse l'utilisateur corriger la situation
+                return true;
+            }
+            if ($table != 'spip_rubriques') { // le choix de la langue se fait seulement sur les rubriques
+                return false;
+            } else {
+                $id_parent = sql_getfetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . intval($id));
+                if ($id_parent != 0) {
+                    // sous-rubriques : pas de choix de langue
+                    return false;
+                }
+            }
+        }
+    } else {
+        return false;
+    }
+
+    return autoriser('modifier', $type, $id, $qui, $opt);
 }
 
 /**
@@ -541,7 +541,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_changertraduction_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('modifier', $type, $id, $qui, $opt);
+    return autoriser('modifier', $type, $id, $qui, $opt);
 }
 
 /**
@@ -557,41 +557,41 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_dater_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	$table = table_objet($type);
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$desc = $trouver_table($table);
-	if (!$desc) {
-		return false;
-	}
-
-	if (!isset($opt['statut'])) {
-		if (isset($desc['field']['statut'])) {
-			$statut = sql_getfetsel('statut', $desc['table'], id_table_objet($type) . '=' . intval($id));
-		} else {
-			$statut = 'publie';
-		} // pas de statut => publie
-	} else {
-		$statut = $opt['statut'];
-	}
-
-	// Liste des statuts publiés pour cet objet
-	if (isset($desc['statut'][0]['publie'])) {
-		$statuts_publies = explode(',', $desc['statut'][0]['publie']);
-	}
-	// Sinon en dur le statut "publie"
-	else {
-		$statuts_publies = ['publie'];
-	}
-
-	if (
-		in_array($statut, $statuts_publies)
-		// Ou cas particulier géré en dur ici pour les articles
-		or ($statut === 'prop' and $type === 'article' and $GLOBALS['meta']['post_dates'] === 'non')
-	) {
-		return autoriser('modifier', $type, $id);
-	}
-
-	return false;
+    $table = table_objet($type);
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $desc = $trouver_table($table);
+    if (!$desc) {
+        return false;
+    }
+
+    if (!isset($opt['statut'])) {
+        if (isset($desc['field']['statut'])) {
+            $statut = sql_getfetsel('statut', $desc['table'], id_table_objet($type) . '=' . intval($id));
+        } else {
+            $statut = 'publie';
+        } // pas de statut => publie
+    } else {
+        $statut = $opt['statut'];
+    }
+
+    // Liste des statuts publiés pour cet objet
+    if (isset($desc['statut'][0]['publie'])) {
+        $statuts_publies = explode(',', $desc['statut'][0]['publie']);
+    }
+    // Sinon en dur le statut "publie"
+    else {
+        $statuts_publies = ['publie'];
+    }
+
+    if (
+        in_array($statut, $statuts_publies)
+        // Ou cas particulier géré en dur ici pour les articles
+        or ($statut === 'prop' and $type === 'article' and $GLOBALS['meta']['post_dates'] === 'non')
+    ) {
+        return autoriser('modifier', $type, $id);
+    }
+
+    return false;
 }
 
 /**
@@ -610,7 +610,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_instituer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('modifier', $type, $id, $qui, $opt);
+    return autoriser('modifier', $type, $id, $qui, $opt);
 }
 
 /**
@@ -628,12 +628,12 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_rubrique_publierdans_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return
-		($qui['statut'] === '0minirezo')
-		and (
-			!$qui['restreint'] or !$id
-			or in_array($id, $qui['restreint'])
-		);
+    return
+        ($qui['statut'] === '0minirezo')
+        and (
+            !$qui['restreint'] or !$id
+            or in_array($id, $qui['restreint'])
+        );
 }
 
 /**
@@ -651,12 +651,12 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_rubrique_creer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	if (!empty($opt['id_parent'])) {
-		return autoriser('creerrubriquedans', 'rubrique', $opt['id_parent'], $qui);
-	}
-	else {
-		return autoriser('defaut', null, 0, $qui, $opt);
-	}
+    if (!empty($opt['id_parent'])) {
+        return autoriser('creerrubriquedans', 'rubrique', $opt['id_parent'], $qui);
+    }
+    else {
+        return autoriser('defaut', null, 0, $qui, $opt);
+    }
 }
 
 /**
@@ -674,10 +674,10 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_rubrique_creerrubriquedans_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return
-		($id or ($qui['statut'] === '0minirezo' and !$qui['restreint']))
-		and autoriser('voir', 'rubrique', $id)
-		and autoriser('publierdans', 'rubrique', $id);
+    return
+        ($id or ($qui['statut'] === '0minirezo' and !$qui['restreint']))
+        and autoriser('voir', 'rubrique', $id)
+        and autoriser('publierdans', 'rubrique', $id);
 }
 
 /**
@@ -695,10 +695,10 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_rubrique_creerarticledans_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return
-		$id
-		and autoriser('voir', 'rubrique', $id)
-		and autoriser('creer', 'article');
+    return
+        $id
+        and autoriser('voir', 'rubrique', $id)
+        and autoriser('creer', 'article');
 }
 
 
@@ -717,8 +717,8 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_rubrique_modifier_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return
-		autoriser('publierdans', 'rubrique', $id, $qui, $opt);
+    return
+        autoriser('publierdans', 'rubrique', $id, $qui, $opt);
 }
 
 /**
@@ -736,29 +736,29 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_rubrique_supprimer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	if (!$id = intval($id)) {
-		return false;
-	}
+    if (!$id = intval($id)) {
+        return false;
+    }
 
-	if (sql_countsel('spip_rubriques', 'id_parent=' . intval($id))) {
-		return false;
-	}
+    if (sql_countsel('spip_rubriques', 'id_parent=' . intval($id))) {
+        return false;
+    }
 
-	if (sql_countsel('spip_articles', 'id_rubrique=' . intval($id) . " AND (statut<>'poubelle')")) {
-		return false;
-	}
+    if (sql_countsel('spip_articles', 'id_rubrique=' . intval($id) . " AND (statut<>'poubelle')")) {
+        return false;
+    }
 
-	$compte = pipeline(
-		'objet_compte_enfants',
-		['args' => ['objet' => 'rubrique', 'id_objet' => $id], 'data' => []]
-	);
-	foreach ($compte as $objet => $n) {
-		if ($n) {
-			return false;
-		}
-	}
+    $compte = pipeline(
+        'objet_compte_enfants',
+        ['args' => ['objet' => 'rubrique', 'id_objet' => $id], 'data' => []]
+    );
+    foreach ($compte as $objet => $n) {
+        if ($n) {
+            return false;
+        }
+    }
 
-	return autoriser('modifier', 'rubrique', $id);
+    return autoriser('modifier', 'rubrique', $id);
 }
 
 
@@ -778,23 +778,23 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_article_modifier_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	if (!$id) {
-		return false;
-	}
-	$r = sql_fetsel('id_rubrique,statut', 'spip_articles', 'id_article=' . sql_quote($id));
-
-	return
-		$r
-		and
-		(
-			autoriser('publierdans', 'rubrique', $r['id_rubrique'], $qui, $opt)
-			or (
-				(!isset($opt['statut']) or !in_array($opt['statut'], ['publie', 'refuse'], true))
-				and in_array($qui['statut'], ['0minirezo', '1comite'])
-				and in_array($r['statut'], ['prop', 'prepa', 'poubelle'])
-				and auteurs_objet('article', $id, 'id_auteur=' . $qui['id_auteur'])
-			)
-		);
+    if (!$id) {
+        return false;
+    }
+    $r = sql_fetsel('id_rubrique,statut', 'spip_articles', 'id_article=' . sql_quote($id));
+
+    return
+        $r
+        and
+        (
+            autoriser('publierdans', 'rubrique', $r['id_rubrique'], $qui, $opt)
+            or (
+                (!isset($opt['statut']) or !in_array($opt['statut'], ['publie', 'refuse'], true))
+                and in_array($qui['statut'], ['0minirezo', '1comite'])
+                and in_array($r['statut'], ['prop', 'prepa', 'poubelle'])
+                and auteurs_objet('article', $id, 'id_auteur=' . $qui['id_auteur'])
+            )
+        );
 }
 
 /**
@@ -812,13 +812,13 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_article_creer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	if (!empty($opt['id_parent'])) {
-		// creerarticledans rappelle autoriser(creer,article) sans id, donc on verifiera condition du else aussi
-		return autoriser('creerarticledans', 'rubrique', $opt['id_parent'], $qui);
-	}
-	else {
-		return (sql_countsel('spip_rubriques') > 0 and in_array($qui['statut'], ['0minirezo', '1comite']));
-	}
+    if (!empty($opt['id_parent'])) {
+        // creerarticledans rappelle autoriser(creer,article) sans id, donc on verifiera condition du else aussi
+        return autoriser('creerarticledans', 'rubrique', $opt['id_parent'], $qui);
+    }
+    else {
+        return (sql_countsel('spip_rubriques') > 0 and in_array($qui['statut'], ['0minirezo', '1comite']));
+    }
 }
 
 /**
@@ -840,28 +840,28 @@ 
  * @return bool true s'il a le droit, false sinon
  */
 function autoriser_article_voir_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	if ($qui['statut'] === '0minirezo') {
-		return true;
-	}
-	// cas des articles : depend du statut de l'article et de l'auteur
-	if (isset($opt['statut'])) {
-		$statut = $opt['statut'];
-	} else {
-		if (!$id) {
-			return false;
-		}
-		$statut = sql_getfetsel('statut', 'spip_articles', 'id_article=' . intval($id));
-	}
-
-	return
-		// si on est pas auteur de l'article,
-		// seuls les propose et publies sont visibles
-		in_array($statut, ['prop', 'publie'])
-		// sinon si on est auteur, on a le droit de le voir, evidemment !
-		or
-		($id
-			and $qui['id_auteur']
-			and auteurs_objet('article', $id, 'id_auteur=' . $qui['id_auteur']));
+    if ($qui['statut'] === '0minirezo') {
+        return true;
+    }
+    // cas des articles : depend du statut de l'article et de l'auteur
+    if (isset($opt['statut'])) {
+        $statut = $opt['statut'];
+    } else {
+        if (!$id) {
+            return false;
+        }
+        $statut = sql_getfetsel('statut', 'spip_articles', 'id_article=' . intval($id));
+    }
+
+    return
+        // si on est pas auteur de l'article,
+        // seuls les propose et publies sont visibles
+        in_array($statut, ['prop', 'publie'])
+        // sinon si on est auteur, on a le droit de le voir, evidemment !
+        or
+        ($id
+            and $qui['id_auteur']
+            and auteurs_objet('article', $id, 'id_auteur=' . $qui['id_auteur']));
 }
 
 
@@ -880,24 +880,24 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_voir_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	# securite, mais on aurait pas du arriver ici !
-	if (
-		function_exists($f = 'autoriser_' . $type . '_voir')
-		or function_exists($f = 'autoriser_' . $type . '_voir_dist')
-	) {
-		return $f($faire, $type, $id, $qui, $opt);
-	}
+    # securite, mais on aurait pas du arriver ici !
+    if (
+        function_exists($f = 'autoriser_' . $type . '_voir')
+        or function_exists($f = 'autoriser_' . $type . '_voir_dist')
+    ) {
+        return $f($faire, $type, $id, $qui, $opt);
+    }
 
-	if ($qui['statut'] === '0minirezo') {
-		return true;
-	}
-	// admins et redacteurs peuvent voir un auteur
-	if ($type === 'auteur') {
-		return in_array($qui['statut'], ['0minirezo', '1comite']);
-	}
-	// sinon par defaut tout est visible
-	// sauf cas particuliers traites separemment (ie article)
-	return true;
+    if ($qui['statut'] === '0minirezo') {
+        return true;
+    }
+    // admins et redacteurs peuvent voir un auteur
+    if ($type === 'auteur') {
+        return in_array($qui['statut'], ['0minirezo', '1comite']);
+    }
+    // sinon par defaut tout est visible
+    // sauf cas particuliers traites separemment (ie article)
+    return true;
 }
 
 
@@ -920,12 +920,12 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_webmestre_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return
-		(defined('_ID_WEBMESTRES') ?
-			in_array($qui['id_auteur'], explode(':', _ID_WEBMESTRES))
-			: $qui['webmestre'] === 'oui')
-		and $qui['statut'] === '0minirezo'
-		and !$qui['restreint'];
+    return
+        (defined('_ID_WEBMESTRES') ?
+            in_array($qui['id_auteur'], explode(':', _ID_WEBMESTRES))
+            : $qui['webmestre'] === 'oui')
+        and $qui['statut'] === '0minirezo'
+        and !$qui['restreint'];
 }
 
 /**
@@ -943,9 +943,9 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_configurer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return
-		$qui['statut'] === '0minirezo'
-		and !$qui['restreint'];
+    return
+        $qui['statut'] === '0minirezo'
+        and !$qui['restreint'];
 }
 
 /**
@@ -963,8 +963,8 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_sauvegarder_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return
-		$qui['statut'] === '0minirezo';
+    return
+        $qui['statut'] === '0minirezo';
 }
 
 /**
@@ -982,7 +982,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_detruire_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('webmestre', null, 0, $qui, $opt);
+    return autoriser('webmestre', null, 0, $qui, $opt);
 }
 
 /**
@@ -1001,23 +1001,23 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_auteur_previsualiser_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	// les admins peuvent "previsualiser" une page auteur
-	if (
-		$qui['statut'] === '0minirezo'
-		and !$qui['restreint']
-	) {
-		return true;
-	} elseif ($id === 0) {
-		return false;
-	}
-	// "Voir en ligne" si l'auteur a un article publie
-	$n = sql_fetsel(
-		'A.id_article',
-		'spip_auteurs_liens AS L LEFT JOIN spip_articles AS A ON (L.objet=\'article\' AND L.id_objet=A.id_article)',
-		"A.statut='publie' AND L.id_auteur=" . sql_quote($id)
-	);
+    // les admins peuvent "previsualiser" une page auteur
+    if (
+        $qui['statut'] === '0minirezo'
+        and !$qui['restreint']
+    ) {
+        return true;
+    } elseif ($id === 0) {
+        return false;
+    }
+    // "Voir en ligne" si l'auteur a un article publie
+    $n = sql_fetsel(
+        'A.id_article',
+        'spip_auteurs_liens AS L LEFT JOIN spip_articles AS A ON (L.objet=\'article\' AND L.id_objet=A.id_article)',
+        "A.statut='publie' AND L.id_auteur=" . sql_quote($id)
+    );
 
-	return $n ? true : false;
+    return $n ? true : false;
 }
 
 
@@ -1046,7 +1046,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_auteur_creer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return ($qui['statut'] === '0minirezo');
+    return ($qui['statut'] === '0minirezo');
 }
 
 
@@ -1067,75 +1067,75 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_auteur_modifier_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	$id = intval($id);
-
-	// Si pas admin : seulement le droit de modifier ses donnees perso, mais pas statut ni login
-	// la modif de l'email doit etre verifiee ou notifiee si possible, mais c'est a l'interface de gerer ca
-	if (!in_array($qui['statut'], ['0minirezo'])) {
-		if (
-			$id == $qui['id_auteur']
-			&& empty($opt['statut'])
-			&& empty($opt['webmestre'])
-			&& empty($opt['restreintes'])
-			&& empty($opt['login'])
-		) {
-			return true;
-		}
-		return false;
-	}
-
-	// Un admin restreint peut modifier/creer un auteur non-admin mais il
-	// n'a le droit ni de le promouvoir admin, ni de changer les rubriques
-	if ($qui['restreint']) {
-		if (isset($opt['webmestre']) and $opt['webmestre']) {
-			return false;
-		} elseif (
-			(isset($opt['statut']) and ($opt['statut'] === '0minirezo'))
-			or (isset($opt['restreintes']) and $opt['restreintes'])
-		) {
-			return false;
-		} else {
-			if ($id == $qui['id_auteur']) {
-				if (isset($opt['statut']) and $opt['statut']) {
-					return false;
-				} else {
-					return true;
-				}
-			} else {
-				if ($id_auteur = intval($id)) {
-					$t = sql_fetsel('statut', 'spip_auteurs', "id_auteur=$id_auteur");
-					if ($t and $t['statut'] != '0minirezo') {
-						return true;
-					} else {
-						return false;
-					}
-				} // id = 0 => creation
-				else {
-					return true;
-				}
-			}
-		}
-	}
-
-	// Un admin complet fait ce qu'il veut
-	// sauf se degrader
-	if ($id == $qui['id_auteur'] && (isset($opt['statut']) and $opt['statut'])) {
-		return false;
-	} elseif (
-		isset($opt['webmestre'])
-				and $opt['webmestre']
-				and (defined('_ID_WEBMESTRES')
-				or !autoriser('webmestre'))
-	) {
-		// et toucher au statut webmestre si il ne l'est pas lui meme
-		// ou si les webmestres sont fixes par constante (securite)
-		return false;
-	} // et modifier un webmestre si il ne l'est pas lui meme
-	elseif (intval($id) and !autoriser('webmestre') and autoriser('webmestre', '', 0, $id)) {
-		return false;
-	} else {
-		return true;
-	}
+    $id = intval($id);
+
+    // Si pas admin : seulement le droit de modifier ses donnees perso, mais pas statut ni login
+    // la modif de l'email doit etre verifiee ou notifiee si possible, mais c'est a l'interface de gerer ca
+    if (!in_array($qui['statut'], ['0minirezo'])) {
+        if (
+            $id == $qui['id_auteur']
+            && empty($opt['statut'])
+            && empty($opt['webmestre'])
+            && empty($opt['restreintes'])
+            && empty($opt['login'])
+        ) {
+            return true;
+        }
+        return false;
+    }
+
+    // Un admin restreint peut modifier/creer un auteur non-admin mais il
+    // n'a le droit ni de le promouvoir admin, ni de changer les rubriques
+    if ($qui['restreint']) {
+        if (isset($opt['webmestre']) and $opt['webmestre']) {
+            return false;
+        } elseif (
+            (isset($opt['statut']) and ($opt['statut'] === '0minirezo'))
+            or (isset($opt['restreintes']) and $opt['restreintes'])
+        ) {
+            return false;
+        } else {
+            if ($id == $qui['id_auteur']) {
+                if (isset($opt['statut']) and $opt['statut']) {
+                    return false;
+                } else {
+                    return true;
+                }
+            } else {
+                if ($id_auteur = intval($id)) {
+                    $t = sql_fetsel('statut', 'spip_auteurs', "id_auteur=$id_auteur");
+                    if ($t and $t['statut'] != '0minirezo') {
+                        return true;
+                    } else {
+                        return false;
+                    }
+                } // id = 0 => creation
+                else {
+                    return true;
+                }
+            }
+        }
+    }
+
+    // Un admin complet fait ce qu'il veut
+    // sauf se degrader
+    if ($id == $qui['id_auteur'] && (isset($opt['statut']) and $opt['statut'])) {
+        return false;
+    } elseif (
+        isset($opt['webmestre'])
+                and $opt['webmestre']
+                and (defined('_ID_WEBMESTRES')
+                or !autoriser('webmestre'))
+    ) {
+        // et toucher au statut webmestre si il ne l'est pas lui meme
+        // ou si les webmestres sont fixes par constante (securite)
+        return false;
+    } // et modifier un webmestre si il ne l'est pas lui meme
+    elseif (intval($id) and !autoriser('webmestre') and autoriser('webmestre', '', 0, $id)) {
+        return false;
+    } else {
+        return true;
+    }
 }
 
 
@@ -1154,7 +1154,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_associerauteurs_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('modifier', $type, $id, $qui, $opt);
+    return autoriser('modifier', $type, $id, $qui, $opt);
 }
 
 
@@ -1173,7 +1173,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_chargerftp_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return $qui['statut'] === '0minirezo';
+    return $qui['statut'] === '0minirezo';
 }
 
 /**
@@ -1191,7 +1191,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_debug_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return $qui['statut'] === '0minirezo';
+    return $qui['statut'] === '0minirezo';
 }
 
 /**
@@ -1208,54 +1208,54 @@ 
  * @return array          Liste des rubriques
  **/
 function liste_rubriques_auteur($id_auteur, $raz = false) {
-	static $restreint = [];
-
-	if (!$id_auteur = intval($id_auteur)) {
-		return [];
-	}
-	if ($raz) {
-		unset($restreint[$id_auteur]);
-	} elseif (isset($restreint[$id_auteur])) {
-		return $restreint[$id_auteur];
-	}
-
-	$rubriques = [];
-	if (
-		(!isset($GLOBALS['meta']['version_installee'])
-		or $GLOBALS['meta']['version_installee'] > 16428)
-		and $r = sql_allfetsel(
-			'id_objet',
-			'spip_auteurs_liens',
-			'id_auteur=' . intval($id_auteur) . " AND objet='rubrique' AND id_objet!=0"
-		)
-		and is_countable($r) ? count($r) : 0
-	) {
-		$r = array_column($r, 'id_objet');
-
-		// recuperer toute la branche, au format chaine enumeration
-		include_spip('inc/rubriques');
-		$r = calcul_branche_in($r);
-		$r = explode(',', $r);
-
-		// passer les rubriques en index, elimine les doublons
-		$r = array_flip($r);
-		// recuperer les index seuls
-		$r = array_keys($r);
-		// combiner pour avoir un tableau id_rubrique=>id_rubrique
-		// est-ce vraiment utile ? (on preserve la forme donnee par le code precedent)
-		$rubriques = array_combine($r, $r);
-	}
-
-	// Affecter l'auteur session le cas echeant
-	if (
-		isset($GLOBALS['visiteur_session']['id_auteur'])
-		and $GLOBALS['visiteur_session']['id_auteur'] == $id_auteur
-	) {
-		$GLOBALS['visiteur_session']['restreint'] = $rubriques;
-	}
-
-
-	return $restreint[$id_auteur] = $rubriques;
+    static $restreint = [];
+
+    if (!$id_auteur = intval($id_auteur)) {
+        return [];
+    }
+    if ($raz) {
+        unset($restreint[$id_auteur]);
+    } elseif (isset($restreint[$id_auteur])) {
+        return $restreint[$id_auteur];
+    }
+
+    $rubriques = [];
+    if (
+        (!isset($GLOBALS['meta']['version_installee'])
+        or $GLOBALS['meta']['version_installee'] > 16428)
+        and $r = sql_allfetsel(
+            'id_objet',
+            'spip_auteurs_liens',
+            'id_auteur=' . intval($id_auteur) . " AND objet='rubrique' AND id_objet!=0"
+        )
+        and is_countable($r) ? count($r) : 0
+    ) {
+        $r = array_column($r, 'id_objet');
+
+        // recuperer toute la branche, au format chaine enumeration
+        include_spip('inc/rubriques');
+        $r = calcul_branche_in($r);
+        $r = explode(',', $r);
+
+        // passer les rubriques en index, elimine les doublons
+        $r = array_flip($r);
+        // recuperer les index seuls
+        $r = array_keys($r);
+        // combiner pour avoir un tableau id_rubrique=>id_rubrique
+        // est-ce vraiment utile ? (on preserve la forme donnee par le code precedent)
+        $rubriques = array_combine($r, $r);
+    }
+
+    // Affecter l'auteur session le cas echeant
+    if (
+        isset($GLOBALS['visiteur_session']['id_auteur'])
+        and $GLOBALS['visiteur_session']['id_auteur'] == $id_auteur
+    ) {
+        $GLOBALS['visiteur_session']['restreint'] = $rubriques;
+    }
+
+
+    return $restreint[$id_auteur] = $rubriques;
 }
 
 /**
@@ -1273,7 +1273,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_rubrique_previsualiser_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('previsualiser');
+    return autoriser('previsualiser');
 }
 
 /**
@@ -1291,7 +1291,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_rubrique_iconifier_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('publierdans', 'rubrique', $id, $qui, $opt);
+    return autoriser('publierdans', 'rubrique', $id, $qui, $opt);
 }
 
 /**
@@ -1309,9 +1309,9 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_auteur_iconifier_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	$id = intval($id);
-	return (($id == $qui['id_auteur']) or
-		(($qui['statut'] === '0minirezo') and !$qui['restreint']));
+    $id = intval($id);
+    return (($id == $qui['id_auteur']) or
+        (($qui['statut'] === '0minirezo') and !$qui['restreint']));
 }
 
 /**
@@ -1329,8 +1329,8 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_iconifier_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	// par defaut, on a le droit d'iconifier si on a le droit de modifier
-	return autoriser('modifier', $type, $id, $qui, $opt);
+    // par defaut, on a le droit d'iconifier si on a le droit de modifier
+    return autoriser('modifier', $type, $id, $qui, $opt);
 }
 
 
@@ -1350,7 +1350,7 @@ 
  * @return true
  **/
 function autoriser_ok_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return true;
+    return true;
 }
 
 /**
@@ -1369,7 +1369,7 @@ 
  * @return false
  **/
 function autoriser_niet_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return false;
+    return false;
 }
 
 /**
@@ -1387,11 +1387,11 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_base_reparer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	if (!autoriser('detruire') or _request('reinstall')) {
-		return false;
-	}
+    if (!autoriser('detruire') or _request('reinstall')) {
+        return false;
+    }
 
-	return true;
+    return true;
 }
 
 /**
@@ -1409,7 +1409,7 @@ 
  * @return true
  **/
 function autoriser_infosperso_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return true;
+    return true;
 }
 
 /**
@@ -1427,7 +1427,7 @@ 
  * @return true
  **/
 function autoriser_langage_configurer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return true;
+    return true;
 }
 
 /**
@@ -1445,7 +1445,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_configurerlangage_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('configurer', '_langage', $id, $qui, $opt);
+    return autoriser('configurer', '_langage', $id, $qui, $opt);
 }
 
 /**
@@ -1463,7 +1463,7 @@ 
  * @return true
  **/
 function autoriser_preferences_configurer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return true;
+    return true;
 }
 
 /**
@@ -1481,7 +1481,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_configurerpreferences_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('configurer', '_preferences', $id, $qui, $opt);
+    return autoriser('configurer', '_preferences', $id, $qui, $opt);
 }
 
 /**
@@ -1499,8 +1499,8 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_menudeveloppement_menugrandeentree_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return (isset($GLOBALS['visiteur_session']['prefs']['activer_menudev'])
-		and $GLOBALS['visiteur_session']['prefs']['activer_menudev'] === 'oui');
+    return (isset($GLOBALS['visiteur_session']['prefs']['activer_menudev'])
+        and $GLOBALS['visiteur_session']['prefs']['activer_menudev'] === 'oui');
 }
 
 /**
@@ -1519,7 +1519,7 @@ 
  * @return true
  **/
 function autoriser_menugrandeentree_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return true;
+    return true;
 }
 
 /**
@@ -1537,7 +1537,7 @@ 
  * @return true
  **/
 function autoriser_auteurs_voir_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return true;
+    return true;
 }
 
 /**
@@ -1555,7 +1555,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_auteurs_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('voir', '_auteurs', $id, $qui, $opt);
+    return autoriser('voir', '_auteurs', $id, $qui, $opt);
 }
 
 /**
@@ -1573,7 +1573,7 @@ 
  * @return true
  **/
 function autoriser_articles_voir_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return true;
+    return true;
 }
 
 /**
@@ -1591,7 +1591,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_articles_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('voir', '_articles', $id, $qui, $opt);
+    return autoriser('voir', '_articles', $id, $qui, $opt);
 }
 
 /**
@@ -1609,7 +1609,7 @@ 
  * @return true
  **/
 function autoriser_rubriques_voir_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return true;
+    return true;
 }
 
 /**
@@ -1627,7 +1627,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_rubriques_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('voir', '_rubriques', $id, $qui, $opt);
+    return autoriser('voir', '_rubriques', $id, $qui, $opt);
 }
 
 /**
@@ -1645,7 +1645,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_articlecreer_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return verifier_table_non_vide();
+    return verifier_table_non_vide();
 }
 
 
@@ -1666,7 +1666,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_auteurcreer_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('creer', 'auteur', $id, $qui, $opt);
+    return autoriser('creer', 'auteur', $id, $qui, $opt);
 }
 
 /**
@@ -1684,13 +1684,13 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_visiteurs_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	include_spip('base/abstract_sql');
-	return
-		$qui['statut'] === '0minirezo' and !$qui['restreint']
-		and (
-			$GLOBALS['meta']['accepter_visiteurs'] != 'non'
-			or sql_countsel('spip_auteurs', 'statut in ("6forum", "nouveau")') > 0
-		);
+    include_spip('base/abstract_sql');
+    return
+        $qui['statut'] === '0minirezo' and !$qui['restreint']
+        and (
+            $GLOBALS['meta']['accepter_visiteurs'] != 'non'
+            or sql_countsel('spip_auteurs', 'statut in ("6forum", "nouveau")') > 0
+        );
 }
 
 /**
@@ -1708,7 +1708,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_suiviedito_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return $qui['statut'] === '0minirezo';
+    return $qui['statut'] === '0minirezo';
 }
 
 /**
@@ -1726,7 +1726,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_synchro_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return $qui['statut'] === '0minirezo';
+    return $qui['statut'] === '0minirezo';
 }
 
 /**
@@ -1744,7 +1744,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_configurerinteractions_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('configurer', '_interactions', $id, $qui, $opt);
+    return autoriser('configurer', '_interactions', $id, $qui, $opt);
 }
 
 /**
@@ -1762,7 +1762,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_configurerlangue_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('configurer', '_langue', $id, $qui, $opt);
+    return autoriser('configurer', '_langue', $id, $qui, $opt);
 }
 
 /**
@@ -1780,7 +1780,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_configurermultilinguisme_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('configurer', '_multilinguisme', $id, $qui, $opt);
+    return autoriser('configurer', '_multilinguisme', $id, $qui, $opt);
 }
 
 /**
@@ -1798,7 +1798,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_configurercontenu_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('configurer', '_contenu', $id, $qui, $opt);
+    return autoriser('configurer', '_contenu', $id, $qui, $opt);
 }
 
 /**
@@ -1816,7 +1816,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_configureravancees_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('configurer', '_avancees', $id, $qui, $opt);
+    return autoriser('configurer', '_avancees', $id, $qui, $opt);
 }
 
 /**
@@ -1834,7 +1834,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_adminplugin_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('configurer', '_plugins', $id, $qui, $opt);
+    return autoriser('configurer', '_plugins', $id, $qui, $opt);
 }
 
 /**
@@ -1852,7 +1852,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_admintech_menu_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('detruire', $type, $id, $qui, $opt);
+    return autoriser('detruire', $type, $id, $qui, $opt);
 }
 
 /**
@@ -1870,7 +1870,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_queue_purger_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('webmestre');
+    return autoriser('webmestre');
 }
 
 
@@ -1890,11 +1890,11 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_echafauder_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	if (test_espace_prive()) {
-		return intval($qui['id_auteur']) ? true : false;
-	} else {
-		return autoriser('webmestre', '', $id, $qui, $opt);
-	}
+    if (test_espace_prive()) {
+        return intval($qui['id_auteur']) ? true : false;
+    } else {
+        return autoriser('webmestre', '', $id, $qui, $opt);
+    }
 }
 
 
@@ -1909,27 +1909,27 @@ 
  *     Identifiants d'auteurs
  */
 function auteurs_objet($objet, $id_objet, $cond = '') {
-	$objet = objet_type($objet);
-	$where = [
-		'objet=' . sql_quote($objet),
-		'id_objet=' . intval($id_objet)
-	];
-	if (!empty($cond)) {
-		if (is_array($cond)) {
-			$where = array_merge($where, $cond);
-		} else {
-			$where[] = $cond;
-		}
-	}
-	$auteurs = sql_allfetsel(
-		'id_auteur',
-		'spip_auteurs_liens',
-		$where
-	);
-	if (is_array($auteurs)) {
-		return array_column($auteurs, 'id_auteur');
-	}
-	return [];
+    $objet = objet_type($objet);
+    $where = [
+        'objet=' . sql_quote($objet),
+        'id_objet=' . intval($id_objet)
+    ];
+    if (!empty($cond)) {
+        if (is_array($cond)) {
+            $where = array_merge($where, $cond);
+        } else {
+            $where[] = $cond;
+        }
+    }
+    $auteurs = sql_allfetsel(
+        'id_auteur',
+        'spip_auteurs_liens',
+        $where
+    );
+    if (is_array($auteurs)) {
+        return array_column($auteurs, 'id_auteur');
+    }
+    return [];
 }
 
 /**
@@ -1944,11 +1944,11 @@ 
  *     - false : serveur SQL indisponible
  */
 function auteurs_article($id_article, $cond = '') {
-	return sql_allfetsel(
-		'id_auteur',
-		'spip_auteurs_liens',
-		"objet='article' AND id_objet=" . intval($id_article) . ($cond ? " AND $cond" : '')
-	);
+    return sql_allfetsel(
+        'id_auteur',
+        'spip_auteurs_liens',
+        "objet='article' AND id_objet=" . intval($id_article) . ($cond ? " AND $cond" : '')
+    );
 }
 
 
@@ -1962,7 +1962,7 @@ 
  */
 function acces_restreint_rubrique($id_rubrique) {
 
-	return (isset($GLOBALS['connect_id_rubrique'][$id_rubrique]));
+    return (isset($GLOBALS['connect_id_rubrique'][$id_rubrique]));
 }
 
 
@@ -1975,12 +1975,12 @@ 
  * @return bool             true si un parent existe
  */
 function verifier_table_non_vide($table = 'spip_rubriques') {
-	static $done = [];
-	if (!isset($done[$table])) {
-		$done[$table] = sql_countsel($table) > 0;
-	}
+    static $done = [];
+    if (!isset($done[$table])) {
+        $done[$table] = sql_countsel($table) > 0;
+    }
 
-	return $done[$table];
+    return $done[$table];
 }
 
 /**
@@ -2007,15 +2007,15 @@ 
  */
 function autoriser_inscrireauteur_dist($faire, $quoi, $id, $qui, $opt) {
 
-	$s = array_search($quoi, $GLOBALS['liste_des_statuts']);
-	switch ($s) {
-		case 'info_redacteurs':
-			return ($GLOBALS['meta']['accepter_inscriptions'] === 'oui');
-		case 'info_visiteurs':
-			return ($GLOBALS['meta']['accepter_visiteurs'] === 'oui' or $GLOBALS['meta']['forums_publics'] === 'abo');
-	}
+    $s = array_search($quoi, $GLOBALS['liste_des_statuts']);
+    switch ($s) {
+        case 'info_redacteurs':
+            return ($GLOBALS['meta']['accepter_inscriptions'] === 'oui');
+        case 'info_visiteurs':
+            return ($GLOBALS['meta']['accepter_visiteurs'] === 'oui' or $GLOBALS['meta']['forums_publics'] === 'abo');
+    }
 
-	return false;
+    return false;
 }
 
 /**
@@ -2033,7 +2033,7 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_inscription_relancer_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return $qui['statut'] === '0minirezo' and !$qui['restreint'];
+    return $qui['statut'] === '0minirezo' and !$qui['restreint'];
 }
 
 /**
@@ -2051,5 +2051,5 @@ 
  * @return bool true s'il a le droit, false sinon
  **/
 function autoriser_phpinfos_dist(string $faire, string $type, $id, array $qui, array $opt): bool {
-	return autoriser('webmestre');
+    return autoriser('webmestre');
 }

ecrire/action/api_transmettre.php

Spacing +1 added lines, -1 removed lines

@@ -93,7 +93,7 @@
 
 	$res = ltrim($res['texte']);
 	if (empty($res)) {
-		spip_log("$arg $qs resultat vide", 'transmettre' . _LOG_INFO_IMPORTANTE);
+		spip_log("$arg $qs resultat vide", 'transmettre'._LOG_INFO_IMPORTANTE);
 	}
 
 	echo $res;

Indentation +80 added lines, -80 removed lines

@@ -17,92 +17,92 @@
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
 function action_api_transmettre_dist($arg = null) {
 
-	// Obtenir l'argument 'id_auteur/cle/format/fond'
-	if (is_null($arg)) {
-		$arg = _request('arg');
-	}
-
-	$args = explode('/', $arg);
-
-	if (count($args) !== 4) {
-		action_api_transmettre_fail($arg);
-	}
-
-	[$id_auteur, $cle, $format, $fond] = $args;
-	$id_auteur = intval($id_auteur);
-
-	if (preg_match(',[^\w\\.-],', $format)) {
-		action_api_transmettre_fail("format $format ??");
-	}
-	if (preg_match(',[^\w\\.-],', $fond)) {
-		action_api_transmettre_fail("fond $fond ??");
-	}
-
-	// verifier la cle
-	//[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
-	//[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
-
-	$qs = $_SERVER['QUERY_STRING'];
-	// retirer action et arg de la qs
-	$contexte = [];
-	parse_str($qs, $contexte);
-	foreach ($contexte as $k => $v) {
-		if (in_array($k, ['action', 'arg', 'var_mode'])) {
-			unset($contexte[$k]);
-		}
-	}
-	$qs = http_build_query($contexte);
-	include_spip('inc/acces');
-	if (!securiser_acces_low_sec(intval($id_auteur), $cle, "transmettre/$format", $fond, $qs)) {
-		// si le autoriser low_sec n'est pas bon, on peut valider l'appel si l'auteur est identifie
-		include_spip('inc/autoriser');
-		$autoriser_type = preg_replace(',\W+,', '', "_{$format}{$fond}");
-		if (
-			!$id_auteur
-			or empty($GLOBALS['visiteur_session']['id_auteur'])
-			or $GLOBALS['visiteur_session']['id_auteur'] != $id_auteur
-			or !autoriser('transmettre', $autoriser_type, $id_auteur)
-		) {
-			action_api_transmettre_fail("auth QS $qs ??");
-		}
-	}
-
-	$contexte['id_auteur'] = $id_auteur;
-
-	$fond = "transmettre/$format/$fond";
-
-	if (!trouver_fond($fond)) {
-		$fond = "prive/$fond";
-	}
-
-	if (!trouver_fond($fond)) {
-		action_api_transmettre_fail("fond $fond ??");
-	}
-
-	$res = recuperer_fond($fond, $contexte, ['raw' => true]);
-	if (!empty($res['entetes'])) {
-		foreach ($res['entetes'] as $h => $v) {
-			header("$h: $v");
-		}
-	}
-
-	$res = ltrim($res['texte']);
-	if (empty($res)) {
-		spip_log("$arg $qs resultat vide", 'transmettre' . _LOG_INFO_IMPORTANTE);
-	}
-
-	echo $res;
-	exit();
+    // Obtenir l'argument 'id_auteur/cle/format/fond'
+    if (is_null($arg)) {
+        $arg = _request('arg');
+    }
+
+    $args = explode('/', $arg);
+
+    if (count($args) !== 4) {
+        action_api_transmettre_fail($arg);
+    }
+
+    [$id_auteur, $cle, $format, $fond] = $args;
+    $id_auteur = intval($id_auteur);
+
+    if (preg_match(',[^\w\\.-],', $format)) {
+        action_api_transmettre_fail("format $format ??");
+    }
+    if (preg_match(',[^\w\\.-],', $fond)) {
+        action_api_transmettre_fail("fond $fond ??");
+    }
+
+    // verifier la cle
+    //[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
+    //[(#ENV{id,0}|securiser_acces{#ENV{cle}, voirstats, #ENV{op}, #ENV{args}}|?{1,0})]
+
+    $qs = $_SERVER['QUERY_STRING'];
+    // retirer action et arg de la qs
+    $contexte = [];
+    parse_str($qs, $contexte);
+    foreach ($contexte as $k => $v) {
+        if (in_array($k, ['action', 'arg', 'var_mode'])) {
+            unset($contexte[$k]);
+        }
+    }
+    $qs = http_build_query($contexte);
+    include_spip('inc/acces');
+    if (!securiser_acces_low_sec(intval($id_auteur), $cle, "transmettre/$format", $fond, $qs)) {
+        // si le autoriser low_sec n'est pas bon, on peut valider l'appel si l'auteur est identifie
+        include_spip('inc/autoriser');
+        $autoriser_type = preg_replace(',\W+,', '', "_{$format}{$fond}");
+        if (
+            !$id_auteur
+            or empty($GLOBALS['visiteur_session']['id_auteur'])
+            or $GLOBALS['visiteur_session']['id_auteur'] != $id_auteur
+            or !autoriser('transmettre', $autoriser_type, $id_auteur)
+        ) {
+            action_api_transmettre_fail("auth QS $qs ??");
+        }
+    }
+
+    $contexte['id_auteur'] = $id_auteur;
+
+    $fond = "transmettre/$format/$fond";
+
+    if (!trouver_fond($fond)) {
+        $fond = "prive/$fond";
+    }
+
+    if (!trouver_fond($fond)) {
+        action_api_transmettre_fail("fond $fond ??");
+    }
+
+    $res = recuperer_fond($fond, $contexte, ['raw' => true]);
+    if (!empty($res['entetes'])) {
+        foreach ($res['entetes'] as $h => $v) {
+            header("$h: $v");
+        }
+    }
+
+    $res = ltrim($res['texte']);
+    if (empty($res)) {
+        spip_log("$arg $qs resultat vide", 'transmettre' . _LOG_INFO_IMPORTANTE);
+    }
+
+    echo $res;
+    exit();
 }
 
 function action_api_transmettre_fail($arg) {
-	include_spip('inc/minipres');
-	echo minipres(_T('info_acces_interdit'), $arg);
-	exit;
+    include_spip('inc/minipres');
+    echo minipres(_T('info_acces_interdit'), $arg);
+    exit;
 }