spip / SPIP

ecrire/install/etape_.php

Indentation +14 added lines, -14 removed lines

@@ -18,7 +18,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -27,18 +27,18 @@ 
  * @uses info_copyright()
  **/
 function install_etape__dist() {
-	utiliser_langue_visiteur();
-	$menu_langues = menu_langues('var_lang_ecrire');
-	if (!$menu_langues) {
-		redirige_url_ecrire('install', 'etape=chmod');
-	} else {
-		include_spip('inc/presentation'); // pour info_copyright
+    utiliser_langue_visiteur();
+    $menu_langues = menu_langues('var_lang_ecrire');
+    if (!$menu_langues) {
+        redirige_url_ecrire('install', 'etape=chmod');
+    } else {
+        include_spip('inc/presentation'); // pour info_copyright
 
-		$res = "<div class='petit-centre'><img alt='SPIP' class='logo' src='" . chemin_image('logo-spip.png') . "' />\n" .
-			"<p class='small'>" . info_copyright() . "</p></div>\n" .
-			'<p>' . _T('install_select_langue') . '</p>' .
-			'<div>' . $menu_langues . "</div>\n" .
-			generer_form_ecrire('install', "<input type='hidden' name='etape' value='chmod' />" . bouton_suivant());
-		echo minipres('AUTO', $res);
-	}
+        $res = "<div class='petit-centre'><img alt='SPIP' class='logo' src='" . chemin_image('logo-spip.png') . "' />\n" .
+            "<p class='small'>" . info_copyright() . "</p></div>\n" .
+            '<p>' . _T('install_select_langue') . '</p>' .
+            '<div>' . $menu_langues . "</div>\n" .
+            generer_form_ecrire('install', "<input type='hidden' name='etape' value='chmod' />" . bouton_suivant());
+        echo minipres('AUTO', $res);
+    }
 }

Spacing +5 added lines, -5 removed lines

@@ -34,11 +34,11 @@
 	} else {
 		include_spip('inc/presentation'); // pour info_copyright
 
-		$res = "<div class='petit-centre'><img alt='SPIP' class='logo' src='" . chemin_image('logo-spip.png') . "' />\n" .
-			"<p class='small'>" . info_copyright() . "</p></div>\n" .
-			'<p>' . _T('install_select_langue') . '</p>' .
-			'<div>' . $menu_langues . "</div>\n" .
-			generer_form_ecrire('install', "<input type='hidden' name='etape' value='chmod' />" . bouton_suivant());
+		$res = "<div class='petit-centre'><img alt='SPIP' class='logo' src='".chemin_image('logo-spip.png')."' />\n".
+			"<p class='small'>".info_copyright()."</p></div>\n".
+			'<p>'._T('install_select_langue').'</p>'.
+			'<div>'.$menu_langues."</div>\n".
+			generer_form_ecrire('install', "<input type='hidden' name='etape' value='chmod' />".bouton_suivant());
 		echo minipres('AUTO', $res);
 	}
 }

ecrire/urls/page.php

Spacing +4 added lines, -4 removed lines

@@ -23,7 +23,7 @@ 
 # attention toutefois seuls '' et '=' figurent dans les modes de compatibilite
 define('_separateur_urls_page', '');
 # on peut indiquer '' si on a installe le .htaccess
-define('_debut_urls_page', get_spip_script('./') . '?');
+define('_debut_urls_page', get_spip_script('./').'?');
 #######
 
 
@@ -37,14 +37,14 @@ 
 		}
 	}
 
-	$url = _debut_urls_page . $type . _separateur_urls_page
-		. $id . _terminaison_urls_page;
+	$url = _debut_urls_page.$type._separateur_urls_page
+		. $id._terminaison_urls_page;
 
 	if ($args) {
 		$args = strpos($url, '?') ? "&$args" : "?$args";
 	}
 
-	return _DIR_RACINE . $url . $args . ($ancre ? "#$ancre" : '');
+	return _DIR_RACINE.$url.$args.($ancre ? "#$ancre" : '');
 }
 
 // retrouve le fond et les parametres d'une URL abregee

