spip / SPIP

ecrire/inc/filtres.php

Doc Comments +22 added lines, -10 removed lines

@@ -69,7 +69,7 @@ 
  *
  * @param string $fonc
  *     Nom du filtre
- * @param null $default
+ * @param string $default
  *     Nom du filtre appliqué par défaut si celui demandé n'est pas trouvé
  * @return string
  *     Fonction PHP correspondante du filtre demandé
@@ -141,7 +141,7 @@ 
  * @see appliquer_si_filtre() Proche : retourne le texte d'origine si le filtre est absent
  * @uses appliquer_filtre_sinon()
  *
- * @param mixed $arg
+ * @param string $arg
  *     Texte (le plus souvent) sur lequel appliquer le filtre
  * @param string $filtre
  *     Nom du filtre à appliquer
@@ -797,7 +797,7 @@ 
  *   corriger toutes les `&xx;` en `&xx;`
  * @param bool $quote
  *   Échapper aussi les simples quotes en `'`
- * @return mixed|string
+ * @return string
  */
 function entites_html($texte, $tout = false, $quote = true) {
 	if (!is_string($texte) or !$texte
@@ -1432,7 +1432,7 @@ 
  *
  * @param mixed $texte
  *     Contenu de reference a tester
- * @param mixed $sinon
+ * @param string|null $sinon
  *     Contenu a retourner si le contenu de reference est vide
  * @return mixed
  *     Retourne $texte, sinon $sinon.
@@ -1614,7 +1614,7 @@ 
  * @param string $letexte
  * @param string $lang
  *     Langue à retrouver (si vide, utilise la langue en cours).
- * @param array $options Options {
+ * @param boolean $options Options {
  * @type bool $echappe_span
  *         True pour échapper les balises span (false par défaut)
  * @type string $lang_defaut
@@ -1704,7 +1704,7 @@ 
  * @param string $letexte
  * @param string $lang
  *     Langue à retrouver (si vide, utilise la langue en cours).
- * @param array $options Options {
+ * @param boolean $options Options {
  * @type bool $echappe_span
  *         True pour échapper les balises span (false par défaut)
  * @type string $lang_defaut
@@ -1913,7 +1913,7 @@ 
  *
  * @param int $i
  *     Le compteur
- * @param array $args
+ * @param string $args
  *     Liste des éléments à alterner
  * @return mixed
  *     Une des valeurs en fonction du compteur.
@@ -2178,6 +2178,9 @@ 
 // Quelques fonctions de calcul arithmetique
 //
 function floatstr($a) { return str_replace(',','.',(string)floatval($a)); }
+/**
+ * @param string $f
+ */
 function strize($f, $a, $b) { return floatstr($f(floatstr($a),floatstr($b))); }
 
 /**
@@ -2321,7 +2324,7 @@ 
  * @param string|array $adresses
  *      Adresse ou liste d'adresse
  *      si on fournit un tableau, il est filtre et la fonction renvoie avec uniquement les adresses email valides (donc possiblement vide)
- * @return bool|string|array
+ * @return string|null
  *      - false si une des adresses n'est pas conforme,
  *      - la normalisation de la dernière adresse donnée sinon
  *      - renvoie un tableau si l'entree est un tableau
@@ -2645,7 +2648,7 @@ 
  * @param int $a
  * @param int $b
  * @param int $c
- * @return int
+ * @return double
  *      Retourne `$a*$b/$c`
  **/
 function regledetrois($a, $b, $c) {
@@ -3466,6 +3469,10 @@ 
 }
 
 
+/**
+ * @param string $alt_or_size
+ * @param string|null $class_or_size
+ */
 function helper_filtre_balise_img_svg_arguments($alt_or_size, $class_or_size, $size) {
 	$args = [$alt_or_size, $class_or_size, $size];
 	while (is_null(end($args)) and count($args)) {
@@ -3494,6 +3501,10 @@ 
 	return $args;
 }
 
+/**
+ * @param string $img
+ * @param string $size
+ */
 function helper_filtre_balise_img_svg_size($img, $size) {
 	// si size est de la forme '@2x' c'est un coeff multiplicateur sur la densite
 	if (strpos($size, '@') === 0 and substr($size,-1) === 'x') {
@@ -4811,7 +4822,7 @@ 
  *     Nombre d'éléments
  * @param string $objet
  *     Objet
- * @return mixed|string
+ * @return string
  *     Texte traduit du comptage, tel que '3 articles'
  */
 function objet_afficher_nb($nb, $objet) {
@@ -5291,6 +5302,7 @@ 
  *
  * @param string $objet
  * @param int|string $id_objet
+ * @param string $fonction
  * @return array
  */
 function helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, $fonction) {

Indentation +2237 added lines, -2237 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Filtres
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/charsets');
@@ -42,8 +42,8 @@ 
  * @return string Fonction PHP correspondante du filtre
  */
 function charger_filtre($fonc, $default = 'filtre_identite_dist') {
-	include_fichiers_fonctions(); // inclure les fichiers fonctions
-	return chercher_filtre($fonc, $default);
+    include_fichiers_fonctions(); // inclure les fichiers fonctions
+    return chercher_filtre($fonc, $default);
 }
 
 /**
@@ -75,38 +75,38 @@ 
  *     Fonction PHP correspondante du filtre demandé
  */
 function chercher_filtre($fonc, $default = null) {
-	if (!$fonc) {
-		return $default;
-	}
-	// Cas des types mime, sans confondre avec les appels de fonction de classe
-	// Foo::Bar
-	// qui peuvent etre avec un namespace : space\Foo::Bar
-	if (preg_match(',^[\w]+/,', $fonc)) {
-		$nom = preg_replace(',\W,', '_', $fonc);
-		$f = chercher_filtre($nom);
-		// cas du sous-type MIME sans filtre associe, passer au type:
-		// si filtre_text_plain pas defini, passe a filtre_text
-		if (!$f and $nom !== $fonc) {
-			$f = chercher_filtre(preg_replace(',\W.*$,', '', $fonc));
-		}
-
-		return $f;
-	}
-
-	include_fichiers_fonctions();
-	foreach (array('filtre_' . $fonc, 'filtre_' . $fonc . '_dist', $fonc) as $f) {
-		trouver_filtre_matrice($f); // charge des fichiers spécifiques éventuels
-		// fonction ou name\space\fonction
-		if (is_callable($f)) {
-			return $f;
-		}
-		// méthode statique d'une classe Classe::methode ou name\space\Classe::methode
-		elseif (false === strpos($f, '::') and is_callable(array($f))) {
-			return $f;
-		}
-	}
-
-	return $default;
+    if (!$fonc) {
+        return $default;
+    }
+    // Cas des types mime, sans confondre avec les appels de fonction de classe
+    // Foo::Bar
+    // qui peuvent etre avec un namespace : space\Foo::Bar
+    if (preg_match(',^[\w]+/,', $fonc)) {
+        $nom = preg_replace(',\W,', '_', $fonc);
+        $f = chercher_filtre($nom);
+        // cas du sous-type MIME sans filtre associe, passer au type:
+        // si filtre_text_plain pas defini, passe a filtre_text
+        if (!$f and $nom !== $fonc) {
+            $f = chercher_filtre(preg_replace(',\W.*$,', '', $fonc));
+        }
+
+        return $f;
+    }
+
+    include_fichiers_fonctions();
+    foreach (array('filtre_' . $fonc, 'filtre_' . $fonc . '_dist', $fonc) as $f) {
+        trouver_filtre_matrice($f); // charge des fichiers spécifiques éventuels
+        // fonction ou name\space\fonction
+        if (is_callable($f)) {
+            return $f;
+        }
+        // méthode statique d'une classe Classe::methode ou name\space\Classe::methode
+        elseif (false === strpos($f, '::') and is_callable(array($f))) {
+            return $f;
+        }
+    }
+
+    return $default;
 }
 
 /**
@@ -150,8 +150,8 @@ 
  *     Chaîne vide sinon.
  **/
 function appliquer_filtre($arg, $filtre) {
-	$args = func_get_args();
-	return appliquer_filtre_sinon($arg, $filtre, $args, '');
+    $args = func_get_args();
+    return appliquer_filtre_sinon($arg, $filtre, $args, '');
 }
 
 /**
@@ -176,8 +176,8 @@ 
  *     Texte d'origine sinon
  **/
 function appliquer_si_filtre($arg, $filtre) {
-	$args = func_get_args();
-	return appliquer_filtre_sinon($arg, $filtre, $args, $arg);
+    $args = func_get_args();
+    return appliquer_filtre_sinon($arg, $filtre, $args, $arg);
 }
 
 /**
@@ -193,12 +193,12 @@ 
  *     Version de SPIP
  **/
 function spip_version() {
-	$version = $GLOBALS['spip_version_affichee'];
-	if ($vcs_version = version_vcs_courante(_DIR_RACINE)) {
-		$version .= " $vcs_version";
-	}
+    $version = $GLOBALS['spip_version_affichee'];
+    if ($vcs_version = version_vcs_courante(_DIR_RACINE)) {
+        $version .= " $vcs_version";
+    }
 
-	return $version;
+    return $version;
 }
 
 /**
@@ -211,19 +211,19 @@ 
  *    - string|null si $raw = false
  */
 function version_vcs_courante($dir, $raw = false) {
-	$desc = decrire_version_git($dir);
-	if ($desc === null) {
-		$desc = decrire_version_svn($dir);
-	}
-	if ($desc === null or $raw) {
-		return $desc;
-	}
-	// affichage "GIT [master: abcdef]"
-	$commit = isset($desc['commit_short']) ? $desc['commit_short'] : $desc['commit'];
-	if ($desc['branch']) {
-		$commit = $desc['branch'] . ': ' . $commit;
-	}
-	return "{$desc['vcs']} [$commit]";
+    $desc = decrire_version_git($dir);
+    if ($desc === null) {
+        $desc = decrire_version_svn($dir);
+    }
+    if ($desc === null or $raw) {
+        return $desc;
+    }
+    // affichage "GIT [master: abcdef]"
+    $commit = isset($desc['commit_short']) ? $desc['commit_short'] : $desc['commit'];
+    if ($desc['branch']) {
+        $commit = $desc['branch'] . ': ' . $commit;
+    }
+    return "{$desc['vcs']} [$commit]";
 }
 
 /**
@@ -235,24 +235,24 @@ 
  *      array ['branch' => xx, 'commit' => yy] sinon.
  **/
 function decrire_version_git($dir) {
-	if (!$dir) {
-		$dir = '.';
-	}
+    if (!$dir) {
+        $dir = '.';
+    }
 
-	// version installee par GIT
-	if (lire_fichier($dir . '/.git/HEAD', $c)) {
-		$currentHead = trim(substr($c, 4));
-		if (lire_fichier($dir . '/.git/' . $currentHead, $hash)) {
-			return [
-				'vcs' => 'GIT',
-				'branch' => basename($currentHead),
-				'commit' => trim($hash),
-				'commit_short' => substr(trim($hash), 0, 8),
-			];
-		}
-	}
+    // version installee par GIT
+    if (lire_fichier($dir . '/.git/HEAD', $c)) {
+        $currentHead = trim(substr($c, 4));
+        if (lire_fichier($dir . '/.git/' . $currentHead, $hash)) {
+            return [
+                'vcs' => 'GIT',
+                'branch' => basename($currentHead),
+                'commit' => trim($hash),
+                'commit_short' => substr(trim($hash), 0, 8),
+            ];
+        }
+    }
 
-	return null;
+    return null;
 }
 
 
@@ -265,25 +265,25 @@ 
  *      array ['commit' => yy, 'date' => xx, 'author' => xx] sinon.
  **/
 function decrire_version_svn($dir) {
-	if (!$dir) {
-		$dir = '.';
-	}
-	// version installee par SVN
-	if (file_exists($dir . '/.svn/wc.db') && class_exists('SQLite3')) {
-		$db = new SQLite3($dir . '/.svn/wc.db');
-		$result = $db->query('SELECT changed_revision FROM nodes WHERE local_relpath = "" LIMIT 1');
-		if ($result) {
-			$row = $result->fetchArray();
-			if ($row['changed_revision'] != "") {
-				return [
-					'vcs' => 'SVN',
-					'branch' => '',
-					'commit' => $row['changed_revision'],
-				];
-			}
-		}
-	}
-	return null;
+    if (!$dir) {
+        $dir = '.';
+    }
+    // version installee par SVN
+    if (file_exists($dir . '/.svn/wc.db') && class_exists('SQLite3')) {
+        $db = new SQLite3($dir . '/.svn/wc.db');
+        $result = $db->query('SELECT changed_revision FROM nodes WHERE local_relpath = "" LIMIT 1');
+        if ($result) {
+            $row = $result->fetchArray();
+            if ($row['changed_revision'] != "") {
+                return [
+                    'vcs' => 'SVN',
+                    'branch' => '',
+                    'commit' => $row['changed_revision'],
+                ];
+            }
+        }
+    }
+    return null;
 }
 
 /**
@@ -301,10 +301,10 @@ 
  *
  **/
 function version_svn_courante($dir) {
-	if ($desc = decrire_version_svn($dir)) {
-		return -$desc['commit'];
-	}
-	return 0;
+    if ($desc = decrire_version_svn($dir)) {
+        return -$desc['commit'];
+    }
+    return 0;
 }
 
 // La matrice est necessaire pour ne filtrer _que_ des fonctions definies dans filtres_images
@@ -351,18 +351,18 @@ 
  *     Code HTML retourné par le filtre
  **/
 function filtrer($filtre) {
-	$tous = func_get_args();
-	if (trouver_filtre_matrice($filtre) and substr($filtre, 0, 6) == 'image_') {
-		return image_filtrer($tous);
-	} elseif ($f = chercher_filtre($filtre)) {
-		array_shift($tous);
-		return call_user_func_array($f, $tous);
-	} else {
-		// le filtre n'existe pas, on provoque une erreur
-		$msg = array('zbug_erreur_filtre', array('filtre' => texte_script($filtre)));
-		erreur_squelette($msg);
-		return '';
-	}
+    $tous = func_get_args();
+    if (trouver_filtre_matrice($filtre) and substr($filtre, 0, 6) == 'image_') {
+        return image_filtrer($tous);
+    } elseif ($f = chercher_filtre($filtre)) {
+        array_shift($tous);
+        return call_user_func_array($f, $tous);
+    } else {
+        // le filtre n'existe pas, on provoque une erreur
+        $msg = array('zbug_erreur_filtre', array('filtre' => texte_script($filtre)));
+        erreur_squelette($msg);
+        return '';
+    }
 }
 
 /**
@@ -379,11 +379,11 @@ 
  * @return bool true si on trouve le filtre dans la matrice, false sinon.
  */
 function trouver_filtre_matrice($filtre) {
-	if (isset($GLOBALS['spip_matrice'][$filtre]) and is_string($f = $GLOBALS['spip_matrice'][$filtre])) {
-		find_in_path($f, '', true);
-		$GLOBALS['spip_matrice'][$filtre] = true;
-	}
-	return !empty($GLOBALS['spip_matrice'][$filtre]);
+    if (isset($GLOBALS['spip_matrice'][$filtre]) and is_string($f = $GLOBALS['spip_matrice'][$filtre])) {
+        find_in_path($f, '', true);
+        $GLOBALS['spip_matrice'][$filtre] = true;
+    }
+    return !empty($GLOBALS['spip_matrice'][$filtre]);
 }
 
 
@@ -411,8 +411,8 @@ 
  * @return mixed
  */
 function filtre_set(&$Pile, $val, $key, $continue = null) {
-	$Pile['vars'][$key] = $val;
-	return $continue ? $val : '';
+    $Pile['vars'][$key] = $val;
+    return $continue ? $val : '';
 }
 
 /**
@@ -438,8 +438,8 @@ 
  * @return string|mixed Retourne `$val` si `$continue` présent, sinon ''.
  */
 function filtre_setenv(&$Pile, $val, $key, $continue = null) {
-	$Pile[0][$key] = $val;
-	return $continue ? $val : '';
+    $Pile[0][$key] = $val;
+    return $continue ? $val : '';
 }
 
 /**
@@ -448,8 +448,8 @@ 
  * @return string
  */
 function filtre_sanitize_env(&$Pile, $keys) {
-	$Pile[0] = spip_sanitize_from_request($Pile[0], $keys);
-	return '';
+    $Pile[0] = spip_sanitize_from_request($Pile[0], $keys);
+    return '';
 }
 
 
@@ -472,18 +472,18 @@ 
  * @return mixed Retourne la valeur (sans la modifier).
  */
 function filtre_debug($val, $key = null) {
-	$debug = (
-		is_null($key) ? '' : (var_export($key, true) . " = ")
-		) . var_export($val, true);
+    $debug = (
+        is_null($key) ? '' : (var_export($key, true) . " = ")
+        ) . var_export($val, true);
 
-	include_spip('inc/autoriser');
-	if (autoriser('webmestre')) {
-		echo "<div class='spip_debug'>\n", $debug, "</div>\n";
-	}
+    include_spip('inc/autoriser');
+    if (autoriser('webmestre')) {
+        echo "<div class='spip_debug'>\n", $debug, "</div>\n";
+    }
 
-	spip_log($debug, 'debug');
+    spip_log($debug, 'debug');
 
-	return $val;
+    return $val;
 }
 
 
@@ -511,82 +511,82 @@ 
  *     Texte qui a reçu les filtres
  **/
 function image_filtrer($args) {
-	$filtre = array_shift($args); # enlever $filtre
-	$texte = array_shift($args);
-	if (!strlen($texte)) {
-		return;
-	}
-	find_in_path('filtres_images_mini.php', 'inc/', true);
-	statut_effacer_images_temporaires(true); // activer la suppression des images temporaires car le compilo finit la chaine par un image_graver
-	// Cas du nom de fichier local
-	$is_file = trim($texte);
-	if (strpos(substr($is_file, strlen(_DIR_RACINE)), '..') !== false
-		  or strpbrk($is_file, "<>\n\r\t") !== false
-		  or strpos($is_file, '/') === 0
-	) {
-		$is_file = false;
-	}
-	if ($is_file) {
-		$is_local_file = function($path) {
-			if (strpos($path, "?") !== false) {
-				$path = supprimer_timestamp($path);
-				// remove ?24px added by find_in_theme on .svg files
-				$path = preg_replace(",\?[[:digit:]]+(px)$,", "", $path);
-			}
-			return file_exists($path);
-		};
-		if ($is_local_file($is_file) or tester_url_absolue($is_file)) {
-			array_unshift($args, "<img src='$is_file' />");
-			$res = call_user_func_array($filtre, $args);
-			statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
-			return $res;
-		}
-	}
-
-	// Cas general : trier toutes les images, avec eventuellement leur <span>
-	if (preg_match_all(
-		',(<([a-z]+) [^<>]*spip_documents[^<>]*>)?\s*(<img\s.*>),UimsS',
-		$texte, $tags, PREG_SET_ORDER)) {
-		foreach ($tags as $tag) {
-			$class = extraire_attribut($tag[3], 'class');
-			if (!$class or
-				(strpos($class, 'filtre_inactif') === false
-					// compat historique a virer en 3.2
-					and strpos($class, 'no_image_filtrer') === false)
-			) {
-				array_unshift($args, $tag[3]);
-				if ($reduit = call_user_func_array($filtre, $args)) {
-					// En cas de span spip_documents, modifier le style=...width:
-					if ($tag[1]) {
-						$w = extraire_attribut($reduit, 'width');
-						if (!$w and preg_match(",width:\s*(\d+)px,S", extraire_attribut($reduit, 'style'), $regs)) {
-							$w = $regs[1];
-						}
-						if ($w and ($style = extraire_attribut($tag[1], 'style'))) {
-							$style = preg_replace(",width:\s*\d+px,S", "width:${w}px", $style);
-							$replace = inserer_attribut($tag[1], 'style', $style);
-							$texte = str_replace($tag[1], $replace, $texte);
-						}
-					}
-					// traiter aussi un eventuel mouseover
-					if ($mouseover = extraire_attribut($reduit, 'onmouseover')) {
-						if (preg_match(",this[.]src=['\"]([^'\"]+)['\"],ims", $mouseover, $match)) {
-							$srcover = $match[1];
-							array_shift($args);
-							array_unshift($args, "<img src='" . $match[1] . "' />");
-							$srcover_filter = call_user_func_array($filtre, $args);
-							$srcover_filter = extraire_attribut($srcover_filter, 'src');
-							$reduit = str_replace($srcover, $srcover_filter, $reduit);
-						}
-					}
-					$texte = str_replace($tag[3], $reduit, $texte);
-				}
-				array_shift($args);
-			}
-		}
-	}
-	statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
-	return $texte;
+    $filtre = array_shift($args); # enlever $filtre
+    $texte = array_shift($args);
+    if (!strlen($texte)) {
+        return;
+    }
+    find_in_path('filtres_images_mini.php', 'inc/', true);
+    statut_effacer_images_temporaires(true); // activer la suppression des images temporaires car le compilo finit la chaine par un image_graver
+    // Cas du nom de fichier local
+    $is_file = trim($texte);
+    if (strpos(substr($is_file, strlen(_DIR_RACINE)), '..') !== false
+          or strpbrk($is_file, "<>\n\r\t") !== false
+          or strpos($is_file, '/') === 0
+    ) {
+        $is_file = false;
+    }
+    if ($is_file) {
+        $is_local_file = function($path) {
+            if (strpos($path, "?") !== false) {
+                $path = supprimer_timestamp($path);
+                // remove ?24px added by find_in_theme on .svg files
+                $path = preg_replace(",\?[[:digit:]]+(px)$,", "", $path);
+            }
+            return file_exists($path);
+        };
+        if ($is_local_file($is_file) or tester_url_absolue($is_file)) {
+            array_unshift($args, "<img src='$is_file' />");
+            $res = call_user_func_array($filtre, $args);
+            statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
+            return $res;
+        }
+    }
+
+    // Cas general : trier toutes les images, avec eventuellement leur <span>
+    if (preg_match_all(
+        ',(<([a-z]+) [^<>]*spip_documents[^<>]*>)?\s*(<img\s.*>),UimsS',
+        $texte, $tags, PREG_SET_ORDER)) {
+        foreach ($tags as $tag) {
+            $class = extraire_attribut($tag[3], 'class');
+            if (!$class or
+                (strpos($class, 'filtre_inactif') === false
+                    // compat historique a virer en 3.2
+                    and strpos($class, 'no_image_filtrer') === false)
+            ) {
+                array_unshift($args, $tag[3]);
+                if ($reduit = call_user_func_array($filtre, $args)) {
+                    // En cas de span spip_documents, modifier le style=...width:
+                    if ($tag[1]) {
+                        $w = extraire_attribut($reduit, 'width');
+                        if (!$w and preg_match(",width:\s*(\d+)px,S", extraire_attribut($reduit, 'style'), $regs)) {
+                            $w = $regs[1];
+                        }
+                        if ($w and ($style = extraire_attribut($tag[1], 'style'))) {
+                            $style = preg_replace(",width:\s*\d+px,S", "width:${w}px", $style);
+                            $replace = inserer_attribut($tag[1], 'style', $style);
+                            $texte = str_replace($tag[1], $replace, $texte);
+                        }
+                    }
+                    // traiter aussi un eventuel mouseover
+                    if ($mouseover = extraire_attribut($reduit, 'onmouseover')) {
+                        if (preg_match(",this[.]src=['\"]([^'\"]+)['\"],ims", $mouseover, $match)) {
+                            $srcover = $match[1];
+                            array_shift($args);
+                            array_unshift($args, "<img src='" . $match[1] . "' />");
+                            $srcover_filter = call_user_func_array($filtre, $args);
+                            $srcover_filter = extraire_attribut($srcover_filter, 'src');
+                            $reduit = str_replace($srcover, $srcover_filter, $reduit);
+                        }
+                    }
+                    $texte = str_replace($tag[3], $reduit, $texte);
+                }
+                array_shift($args);
+            }
+        }
+    }
+    statut_effacer_images_temporaires(false); // desactiver pour les appels hors compilo
+    return $texte;
 }
 
 /**
@@ -601,77 +601,77 @@ 
  **/
 function taille_image($img, $force_refresh = false) {
 
-	static $largeur_img = array(), $hauteur_img = array();
-	$srcWidth = 0;
-	$srcHeight = 0;
-
-	$src = extraire_attribut($img, 'src');
-
-	if (!$src) {
-		$src = $img;
-	} else {
-		$srcWidth = extraire_attribut($img, 'width');
-		$srcHeight = extraire_attribut($img, 'height');
-	}
-
-	// ne jamais operer directement sur une image distante pour des raisons de perfo
-	// la copie locale a toutes les chances d'etre la ou de resservir
-	if (tester_url_absolue($src)) {
-		include_spip('inc/distant');
-		$fichier = copie_locale($src);
-		$src = $fichier ? _DIR_RACINE . $fichier : $src;
-	}
-	if (($p = strpos($src, '?')) !== false) {
-		$src = substr($src, 0, $p);
-	}
-
-	$srcsize = false;
-	if (isset($largeur_img[$src]) and !$force_refresh) {
-		$srcWidth = $largeur_img[$src];
-	}
-	if (isset($hauteur_img[$src]) and !$force_refresh) {
-		$srcHeight = $hauteur_img[$src];
-	}
-	if (!$srcWidth or !$srcHeight) {
-
-		if (file_exists($src)
-			and $srcsize = spip_getimagesize($src)
-		) {
-			if (!$srcWidth) {
-				$largeur_img[$src] = $srcWidth = $srcsize[0];
-			}
-			if (!$srcHeight) {
-				$hauteur_img[$src] = $srcHeight = $srcsize[1];
-			}
-		}
-		elseif(strpos($src, "<svg") !== false) {
-			include_spip('inc/svg');
-			if ($attrs = svg_lire_attributs($src)){
-				list($width, $height, $viewbox) = svg_getimagesize_from_attr($attrs);
-				if (!$srcWidth){
-					$largeur_img[$src] = $srcWidth = $width;
-				}
-				if (!$srcHeight){
-					$hauteur_img[$src] = $srcHeight = $height;
-				}
-			}
-		}
-		// $src peut etre une reference a une image temporaire dont a n'a que le log .src
-		// on s'y refere, l'image sera reconstruite en temps utile si necessaire
-		elseif (@file_exists($f = "$src.src")
-			and lire_fichier($f, $valeurs)
-			and $valeurs = unserialize($valeurs)
-		) {
-			if (!$srcWidth) {
-				$largeur_img[$src] = $srcWidth = $valeurs["largeur_dest"];
-			}
-			if (!$srcHeight) {
-				$hauteur_img[$src] = $srcHeight = $valeurs["hauteur_dest"];
-			}
-		}
-	}
-
-	return array($srcHeight, $srcWidth);
+    static $largeur_img = array(), $hauteur_img = array();
+    $srcWidth = 0;
+    $srcHeight = 0;
+
+    $src = extraire_attribut($img, 'src');
+
+    if (!$src) {
+        $src = $img;
+    } else {
+        $srcWidth = extraire_attribut($img, 'width');
+        $srcHeight = extraire_attribut($img, 'height');
+    }
+
+    // ne jamais operer directement sur une image distante pour des raisons de perfo
+    // la copie locale a toutes les chances d'etre la ou de resservir
+    if (tester_url_absolue($src)) {
+        include_spip('inc/distant');
+        $fichier = copie_locale($src);
+        $src = $fichier ? _DIR_RACINE . $fichier : $src;
+    }
+    if (($p = strpos($src, '?')) !== false) {
+        $src = substr($src, 0, $p);
+    }
+
+    $srcsize = false;
+    if (isset($largeur_img[$src]) and !$force_refresh) {
+        $srcWidth = $largeur_img[$src];
+    }
+    if (isset($hauteur_img[$src]) and !$force_refresh) {
+        $srcHeight = $hauteur_img[$src];
+    }
+    if (!$srcWidth or !$srcHeight) {
+
+        if (file_exists($src)
+            and $srcsize = spip_getimagesize($src)
+        ) {
+            if (!$srcWidth) {
+                $largeur_img[$src] = $srcWidth = $srcsize[0];
+            }
+            if (!$srcHeight) {
+                $hauteur_img[$src] = $srcHeight = $srcsize[1];
+            }
+        }
+        elseif(strpos($src, "<svg") !== false) {
+            include_spip('inc/svg');
+            if ($attrs = svg_lire_attributs($src)){
+                list($width, $height, $viewbox) = svg_getimagesize_from_attr($attrs);
+                if (!$srcWidth){
+                    $largeur_img[$src] = $srcWidth = $width;
+                }
+                if (!$srcHeight){
+                    $hauteur_img[$src] = $srcHeight = $height;
+                }
+            }
+        }
+        // $src peut etre une reference a une image temporaire dont a n'a que le log .src
+        // on s'y refere, l'image sera reconstruite en temps utile si necessaire
+        elseif (@file_exists($f = "$src.src")
+            and lire_fichier($f, $valeurs)
+            and $valeurs = unserialize($valeurs)
+        ) {
+            if (!$srcWidth) {
+                $largeur_img[$src] = $srcWidth = $valeurs["largeur_dest"];
+            }
+            if (!$srcHeight) {
+                $hauteur_img[$src] = $srcHeight = $valeurs["hauteur_dest"];
+            }
+        }
+    }
+
+    return array($srcHeight, $srcWidth);
 }
 
 
@@ -689,12 +689,12 @@ 
  *     Largeur en pixels, NULL ou 0 si aucune image.
  **/
 function largeur($img) {
-	if (!$img) {
-		return;
-	}
-	list($h, $l) = taille_image($img);
+    if (!$img) {
+        return;
+    }
+    list($h, $l) = taille_image($img);
 
-	return $l;
+    return $l;
 }
 
 /**
@@ -711,12 +711,12 @@ 
  *     Hauteur en pixels, NULL ou 0 si aucune image.
  **/
 function hauteur($img) {
-	if (!$img) {
-		return;
-	}
-	list($h, $l) = taille_image($img);
+    if (!$img) {
+        return;
+    }
+    list($h, $l) = taille_image($img);
 
-	return $h;
+    return $h;
 }
 
 
@@ -736,11 +736,11 @@ 
  * @return string
  **/
 function corriger_entites_html($texte) {
-	if (strpos($texte, '&amp;') === false) {
-		return $texte;
-	}
+    if (strpos($texte, '&amp;') === false) {
+        return $texte;
+    }
 
-	return preg_replace(',&amp;(#[0-9][0-9][0-9]+;|amp;),iS', '&\1', $texte);
+    return preg_replace(',&amp;(#[0-9][0-9][0-9]+;|amp;),iS', '&\1', $texte);
 }
 
 /**
@@ -755,11 +755,11 @@ 
  * @return string
  **/
 function corriger_toutes_entites_html($texte) {
-	if (strpos($texte, '&amp;') === false) {
-		return $texte;
-	}
+    if (strpos($texte, '&amp;') === false) {
+        return $texte;
+    }
 
-	return preg_replace(',&amp;(#?[a-z0-9]+;),iS', '&\1', $texte);
+    return preg_replace(',&amp;(#?[a-z0-9]+;),iS', '&\1', $texte);
 }
 
 /**
@@ -769,7 +769,7 @@ 
  * @return string
  **/
 function proteger_amp($texte) {
-	return str_replace('&', '&amp;', $texte);
+    return str_replace('&', '&amp;', $texte);
 }
 
 
@@ -800,20 +800,20 @@ 
  * @return mixed|string
  */
 function entites_html($texte, $tout = false, $quote = true) {
-	if (!is_string($texte) or !$texte
-		or strpbrk($texte, "&\"'<>") == false
-	) {
-		return $texte;
-	}
-	include_spip('inc/texte');
-	$flags = ($quote ? ENT_QUOTES : ENT_NOQUOTES);
-	$flags |= ENT_HTML401;
-	$texte = spip_htmlspecialchars(echappe_retour(echappe_html($texte, '', true), '', 'proteger_amp'), $flags);
-	if ($tout) {
-		return corriger_toutes_entites_html($texte);
-	} else {
-		return corriger_entites_html($texte);
-	}
+    if (!is_string($texte) or !$texte
+        or strpbrk($texte, "&\"'<>") == false
+    ) {
+        return $texte;
+    }
+    include_spip('inc/texte');
+    $flags = ($quote ? ENT_QUOTES : ENT_NOQUOTES);
+    $flags |= ENT_HTML401;
+    $texte = spip_htmlspecialchars(echappe_retour(echappe_html($texte, '', true), '', 'proteger_amp'), $flags);
+    if ($tout) {
+        return corriger_toutes_entites_html($texte);
+    } else {
+        return corriger_entites_html($texte);
+    }
 }
 
 /**
@@ -832,37 +832,37 @@ 
  *     Texte converti
  **/
 function filtrer_entites($texte) {
-	if (strpos($texte, '&') === false) {
-		return $texte;
-	}
-	// filtrer
-	$texte = html2unicode($texte);
-	// remettre le tout dans le charset cible
-	$texte = unicode2charset($texte);
-	// cas particulier des " et ' qu'il faut filtrer aussi
-	// (on le faisait deja avec un &quot;)
-	if (strpos($texte, "&#") !== false) {
-		$texte = str_replace(array("&#039;", "&#39;", "&#034;", "&#34;"), array("'", "'", '"', '"'), $texte);
-	}
+    if (strpos($texte, '&') === false) {
+        return $texte;
+    }
+    // filtrer
+    $texte = html2unicode($texte);
+    // remettre le tout dans le charset cible
+    $texte = unicode2charset($texte);
+    // cas particulier des " et ' qu'il faut filtrer aussi
+    // (on le faisait deja avec un &quot;)
+    if (strpos($texte, "&#") !== false) {
+        $texte = str_replace(array("&#039;", "&#39;", "&#034;", "&#34;"), array("'", "'", '"', '"'), $texte);
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
 if (!function_exists('filtre_filtrer_entites_dist')) {
-	/**
-	 * Version sécurisée de filtrer_entites
-	 * 
-	 * @uses interdire_scripts()
-	 * @uses filtrer_entites()
-	 * 
-	 * @param string $t
-	 * @return string
-	 */
-	function filtre_filtrer_entites_dist($t) {
-		include_spip('inc/texte');
-		return interdire_scripts(filtrer_entites($t));
-	}
+    /**
+     * Version sécurisée de filtrer_entites
+     * 
+     * @uses interdire_scripts()
+     * @uses filtrer_entites()
+     * 
+     * @param string $t
+     * @return string
+     */
+    function filtre_filtrer_entites_dist($t) {
+        include_spip('inc/texte');
+        return interdire_scripts(filtrer_entites($t));
+    }
 }
 
 
@@ -877,18 +877,18 @@ 
  * @return string|array
  **/
 function supprimer_caracteres_illegaux($texte) {
-	static $from = "\x0\x1\x2\x3\x4\x5\x6\x7\x8\xB\xC\xE\xF\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F";
-	static $to = null;
+    static $from = "\x0\x1\x2\x3\x4\x5\x6\x7\x8\xB\xC\xE\xF\x10\x11\x12\x13\x14\x15\x16\x17\x18\x19\x1A\x1B\x1C\x1D\x1E\x1F";
+    static $to = null;
 
-	if (is_array($texte)) {
-		return array_map('supprimer_caracteres_illegaux', $texte);
-	}
+    if (is_array($texte)) {
+        return array_map('supprimer_caracteres_illegaux', $texte);
+    }
 
-	if (!$to) {
-		$to = str_repeat('-', strlen($from));
-	}
+    if (!$to) {
+        $to = str_repeat('-', strlen($from));
+    }
 
-	return strtr($texte, $from, $to);
+    return strtr($texte, $from, $to);
 }
 
 /**
@@ -900,10 +900,10 @@ 
  * @return string|array
  **/
 function corriger_caracteres($texte) {
-	$texte = corriger_caracteres_windows($texte);
-	$texte = supprimer_caracteres_illegaux($texte);
+    $texte = corriger_caracteres_windows($texte);
+    $texte = supprimer_caracteres_illegaux($texte);
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -921,40 +921,40 @@ 
  */
 function texte_backend($texte) {
 
-	static $apostrophe = array("&#8217;", "'"); # n'allouer qu'une fois
+    static $apostrophe = array("&#8217;", "'"); # n'allouer qu'une fois
 
-	// si on a des liens ou des images, les passer en absolu
-	$texte = liens_absolus($texte);
+    // si on a des liens ou des images, les passer en absolu
+    $texte = liens_absolus($texte);
 
-	// echapper les tags &gt; &lt;
-	$texte = preg_replace(',&(gt|lt);,S', '&amp;\1;', $texte);
+    // echapper les tags &gt; &lt;
+    $texte = preg_replace(',&(gt|lt);,S', '&amp;\1;', $texte);
 
-	// importer les &eacute;
-	$texte = filtrer_entites($texte);
+    // importer les &eacute;
+    $texte = filtrer_entites($texte);
 
-	// " -> &quot; et tout ce genre de choses
-	$u = $GLOBALS['meta']['pcre_u'];
-	$texte = str_replace("&nbsp;", " ", $texte);
-	$texte = preg_replace('/\s{2,}/S' . $u, " ", $texte);
-	// ne pas echapper les sinqle quotes car certains outils de syndication gerent mal
-	$texte = entites_html($texte, false, false);
-	// mais bien echapper les double quotes !
-	$texte = str_replace('"', '&#034;', $texte);
+    // " -> &quot; et tout ce genre de choses
+    $u = $GLOBALS['meta']['pcre_u'];
+    $texte = str_replace("&nbsp;", " ", $texte);
+    $texte = preg_replace('/\s{2,}/S' . $u, " ", $texte);
+    // ne pas echapper les sinqle quotes car certains outils de syndication gerent mal
+    $texte = entites_html($texte, false, false);
+    // mais bien echapper les double quotes !
+    $texte = str_replace('"', '&#034;', $texte);
 
-	// verifier le charset
-	$texte = charset2unicode($texte);
+    // verifier le charset
+    $texte = charset2unicode($texte);
 
-	// Caracteres problematiques en iso-latin 1
-	if (isset($GLOBALS['meta']['charset']) and $GLOBALS['meta']['charset'] == 'iso-8859-1') {
-		$texte = str_replace(chr(156), '&#156;', $texte);
-		$texte = str_replace(chr(140), '&#140;', $texte);
-		$texte = str_replace(chr(159), '&#159;', $texte);
-	}
+    // Caracteres problematiques en iso-latin 1
+    if (isset($GLOBALS['meta']['charset']) and $GLOBALS['meta']['charset'] == 'iso-8859-1') {
+        $texte = str_replace(chr(156), '&#156;', $texte);
+        $texte = str_replace(chr(140), '&#140;', $texte);
+        $texte = str_replace(chr(159), '&#159;', $texte);
+    }
 
-	// l'apostrophe curly pose probleme a certains lecteure de RSS
-	// et le caractere apostrophe alourdit les squelettes avec PHP
-	// ==> on les remplace par l'entite HTML
-	return str_replace($apostrophe, "'", $texte);
+    // l'apostrophe curly pose probleme a certains lecteure de RSS
+    // et le caractere apostrophe alourdit les squelettes avec PHP
+    // ==> on les remplace par l'entite HTML
+    return str_replace($apostrophe, "'", $texte);
 }
 
 /**
@@ -971,7 +971,7 @@ 
  *     Texte encodé et quote pour XML
  */
 function texte_backendq($texte) {
-	return addslashes(texte_backend($texte));
+    return addslashes(texte_backend($texte));
 }
 
 
@@ -994,9 +994,9 @@ 
  *     Numéro de titre, sinon chaîne vide
  **/
 function supprimer_numero($texte) {
-	return preg_replace(
-		",^[[:space:]]*([0-9]+)([.)]|" . chr(194) . '?' . chr(176) . ")[[:space:]]+,S",
-		"", $texte);
+    return preg_replace(
+        ",^[[:space:]]*([0-9]+)([.)]|" . chr(194) . '?' . chr(176) . ")[[:space:]]+,S",
+        "", $texte);
 }
 
 /**
@@ -1019,13 +1019,13 @@ 
  *     Numéro de titre, sinon chaîne vide
  **/
 function recuperer_numero($texte) {
-	if (preg_match(
-		",^[[:space:]]*([0-9]+)([.)]|" . chr(194) . '?' . chr(176) . ")[[:space:]]+,S",
-		$texte, $regs)) {
-		return strval($regs[1]);
-	} else {
-		return '';
-	}
+    if (preg_match(
+        ",^[[:space:]]*([0-9]+)([.)]|" . chr(194) . '?' . chr(176) . ")[[:space:]]+,S",
+        $texte, $regs)) {
+        return strval($regs[1]);
+    } else {
+        return '';
+    }
 }
 
 /**
@@ -1052,13 +1052,13 @@ 
  *     Texte converti
  **/
 function supprimer_tags($texte, $rempl = "") {
-	$texte = preg_replace(",<(!--|\w|/|!\[endif|!\[if)[^>]*>,US", $rempl, $texte);
-	// ne pas oublier un < final non ferme car coupe
-	$texte = preg_replace(",<(!--|\w|/).*$,US", $rempl, $texte);
-	// mais qui peut aussi etre un simple signe plus petit que
-	$texte = str_replace('<', '&lt;', $texte);
+    $texte = preg_replace(",<(!--|\w|/|!\[endif|!\[if)[^>]*>,US", $rempl, $texte);
+    // ne pas oublier un < final non ferme car coupe
+    $texte = preg_replace(",<(!--|\w|/).*$,US", $rempl, $texte);
+    // mais qui peut aussi etre un simple signe plus petit que
+    $texte = str_replace('<', '&lt;', $texte);
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -1081,9 +1081,9 @@ 
  *     Texte converti
  **/
 function echapper_tags($texte, $rempl = "") {
-	$texte = preg_replace("/<([^>]*)>/", "&lt;\\1&gt;", $texte);
+    $texte = preg_replace("/<([^>]*)>/", "&lt;\\1&gt;", $texte);
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -1104,18 +1104,18 @@ 
  *     Texte converti
  **/
 function textebrut($texte) {
-	$u = $GLOBALS['meta']['pcre_u'];
-	$texte = preg_replace('/\s+/S' . $u, " ", $texte);
-	$texte = preg_replace("/<(p|br)( [^>]*)?" . ">/iS", "\n\n", $texte);
-	$texte = preg_replace("/^\n+/", "", $texte);
-	$texte = preg_replace("/\n+$/", "", $texte);
-	$texte = preg_replace("/\n +/", "\n", $texte);
-	$texte = supprimer_tags($texte);
-	$texte = preg_replace("/(&nbsp;| )+/S", " ", $texte);
-	// nettoyer l'apostrophe curly qui pose probleme a certains rss-readers, lecteurs de mail...
-	$texte = str_replace("&#8217;", "'", $texte);
+    $u = $GLOBALS['meta']['pcre_u'];
+    $texte = preg_replace('/\s+/S' . $u, " ", $texte);
+    $texte = preg_replace("/<(p|br)( [^>]*)?" . ">/iS", "\n\n", $texte);
+    $texte = preg_replace("/^\n+/", "", $texte);
+    $texte = preg_replace("/\n+$/", "", $texte);
+    $texte = preg_replace("/\n +/", "\n", $texte);
+    $texte = supprimer_tags($texte);
+    $texte = preg_replace("/(&nbsp;| )+/S", " ", $texte);
+    // nettoyer l'apostrophe curly qui pose probleme a certains rss-readers, lecteurs de mail...
+    $texte = str_replace("&#8217;", "'", $texte);
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -1131,17 +1131,17 @@ 
  *     Texte avec liens ouvrants
  **/
 function liens_ouvrants($texte) {
-	if (preg_match_all(",(<a\s+[^>]*https?://[^>]*class=[\"']spip_(out|url)\b[^>]+>),imsS",
-		$texte, $liens, PREG_PATTERN_ORDER)) {
-		foreach ($liens[0] as $a) {
-			$rel = 'noopener noreferrer ' . extraire_attribut($a, 'rel');
-			$ablank = inserer_attribut($a, 'rel', $rel);
-			$ablank = inserer_attribut($ablank, 'target', '_blank');
-			$texte = str_replace($a, $ablank, $texte);
-		}
-	}
+    if (preg_match_all(",(<a\s+[^>]*https?://[^>]*class=[\"']spip_(out|url)\b[^>]+>),imsS",
+        $texte, $liens, PREG_PATTERN_ORDER)) {
+        foreach ($liens[0] as $a) {
+            $rel = 'noopener noreferrer ' . extraire_attribut($a, 'rel');
+            $ablank = inserer_attribut($a, 'rel', $rel);
+            $ablank = inserer_attribut($ablank, 'target', '_blank');
+            $texte = str_replace($a, $ablank, $texte);
+        }
+    }
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -1151,22 +1151,22 @@ 
  * @return string
  */
 function liens_nofollow($texte) {
-	if (stripos($texte, "<a") === false) {
-		return $texte;
-	}
+    if (stripos($texte, "<a") === false) {
+        return $texte;
+    }
 
-	if (preg_match_all(",<a\b[^>]*>,UimsS", $texte, $regs, PREG_PATTERN_ORDER)) {
-		foreach ($regs[0] as $a) {
-			$rel = extraire_attribut($a, "rel");
-			if (strpos($rel, "nofollow") === false) {
-				$rel = "nofollow" . ($rel ? " $rel" : "");
-				$anofollow = inserer_attribut($a, "rel", $rel);
-				$texte = str_replace($a, $anofollow, $texte);
-			}
-		}
-	}
+    if (preg_match_all(",<a\b[^>]*>,UimsS", $texte, $regs, PREG_PATTERN_ORDER)) {
+        foreach ($regs[0] as $a) {
+            $rel = extraire_attribut($a, "rel");
+            if (strpos($rel, "nofollow") === false) {
+                $rel = "nofollow" . ($rel ? " $rel" : "");
+                $anofollow = inserer_attribut($a, "rel", $rel);
+                $texte = str_replace($a, $anofollow, $texte);
+            }
+        }
+    }
 
-	return $texte;
+    return $texte;
 }
 
 /**
@@ -1185,12 +1185,12 @@ 
  *     Texte sans paraghaphes
  **/
 function PtoBR($texte) {
-	$u = $GLOBALS['meta']['pcre_u'];
-	$texte = preg_replace("@</p>@iS", "\n", $texte);
-	$texte = preg_replace("@<p\b.*>@UiS", "<br />", $texte);
-	$texte = preg_replace("@^\s*<br />@S" . $u, "", $texte);
+    $u = $GLOBALS['meta']['pcre_u'];
+    $texte = preg_replace("@</p>@iS", "\n", $texte);
+    $texte = preg_replace("@<p\b.*>@UiS", "<br />", $texte);
+    $texte = preg_replace("@^\s*<br />@S" . $u, "", $texte);
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -1214,14 +1214,14 @@ 
  * @return string Texte encadré du style CSS
  */
 function lignes_longues($texte) {
-	if (!strlen(trim($texte))) {
-		return $texte;
-	}
-	include_spip('inc/texte');
-	$tag = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $texte) ?
-		'div' : 'span';
+    if (!strlen(trim($texte))) {
+        return $texte;
+    }
+    include_spip('inc/texte');
+    $tag = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $texte) ?
+        'div' : 'span';
 
-	return "<$tag style='word-wrap:break-word;'>$texte</$tag>";
+    return "<$tag style='word-wrap:break-word;'>$texte</$tag>";
 }
 
 /**
@@ -1240,30 +1240,30 @@ 
  * @return string Texte en majuscule
  */
 function majuscules($texte) {
-	if (!strlen($texte)) {
-		return '';
-	}
+    if (!strlen($texte)) {
+        return '';
+    }
 
-	// Cas du turc
-	if ($GLOBALS['spip_lang'] == 'tr') {
-		# remplacer hors des tags et des entites
-		if (preg_match_all(',<[^<>]+>|&[^;]+;,S', $texte, $regs, PREG_SET_ORDER)) {
-			foreach ($regs as $n => $match) {
-				$texte = str_replace($match[0], "@@SPIP_TURC$n@@", $texte);
-			}
-		}
+    // Cas du turc
+    if ($GLOBALS['spip_lang'] == 'tr') {
+        # remplacer hors des tags et des entites
+        if (preg_match_all(',<[^<>]+>|&[^;]+;,S', $texte, $regs, PREG_SET_ORDER)) {
+            foreach ($regs as $n => $match) {
+                $texte = str_replace($match[0], "@@SPIP_TURC$n@@", $texte);
+            }
+        }
 
-		$texte = str_replace('i', '&#304;', $texte);
+        $texte = str_replace('i', '&#304;', $texte);
 
-		if ($regs) {
-			foreach ($regs as $n => $match) {
-				$texte = str_replace("@@SPIP_TURC$n@@", $match[0], $texte);
-			}
-		}
-	}
+        if ($regs) {
+            foreach ($regs as $n => $match) {
+                $texte = str_replace("@@SPIP_TURC$n@@", $match[0], $texte);
+            }
+        }
+    }
 
-	// Cas general
-	return "<span style='text-transform: uppercase;'>$texte</span>";
+    // Cas general
+    return "<span style='text-transform: uppercase;'>$texte</span>";
 }
 
 /**
@@ -1281,29 +1281,29 @@ 
  * @return string
  **/
 function taille_en_octets($taille) {
-	if (!defined('_KILOBYTE')) {
-		/**
-		 * Définit le nombre d'octets dans un Kilobyte
-		 *
-		 * @var int
-		 **/
-		define('_KILOBYTE', 1024);
-	}
+    if (!defined('_KILOBYTE')) {
+        /**
+         * Définit le nombre d'octets dans un Kilobyte
+         *
+         * @var int
+         **/
+        define('_KILOBYTE', 1024);
+    }
 
-	if ($taille < 1) {
-		return '';
-	}
-	if ($taille < _KILOBYTE) {
-		$taille = _T('taille_octets', array('taille' => $taille));
-	} elseif ($taille < _KILOBYTE * _KILOBYTE) {
-		$taille = _T('taille_ko', array('taille' => round($taille / _KILOBYTE, 1)));
-	} elseif ($taille < _KILOBYTE * _KILOBYTE * _KILOBYTE) {
-		$taille = _T('taille_mo', array('taille' => round($taille / _KILOBYTE / _KILOBYTE, 1)));
-	} else {
-		$taille = _T('taille_go', array('taille' => round($taille / _KILOBYTE / _KILOBYTE / _KILOBYTE, 2)));
-	}
+    if ($taille < 1) {
+        return '';
+    }
+    if ($taille < _KILOBYTE) {
+        $taille = _T('taille_octets', array('taille' => $taille));
+    } elseif ($taille < _KILOBYTE * _KILOBYTE) {
+        $taille = _T('taille_ko', array('taille' => round($taille / _KILOBYTE, 1)));
+    } elseif ($taille < _KILOBYTE * _KILOBYTE * _KILOBYTE) {
+        $taille = _T('taille_mo', array('taille' => round($taille / _KILOBYTE / _KILOBYTE, 1)));
+    } else {
+        $taille = _T('taille_go', array('taille' => round($taille / _KILOBYTE / _KILOBYTE / _KILOBYTE, 2)));
+    }
 
-	return $taille;
+    return $taille;
 }
 
 
@@ -1325,15 +1325,15 @@ 
  *     Texte prêt pour être utilisé en attribut HTML
  **/
 function attribut_html($texte, $textebrut = true) {
-	$u = $GLOBALS['meta']['pcre_u'];
-	if ($textebrut) {
-		$texte = preg_replace(array(",\n,", ",\s(?=\s),msS" . $u), array(" ", ""), textebrut($texte));
-	}
-	$texte = texte_backend($texte);
-	$texte = str_replace(array("'", '"'), array('&#039;', '&#034;'), $texte);
+    $u = $GLOBALS['meta']['pcre_u'];
+    if ($textebrut) {
+        $texte = preg_replace(array(",\n,", ",\s(?=\s),msS" . $u), array(" ", ""), textebrut($texte));
+    }
+    $texte = texte_backend($texte);
+    $texte = str_replace(array("'", '"'), array('&#039;', '&#034;'), $texte);
 
-	return preg_replace(array("/&(amp;|#38;)/", "/&(?![A-Za-z]{0,4}\w{2,3};|#[0-9]{2,5};)/"), array("&", "&#38;"),
-		$texte);
+    return preg_replace(array("/&(amp;|#38;)/", "/&(?![A-Za-z]{0,4}\w{2,3};|#[0-9]{2,5};)/"), array("&", "&#38;"),
+        $texte);
 }
 
 
@@ -1353,12 +1353,12 @@ 
  *     URL ou chaîne vide
  **/
 function vider_url($url, $entites = true) {
-	# un message pour abs_url
-	$GLOBALS['mode_abs_url'] = 'url';
-	$url = trim($url);
-	$r = ",^(?:" . _PROTOCOLES_STD . '):?/?/?$,iS';
+    # un message pour abs_url
+    $GLOBALS['mode_abs_url'] = 'url';
+    $url = trim($url);
+    $r = ",^(?:" . _PROTOCOLES_STD . '):?/?/?$,iS';
 
-	return preg_match($r, $url) ? '' : ($entites ? entites_html($url) : $url);
+    return preg_match($r, $url) ? '' : ($entites ? entites_html($url) : $url);
 }
 
 
@@ -1373,10 +1373,10 @@ 
  * @return string Adresse email maquillée
  **/
 function antispam($texte) {
-	include_spip('inc/acces');
-	$masque = creer_pass_aleatoire(3);
+    include_spip('inc/acces');
+    $masque = creer_pass_aleatoire(3);
 
-	return preg_replace("/@/", " $masque ", $texte);
+    return preg_replace("/@/", " $masque ", $texte);
 }
 
 /**
@@ -1408,12 +1408,12 @@ 
  *     True si on a le droit d'accès, false sinon.
  **/
 function securiser_acces($id_auteur, $cle, $dir, $op = '', $args = '') {
-	include_spip('inc/acces');
-	if ($op) {
-		$dir .= " $op $args";
-	}
+    include_spip('inc/acces');
+    if ($op) {
+        $dir .= " $op $args";
+    }
 
-	return verifier_low_sec($id_auteur, $cle, $dir);
+    return verifier_low_sec($id_auteur, $cle, $dir);
 }
 
 /**
@@ -1438,11 +1438,11 @@ 
  *     Retourne $texte, sinon $sinon.
  **/
 function sinon($texte, $sinon = '') {
-	if ($texte or (!is_array($texte) and strlen($texte))) {
-		return $texte;
-	} else {
-		return $sinon;
-	}
+    if ($texte or (!is_array($texte) and strlen($texte))) {
+        return $texte;
+    } else {
+        return $sinon;
+    }
 }
 
 /**
@@ -1466,7 +1466,7 @@ 
  * @return mixed
  **/
 function choixsivide($a, $vide, $pasvide) {
-	return $a ? $pasvide : $vide;
+    return $a ? $pasvide : $vide;
 }
 
 /**
@@ -1490,7 +1490,7 @@ 
  * @return mixed
  **/
 function choixsiegal($a1, $a2, $v, $f) {
-	return ($a1 == $a2) ? $v : $f;
+    return ($a1 == $a2) ? $v : $f;
 }
 
 //
@@ -1509,13 +1509,13 @@ 
  * @return string
  **/
 function filtrer_ical($texte) {
-	#include_spip('inc/charsets');
-	$texte = html2unicode($texte);
-	$texte = unicode2charset(charset2unicode($texte, $GLOBALS['meta']['charset'], 1), 'utf-8');
-	$texte = preg_replace("/\n/", " ", $texte);
-	$texte = preg_replace("/,/", "\,", $texte);
+    #include_spip('inc/charsets');
+    $texte = html2unicode($texte);
+    $texte = unicode2charset(charset2unicode($texte, $GLOBALS['meta']['charset'], 1), 'utf-8');
+    $texte = preg_replace("/\n/", " ", $texte);
+    $texte = preg_replace("/,/", "\,", $texte);
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -1540,53 +1540,53 @@ 
  * @return string
  **/
 function post_autobr($texte, $delim = "\n_ ") {
-	if (!function_exists('echappe_html')) {
-		include_spip('inc/texte_mini');
-	}
-	$texte = str_replace("\r\n", "\r", $texte);
-	$texte = str_replace("\r", "\n", $texte);
-
-	if (preg_match(",\n+$,", $texte, $fin)) {
-		$texte = substr($texte, 0, -strlen($fin = $fin[0]));
-	} else {
-		$fin = '';
-	}
-
-	$texte = echappe_html($texte, '', true);
-
-	// echapper les modeles
-	if (strpos($texte, "<") !== false) {
-		include_spip('inc/lien');
-		if (defined('_PREG_MODELE')) {
-			$preg_modeles = "@" . _PREG_MODELE . "@imsS";
-			$texte = echappe_html($texte, '', true, $preg_modeles);
-		}
-	}
-
-	$debut = '';
-	$suite = $texte;
-	while ($t = strpos('-' . $suite, "\n", 1)) {
-		$debut .= substr($suite, 0, $t - 1);
-		$suite = substr($suite, $t);
-		$car = substr($suite, 0, 1);
-		if (($car <> '-') and ($car <> '_') and ($car <> "\n") and ($car <> "|") and ($car <> "}")
-			and !preg_match(',^\s*(\n|</?(quote|div|dl|dt|dd)|$),S', ($suite))
-			and !preg_match(',</?(quote|div|dl|dt|dd)> *$,iS', $debut)
-		) {
-			$debut .= $delim;
-		} else {
-			$debut .= "\n";
-		}
-		if (preg_match(",^\n+,", $suite, $regs)) {
-			$debut .= $regs[0];
-			$suite = substr($suite, strlen($regs[0]));
-		}
-	}
-	$texte = $debut . $suite;
-
-	$texte = echappe_retour($texte);
-
-	return $texte . $fin;
+    if (!function_exists('echappe_html')) {
+        include_spip('inc/texte_mini');
+    }
+    $texte = str_replace("\r\n", "\r", $texte);
+    $texte = str_replace("\r", "\n", $texte);
+
+    if (preg_match(",\n+$,", $texte, $fin)) {
+        $texte = substr($texte, 0, -strlen($fin = $fin[0]));
+    } else {
+        $fin = '';
+    }
+
+    $texte = echappe_html($texte, '', true);
+
+    // echapper les modeles
+    if (strpos($texte, "<") !== false) {
+        include_spip('inc/lien');
+        if (defined('_PREG_MODELE')) {
+            $preg_modeles = "@" . _PREG_MODELE . "@imsS";
+            $texte = echappe_html($texte, '', true, $preg_modeles);
+        }
+    }
+
+    $debut = '';
+    $suite = $texte;
+    while ($t = strpos('-' . $suite, "\n", 1)) {
+        $debut .= substr($suite, 0, $t - 1);
+        $suite = substr($suite, $t);
+        $car = substr($suite, 0, 1);
+        if (($car <> '-') and ($car <> '_') and ($car <> "\n") and ($car <> "|") and ($car <> "}")
+            and !preg_match(',^\s*(\n|</?(quote|div|dl|dt|dd)|$),S', ($suite))
+            and !preg_match(',</?(quote|div|dl|dt|dd)> *$,iS', $debut)
+        ) {
+            $debut .= $delim;
+        } else {
+            $debut .= "\n";
+        }
+        if (preg_match(",^\n+,", $suite, $regs)) {
+            $debut .= $regs[0];
+            $suite = substr($suite, strlen($regs[0]));
+        }
+    }
+    $texte = $debut . $suite;
+
+    $texte = echappe_retour($texte);
+
+    return $texte . $fin;
 }
 
 
@@ -1627,46 +1627,46 @@ 
  * @return string
  **/
 function extraire_idiome($letexte, $lang = null, $options = array()) {
-	static $traduire = false;
-	if ($letexte
-		and preg_match_all(_EXTRAIRE_IDIOME, $letexte, $regs, PREG_SET_ORDER)
-	) {
-		if (!$traduire) {
-			$traduire = charger_fonction('traduire', 'inc');
-			include_spip('inc/lang');
-		}
-		if (!$lang) {
-			$lang = $GLOBALS['spip_lang'];
-		}
-		// Compatibilité avec le prototype de fonction précédente qui utilisait un boolean
-		if (is_bool($options)) {
-			$options = array('echappe_span' => $options);
-		}
-		if (!isset($options['echappe_span'])) {
-			$options = array_merge($options, array('echappe_span' => false));
-		}
-
-		foreach ($regs as $reg) {
-			$cle = ($reg[1] ? $reg[1] . ':' : '') . $reg[2];
-			$desc = $traduire($cle, $lang, true);
-			$l = $desc->langue;
-			// si pas de traduction, on laissera l'écriture de l'idiome entier dans le texte.
-			if (strlen($desc->texte)) {
-				$trad = code_echappement($desc->texte, 'idiome', false);
-				if ($l !== $lang) {
-					$trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
-				}
-				if (lang_dir($l) !== lang_dir($lang)) {
-					$trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
-				}
-				if (!$options['echappe_span']) {
-					$trad = echappe_retour($trad, 'idiome');
-				}
-				$letexte = str_replace($reg[0], $trad, $letexte);
-			}
-		}
-	}
-	return $letexte;
+    static $traduire = false;
+    if ($letexte
+        and preg_match_all(_EXTRAIRE_IDIOME, $letexte, $regs, PREG_SET_ORDER)
+    ) {
+        if (!$traduire) {
+            $traduire = charger_fonction('traduire', 'inc');
+            include_spip('inc/lang');
+        }
+        if (!$lang) {
+            $lang = $GLOBALS['spip_lang'];
+        }
+        // Compatibilité avec le prototype de fonction précédente qui utilisait un boolean
+        if (is_bool($options)) {
+            $options = array('echappe_span' => $options);
+        }
+        if (!isset($options['echappe_span'])) {
+            $options = array_merge($options, array('echappe_span' => false));
+        }
+
+        foreach ($regs as $reg) {
+            $cle = ($reg[1] ? $reg[1] . ':' : '') . $reg[2];
+            $desc = $traduire($cle, $lang, true);
+            $l = $desc->langue;
+            // si pas de traduction, on laissera l'écriture de l'idiome entier dans le texte.
+            if (strlen($desc->texte)) {
+                $trad = code_echappement($desc->texte, 'idiome', false);
+                if ($l !== $lang) {
+                    $trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
+                }
+                if (lang_dir($l) !== lang_dir($lang)) {
+                    $trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
+                }
+                if (!$options['echappe_span']) {
+                    $trad = echappe_retour($trad, 'idiome');
+                }
+                $letexte = str_replace($reg[0], $trad, $letexte);
+            }
+        }
+    }
+    return $letexte;
 }
 
 /**
@@ -1718,67 +1718,67 @@ 
  **/
 function extraire_multi($letexte, $lang = null, $options = array()) {
 
-	if ($letexte
-		and preg_match_all(_EXTRAIRE_MULTI, $letexte, $regs, PREG_SET_ORDER)
-	) {
-		if (!$lang) {
-			$lang = $GLOBALS['spip_lang'];
-		}
-
-		// Compatibilité avec le prototype de fonction précédente qui utilisait un boolean
-		if (is_bool($options)) {
-			$options = array('echappe_span' => $options, 'lang_defaut' => _LANGUE_PAR_DEFAUT);
-		}
-		if (!isset($options['echappe_span'])) {
-			$options = array_merge($options, array('echappe_span' => false));
-		}
-		if (!isset($options['lang_defaut'])) {
-			$options = array_merge($options, array('lang_defaut' => _LANGUE_PAR_DEFAUT));
-		}
-
-		include_spip('inc/lang');
-		foreach ($regs as $reg) {
-			// chercher la version de la langue courante
-			$trads = extraire_trads($reg[1]);
-			if ($l = approcher_langue($trads, $lang)) {
-				$trad = $trads[$l];
-			} else {
-				if ($options['lang_defaut'] == 'aucune') {
-					$trad = '';
-				} else {
-					// langue absente, prendre le fr ou une langue précisée (meme comportement que inc/traduire.php)
-					// ou la premiere dispo
-					// mais typographier le texte selon les regles de celle-ci
-					// Attention aux blocs multi sur plusieurs lignes
-					if (!$l = approcher_langue($trads, $options['lang_defaut'])) {
-						$l = key($trads);
-					}
-					$trad = $trads[$l];
-					$typographie = charger_fonction(lang_typo($l), 'typographie');
-					$trad = $typographie($trad);
-					// Tester si on echappe en span ou en div
-					// il ne faut pas echapper en div si propre produit un seul paragraphe
-					include_spip('inc/texte');
-					$trad_propre = preg_replace(",(^<p[^>]*>|</p>$),Uims", "", propre($trad));
-					$mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $trad_propre) ? 'div' : 'span';
-					if ($mode === 'div') {
-						$trad = rtrim($trad) . "\n\n";
-					}
-					$trad = code_echappement($trad, 'multi', false, $mode);
-					$trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
-					if (lang_dir($l) !== lang_dir($lang)) {
-						$trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
-					}
-					if (!$options['echappe_span']) {
-						$trad = echappe_retour($trad, 'multi');
-					}
-				}
-			}
-			$letexte = str_replace($reg[0], $trad, $letexte);
-		}
-	}
-
-	return $letexte;
+    if ($letexte
+        and preg_match_all(_EXTRAIRE_MULTI, $letexte, $regs, PREG_SET_ORDER)
+    ) {
+        if (!$lang) {
+            $lang = $GLOBALS['spip_lang'];
+        }
+
+        // Compatibilité avec le prototype de fonction précédente qui utilisait un boolean
+        if (is_bool($options)) {
+            $options = array('echappe_span' => $options, 'lang_defaut' => _LANGUE_PAR_DEFAUT);
+        }
+        if (!isset($options['echappe_span'])) {
+            $options = array_merge($options, array('echappe_span' => false));
+        }
+        if (!isset($options['lang_defaut'])) {
+            $options = array_merge($options, array('lang_defaut' => _LANGUE_PAR_DEFAUT));
+        }
+
+        include_spip('inc/lang');
+        foreach ($regs as $reg) {
+            // chercher la version de la langue courante
+            $trads = extraire_trads($reg[1]);
+            if ($l = approcher_langue($trads, $lang)) {
+                $trad = $trads[$l];
+            } else {
+                if ($options['lang_defaut'] == 'aucune') {
+                    $trad = '';
+                } else {
+                    // langue absente, prendre le fr ou une langue précisée (meme comportement que inc/traduire.php)
+                    // ou la premiere dispo
+                    // mais typographier le texte selon les regles de celle-ci
+                    // Attention aux blocs multi sur plusieurs lignes
+                    if (!$l = approcher_langue($trads, $options['lang_defaut'])) {
+                        $l = key($trads);
+                    }
+                    $trad = $trads[$l];
+                    $typographie = charger_fonction(lang_typo($l), 'typographie');
+                    $trad = $typographie($trad);
+                    // Tester si on echappe en span ou en div
+                    // il ne faut pas echapper en div si propre produit un seul paragraphe
+                    include_spip('inc/texte');
+                    $trad_propre = preg_replace(",(^<p[^>]*>|</p>$),Uims", "", propre($trad));
+                    $mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $trad_propre) ? 'div' : 'span';
+                    if ($mode === 'div') {
+                        $trad = rtrim($trad) . "\n\n";
+                    }
+                    $trad = code_echappement($trad, 'multi', false, $mode);
+                    $trad = str_replace("'", '"', inserer_attribut($trad, 'lang', $l));
+                    if (lang_dir($l) !== lang_dir($lang)) {
+                        $trad = str_replace("'", '"', inserer_attribut($trad, 'dir', lang_dir($l)));
+                    }
+                    if (!$options['echappe_span']) {
+                        $trad = echappe_retour($trad, 'multi');
+                    }
+                }
+            }
+            $letexte = str_replace($reg[0], $trad, $letexte);
+        }
+    }
+
+    return $letexte;
 }
 
 /**
@@ -1794,20 +1794,20 @@ 
  *     Peut retourner un code de langue vide, lorsqu'un texte par défaut est indiqué.
  **/
 function extraire_trads($bloc) {
-	$lang = '';
+    $lang = '';
 // ce reg fait planter l'analyse multi s'il y a de l'{italique} dans le champ
 //	while (preg_match("/^(.*?)[{\[]([a-z_]+)[}\]]/siS", $bloc, $regs)) {
-	while (preg_match("/^(.*?)[\[]([a-z_]+)[\]]/siS", $bloc, $regs)) {
-		$texte = trim($regs[1]);
-		if ($texte or $lang) {
-			$trads[$lang] = $texte;
-		}
-		$bloc = substr($bloc, strlen($regs[0]));
-		$lang = $regs[2];
-	}
-	$trads[$lang] = $bloc;
+    while (preg_match("/^(.*?)[\[]([a-z_]+)[\]]/siS", $bloc, $regs)) {
+        $texte = trim($regs[1]);
+        if ($texte or $lang) {
+            $trads[$lang] = $texte;
+        }
+        $bloc = substr($bloc, strlen($regs[0]));
+        $lang = $regs[2];
+    }
+    $trads[$lang] = $bloc;
 
-	return $trads;
+    return $trads;
 }
 
 
@@ -1818,7 +1818,7 @@ 
  * @return string L'initiale en majuscule
  */
 function filtre_initiale($nom) {
-	return spip_substr(trim(strtoupper(extraire_multi($nom))), 0, 1);
+    return spip_substr(trim(strtoupper(extraire_multi($nom))), 0, 1);
 }
 
 
@@ -1863,33 +1863,33 @@ 
  *      - null (interne) : si on empile
  **/
 function unique($donnee, $famille = '', $cpt = false) {
-	static $mem = array();
-	// permettre de vider la pile et de la restaurer
-	// pour le calcul de introduction...
-	if ($famille == '_spip_raz_') {
-		$tmp = $mem;
-		$mem = array();
-
-		return $tmp;
-	} elseif ($famille == '_spip_set_') {
-		$mem = $donnee;
-
-		return;
-	}
-	// eviter une notice
-	if (!isset($mem[$famille])) {
-		$mem[$famille] = array();
-	}
-	if ($cpt) {
-		return count($mem[$famille]);
-	}
-	// eviter une notice
-	if (!isset($mem[$famille][$donnee])) {
-		$mem[$famille][$donnee] = 0;
-	}
-	if (!($mem[$famille][$donnee]++)) {
-		return $donnee;
-	}
+    static $mem = array();
+    // permettre de vider la pile et de la restaurer
+    // pour le calcul de introduction...
+    if ($famille == '_spip_raz_') {
+        $tmp = $mem;
+        $mem = array();
+
+        return $tmp;
+    } elseif ($famille == '_spip_set_') {
+        $mem = $donnee;
+
+        return;
+    }
+    // eviter une notice
+    if (!isset($mem[$famille])) {
+        $mem[$famille] = array();
+    }
+    if ($cpt) {
+        return count($mem[$famille]);
+    }
+    // eviter une notice
+    if (!isset($mem[$famille][$donnee])) {
+        $mem[$famille][$donnee] = 0;
+    }
+    if (!($mem[$famille][$donnee]++)) {
+        return $donnee;
+    }
 }
 
 
@@ -1919,16 +1919,16 @@ 
  *     Une des valeurs en fonction du compteur.
  **/
 function alterner($i, ...$args) {
-	// recuperer les arguments (attention fonctions un peu space)
-	$num = count($args);
+    // recuperer les arguments (attention fonctions un peu space)
+    $num = count($args);
 
-	if ($num === 1 && is_array($args[0])) {
-		$args = $args[0];
-		$num = count($args);
-	}
+    if ($num === 1 && is_array($args[0])) {
+        $args = $args[0];
+        $num = count($args);
+    }
 
-	// renvoyer le i-ieme argument, modulo le nombre d'arguments
-	return $args[(intval($i) - 1) % $num];
+    // renvoyer le i-ieme argument, modulo le nombre d'arguments
+    return $args[(intval($i) - 1) % $num];
 }
 
 
@@ -1953,46 +1953,46 @@ 
  *     - Tableau complet (si 2e argument)
  **/
 function extraire_attribut($balise, $attribut, $complet = false) {
-	if (is_array($balise)) {
-		array_walk(
-			$balise,
-			function(&$a, $key, $t){
-				$a = extraire_attribut($a, $t);
-			},
-			$attribut
-		);
-
-		return $balise;
-	}
-	if (preg_match(
-		',(^.*?<(?:(?>\s*)(?>[\w:.-]+)(?>(?:=(?:"[^"]*"|\'[^\']*\'|[^\'"]\S*))?))*?)(\s+'
-		. $attribut
-		. '(?:=\s*("[^"]*"|\'[^\']*\'|[^\'"]\S*))?)()((?:[\s/][^>]*)?>.*),isS',
-
-		$balise, $r)) {
-		if (isset($r[3][0]) and ($r[3][0] == '"' || $r[3][0] == "'")) {
-			$r[4] = substr($r[3], 1, -1);
-			$r[3] = $r[3][0];
-		} elseif ($r[3] !== '') {
-			$r[4] = $r[3];
-			$r[3] = '';
-		} else {
-			$r[4] = trim($r[2]);
-		}
-		$att = $r[4];
-		if (strpos($att, "&#") !== false) {
-			$att = str_replace(array("&#039;", "&#39;", "&#034;", "&#34;"), array("'", "'", '"', '"'), $att);
-		}
-		$att = filtrer_entites($att);
-	} else {
-		$att = null;
-	}
-
-	if ($complet) {
-		return array($att, $r);
-	} else {
-		return $att;
-	}
+    if (is_array($balise)) {
+        array_walk(
+            $balise,
+            function(&$a, $key, $t){
+                $a = extraire_attribut($a, $t);
+            },
+            $attribut
+        );
+
+        return $balise;
+    }
+    if (preg_match(
+        ',(^.*?<(?:(?>\s*)(?>[\w:.-]+)(?>(?:=(?:"[^"]*"|\'[^\']*\'|[^\'"]\S*))?))*?)(\s+'
+        . $attribut
+        . '(?:=\s*("[^"]*"|\'[^\']*\'|[^\'"]\S*))?)()((?:[\s/][^>]*)?>.*),isS',
+
+        $balise, $r)) {
+        if (isset($r[3][0]) and ($r[3][0] == '"' || $r[3][0] == "'")) {
+            $r[4] = substr($r[3], 1, -1);
+            $r[3] = $r[3][0];
+        } elseif ($r[3] !== '') {
+            $r[4] = $r[3];
+            $r[3] = '';
+        } else {
+            $r[4] = trim($r[2]);
+        }
+        $att = $r[4];
+        if (strpos($att, "&#") !== false) {
+            $att = str_replace(array("&#039;", "&#39;", "&#034;", "&#34;"), array("'", "'", '"', '"'), $att);
+        }
+        $att = filtrer_entites($att);
+    } else {
+        $att = null;
+    }
+
+    if ($complet) {
+        return array($att, $r);
+    } else {
+        return $att;
+    }
 }
 
 /**
@@ -2024,37 +2024,37 @@ 
  *     Code html modifié
  **/
 function inserer_attribut($balise, $attribut, $val, $proteger = true, $vider = false) {
-	// preparer l'attribut
-	// supprimer les &nbsp; etc mais pas les balises html
-	// qui ont un sens dans un attribut value d'un input
-	if ($proteger) {
-		$val = attribut_html($val, false);
-	}
-
-	// echapper les ' pour eviter tout bug
-	$val = str_replace("'", "&#039;", $val);
-	if ($vider and strlen($val) == 0) {
-		$insert = '';
-	} else {
-		$insert = " $attribut='$val'";
-	}
-
-	list($old, $r) = extraire_attribut($balise, $attribut, true);
-
-	if ($old !== null) {
-		// Remplacer l'ancien attribut du meme nom
-		$balise = $r[1] . $insert . $r[5];
-	} else {
-		// preferer une balise " />" (comme <img />)
-		if (preg_match(',/>,', $balise)) {
-			$balise = preg_replace(",\s?/>,S", $insert . " />", $balise, 1);
-		} // sinon une balise <a ...> ... </a>
-		else {
-			$balise = preg_replace(",\s?>,S", $insert . ">", $balise, 1);
-		}
-	}
-
-	return $balise;
+    // preparer l'attribut
+    // supprimer les &nbsp; etc mais pas les balises html
+    // qui ont un sens dans un attribut value d'un input
+    if ($proteger) {
+        $val = attribut_html($val, false);
+    }
+
+    // echapper les ' pour eviter tout bug
+    $val = str_replace("'", "&#039;", $val);
+    if ($vider and strlen($val) == 0) {
+        $insert = '';
+    } else {
+        $insert = " $attribut='$val'";
+    }
+
+    list($old, $r) = extraire_attribut($balise, $attribut, true);
+
+    if ($old !== null) {
+        // Remplacer l'ancien attribut du meme nom
+        $balise = $r[1] . $insert . $r[5];
+    } else {
+        // preferer une balise " />" (comme <img />)
+        if (preg_match(',/>,', $balise)) {
+            $balise = preg_replace(",\s?/>,S", $insert . " />", $balise, 1);
+        } // sinon une balise <a ...> ... </a>
+        else {
+            $balise = preg_replace(",\s?>,S", $insert . ">", $balise, 1);
+        }
+    }
+
+    return $balise;
 }
 
 /**
@@ -2072,7 +2072,7 @@ 
  * @return string Code HTML sans l'attribut
  **/
 function vider_attribut($balise, $attribut) {
-	return inserer_attribut($balise, $attribut, '', false, true);
+    return inserer_attribut($balise, $attribut, '', false, true);
 }
 
 /**
@@ -2084,50 +2084,50 @@ 
  * @return string
  */
 function modifier_class($balise, $class, $operation='ajouter') {
-	if (is_string($class)) {
-		$class = explode(' ', trim($class));
-	}
-	$class = array_filter($class);
-
-	// si la ou les classes ont des caracteres invalides on ne fait rien
-	if (preg_match(",[^\w-],", implode('', $class))) {
-		return $balise;
-	}
-
-	if ($class) {
-		$class = array_unique($class);
-		$class_courante = extraire_attribut($balise, 'class');
-
-		$class_new = $class_courante;
-		foreach ($class as $c) {
-			if ($c) {
-				$is_class_presente = false;
-				if (strpos($class_courante, $c) !== false
-					and preg_match("/(^|\s)".preg_quote($c)."($|\s)/", $class_courante)) {
-					$is_class_presente = true;
-				}
-				if (in_array($operation, ['ajouter', 'commuter'])
-					and !$is_class_presente) {
-					$class_new = rtrim($class_new) . " " . $c;
-				}
-				elseif (in_array($operation, ['supprimer', 'commuter'])
-					and $is_class_presente) {
-					$class_new = trim(preg_replace("/(^|\s)".preg_quote($c)."($|\s)/", "\\1", $class_new));
-				}
-			}
-		}
-
-		if ($class_new !== $class_courante) {
-			if (strlen($class_new)) {
-				$balise = inserer_attribut($balise, 'class', $class_new);
-			}
-			elseif ($class_courante) {
-				$balise = vider_attribut($balise, 'class');
-			}
-		}
-	}
-
-	return $balise;
+    if (is_string($class)) {
+        $class = explode(' ', trim($class));
+    }
+    $class = array_filter($class);
+
+    // si la ou les classes ont des caracteres invalides on ne fait rien
+    if (preg_match(",[^\w-],", implode('', $class))) {
+        return $balise;
+    }
+
+    if ($class) {
+        $class = array_unique($class);
+        $class_courante = extraire_attribut($balise, 'class');
+
+        $class_new = $class_courante;
+        foreach ($class as $c) {
+            if ($c) {
+                $is_class_presente = false;
+                if (strpos($class_courante, $c) !== false
+                    and preg_match("/(^|\s)".preg_quote($c)."($|\s)/", $class_courante)) {
+                    $is_class_presente = true;
+                }
+                if (in_array($operation, ['ajouter', 'commuter'])
+                    and !$is_class_presente) {
+                    $class_new = rtrim($class_new) . " " . $c;
+                }
+                elseif (in_array($operation, ['supprimer', 'commuter'])
+                    and $is_class_presente) {
+                    $class_new = trim(preg_replace("/(^|\s)".preg_quote($c)."($|\s)/", "\\1", $class_new));
+                }
+            }
+        }
+
+        if ($class_new !== $class_courante) {
+            if (strlen($class_new)) {
+                $balise = inserer_attribut($balise, 'class', $class_new);
+            }
+            elseif ($class_courante) {
+                $balise = vider_attribut($balise, 'class');
+            }
+        }
+    }
+
+    return $balise;
 }
 
 /**
@@ -2137,7 +2137,7 @@ 
  * @return string
  */
 function ajouter_class($balise, $class){
-	return modifier_class($balise, $class, 'ajouter');
+    return modifier_class($balise, $class, 'ajouter');
 }
 
 /**
@@ -2147,7 +2147,7 @@ 
  * @return string
  */
 function supprimer_class($balise, $class){
-	return modifier_class($balise, $class, 'supprimer');
+    return modifier_class($balise, $class, 'supprimer');
 }
 
 /**
@@ -2158,7 +2158,7 @@ 
  * @return string
  */
 function commuter_class($balise, $class){
-	return modifier_class($balise, $class, 'commuter');
+    return modifier_class($balise, $class, 'commuter');
 }
 
 /**
@@ -2169,9 +2169,9 @@ 
  * @return string
  */
 function tester_config($id, $mode = '') {
-	include_spip('action/inscrire_auteur');
+    include_spip('action/inscrire_auteur');
 
-	return tester_statut_inscription($mode, $id);
+    return tester_statut_inscription($mode, $id);
 }
 
 //
@@ -2196,7 +2196,7 @@ 
  * @return int $a+$b
  **/
 function plus($a, $b) {
-	return $a + $b;
+    return $a + $b;
 }
 function strplus($a, $b) {return strize('plus', $a, $b);}
 /**
@@ -2215,7 +2215,7 @@ 
  * @return int $a-$b
  **/
 function moins($a, $b) {
-	return $a - $b;
+    return $a - $b;
 }
 function strmoins($a, $b) {return strize('moins', $a, $b);}
 
@@ -2236,7 +2236,7 @@ 
  * @return int $a*$b
  **/
 function mult($a, $b) {
-	return $a * $b;
+    return $a * $b;
 }
 function strmult($a, $b) {return strize('mult', $a, $b);}
 
@@ -2257,7 +2257,7 @@ 
  * @return int $a/$b (ou 0 si $b est nul)
  **/
 function div($a, $b) {
-	return $b ? $a / $b : 0;
+    return $b ? $a / $b : 0;
 }
 function strdiv($a, $b) {return strize('div', $a, $b);}
 
@@ -2279,7 +2279,7 @@ 
  * @return int ($nb % $mod) + $add
  **/
 function modulo($nb, $mod, $add = 0) {
-	return ($mod ? $nb % $mod : 0) + $add;
+    return ($mod ? $nb % $mod : 0) + $add;
 }
 
 
@@ -2294,24 +2294,24 @@ 
  *      - true sinon
  **/
 function nom_acceptable($nom) {
-	if (!is_string($nom)) {
-		return false;
-	}
-	if (!defined('_TAGS_NOM_AUTEUR')) {
-		define('_TAGS_NOM_AUTEUR', '');
-	}
-	$tags_acceptes = array_unique(explode(',', 'multi,' . _TAGS_NOM_AUTEUR));
-	foreach ($tags_acceptes as $tag) {
-		if (strlen($tag)) {
-			$remp1[] = '<' . trim($tag) . '>';
-			$remp1[] = '</' . trim($tag) . '>';
-			$remp2[] = '\x60' . trim($tag) . '\x61';
-			$remp2[] = '\x60/' . trim($tag) . '\x61';
-		}
-	}
-	$v_nom = str_replace($remp2, $remp1, supprimer_tags(str_replace($remp1, $remp2, $nom)));
+    if (!is_string($nom)) {
+        return false;
+    }
+    if (!defined('_TAGS_NOM_AUTEUR')) {
+        define('_TAGS_NOM_AUTEUR', '');
+    }
+    $tags_acceptes = array_unique(explode(',', 'multi,' . _TAGS_NOM_AUTEUR));
+    foreach ($tags_acceptes as $tag) {
+        if (strlen($tag)) {
+            $remp1[] = '<' . trim($tag) . '>';
+            $remp1[] = '</' . trim($tag) . '>';
+            $remp2[] = '\x60' . trim($tag) . '\x61';
+            $remp2[] = '\x60/' . trim($tag) . '\x61';
+        }
+    }
+    $v_nom = str_replace($remp2, $remp1, supprimer_tags(str_replace($remp1, $remp2, $nom)));
 
-	return str_replace('&lt;', '<', $v_nom) == $nom;
+    return str_replace('&lt;', '<', $v_nom) == $nom;
 }
 
 
@@ -2327,14 +2327,14 @@ 
  *      - renvoie un tableau si l'entree est un tableau
  **/
 function email_valide($adresses) {
-	if (is_array($adresses)) {
-		$adresses = array_map('email_valide', $adresses);
-		$adresses = array_filter($adresses);
-		return $adresses;
-	}
+    if (is_array($adresses)) {
+        $adresses = array_map('email_valide', $adresses);
+        $adresses = array_filter($adresses);
+        return $adresses;
+    }
 
-	$email_valide = charger_fonction('email_valide', 'inc');
-	return $email_valide($adresses);
+    $email_valide = charger_fonction('email_valide', 'inc');
+    return $email_valide($adresses);
 }
 
 /**
@@ -2348,20 +2348,20 @@ 
  * @return string Texte
  **/
 function afficher_enclosures($tags) {
-	$s = array();
-	foreach (extraire_balises($tags, 'a') as $tag) {
-		if (extraire_attribut($tag, 'rel') == 'enclosure'
-			and $t = extraire_attribut($tag, 'href')
-		) {
-			$s[] = preg_replace(',>[^<]+</a>,S',
-				'>'
-				. http_img_pack('attachment-16.png', $t,
-					'title="' . attribut_html($t) . '"')
-				. '</a>', $tag);
-		}
-	}
+    $s = array();
+    foreach (extraire_balises($tags, 'a') as $tag) {
+        if (extraire_attribut($tag, 'rel') == 'enclosure'
+            and $t = extraire_attribut($tag, 'href')
+        ) {
+            $s[] = preg_replace(',>[^<]+</a>,S',
+                '>'
+                . http_img_pack('attachment-16.png', $t,
+                    'title="' . attribut_html($t) . '"')
+                . '</a>', $tag);
+        }
+    }
 
-	return join('&nbsp;', $s);
+    return join('&nbsp;', $s);
 }
 
 /**
@@ -2376,15 +2376,15 @@ 
  * @return string Liens trouvés
  **/
 function afficher_tags($tags, $rels = 'tag,directory') {
-	$s = array();
-	foreach (extraire_balises($tags, 'a') as $tag) {
-		$rel = extraire_attribut($tag, 'rel');
-		if (strstr(",$rels,", ",$rel,")) {
-			$s[] = $tag;
-		}
-	}
+    $s = array();
+    foreach (extraire_balises($tags, 'a') as $tag) {
+        $rel = extraire_attribut($tag, 'rel');
+        if (strstr(",$rels,", ",$rel,")) {
+            $s[] = $tag;
+        }
+    }
 
-	return join(', ', $s);
+    return join(', ', $s);
 }
 
 
@@ -2406,21 +2406,21 @@ 
  * @return string Tag HTML `<a>` avec microformat.
  **/
 function enclosure2microformat($e) {
-	if (!$url = filtrer_entites(extraire_attribut($e, 'url'))) {
-		$url = filtrer_entites(extraire_attribut($e, 'href'));
-	}
-	$type = extraire_attribut($e, 'type');
-	if (!$length = extraire_attribut($e, 'length')) {
-		# <media:content : longeur dans fileSize. On tente.
-		$length = extraire_attribut($e, 'fileSize');
-	}
-	$fichier = basename($url);
+    if (!$url = filtrer_entites(extraire_attribut($e, 'url'))) {
+        $url = filtrer_entites(extraire_attribut($e, 'href'));
+    }
+    $type = extraire_attribut($e, 'type');
+    if (!$length = extraire_attribut($e, 'length')) {
+        # <media:content : longeur dans fileSize. On tente.
+        $length = extraire_attribut($e, 'fileSize');
+    }
+    $fichier = basename($url);
 
-	return '<a rel="enclosure"'
-	. ($url ? ' href="' . spip_htmlspecialchars($url) . '"' : '')
-	. ($type ? ' type="' . spip_htmlspecialchars($type) . '"' : '')
-	. ($length ? ' title="' . spip_htmlspecialchars($length) . '"' : '')
-	. '>' . $fichier . '</a>';
+    return '<a rel="enclosure"'
+    . ($url ? ' href="' . spip_htmlspecialchars($url) . '"' : '')
+    . ($type ? ' type="' . spip_htmlspecialchars($type) . '"' : '')
+    . ($length ? ' title="' . spip_htmlspecialchars($length) . '"' : '')
+    . '>' . $fichier . '</a>';
 }
 
 /**
@@ -2438,24 +2438,24 @@ 
  * @return string Tags RSS `<enclosure>`.
  **/
 function microformat2enclosure($tags) {
-	$enclosures = array();
-	foreach (extraire_balises($tags, 'a') as $e) {
-		if (extraire_attribut($e, 'rel') == 'enclosure') {
-			$url = filtrer_entites(extraire_attribut($e, 'href'));
-			$type = extraire_attribut($e, 'type');
-			if (!$length = intval(extraire_attribut($e, 'title'))) {
-				$length = intval(extraire_attribut($e, 'length'));
-			} # vieux data
-			$fichier = basename($url);
-			$enclosures[] = '<enclosure'
-				. ($url ? ' url="' . spip_htmlspecialchars($url) . '"' : '')
-				. ($type ? ' type="' . spip_htmlspecialchars($type) . '"' : '')
-				. ($length ? ' length="' . $length . '"' : '')
-				. ' />';
-		}
-	}
+    $enclosures = array();
+    foreach (extraire_balises($tags, 'a') as $e) {
+        if (extraire_attribut($e, 'rel') == 'enclosure') {
+            $url = filtrer_entites(extraire_attribut($e, 'href'));
+            $type = extraire_attribut($e, 'type');
+            if (!$length = intval(extraire_attribut($e, 'title'))) {
+                $length = intval(extraire_attribut($e, 'length'));
+            } # vieux data
+            $fichier = basename($url);
+            $enclosures[] = '<enclosure'
+                . ($url ? ' url="' . spip_htmlspecialchars($url) . '"' : '')
+                . ($type ? ' type="' . spip_htmlspecialchars($type) . '"' : '')
+                . ($length ? ' length="' . $length . '"' : '')
+                . ' />';
+        }
+    }
 
-	return join("\n", $enclosures);
+    return join("\n", $enclosures);
 }
 
 
@@ -2471,16 +2471,16 @@ 
  * @return string Tags RSS Atom `<dc:subject>`.
  **/
 function tags2dcsubject($tags) {
-	$subjects = '';
-	foreach (extraire_balises($tags, 'a') as $e) {
-		if (extraire_attribut($e, 'rel') == 'tag') {
-			$subjects .= '<dc:subject>'
-				. texte_backend(textebrut($e))
-				. '</dc:subject>' . "\n";
-		}
-	}
+    $subjects = '';
+    foreach (extraire_balises($tags, 'a') as $e) {
+        if (extraire_attribut($e, 'rel') == 'tag') {
+            $subjects .= '<dc:subject>'
+                . texte_backend(textebrut($e))
+                . '</dc:subject>' . "\n";
+        }
+    }
 
-	return $subjects;
+    return $subjects;
 }
 
 /**
@@ -2509,23 +2509,23 @@ 
  *     - Tableau de résultats, si tableau en entrée.
  **/
 function extraire_balise($texte, $tag = 'a') {
-	if (is_array($texte)) {
-		array_walk(
-			$texte,
-			function(&$a, $key, $t){
-				$a = extraire_balise($a, $t);
-			},
-			$tag
-		);
+    if (is_array($texte)) {
+        array_walk(
+            $texte,
+            function(&$a, $key, $t){
+                $a = extraire_balise($a, $t);
+            },
+            $tag
+        );
 
-		return $texte;
-	}
+        return $texte;
+    }
 
-	if (preg_match(
-		",<$tag\b[^>]*(/>|>.*</$tag\b[^>]*>|>),UimsS",
-		$texte, $regs)) {
-		return $regs[0];
-	}
+    if (preg_match(
+        ",<$tag\b[^>]*(/>|>.*</$tag\b[^>]*>|>),UimsS",
+        $texte, $regs)) {
+        return $regs[0];
+    }
 }
 
 /**
@@ -2553,25 +2553,25 @@ 
  *     - Tableau de résultats, si tableau en entrée.
  **/
 function extraire_balises($texte, $tag = 'a') {
-	if (is_array($texte)) {
-		array_walk(
-			$texte,
-			function(&$a, $key, $t){
-				$a = extraire_balises($a, $t);
-			},
-			$tag
-		);
+    if (is_array($texte)) {
+        array_walk(
+            $texte,
+            function(&$a, $key, $t){
+                $a = extraire_balises($a, $t);
+            },
+            $tag
+        );
 
-		return $texte;
-	}
+        return $texte;
+    }
 
-	if (preg_match_all(
-		",<${tag}\b[^>]*(/>|>.*</${tag}\b[^>]*>|>),UimsS",
-		$texte, $regs, PREG_PATTERN_ORDER)) {
-		return $regs[0];
-	} else {
-		return array();
-	}
+    if (preg_match_all(
+        ",<${tag}\b[^>]*(/>|>.*</${tag}\b[^>]*>|>),UimsS",
+        $texte, $regs, PREG_PATTERN_ORDER)) {
+        return $regs[0];
+    } else {
+        return array();
+    }
 }
 
 /**
@@ -2600,11 +2600,11 @@ 
  *     - `$def` si on n'a pas transmis de tableau
  **/
 function in_any($val, $vals, $def = '') {
-	if (!is_array($vals) and $v = unserialize($vals)) {
-		$vals = $v;
-	}
+    if (!is_array($vals) and $v = unserialize($vals)) {
+        $vals = $v;
+    }
 
-	return (!is_array($vals) ? $def : (in_array($val, $vals) ? ' ' : ''));
+    return (!is_array($vals) ? $def : (in_array($val, $vals) ? ' ' : ''));
 }
 
 
@@ -2625,12 +2625,12 @@ 
  *     Résultat du calcul
  **/
 function valeur_numerique($expr) {
-	$a = 0;
-	if (preg_match(',^[0-9]+(\s*[+*-]\s*[0-9]+)*$,S', trim($expr))) {
-		eval("\$a = $expr;");
-	}
+    $a = 0;
+    if (preg_match(',^[0-9]+(\s*[+*-]\s*[0-9]+)*$,S', trim($expr))) {
+        eval("\$a = $expr;");
+    }
 
-	return intval($a);
+    return intval($a);
 }
 
 /**
@@ -2649,7 +2649,7 @@ 
  *      Retourne `$a*$b/$c`
  **/
 function regledetrois($a, $b, $c) {
-	return round($a * $b / $c);
+    return round($a * $b / $c);
 }
 
 
@@ -2673,76 +2673,76 @@ 
  **/
 function form_hidden($action) {
 
-	$contexte = array();
-	include_spip('inc/urls');
-	if ($p = urls_decoder_url($action, '')
-		and reset($p)
-	) {
-		$fond = array_shift($p);
-		if ($fond != '404') {
-			$contexte = array_shift($p);
-			$contexte['page'] = $fond;
-			$action = preg_replace('/([?]' . preg_quote($fond) . '[^&=]*[0-9]+)(&|$)/', '?&', $action);
-		}
-	}
-	// defaire ce qu'a injecte urls_decoder_url : a revoir en modifiant la signature de urls_decoder_url
-	if (defined('_DEFINIR_CONTEXTE_TYPE') and _DEFINIR_CONTEXTE_TYPE) {
-		unset($contexte['type']);
-	}
-	if (defined('_DEFINIR_CONTEXTE_TYPE_PAGE') and _DEFINIR_CONTEXTE_TYPE_PAGE) {
-		unset($contexte['type-page']);
-	}
-
-	// on va remplir un tableau de valeurs en prenant bien soin de ne pas
-	// ecraser les elements de la forme mots[]=1&mots[]=2
-	$values = array();
-
-	// d'abord avec celles de l'url
-	if (false !== ($p = strpos($action, '?'))) {
-		foreach (preg_split('/&(amp;)?/S', substr($action, $p + 1)) as $c) {
-			$c = explode('=', $c, 2);
-			$var = array_shift($c);
-			$val = array_shift($c);
-			if ($var) {
-				$val = rawurldecode($val);
-				$var = rawurldecode($var); // decoder les [] eventuels
-				if (preg_match(',\[\]$,S', $var)) {
-					$values[] = array($var, $val);
-				} else {
-					if (!isset($values[$var])) {
-						$values[$var] = array($var, $val);
-					}
-				}
-			}
-		}
-	}
-
-	// ensuite avec celles du contexte, sans doublonner !
-	foreach ($contexte as $var => $val) {
-		if (preg_match(',\[\]$,S', $var)) {
-			$values[] = array($var, $val);
-		} else {
-			if (!isset($values[$var])) {
-				$values[$var] = array($var, $val);
-			}
-		}
-	}
-
-	// puis on rassemble le tout
-	$hidden = array();
-	foreach ($values as $value) {
-		list($var, $val) = $value;
-		$hidden[] = '<input name="'
-			. entites_html($var)
-			. '"'
-			. (is_null($val)
-				? ''
-				: ' value="' . entites_html($val) . '"'
-			)
-			. ' type="hidden"' . "\n/>";
-	}
-
-	return join("", $hidden);
+    $contexte = array();
+    include_spip('inc/urls');
+    if ($p = urls_decoder_url($action, '')
+        and reset($p)
+    ) {
+        $fond = array_shift($p);
+        if ($fond != '404') {
+            $contexte = array_shift($p);
+            $contexte['page'] = $fond;
+            $action = preg_replace('/([?]' . preg_quote($fond) . '[^&=]*[0-9]+)(&|$)/', '?&', $action);
+        }
+    }
+    // defaire ce qu'a injecte urls_decoder_url : a revoir en modifiant la signature de urls_decoder_url
+    if (defined('_DEFINIR_CONTEXTE_TYPE') and _DEFINIR_CONTEXTE_TYPE) {
+        unset($contexte['type']);
+    }
+    if (defined('_DEFINIR_CONTEXTE_TYPE_PAGE') and _DEFINIR_CONTEXTE_TYPE_PAGE) {
+        unset($contexte['type-page']);
+    }
+
+    // on va remplir un tableau de valeurs en prenant bien soin de ne pas
+    // ecraser les elements de la forme mots[]=1&mots[]=2
+    $values = array();
+
+    // d'abord avec celles de l'url
+    if (false !== ($p = strpos($action, '?'))) {
+        foreach (preg_split('/&(amp;)?/S', substr($action, $p + 1)) as $c) {
+            $c = explode('=', $c, 2);
+            $var = array_shift($c);
+            $val = array_shift($c);
+            if ($var) {
+                $val = rawurldecode($val);
+                $var = rawurldecode($var); // decoder les [] eventuels
+                if (preg_match(',\[\]$,S', $var)) {
+                    $values[] = array($var, $val);
+                } else {
+                    if (!isset($values[$var])) {
+                        $values[$var] = array($var, $val);
+                    }
+                }
+            }
+        }
+    }
+
+    // ensuite avec celles du contexte, sans doublonner !
+    foreach ($contexte as $var => $val) {
+        if (preg_match(',\[\]$,S', $var)) {
+            $values[] = array($var, $val);
+        } else {
+            if (!isset($values[$var])) {
+                $values[$var] = array($var, $val);
+            }
+        }
+    }
+
+    // puis on rassemble le tout
+    $hidden = array();
+    foreach ($values as $value) {
+        list($var, $val) = $value;
+        $hidden[] = '<input name="'
+            . entites_html($var)
+            . '"'
+            . (is_null($val)
+                ? ''
+                : ' value="' . entites_html($val) . '"'
+            )
+            . ' type="hidden"' . "\n/>";
+    }
+
+    return join("", $hidden);
 }
 
 
@@ -2764,7 +2764,7 @@ 
  *    - la première valeur du tableau sinon.
  **/
 function filtre_reset($array) {
-	return !is_array($array) ? null : reset($array);
+    return !is_array($array) ? null : reset($array);
 }
 
 /**
@@ -2785,7 +2785,7 @@ 
  *    - la dernière valeur du tableau sinon.
  **/
 function filtre_end($array) {
-	return !is_array($array) ? null : end($array);
+    return !is_array($array) ? null : end($array);
 }
 
 /**
@@ -2805,11 +2805,11 @@ 
  *
  **/
 function filtre_push($array, $val) {
-	if (!is_array($array) or !array_push($array, $val)) {
-		return '';
-	}
+    if (!is_array($array) or !array_push($array, $val)) {
+        return '';
+    }
 
-	return $array;
+    return $array;
 }
 
 /**
@@ -2828,7 +2828,7 @@ 
  *     - `true` si la valeur existe dans le tableau, `false` sinon.
  **/
 function filtre_find($array, $val) {
-	return (is_array($array) and in_array($val, $array));
+    return (is_array($array) and in_array($val, $array));
 }
 
 
@@ -2845,15 +2845,15 @@ 
  *     Contenu avec urls en absolus
  **/
 function urls_absolues_css($contenu, $source) {
-	$path = suivre_lien(url_absolue($source), './');
+    $path = suivre_lien(url_absolue($source), './');
 
-	return preg_replace_callback(
-		",url\s*\(\s*['\"]?([^'\"/#\s][^:]*)['\"]?\s*\),Uims",
-		function($x) use ($path) {
-			return "url('" . suivre_lien($path, $x[1]) . "')";
-		},
-		$contenu
-	);
+    return preg_replace_callback(
+        ",url\s*\(\s*['\"]?([^'\"/#\s][^:]*)['\"]?\s*\),Uims",
+        function($x) use ($path) {
+            return "url('" . suivre_lien($path, $x[1]) . "')";
+        },
+        $contenu
+    );
 }
 
 
@@ -2882,118 +2882,118 @@ 
  *     Chemin du fichier CSS inversé
  **/
 function direction_css($css, $voulue = '') {
-	if (!preg_match(',(_rtl)?\.css$,i', $css, $r)) {
-		return $css;
-	}
-	include_spip("inc/lang");
-	// si on a precise le sens voulu en argument, le prendre en compte
-	if ($voulue = strtolower($voulue)) {
-		if ($voulue != 'rtl' and $voulue != 'ltr') {
-			$voulue = lang_dir($voulue);
-		}
-	} else {
-		$voulue = lang_dir();
-	}
-
-	$r = count($r) > 1;
-	$right = $r ? 'left' : 'right'; // 'right' de la css lue en entree
-	$dir = $r ? 'rtl' : 'ltr';
-	$ndir = $r ? 'ltr' : 'rtl';
-
-	if ($voulue == $dir) {
-		return $css;
-	}
-
-	if (
-		// url absolue
-		preg_match(",^https?:,i", $css)
-		// ou qui contient un ?
-		or (($p = strpos($css, '?')) !== false)
-	) {
-		$distant = true;
-		$cssf = parse_url($css);
-		$cssf = $cssf['path'] . ($cssf['query'] ? "?" . $cssf['query'] : "");
-		$cssf = preg_replace(',[?:&=],', "_", $cssf);
-	} else {
-		$distant = false;
-		$cssf = $css;
-		// 1. regarder d'abord si un fichier avec la bonne direction n'est pas aussi
-		//propose (rien a faire dans ce cas)
-		$f = preg_replace(',(_rtl)?\.css$,i', '_' . $ndir . '.css', $css);
-		if (@file_exists($f)) {
-			return $f;
-		}
-	}
-
-	// 2.
-	$dir_var = sous_repertoire(_DIR_VAR, 'cache-css');
-	$f = $dir_var
-		. preg_replace(',.*/(.*?)(_rtl)?\.css,', '\1', $cssf)
-		. '.' . substr(md5($cssf), 0, 4) . '_' . $ndir . '.css';
-
-	// la css peut etre distante (url absolue !)
-	if ($distant) {
-		include_spip('inc/distant');
-		$res = recuperer_url($css);
-		if (!$res or !$contenu = $res['page']) {
-			return $css;
-		}
-	} else {
-		if ((@filemtime($f) > @filemtime($css))
-			and (_VAR_MODE != 'recalcul')
-		) {
-			return $f;
-		}
-		if (!lire_fichier($css, $contenu)) {
-			return $css;
-		}
-	}
-
-
-	// Inverser la direction gauche-droite en utilisant CSSTidy qui gere aussi les shorthands
-	include_spip("lib/csstidy/class.csstidy");
-	$parser = new csstidy();
-	$parser->set_cfg('optimise_shorthands', 0);
-	$parser->set_cfg('reverse_left_and_right', true);
-	$parser->parse($contenu);
-
-	$contenu = $parser->print->plain();
-
-
-	// reperer les @import auxquels il faut propager le direction_css
-	preg_match_all(",\@import\s*url\s*\(\s*['\"]?([^'\"/][^:]*)['\"]?\s*\),Uims", $contenu, $regs);
-	$src = array();
-	$src_direction_css = array();
-	$src_faux_abs = array();
-	$d = dirname($css);
-	foreach ($regs[1] as $k => $import_css) {
-		$css_direction = direction_css("$d/$import_css", $voulue);
-		// si la css_direction est dans le meme path que la css d'origine, on tronque le path, elle sera passee en absolue
-		if (substr($css_direction, 0, strlen($d) + 1) == "$d/") {
-			$css_direction = substr($css_direction, strlen($d) + 1);
-		} // si la css_direction commence par $dir_var on la fait passer pour une absolue
-		elseif (substr($css_direction, 0, strlen($dir_var)) == $dir_var) {
-			$css_direction = substr($css_direction, strlen($dir_var));
-			$src_faux_abs["/@@@@@@/" . $css_direction] = $css_direction;
-			$css_direction = "/@@@@@@/" . $css_direction;
-		}
-		$src[] = $regs[0][$k];
-		$src_direction_css[] = str_replace($import_css, $css_direction, $regs[0][$k]);
-	}
-	$contenu = str_replace($src, $src_direction_css, $contenu);
-
-	$contenu = urls_absolues_css($contenu, $css);
-
-	// virer les fausses url absolues que l'on a mis dans les import
-	if (count($src_faux_abs)) {
-		$contenu = str_replace(array_keys($src_faux_abs), $src_faux_abs, $contenu);
-	}
-
-	if (!ecrire_fichier($f, $contenu)) {
-		return $css;
-	}
-
-	return $f;
+    if (!preg_match(',(_rtl)?\.css$,i', $css, $r)) {
+        return $css;
+    }
+    include_spip("inc/lang");
+    // si on a precise le sens voulu en argument, le prendre en compte
+    if ($voulue = strtolower($voulue)) {
+        if ($voulue != 'rtl' and $voulue != 'ltr') {
+            $voulue = lang_dir($voulue);
+        }
+    } else {
+        $voulue = lang_dir();
+    }
+
+    $r = count($r) > 1;
+    $right = $r ? 'left' : 'right'; // 'right' de la css lue en entree
+    $dir = $r ? 'rtl' : 'ltr';
+    $ndir = $r ? 'ltr' : 'rtl';
+
+    if ($voulue == $dir) {
+        return $css;
+    }
+
+    if (
+        // url absolue
+        preg_match(",^https?:,i", $css)
+        // ou qui contient un ?
+        or (($p = strpos($css, '?')) !== false)
+    ) {
+        $distant = true;
+        $cssf = parse_url($css);
+        $cssf = $cssf['path'] . ($cssf['query'] ? "?" . $cssf['query'] : "");
+        $cssf = preg_replace(',[?:&=],', "_", $cssf);
+    } else {
+        $distant = false;
+        $cssf = $css;
+        // 1. regarder d'abord si un fichier avec la bonne direction n'est pas aussi
+        //propose (rien a faire dans ce cas)
+        $f = preg_replace(',(_rtl)?\.css$,i', '_' . $ndir . '.css', $css);
+        if (@file_exists($f)) {
+            return $f;
+        }
+    }
+
+    // 2.
+    $dir_var = sous_repertoire(_DIR_VAR, 'cache-css');
+    $f = $dir_var
+        . preg_replace(',.*/(.*?)(_rtl)?\.css,', '\1', $cssf)
+        . '.' . substr(md5($cssf), 0, 4) . '_' . $ndir . '.css';
+
+    // la css peut etre distante (url absolue !)
+    if ($distant) {
+        include_spip('inc/distant');
+        $res = recuperer_url($css);
+        if (!$res or !$contenu = $res['page']) {
+            return $css;
+        }
+    } else {
+        if ((@filemtime($f) > @filemtime($css))
+            and (_VAR_MODE != 'recalcul')
+        ) {
+            return $f;
+        }
+        if (!lire_fichier($css, $contenu)) {
+            return $css;
+        }
+    }
+
+
+    // Inverser la direction gauche-droite en utilisant CSSTidy qui gere aussi les shorthands
+    include_spip("lib/csstidy/class.csstidy");
+    $parser = new csstidy();
+    $parser->set_cfg('optimise_shorthands', 0);
+    $parser->set_cfg('reverse_left_and_right', true);
+    $parser->parse($contenu);
+
+    $contenu = $parser->print->plain();
+
+
+    // reperer les @import auxquels il faut propager le direction_css
+    preg_match_all(",\@import\s*url\s*\(\s*['\"]?([^'\"/][^:]*)['\"]?\s*\),Uims", $contenu, $regs);
+    $src = array();
+    $src_direction_css = array();
+    $src_faux_abs = array();
+    $d = dirname($css);
+    foreach ($regs[1] as $k => $import_css) {
+        $css_direction = direction_css("$d/$import_css", $voulue);
+        // si la css_direction est dans le meme path que la css d'origine, on tronque le path, elle sera passee en absolue
+        if (substr($css_direction, 0, strlen($d) + 1) == "$d/") {
+            $css_direction = substr($css_direction, strlen($d) + 1);
+        } // si la css_direction commence par $dir_var on la fait passer pour une absolue
+        elseif (substr($css_direction, 0, strlen($dir_var)) == $dir_var) {
+            $css_direction = substr($css_direction, strlen($dir_var));
+            $src_faux_abs["/@@@@@@/" . $css_direction] = $css_direction;
+            $css_direction = "/@@@@@@/" . $css_direction;
+        }
+        $src[] = $regs[0][$k];
+        $src_direction_css[] = str_replace($import_css, $css_direction, $regs[0][$k]);
+    }
+    $contenu = str_replace($src, $src_direction_css, $contenu);
+
+    $contenu = urls_absolues_css($contenu, $css);
+
+    // virer les fausses url absolues que l'on a mis dans les import
+    if (count($src_faux_abs)) {
+        $contenu = str_replace(array_keys($src_faux_abs), $src_faux_abs, $contenu);
+    }
+
+    if (!ecrire_fichier($f, $contenu)) {
+        return $css;
+    }
+
+    return $f;
 }
 
 
@@ -3016,43 +3016,43 @@ 
  *     - Chemin ou URL du fichier CSS source sinon.
  **/
 function url_absolue_css($css) {
-	if (!preg_match(',\.css$,i', $css, $r)) {
-		return $css;
-	}
+    if (!preg_match(',\.css$,i', $css, $r)) {
+        return $css;
+    }
 
-	$url_absolue_css = url_absolue($css);
+    $url_absolue_css = url_absolue($css);
 
-	$f = basename($css, '.css');
-	$f = sous_repertoire(_DIR_VAR, 'cache-css')
-		. preg_replace(",(.*?)(_rtl|_ltr)?$,", "\\1-urlabs-" . substr(md5("$css-urlabs"), 0, 4) . "\\2", $f)
-		. '.css';
+    $f = basename($css, '.css');
+    $f = sous_repertoire(_DIR_VAR, 'cache-css')
+        . preg_replace(",(.*?)(_rtl|_ltr)?$,", "\\1-urlabs-" . substr(md5("$css-urlabs"), 0, 4) . "\\2", $f)
+        . '.css';
 
-	if ((@filemtime($f) > @filemtime($css)) and (_VAR_MODE != 'recalcul')) {
-		return $f;
-	}
+    if ((@filemtime($f) > @filemtime($css)) and (_VAR_MODE != 'recalcul')) {
+        return $f;
+    }
 
-	if ($url_absolue_css == $css) {
-		if (strncmp($GLOBALS['meta']['adresse_site'], $css, $l = strlen($GLOBALS['meta']['adresse_site'])) != 0
-			or !lire_fichier(_DIR_RACINE . substr($css, $l), $contenu)
-		) {
-			include_spip('inc/distant');
-			if (!$contenu = recuperer_page($css)) {
-				return $css;
-			}
-		}
-	} elseif (!lire_fichier($css, $contenu)) {
-		return $css;
-	}
+    if ($url_absolue_css == $css) {
+        if (strncmp($GLOBALS['meta']['adresse_site'], $css, $l = strlen($GLOBALS['meta']['adresse_site'])) != 0
+            or !lire_fichier(_DIR_RACINE . substr($css, $l), $contenu)
+        ) {
+            include_spip('inc/distant');
+            if (!$contenu = recuperer_page($css)) {
+                return $css;
+            }
+        }
+    } elseif (!lire_fichier($css, $contenu)) {
+        return $css;
+    }
 
-	// passer les url relatives a la css d'origine en url absolues
-	$contenu = urls_absolues_css($contenu, $css);
+    // passer les url relatives a la css d'origine en url absolues
+    $contenu = urls_absolues_css($contenu, $css);
 
-	// ecrire la css
-	if (!ecrire_fichier($f, $contenu)) {
-		return $css;
-	}
+    // ecrire la css
+    if (!ecrire_fichier($f, $contenu)) {
+        return $css;
+    }
 
-	return $f;
+    return $f;
 }
 
 
@@ -3086,24 +3086,24 @@ 
  *     Valeur trouvée ou valeur par défaut.
  **/
 function table_valeur($table, $cle, $defaut = '', $conserver_null = false) {
-	foreach (explode('/', $cle) as $k) {
+    foreach (explode('/', $cle) as $k) {
 
-		$table = is_string($table) ? @unserialize($table) : $table;
+        $table = is_string($table) ? @unserialize($table) : $table;
 
-		if (is_object($table)) {
-			$table = (($k !== "") and isset($table->$k)) ? $table->$k : $defaut;
-		} elseif (is_array($table)) {
-			if ($conserver_null) {
-				$table = array_key_exists($k, $table) ? $table[$k] : $defaut;
-			} else {
-				$table = isset($table[$k]) ? $table[$k] : $defaut;
-			}
-		} else {
-			$table = $defaut;
-		}
-	}
+        if (is_object($table)) {
+            $table = (($k !== "") and isset($table->$k)) ? $table->$k : $defaut;
+        } elseif (is_array($table)) {
+            if ($conserver_null) {
+                $table = array_key_exists($k, $table) ? $table[$k] : $defaut;
+            } else {
+                $table = isset($table[$k]) ? $table[$k] : $defaut;
+            }
+        } else {
+            $table = $defaut;
+        }
+    }
 
-	return $table;
+    return $table;
 }
 
 /**
@@ -3136,22 +3136,22 @@ 
  *     - string : expression trouvée.
  **/
 function filtre_match_dist($texte, $expression, $modif = "UimsS", $capte = 0) {
-	if (intval($modif) and $capte == 0) {
-		$capte = $modif;
-		$modif = "UimsS";
-	}
-	$expression = str_replace("\/", "/", $expression);
-	$expression = str_replace("/", "\/", $expression);
+    if (intval($modif) and $capte == 0) {
+        $capte = $modif;
+        $modif = "UimsS";
+    }
+    $expression = str_replace("\/", "/", $expression);
+    $expression = str_replace("/", "\/", $expression);
 
-	if (preg_match('/' . $expression . '/' . $modif, $texte, $r)) {
-		if (isset($r[$capte])) {
-			return $r[$capte];
-		} else {
-			return true;
-		}
-	}
+    if (preg_match('/' . $expression . '/' . $modif, $texte, $r)) {
+        if (isset($r[$capte])) {
+            return $r[$capte];
+        } else {
+            return true;
+        }
+    }
 
-	return false;
+    return false;
 }
 
 
@@ -3178,10 +3178,10 @@ 
  *     Texte
  **/
 function replace($texte, $expression, $replace = '', $modif = "UimsS") {
-	$expression = str_replace("\/", "/", $expression);
-	$expression = str_replace("/", "\/", $expression);
+    $expression = str_replace("\/", "/", $expression);
+    $expression = str_replace("/", "\/", $expression);
 
-	return preg_replace('/' . $expression . '/' . $modif, $replace, $texte);
+    return preg_replace('/' . $expression . '/' . $modif, $replace, $texte);
 }
 
 
@@ -3199,21 +3199,21 @@ 
  **/
 function traiter_doublons_documents(&$doublons, $letexte) {
 
-	// Verifier dans le texte & les notes (pas beau, helas)
-	$t = $letexte . $GLOBALS['les_notes'];
+    // Verifier dans le texte & les notes (pas beau, helas)
+    $t = $letexte . $GLOBALS['les_notes'];
 
-	if (strstr($t, 'spip_document_') // evite le preg_match_all si inutile
-		and preg_match_all(
-			',<[^>]+\sclass=["\']spip_document_([0-9]+)[\s"\'],imsS',
-			$t, $matches, PREG_PATTERN_ORDER)
-	) {
-		if (!isset($doublons['documents'])) {
-			$doublons['documents'] = "";
-		}
-		$doublons['documents'] .= "," . join(',', $matches[1]);
-	}
+    if (strstr($t, 'spip_document_') // evite le preg_match_all si inutile
+        and preg_match_all(
+            ',<[^>]+\sclass=["\']spip_document_([0-9]+)[\s"\'],imsS',
+            $t, $matches, PREG_PATTERN_ORDER)
+    ) {
+        if (!isset($doublons['documents'])) {
+            $doublons['documents'] = "";
+        }
+        $doublons['documents'] .= "," . join(',', $matches[1]);
+    }
 
-	return $letexte;
+    return $letexte;
 }
 
 /**
@@ -3227,7 +3227,7 @@ 
  * @return string Chaîne vide
  **/
 function vide($texte) {
-	return "";
+    return "";
 }
 
 //
@@ -3256,23 +3256,23 @@ 
  *      Code HTML résultant
  **/
 function env_to_params($env, $ignore_params = array()) {
-	$ignore_params = array_merge(
-		array('id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'),
-		$ignore_params
-	);
-	if (!is_array($env)) {
-		$env = unserialize($env);
-	}
-	$texte = "";
-	if ($env) {
-		foreach ($env as $i => $j) {
-			if (is_string($j) and !in_array($i, $ignore_params)) {
-				$texte .= "<param name='" . attribut_html($i) . "'\n\tvalue='" . attribut_html($j) . "' />";
-			}
-		}
-	}
-
-	return $texte;
+    $ignore_params = array_merge(
+        array('id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'),
+        $ignore_params
+    );
+    if (!is_array($env)) {
+        $env = unserialize($env);
+    }
+    $texte = "";
+    if ($env) {
+        foreach ($env as $i => $j) {
+            if (is_string($j) and !in_array($i, $ignore_params)) {
+                $texte .= "<param name='" . attribut_html($i) . "'\n\tvalue='" . attribut_html($j) . "' />";
+            }
+        }
+    }
+
+    return $texte;
 }
 
 /**
@@ -3295,23 +3295,23 @@ 
  *      Code HTML résultant
  **/
 function env_to_attributs($env, $ignore_params = array()) {
-	$ignore_params = array_merge(
-		array('id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'),
-		$ignore_params
-	);
-	if (!is_array($env)) {
-		$env = unserialize($env);
-	}
-	$texte = "";
-	if ($env) {
-		foreach ($env as $i => $j) {
-			if (is_string($j) and !in_array($i, $ignore_params)) {
-				$texte .= attribut_html($i) . "='" . attribut_html($j) . "' ";
-			}
-		}
-	}
+    $ignore_params = array_merge(
+        array('id', 'lang', 'id_document', 'date', 'date_redac', 'align', 'fond', '', 'recurs', 'emb', 'dir_racine'),
+        $ignore_params
+    );
+    if (!is_array($env)) {
+        $env = unserialize($env);
+    }
+    $texte = "";
+    if ($env) {
+        foreach ($env as $i => $j) {
+            if (is_string($j) and !in_array($i, $ignore_params)) {
+                $texte .= attribut_html($i) . "='" . attribut_html($j) . "' ";
+            }
+        }
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -3329,7 +3329,7 @@ 
  * @return string Chaînes concaténés
  **/
 function concat(...$args) : string {
-	return join('', $args);
+    return join('', $args);
 }
 
 
@@ -3349,23 +3349,23 @@ 
  *     Contenu du ou des fichiers, concaténé
  **/
 function charge_scripts($files, $script = true) {
-	$flux = "";
-	foreach (is_array($files) ? $files : explode("|", $files) as $file) {
-		if (!is_string($file)) {
-			continue;
-		}
-		if ($script) {
-			$file = preg_match(",^\w+$,", $file) ? "javascript/$file.js" : '';
-		}
-		if ($file) {
-			$path = find_in_path($file);
-			if ($path) {
-				$flux .= spip_file_get_contents($path);
-			}
-		}
-	}
+    $flux = "";
+    foreach (is_array($files) ? $files : explode("|", $files) as $file) {
+        if (!is_string($file)) {
+            continue;
+        }
+        if ($script) {
+            $file = preg_match(",^\w+$,", $file) ? "javascript/$file.js" : '';
+        }
+        if ($file) {
+            $path = find_in_path($file);
+            if ($path) {
+                $flux .= spip_file_get_contents($path);
+            }
+        }
+    }
 
-	return $flux;
+    return $flux;
 }
 
 
@@ -3387,64 +3387,64 @@ 
  */
 function http_img_pack($img, $alt, $atts = '', $title = '', $options = array()) {
 
-	$img_file = $img;
-	if ($p = strpos($img_file, '?')) {
-		$img_file = substr($img_file,0, $p);
-	}
-	if (!isset($options['chemin_image']) or $options['chemin_image'] == true) {
-		$img_file = chemin_image($img);
-	}
-	else {
-		if (!isset($options['variante_svg_si_possible']) or $options['variante_svg_si_possible'] == true){
-			// on peut fournir une icone generique -xx.svg qui fera le job dans toutes les tailles, et qui est prioritaire sur le png
-			// si il y a un .svg a la bonne taille (-16.svg) a cote, on l'utilise en remplacement du -16.png
-			if (preg_match(',-(\d+)[.](png|gif|svg)$,', $img_file, $m)
-			  and $variante_svg_generique = substr($img_file, 0, -strlen($m[0])) . "-xx.svg"
-			  and file_exists($variante_svg_generique)) {
-				if ($variante_svg_size = substr($variante_svg_generique,0,-6) . $m[1] . ".svg" and file_exists($variante_svg_size)) {
-					$img_file = $variante_svg_size;
-				}
-				else {
-					$img_file = $variante_svg_generique;
-				}
-			}
-		}
-	}
-	if (stripos($atts, 'width') === false) {
-		// utiliser directement l'info de taille presente dans le nom
-		if ((!isset($options['utiliser_suffixe_size'])
-				or $options['utiliser_suffixe_size'] == true
-			  or strpos($img_file, '-xx.svg') !== false)
-			and (preg_match(',-([0-9]+)[.](png|gif|svg)$,', $img, $regs)
-					 or preg_match(',\?([0-9]+)px$,', $img, $regs))
-		) {
-			$largeur = $hauteur = intval($regs[1]);
-		} else {
-			$taille = taille_image($img_file);
-			list($hauteur, $largeur) = $taille;
-			if (!$hauteur or !$largeur) {
-				return "";
-			}
-		}
-		$atts .= " width='" . $largeur . "' height='" . $hauteur . "'";
-	}
-
-	if (file_exists($img_file)) {
-		$img_file = timestamp($img_file);
-	}
-	if ($alt === false) {
-		$alt = '';
-	}
-	elseif($alt or $alt==='') {
-		$alt = " alt='".attribut_html($alt)."'";
-	}
-	else {
-		$alt = " alt='".attribut_html($title)."'";
-	}
-	return "<img src='$img_file'$alt"
-	. ($title ? ' title="' . attribut_html($title) . '"' : '')
-	. " " . ltrim($atts)
-	. " />";
+    $img_file = $img;
+    if ($p = strpos($img_file, '?')) {
+        $img_file = substr($img_file,0, $p);
+    }
+    if (!isset($options['chemin_image']) or $options['chemin_image'] == true) {
+        $img_file = chemin_image($img);
+    }
+    else {
+        if (!isset($options['variante_svg_si_possible']) or $options['variante_svg_si_possible'] == true){
+            // on peut fournir une icone generique -xx.svg qui fera le job dans toutes les tailles, et qui est prioritaire sur le png
+            // si il y a un .svg a la bonne taille (-16.svg) a cote, on l'utilise en remplacement du -16.png
+            if (preg_match(',-(\d+)[.](png|gif|svg)$,', $img_file, $m)
+              and $variante_svg_generique = substr($img_file, 0, -strlen($m[0])) . "-xx.svg"
+              and file_exists($variante_svg_generique)) {
+                if ($variante_svg_size = substr($variante_svg_generique,0,-6) . $m[1] . ".svg" and file_exists($variante_svg_size)) {
+                    $img_file = $variante_svg_size;
+                }
+                else {
+                    $img_file = $variante_svg_generique;
+                }
+            }
+        }
+    }
+    if (stripos($atts, 'width') === false) {
+        // utiliser directement l'info de taille presente dans le nom
+        if ((!isset($options['utiliser_suffixe_size'])
+                or $options['utiliser_suffixe_size'] == true
+              or strpos($img_file, '-xx.svg') !== false)
+            and (preg_match(',-([0-9]+)[.](png|gif|svg)$,', $img, $regs)
+                     or preg_match(',\?([0-9]+)px$,', $img, $regs))
+        ) {
+            $largeur = $hauteur = intval($regs[1]);
+        } else {
+            $taille = taille_image($img_file);
+            list($hauteur, $largeur) = $taille;
+            if (!$hauteur or !$largeur) {
+                return "";
+            }
+        }
+        $atts .= " width='" . $largeur . "' height='" . $hauteur . "'";
+    }
+
+    if (file_exists($img_file)) {
+        $img_file = timestamp($img_file);
+    }
+    if ($alt === false) {
+        $alt = '';
+    }
+    elseif($alt or $alt==='') {
+        $alt = " alt='".attribut_html($alt)."'";
+    }
+    else {
+        $alt = " alt='".attribut_html($title)."'";
+    }
+    return "<img src='$img_file'$alt"
+    . ($title ? ' title="' . attribut_html($title) . '"' : '')
+    . " " . ltrim($atts)
+    . " />";
 }
 
 /**
@@ -3456,68 +3456,68 @@ 
  * @return string
  */
 function http_style_background($img, $att = '', $size=null) {
-	if ($size and is_numeric($size)){
-		$size = trim($size) . "px";
-	}
-	return " style='background" .
-		($att ? "" : "-image") . ": url(\"" . chemin_image($img) . "\")" . ($att ? (' ' . $att) : '') . ";"
-		. ($size ? "background-size:{$size};" : '')
-		. "'";
+    if ($size and is_numeric($size)){
+        $size = trim($size) . "px";
+    }
+    return " style='background" .
+        ($att ? "" : "-image") . ": url(\"" . chemin_image($img) . "\")" . ($att ? (' ' . $att) : '') . ";"
+        . ($size ? "background-size:{$size};" : '')
+        . "'";
 }
 
 
 function helper_filtre_balise_img_svg_arguments($alt_or_size, $class_or_size, $size) {
-	$args = [$alt_or_size, $class_or_size, $size];
-	while (is_null(end($args)) and count($args)) {
-		array_pop($args);
-	}
-	if (!count($args)) {
-		return [null, null, null];
-	}
-	if (count($args) < 3) {
-		$maybe_size = array_pop($args);
-		// @2x
-		// @1.5x
-		// 512
-		// 512x*
-		// 512x300
-		if (!strlen($maybe_size)
-			or !preg_match(',^(@\d+(\.\d+)?x|\d+(x\*)?|\d+x\d+)$,', trim($maybe_size))) {
-			$args[] = $maybe_size;
-			$maybe_size = null;
-		}
-		while (count($args)<2) {
-			$args[] = null; // default alt or class
-		}
-		$args[] = $maybe_size;
-	}
-	return $args;
+    $args = [$alt_or_size, $class_or_size, $size];
+    while (is_null(end($args)) and count($args)) {
+        array_pop($args);
+    }
+    if (!count($args)) {
+        return [null, null, null];
+    }
+    if (count($args) < 3) {
+        $maybe_size = array_pop($args);
+        // @2x
+        // @1.5x
+        // 512
+        // 512x*
+        // 512x300
+        if (!strlen($maybe_size)
+            or !preg_match(',^(@\d+(\.\d+)?x|\d+(x\*)?|\d+x\d+)$,', trim($maybe_size))) {
+            $args[] = $maybe_size;
+            $maybe_size = null;
+        }
+        while (count($args)<2) {
+            $args[] = null; // default alt or class
+        }
+        $args[] = $maybe_size;
+    }
+    return $args;
 }
 
 function helper_filtre_balise_img_svg_size($img, $size) {
-	// si size est de la forme '@2x' c'est un coeff multiplicateur sur la densite
-	if (strpos($size, '@') === 0 and substr($size,-1) === 'x') {
-		$coef = floatval(substr($size, 1, -1));
-		list($h, $w) = taille_image($img);
-		$height = intval(round($h / $coef));
-		$width = intval(round($w / $coef));
-	}
-	// sinon c'est une valeur seule si image caree ou largeurxhauteur
-	else {
-		$size = explode('x', $size, 2);
-		$size = array_map('trim', $size);
-		$height = $width = intval(array_shift($size));
-
-		if (count($size) and reset($size)) {
-			$height = array_shift($size);
-			if ($height === '*') {
-				list($h, $w) = taille_image($img);
-				$height = intval(round($h * $width / $w));
-			}
-		}
-	}
-
-	return [$width, $height];
+    // si size est de la forme '@2x' c'est un coeff multiplicateur sur la densite
+    if (strpos($size, '@') === 0 and substr($size,-1) === 'x') {
+        $coef = floatval(substr($size, 1, -1));
+        list($h, $w) = taille_image($img);
+        $height = intval(round($h / $coef));
+        $width = intval(round($w / $coef));
+    }
+    // sinon c'est une valeur seule si image caree ou largeurxhauteur
+    else {
+        $size = explode('x', $size, 2);
+        $size = array_map('trim', $size);
+        $height = $width = intval(array_shift($size));
+
+        if (count($size) and reset($size)) {
+            $height = array_shift($size);
+            if ($height === '*') {
+                list($h, $w) = taille_image($img);
+                $height = intval(round($h * $width / $w));
+            }
+        }
+    }
+
+    return [$width, $height];
 }
 
 /**
@@ -3553,38 +3553,38 @@ 
  */
 function filtre_balise_img_dist($img, $alt = '', $class = null, $size=null) {
 
-	list($alt, $class, $size) = helper_filtre_balise_img_svg_arguments($alt, $class, $size);
+    list($alt, $class, $size) = helper_filtre_balise_img_svg_arguments($alt, $class, $size);
 
-	$img = trim($img);
-	if (strpos($img, '<img') === 0) {
-		if (!is_null($alt)) {
-			$img = inserer_attribut($img, 'alt', $alt);
-		}
-		if (!is_null($class)) {
-			if (strlen($class)) {
-				$img = inserer_attribut($img, 'class', $class);
-			}
-			else {
-				$img = vider_attribut($img, 'class');
-			}
-		}
-	}
-	else {
-		$img = http_img_pack($img, $alt, $class ? " class='" . attribut_html($class) . "'" : '', '',
-				array('chemin_image' => false, 'utiliser_suffixe_size' => false));
-		if (is_null($alt)) {
-			$img = vider_attribut($img, 'alt');
-		}
-	}
+    $img = trim($img);
+    if (strpos($img, '<img') === 0) {
+        if (!is_null($alt)) {
+            $img = inserer_attribut($img, 'alt', $alt);
+        }
+        if (!is_null($class)) {
+            if (strlen($class)) {
+                $img = inserer_attribut($img, 'class', $class);
+            }
+            else {
+                $img = vider_attribut($img, 'class');
+            }
+        }
+    }
+    else {
+        $img = http_img_pack($img, $alt, $class ? " class='" . attribut_html($class) . "'" : '', '',
+                array('chemin_image' => false, 'utiliser_suffixe_size' => false));
+        if (is_null($alt)) {
+            $img = vider_attribut($img, 'alt');
+        }
+    }
 
-	if ($img and !is_null($size) and strlen($size = trim($size))) {
-		list($width, $height) = helper_filtre_balise_img_svg_size($img, $size);
+    if ($img and !is_null($size) and strlen($size = trim($size))) {
+        list($width, $height) = helper_filtre_balise_img_svg_size($img, $size);
 
-		$img = inserer_attribut($img, 'width', $width);
-		$img = inserer_attribut($img, 'height', $height);
-	}
+        $img = inserer_attribut($img, 'width', $width);
+        $img = inserer_attribut($img, 'height', $height);
+    }
 
-	return $img;
+    return $img;
 }
 
 
@@ -3618,67 +3618,67 @@ 
  */
 function filtre_balise_svg_dist($img, $alt = '', $class = null, $size=null) {
 
-	$img = trim($img);
-	$img_file = $img;
-	if (strpos($img, '<svg') === false){
-		if ($p = strpos($img_file, '?')){
-			$img_file = substr($img_file, 0, $p);
-		}
+    $img = trim($img);
+    $img_file = $img;
+    if (strpos($img, '<svg') === false){
+        if ($p = strpos($img_file, '?')){
+            $img_file = substr($img_file, 0, $p);
+        }
 
-		if (!$img_file or !$svg = file_get_contents($img_file)){
-			return '';
-		}
-	}
+        if (!$img_file or !$svg = file_get_contents($img_file)){
+            return '';
+        }
+    }
 
-	if (!preg_match(",<svg\b[^>]*>,UimsS", $svg, $match)) {
-		return '';
-	}
+    if (!preg_match(",<svg\b[^>]*>,UimsS", $svg, $match)) {
+        return '';
+    }
 
-	list($alt, $class, $size) = helper_filtre_balise_img_svg_arguments($alt, $class, $size);
+    list($alt, $class, $size) = helper_filtre_balise_img_svg_arguments($alt, $class, $size);
 
-	$balise_svg = $match[0];
-	$balise_svg_source = $balise_svg;
+    $balise_svg = $match[0];
+    $balise_svg_source = $balise_svg;
 
-	// entete XML à supprimer
-	$svg = preg_replace(',^\s*<\?xml[^>]*\?' . '>,', '', $svg);
+    // entete XML à supprimer
+    $svg = preg_replace(',^\s*<\?xml[^>]*\?' . '>,', '', $svg);
 
-	// IE est toujours mon ami
-	$balise_svg = inserer_attribut($balise_svg, 'focusable', 'false');
+    // IE est toujours mon ami
+    $balise_svg = inserer_attribut($balise_svg, 'focusable', 'false');
 
-	// regler la classe
-	if (!is_null($class)) {
-		if (strlen($class)) {
-			$balise_svg = inserer_attribut($balise_svg, 'class', $class);
-		}
-		else {
-			$balise_svg = vider_attribut($balise_svg, 'class');
-		}
-	}
+    // regler la classe
+    if (!is_null($class)) {
+        if (strlen($class)) {
+            $balise_svg = inserer_attribut($balise_svg, 'class', $class);
+        }
+        else {
+            $balise_svg = vider_attribut($balise_svg, 'class');
+        }
+    }
 
-	// regler le alt
-	if ($alt){
-		$balise_svg = inserer_attribut($balise_svg, 'role', 'img');
-		$id = "img-svg-title-" . substr(md5("$img_file:$svg:$alt"),0,4);
-		$balise_svg = inserer_attribut($balise_svg, 'aria-labelledby', $id);
-		$title = "<title id=\"$id\">" . entites_html($alt)."</title>\n";
-		$balise_svg .= $title;
-	}
-	else {
-		$balise_svg = inserer_attribut($balise_svg, 'aria-hidden', 'true');
-	}
+    // regler le alt
+    if ($alt){
+        $balise_svg = inserer_attribut($balise_svg, 'role', 'img');
+        $id = "img-svg-title-" . substr(md5("$img_file:$svg:$alt"),0,4);
+        $balise_svg = inserer_attribut($balise_svg, 'aria-labelledby', $id);
+        $title = "<title id=\"$id\">" . entites_html($alt)."</title>\n";
+        $balise_svg .= $title;
+    }
+    else {
+        $balise_svg = inserer_attribut($balise_svg, 'aria-hidden', 'true');
+    }
 
-	$svg = str_replace($balise_svg_source, $balise_svg, $svg);
+    $svg = str_replace($balise_svg_source, $balise_svg, $svg);
 
-	if (!is_null($size) and strlen($size = trim($size))) {
-		list($width, $height) = helper_filtre_balise_img_svg_size($svg, $size);
+    if (!is_null($size) and strlen($size = trim($size))) {
+        list($width, $height) = helper_filtre_balise_img_svg_size($svg, $size);
 
-		if (!function_exists('svg_redimensionner')) {
-			include_spip('inc/svg');
-		}
-		$svg = svg_redimensionner($svg, $width, $height);
-	}
+        if (!function_exists('svg_redimensionner')) {
+            include_spip('inc/svg');
+        }
+        $svg = svg_redimensionner($svg, $width, $height);
+    }
 
-	return $svg;
+    return $svg;
 }
 
 
@@ -3701,17 +3701,17 @@ 
  *     Code HTML résultant
  **/
 function filtre_foreach_dist($tableau, $modele = 'foreach') {
-	$texte = '';
-	if (is_array($tableau)) {
-		foreach ($tableau as $k => $v) {
-			$res = recuperer_fond('modeles/' . $modele,
-				array_merge(array('cle' => $k), (is_array($v) ? $v : array('valeur' => $v)))
-			);
-			$texte .= $res;
-		}
-	}
+    $texte = '';
+    if (is_array($tableau)) {
+        foreach ($tableau as $k => $v) {
+            $res = recuperer_fond('modeles/' . $modele,
+                array_merge(array('cle' => $k), (is_array($v) ? $v : array('valeur' => $v)))
+            );
+            $texte .= $res;
+        }
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -3736,37 +3736,37 @@ 
  *         - tout : retourne toutes les informations du plugin actif
  **/
 function filtre_info_plugin_dist($plugin, $type_info, $reload = false) {
-	include_spip('inc/plugin');
-	$plugin = strtoupper($plugin);
-	$plugins_actifs = liste_plugin_actifs();
-
-	if (!$plugin) {
-		return serialize(array_keys($plugins_actifs));
-	} elseif (empty($plugins_actifs[$plugin]) and !$reload) {
-		return '';
-	} elseif (($type_info == 'est_actif') and !$reload) {
-		return $plugins_actifs[$plugin] ? 1 : 0;
-	} elseif (isset($plugins_actifs[$plugin][$type_info]) and !$reload) {
-		return $plugins_actifs[$plugin][$type_info];
-	} else {
-		$get_infos = charger_fonction('get_infos', 'plugins');
-		// On prend en compte les extensions
-		if (!is_dir($plugins_actifs[$plugin]['dir_type'])) {
-			$dir_plugins = constant($plugins_actifs[$plugin]['dir_type']);
-		} else {
-			$dir_plugins = $plugins_actifs[$plugin]['dir_type'];
-		}
-		if (!$infos = $get_infos($plugins_actifs[$plugin]['dir'], $reload, $dir_plugins)) {
-			return '';
-		}
-		if ($type_info == 'tout') {
-			return $infos;
-		} elseif ($type_info == 'est_actif') {
-			return $infos ? 1 : 0;
-		} else {
-			return strval($infos[$type_info]);
-		}
-	}
+    include_spip('inc/plugin');
+    $plugin = strtoupper($plugin);
+    $plugins_actifs = liste_plugin_actifs();
+
+    if (!$plugin) {
+        return serialize(array_keys($plugins_actifs));
+    } elseif (empty($plugins_actifs[$plugin]) and !$reload) {
+        return '';
+    } elseif (($type_info == 'est_actif') and !$reload) {
+        return $plugins_actifs[$plugin] ? 1 : 0;
+    } elseif (isset($plugins_actifs[$plugin][$type_info]) and !$reload) {
+        return $plugins_actifs[$plugin][$type_info];
+    } else {
+        $get_infos = charger_fonction('get_infos', 'plugins');
+        // On prend en compte les extensions
+        if (!is_dir($plugins_actifs[$plugin]['dir_type'])) {
+            $dir_plugins = constant($plugins_actifs[$plugin]['dir_type']);
+        } else {
+            $dir_plugins = $plugins_actifs[$plugin]['dir_type'];
+        }
+        if (!$infos = $get_infos($plugins_actifs[$plugin]['dir'], $reload, $dir_plugins)) {
+            return '';
+        }
+        if ($type_info == 'tout') {
+            return $infos;
+        } elseif ($type_info == 'est_actif') {
+            return $infos ? 1 : 0;
+        } else {
+            return strval($infos[$type_info]);
+        }
+    }
 }
 
 
@@ -3793,9 +3793,9 @@ 
  *     Code HTML de l'image de puce de statut à insérer (et du menu de changement si présent)
  */
 function puce_changement_statut($id_objet, $statut, $id_rubrique, $type, $ajax = false) {
-	$puce_statut = charger_fonction('puce_statut', 'inc');
+    $puce_statut = charger_fonction('puce_statut', 'inc');
 
-	return $puce_statut($id_objet, $statut, $id_rubrique, $type, $ajax);
+    return $puce_statut($id_objet, $statut, $id_rubrique, $type, $ajax);
 }
 
 
@@ -3825,13 +3825,13 @@ 
  *     Code HTML de l'image de puce de statut à insérer (et du menu de changement si présent)
  */
 function filtre_puce_statut_dist($statut, $objet, $id_objet = 0, $id_parent = 0) {
-	static $puce_statut = null;
-	if (!$puce_statut) {
-		$puce_statut = charger_fonction('puce_statut', 'inc');
-	}
+    static $puce_statut = null;
+    if (!$puce_statut) {
+        $puce_statut = charger_fonction('puce_statut', 'inc');
+    }
 
-	return $puce_statut($id_objet, $statut, $id_parent, $objet, false,
-		objet_info($objet, 'editable') ? _ACTIVER_PUCE_RAPIDE : false);
+    return $puce_statut($id_objet, $statut, $id_parent, $objet, false,
+        objet_info($objet, 'editable') ? _ACTIVER_PUCE_RAPIDE : false);
 }
 
 
@@ -3858,95 +3858,95 @@ 
  *   hash du contexte
  */
 function encoder_contexte_ajax($c, $form = '', $emboite = null, $ajaxid = '') {
-	if (is_string($c)
-		and @unserialize($c) !== false
-	) {
-		$c = unserialize($c);
-	}
-
-	// supprimer les parametres debut_x
-	// pour que la pagination ajax ne soit pas plantee
-	// si on charge la page &debut_x=1 : car alors en cliquant sur l'item 0,
-	// le debut_x=0 n'existe pas, et on resterait sur 1
-	if (is_array($c)) {
-		foreach ($c as $k => $v) {
-			if (strpos($k, 'debut_') === 0) {
-				unset($c[$k]);
-			}
-		}
-	}
-
-	if (!function_exists('calculer_cle_action')) {
-		include_spip("inc/securiser_action");
-	}
-
-	$c = serialize($c);
-	$cle = calculer_cle_action($form . $c);
-	$c = "$cle:$c";
-
-	// on ne stocke pas les contextes dans des fichiers en cache
-	// par defaut, sauf si cette configuration a été forcée
-	// OU que la longueur de l’argument géneré est plus long
-	// que ce qui est toléré.
-	$cache_contextes_ajax = (defined('_CACHE_CONTEXTES_AJAX') and _CACHE_CONTEXTES_AJAX);
-	if (!$cache_contextes_ajax) {
-		$env = $c;
-		if (function_exists('gzdeflate') && function_exists('gzinflate')) {
-			$env = gzdeflate($env);
-		}
-		$env = _xor($env);
-		$env = base64_encode($env);
-		$len = strlen($env);
-		// Si l’url est trop longue pour le navigateur
-		$max_len = _CACHE_CONTEXTES_AJAX_SUR_LONGUEUR;
-		if ($len > $max_len) {
-			$cache_contextes_ajax = true;
-			spip_log("Contextes AJAX forces en fichiers !"
-				. " Cela arrive lorsque la valeur du contexte" 
-				. " depasse la longueur maximale autorisee ($max_len). Ici : $len."
-				, _LOG_AVERTISSEMENT);
-		}
-		// Sinon si Suhosin est actif et a une la valeur maximale des variables en GET...
-		elseif (
-			$max_len = @ini_get('suhosin.get.max_value_length')
-			and $max_len < $len
-		) {
-			$cache_contextes_ajax = true;
-			spip_log("Contextes AJAX forces en fichiers !"
-				. " Cela arrive lorsque la valeur du contexte"
-				. " depasse la longueur maximale autorisee par Suhosin"
-				. " ($max_len) dans 'suhosin.get.max_value_length'. Ici : $len."
-				. " Vous devriez modifier les parametres de Suhosin"
-				. " pour accepter au moins 1024 caracteres.", _LOG_AVERTISSEMENT);
-		} 
-
-	}
-
-	if ($cache_contextes_ajax) {
-		$dir = sous_repertoire(_DIR_CACHE, 'contextes');
-		// stocker les contextes sur disque et ne passer qu'un hash dans l'url
-		$md5 = md5($c);
-		ecrire_fichier("$dir/c$md5", $c);
-		$env = $md5;
-	}
-
-	if ($emboite === null) {
-		return $env;
-	}
-	if (!trim($emboite)) {
-		return "";
-	}
-	// toujours encoder l'url source dans le bloc ajax
-	$r = self();
-	$r = ' data-origin="' . $r . '"';
-	$class = 'ajaxbloc';
-	if ($ajaxid and is_string($ajaxid)) {
-		// ajaxid est normalement conforme a un nom de classe css
-		// on ne verifie pas la conformite, mais on passe entites_html par dessus par precaution
-		$class .= ' ajax-id-' . entites_html($ajaxid);
-	}
-
-	return "<div class='$class' " . "data-ajax-env='$env'$r>\n$emboite</div><!--ajaxbloc-->\n";
+    if (is_string($c)
+        and @unserialize($c) !== false
+    ) {
+        $c = unserialize($c);
+    }
+
+    // supprimer les parametres debut_x
+    // pour que la pagination ajax ne soit pas plantee
+    // si on charge la page &debut_x=1 : car alors en cliquant sur l'item 0,
+    // le debut_x=0 n'existe pas, et on resterait sur 1
+    if (is_array($c)) {
+        foreach ($c as $k => $v) {
+            if (strpos($k, 'debut_') === 0) {
+                unset($c[$k]);
+            }
+        }
+    }
+
+    if (!function_exists('calculer_cle_action')) {
+        include_spip("inc/securiser_action");
+    }
+
+    $c = serialize($c);
+    $cle = calculer_cle_action($form . $c);
+    $c = "$cle:$c";
+
+    // on ne stocke pas les contextes dans des fichiers en cache
+    // par defaut, sauf si cette configuration a été forcée
+    // OU que la longueur de l’argument géneré est plus long
+    // que ce qui est toléré.
+    $cache_contextes_ajax = (defined('_CACHE_CONTEXTES_AJAX') and _CACHE_CONTEXTES_AJAX);
+    if (!$cache_contextes_ajax) {
+        $env = $c;
+        if (function_exists('gzdeflate') && function_exists('gzinflate')) {
+            $env = gzdeflate($env);
+        }
+        $env = _xor($env);
+        $env = base64_encode($env);
+        $len = strlen($env);
+        // Si l’url est trop longue pour le navigateur
+        $max_len = _CACHE_CONTEXTES_AJAX_SUR_LONGUEUR;
+        if ($len > $max_len) {
+            $cache_contextes_ajax = true;
+            spip_log("Contextes AJAX forces en fichiers !"
+                . " Cela arrive lorsque la valeur du contexte" 
+                . " depasse la longueur maximale autorisee ($max_len). Ici : $len."
+                , _LOG_AVERTISSEMENT);
+        }
+        // Sinon si Suhosin est actif et a une la valeur maximale des variables en GET...
+        elseif (
+            $max_len = @ini_get('suhosin.get.max_value_length')
+            and $max_len < $len
+        ) {
+            $cache_contextes_ajax = true;
+            spip_log("Contextes AJAX forces en fichiers !"
+                . " Cela arrive lorsque la valeur du contexte"
+                . " depasse la longueur maximale autorisee par Suhosin"
+                . " ($max_len) dans 'suhosin.get.max_value_length'. Ici : $len."
+                . " Vous devriez modifier les parametres de Suhosin"
+                . " pour accepter au moins 1024 caracteres.", _LOG_AVERTISSEMENT);
+        } 
+
+    }
+
+    if ($cache_contextes_ajax) {
+        $dir = sous_repertoire(_DIR_CACHE, 'contextes');
+        // stocker les contextes sur disque et ne passer qu'un hash dans l'url
+        $md5 = md5($c);
+        ecrire_fichier("$dir/c$md5", $c);
+        $env = $md5;
+    }
+
+    if ($emboite === null) {
+        return $env;
+    }
+    if (!trim($emboite)) {
+        return "";
+    }
+    // toujours encoder l'url source dans le bloc ajax
+    $r = self();
+    $r = ' data-origin="' . $r . '"';
+    $class = 'ajaxbloc';
+    if ($ajaxid and is_string($ajaxid)) {
+        // ajaxid est normalement conforme a un nom de classe css
+        // on ne verifie pas la conformite, mais on passe entites_html par dessus par precaution
+        $class .= ' ajax-id-' . entites_html($ajaxid);
+    }
+
+    return "<div class='$class' " . "data-ajax-env='$env'$r>\n$emboite</div><!--ajaxbloc-->\n";
 }
 
 /**
@@ -3966,36 +3966,36 @@ 
  *   - false : erreur de décodage
  */
 function decoder_contexte_ajax($c, $form = '') {
-	if (!function_exists('calculer_cle_action')) {
-		include_spip("inc/securiser_action");
-	}
-	if (((defined('_CACHE_CONTEXTES_AJAX') and _CACHE_CONTEXTES_AJAX) or strlen($c) == 32)
-		and $dir = sous_repertoire(_DIR_CACHE, 'contextes')
-		and lire_fichier("$dir/c$c", $contexte)
-	) {
-		$c = $contexte;
-	} else {
-		$c = @base64_decode($c);
-		$c = _xor($c);
-		if (function_exists('gzdeflate') && function_exists('gzinflate')) {
-			$c = @gzinflate($c);
-		}
-	}
-
-	// extraire la signature en debut de contexte
-	// et la verifier avant de deserializer
-	// format : signature:donneesserializees
-	if ($p = strpos($c,":")){
-		$cle = substr($c,0,$p);
-		$c = substr($c,$p+1);
-
-		if ($cle == calculer_cle_action($form . $c)) {
-			$env = @unserialize($c);
-			return $env;
-		}
-	}
-
-	return false;
+    if (!function_exists('calculer_cle_action')) {
+        include_spip("inc/securiser_action");
+    }
+    if (((defined('_CACHE_CONTEXTES_AJAX') and _CACHE_CONTEXTES_AJAX) or strlen($c) == 32)
+        and $dir = sous_repertoire(_DIR_CACHE, 'contextes')
+        and lire_fichier("$dir/c$c", $contexte)
+    ) {
+        $c = $contexte;
+    } else {
+        $c = @base64_decode($c);
+        $c = _xor($c);
+        if (function_exists('gzdeflate') && function_exists('gzinflate')) {
+            $c = @gzinflate($c);
+        }
+    }
+
+    // extraire la signature en debut de contexte
+    // et la verifier avant de deserializer
+    // format : signature:donneesserializees
+    if ($p = strpos($c,":")){
+        $cle = substr($c,0,$p);
+        $c = substr($c,$p+1);
+
+        if ($cle == calculer_cle_action($form . $c)) {
+            $env = @unserialize($c);
+            return $env;
+        }
+    }
+
+    return false;
 }
 
 
@@ -4013,20 +4013,20 @@ 
  *    Message décrypté ou encrypté
  **/
 function _xor($message, $key = null) {
-	if (is_null($key)) {
-		if (!function_exists('calculer_cle_action')) {
-			include_spip("inc/securiser_action");
-		}
-		$key = pack("H*", calculer_cle_action('_xor'));
-	}
+    if (is_null($key)) {
+        if (!function_exists('calculer_cle_action')) {
+            include_spip("inc/securiser_action");
+        }
+        $key = pack("H*", calculer_cle_action('_xor'));
+    }
 
-	$keylen = strlen($key);
-	$messagelen = strlen($message);
-	for ($i = 0; $i < $messagelen; $i++) {
-		$message[$i] = ~($message[$i] ^ $key[$i % $keylen]);
-	}
+    $keylen = strlen($key);
+    $messagelen = strlen($message);
+    for ($i = 0; $i < $messagelen; $i++) {
+        $message[$i] = ~($message[$i] ^ $key[$i % $keylen]);
+    }
 
-	return $message;
+    return $message;
 }
 
 /**
@@ -4089,37 +4089,37 @@ 
  *   Code HTML
  */
 function lien_ou_expose($url, $libelle = null, $on = false, $class = "", $title = "", $rel = "", $evt = '') {
-	if ($on) {
-		$bal = 'strong';
-		$class = "";
-		$att = "";
-		// si $on passe la balise et optionnelement une ou ++classe
-		// a.active span.selected.active etc....
-		if (is_string($on) and (strncmp($on, 'a', 1)==0 or strncmp($on, 'span', 4)==0 or strncmp($on, 'strong', 6)==0)){
-			$on = explode(".", $on);
-			// on verifie que c'est exactement une des 3 balises a, span ou strong
-			if (in_array(reset($on), array('a', 'span', 'strong'))){
-				$bal = array_shift($on);
-				$class = implode(" ", $on);
-				if ($bal=="a"){
-					$att = 'href="#" ';
-				}
-			}
-		}
-		$att .= 'class="' . ($class ? attribut_html($class) . ' ' : '') . (defined('_LIEN_OU_EXPOSE_CLASS_ON') ? _LIEN_OU_EXPOSE_CLASS_ON : 'on') . '"';
-	} else {
-		$bal = 'a';
-		$att = "href='$url'"
-			. ($title ? " title='" . attribut_html($title) . "'" : '')
-			. ($class ? " class='" . attribut_html($class) . "'" : '')
-			. ($rel ? " rel='" . attribut_html($rel) . "'" : '')
-			. $evt;
-	}
-	if ($libelle === null) {
-		$libelle = $url;
-	}
-
-	return "<$bal $att>$libelle</$bal>";
+    if ($on) {
+        $bal = 'strong';
+        $class = "";
+        $att = "";
+        // si $on passe la balise et optionnelement une ou ++classe
+        // a.active span.selected.active etc....
+        if (is_string($on) and (strncmp($on, 'a', 1)==0 or strncmp($on, 'span', 4)==0 or strncmp($on, 'strong', 6)==0)){
+            $on = explode(".", $on);
+            // on verifie que c'est exactement une des 3 balises a, span ou strong
+            if (in_array(reset($on), array('a', 'span', 'strong'))){
+                $bal = array_shift($on);
+                $class = implode(" ", $on);
+                if ($bal=="a"){
+                    $att = 'href="#" ';
+                }
+            }
+        }
+        $att .= 'class="' . ($class ? attribut_html($class) . ' ' : '') . (defined('_LIEN_OU_EXPOSE_CLASS_ON') ? _LIEN_OU_EXPOSE_CLASS_ON : 'on') . '"';
+    } else {
+        $bal = 'a';
+        $att = "href='$url'"
+            . ($title ? " title='" . attribut_html($title) . "'" : '')
+            . ($class ? " class='" . attribut_html($class) . "'" : '')
+            . ($rel ? " rel='" . attribut_html($rel) . "'" : '')
+            . $evt;
+    }
+    if ($libelle === null) {
+        $libelle = $url;
+    }
+
+    return "<$bal $att>$libelle</$bal>";
 }
 
 
@@ -4136,37 +4136,37 @@ 
  * @return string : la chaine de langue finale en utilisant la fonction _T()
  */
 function singulier_ou_pluriel($nb, $chaine_un, $chaine_plusieurs, $var = 'nb', $vars = array()) {
-	static $local_singulier_ou_pluriel = array();
+    static $local_singulier_ou_pluriel = array();
 
-	// si nb=0 ou pas de $vars valide on retourne une chaine vide, a traiter par un |sinon
-	if (!is_numeric($nb) or $nb == 0) {
-		return "";
-	}
-	if (!is_array($vars)) {
-		return "";
-	}
+    // si nb=0 ou pas de $vars valide on retourne une chaine vide, a traiter par un |sinon
+    if (!is_numeric($nb) or $nb == 0) {
+        return "";
+    }
+    if (!is_array($vars)) {
+        return "";
+    }
 
-	$langue = $GLOBALS['spip_lang'];
-	if (!isset($local_singulier_ou_pluriel[$langue])) {
-		$local_singulier_ou_pluriel[$langue] = false;
-		if ($f = charger_fonction("singulier_ou_pluriel_${langue}", 'inc', true)
-		  or $f = charger_fonction("singulier_ou_pluriel", 'inc', true)) {
-			$local_singulier_ou_pluriel[$langue] = $f;
-		}
-	}
+    $langue = $GLOBALS['spip_lang'];
+    if (!isset($local_singulier_ou_pluriel[$langue])) {
+        $local_singulier_ou_pluriel[$langue] = false;
+        if ($f = charger_fonction("singulier_ou_pluriel_${langue}", 'inc', true)
+          or $f = charger_fonction("singulier_ou_pluriel", 'inc', true)) {
+            $local_singulier_ou_pluriel[$langue] = $f;
+        }
+    }
 
-	// si on a une surcharge on l'utilise
-	if ($local_singulier_ou_pluriel[$langue]) {
-		return ($local_singulier_ou_pluriel[$langue])($nb, $chaine_un, $chaine_plusieurs, $var, $vars);
-	}
+    // si on a une surcharge on l'utilise
+    if ($local_singulier_ou_pluriel[$langue]) {
+        return ($local_singulier_ou_pluriel[$langue])($nb, $chaine_un, $chaine_plusieurs, $var, $vars);
+    }
 
-	// sinon traitement par defaut
-	$vars[$var] = $nb;
-	if ($nb >= 2) {
-		return _T($chaine_plusieurs, $vars);
-	} else {
-		return _T($chaine_un, $vars);
-	}
+    // sinon traitement par defaut
+    $vars[$var] = $nb;
+    if ($nb >= 2) {
+        return _T($chaine_plusieurs, $vars);
+    } else {
+        return _T($chaine_un, $vars);
+    }
 }
 
 
@@ -4194,71 +4194,71 @@ 
  */
 function prepare_icone_base($type, $lien, $texte, $fond, $fonction = '', $class = '', $javascript = '') {
 
-	$class_lien = $class_bouton = $class;
-
-	// Normaliser la fonction et compléter la classe en fonction
-	if (in_array($fonction, ['del', 'supprimer.gif'])) {
-		$class_lien .= ' danger';
-		$class_bouton .= ' btn_danger';
-	} elseif ($fonction == 'rien.gif') {
-		$fonction = '';
-	} elseif ($fonction == 'delsafe') {
-		$fonction = 'del';
-	}
-
-	$fond_origine = $fond;
-	// Remappage des icone : article-24.png+new => article-new-24.png
-	if ($icone_renommer = charger_fonction('icone_renommer', 'inc', true)) {
-		list($fond, $fonction) = $icone_renommer($fond, $fonction);
-	}
-
-	// Ajouter le type d'objet dans la classe
-	$objet_type = substr(basename($fond), 0, -4);
-	$class_lien .= " $objet_type";
-	$class_bouton .= " $objet_type";
-
-	// Texte
-	$alt = attribut_html($texte);
-	$title = " title=\"$alt\""; // est-ce pertinent de doubler le alt par un title ?
-
-	// Liens : préparer les classes ajax
-	$ajax = '';
-	if ($type === 'lien') {
-		if (strpos($class_lien, 'ajax') !== false) {
-			$ajax = 'ajax';
-			if (strpos($class_lien, 'preload') !== false) {
-				$ajax .= ' preload';
-			}
-			if (strpos($class_lien, 'nocache') !== false) {
-				$ajax .= ' nocache';
-			}
-			$ajax = " class='$ajax'";
-		}
-	}
-
-	// Repérer la taille et l'ajouter dans la classe
-	$size = 24;
-	if (preg_match("/-([0-9]{1,3})[.](gif|png|svg)$/i", $fond, $match)
-	  or preg_match("/-([0-9]{1,3})([.](gif|png|svg))?$/i", $fond_origine, $match)) {
-		$size = $match[1];
-	}
-	$class_lien .= " s$size";
-	$class_bouton .= " s$size";
-
-	// Icône
-	$icone = http_img_pack($fond, $alt, "width='$size' height='$size'");
-	$icone = "<span class=\"icone-image".($fonction ? " icone-fonction icone-fonction-$fonction" : "") . "\">$icone</span>";
-
-	// Markup final
-	if ($type == 'lien') {
-		return "<span class='icone $class_lien'>"
-		. "<a href='$lien'$title$ajax$javascript>"
-		. $icone
-		. "<b>$texte</b>"
-		. "</a></span>\n";
-	} else {
-		return bouton_action("$icone $texte", $lien, $class_bouton, $javascript, $alt);
-	}
+    $class_lien = $class_bouton = $class;
+
+    // Normaliser la fonction et compléter la classe en fonction
+    if (in_array($fonction, ['del', 'supprimer.gif'])) {
+        $class_lien .= ' danger';
+        $class_bouton .= ' btn_danger';
+    } elseif ($fonction == 'rien.gif') {
+        $fonction = '';
+    } elseif ($fonction == 'delsafe') {
+        $fonction = 'del';
+    }
+
+    $fond_origine = $fond;
+    // Remappage des icone : article-24.png+new => article-new-24.png
+    if ($icone_renommer = charger_fonction('icone_renommer', 'inc', true)) {
+        list($fond, $fonction) = $icone_renommer($fond, $fonction);
+    }
+
+    // Ajouter le type d'objet dans la classe
+    $objet_type = substr(basename($fond), 0, -4);
+    $class_lien .= " $objet_type";
+    $class_bouton .= " $objet_type";
+
+    // Texte
+    $alt = attribut_html($texte);
+    $title = " title=\"$alt\""; // est-ce pertinent de doubler le alt par un title ?
+
+    // Liens : préparer les classes ajax
+    $ajax = '';
+    if ($type === 'lien') {
+        if (strpos($class_lien, 'ajax') !== false) {
+            $ajax = 'ajax';
+            if (strpos($class_lien, 'preload') !== false) {
+                $ajax .= ' preload';
+            }
+            if (strpos($class_lien, 'nocache') !== false) {
+                $ajax .= ' nocache';
+            }
+            $ajax = " class='$ajax'";
+        }
+    }
+
+    // Repérer la taille et l'ajouter dans la classe
+    $size = 24;
+    if (preg_match("/-([0-9]{1,3})[.](gif|png|svg)$/i", $fond, $match)
+      or preg_match("/-([0-9]{1,3})([.](gif|png|svg))?$/i", $fond_origine, $match)) {
+        $size = $match[1];
+    }
+    $class_lien .= " s$size";
+    $class_bouton .= " s$size";
+
+    // Icône
+    $icone = http_img_pack($fond, $alt, "width='$size' height='$size'");
+    $icone = "<span class=\"icone-image".($fonction ? " icone-fonction icone-fonction-$fonction" : "") . "\">$icone</span>";
+
+    // Markup final
+    if ($type == 'lien') {
+        return "<span class='icone $class_lien'>"
+        . "<a href='$lien'$title$ajax$javascript>"
+        . $icone
+        . "<b>$texte</b>"
+        . "</a></span>\n";
+    } else {
+        return bouton_action("$icone $texte", $lien, $class_bouton, $javascript, $alt);
+    }
 }
 
 /**
@@ -4282,7 +4282,7 @@ 
  *     Code HTML du lien
  **/
 function icone_base($lien, $texte, $fond, $fonction = "", $class = "", $javascript = "") {
-	return prepare_icone_base('lien', $lien, $texte, $fond, $fonction, $class, $javascript);
+    return prepare_icone_base('lien', $lien, $texte, $fond, $fonction, $class, $javascript);
 }
 
 /**
@@ -4317,7 +4317,7 @@ 
  *     Code HTML du lien
  **/
 function filtre_icone_verticale_dist($lien, $texte, $fond, $fonction = "", $class = "", $javascript = "") {
-	return icone_base($lien, $texte, $fond, $fonction, "verticale $class", $javascript);
+    return icone_base($lien, $texte, $fond, $fonction, "verticale $class", $javascript);
 }
 
 /**
@@ -4362,7 +4362,7 @@ 
  *     Code HTML du lien
  **/
 function filtre_icone_horizontale_dist($lien, $texte, $fond, $fonction = "", $class = "", $javascript = "") {
-	return icone_base($lien, $texte, $fond, $fonction, "horizontale $class", $javascript);
+    return icone_base($lien, $texte, $fond, $fonction, "horizontale $class", $javascript);
 }
 
 /**
@@ -4393,7 +4393,7 @@ 
  *     Code HTML du lien
  **/
 function filtre_bouton_action_horizontal_dist($lien, $texte, $fond, $fonction = "", $class = "", $confirm = "") {
-	return prepare_icone_base('bouton', $lien, $texte, $fond, $fonction, $class, $confirm);
+    return prepare_icone_base('bouton', $lien, $texte, $fond, $fonction, $class, $confirm);
 }
 
 /**
@@ -4423,7 +4423,7 @@ 
  *     Code HTML du lien
  */
 function filtre_icone_dist($lien, $texte, $fond, $align = "", $fonction = "", $class = "", $javascript = "") {
-	return icone_base($lien, $texte, $fond, $fonction, "verticale $align $class", $javascript);
+    return icone_base($lien, $texte, $fond, $fonction, "verticale $align $class", $javascript);
 }
 
 
@@ -4471,23 +4471,23 @@ 
  * @return string Code CSS
  */
 function bando_images_background() {
-	include_spip('inc/bandeau');
-	// recuperer tous les boutons et leurs images
-	$boutons = definir_barre_boutons(definir_barre_contexte(), true, false);
+    include_spip('inc/bandeau');
+    // recuperer tous les boutons et leurs images
+    $boutons = definir_barre_boutons(definir_barre_contexte(), true, false);
 
-	$res = "";
-	foreach ($boutons as $page => $detail) {
-		$selecteur = (in_array($page, array('outils_rapides', 'outils_collaboratifs')) ? "" : ".navigation_avec_icones ");
-		if (is_array($detail->sousmenu)) {
-			foreach ($detail->sousmenu as $souspage => $sousdetail) {
-				if ($sousdetail->icone and strlen(trim($sousdetail->icone))) {
-					$res .= "\n$selecteur.bando2_$souspage {background-image:url(" . $sousdetail->icone . ");}";
-				}
-			}
-		}
-	}
+    $res = "";
+    foreach ($boutons as $page => $detail) {
+        $selecteur = (in_array($page, array('outils_rapides', 'outils_collaboratifs')) ? "" : ".navigation_avec_icones ");
+        if (is_array($detail->sousmenu)) {
+            foreach ($detail->sousmenu as $souspage => $sousdetail) {
+                if ($sousdetail->icone and strlen(trim($sousdetail->icone))) {
+                    $res .= "\n$selecteur.bando2_$souspage {background-image:url(" . $sousdetail->icone . ");}";
+                }
+            }
+        }
+    }
 
-	return $res;
+    return $res;
 }
 
 /**
@@ -4512,27 +4512,27 @@ 
  */
 function bouton_action($libelle, $url, $class = '', $confirm = '', $title = '', $callback = '') {
 
-	// Classes : dispatcher `ajax` sur le formulaire
-	$class_form = '';
-	if (strpos($class, 'ajax') !== false) {
-		$class_form = 'ajax';
-		$class = str_replace('ajax', '', $class);
-	}
-	$class_btn = 'submit ' . trim($class);
+    // Classes : dispatcher `ajax` sur le formulaire
+    $class_form = '';
+    if (strpos($class, 'ajax') !== false) {
+        $class_form = 'ajax';
+        $class = str_replace('ajax', '', $class);
+    }
+    $class_btn = 'submit ' . trim($class);
 
-	if ($confirm) {
-		$confirm = "confirm(\"" . attribut_html($confirm) . "\")";
-		if ($callback) {
-			$callback = "$confirm?($callback):false";
-		} else {
-			$callback = $confirm;
-		}
-	}
-	$onclick = $callback ? " onclick='return " . addcslashes($callback, "'") . "'" : "";
-	$title = $title ? " title='$title'" : '';
+    if ($confirm) {
+        $confirm = "confirm(\"" . attribut_html($confirm) . "\")";
+        if ($callback) {
+            $callback = "$confirm?($callback):false";
+        } else {
+            $callback = $confirm;
+        }
+    }
+    $onclick = $callback ? " onclick='return " . addcslashes($callback, "'") . "'" : "";
+    $title = $title ? " title='$title'" : '';
 
-	return "<form class='bouton_action_post $class_form' method='post' action='$url'><div>" . form_hidden($url)
-	. "<button type='submit' class='$class_btn'$title$onclick>$libelle</button></div></form>";
+    return "<form class='bouton_action_post $class_form' method='post' action='$url'><div>" . form_hidden($url)
+    . "<button type='submit' class='$class_btn'$title$onclick>$libelle</button></div></form>";
 }
 
 /**
@@ -4553,78 +4553,78 @@ 
  * @return string
  */
 function generer_info_entite($id_objet, $type_objet, $info, $etoile = "") {
-	static $trouver_table = null;
-	static $objets;
-
-	// On verifie qu'on a tout ce qu'il faut
-	$id_objet = intval($id_objet);
-	if (!($id_objet and $type_objet and $info)) {
-		return '';
-	}
-
-	// si on a deja note que l'objet n'existe pas, ne pas aller plus loin
-	if (isset($objets[$type_objet]) and $objets[$type_objet] === false) {
-		return '';
-	}
-
-	// Si on demande l'url, on retourne direct la fonction
-	if ($info == 'url') {
-		return generer_url_entite($id_objet, $type_objet);
-	}
-
-	// Sinon on va tout chercher dans la table et on garde en memoire
-	$demande_titre = ($info == 'titre');
-
-	// On ne fait la requete que si on a pas deja l'objet ou si on demande le titre mais qu'on ne l'a pas encore
-	if (!isset($objets[$type_objet][$id_objet])
-		or
-		($demande_titre and !isset($objets[$type_objet][$id_objet]['titre']))
-	) {
-		if (!$trouver_table) {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-		}
-		$desc = $trouver_table(table_objet_sql($type_objet));
-		if (!$desc) {
-			return $objets[$type_objet] = false;
-		}
-
-		// Si on demande le titre, on le gere en interne
-		$champ_titre = "";
-		if ($demande_titre) {
-			// si pas de titre declare mais champ titre, il sera peuple par le select *
-			$champ_titre = (!empty($desc['titre'])) ? ', ' . $desc['titre'] : '';
-		}
-		include_spip('base/abstract_sql');
-		include_spip('base/connect_sql');
-		$objets[$type_objet][$id_objet] = sql_fetsel(
-			'*' . $champ_titre,
-			$desc['table_sql'],
-			id_table_objet($type_objet) . ' = ' . intval($id_objet)
-		);
-	}
-
-	// Si la fonction generer_TRUC_TYPE existe, on l'utilise pour formater $info_generee
-	if ($generer = charger_fonction("generer_${info}_${type_objet}", '', true)) {
-		$info_generee = $generer($id_objet, $objets[$type_objet][$id_objet]);
-	} // Si la fonction generer_TRUC_entite existe, on l'utilise pour formater $info_generee
-	else {
-		if ($generer = charger_fonction("generer_${info}_entite", '', true)) {
-			$info_generee = $generer($id_objet, $type_objet, $objets[$type_objet][$id_objet]);
-		} // Sinon on prend directement le champ SQL tel quel
-		else {
-			$info_generee = (isset($objets[$type_objet][$id_objet][$info]) ? $objets[$type_objet][$id_objet][$info] : '');
-		}
-	}
-
-	// On va ensuite appliquer les traitements automatiques si besoin
-	if (!$etoile) {
-		// FIXME: on fournit un ENV minimum avec id et type et connect=''
-		// mais ce fonctionnement est a ameliorer !
-		$info_generee = appliquer_traitement_champ($info_generee, $info, table_objet($type_objet),
-			array('id_objet' => $id_objet, 'objet' => $type_objet, ''));
-	}
-
-	return $info_generee;
+    static $trouver_table = null;
+    static $objets;
+
+    // On verifie qu'on a tout ce qu'il faut
+    $id_objet = intval($id_objet);
+    if (!($id_objet and $type_objet and $info)) {
+        return '';
+    }
+
+    // si on a deja note que l'objet n'existe pas, ne pas aller plus loin
+    if (isset($objets[$type_objet]) and $objets[$type_objet] === false) {
+        return '';
+    }
+
+    // Si on demande l'url, on retourne direct la fonction
+    if ($info == 'url') {
+        return generer_url_entite($id_objet, $type_objet);
+    }
+
+    // Sinon on va tout chercher dans la table et on garde en memoire
+    $demande_titre = ($info == 'titre');
+
+    // On ne fait la requete que si on a pas deja l'objet ou si on demande le titre mais qu'on ne l'a pas encore
+    if (!isset($objets[$type_objet][$id_objet])
+        or
+        ($demande_titre and !isset($objets[$type_objet][$id_objet]['titre']))
+    ) {
+        if (!$trouver_table) {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+        }
+        $desc = $trouver_table(table_objet_sql($type_objet));
+        if (!$desc) {
+            return $objets[$type_objet] = false;
+        }
+
+        // Si on demande le titre, on le gere en interne
+        $champ_titre = "";
+        if ($demande_titre) {
+            // si pas de titre declare mais champ titre, il sera peuple par le select *
+            $champ_titre = (!empty($desc['titre'])) ? ', ' . $desc['titre'] : '';
+        }
+        include_spip('base/abstract_sql');
+        include_spip('base/connect_sql');
+        $objets[$type_objet][$id_objet] = sql_fetsel(
+            '*' . $champ_titre,
+            $desc['table_sql'],
+            id_table_objet($type_objet) . ' = ' . intval($id_objet)
+        );
+    }
+
+    // Si la fonction generer_TRUC_TYPE existe, on l'utilise pour formater $info_generee
+    if ($generer = charger_fonction("generer_${info}_${type_objet}", '', true)) {
+        $info_generee = $generer($id_objet, $objets[$type_objet][$id_objet]);
+    } // Si la fonction generer_TRUC_entite existe, on l'utilise pour formater $info_generee
+    else {
+        if ($generer = charger_fonction("generer_${info}_entite", '', true)) {
+            $info_generee = $generer($id_objet, $type_objet, $objets[$type_objet][$id_objet]);
+        } // Sinon on prend directement le champ SQL tel quel
+        else {
+            $info_generee = (isset($objets[$type_objet][$id_objet][$info]) ? $objets[$type_objet][$id_objet][$info] : '');
+        }
+    }
+
+    // On va ensuite appliquer les traitements automatiques si besoin
+    if (!$etoile) {
+        // FIXME: on fournit un ENV minimum avec id et type et connect=''
+        // mais ce fonctionnement est a ameliorer !
+        $info_generee = appliquer_traitement_champ($info_generee, $info, table_objet($type_objet),
+            array('id_objet' => $id_objet, 'objet' => $type_objet, ''));
+    }
+
+    return $info_generee;
 }
 
 /**
@@ -4638,44 +4638,44 @@ 
  * @return string
  */
 function appliquer_traitement_champ($texte, $champ, $table_objet = '', $env = array(), $connect = '') {
-	if (!$champ) {
-		return $texte;
-	}
+    if (!$champ) {
+        return $texte;
+    }
 	
-	// On charge toujours les filtres de texte car la majorité des traitements les utilisent
-	// et il ne faut pas partir du principe que c'est déjà chargé (form ajax, etc)
-	include_spip('inc/texte');
+    // On charge toujours les filtres de texte car la majorité des traitements les utilisent
+    // et il ne faut pas partir du principe que c'est déjà chargé (form ajax, etc)
+    include_spip('inc/texte');
 	
-	$champ = strtoupper($champ);
-	$traitements = isset($GLOBALS['table_des_traitements'][$champ]) ? $GLOBALS['table_des_traitements'][$champ] : false;
-	if (!$traitements or !is_array($traitements)) {
-		return $texte;
-	}
+    $champ = strtoupper($champ);
+    $traitements = isset($GLOBALS['table_des_traitements'][$champ]) ? $GLOBALS['table_des_traitements'][$champ] : false;
+    if (!$traitements or !is_array($traitements)) {
+        return $texte;
+    }
 
-	$traitement = '';
-	if ($table_objet and (!isset($traitements[0]) or count($traitements) > 1)) {
-		// necessaire pour prendre en charge les vieux appels avec un table_objet_sql en 3e arg
-		$table_objet = table_objet($table_objet);
-		if (isset($traitements[$table_objet])) {
-			$traitement = $traitements[$table_objet];
-		}
-	}
-	if (!$traitement and isset($traitements[0])) {
-		$traitement = $traitements[0];
-	}
-	// (sinon prendre le premier de la liste par defaut ?)
+    $traitement = '';
+    if ($table_objet and (!isset($traitements[0]) or count($traitements) > 1)) {
+        // necessaire pour prendre en charge les vieux appels avec un table_objet_sql en 3e arg
+        $table_objet = table_objet($table_objet);
+        if (isset($traitements[$table_objet])) {
+            $traitement = $traitements[$table_objet];
+        }
+    }
+    if (!$traitement and isset($traitements[0])) {
+        $traitement = $traitements[0];
+    }
+    // (sinon prendre le premier de la liste par defaut ?)
 
-	if (!$traitement) {
-		return $texte;
-	}
+    if (!$traitement) {
+        return $texte;
+    }
 
-	$traitement = str_replace('%s', "'" . texte_script($texte) . "'", $traitement);
+    $traitement = str_replace('%s', "'" . texte_script($texte) . "'", $traitement);
 
-	// Fournir $connect et $Pile[0] au traitement si besoin
-	$Pile = array(0 => $env);
-	eval("\$texte = $traitement;");
+    // Fournir $connect et $Pile[0] au traitement si besoin
+    $Pile = array(0 => $env);
+    eval("\$texte = $traitement;");
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -4689,21 +4689,21 @@ 
  * @return string
  */
 function generer_lien_entite($id_objet, $objet, $longueur = 80, $connect = null) {
-	include_spip('inc/liens');
-	$titre = traiter_raccourci_titre($id_objet, $objet, $connect);
-	// lorsque l'objet n'est plus declare (plugin desactive par exemple)
-	// le raccourcis n'est plus valide
-	$titre = isset($titre['titre']) ? typo($titre['titre']) : '';
-	// on essaye avec generer_info_entite ?
-	if (!strlen($titre) and !$connect) {
-		$titre = generer_info_entite($id_objet, $objet, 'titre');
-	}
-	if (!strlen($titre)) {
-		$titre = _T('info_sans_titre');
-	}
-	$url = generer_url_entite($id_objet, $objet, '', '', $connect);
+    include_spip('inc/liens');
+    $titre = traiter_raccourci_titre($id_objet, $objet, $connect);
+    // lorsque l'objet n'est plus declare (plugin desactive par exemple)
+    // le raccourcis n'est plus valide
+    $titre = isset($titre['titre']) ? typo($titre['titre']) : '';
+    // on essaye avec generer_info_entite ?
+    if (!strlen($titre) and !$connect) {
+        $titre = generer_info_entite($id_objet, $objet, 'titre');
+    }
+    if (!strlen($titre)) {
+        $titre = _T('info_sans_titre');
+    }
+    $url = generer_url_entite($id_objet, $objet, '', '', $connect);
 
-	return "<a href='$url' class='$objet'>" . couper($titre, $longueur) . "</a>";
+    return "<a href='$url' class='$objet'>" . couper($titre, $longueur) . "</a>";
 }
 
 
@@ -4720,15 +4720,15 @@ 
  * @return string
  */
 function wrap($texte, $wrap) {
-	$balises = extraire_balises($wrap);
-	if (preg_match_all(",<([a-z]\w*)\b[^>]*>,UimsS", $wrap, $regs, PREG_PATTERN_ORDER)) {
-		$texte = $wrap . $texte;
-		$regs = array_reverse($regs[1]);
-		$wrap = "</" . implode("></", $regs) . ">";
-		$texte = $texte . $wrap;
-	}
+    $balises = extraire_balises($wrap);
+    if (preg_match_all(",<([a-z]\w*)\b[^>]*>,UimsS", $wrap, $regs, PREG_PATTERN_ORDER)) {
+        $texte = $wrap . $texte;
+        $regs = array_reverse($regs[1]);
+        $wrap = "</" . implode("></", $regs) . ">";
+        $texte = $texte . $wrap;
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -4748,43 +4748,43 @@ 
  * @return array|mixed|string
  */
 function filtre_print_dist($u, $join = "<br />", $indent = 0) {
-	if (is_string($u)) {
-		$u = typo($u);
+    if (is_string($u)) {
+        $u = typo($u);
 
-		return $u;
-	}
+        return $u;
+    }
 
-	// caster $u en array si besoin
-	if (is_object($u)) {
-		$u = (array)$u;
-	}
+    // caster $u en array si besoin
+    if (is_object($u)) {
+        $u = (array)$u;
+    }
 
-	if (is_array($u)) {
-		$out = "";
-		// toutes les cles sont numeriques ?
-		// et aucun enfant n'est un tableau
-		// liste simple separee par des virgules
-		$numeric_keys = array_map('is_numeric', array_keys($u));
-		$array_values = array_map('is_array', $u);
-		$object_values = array_map('is_object', $u);
-		if (array_sum($numeric_keys) == count($numeric_keys)
-			and !array_sum($array_values)
-			and !array_sum($object_values)
-		) {
-			return join(", ", array_map('filtre_print_dist', $u));
-		}
+    if (is_array($u)) {
+        $out = "";
+        // toutes les cles sont numeriques ?
+        // et aucun enfant n'est un tableau
+        // liste simple separee par des virgules
+        $numeric_keys = array_map('is_numeric', array_keys($u));
+        $array_values = array_map('is_array', $u);
+        $object_values = array_map('is_object', $u);
+        if (array_sum($numeric_keys) == count($numeric_keys)
+            and !array_sum($array_values)
+            and !array_sum($object_values)
+        ) {
+            return join(", ", array_map('filtre_print_dist', $u));
+        }
 
-		// sinon on passe a la ligne et on indente
-		$i_str = str_pad("", $indent, " ");
-		foreach ($u as $k => $v) {
-			$out .= $join . $i_str . "$k: " . filtre_print_dist($v, $join, $indent + 2);
-		}
+        // sinon on passe a la ligne et on indente
+        $i_str = str_pad("", $indent, " ");
+        foreach ($u as $k => $v) {
+            $out .= $join . $i_str . "$k: " . filtre_print_dist($v, $join, $indent + 2);
+        }
 
-		return $out;
-	}
+        return $out;
+    }
 
-	// on sait pas quoi faire...
-	return $u;
+    // on sait pas quoi faire...
+    return $u;
 }
 
 
@@ -4797,10 +4797,10 @@ 
  * @return string|array
  */
 function objet_info($objet, $info) {
-	$table = table_objet_sql($objet);
-	$infos = lister_tables_objets_sql($table);
+    $table = table_objet_sql($objet);
+    $infos = lister_tables_objets_sql($table);
 
-	return (isset($infos[$info]) ? $infos[$info] : '');
+    return (isset($infos[$info]) ? $infos[$info] : '');
 }
 
 /**
@@ -4815,11 +4815,11 @@ 
  *     Texte traduit du comptage, tel que '3 articles'
  */
 function objet_afficher_nb($nb, $objet) {
-	if (!$nb) {
-		return _T(objet_info($objet, 'info_aucun_objet'));
-	} else {
-		return _T(objet_info($objet, $nb == 1 ? 'info_1_objet' : 'info_nb_objets'), array('nb' => $nb));
-	}
+    if (!$nb) {
+        return _T(objet_info($objet, 'info_aucun_objet'));
+    } else {
+        return _T(objet_info($objet, $nb == 1 ? 'info_1_objet' : 'info_nb_objets'), array('nb' => $nb));
+    }
 }
 
 /**
@@ -4831,11 +4831,11 @@ 
  * @return string
  */
 function objet_icone($objet, $taille = 24, $class='') {
-	$icone = objet_info($objet, 'icone_objet') . "-" . $taille . ".png";
-	$icone = chemin_image($icone);
-	$balise_img = charger_filtre('balise_img');
+    $icone = objet_info($objet, 'icone_objet') . "-" . $taille . ".png";
+    $icone = chemin_image($icone);
+    $balise_img = charger_filtre('balise_img');
 
-	return $icone ? $balise_img($icone, _T(objet_info($objet, 'texte_objet')), $class, $taille) : '';
+    return $icone ? $balise_img($icone, _T(objet_info($objet, 'texte_objet')), $class, $taille) : '';
 }
 
 /**
@@ -4856,12 +4856,12 @@ 
  * @return string
  */
 function objet_T($objet, $chaine, $args = array(), $options = array()){
-	$chaine = explode(':',$chaine);
-	if ($t = _T($objet . ':' . end($chaine), $args, array_merge($options, array('force'=>false)))) {
-		return $t;
-	}
-	$chaine = implode(':',$chaine);
-	return _T($chaine, $args, $options);
+    $chaine = explode(':',$chaine);
+    if ($t = _T($objet . ':' . end($chaine), $args, array_merge($options, array('force'=>false)))) {
+        return $t;
+    }
+    $chaine = implode(':',$chaine);
+    return _T($chaine, $args, $options);
 }
 
 /**
@@ -4875,17 +4875,17 @@ 
  * @return string      Code HTML
  */
 function insert_head_css_conditionnel($flux) {
-	if (strpos($flux, '<!-- insert_head_css -->') === false
-		and $p = strpos($flux, '<!-- insert_head -->')
-	) {
-		// plutot avant le premier js externe (jquery) pour etre non bloquant
-		if ($p1 = stripos($flux, '<script src=') and $p1 < $p) {
-			$p = $p1;
-		}
-		$flux = substr_replace($flux, pipeline('insert_head_css', '<!-- insert_head_css -->'), $p, 0);
-	}
+    if (strpos($flux, '<!-- insert_head_css -->') === false
+        and $p = strpos($flux, '<!-- insert_head -->')
+    ) {
+        // plutot avant le premier js externe (jquery) pour etre non bloquant
+        if ($p1 = stripos($flux, '<script src=') and $p1 < $p) {
+            $p = $p1;
+        }
+        $flux = substr_replace($flux, pipeline('insert_head_css', '<!-- insert_head_css -->'), $p, 0);
+    }
 
-	return $flux;
+    return $flux;
 }
 
 /**
@@ -4906,69 +4906,69 @@ 
  * @return string
  */
 function produire_fond_statique($fond, $contexte = array(), $options = array(), $connect = '') {
-	if (isset($contexte['format'])) {
-		$extension = $contexte['format'];
-		unset($contexte['format']);
-	} else {
-		$extension = "html";
-		if (preg_match(',[.](css|js|json)$,', $fond, $m)) {
-			$extension = $m[1];
-		}
-	}
-	// recuperer le contenu produit par le squelette
-	$options['raw'] = true;
-	$cache = recuperer_fond($fond, $contexte, $options, $connect);
-
-	// calculer le nom de la css
-	$dir_var = sous_repertoire(_DIR_VAR, 'cache-' . $extension);
-	$nom_safe = preg_replace(",\W,", '_', str_replace('.', '_', $fond));
-	$contexte_implicite = calculer_contexte_implicite();
-
-	// par defaut on hash selon les contextes qui sont a priori moins variables
-	// mais on peut hasher selon le contenu a la demande, si plusieurs contextes produisent un meme contenu
-	// reduit la variabilite du nom et donc le nombre de css concatenees possibles in fine
-	if (isset($options['hash_on_content']) and $options['hash_on_content']) {
-		$hash = md5($contexte_implicite['host'] . '::'. $cache);
-	}
-	else {
-		unset($contexte_implicite['notes']); // pas pertinent pour signaler un changeemnt de contenu pour des css/js
-		ksort($contexte);
-		$hash = md5($fond . json_encode($contexte_implicite) . json_encode($contexte) . $connect);
-	}
-	$filename = $dir_var . $extension . "dyn-$nom_safe-" . substr($hash, 0, 8) . ".$extension";
-
-	// mettre a jour le fichier si il n'existe pas
-	// ou trop ancien
-	// le dernier fichier produit est toujours suffixe par .last
-	// et recopie sur le fichier cible uniquement si il change
-	if (!file_exists($filename)
-		or !file_exists($filename . ".last")
-		or (isset($cache['lastmodified']) and $cache['lastmodified'] and filemtime($filename . ".last") < $cache['lastmodified'])
-		or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')
-	) {
-		$contenu = $cache['texte'];
-		// passer les urls en absolu si c'est une css
-		if ($extension == "css") {
-			$contenu = urls_absolues_css($contenu,
-				test_espace_prive() ? generer_url_ecrire('accueil') : generer_url_public($fond));
-		}
-
-		$comment = '';
-		// ne pas insérer de commentaire si c'est du json
-		if ($extension != "json") {
-			$comment = "/* #PRODUIRE{fond=$fond";
-			foreach ($contexte as $k => $v) {
-				$comment .= ",$k=$v";
-			}
-			// pas de date dans le commentaire car sinon ca invalide le md5 et force la maj
-			// mais on peut mettre un md5 du contenu, ce qui donne un aperu rapide si la feuille a change ou non
-			$comment .= "}\n   md5:" . md5($contenu) . " */\n";
-		}
-		// et ecrire le fichier si il change
-		ecrire_fichier_calcule_si_modifie($filename, $comment . $contenu, false, true);
-	}
-
-	return timestamp($filename);
+    if (isset($contexte['format'])) {
+        $extension = $contexte['format'];
+        unset($contexte['format']);
+    } else {
+        $extension = "html";
+        if (preg_match(',[.](css|js|json)$,', $fond, $m)) {
+            $extension = $m[1];
+        }
+    }
+    // recuperer le contenu produit par le squelette
+    $options['raw'] = true;
+    $cache = recuperer_fond($fond, $contexte, $options, $connect);
+
+    // calculer le nom de la css
+    $dir_var = sous_repertoire(_DIR_VAR, 'cache-' . $extension);
+    $nom_safe = preg_replace(",\W,", '_', str_replace('.', '_', $fond));
+    $contexte_implicite = calculer_contexte_implicite();
+
+    // par defaut on hash selon les contextes qui sont a priori moins variables
+    // mais on peut hasher selon le contenu a la demande, si plusieurs contextes produisent un meme contenu
+    // reduit la variabilite du nom et donc le nombre de css concatenees possibles in fine
+    if (isset($options['hash_on_content']) and $options['hash_on_content']) {
+        $hash = md5($contexte_implicite['host'] . '::'. $cache);
+    }
+    else {
+        unset($contexte_implicite['notes']); // pas pertinent pour signaler un changeemnt de contenu pour des css/js
+        ksort($contexte);
+        $hash = md5($fond . json_encode($contexte_implicite) . json_encode($contexte) . $connect);
+    }
+    $filename = $dir_var . $extension . "dyn-$nom_safe-" . substr($hash, 0, 8) . ".$extension";
+
+    // mettre a jour le fichier si il n'existe pas
+    // ou trop ancien
+    // le dernier fichier produit est toujours suffixe par .last
+    // et recopie sur le fichier cible uniquement si il change
+    if (!file_exists($filename)
+        or !file_exists($filename . ".last")
+        or (isset($cache['lastmodified']) and $cache['lastmodified'] and filemtime($filename . ".last") < $cache['lastmodified'])
+        or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')
+    ) {
+        $contenu = $cache['texte'];
+        // passer les urls en absolu si c'est une css
+        if ($extension == "css") {
+            $contenu = urls_absolues_css($contenu,
+                test_espace_prive() ? generer_url_ecrire('accueil') : generer_url_public($fond));
+        }
+
+        $comment = '';
+        // ne pas insérer de commentaire si c'est du json
+        if ($extension != "json") {
+            $comment = "/* #PRODUIRE{fond=$fond";
+            foreach ($contexte as $k => $v) {
+                $comment .= ",$k=$v";
+            }
+            // pas de date dans le commentaire car sinon ca invalide le md5 et force la maj
+            // mais on peut mettre un md5 du contenu, ce qui donne un aperu rapide si la feuille a change ou non
+            $comment .= "}\n   md5:" . md5($contenu) . " */\n";
+        }
+        // et ecrire le fichier si il change
+        ecrire_fichier_calcule_si_modifie($filename, $comment . $contenu, false, true);
+    }
+
+    return timestamp($filename);
 }
 
 /**
@@ -4981,14 +4981,14 @@ 
  *    $fichier auquel on a ajouté le timestamp
  */
 function timestamp($fichier) {
-	if (!$fichier
-		or !file_exists($fichier)
-		or !$m = filemtime($fichier)
-	) {
-		return $fichier;
-	}
+    if (!$fichier
+        or !file_exists($fichier)
+        or !$m = filemtime($fichier)
+    ) {
+        return $fichier;
+    }
 
-	return "$fichier?$m";
+    return "$fichier?$m";
 }
 
 /**
@@ -4998,11 +4998,11 @@ 
  * @return string
  */
 function supprimer_timestamp($url) {
-	if (strpos($url, "?") === false) {
-		return $url;
-	}
+    if (strpos($url, "?") === false) {
+        return $url;
+    }
 
-	return preg_replace(",\?[[:digit:]]+$,", "", $url);
+    return preg_replace(",\?[[:digit:]]+$,", "", $url);
 }
 
 /**
@@ -5017,9 +5017,9 @@ 
  * @return string
  */
 function filtre_nettoyer_titre_email_dist($titre) {
-	include_spip('inc/envoyer_mail');
+    include_spip('inc/envoyer_mail');
 
-	return nettoyer_titre_email($titre);
+    return nettoyer_titre_email($titre);
 }
 
 /**
@@ -5041,19 +5041,19 @@ 
  * @return string
  */
 function filtre_chercher_rubrique_dist(
-	$titre,
-	$id_objet,
-	$id_parent,
-	$objet,
-	$id_secteur,
-	$restreint,
-	$actionable = false,
-	$retour_sans_cadre = false
+    $titre,
+    $id_objet,
+    $id_parent,
+    $objet,
+    $id_secteur,
+    $restreint,
+    $actionable = false,
+    $retour_sans_cadre = false
 ) {
-	include_spip('inc/filtres_ecrire');
+    include_spip('inc/filtres_ecrire');
 
-	return chercher_rubrique($titre, $id_objet, $id_parent, $objet, $id_secteur, $restreint, $actionable,
-		$retour_sans_cadre);
+    return chercher_rubrique($titre, $id_objet, $id_parent, $objet, $id_secteur, $restreint, $actionable,
+        $retour_sans_cadre);
 }
 
 /**
@@ -5082,56 +5082,56 @@ 
  *     Chaîne vide si l'accès est autorisé
  */
 function sinon_interdire_acces($ok = false, $url = '', $statut = 0, $message = null) {
-	if ($ok) {
-		return '';
-	}
-
-	// Vider tous les tampons
-	$level = @ob_get_level();
-	while ($level--) {
-		@ob_end_clean();
-	}
-
-	include_spip('inc/headers');
-
-	// S'il y a une URL, on redirige (si pas de statut, la fonction mettra 302 par défaut)
-	if ($url) {
-		redirige_par_entete($url, '', $statut);
-	}
-
-	// ecriture simplifiee avec message en 3eme argument (= statut 403)
-	if (!is_numeric($statut) and is_null($message)) {
-		$message = $statut;
-		$statut = 0;
-	}
-	if (!$message) {
-		$message = '';
-	}
-	$statut = intval($statut);
-
-	// Si on est dans l'espace privé, on génère du 403 Forbidden par defaut ou du 404
-	if (test_espace_prive()) {
-		if (!$statut or !in_array($statut, array(404, 403))) {
-			$statut = 403;
-		}
-		http_status(403);
-		$echec = charger_fonction('403', 'exec');
-		$echec($message);
-	} else {
-		// Sinon dans l'espace public on redirige vers une 404 par défaut, car elle toujours présente normalement
-		if (!$statut) {
-			$statut = 404;
-		}
-		// Dans tous les cas on modifie l'entité avec ce qui est demandé
-		http_status($statut);
-		// Si le statut est une erreur et qu'il n'y a pas de redirection on va chercher le squelette du même nom
-		if ($statut >= 400) {
-			echo recuperer_fond("$statut", array('erreur' => $message));
-		}
-	}
-
-
-	exit;
+    if ($ok) {
+        return '';
+    }
+
+    // Vider tous les tampons
+    $level = @ob_get_level();
+    while ($level--) {
+        @ob_end_clean();
+    }
+
+    include_spip('inc/headers');
+
+    // S'il y a une URL, on redirige (si pas de statut, la fonction mettra 302 par défaut)
+    if ($url) {
+        redirige_par_entete($url, '', $statut);
+    }
+
+    // ecriture simplifiee avec message en 3eme argument (= statut 403)
+    if (!is_numeric($statut) and is_null($message)) {
+        $message = $statut;
+        $statut = 0;
+    }
+    if (!$message) {
+        $message = '';
+    }
+    $statut = intval($statut);
+
+    // Si on est dans l'espace privé, on génère du 403 Forbidden par defaut ou du 404
+    if (test_espace_prive()) {
+        if (!$statut or !in_array($statut, array(404, 403))) {
+            $statut = 403;
+        }
+        http_status(403);
+        $echec = charger_fonction('403', 'exec');
+        $echec($message);
+    } else {
+        // Sinon dans l'espace public on redirige vers une 404 par défaut, car elle toujours présente normalement
+        if (!$statut) {
+            $statut = 404;
+        }
+        // Dans tous les cas on modifie l'entité avec ce qui est demandé
+        http_status($statut);
+        // Si le statut est une erreur et qu'il n'y a pas de redirection on va chercher le squelette du même nom
+        if ($statut >= 400) {
+            echo recuperer_fond("$statut", array('erreur' => $message));
+        }
+    }
+
+
+    exit;
 }
 
 /**
@@ -5142,11 +5142,11 @@ 
  * @return string
  */
 function filtre_compacte_dist($source, $format = null) {
-	if (function_exists('compacte')) {
-		return compacte($source, $format);
-	}
+    if (function_exists('compacte')) {
+        return compacte($source, $format);
+    }
 
-	return $source;
+    return $source;
 }
 
 
@@ -5158,31 +5158,31 @@ 
  * @return string
  */
 function spip_affiche_mot_de_passe_masque($passe, $afficher_partiellement = false, $portion_pourcent = null) {
-	$l = strlen($passe);
-
-	if ($l<=8 or !$afficher_partiellement){
-		if (!$l) {
-			return ''; // montrer qu'il y a pas de mot de passe si il y en a pas
-		}
-		return str_pad('',$afficher_partiellement ? $l : 16,'*');
-	}
-
-	if (is_null($portion_pourcent)) {
-		if (!defined('_SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT')) {
-			define('_SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT', 20); // 20%
-		}
-		$portion_pourcent = _SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT;
-	}
-	if ($portion_pourcent >= 100) {
-		return $passe;
-	}
-	$e = intval(ceil($l * $portion_pourcent / 100 / 2));
-	$e = max($e, 0);
-	$mid = str_pad('',$l-2*$e,'*');
-	if ($e>0 and strlen($mid)>8){
-		$mid = '***...***';
-	}
-	return substr($passe,0,$e) . $mid . ($e > 0 ? substr($passe,-$e) : '');
+    $l = strlen($passe);
+
+    if ($l<=8 or !$afficher_partiellement){
+        if (!$l) {
+            return ''; // montrer qu'il y a pas de mot de passe si il y en a pas
+        }
+        return str_pad('',$afficher_partiellement ? $l : 16,'*');
+    }
+
+    if (is_null($portion_pourcent)) {
+        if (!defined('_SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT')) {
+            define('_SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT', 20); // 20%
+        }
+        $portion_pourcent = _SPIP_AFFICHE_MOT_DE_PASSE_MASQUE_PERCENT;
+    }
+    if ($portion_pourcent >= 100) {
+        return $passe;
+    }
+    $e = intval(ceil($l * $portion_pourcent / 100 / 2));
+    $e = max($e, 0);
+    $mid = str_pad('',$l-2*$e,'*');
+    if ($e>0 and strlen($mid)>8){
+        $mid = '***...***';
+    }
+    return substr($passe,0,$e) . $mid . ($e > 0 ? substr($passe,-$e) : '');
 }
 
 
@@ -5203,64 +5203,64 @@ 
  */
 function identifiant_slug($texte, $type = '', $options = array()) {
 
-	$original = $texte;
-	$separateur = (isset($options['separateur'])?$options['separateur']:'_');
-	$longueur_maxi = (isset($options['longueur_maxi'])?$options['longueur_maxi']:60);
-	$longueur_mini = (isset($options['longueur_mini'])?$options['longueur_mini']:0);
+    $original = $texte;
+    $separateur = (isset($options['separateur'])?$options['separateur']:'_');
+    $longueur_maxi = (isset($options['longueur_maxi'])?$options['longueur_maxi']:60);
+    $longueur_mini = (isset($options['longueur_mini'])?$options['longueur_mini']:0);
 
-	if (!function_exists('translitteration')) {
-		include_spip('inc/charsets');
-	}
+    if (!function_exists('translitteration')) {
+        include_spip('inc/charsets');
+    }
 
-	// pas de balise html
-	if (strpos($texte, '<') !== false) {
-		$texte = strip_tags($texte);
-	}
-	if (strpos($texte, '&') !== false) {
-		$texte = unicode2charset($texte);
-	}
-	// On enlève les espaces indésirables
-	$texte = trim($texte);
+    // pas de balise html
+    if (strpos($texte, '<') !== false) {
+        $texte = strip_tags($texte);
+    }
+    if (strpos($texte, '&') !== false) {
+        $texte = unicode2charset($texte);
+    }
+    // On enlève les espaces indésirables
+    $texte = trim($texte);
 
-	// On enlève les accents et cie
-	$texte = translitteration($texte);
+    // On enlève les accents et cie
+    $texte = translitteration($texte);
 
-	// On remplace tout ce qui n'est pas un mot par un séparateur
-	$texte = preg_replace(',[\W_]+,ms', $separateur, $texte);
+    // On remplace tout ce qui n'est pas un mot par un séparateur
+    $texte = preg_replace(',[\W_]+,ms', $separateur, $texte);
 
-	// nettoyer les doubles occurences du separateur si besoin
-	while (strpos($texte, "$separateur$separateur") !== false) {
-		$texte = str_replace("$separateur$separateur", $separateur, $texte);
-	}
+    // nettoyer les doubles occurences du separateur si besoin
+    while (strpos($texte, "$separateur$separateur") !== false) {
+        $texte = str_replace("$separateur$separateur", $separateur, $texte);
+    }
 
-	// pas de separateur au debut ni a la fin
-	$texte = trim($texte, $separateur);
+    // pas de separateur au debut ni a la fin
+    $texte = trim($texte, $separateur);
 
-	// en minuscules
-	$texte = strtolower($texte);
+    // en minuscules
+    $texte = strtolower($texte);
 
-	switch ($type) {
-		case 'class':
-		case 'id':
-		case 'anchor':
-			if (preg_match(',^\d,', $texte)) {
-				$texte = substr($type, 0, 1).$texte;
-			}
-	}
+    switch ($type) {
+        case 'class':
+        case 'id':
+        case 'anchor':
+            if (preg_match(',^\d,', $texte)) {
+                $texte = substr($type, 0, 1).$texte;
+            }
+    }
 
-	if (strlen($texte)>$longueur_maxi) {
-		$texte = substr($texte, 0, $longueur_maxi);
-	}
+    if (strlen($texte)>$longueur_maxi) {
+        $texte = substr($texte, 0, $longueur_maxi);
+    }
 
-	if (strlen($texte) < $longueur_mini and $longueur_mini < $longueur_maxi) {
-		if (preg_match(',^\d,', $texte)) {
-			$texte = ($type ? substr($type,0,1) : "s") . $texte;
-		}
-		$texte .= $separateur . md5($original);
-		$texte = substr($texte, 0, $longueur_mini);
-	}
+    if (strlen($texte) < $longueur_mini and $longueur_mini < $longueur_maxi) {
+        if (preg_match(',^\d,', $texte)) {
+            $texte = ($type ? substr($type,0,1) : "s") . $texte;
+        }
+        $texte .= $separateur . md5($original);
+        $texte = substr($texte, 0, $longueur_mini);
+    }
 
-	return $texte;
+    return $texte;
 }
 
 
@@ -5275,14 +5275,14 @@ 
  * @exemple `<:info_maximum|uniformiser_label:>`
  */
 function uniformiser_label(string $text, bool $ucfirst = true) : string {
-	$label = rtrim($text, " : \t\n\r\0\x0B\xc2\xa0");
-	if ($label and $label[-1] === ';') {
-		$label = preg_replace("#(\&nbsp;)+$#", "", $label);
-	}
-	if ($ucfirst) {
-		$label = spip_ucfirst($label);
-	}
-	return $label;
+    $label = rtrim($text, " : \t\n\r\0\x0B\xc2\xa0");
+    if ($label and $label[-1] === ';') {
+        $label = preg_replace("#(\&nbsp;)+$#", "", $label);
+    }
+    if ($ucfirst) {
+        $label = spip_ucfirst($label);
+    }
+    return $label;
 }
 
 
@@ -5294,19 +5294,19 @@ 
  * @return array
  */
 function helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, $fonction) {
-	if (!in_array($fonction, ['objet_lister_parents', 'objet_lister_enfants', 'objet_lister_parents_par_type', 'objet_lister_enfants_par_type'])) {
-		return [];
-	}
+    if (!in_array($fonction, ['objet_lister_parents', 'objet_lister_enfants', 'objet_lister_parents_par_type', 'objet_lister_enfants_par_type'])) {
+        return [];
+    }
 
-	// compatibilite signature inversee
-	if (is_numeric($objet) and !is_numeric($id_objet)) {
-		list($objet, $id_objet) = [$id_objet, $objet];
-	}
+    // compatibilite signature inversee
+    if (is_numeric($objet) and !is_numeric($id_objet)) {
+        list($objet, $id_objet) = [$id_objet, $objet];
+    }
 
-	if (!function_exists($fonction)) {
-		include_spip('base/objets');
-	}
-	return $fonction($objet, $id_objet);
+    if (!function_exists($fonction)) {
+        include_spip('base/objets');
+    }
+    return $fonction($objet, $id_objet);
 }
 
 
@@ -5321,7 +5321,7 @@ 
  * @return array
  */
 function filtre_objet_lister_parents_dist($objet, $id_objet) {
-	return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_parents');
+    return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_parents');
 }
 
 /**
@@ -5335,7 +5335,7 @@ 
  * @return array
  */
 function filtre_objet_lister_parents_par_type_dist($objet, $id_objet) {
-	return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_parents_par_type');
+    return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_parents_par_type');
 }
 
 /**
@@ -5349,7 +5349,7 @@ 
  * @return array
  */
 function filtre_objet_lister_enfants_dist($objet, $id_objet) {
-	return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_enfants');
+    return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_enfants');
 }
 
 /**
@@ -5363,6 +5363,6 @@ 
  * @return array
  */
 function filtre_objet_lister_enfants_par_type_dist($objet, $id_objet) {
-	return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_enfants_par_type');
+    return helper_filtre_objet_lister_enfants_ou_parents($objet, $id_objet, 'objet_lister_enfants_par_type');
 }
 

ecrire/req/sqlite_fonctions.php

Indentation +227 added lines, -227 removed lines

@@ -17,7 +17,7 @@ 
  */
  
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -38,93 +38,93 @@ 
  */
 function _sqlite_init_functions(&$sqlite) {
 
-	if (!$sqlite) {
-		return false;
-	}
+    if (!$sqlite) {
+        return false;
+    }
 
 
-	$fonctions = array(
-		// A
-		'ACOS'  => array('acos', 1),
-		'ASIN'  => array('asin', 1),
-		'ATAN'  => array('atan', 1), // mysql accepte 2 params comme atan2… hum ?
-		'ATAN2' => array('atan2', 2),
+    $fonctions = array(
+        // A
+        'ACOS'  => array('acos', 1),
+        'ASIN'  => array('asin', 1),
+        'ATAN'  => array('atan', 1), // mysql accepte 2 params comme atan2… hum ?
+        'ATAN2' => array('atan2', 2),
 
-		// C
-		'CEIL'   => array('_sqlite_func_ceil', 1),
-		'CONCAT' => array('_sqlite_func_concat', -1),
-		'COS'    => array('cos', 1),
+        // C
+        'CEIL'   => array('_sqlite_func_ceil', 1),
+        'CONCAT' => array('_sqlite_func_concat', -1),
+        'COS'    => array('cos', 1),
 
-		// D
-		'DATE_FORMAT' => array('_sqlite_func_strftime', 2),
-		'DAYOFMONTH'  => array('_sqlite_func_dayofmonth', 1),
-		'DEGREES'     => array('rad2deg', 1),
+        // D
+        'DATE_FORMAT' => array('_sqlite_func_strftime', 2),
+        'DAYOFMONTH'  => array('_sqlite_func_dayofmonth', 1),
+        'DEGREES'     => array('rad2deg', 1),
 
-		// E
-		'EXTRAIRE_MULTI' => array('_sqlite_func_extraire_multi', 2), // specifique a SPIP/sql_multi()
-		'EXP'            => array('exp', 1),
+        // E
+        'EXTRAIRE_MULTI' => array('_sqlite_func_extraire_multi', 2), // specifique a SPIP/sql_multi()
+        'EXP'            => array('exp', 1),
 
-		// F
-		'FIND_IN_SET' => array('_sqlite_func_find_in_set', 2),
-		'FLOOR'       => array('_sqlite_func_floor', 1),
+        // F
+        'FIND_IN_SET' => array('_sqlite_func_find_in_set', 2),
+        'FLOOR'       => array('_sqlite_func_floor', 1),
 
-		// I
-		'IF'     => array('_sqlite_func_if', 3),
-		'INSERT' => array('_sqlite_func_insert', 4),
-		'INSTR'  => array('_sqlite_func_instr', 2),
+        // I
+        'IF'     => array('_sqlite_func_if', 3),
+        'INSERT' => array('_sqlite_func_insert', 4),
+        'INSTR'  => array('_sqlite_func_instr', 2),
 
-		// L
-		'LEAST'  => array('_sqlite_func_least', 3),
-		'_LEFT'  => array('_sqlite_func_left', 2),
+        // L
+        'LEAST'  => array('_sqlite_func_least', 3),
+        '_LEFT'  => array('_sqlite_func_left', 2),
 #		'LENGTH' => array('strlen', 1), // present v1.0.4
 #		'LOWER'  => array('strtolower', 1), // present v2.4
 #		'LTRIM'  => array('ltrim', 1), // present
 
-		// N
-		'NOW' => array('_sqlite_func_now', 0),
+        // N
+        'NOW' => array('_sqlite_func_now', 0),
 
-		// M
-		'MD5'   => array('md5', 1),
-		'MONTH' => array('_sqlite_func_month', 1),
+        // M
+        'MD5'   => array('md5', 1),
+        'MONTH' => array('_sqlite_func_month', 1),
 
-		// P
-		'PREG_REPLACE' => array('_sqlite_func_preg_replace', 3),
+        // P
+        'PREG_REPLACE' => array('_sqlite_func_preg_replace', 3),
 
-		// R
-		'RADIANS' => array('deg2rad', 1),
-		'RAND'    => array('_sqlite_func_rand', 0), // sinon random() v2.4
-		'REGEXP'  => array('_sqlite_func_regexp_match', 2), // critere REGEXP supporte a partir de v3.3.2
-		'RIGHT'   => array('_sqlite_func_right', 2),
+        // R
+        'RADIANS' => array('deg2rad', 1),
+        'RAND'    => array('_sqlite_func_rand', 0), // sinon random() v2.4
+        'REGEXP'  => array('_sqlite_func_regexp_match', 2), // critere REGEXP supporte a partir de v3.3.2
+        'RIGHT'   => array('_sqlite_func_right', 2),
 #		'RTRIM'   => array('rtrim', 1), // present
 
-		// S
-		'SETTYPE'   => array('settype', 2), // CAST present en v3.2.3
-		'SIN'       => array('sin', 1),
-		'SQRT'      => array('sqrt', 1),
-		'SUBSTRING' => array('_sqlite_func_substring' /*, 3*/), // peut etre appelee avec 2 ou 3 arguments, index base 1 et non 0
+        // S
+        'SETTYPE'   => array('settype', 2), // CAST present en v3.2.3
+        'SIN'       => array('sin', 1),
+        'SQRT'      => array('sqrt', 1),
+        'SUBSTRING' => array('_sqlite_func_substring' /*, 3*/), // peut etre appelee avec 2 ou 3 arguments, index base 1 et non 0
 
-		// T
-		'TAN'           => array('tan', 1),
-		'TIMESTAMPDIFF' => array('_sqlite_timestampdiff'    /*, 3*/),
-		'TO_DAYS'       => array('_sqlite_func_to_days', 1),
+        // T
+        'TAN'           => array('tan', 1),
+        'TIMESTAMPDIFF' => array('_sqlite_timestampdiff'    /*, 3*/),
+        'TO_DAYS'       => array('_sqlite_func_to_days', 1),
 #		'TRIM'          => array('trim', 1), // present
 
-		// U
-		'UNIX_TIMESTAMP' => array('_sqlite_func_unix_timestamp', 1),
+        // U
+        'UNIX_TIMESTAMP' => array('_sqlite_func_unix_timestamp', 1),
 #		'UPPER'          => array('strtoupper', 1), // present v2.4
 
-		// V
-		'VIDE' => array('_sqlite_func_vide', 0), // du vide pour SELECT 0 as x ... ORDER BY x -> ORDER BY vide()
+        // V
+        'VIDE' => array('_sqlite_func_vide', 0), // du vide pour SELECT 0 as x ... ORDER BY x -> ORDER BY vide()
 
-		// Y
-		'YEAR' => array('_sqlite_func_year', 1)
-	);
+        // Y
+        'YEAR' => array('_sqlite_func_year', 1)
+    );
 
-	foreach ($fonctions as $f => $r) {
-		_sqlite_add_function($sqlite, $f, $r);
-	}
+    foreach ($fonctions as $f => $r) {
+        _sqlite_add_function($sqlite, $f, $r);
+    }
 
-	#spip_log('functions sqlite chargees ','sqlite.'._LOG_DEBUG);
+    #spip_log('functions sqlite chargees ','sqlite.'._LOG_DEBUG);
 }
 
 
@@ -145,9 +145,9 @@ 
  * 
 **/
 function _sqlite_add_function(&$sqlite, &$f, &$r) {
-	isset($r[1])
-		? $sqlite->sqliteCreateFunction($f, $r[0], $r[1])
-		: $sqlite->sqliteCreateFunction($f, $r[0]);
+    isset($r[1])
+        ? $sqlite->sqliteCreateFunction($f, $r[0], $r[1])
+        : $sqlite->sqliteCreateFunction($f, $r[0]);
 }
 
 //
@@ -156,41 +156,41 @@ 
 //
 
 function _sqlite_func_ceil($a) {
-	return ceil($a);
+    return ceil($a);
 }
 
 // https://code.spip.net/@_sqlite_func_concat
 function _sqlite_func_concat(...$args) {
-	return join('', $args);
+    return join('', $args);
 }
 
 
 // https://code.spip.net/@_sqlite_func_dayofmonth
 function _sqlite_func_dayofmonth($d) {
-	return _sqlite_func_date("d", $d);
+    return _sqlite_func_date("d", $d);
 }
 
 
 // https://code.spip.net/@_sqlite_func_find_in_set
 function _sqlite_func_find_in_set($num, $set) {
-	$rank = 0;
-	foreach (explode(",", $set) as $v) {
-		if ($v == $num) {
-			return (++$rank);
-		}
-		$rank++;
-	}
-
-	return 0;
+    $rank = 0;
+    foreach (explode(",", $set) as $v) {
+        if ($v == $num) {
+            return (++$rank);
+        }
+        $rank++;
+    }
+
+    return 0;
 }
 
 function _sqlite_func_floor($a) {
-	return floor($a);
+    return floor($a);
 }
 
 // https://code.spip.net/@_sqlite_func_if
 function _sqlite_func_if($bool, $oui, $non) {
-	return ($bool) ? $oui : $non;
+    return ($bool) ? $oui : $non;
 }
 
 
@@ -201,59 +201,59 @@ 
  */
 // https://code.spip.net/@_sqlite_func_insert
 function _sqlite_func_insert($s, $index, $longueur, $chaine) {
-	return
-		substr($s, 0, $index)
-		. $chaine
-		. substr(substr($s, $index), $longueur);
+    return
+        substr($s, 0, $index)
+        . $chaine
+        . substr(substr($s, $index), $longueur);
 }
 
 
 // https://code.spip.net/@_sqlite_func_instr
 function _sqlite_func_instr($s, $search) {
-	return strpos($s, $search);
+    return strpos($s, $search);
 }
 
 
 // https://code.spip.net/@_sqlite_func_least
 function _sqlite_func_least() {
-	$arg_list = func_get_args();
-	$least = min($arg_list);
+    $arg_list = func_get_args();
+    $least = min($arg_list);
 
-	#spip_log("Passage avec LEAST : $least",'sqlite.'._LOG_DEBUG);
-	return $least;
+    #spip_log("Passage avec LEAST : $least",'sqlite.'._LOG_DEBUG);
+    return $least;
 }
 
 
 // https://code.spip.net/@_sqlite_func_left
 function _sqlite_func_left($s, $lenght) {
-	return substr($s, $lenght);
+    return substr($s, $lenght);
 }
 
 
 // https://code.spip.net/@_sqlite_func_now
 function _sqlite_func_now() {
-	static $now = null;
-	if (is_null($now)) {
-		$now = date("Y-m-d H:i:s");
-	}
+    static $now = null;
+    if (is_null($now)) {
+        $now = date("Y-m-d H:i:s");
+    }
 
-	#spip_log("Passage avec NOW : $now",'sqlite.'._LOG_DEBUG);
-	return $now;
+    #spip_log("Passage avec NOW : $now",'sqlite.'._LOG_DEBUG);
+    return $now;
 }
 
 
 // https://code.spip.net/@_sqlite_func_month
 function _sqlite_func_month($d) {
-	return _sqlite_func_date("m", $d);
+    return _sqlite_func_date("m", $d);
 }
 
 
 // https://code.spip.net/@_sqlite_func_preg_replace
 function _sqlite_func_preg_replace($quoi, $cherche, $remplace) {
-	$return = preg_replace('%' . $cherche . '%', $remplace, $quoi);
+    $return = preg_replace('%' . $cherche . '%', $remplace, $quoi);
 
-	#spip_log("preg_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
-	return $return;
+    #spip_log("preg_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
+    return $return;
 }
 
 /**
@@ -264,52 +264,52 @@ 
  * @return string, l'extrait trouve.
  **/
 function _sqlite_func_extraire_multi($quoi, $lang) {
-	if (!defined('_EXTRAIRE_MULTI')) {
-		include_spip('inc/filtres');
-	}
-	if (!function_exists('approcher_langue')) {
-		include_spip('inc/lang');
-	}
-	if (preg_match_all(_EXTRAIRE_MULTI, $quoi, $regs, PREG_SET_ORDER)) {
-		foreach ($regs as $reg) {
-			// chercher la version de la langue courante
-			$trads = extraire_trads($reg[1]);
-			if ($l = approcher_langue($trads, $lang)) {
-				$trad = $trads[$l];
-			} else {
-				$trad = reset($trads);
-			}
-			$quoi = str_replace($reg[0], $trad, $quoi);
-		}
-	}
-
-	return $quoi;
+    if (!defined('_EXTRAIRE_MULTI')) {
+        include_spip('inc/filtres');
+    }
+    if (!function_exists('approcher_langue')) {
+        include_spip('inc/lang');
+    }
+    if (preg_match_all(_EXTRAIRE_MULTI, $quoi, $regs, PREG_SET_ORDER)) {
+        foreach ($regs as $reg) {
+            // chercher la version de la langue courante
+            $trads = extraire_trads($reg[1]);
+            if ($l = approcher_langue($trads, $lang)) {
+                $trad = $trads[$l];
+            } else {
+                $trad = reset($trads);
+            }
+            $quoi = str_replace($reg[0], $trad, $quoi);
+        }
+    }
+
+    return $quoi;
 }
 
 
 // https://code.spip.net/@_sqlite_func_rand
 function _sqlite_func_rand() {
-	return rand();
+    return rand();
 }
 
 
 // https://code.spip.net/@_sqlite_func_right
 function _sqlite_func_right($s, $length) {
-	return substr($s, 0 - $length);
+    return substr($s, 0 - $length);
 }
 
 
 // https://code.spip.net/@_sqlite_func_regexp_match
 function _sqlite_func_regexp_match($cherche, $quoi) {
-	// optimiser un cas tres courant avec les requetes en base
-	if (!$quoi and !strlen($quoi)) {
-		return false;
-	}
-	$u = isset($GLOBALS['meta']['pcre_u']) ? $GLOBALS['meta']['pcre_u'] : 'u';
-	$return = preg_match('%' . $cherche . '%imsS' . $u, $quoi);
-
-	#spip_log("regexp_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
-	return $return;
+    // optimiser un cas tres courant avec les requetes en base
+    if (!$quoi and !strlen($quoi)) {
+        return false;
+    }
+    $u = isset($GLOBALS['meta']['pcre_u']) ? $GLOBALS['meta']['pcre_u'] : 'u';
+    $return = preg_match('%' . $cherche . '%imsS' . $u, $quoi);
+
+    #spip_log("regexp_replace : $quoi, $cherche, $remplace, $return",'sqlite.'._LOG_DEBUG);
+    return $return;
 }
 
 
@@ -321,8 +321,8 @@ 
  * @return string
  */
 function _sqlite_func_strftime($date, $conv) {
-	$conv = _sqlite_func_strftime_format_converter($conv);
-	return strftime($conv, is_int($date) ? $date : strtotime($date));
+    $conv = _sqlite_func_strftime_format_converter($conv);
+    return strftime($conv, is_int($date) ? $date : strtotime($date));
 }
 
 /**
@@ -338,28 +338,28 @@ 
  * @return void
  */
 function _sqlite_func_strftime_format_converter(string $conv) : string {
-	// ok : %a %b %d %e %H %I %l %j %k %m %p %r %S %T %w %y %Y
-	// on ne sait pas en gérer certains...
-	static $mysql_to_strftime_not_ok = ['%c', '%D', '%f', '%U', '%V', '%W', '%X'];
-	static $mysql_to_strftime = [
-		'%h' => '%I',
-		'%i' => '%M',
-		'%M' => '%B',
-		'%s' => '%S',
-		'%u' => '%U',
-		'%v' => '%V',
-		'%x' => '%G',
-	];
-	static $to_strftime = [];
-	if (!isset($to_strftime[$conv])) {
-		$count = 0;
-		str_replace($mysql_to_strftime_not_ok, '', $conv, $count);
-		if ($count > 0) {
-			spip_log("DATE_FORMAT : At least one parameter can't be parsed by strftime with format '$conv'", 'sqlite.' . _LOG_ERREUR);
-		}
-		$to_strftime[$conv] = str_replace(array_keys($mysql_to_strftime), $mysql_to_strftime, $conv);
-	}
-	return $to_strftime[$conv];
+    // ok : %a %b %d %e %H %I %l %j %k %m %p %r %S %T %w %y %Y
+    // on ne sait pas en gérer certains...
+    static $mysql_to_strftime_not_ok = ['%c', '%D', '%f', '%U', '%V', '%W', '%X'];
+    static $mysql_to_strftime = [
+        '%h' => '%I',
+        '%i' => '%M',
+        '%M' => '%B',
+        '%s' => '%S',
+        '%u' => '%U',
+        '%v' => '%V',
+        '%x' => '%G',
+    ];
+    static $to_strftime = [];
+    if (!isset($to_strftime[$conv])) {
+        $count = 0;
+        str_replace($mysql_to_strftime_not_ok, '', $conv, $count);
+        if ($count > 0) {
+            spip_log("DATE_FORMAT : At least one parameter can't be parsed by strftime with format '$conv'", 'sqlite.' . _LOG_ERREUR);
+        }
+        $to_strftime[$conv] = str_replace(array_keys($mysql_to_strftime), $mysql_to_strftime, $conv);
+    }
+    return $to_strftime[$conv];
 }
 
 /**
@@ -371,21 +371,21 @@ 
  * @return int
  */
 function _sqlite_func_to_days($d) {
-	static $offset = 719528; // nb de jour entre 0000-00-00 et timestamp 0=1970-01-01
-	$result = $offset + (int)ceil(_sqlite_func_unix_timestamp($d) / (24 * 3600));
+    static $offset = 719528; // nb de jour entre 0000-00-00 et timestamp 0=1970-01-01
+    $result = $offset + (int)ceil(_sqlite_func_unix_timestamp($d) / (24 * 3600));
 
-	#spip_log("Passage avec TO_DAYS : $d, $result",'sqlite.'._LOG_DEBUG);
-	return $result;
+    #spip_log("Passage avec TO_DAYS : $d, $result",'sqlite.'._LOG_DEBUG);
+    return $result;
 }
 
 function _sqlite_func_substring($string, $start, $len = null) {
-	// SQL compte a partir de 1, php a partir de 0
-	$start = ($start > 0) ? $start - 1 : $start;
-	if (is_null($len)) {
-		return substr($string, $start);
-	} else {
-		return substr($string, $start, $len);
-	}
+    // SQL compte a partir de 1, php a partir de 0
+    $start = ($start > 0) ? $start - 1 : $start;
+    if (is_null($len)) {
+        return substr($string, $start);
+    } else {
+        return substr($string, $start, $len);
+    }
 }
 
 /**
@@ -399,61 +399,61 @@ 
  * @return int
  */
 function _sqlite_timestampdiff($unit, $date1, $date2) {
-	$d1 = date_create($date1);
-	$d2 = date_create($date2);
-	$diff = date_diff($d1, $d2);
-	$inv = $diff->invert ? -1 : 1;
-	switch ($unit) {
-		case "YEAR":
-			return $inv * $diff->y;
-		case "QUARTER":
-			return $inv * (4 * $diff->y + intval(floor($diff->m / 3)));
-		case "MONTH":
-			return $inv * (12 * $diff->y + $diff->m);
-		case "WEEK":
-			return $inv * intval(floor($diff->days / 7));
-		case "DAY":
-			#var_dump($inv*$diff->days);
-			return $inv * $diff->days;
-		case "HOUR":
-			return $inv * (24 * $diff->days + $diff->h);
-		case "MINUTE":
-			return $inv * ((24 * $diff->days + $diff->h) * 60 + $diff->i);
-		case "SECOND":
-			return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s);
-		case "MICROSECOND":
-			return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s) * 1000000;
-	}
-
-	return 0;
+    $d1 = date_create($date1);
+    $d2 = date_create($date2);
+    $diff = date_diff($d1, $d2);
+    $inv = $diff->invert ? -1 : 1;
+    switch ($unit) {
+        case "YEAR":
+            return $inv * $diff->y;
+        case "QUARTER":
+            return $inv * (4 * $diff->y + intval(floor($diff->m / 3)));
+        case "MONTH":
+            return $inv * (12 * $diff->y + $diff->m);
+        case "WEEK":
+            return $inv * intval(floor($diff->days / 7));
+        case "DAY":
+            #var_dump($inv*$diff->days);
+            return $inv * $diff->days;
+        case "HOUR":
+            return $inv * (24 * $diff->days + $diff->h);
+        case "MINUTE":
+            return $inv * ((24 * $diff->days + $diff->h) * 60 + $diff->i);
+        case "SECOND":
+            return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s);
+        case "MICROSECOND":
+            return $inv * (((24 * $diff->days + $diff->h) * 60 + $diff->i) * 60 + $diff->s) * 1000000;
+    }
+
+    return 0;
 }
 
 // https://code.spip.net/@_sqlite_func_unix_timestamp
 function _sqlite_func_unix_timestamp($d) {
-	static $mem = array();
-	static $n = 0;
-	if (isset($mem[$d])) {
-		return $mem[$d];
-	}
-	if ($n++ > 100) {
-		$mem = array();
-		$n = 0;
-	}
-
-	//2005-12-02 20:53:53
-	#spip_log("Passage avec UNIX_TIMESTAMP : $d",'sqlite.'._LOG_DEBUG);
-	if (!$d) {
-		return $mem[$d] = mktime();
-	}
-
-	// une pile plus grosse n'accelere pas le calcul
-	return $mem[$d] = strtotime($d);
+    static $mem = array();
+    static $n = 0;
+    if (isset($mem[$d])) {
+        return $mem[$d];
+    }
+    if ($n++ > 100) {
+        $mem = array();
+        $n = 0;
+    }
+
+    //2005-12-02 20:53:53
+    #spip_log("Passage avec UNIX_TIMESTAMP : $d",'sqlite.'._LOG_DEBUG);
+    if (!$d) {
+        return $mem[$d] = mktime();
+    }
+
+    // une pile plus grosse n'accelere pas le calcul
+    return $mem[$d] = strtotime($d);
 }
 
 
 // https://code.spip.net/@_sqlite_func_year
 function _sqlite_func_year($d) {
-	return _sqlite_func_date("Y", $d);
+    return _sqlite_func_date("Y", $d);
 }
 
 /**
@@ -467,23 +467,23 @@ 
  * @return int
  */
 function _sqlite_func_date($quoi, $d) {
-	static $mem = array();
-	static $n = 0;
-	if (isset($mem[$d])) {
-		return $mem[$d][$quoi];
-	}
-	if ($n++ > 100) {
-		$mem = array();
-		$n = 0;
-	}
-
-	$dec = date("Y-m-d", _sqlite_func_unix_timestamp($d));
-	$mem[$d] = array("Y" => substr($dec, 0, 4), "m" => substr($dec, 5, 2), "d" => substr($dec, 8, 2));
-
-	return $mem[$d][$quoi];
+    static $mem = array();
+    static $n = 0;
+    if (isset($mem[$d])) {
+        return $mem[$d][$quoi];
+    }
+    if ($n++ > 100) {
+        $mem = array();
+        $n = 0;
+    }
+
+    $dec = date("Y-m-d", _sqlite_func_unix_timestamp($d));
+    $mem[$d] = array("Y" => substr($dec, 0, 4), "m" => substr($dec, 5, 2), "d" => substr($dec, 8, 2));
+
+    return $mem[$d][$quoi];
 }
 
 // https://code.spip.net/@_sqlite_func_vide
 function _sqlite_func_vide() {
-	return;
+    return;
 }

ecrire/balise/formulaire_.php

Indentation +244 added lines, -244 removed lines

@@ -15,7 +15,7 @@ 
  * @package SPIP\Core\Formulaires
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/filtres');
@@ -34,24 +34,24 @@ 
  *     Saisie protégée
  **/
 function protege_champ($texte) {
-	if (is_array($texte)) {
-		$texte = array_map('protege_champ', $texte);
-	} else {
-		// ne pas corrompre une valeur serialize
-		if ((preg_match(",^[abis]:\d+[:;],", $texte) and @unserialize($texte) != false) or is_null($texte)) {
-			return $texte;
-		}
-		if (is_string($texte)
-			and $texte
-			and strpbrk($texte, "&\"'<>") !== false
-		) {
-			$texte = spip_htmlspecialchars($texte, ENT_QUOTES);
-		} elseif (is_bool($texte)) {
-			$texte = ($texte ? '1' : '');
-		}
-	}
-
-	return $texte;
+    if (is_array($texte)) {
+        $texte = array_map('protege_champ', $texte);
+    } else {
+        // ne pas corrompre une valeur serialize
+        if ((preg_match(",^[abis]:\d+[:;],", $texte) and @unserialize($texte) != false) or is_null($texte)) {
+            return $texte;
+        }
+        if (is_string($texte)
+            and $texte
+            and strpbrk($texte, "&\"'<>") !== false
+        ) {
+            $texte = spip_htmlspecialchars($texte, ENT_QUOTES);
+        } elseif (is_bool($texte)) {
+            $texte = ($texte ? '1' : '');
+        }
+    }
+
+    return $texte;
 }
 
 /**
@@ -65,17 +65,17 @@ 
  *     - false : pas de squelette trouvé
  **/
 function existe_formulaire($form) {
-	if (substr($form, 0, 11) == "FORMULAIRE_") {
-		$form = strtolower(substr($form, 11));
-	} else {
-		$form = strtolower($form);
-	}
+    if (substr($form, 0, 11) == "FORMULAIRE_") {
+        $form = strtolower(substr($form, 11));
+    } else {
+        $form = strtolower($form);
+    }
 
-	if (!$form) {
-		return '';
-	} // on ne sait pas, le nom du formulaire n'est pas fourni ici
+    if (!$form) {
+        return '';
+    } // on ne sait pas, le nom du formulaire n'est pas fourni ici
 
-	return trouver_fond($form, 'formulaires/') ? $form : false;
+    return trouver_fond($form, 'formulaires/') ? $form : false;
 }
 
 /**
@@ -84,29 +84,29 @@ 
  * @return false|array
  */
 function test_formulaire_inclus_par_modele() {
-	$trace = debug_backtrace(null, 20);
-	$trace_fonctions = array_column($trace, 'function');
-	$trace_fonctions = array_map('strtolower', $trace_fonctions);
-
-	// regarder si un flag a ete leve juste avant l'appel de balise_FORMULAIRE_dyn
-	if (function_exists('arguments_balise_dyn_depuis_modele')
-		and $form = arguments_balise_dyn_depuis_modele(null, 'read')) {
-		if (in_array('balise_formulaire__dyn', $trace_fonctions)) {
-			$k = array_search('balise_formulaire__dyn', $trace_fonctions);
-			if ($trace[$k]['args'][0] === $form) {
-				return $trace[$k]['args'];
-			}
-		}
-	}
-
-	// fallback qui ne repose pas sur le flag lie a l'analyse de contexte_compil,
-	// mais ne marche pas si executer_balise_dynamique est appelee via du php dans le squelette
-	if (in_array('eval', $trace_fonctions) and in_array('inclure_modele', $trace_fonctions)) {
-		$k = array_search('inclure_modele', $trace_fonctions);
-		// les arguments de recuperer_fond() passes par inclure_modele()
-		return $trace[$k-1]['args'][1]['args'];
-	}
-	return false;
+    $trace = debug_backtrace(null, 20);
+    $trace_fonctions = array_column($trace, 'function');
+    $trace_fonctions = array_map('strtolower', $trace_fonctions);
+
+    // regarder si un flag a ete leve juste avant l'appel de balise_FORMULAIRE_dyn
+    if (function_exists('arguments_balise_dyn_depuis_modele')
+        and $form = arguments_balise_dyn_depuis_modele(null, 'read')) {
+        if (in_array('balise_formulaire__dyn', $trace_fonctions)) {
+            $k = array_search('balise_formulaire__dyn', $trace_fonctions);
+            if ($trace[$k]['args'][0] === $form) {
+                return $trace[$k]['args'];
+            }
+        }
+    }
+
+    // fallback qui ne repose pas sur le flag lie a l'analyse de contexte_compil,
+    // mais ne marche pas si executer_balise_dynamique est appelee via du php dans le squelette
+    if (in_array('eval', $trace_fonctions) and in_array('inclure_modele', $trace_fonctions)) {
+        $k = array_search('inclure_modele', $trace_fonctions);
+        // les arguments de recuperer_fond() passes par inclure_modele()
+        return $trace[$k-1]['args'][1]['args'];
+    }
+    return false;
 }
 
 /**
@@ -121,17 +121,17 @@ 
  **/
 function balise_FORMULAIRE__dist($p) {
 
-	// Cas d'un #FORMULAIRE_TOTO inexistant : renvoyer la chaine vide.
-	// mais si #FORMULAIRE_{toto} on ne peut pas savoir a la compilation, continuer
-	if (existe_formulaire($p->nom_champ) === false) {
-		$p->code = "''";
-		$p->interdire_scripts = false;
+    // Cas d'un #FORMULAIRE_TOTO inexistant : renvoyer la chaine vide.
+    // mais si #FORMULAIRE_{toto} on ne peut pas savoir a la compilation, continuer
+    if (existe_formulaire($p->nom_champ) === false) {
+        $p->code = "''";
+        $p->interdire_scripts = false;
 
-		return $p;
-	}
+        return $p;
+    }
 
-	// sinon renvoyer un code php dynamique
-	return calculer_balise_dynamique($p, $p->nom_champ, array());
+    // sinon renvoyer un code php dynamique
+    return calculer_balise_dynamique($p, $p->nom_champ, array());
 }
 
 /**
@@ -151,17 +151,17 @@ 
  *     - string : texte à afficher directement
  */
 function balise_FORMULAIRE__dyn($form, ...$args) {
-	$form = existe_formulaire($form);
-	if (!$form) {
-		return '';
-	}
+    $form = existe_formulaire($form);
+    if (!$form) {
+        return '';
+    }
 
-	$contexte = balise_FORMULAIRE__contexte($form, $args);
-	if (!is_array($contexte)) {
-		return $contexte;
-	}
+    $contexte = balise_FORMULAIRE__contexte($form, $args);
+    if (!is_array($contexte)) {
+        return $contexte;
+    }
 
-	return array("formulaires/$form", 3600, $contexte);
+    return array("formulaires/$form", 3600, $contexte);
 }
 
 /**
@@ -175,132 +175,132 @@ 
  *     Contexte d'environnement à envoyer au squelette
  **/
 function balise_FORMULAIRE__contexte($form, $args) {
-	// tester si ce formulaire vient d'etre poste (memes arguments)
-	// pour ne pas confondre 2 #FORMULAIRES_XX identiques sur une meme page
-	// si poste, on recupere les erreurs
-
-	$je_suis_poste = false;
-	if ($post_form = _request('formulaire_action')
-		and $post_form == $form
-		and $p = _request('formulaire_action_args')
-		and is_array($p = decoder_contexte_ajax($p, $post_form))
-	) {
-		// enlever le faux attribut de langue masque
-		array_shift($p);
-		if (formulaire__identifier($form, $args, $p)) {
-			$je_suis_poste = true;
-		}
-	}
-
-	$editable = true;
-	$erreurs = $post = array();
-	if ($je_suis_poste) {
-		$post = traiter_formulaires_dynamiques(true);
-		$e = "erreurs_$form";
-		$erreurs = isset($post[$e]) ? $post[$e] : array();
-		$editable = "editable_$form";
-		$editable = (!isset($post[$e]))
-			|| count($erreurs)
-			|| (isset($post[$editable]) && $post[$editable]);
-	}
-
-	$valeurs = formulaire__charger($form, $args, $je_suis_poste);
-
-	// si $valeurs n'est pas un tableau, le formulaire n'est pas applicable
-	// C'est plus fort qu'editable qui est gere par le squelette 
-	// Idealement $valeur doit etre alors un message explicatif.
-	if (!is_array($valeurs)) {
-		return is_string($valeurs) ? $valeurs : '';
-	}
-
-	// charger peut passer une action si le formulaire ne tourne pas sur self()
-	// ou une action vide si elle ne sert pas
-	$action = (isset($valeurs['action'])) ? $valeurs['action'] : self('&amp;', true);
-	// bug IEx : si action finit par / 
-	// IE croit que le <form ... action=../ > est autoferme
-	if (substr($action, -1) == '/') {
-		// on ajoute une ancre pour feinter IE, au pire ca tue l'ancre qui finit par un /
-		$action .= '#';
-	}
-
-	// recuperer la saisie en cours si erreurs
-	// seulement si c'est ce formulaire qui est poste
-	// ou si on le demande explicitement par le parametre _forcer_request = true
-	$dispo = ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request']));
-	foreach (array_keys($valeurs) as $champ) {
-		if ($champ[0] !== '_' and !in_array($champ, array('message_ok', 'message_erreur', 'editable'))) {
-			if ($dispo and (($v = _request($champ)) !== null)) {
-				$valeurs[$champ] = $v;
-			}
-			// nettoyer l'url des champs qui vont etre saisis
-			if ($action) {
-				$action = parametre_url($action, $champ, '');
-			}
-			// proteger les ' et les " dans les champs que l'on va injecter
-			$valeurs[$champ] = protege_champ($valeurs[$champ]);
-		}
-	}
-
-	if ($action) {
-		// nettoyer l'url
-		$action = parametre_url($action, 'formulaire_action', '');
-		$action = parametre_url($action, 'formulaire_action_args', '');
-	}
-
-	if (isset($valeurs['_action'])) {
-		$securiser_action = charger_fonction('securiser_action', 'inc');
-		$secu = $securiser_action(reset($valeurs['_action']), end($valeurs['_action']), '', -1);
-		$valeurs['_hidden'] = (isset($valeurs['_hidden']) ? $valeurs['_hidden'] : '') .
-			"<input type='hidden' name='arg' value='" . $secu['arg'] . "' />"
-			. "<input type='hidden' name='hash' value='" . $secu['hash'] . "' />";
-	}
-
-	// empiler la lang en tant que premier argument implicite du CVT
-	// pour permettre de la restaurer au moment du Verifier et du Traiter
-	array_unshift($args, $GLOBALS['spip_lang']);
-
-	$valeurs['formulaire_args'] = encoder_contexte_ajax($args, $form);
-	$valeurs['erreurs'] = $erreurs;
-	$valeurs['action'] = $action;
-	$valeurs['form'] = $form;
-
-	if (!isset($valeurs['id'])) {
-		$valeurs['id'] = 'new';
-	}
-	// editable peut venir de charger() ou de traiter() sinon
-	if (!isset($valeurs['editable'])) {
-		$valeurs['editable'] = $editable;
-	}
-	// dans tous les cas, renvoyer un espace ou vide (et pas un booleen)
-	$valeurs['editable'] = ($valeurs['editable'] ? ' ' : '');
-
-	if ($je_suis_poste) {
-		$valeurs['message_erreur'] = "";
-		if (isset($erreurs['message_erreur'])) {
-			$valeurs['message_erreur'] = $erreurs['message_erreur'];
-		}
-
-		$valeurs['message_ok'] = "";
-		if (isset($post["message_ok_$form"])) {
-			$valeurs['message_ok'] = $post["message_ok_$form"];
-		} elseif (isset($erreurs['message_ok'])) {
-			$valeurs['message_ok'] = $erreurs["message_ok"];
-		}
-
-		// accessibilite : encapsuler toutes les erreurs dans un role='alert'
-		// uniquement si c'est une string et au premier niveau (on ne touche pas au tableaux)
-		// et si $k ne commence pas par un _ (c'est bien une vrai erreur sur un vrai champ)
-		if (html5_permis()) {
-			foreach ($erreurs as $k => $v) {
-				if (is_string($v) and strpos($k,'_') !== 0) {
-					// on encapsule dans un span car ces messages sont en general simple, juste du texte, et deja dans un span dans le form
-					$valeurs['erreurs'][$k] = "<span role='alert'>".$erreurs[$k]."</span>";
-				}
-			}
-		}
-	}
-
-	return $valeurs;
+    // tester si ce formulaire vient d'etre poste (memes arguments)
+    // pour ne pas confondre 2 #FORMULAIRES_XX identiques sur une meme page
+    // si poste, on recupere les erreurs
+
+    $je_suis_poste = false;
+    if ($post_form = _request('formulaire_action')
+        and $post_form == $form
+        and $p = _request('formulaire_action_args')
+        and is_array($p = decoder_contexte_ajax($p, $post_form))
+    ) {
+        // enlever le faux attribut de langue masque
+        array_shift($p);
+        if (formulaire__identifier($form, $args, $p)) {
+            $je_suis_poste = true;
+        }
+    }
+
+    $editable = true;
+    $erreurs = $post = array();
+    if ($je_suis_poste) {
+        $post = traiter_formulaires_dynamiques(true);
+        $e = "erreurs_$form";
+        $erreurs = isset($post[$e]) ? $post[$e] : array();
+        $editable = "editable_$form";
+        $editable = (!isset($post[$e]))
+            || count($erreurs)
+            || (isset($post[$editable]) && $post[$editable]);
+    }
+
+    $valeurs = formulaire__charger($form, $args, $je_suis_poste);
+
+    // si $valeurs n'est pas un tableau, le formulaire n'est pas applicable
+    // C'est plus fort qu'editable qui est gere par le squelette 
+    // Idealement $valeur doit etre alors un message explicatif.
+    if (!is_array($valeurs)) {
+        return is_string($valeurs) ? $valeurs : '';
+    }
+
+    // charger peut passer une action si le formulaire ne tourne pas sur self()
+    // ou une action vide si elle ne sert pas
+    $action = (isset($valeurs['action'])) ? $valeurs['action'] : self('&amp;', true);
+    // bug IEx : si action finit par / 
+    // IE croit que le <form ... action=../ > est autoferme
+    if (substr($action, -1) == '/') {
+        // on ajoute une ancre pour feinter IE, au pire ca tue l'ancre qui finit par un /
+        $action .= '#';
+    }
+
+    // recuperer la saisie en cours si erreurs
+    // seulement si c'est ce formulaire qui est poste
+    // ou si on le demande explicitement par le parametre _forcer_request = true
+    $dispo = ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request']));
+    foreach (array_keys($valeurs) as $champ) {
+        if ($champ[0] !== '_' and !in_array($champ, array('message_ok', 'message_erreur', 'editable'))) {
+            if ($dispo and (($v = _request($champ)) !== null)) {
+                $valeurs[$champ] = $v;
+            }
+            // nettoyer l'url des champs qui vont etre saisis
+            if ($action) {
+                $action = parametre_url($action, $champ, '');
+            }
+            // proteger les ' et les " dans les champs que l'on va injecter
+            $valeurs[$champ] = protege_champ($valeurs[$champ]);
+        }
+    }
+
+    if ($action) {
+        // nettoyer l'url
+        $action = parametre_url($action, 'formulaire_action', '');
+        $action = parametre_url($action, 'formulaire_action_args', '');
+    }
+
+    if (isset($valeurs['_action'])) {
+        $securiser_action = charger_fonction('securiser_action', 'inc');
+        $secu = $securiser_action(reset($valeurs['_action']), end($valeurs['_action']), '', -1);
+        $valeurs['_hidden'] = (isset($valeurs['_hidden']) ? $valeurs['_hidden'] : '') .
+            "<input type='hidden' name='arg' value='" . $secu['arg'] . "' />"
+            . "<input type='hidden' name='hash' value='" . $secu['hash'] . "' />";
+    }
+
+    // empiler la lang en tant que premier argument implicite du CVT
+    // pour permettre de la restaurer au moment du Verifier et du Traiter
+    array_unshift($args, $GLOBALS['spip_lang']);
+
+    $valeurs['formulaire_args'] = encoder_contexte_ajax($args, $form);
+    $valeurs['erreurs'] = $erreurs;
+    $valeurs['action'] = $action;
+    $valeurs['form'] = $form;
+
+    if (!isset($valeurs['id'])) {
+        $valeurs['id'] = 'new';
+    }
+    // editable peut venir de charger() ou de traiter() sinon
+    if (!isset($valeurs['editable'])) {
+        $valeurs['editable'] = $editable;
+    }
+    // dans tous les cas, renvoyer un espace ou vide (et pas un booleen)
+    $valeurs['editable'] = ($valeurs['editable'] ? ' ' : '');
+
+    if ($je_suis_poste) {
+        $valeurs['message_erreur'] = "";
+        if (isset($erreurs['message_erreur'])) {
+            $valeurs['message_erreur'] = $erreurs['message_erreur'];
+        }
+
+        $valeurs['message_ok'] = "";
+        if (isset($post["message_ok_$form"])) {
+            $valeurs['message_ok'] = $post["message_ok_$form"];
+        } elseif (isset($erreurs['message_ok'])) {
+            $valeurs['message_ok'] = $erreurs["message_ok"];
+        }
+
+        // accessibilite : encapsuler toutes les erreurs dans un role='alert'
+        // uniquement si c'est une string et au premier niveau (on ne touche pas au tableaux)
+        // et si $k ne commence pas par un _ (c'est bien une vrai erreur sur un vrai champ)
+        if (html5_permis()) {
+            foreach ($erreurs as $k => $v) {
+                if (is_string($v) and strpos($k,'_') !== 0) {
+                    // on encapsule dans un span car ces messages sont en general simple, juste du texte, et deja dans un span dans le form
+                    $valeurs['erreurs'][$k] = "<span role='alert'>".$erreurs[$k]."</span>";
+                }
+            }
+        }
+    }
+
+    return $valeurs;
 }
 
 /**
@@ -312,51 +312,51 @@ 
  * @return array
  */
 function formulaire__charger($form, $args, $poste) {
-	if ($charger_valeurs = charger_fonction("charger", "formulaires/$form", true)) {
-		$valeurs = call_user_func_array($charger_valeurs, $args);
-	} else {
-		$valeurs = array();
-	}
-
-	$valeurs = pipeline(
-		'formulaire_charger',
-		array(
-			'args' => array('form' => $form, 'args' => $args, 'je_suis_poste' => $poste),
-			'data' => $valeurs
-		)
-	);
-
-	// prise en charge CVT multi etape
-	if (is_array($valeurs) and isset($valeurs['_etapes'])) {
-		include_spip('inc/cvt_multietapes');
-		$valeurs = cvtmulti_formulaire_charger_etapes(
-			array('form' => $form, 'args' => $args, 'je_suis_poste' => $poste), 
-			$valeurs
-		);
-	}
-
-	// si $valeurs et false ou une chaine, pas de formulaire, donc pas de pipeline !
-	if (is_array($valeurs)) {
-		if (!isset($valeurs['_pipelines'])) {
-			$valeurs['_pipelines'] = array();
-		}
-		// l'ancien argument _pipeline devient maintenant _pipelines
-		// reinjectons le vieux _pipeline au debut de _pipelines
-		if (isset($valeurs['_pipeline'])) {
-			$pipe = is_array($valeurs['_pipeline']) ? reset($valeurs['_pipeline']) : $valeurs['_pipeline'];
-			$args = is_array($valeurs['_pipeline']) ? end($valeurs['_pipeline']) : array();
-
-			$pipelines = array($pipe => $args);
-			$valeurs['_pipelines'] = array_merge($pipelines, $valeurs['_pipelines']);
-		}
-
-		// et enfin, ajoutons systematiquement un pipeline sur le squelette du formulaire
-		// qui constitue le cas le plus courant d'utilisation du pipeline recuperer_fond
-		// (performance, cela evite de s'injecter dans recuperer_fond utilise pour *tous* les squelettes)
-		$valeurs['_pipelines']['formulaire_fond'] = array('form' => $form, 'args' => $args, 'je_suis_poste' => $poste);
-	}
-
-	return $valeurs;
+    if ($charger_valeurs = charger_fonction("charger", "formulaires/$form", true)) {
+        $valeurs = call_user_func_array($charger_valeurs, $args);
+    } else {
+        $valeurs = array();
+    }
+
+    $valeurs = pipeline(
+        'formulaire_charger',
+        array(
+            'args' => array('form' => $form, 'args' => $args, 'je_suis_poste' => $poste),
+            'data' => $valeurs
+        )
+    );
+
+    // prise en charge CVT multi etape
+    if (is_array($valeurs) and isset($valeurs['_etapes'])) {
+        include_spip('inc/cvt_multietapes');
+        $valeurs = cvtmulti_formulaire_charger_etapes(
+            array('form' => $form, 'args' => $args, 'je_suis_poste' => $poste), 
+            $valeurs
+        );
+    }
+
+    // si $valeurs et false ou une chaine, pas de formulaire, donc pas de pipeline !
+    if (is_array($valeurs)) {
+        if (!isset($valeurs['_pipelines'])) {
+            $valeurs['_pipelines'] = array();
+        }
+        // l'ancien argument _pipeline devient maintenant _pipelines
+        // reinjectons le vieux _pipeline au debut de _pipelines
+        if (isset($valeurs['_pipeline'])) {
+            $pipe = is_array($valeurs['_pipeline']) ? reset($valeurs['_pipeline']) : $valeurs['_pipeline'];
+            $args = is_array($valeurs['_pipeline']) ? end($valeurs['_pipeline']) : array();
+
+            $pipelines = array($pipe => $args);
+            $valeurs['_pipelines'] = array_merge($pipelines, $valeurs['_pipelines']);
+        }
+
+        // et enfin, ajoutons systematiquement un pipeline sur le squelette du formulaire
+        // qui constitue le cas le plus courant d'utilisation du pipeline recuperer_fond
+        // (performance, cela evite de s'injecter dans recuperer_fond utilise pour *tous* les squelettes)
+        $valeurs['_pipelines']['formulaire_fond'] = array('form' => $form, 'args' => $args, 'je_suis_poste' => $poste);
+    }
+
+    return $valeurs;
 }
 
 /**
@@ -375,9 +375,9 @@ 
  * @return bool
  */
 function formulaire__identifier($form, $args, $p) {
-	if ($identifier_args = charger_fonction("identifier", "formulaires/$form", true)) {
-		return call_user_func_array($identifier_args, $args) === call_user_func_array($identifier_args, $p);
-	}
+    if ($identifier_args = charger_fonction("identifier", "formulaires/$form", true)) {
+        return call_user_func_array($identifier_args, $args) === call_user_func_array($identifier_args, $p);
+    }
 
-	return $args === $p;
+    return $args === $p;
 }