Indentation +53 added lines, -53 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 define('URLS_PAGE_EXEMPLE', 'spip.php?article12');
@@ -30,74 +30,74 @@ 
 // https://code.spip.net/@_generer_url_page
 function _generer_url_page($type, $id, $args = '', $ancre = '') {
 
-	if ($generer_url_externe = charger_fonction("generer_url_$type", 'urls', true)) {
-		$url = $generer_url_externe($id, $args, $ancre);
-		if (null != $url) {
-			return $url;
-		}
-	}
+    if ($generer_url_externe = charger_fonction("generer_url_$type", 'urls', true)) {
+        $url = $generer_url_externe($id, $args, $ancre);
+        if (null != $url) {
+            return $url;
+        }
+    }
 
-	$url = _debut_urls_page . $type . _separateur_urls_page
-		. $id . _terminaison_urls_page;
+    $url = _debut_urls_page . $type . _separateur_urls_page
+        . $id . _terminaison_urls_page;
 
-	if ($args) {
-		$args = strpos($url, '?') ? "&$args" : "?$args";
-	}
+    if ($args) {
+        $args = strpos($url, '?') ? "&$args" : "?$args";
+    }
 
-	return _DIR_RACINE . $url . $args . ($ancre ? "#$ancre" : '');
+    return _DIR_RACINE . $url . $args . ($ancre ? "#$ancre" : '');
 }
 
 // retrouve le fond et les parametres d'une URL abregee
 // le contexte deja existant est fourni dans args sous forme de tableau ou query string
 // https://code.spip.net/@urls_page_dist
 function urls_page_dist($i, &$entite, $args = '', $ancre = '') {
-	if (is_numeric($i)) {
-		return _generer_url_page($entite, $i, $args, $ancre);
-	}
+    if (is_numeric($i)) {
+        return _generer_url_page($entite, $i, $args, $ancre);
+    }
 
-	// traiter les injections du type domaine.org/spip.php/cestnimportequoi/ou/encore/plus/rubrique23
-	if ($GLOBALS['profondeur_url'] > 0 and $entite == 'sommaire') {
-		return [[], '404'];
-	}
+    // traiter les injections du type domaine.org/spip.php/cestnimportequoi/ou/encore/plus/rubrique23
+    if ($GLOBALS['profondeur_url'] > 0 and $entite == 'sommaire') {
+        return [[], '404'];
+    }
 
-	// voir s'il faut recuperer le id_* implicite et les &debut_xx;
-	if (is_array($args)) {
-		$contexte = $args;
-	} else {
-		parse_str($args, $contexte);
-	}
-	include_spip('inc/urls');
-	$r = nettoyer_url_page($i, $contexte);
-	if ($r) {
-		array_pop($r); // nettoyer_url_page renvoie un argument de plus inutile ici
-		return $r;
-	}
+    // voir s'il faut recuperer le id_* implicite et les &debut_xx;
+    if (is_array($args)) {
+        $contexte = $args;
+    } else {
+        parse_str($args, $contexte);
+    }
+    include_spip('inc/urls');
+    $r = nettoyer_url_page($i, $contexte);
+    if ($r) {
+        array_pop($r); // nettoyer_url_page renvoie un argument de plus inutile ici
+        return $r;
+    }
 
-	/*
+    /*
 	 * Le bloc qui suit sert a faciliter les transitions depuis
 	 * le mode 'urls-propres' vers les modes 'urls-standard' et 'url-html'
 	 * Il est inutile de le recopier si vous personnalisez vos URLs
 	 * et votre .htaccess
 	 */
-	// Si on est revenu en mode html, mais c'est une ancienne url_propre
-	// on ne redirige pas, on assume le nouveau contexte (si possible)
-	$url = $i;
-	$url_propre = isset($url)
-		? $url
-		: (isset($_SERVER['REDIRECT_url_propre'])
-			? $_SERVER['REDIRECT_url_propre']
-			: (isset($_ENV['url_propre'])
-				? $_ENV['url_propre']
-				: ''
-			));
-	if ($url_propre) {
-		if ($GLOBALS['profondeur_url'] <= 0) {
-			$urls_anciennes = charger_fonction('propres', 'urls', true);
-		} else {
-			$urls_anciennes = charger_fonction('arbo', 'urls', true);
-		}
+    // Si on est revenu en mode html, mais c'est une ancienne url_propre
+    // on ne redirige pas, on assume le nouveau contexte (si possible)
+    $url = $i;
+    $url_propre = isset($url)
+        ? $url
+        : (isset($_SERVER['REDIRECT_url_propre'])
+            ? $_SERVER['REDIRECT_url_propre']
+            : (isset($_ENV['url_propre'])
+                ? $_ENV['url_propre']
+                : ''
+            ));
+    if ($url_propre) {
+        if ($GLOBALS['profondeur_url'] <= 0) {
+            $urls_anciennes = charger_fonction('propres', 'urls', true);
+        } else {
+            $urls_anciennes = charger_fonction('arbo', 'urls', true);
+        }
 
-		return $urls_anciennes ? $urls_anciennes($url_propre, $entite, $contexte) : '';
-	}
-	/* Fin du bloc compatibilite url-propres */
+        return $urls_anciennes ? $urls_anciennes($url_propre, $entite, $contexte) : '';
+    }
+    /* Fin du bloc compatibilite url-propres */
 }

ecrire/xml/interfaces.php

Spacing +13 added lines, -13 removed lines

@@ -23,23 +23,23 @@
 
 define('_SUB_REGEXP_SYMBOL', '[\w_:.-]');
 
-define('_REGEXP_NMTOKEN', '/^' . _SUB_REGEXP_SYMBOL . '+$/');
+define('_REGEXP_NMTOKEN', '/^'._SUB_REGEXP_SYMBOL.'+$/');
 
-define('_REGEXP_NMTOKENS', '/^(' . _SUB_REGEXP_SYMBOL . '+\s*)*$/');
+define('_REGEXP_NMTOKENS', '/^('._SUB_REGEXP_SYMBOL.'+\s*)*$/');
 
-define('_REGEXP_ID', '/^[A-Za-z_:]' . _SUB_REGEXP_SYMBOL . '*$/');
+define('_REGEXP_ID', '/^[A-Za-z_:]'._SUB_REGEXP_SYMBOL.'*$/');
 
-define('_REGEXP_ENTITY_USE', '/%(' . _SUB_REGEXP_SYMBOL . '+);/');
-define('_REGEXP_ENTITY_DEF', '/^%(' . _SUB_REGEXP_SYMBOL . '+);/');
+define('_REGEXP_ENTITY_USE', '/%('._SUB_REGEXP_SYMBOL.'+);/');
+define('_REGEXP_ENTITY_DEF', '/^%('._SUB_REGEXP_SYMBOL.'+);/');
 define('_REGEXP_TYPE_XML', 'PUBLIC|SYSTEM|INCLUDE|IGNORE|CDATA');
-define('_REGEXP_ENTITY_DECL', '/^<!ENTITY\s+(%?)\s*(' .
-	_SUB_REGEXP_SYMBOL .
-	'+;?)\s+(' .
-	_REGEXP_TYPE_XML .
-	')?\s*(' .
-	"('([^']*)')" .
-	'|("([^"]*)")' .
-	'|\s*(%' . _SUB_REGEXP_SYMBOL . '+;)\s*' .
+define('_REGEXP_ENTITY_DECL', '/^<!ENTITY\s+(%?)\s*('.
+	_SUB_REGEXP_SYMBOL.
+	'+;?)\s+('.
+	_REGEXP_TYPE_XML.
+	')?\s*('.
+	"('([^']*)')".
+	'|("([^"]*)")'.
+	'|\s*(%'._SUB_REGEXP_SYMBOL.'+;)\s*'.
 	')\s*(--.*?--)?("([^"]*)")?\s*>\s*(.*)$/s');
 
 define('_REGEXP_INCLUDE_USE', '/^<!\[\s*%\s*([^;]*);\s*\[\s*(.*)$/s');

Indentation +18 added lines, -18 removed lines

@@ -11,12 +11,12 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 define(
-	'_REGEXP_DOCTYPE',
-	'/^((?:<\001?[?][^>]*>\s*)*(?:<!--.*?-->\s*)*)*<!DOCTYPE\s+(\w+)\s+(\w+)\s*([^>]*)>\s*/s'
+    '_REGEXP_DOCTYPE',
+    '/^((?:<\001?[?][^>]*>\s*)*(?:<!--.*?-->\s*)*)*<!DOCTYPE\s+(\w+)\s+(\w+)\s*([^>]*)>\s*/s'
 );
 
 define('_REGEXP_XML', '/^(\s*(?:<[?][^x>][^>]*>\s*)?(?:<[?]xml[^>]*>)?\s*(?:<!--.*?-->\s*)*)<(\w+)/s');
@@ -35,14 +35,14 @@ 
 define('_REGEXP_ENTITY_DEF', '/^%(' . _SUB_REGEXP_SYMBOL . '+);/');
 define('_REGEXP_TYPE_XML', 'PUBLIC|SYSTEM|INCLUDE|IGNORE|CDATA');
 define('_REGEXP_ENTITY_DECL', '/^<!ENTITY\s+(%?)\s*(' .
-	_SUB_REGEXP_SYMBOL .
-	'+;?)\s+(' .
-	_REGEXP_TYPE_XML .
-	')?\s*(' .
-	"('([^']*)')" .
-	'|("([^"]*)")' .
-	'|\s*(%' . _SUB_REGEXP_SYMBOL . '+;)\s*' .
-	')\s*(--.*?--)?("([^"]*)")?\s*>\s*(.*)$/s');
+    _SUB_REGEXP_SYMBOL .
+    '+;?)\s+(' .
+    _REGEXP_TYPE_XML .
+    ')?\s*(' .
+    "('([^']*)')" .
+    '|("([^"]*)")' .
+    '|\s*(%' . _SUB_REGEXP_SYMBOL . '+;)\s*' .
+    ')\s*(--.*?--)?("([^"]*)")?\s*>\s*(.*)$/s');
 
 define('_REGEXP_INCLUDE_USE', '/^<!\[\s*%\s*([^;]*);\s*\[\s*(.*)$/s');
 
@@ -52,11 +52,11 @@ 
  * Document Type Compilation
  **/
 class DTC {
-	public $macros = [];
-	public $elements = [];
-	public $peres = [];
-	public $attributs = [];
-	public $entites = [];
-	public $regles = [];
-	public $pcdata = [];
+    public $macros = [];
+    public $elements = [];
+    public $peres = [];
+    public $attributs = [];
+    public $entites = [];
+    public $regles = [];
+    public $pcdata = [];
 }

ecrire/public/balises.php

Braces +1 added lines, -2 removed lines

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

Spacing +51 added lines, -51 removed lines

@@ -364,7 +364,7 @@ 
  */
 function balise_DOSSIER_SQUELETTE_dist($p) {
 	$code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE));
-	$p->code = "_DIR_RACINE . '$code'" .
+	$p->code = "_DIR_RACINE . '$code'".
 		$p->interdire_scripts = false;
 
 	return $p;
@@ -383,7 +383,7 @@ 
  */
 function balise_SQUELETTE_dist($p) {
 	$code = addslashes($p->descr['sourcefile']);
-	$p->code = "'$code'" .
+	$p->code = "'$code'".
 		$p->interdire_scripts = false;
 
 	return $p;
@@ -435,9 +435,9 @@ 
  **/
 function balise_NOM_SITE_dist($p) {
 	if (!$p->etoile) {
-		$p->code = 'supprimer_numero(calculer_url(' .
-			champ_sql('url_site', $p) . ',' .
-			champ_sql('nom_site', $p) .
+		$p->code = 'supprimer_numero(calculer_url('.
+			champ_sql('url_site', $p).','.
+			champ_sql('nom_site', $p).
 			", 'titre', \$connect, false))";
 	} else {
 		$p->code = champ_sql('nom_site', $p);
@@ -588,8 +588,8 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_POPULARITE_ABSOLUE_dist($p) {
-	$p->code = 'ceil(' .
-		champ_sql('popularite', $p) .
+	$p->code = 'ceil('.
+		champ_sql('popularite', $p).
 		')';
 	$p->interdire_scripts = false;
 
@@ -670,7 +670,7 @@ 
 	$p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);
 ;
 	if (($v = interprete_argument_balise(1, $p)) !== null) {
-		$p->code = 'table_valeur(' . $p->code . ', ' . $v . ')';
+		$p->code = 'table_valeur('.$p->code.', '.$v.')';
 	}
 	$p->interdire_scripts = true;
 
@@ -809,16 +809,16 @@ 
 	$trouver_table = charger_fonction('trouver_table', 'base');
 	if ($desc = $trouver_table(table_objet_sql($type_objet))) {
 		if (isset($desc['field']['descriptif'])) {
-			$_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ',';
+			$_ligne .= "'descriptif' => ".champ_sql('descriptif', $p).',';
 		}
 		if (isset($desc['field']['texte'])) {
-			$_ligne .= "'texte' => " . champ_sql('texte', $p) . ',';
+			$_ligne .= "'texte' => ".champ_sql('texte', $p).',';
 		}
 		if (isset($desc['field']['chapo'])) {
-			$_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ',';
+			$_ligne .= "'chapo' => ".champ_sql('chapo', $p).',';
 		}
 		if (isset($desc['introduction_longueur'])) {
-			$_introduction_longueur = "'" . $desc['introduction_longueur'] . "'";
+			$_introduction_longueur = "'".$desc['introduction_longueur']."'";
 		}
 	}
 	$_ligne .= ')';
@@ -917,10 +917,10 @@ 
 		$p->code = sprintf(
 			CODE_RECUPERER_FOND,
 			"'modeles/lesauteurs'",
-			"array('objet'=>'" . $objet .
-			"','id_objet' => " . champ_sql($id_table_objet, $p) .
-			",'$id_table_objet' => " . champ_sql($id_table_objet, $p) .
-			($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) .
+			"array('objet'=>'".$objet.
+			"','id_objet' => ".champ_sql($id_table_objet, $p).
+			",'$id_table_objet' => ".champ_sql($id_table_objet, $p).
+			($objet == 'article' ? '' : ",'id_article' => ".champ_sql('id_article', $p)).
 			')',
 			"'trim'=>true, 'compil'=>array($c)",
 			_q($connect)
@@ -989,7 +989,7 @@ 
 					$m = trim($m);
 					if ($m != "''") {
 						if (!preg_match(',\W,', $m)) {
-							$m = $boucle->id_table . ".$m";
+							$m = $boucle->id_table.".$m";
 						}
 
 						$m .= ' AS titre_rang';
@@ -1150,7 +1150,7 @@ 
 	$f_pagination = chercher_filtre('pagination');
 	$type = $p->boucles[$b]->modificateur['debut_nom'];
 	$modif = ($type[0] !== "'") ? "'debut'.$type"
-		: ("'debut" . substr($type, 1));
+		: ("'debut".substr($type, 1));
 
 	$p->code = sprintf(
 		CODE_PAGINATION,
@@ -1294,7 +1294,7 @@ 
 		$msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN']];
 		erreur_squelette($msg, $p);
 	} else {
-		$p->code = 'find_in_path(' . $arg . ')';
+		$p->code = 'find_in_path('.$arg.')';
 	}
 
 	$p->interdire_scripts = false;
@@ -1329,7 +1329,7 @@ 
 		$msg = ['zbug_balise_sans_argument', ['balise' => ' CHEMIN_IMAGE']];
 		erreur_squelette($msg, $p);
 	} else {
-		$p->code = 'chemin_image(' . $arg . ')';
+		$p->code = 'chemin_image('.$arg.')';
 	}
 
 	$p->interdire_scripts = false;
@@ -1383,7 +1383,7 @@ 
 		// cas de #ENV sans argument : on retourne le serialize() du tableau
 		// une belle fonction [(#ENV|affiche_env)] serait pratique
 		if ($src) {
-			$p->code = '(is_array($a = (' . $src . ')) ? serialize($a) : "")';
+			$p->code = '(is_array($a = ('.$src.')) ? serialize($a) : "")';
 		} else {
 			$p->code = 'serialize($Pile[0]??[])';
 		}
@@ -1436,8 +1436,8 @@ 
 	$_sinon = interprete_argument_balise(2, $p);
 	$_unserialize = sinon(interprete_argument_balise(3, $p), 'false');
 
-	$p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' .
-		($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')";
+	$p->code = '(include_spip(\'inc/config\')?lire_config('.$arg.','.
+		($_sinon && $_sinon != "''" ? $_sinon : 'null').','.$_unserialize."):'')";
 
 	return $p;
 }
@@ -1530,7 +1530,7 @@ 
 		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'SESSION_SET']];
 		erreur_squelette($err_b_s_a, $p);
 	} else {
-		$p->code = '(include_spip("inc/session") AND session_set(' . $_nom . ',' . $_val . '))';
+		$p->code = '(include_spip("inc/session") AND session_set('.$_nom.','.$_val.'))';
 	}
 
 	$p->interdire_scripts = false;
@@ -1578,7 +1578,7 @@ 
 			)
 		) {
 			$p->code = /* $r[1]. */
-				'(' . $r[2] . ')';
+				'('.$r[2].')';
 		} else {
 			$p->code = "eval('return '.$php.';')";
 		}
@@ -1822,9 +1822,9 @@ 
 
 		// noter la duree du cache dans un entete proprietaire
 
-		$code = "'<'.'" . '?php header("X-Spip-Cache: '
+		$code = "'<'.'".'?php header("X-Spip-Cache: '
 			. $duree
-			. '"); ?' . "'.'>'";
+			. '"); ?'."'.'>'";
 
 		// Remplir le header Cache-Control
 		// cas #CACHE{0}
@@ -1845,9 +1845,9 @@ 
 				$pa == 'cache-client'
 				and $duree > 0
 			) {
-				$code .= ".'<'.'" . '?php header("Cache-Control: max-age='
+				$code .= ".'<'.'".'?php header("Cache-Control: max-age='
 					. $duree
-					. '"); ?' . "'.'>'";
+					. '"); ?'."'.'>'";
 				// il semble logique, si on cache-client, de ne pas invalider
 				$pa = 'statique';
 			}
@@ -1856,7 +1856,7 @@ 
 				$pa == 'statique'
 				and $duree > 0
 			) {
-				$code .= ".'<'.'" . '?php header("X-Spip-Statique: oui"); ?' . "'.'>'";
+				$code .= ".'<'.'".'?php header("X-Spip-Statique: oui"); ?'."'.'>'";
 			}
 		}
 	} else {
@@ -2020,9 +2020,9 @@ 
 		if ($p->etoile) {
 			$_options[] = "'etoile'=>true";
 		}
-		$_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) . ')';
+		$_options[] = "'compil'=>array(".memoriser_contexte_compil($p).')';
 
-		$_l = 'array(' . join(",\n\t", $_contexte) . ')';
+		$_l = 'array('.join(",\n\t", $_contexte).')';
 		if ($flag_env) {
 			$_l = "array_merge(\$Pile[0],$_l)";
 		}
@@ -2032,7 +2032,7 @@ 
 		$msg = ['zbug_balise_sans_argument', ['balise' => ' INCLURE']];
 		erreur_squelette($msg, $p);
 	} else {
-		$p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
+		$p->code = 'charge_scripts('.$_contexte[1].',false)';
 	}
 
 	$p->interdire_scripts = false; // la securite est assuree par recuperer_fond
@@ -2080,7 +2080,7 @@ 
 		unset($_contexte[1]);
 
 		if (preg_match("/^\s*'[^']*'/s", $nom)) {
-			$nom = "'modeles/" . substr($nom, 1);
+			$nom = "'modeles/".substr($nom, 1);
 		} else {
 			$nom = "'modeles/' . $nom";
 		}
@@ -2097,8 +2097,8 @@ 
 			$primary = $p->boucles[$p->id_boucle]->primary;
 			if (!strpos($primary, ',')) {
 				$id = champ_sql($primary, $p);
-				$_contexte[] = "'$primary'=>" . $id;
-				$_contexte[] = "'id'=>" . $id;
+				$_contexte[] = "'$primary'=>".$id;
+				$_contexte[] = "'id'=>".$id;
 			}
 		}
 		$_contexte[] = "'recurs'=>(++\$recurs)";
@@ -2110,11 +2110,11 @@ 
 		$_options = memoriser_contexte_compil($p);
 		$_options = "'compil'=>array($_options), 'trim'=>true";
 		if (isset($_contexte['ajax'])) {
-			$_options .= ', ' . preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
+			$_options .= ', '.preg_replace(',=>(.*)$,ims', '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
 			unset($_contexte['ajax']);
 		}
 
-		$_l = 'array(' . join(",\n\t", $_contexte) . ')';
+		$_l = 'array('.join(",\n\t", $_contexte).')';
 		if ($flag_env) {
 			$_l = "array_merge(\$Pile[0],$_l)";
 		}
@@ -2224,12 +2224,12 @@ 
 function balise_DOUBLONS_dist($p) {
 	if ($type = interprete_argument_balise(1, $p)) {
 		if ($famille = interprete_argument_balise(2, $p)) {
-			$type .= '.' . $famille;
+			$type .= '.'.$famille;
 		}
-		$p->code = '(isset($doublons[' . $type . ']) ? $doublons[' . $type . '] : "")';
+		$p->code = '(isset($doublons['.$type.']) ? $doublons['.$type.'] : "")';
 		if (!$p->etoile) {
 			$p->code = 'array_filter(array_map("intval",explode(",",'
-				. $p->code . ')))';
+				. $p->code.')))';
 		}
 	} else {
 		$p->code = '$doublons';
@@ -2358,7 +2358,7 @@ 
 			$_code[] = "$_key => $_val";
 		}
 	} while ($_key && $_val);
-	$p->code = 'array(' . join(', ', $_code) . ')';
+	$p->code = 'array('.join(', ', $_code).')';
 	$p->interdire_scripts = false;
 
 	return $p;
@@ -2385,7 +2385,7 @@ 
 	while ($_val = interprete_argument_balise($n++, $p)) {
 		$_code[] = $_val;
 	}
-	$p->code = 'array(' . join(', ', $_code) . ')';
+	$p->code = 'array('.join(', ', $_code).')';
 	$p->interdire_scripts = false;
 
 	return $p;
@@ -2430,10 +2430,10 @@ 
 		$_code[] = $_v;
 	}
 
-	$p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(
+	$p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser('.join(
 		', ',
 		$_code
-	) . ')?" ":"")';
+	).')?" ":"")';
 	$p->interdire_scripts = false;
 
 	return $p;
@@ -2466,7 +2466,7 @@ 
 	$type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"';
 
 	$f = chercher_filtre('info_plugin');
-	$p->code = $f . '(' . $plugin . ', ' . $type_info . ')';
+	$p->code = $f.'('.$plugin.', '.$type_info.')';
 
 	return $p;
 }
@@ -2716,12 +2716,12 @@ 
 	$_issens = "in_array($_champ,array('>','<'))";
 	$_sens = "(strpos('< >',$_champ)-1)";
 
-	$_variable = "((\$s=$_issens)?'sens':'tri')." . $boucle->modificateur['tri_nom'];
+	$_variable = "((\$s=$_issens)?'sens':'tri').".$boucle->modificateur['tri_nom'];
 	$_url = "parametre_url(self(),$_variable,\$s?$_sens:$_champ)";
-	$_url = "parametre_url($_url,'var_memotri',strncmp(" . $boucle->modificateur['tri_nom'] . ",'session',7)==0?$_variable:'')";
-	$_on = '$s?(' . $boucle->modificateur['tri_sens'] . "==$_sens" . '):(' . $boucle->modificateur['tri_champ'] . "==$_champ)";
+	$_url = "parametre_url($_url,'var_memotri',strncmp(".$boucle->modificateur['tri_nom'].",'session',7)==0?$_variable:'')";
+	$_on = '$s?('.$boucle->modificateur['tri_sens']."==$_sens".'):('.$boucle->modificateur['tri_champ']."==$_champ)";
 
-	$p->code = "lien_ou_expose($_url,$_libelle,$_on" . ($_class ? ",$_class" : '') . ')';
+	$p->code = "lien_ou_expose($_url,$_libelle,$_on".($_class ? ",$_class" : '').')';
 	//$p->code = "''";
 	$p->interdire_scripts = false;
 
@@ -2795,7 +2795,7 @@ 
 		$connect = $p->boucles[$p->id_boucle]->sql_serveur;
 	}
 
-	$p->code = '(objet_test_si_publie(' . $_type . ',intval(' . $_id . '),' . _q($connect) . ")?' ':'')";
+	$p->code = '(objet_test_si_publie('.$_type.',intval('.$_id.'),'._q($connect).")?' ':'')";
 	$p->interdire_scripts = false;
 
 	return $p;

Indentation +948 added lines, -948 removed lines

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

ecrire/public/admin.php

Spacing +2 added lines, -2 removed lines

@@ -37,11 +37,11 @@
 	include_spip('inc/filtres');
 
 	// Inserer le css d'admin
-	$css = "<link rel='stylesheet' href='" . url_absolue(direction_css(find_in_path('spip_admin.css')))
+	$css = "<link rel='stylesheet' href='".url_absolue(direction_css(find_in_path('spip_admin.css')))
 		. "' type='text/css' />\n";
 	if ($f = find_in_path('spip_admin_perso.css')) {
 		$css .= "<link rel='stylesheet' href='"
-			. url_absolue(direction_css($f)) . "' type='text/css' />\n";
+			. url_absolue(direction_css($f))."' type='text/css' />\n";
 	}
 
 	($pos = stripos($contenu, '</head>'))

Indentation +23 added lines, -23 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -34,33 +34,33 @@ 
  *     Contenu HTML, avec boutons d'administrations et sa CSS
  **/
 function affiche_boutons_admin($contenu) {
-	include_spip('inc/filtres');
+    include_spip('inc/filtres');
 
-	// Inserer le css d'admin
-	$css = "<link rel='stylesheet' href='" . url_absolue(direction_css(find_in_path('spip_admin.css')))
-		. "' type='text/css' />\n";
-	if ($f = find_in_path('spip_admin_perso.css')) {
-		$css .= "<link rel='stylesheet' href='"
-			. url_absolue(direction_css($f)) . "' type='text/css' />\n";
-	}
+    // Inserer le css d'admin
+    $css = "<link rel='stylesheet' href='" . url_absolue(direction_css(find_in_path('spip_admin.css')))
+        . "' type='text/css' />\n";
+    if ($f = find_in_path('spip_admin_perso.css')) {
+        $css .= "<link rel='stylesheet' href='"
+            . url_absolue(direction_css($f)) . "' type='text/css' />\n";
+    }
 
-	($pos = stripos($contenu, '</head>'))
-	|| ($pos = stripos($contenu, '<body>'))
-	|| ($pos = 0);
-	$contenu = substr_replace($contenu, $css, $pos, 0);
+    ($pos = stripos($contenu, '</head>'))
+    || ($pos = stripos($contenu, '<body>'))
+    || ($pos = 0);
+    $contenu = substr_replace($contenu, $css, $pos, 0);
 
 
-	// Inserer la balise #FORMULAIRE_ADMIN, en float
-	$boutons_admin = inclure_balise_dynamique(
-		balise_FORMULAIRE_ADMIN_dyn('spip-admin-float'),
-		false
-	);
+    // Inserer la balise #FORMULAIRE_ADMIN, en float
+    $boutons_admin = inclure_balise_dynamique(
+        balise_FORMULAIRE_ADMIN_dyn('spip-admin-float'),
+        false
+    );
 
-	($pos = strripos($contenu, '</body>'))
-	|| ($pos = strripos($contenu, '</html>'))
-	|| ($pos = strlen($contenu));
-	$contenu = substr_replace($contenu, $boutons_admin, $pos, 0);
+    ($pos = strripos($contenu, '</body>'))
+    || ($pos = strripos($contenu, '</html>'))
+    || ($pos = strlen($contenu));
+    $contenu = substr_replace($contenu, $boutons_admin, $pos, 0);
 
 
-	return $contenu;
+    return $contenu;
 }

ecrire/exec/informer.php

Indentation +15 added lines, -15 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/actions');
@@ -29,20 +29,20 @@ 
  * @uses ajax_retour()
  **/
 function exec_informer_dist() {
-	$id = intval(_request('id'));
-	$col = intval(_request('col'));
-	$exclus = intval(_request('exclus'));
-	$do = _request('do');
+    $id = intval(_request('id'));
+    $col = intval(_request('col'));
+    $exclus = intval(_request('exclus'));
+    $do = _request('do');
 
-	if (preg_match('/^\w*$/', $do)) {
-		if (!$do) {
-			$do = 'aff';
-		}
+    if (preg_match('/^\w*$/', $do)) {
+        if (!$do) {
+            $do = 'aff';
+        }
 
-		$informer = charger_fonction('informer', 'inc');
-		$res = $informer($id, $col, $exclus, _request('rac'), _request('type'), $do);
-	} else {
-		$res = '';
-	}
-	ajax_retour($res);
+        $informer = charger_fonction('informer', 'inc');
+        $res = $informer($id, $col, $exclus, _request('rac'), _request('type'), $do);
+    } else {
+        $res = '';
+    }
+    ajax_retour($res);
 }

ecrire/exec/base_repair.php

Indentation +21 added lines, -21 removed lines

@@ -23,7 +23,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -31,24 +31,24 @@ 
  * Réparer la base de données
  */
 function exec_base_repair_dist() {
-	$ok = false;
-	if (!spip_connect()) {
-		$message = _T('titre_probleme_technique');
-	} else {
-		$version_sql = sql_version();
-		if (!$version_sql) {
-			$message = _T('avis_erreur_connexion_mysql');
-		} else {
-			$message = _T('texte_requetes_echouent');
-			$ok = true;
-		}
-		$action = _T('texte_tenter_reparation');
-	}
-	if ($ok) {
-		$admin = charger_fonction('admin', 'inc');
-		echo $admin('repair', $action, $message, true);
-	} else {
-		include_spip('inc/minipres');
-		echo minipres(_T('titre_reparation'), "<p>$message</p>");
-	}
+    $ok = false;
+    if (!spip_connect()) {
+        $message = _T('titre_probleme_technique');
+    } else {
+        $version_sql = sql_version();
+        if (!$version_sql) {
+            $message = _T('avis_erreur_connexion_mysql');
+        } else {
+            $message = _T('texte_requetes_echouent');
+            $ok = true;
+        }
+        $action = _T('texte_tenter_reparation');
+    }
+    if ($ok) {
+        $admin = charger_fonction('admin', 'inc');
+        echo $admin('repair', $action, $message, true);
+    } else {
+        include_spip('inc/minipres');
+        echo minipres(_T('titre_reparation'), "<p>$message</p>");
+    }
 }

ecrire/inc/cvt_multietapes.php

Spacing +2 added lines, -2 removed lines

@@ -298,9 +298,9 @@
 		and ($e = $flux['args']['contexte']['_etape']) > 1
 		and $ext = $flux['args']['ext']
 		and $f = $flux['data']
-		and file_exists($f . "_$e.$ext")
+		and file_exists($f."_$e.$ext")
 	) {
-		$flux['data'] = $f . "_$e";
+		$flux['data'] = $f."_$e";
 	}
 
 	return $flux;

Indentation +165 added lines, -165 removed lines

@@ -66,7 +66,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -77,46 +77,46 @@ 
  * @return array
  */
 function cvtmulti_recuperer_post_precedents($form) {
-	include_spip('inc/filtres');
-	if (
-		$form
-		and $c = _request('cvtm_prev_post')
-		and $c = decoder_contexte_ajax($c, $form)
-	) {
-		#var_dump($c);
+    include_spip('inc/filtres');
+    if (
+        $form
+        and $c = _request('cvtm_prev_post')
+        and $c = decoder_contexte_ajax($c, $form)
+    ) {
+        #var_dump($c);
 
-		# reinjecter dans la bonne variable pour permettre de retrouver
-		# toutes les saisies dans un seul tableau
-		if ($_SERVER['REQUEST_METHOD'] == 'POST') {
-			$store = &$_POST;
-		} else {
-			$store = &$_GET;
-		}
+        # reinjecter dans la bonne variable pour permettre de retrouver
+        # toutes les saisies dans un seul tableau
+        if ($_SERVER['REQUEST_METHOD'] == 'POST') {
+            $store = &$_POST;
+        } else {
+            $store = &$_GET;
+        }
 
-		foreach ($c as $k => $v) { // on ecrase pas si saisi a nouveau !
-		if (!isset($store[$k])) {
-				$_REQUEST[$k] = $store[$k] = $v;
-		} // mais si tableau des deux cotes, on merge avec priorite a la derniere saisie
-			elseif (
-				is_array($store[$k])
-				and is_array($v)
-				and $z = array_keys($v)
-				and !is_numeric(reset($z))
-				and $z = array_keys($store[$k])
-				and !is_numeric(reset($z))
-			) {
-				$_REQUEST[$k] = $store[$k] = array_merge($v, $store[$k]);
-			}
-		}
+        foreach ($c as $k => $v) { // on ecrase pas si saisi a nouveau !
+        if (!isset($store[$k])) {
+                $_REQUEST[$k] = $store[$k] = $v;
+        } // mais si tableau des deux cotes, on merge avec priorite a la derniere saisie
+            elseif (
+                is_array($store[$k])
+                and is_array($v)
+                and $z = array_keys($v)
+                and !is_numeric(reset($z))
+                and $z = array_keys($store[$k])
+                and !is_numeric(reset($z))
+            ) {
+                $_REQUEST[$k] = $store[$k] = array_merge($v, $store[$k]);
+            }
+        }
 
-		// vider pour eviter un second appel a verifier_n
-		// en cas de double implementation (unipotence)
-		set_request('cvtm_prev_post');
+        // vider pour eviter un second appel a verifier_n
+        // en cas de double implementation (unipotence)
+        set_request('cvtm_prev_post');
 
-		return [$c['_etape'], $c['_etapes']];
-	}
+        return [$c['_etape'], $c['_etapes']];
+    }
 
-	return false;
+    return false;
 }
 
 /**
@@ -129,28 +129,28 @@ 
  * @return array
  */
 function cvtmulti_sauver_post($form, $je_suis_poste, &$valeurs) {
-	if (!isset($valeurs['_cvtm_prev_post'])) {
-		$post = ['_etape' => $valeurs['_etape'], '_etapes' => $valeurs['_etapes']];
-		foreach (array_keys($valeurs) as $champ) {
-			if (substr($champ, 0, 1) !== '_') {
-				if ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request'])) {
-					if (($v = _request($champ)) !== null) {
-						$post[$champ] = $v;
-					}
-				}
-			}
-		}
-		include_spip('inc/filtres');
-		$c = encoder_contexte_ajax($post, $form);
-		if (!isset($valeurs['_hidden'])) {
-			$valeurs['_hidden'] = '';
-		}
-		$valeurs['_hidden'] .= "<input type='hidden' name='cvtm_prev_post' value='$c' />";
-		// marquer comme fait, pour eviter double encodage (unipotence)
-		$valeurs['_cvtm_prev_post'] = true;
-	}
+    if (!isset($valeurs['_cvtm_prev_post'])) {
+        $post = ['_etape' => $valeurs['_etape'], '_etapes' => $valeurs['_etapes']];
+        foreach (array_keys($valeurs) as $champ) {
+            if (substr($champ, 0, 1) !== '_') {
+                if ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request'])) {
+                    if (($v = _request($champ)) !== null) {
+                        $post[$champ] = $v;
+                    }
+                }
+            }
+        }
+        include_spip('inc/filtres');
+        $c = encoder_contexte_ajax($post, $form);
+        if (!isset($valeurs['_hidden'])) {
+            $valeurs['_hidden'] = '';
+        }
+        $valeurs['_hidden'] .= "<input type='hidden' name='cvtm_prev_post' value='$c' />";
+        // marquer comme fait, pour eviter double encodage (unipotence)
+        $valeurs['_cvtm_prev_post'] = true;
+    }
 
-	return $valeurs;
+    return $valeurs;
 }
 
 
@@ -164,14 +164,14 @@ 
  * @return array
  */
 function cvtmulti_formulaire_charger($flux) {
-	if (
-		is_array($flux['data'])
-		and isset($flux['data']['_etapes'])
-	) {
-		$flux['data'] = cvtmulti_formulaire_charger_etapes($flux['args'], $flux['data']);
-	}
+    if (
+        is_array($flux['data'])
+        and isset($flux['data']['_etapes'])
+    ) {
+        $flux['data'] = cvtmulti_formulaire_charger_etapes($flux['args'], $flux['data']);
+    }
 
-	return $flux;
+    return $flux;
 }
 
 /**
@@ -181,19 +181,19 @@ 
  * @return array
  */
 function cvtmulti_formulaire_charger_etapes($args, $valeurs) {
-	if (!isset($valeurs['_etape'])) {
-		$form = $args['form'];
-		$je_suis_poste = $args['je_suis_poste'];
-		$nb_etapes = $valeurs['_etapes'];
-		$etape = _request('_etape');
-		$etape = min(max($etape, 1), $nb_etapes);
-		set_request('_etape', $etape);
-		$valeurs['_etape'] = $etape;
+    if (!isset($valeurs['_etape'])) {
+        $form = $args['form'];
+        $je_suis_poste = $args['je_suis_poste'];
+        $nb_etapes = $valeurs['_etapes'];
+        $etape = _request('_etape');
+        $etape = min(max($etape, 1), $nb_etapes);
+        set_request('_etape', $etape);
+        $valeurs['_etape'] = $etape;
 
-		// sauver les posts de cette etape pour les avoir a la prochaine etape
-		$valeurs = cvtmulti_sauver_post($form, $je_suis_poste, $valeurs);
-	}
-	return $valeurs;
+        // sauver les posts de cette etape pour les avoir a la prochaine etape
+        $valeurs = cvtmulti_sauver_post($form, $je_suis_poste, $valeurs);
+    }
+    return $valeurs;
 }
 
 
@@ -206,8 +206,8 @@ 
  * @return array
  */
 function cvtmulti_formulaire_verifier($flux) {
-	$flux['data'] = cvtmulti_formulaire_verifier_etapes($flux['args'], $flux['data']);
-	return $flux;
+    $flux['data'] = cvtmulti_formulaire_verifier_etapes($flux['args'], $flux['data']);
+    return $flux;
 }
 
 /**
@@ -218,87 +218,87 @@ 
  * @return array
  */
 function cvtmulti_formulaire_verifier_etapes($args, $erreurs) {
-	#var_dump('Pipe verifier');
+    #var_dump('Pipe verifier');
 
-	if (
-		$form = $args['form']
-		and ($e = cvtmulti_recuperer_post_precedents($form)) !== false
-	) {
-		// recuperer l'etape saisie et le nombre d'etapes total
-		list($etape, $etapes) = $e;
-		$etape_demandee = intval(_request('aller_a_etape')); // possibilite de poster un entier dans aller_a_etape
+    if (
+        $form = $args['form']
+        and ($e = cvtmulti_recuperer_post_precedents($form)) !== false
+    ) {
+        // recuperer l'etape saisie et le nombre d'etapes total
+        list($etape, $etapes) = $e;
+        $etape_demandee = intval(_request('aller_a_etape')); // possibilite de poster un entier dans aller_a_etape
 
-		$args['etape_saisie'] = $etape;
-		$args['etapes'] = $etapes;
-		// lancer les verifs pour chaque etape deja saisie de 1 a $etape
-		$erreurs_etapes = [];
-		$derniere_etape_ok = 0;
-		$e = 0;
-		while ($e < max($etape, $etape_demandee - 1) and $e < $etapes) {
-			$e++;
-			$erreurs_etapes[$e] = [];
-			if ($verifier = charger_fonction("verifier_$e", "formulaires/$form/", true)) {
-				$erreurs_etapes[$e] = call_user_func_array($verifier, $args['args']);
-			} elseif ($verifier = charger_fonction('verifier_etape', "formulaires/$form/", true)) {
-				$a = $args['args'];
-				array_unshift($a, $e);
-				$erreurs_etapes[$e] = call_user_func_array($verifier, $a);
-			}
-			// et on appelle un pipeline dedie aux etapes, plus easy
-			$args['etape'] = $e;
-			$args['etape_demandee'] = $etape_demandee;
-			$erreurs_etapes[$e] = pipeline(
-				'formulaire_verifier_etape',
-				[
-					'args' => $args,
-					'data' => $erreurs_etapes[$e]
-				]
-			);
+        $args['etape_saisie'] = $etape;
+        $args['etapes'] = $etapes;
+        // lancer les verifs pour chaque etape deja saisie de 1 a $etape
+        $erreurs_etapes = [];
+        $derniere_etape_ok = 0;
+        $e = 0;
+        while ($e < max($etape, $etape_demandee - 1) and $e < $etapes) {
+            $e++;
+            $erreurs_etapes[$e] = [];
+            if ($verifier = charger_fonction("verifier_$e", "formulaires/$form/", true)) {
+                $erreurs_etapes[$e] = call_user_func_array($verifier, $args['args']);
+            } elseif ($verifier = charger_fonction('verifier_etape', "formulaires/$form/", true)) {
+                $a = $args['args'];
+                array_unshift($a, $e);
+                $erreurs_etapes[$e] = call_user_func_array($verifier, $a);
+            }
+            // et on appelle un pipeline dedie aux etapes, plus easy
+            $args['etape'] = $e;
+            $args['etape_demandee'] = $etape_demandee;
+            $erreurs_etapes[$e] = pipeline(
+                'formulaire_verifier_etape',
+                [
+                    'args' => $args,
+                    'data' => $erreurs_etapes[$e]
+                ]
+            );
 
-			if ($derniere_etape_ok == $e - 1 and !count($erreurs_etapes[$e])) {
-				$derniere_etape_ok = $e;
-			}
-			// possibilite de poster dans _retour_etape_x ou aller_a_etape
-			if (!is_null(_request("_retour_etape_$e"))) {
-				$etape_demandee = $e;
-			}
-			// Il se peut que les verifications ait décidé de faire sauter des étapes
-			if ($aller_a_etape = intval(_request('aller_a_etape'))) {
-				$etape_demandee = $aller_a_etape; // possibilite de poster un entier dans aller_a_etape
-			}
-		}
+            if ($derniere_etape_ok == $e - 1 and !count($erreurs_etapes[$e])) {
+                $derniere_etape_ok = $e;
+            }
+            // possibilite de poster dans _retour_etape_x ou aller_a_etape
+            if (!is_null(_request("_retour_etape_$e"))) {
+                $etape_demandee = $e;
+            }
+            // Il se peut que les verifications ait décidé de faire sauter des étapes
+            if ($aller_a_etape = intval(_request('aller_a_etape'))) {
+                $etape_demandee = $aller_a_etape; // possibilite de poster un entier dans aller_a_etape
+            }
+        }
 
 
-		// si la derniere etape OK etait la derniere
-		// on renvoie le flux inchange et ca declenche traiter
-		if (
-			$derniere_etape_ok == $etapes
-			and (!$etape_demandee or $etape_demandee >= $etapes)
-		) {
-			return $erreurs;
-		} else {
-			$etape = $derniere_etape_ok + 1;
-			if ($etape_demandee > 0 and $etape_demandee < $etape) {
-				$etape = $etape_demandee;
-			}
-			$etape = min($etape, $etapes);
-			#var_dump("prochaine etape $etape");
-			// retourner les erreurs de l'etape ciblee
-			$erreurs = isset($erreurs_etapes[$etape]) ? $erreurs_etapes[$etape] : [];
-			// Ne pas se tromper dans le texte du message d'erreur : la clé '_etapes' n'est pas une erreur !
-			if ($erreurs) {
-				if (!isset($erreurs['message_erreur'])) {
-					$erreurs['message_erreur'] = singulier_ou_pluriel(count($erreurs), 'avis_1_erreur_saisie', 'avis_nb_erreurs_saisie');
-				}
-			} else {
-				$erreurs['message_erreur'] = '';
-			}
-			$erreurs['_etapes'] = "etape suivante $etape";
-			set_request('_etape', $etape);
-		}
-	}
+        // si la derniere etape OK etait la derniere
+        // on renvoie le flux inchange et ca declenche traiter
+        if (
+            $derniere_etape_ok == $etapes
+            and (!$etape_demandee or $etape_demandee >= $etapes)
+        ) {
+            return $erreurs;
+        } else {
+            $etape = $derniere_etape_ok + 1;
+            if ($etape_demandee > 0 and $etape_demandee < $etape) {
+                $etape = $etape_demandee;
+            }
+            $etape = min($etape, $etapes);
+            #var_dump("prochaine etape $etape");
+            // retourner les erreurs de l'etape ciblee
+            $erreurs = isset($erreurs_etapes[$etape]) ? $erreurs_etapes[$etape] : [];
+            // Ne pas se tromper dans le texte du message d'erreur : la clé '_etapes' n'est pas une erreur !
+            if ($erreurs) {
+                if (!isset($erreurs['message_erreur'])) {
+                    $erreurs['message_erreur'] = singulier_ou_pluriel(count($erreurs), 'avis_1_erreur_saisie', 'avis_nb_erreurs_saisie');
+                }
+            } else {
+                $erreurs['message_erreur'] = '';
+            }
+            $erreurs['_etapes'] = "etape suivante $etape";
+            set_request('_etape', $etape);
+        }
+    }
 
-	return $erreurs;
+    return $erreurs;
 }
 
 /**
@@ -310,17 +310,17 @@ 
  * @return array
  */
 function cvtmulti_styliser($flux) {
-	if (
-		strncmp($flux['args']['fond'], 'formulaires/', 12) == 0
-		and isset($flux['args']['contexte']['_etapes'])
-		and isset($flux['args']['contexte']['_etape'])
-		and ($e = $flux['args']['contexte']['_etape']) > 1
-		and $ext = $flux['args']['ext']
-		and $f = $flux['data']
-		and file_exists($f . "_$e.$ext")
-	) {
-		$flux['data'] = $f . "_$e";
-	}
+    if (
+        strncmp($flux['args']['fond'], 'formulaires/', 12) == 0
+        and isset($flux['args']['contexte']['_etapes'])
+        and isset($flux['args']['contexte']['_etape'])
+        and ($e = $flux['args']['contexte']['_etape']) > 1
+        and $ext = $flux['args']['ext']
+        and $f = $flux['data']
+        and file_exists($f . "_$e.$ext")
+    ) {
+        $flux['data'] = $f . "_$e";
+    }
 
-	return $flux;
+    return $flux;
 }

ecrire/inc/journal.php

Spacing +1 added lines, -1 removed lines

@@ -28,7 +28,7 @@
 		return;
 	}
 	if ($opt) {
-		$phrase .= ' :: ' . str_replace("\n", ' ', join(', ', $opt));
+		$phrase .= ' :: '.str_replace("\n", ' ', join(', ', $opt));
 	}
 	spip_log($phrase, 'journal');
 }

Indentation +8 added lines, -8 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -24,11 +24,11 @@ 
  * @param array $opt
  */
 function inc_journal_dist($phrase, $opt = []) {
-	if (!strlen($phrase)) {
-		return;
-	}
-	if ($opt) {
-		$phrase .= ' :: ' . str_replace("\n", ' ', join(', ', $opt));
-	}
-	spip_log($phrase, 'journal');
+    if (!strlen($phrase)) {
+        return;
+    }
+    if ($opt) {
+        $phrase .= ' :: ' . str_replace("\n", ' ', join(', ', $opt));
+    }
+    spip_log($phrase, 'journal');
 }