spip / SPIP

ecrire/public/styliser_par_z.php

Spacing +18 added lines, -18 removed lines

@@ -53,7 +53,7 @@ 
 			$apl_constant = '_Z_AJAX_PARALLEL_LOAD';
 			$page = _SPIP_PAGE;
 			$echafauder = charger_fonction('echafauder', 'public', true);
-			define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist' . (defined('_DIR_PLUGIN_DIST') ? '|\b' . rtrim(
+			define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist'.(defined('_DIR_PLUGIN_DIST') ? '|\b'.rtrim(
 				_DIR_PLUGIN_DIST,
 				'/'
 			) : ''));
@@ -77,7 +77,7 @@ 
 			and in_array($dir, $z_blocs) // verifier deja qu'on est dans un bloc Z
 			and defined($apl_constant)
 			and in_array($dir, explode(',', constant($apl_constant))) // et dans un demande en APL
-			and $pipe = z_trouver_bloc($prefix_path . $prepend, $dir, 'z_apl', $ext) // et qui contient le squelette APL
+			and $pipe = z_trouver_bloc($prefix_path.$prepend, $dir, 'z_apl', $ext) // et qui contient le squelette APL
 		) {
 			$flux['data'] = $pipe;
 
@@ -90,7 +90,7 @@ 
 			$echafauder = '';
 		}
 		if ($prepend) {
-			$squelette = substr(find_in_path($prefix_path . $prepend . "$fond.$ext"), 0, -strlen(".$ext"));
+			$squelette = substr(find_in_path($prefix_path.$prepend."$fond.$ext"), 0, -strlen(".$ext"));
 			if ($squelette) {
 				$flux['data'] = $squelette;
 			}
@@ -113,11 +113,11 @@ 
 				// se brancher sur contenu/xx si il existe
 				// ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
 				if (!isset($disponible[$fond])) {
-					$disponible[$fond] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $fond, $ext, $echafauder);
+					$disponible[$fond] = z_contenu_disponible($prefix_path.$prepend, $z_contenu, $fond, $ext, $echafauder);
 				}
 
 				if ($disponible[$fond]) {
-					$flux['data'] = substr(find_in_path($prefix_path . "page.$ext"), 0, -strlen(".$ext"));
+					$flux['data'] = substr(find_in_path($prefix_path."page.$ext"), 0, -strlen(".$ext"));
 				}
 			}
 
@@ -130,7 +130,7 @@ 
 					$type = $flux['args']['contexte'][$page];
 				}
 				if (!isset($disponible[$type])) {
-					$disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
+					$disponible[$type] = z_contenu_disponible($prefix_path.$prepend, $z_contenu, $type, $ext, $echafauder);
 				}
 				if (is_string($disponible[$type])) {
 					$flux['data'] = $disponible[$type];
@@ -145,7 +145,7 @@ 
 					$flux['data'] = $echafauder($type, $is[0], $is[1], $is[2], $ext);
 				} else {
 					$flux['data'] = ($disponible['404'] = z_contenu_disponible(
-						$prefix_path . $prepend,
+						$prefix_path.$prepend,
 						$z_contenu,
 						'404',
 						$ext,
@@ -169,10 +169,10 @@ 
 						$type = $flux['args']['contexte'][$page];
 					}
 					if ($type !== 'page' and !isset($disponible[$type])) {
-						$disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
+						$disponible[$type] = z_contenu_disponible($prefix_path.$prepend, $z_contenu, $type, $ext, $echafauder);
 					}
 					if ($type == 'page' or $disponible[$type]) {
-						$flux['data'] = z_trouver_bloc($prefix_path . $prepend, $dir, 'dist', $ext);
+						$flux['data'] = z_trouver_bloc($prefix_path.$prepend, $dir, 'dist', $ext);
 					}
 				}
 			}
@@ -188,9 +188,9 @@ 
 				isset($flux['args']['contexte']['type-page'])
 				and (
 					(isset($flux['args']['contexte']['composition'])
-						and file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page'] . '-' . $flux['args']['contexte']['composition']) . ".$ext"))
+						and file_exists(($f = $squelette.'-'.$flux['args']['contexte']['type-page'].'-'.$flux['args']['contexte']['composition']).".$ext"))
 					or
-					file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page']) . ".$ext")
+					file_exists(($f = $squelette.'-'.$flux['args']['contexte']['type-page']).".$ext")
 				)
 			) {
 				$flux['data'] = $f;
@@ -198,7 +198,7 @@ 
 		} elseif (
 			$fond == 'structure'
 			and z_sanitize_var_zajax()
-			and $f = find_in_path($prefix_path . $prepend . 'ajax' . ".$ext")
+			and $f = find_in_path($prefix_path.$prepend.'ajax'.".$ext")
 		) {
 			$flux['data'] = substr($f, 0, -strlen(".$ext"));
 		} // chercher le fond correspondant a la composition
@@ -209,7 +209,7 @@ 
 			and $dir = explode('/', $dir)
 			and $dir = reset($dir)
 			and in_array($dir, $z_blocs)
-			and $f = find_in_path($prefix_path . $prepend . $fond . '-' . $flux['args']['contexte']['composition'] . ".$ext")
+			and $f = find_in_path($prefix_path.$prepend.$fond.'-'.$flux['args']['contexte']['composition'].".$ext")
 		) {
 			$flux['data'] = substr($f, 0, -strlen(".$ext"));
 		}
@@ -271,7 +271,7 @@ 
 function z_fond_valide($squelette) {
 	if (
 		!_ZCORE_EXCLURE_PATH
-		or !preg_match(',(' . _ZCORE_EXCLURE_PATH . ')/,', $squelette)
+		or !preg_match(',('._ZCORE_EXCLURE_PATH.')/,', $squelette)
 	) {
 		return true;
 	}
@@ -395,23 +395,23 @@ 
 		}
 		$dir = z_blocs(test_espace_prive());
 		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/" . $fond . ',objet=' . $type . ',id_objet=#' . strtoupper($primary) . ',env}>';
+		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/".$fond.',objet='.$type.',id_objet=#'.strtoupper($primary).',env}>';
 	} // page objets
 	elseif ($type = $desc_exec and strpos($type, '/') === false) {
 		$dir = z_blocs(test_espace_prive());
 		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=" . $type . ',env} />';
+		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=".$type.',env} />';
 	}
 	// morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
 	// et objet et tire de $table
 	elseif ($fond = $desc_exec) {
 		$dir = md5(dirname($fond));
-		$scaffold = "<INCLURE{fond=$fond,objet=" . objet_type($table) . ',env} />';
+		$scaffold = "<INCLURE{fond=$fond,objet=".objet_type($table).',env} />';
 	}
 
 	$base_dir = sous_repertoire(_DIR_CACHE, 'scaffold', false);
 	$base_dir = sous_repertoire($base_dir, $dir, false);
-	$f = $base_dir . "$exec";
+	$f = $base_dir."$exec";
 	ecrire_fichier("$f.$ext", $scaffold);
 
 	return $f;

Indentation +319 added lines, -319 removed lines

@@ -19,7 +19,7 @@ 
  * @package SPIP\Core\Public\Styliser
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -29,193 +29,193 @@ 
  * @return array Données modifiées du pipeline
  */
 function public_styliser_par_z_dist($flux) {
-	static $prefix_path = null;
-	static $prefix_length;
-	static $z_blocs;
-	static $apl_constant;
-	static $page;
-	static $disponible = [];
-	static $echafauder;
-	static $prepend = '';
-
-	if (!isset($prefix_path)) {
-		$z_blocs = z_blocs(test_espace_prive());
-		if (test_espace_prive()) {
-			$prefix_path = 'prive/squelettes/';
-			$prefix_length = strlen($prefix_path);
-			$apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
-			$page = 'exec';
-			$echafauder = charger_fonction('echafauder', 'prive', true);
-			define('_ZCORE_EXCLURE_PATH', '');
-		} else {
-			$prefix_path = '';
-			$prefix_length = 0;
-			$apl_constant = '_Z_AJAX_PARALLEL_LOAD';
-			$page = _SPIP_PAGE;
-			$echafauder = charger_fonction('echafauder', 'public', true);
-			define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist' . (defined('_DIR_PLUGIN_DIST') ? '|\b' . rtrim(
-				_DIR_PLUGIN_DIST,
-				'/'
-			) : ''));
-		}
-		$prepend = (defined('_Z_PREPEND_PATH') ? _Z_PREPEND_PATH : '');
-	}
-	$z_contenu = reset($z_blocs); // contenu par defaut
-
-	$fond = $flux['args']['fond'];
-
-	if ($prepend or strncmp($fond, $prefix_path, $prefix_length) == 0) {
-		$fond = substr($fond, $prefix_length);
-		$squelette = $flux['data'];
-		$ext = $flux['args']['ext'];
-		// Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
-		if (
-			defined('_Z_AJAX_PARALLEL_LOAD_OK')
-			and $dir = explode('/', $fond)
-			and count($dir) == 2 // pas un sous repertoire
-			and $dir = reset($dir)
-			and in_array($dir, $z_blocs) // verifier deja qu'on est dans un bloc Z
-			and defined($apl_constant)
-			and in_array($dir, explode(',', constant($apl_constant))) // et dans un demande en APL
-			and $pipe = z_trouver_bloc($prefix_path . $prepend, $dir, 'z_apl', $ext) // et qui contient le squelette APL
-		) {
-			$flux['data'] = $pipe;
-
-			return $flux;
-		}
-
-		// surcharger aussi les squelettes venant de squelettes-dist/
-		if ($squelette and !z_fond_valide($squelette)) {
-			$squelette = '';
-			$echafauder = '';
-		}
-		if ($prepend) {
-			$squelette = substr(find_in_path($prefix_path . $prepend . "$fond.$ext"), 0, -strlen(".$ext"));
-			if ($squelette) {
-				$flux['data'] = $squelette;
-			}
-		}
-
-		// gerer les squelettes non trouves
-		// -> router vers les /dist.html
-		// ou scaffolding ou page automatique les contenus
-		if (!$squelette) {
-			// si on est sur un ?page=XX non trouve
-			if (
-				(isset($flux['args']['contexte'][$page])
-					and $flux['args']['contexte'][$page] == $fond)
-				or (isset($flux['args']['contexte']['type-page'])
-					and $flux['args']['contexte']['type-page'] == $fond)
-				or ($fond == 'sommaire'
-					and (!isset($flux['args']['contexte'][$page]) or !$flux['args']['contexte'][$page]))
-			) {
-				// si on est sur un ?page=XX non trouve
-				// se brancher sur contenu/xx si il existe
-				// ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
-				if (!isset($disponible[$fond])) {
-					$disponible[$fond] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $fond, $ext, $echafauder);
-				}
-
-				if ($disponible[$fond]) {
-					$flux['data'] = substr(find_in_path($prefix_path . "page.$ext"), 0, -strlen(".$ext"));
-				}
-			}
-
-			// echafaudage :
-			// si c'est un fond de contenu d'un objet en base
-			// generer un fond automatique a la volee pour les webmestres
-			elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu) + 1) == 0) {
-				$type = substr($fond, strlen($z_contenu) + 1);
-				if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
-					$type = $flux['args']['contexte'][$page];
-				}
-				if (!isset($disponible[$type])) {
-					$disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
-				}
-				if (is_string($disponible[$type])) {
-					$flux['data'] = $disponible[$type];
-				} elseif (
-					$echafauder
-					and include_spip('inc/autoriser')
-					and isset($GLOBALS['visiteur_session']['statut']) // performance
-					and autoriser('echafauder', $type)
-					and $is = $disponible[$type]
-					and is_array($is)
-				) {
-					$flux['data'] = $echafauder($type, $is[0], $is[1], $is[2], $ext);
-				} else {
-					$flux['data'] = ($disponible['404'] = z_contenu_disponible(
-						$prefix_path . $prepend,
-						$z_contenu,
-						'404',
-						$ext,
-						$echafauder
-					));
-				}
-			}
-
-			// sinon, si on demande un fond non trouve dans un des autres blocs
-			// et si il y a bien un contenu correspondant ou echafaudable
-			// se rabbatre sur le dist.html du bloc concerne
-			else {
-				if (
-					$dir = explode('/', $fond)
-					and $dir = reset($dir)
-					and $dir !== $z_contenu
-					and in_array($dir, $z_blocs)
-				) {
-					$type = substr($fond, strlen("$dir/"));
-					if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
-						$type = $flux['args']['contexte'][$page];
-					}
-					if ($type !== 'page' and !isset($disponible[$type])) {
-						$disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
-					}
-					if ($type == 'page' or $disponible[$type]) {
-						$flux['data'] = z_trouver_bloc($prefix_path . $prepend, $dir, 'dist', $ext);
-					}
-				}
-			}
-			$squelette = $flux['data'];
-		}
-		// layout specifiques par type et compositions :
-		// body-article.html
-		// body-sommaire.html
-		// pour des raisons de perfo, les declinaisons doivent etre dans le
-		// meme dossier que body.html
-		if ($fond == 'body' and substr($squelette, -strlen($fond)) == $fond) {
-			if (
-				isset($flux['args']['contexte']['type-page'])
-				and (
-					(isset($flux['args']['contexte']['composition'])
-						and file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page'] . '-' . $flux['args']['contexte']['composition']) . ".$ext"))
-					or
-					file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page']) . ".$ext")
-				)
-			) {
-				$flux['data'] = $f;
-			}
-		} elseif (
-			$fond == 'structure'
-			and z_sanitize_var_zajax()
-			and $f = find_in_path($prefix_path . $prepend . 'ajax' . ".$ext")
-		) {
-			$flux['data'] = substr($f, 0, -strlen(".$ext"));
-		} // chercher le fond correspondant a la composition
-		elseif (
-			isset($flux['args']['contexte']['composition'])
-			and (basename($fond) == 'page' or ($squelette and substr($squelette, -strlen($fond)) == $fond))
-			and $dir = substr($fond, $prefix_length)
-			and $dir = explode('/', $dir)
-			and $dir = reset($dir)
-			and in_array($dir, $z_blocs)
-			and $f = find_in_path($prefix_path . $prepend . $fond . '-' . $flux['args']['contexte']['composition'] . ".$ext")
-		) {
-			$flux['data'] = substr($f, 0, -strlen(".$ext"));
-		}
-	}
-
-	return $flux;
+    static $prefix_path = null;
+    static $prefix_length;
+    static $z_blocs;
+    static $apl_constant;
+    static $page;
+    static $disponible = [];
+    static $echafauder;
+    static $prepend = '';
+
+    if (!isset($prefix_path)) {
+        $z_blocs = z_blocs(test_espace_prive());
+        if (test_espace_prive()) {
+            $prefix_path = 'prive/squelettes/';
+            $prefix_length = strlen($prefix_path);
+            $apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
+            $page = 'exec';
+            $echafauder = charger_fonction('echafauder', 'prive', true);
+            define('_ZCORE_EXCLURE_PATH', '');
+        } else {
+            $prefix_path = '';
+            $prefix_length = 0;
+            $apl_constant = '_Z_AJAX_PARALLEL_LOAD';
+            $page = _SPIP_PAGE;
+            $echafauder = charger_fonction('echafauder', 'public', true);
+            define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist' . (defined('_DIR_PLUGIN_DIST') ? '|\b' . rtrim(
+                _DIR_PLUGIN_DIST,
+                '/'
+            ) : ''));
+        }
+        $prepend = (defined('_Z_PREPEND_PATH') ? _Z_PREPEND_PATH : '');
+    }
+    $z_contenu = reset($z_blocs); // contenu par defaut
+
+    $fond = $flux['args']['fond'];
+
+    if ($prepend or strncmp($fond, $prefix_path, $prefix_length) == 0) {
+        $fond = substr($fond, $prefix_length);
+        $squelette = $flux['data'];
+        $ext = $flux['args']['ext'];
+        // Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
+        if (
+            defined('_Z_AJAX_PARALLEL_LOAD_OK')
+            and $dir = explode('/', $fond)
+            and count($dir) == 2 // pas un sous repertoire
+            and $dir = reset($dir)
+            and in_array($dir, $z_blocs) // verifier deja qu'on est dans un bloc Z
+            and defined($apl_constant)
+            and in_array($dir, explode(',', constant($apl_constant))) // et dans un demande en APL
+            and $pipe = z_trouver_bloc($prefix_path . $prepend, $dir, 'z_apl', $ext) // et qui contient le squelette APL
+        ) {
+            $flux['data'] = $pipe;
+
+            return $flux;
+        }
+
+        // surcharger aussi les squelettes venant de squelettes-dist/
+        if ($squelette and !z_fond_valide($squelette)) {
+            $squelette = '';
+            $echafauder = '';
+        }
+        if ($prepend) {
+            $squelette = substr(find_in_path($prefix_path . $prepend . "$fond.$ext"), 0, -strlen(".$ext"));
+            if ($squelette) {
+                $flux['data'] = $squelette;
+            }
+        }
+
+        // gerer les squelettes non trouves
+        // -> router vers les /dist.html
+        // ou scaffolding ou page automatique les contenus
+        if (!$squelette) {
+            // si on est sur un ?page=XX non trouve
+            if (
+                (isset($flux['args']['contexte'][$page])
+                    and $flux['args']['contexte'][$page] == $fond)
+                or (isset($flux['args']['contexte']['type-page'])
+                    and $flux['args']['contexte']['type-page'] == $fond)
+                or ($fond == 'sommaire'
+                    and (!isset($flux['args']['contexte'][$page]) or !$flux['args']['contexte'][$page]))
+            ) {
+                // si on est sur un ?page=XX non trouve
+                // se brancher sur contenu/xx si il existe
+                // ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
+                if (!isset($disponible[$fond])) {
+                    $disponible[$fond] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $fond, $ext, $echafauder);
+                }
+
+                if ($disponible[$fond]) {
+                    $flux['data'] = substr(find_in_path($prefix_path . "page.$ext"), 0, -strlen(".$ext"));
+                }
+            }
+
+            // echafaudage :
+            // si c'est un fond de contenu d'un objet en base
+            // generer un fond automatique a la volee pour les webmestres
+            elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu) + 1) == 0) {
+                $type = substr($fond, strlen($z_contenu) + 1);
+                if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
+                    $type = $flux['args']['contexte'][$page];
+                }
+                if (!isset($disponible[$type])) {
+                    $disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
+                }
+                if (is_string($disponible[$type])) {
+                    $flux['data'] = $disponible[$type];
+                } elseif (
+                    $echafauder
+                    and include_spip('inc/autoriser')
+                    and isset($GLOBALS['visiteur_session']['statut']) // performance
+                    and autoriser('echafauder', $type)
+                    and $is = $disponible[$type]
+                    and is_array($is)
+                ) {
+                    $flux['data'] = $echafauder($type, $is[0], $is[1], $is[2], $ext);
+                } else {
+                    $flux['data'] = ($disponible['404'] = z_contenu_disponible(
+                        $prefix_path . $prepend,
+                        $z_contenu,
+                        '404',
+                        $ext,
+                        $echafauder
+                    ));
+                }
+            }
+
+            // sinon, si on demande un fond non trouve dans un des autres blocs
+            // et si il y a bien un contenu correspondant ou echafaudable
+            // se rabbatre sur le dist.html du bloc concerne
+            else {
+                if (
+                    $dir = explode('/', $fond)
+                    and $dir = reset($dir)
+                    and $dir !== $z_contenu
+                    and in_array($dir, $z_blocs)
+                ) {
+                    $type = substr($fond, strlen("$dir/"));
+                    if (($type == 'page') and isset($flux['args']['contexte'][$page])) {
+                        $type = $flux['args']['contexte'][$page];
+                    }
+                    if ($type !== 'page' and !isset($disponible[$type])) {
+                        $disponible[$type] = z_contenu_disponible($prefix_path . $prepend, $z_contenu, $type, $ext, $echafauder);
+                    }
+                    if ($type == 'page' or $disponible[$type]) {
+                        $flux['data'] = z_trouver_bloc($prefix_path . $prepend, $dir, 'dist', $ext);
+                    }
+                }
+            }
+            $squelette = $flux['data'];
+        }
+        // layout specifiques par type et compositions :
+        // body-article.html
+        // body-sommaire.html
+        // pour des raisons de perfo, les declinaisons doivent etre dans le
+        // meme dossier que body.html
+        if ($fond == 'body' and substr($squelette, -strlen($fond)) == $fond) {
+            if (
+                isset($flux['args']['contexte']['type-page'])
+                and (
+                    (isset($flux['args']['contexte']['composition'])
+                        and file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page'] . '-' . $flux['args']['contexte']['composition']) . ".$ext"))
+                    or
+                    file_exists(($f = $squelette . '-' . $flux['args']['contexte']['type-page']) . ".$ext")
+                )
+            ) {
+                $flux['data'] = $f;
+            }
+        } elseif (
+            $fond == 'structure'
+            and z_sanitize_var_zajax()
+            and $f = find_in_path($prefix_path . $prepend . 'ajax' . ".$ext")
+        ) {
+            $flux['data'] = substr($f, 0, -strlen(".$ext"));
+        } // chercher le fond correspondant a la composition
+        elseif (
+            isset($flux['args']['contexte']['composition'])
+            and (basename($fond) == 'page' or ($squelette and substr($squelette, -strlen($fond)) == $fond))
+            and $dir = substr($fond, $prefix_length)
+            and $dir = explode('/', $dir)
+            and $dir = reset($dir)
+            and in_array($dir, $z_blocs)
+            and $f = find_in_path($prefix_path . $prepend . $fond . '-' . $flux['args']['contexte']['composition'] . ".$ext")
+        ) {
+            $flux['data'] = substr($f, 0, -strlen(".$ext"));
+        }
+    }
+
+    return $flux;
 }
 
 /**
@@ -225,18 +225,18 @@ 
  * @return array
  */
 function z_blocs($espace_prive = false) {
-	if ($espace_prive) {
-		return ($GLOBALS['z_blocs_ecrire'] ?? [
-			'contenu',
-			'navigation',
-			'extra',
-			'head',
-			'hierarchie',
-			'top'
-		]);
-	}
-
-	return ($GLOBALS['z_blocs'] ?? ['contenu']);
+    if ($espace_prive) {
+        return ($GLOBALS['z_blocs_ecrire'] ?? [
+            'contenu',
+            'navigation',
+            'extra',
+            'head',
+            'hierarchie',
+            'top'
+        ]);
+    }
+
+    return ($GLOBALS['z_blocs'] ?? ['contenu']);
 }
 
 /**
@@ -251,11 +251,11 @@ 
  * @return mixed
  */
 function z_contenu_disponible($prefix_path, $z_contenu, $type, $ext, $echafauder = true) {
-	if ($d = z_trouver_bloc($prefix_path, $z_contenu, $type, $ext)) {
-		return $d;
-	}
+    if ($d = z_trouver_bloc($prefix_path, $z_contenu, $type, $ext)) {
+        return $d;
+    }
 
-	return $echafauder ? z_echafaudable($type) : false;
+    return $echafauder ? z_echafaudable($type) : false;
 }
 
 /**
@@ -269,14 +269,14 @@ 
  *   `true` si on peut l'utiliser, `false` sinon.
  **/
 function z_fond_valide($squelette) {
-	if (
-		!_ZCORE_EXCLURE_PATH
-		or !preg_match(',(' . _ZCORE_EXCLURE_PATH . ')/,', $squelette)
-	) {
-		return true;
-	}
-
-	return false;
+    if (
+        !_ZCORE_EXCLURE_PATH
+        or !preg_match(',(' . _ZCORE_EXCLURE_PATH . ')/,', $squelette)
+    ) {
+        return true;
+    }
+
+    return false;
 }
 
 /**
@@ -294,14 +294,14 @@ 
  * @return string
  */
 function z_trouver_bloc($prefix_path, $bloc, $fond, $ext) {
-	if (
-		(defined('_ZCORE_BLOC_PREFIX_SKEL') and $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") and z_fond_valide($f))
-		or ($f = find_in_path("$prefix_path$bloc/$fond.$ext") and z_fond_valide($f))
-	) {
-		return substr($f, 0, -strlen(".$ext"));
-	}
-
-	return '';
+    if (
+        (defined('_ZCORE_BLOC_PREFIX_SKEL') and $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") and z_fond_valide($f))
+        or ($f = find_in_path("$prefix_path$bloc/$fond.$ext") and z_fond_valide($f))
+    ) {
+        return substr($f, 0, -strlen(".$ext"));
+    }
+
+    return '';
 }
 
 /**
@@ -313,52 +313,52 @@ 
  * @return bool
  */
 function z_echafaudable($type) {
-	static $pages = null;
-	static $echafaudable = [];
-	if (isset($echafaudable[$type])) {
-		return $echafaudable[$type];
-	}
-	if (preg_match(',[^\w],', $type)) {
-		return $echafaudable[$type] = false;
-	}
-
-	if (test_espace_prive()) {
-		if (!function_exists('trouver_objet_exec')) {
-			include_spip('inc/pipelines_ecrire');
-		}
-		if ($e = trouver_objet_exec($type)) {
-			return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $e];
-		} else {
-			// peut etre c'est un exec=types qui liste tous les objets "type"
-			if (
-				($t = objet_type($type, false)) !== $type
-				and $e = trouver_objet_exec($t)
-			) {
-				return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $t];
-			}
-		}
-	} else {
-		if (is_null($pages)) {
-			$pages = [];
-			$liste = lister_tables_objets_sql();
-			foreach ($liste as $t => $d) {
-				if ($d['page']) {
-					$pages[$d['page']] = [$d['table_objet'], $t];
-				}
-			}
-		}
-		if (!isset($pages[$type])) {
-			return $echafaudable[$type] = false;
-		}
-		if ((is_countable($pages[$type]) ? count($pages[$type]) : 0) == 2) {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$pages[$type][] = $trouver_table(reset($pages[$type]));
-		}
-
-		return $echafaudable[$type] = $pages[$type];
-	}
-
-	return $echafaudable[$type] = false;
+    static $pages = null;
+    static $echafaudable = [];
+    if (isset($echafaudable[$type])) {
+        return $echafaudable[$type];
+    }
+    if (preg_match(',[^\w],', $type)) {
+        return $echafaudable[$type] = false;
+    }
+
+    if (test_espace_prive()) {
+        if (!function_exists('trouver_objet_exec')) {
+            include_spip('inc/pipelines_ecrire');
+        }
+        if ($e = trouver_objet_exec($type)) {
+            return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $e];
+        } else {
+            // peut etre c'est un exec=types qui liste tous les objets "type"
+            if (
+                ($t = objet_type($type, false)) !== $type
+                and $e = trouver_objet_exec($t)
+            ) {
+                return $echafaudable[$type] = [$e['table'], $e['table_objet_sql'], $t];
+            }
+        }
+    } else {
+        if (is_null($pages)) {
+            $pages = [];
+            $liste = lister_tables_objets_sql();
+            foreach ($liste as $t => $d) {
+                if ($d['page']) {
+                    $pages[$d['page']] = [$d['table_objet'], $t];
+                }
+            }
+        }
+        if (!isset($pages[$type])) {
+            return $echafaudable[$type] = false;
+        }
+        if ((is_countable($pages[$type]) ? count($pages[$type]) : 0) == 2) {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $pages[$type][] = $trouver_table(reset($pages[$type]));
+        }
+
+        return $echafaudable[$type] = $pages[$type];
+    }
+
+    return $echafaudable[$type] = false;
 }
 
 
@@ -375,46 +375,46 @@ 
  * @return string
  */
 function prive_echafauder_dist($exec, $table, $table_sql, $desc_exec, $ext) {
-	$scaffold = '';
-
-	// page objet ou objet_edit
-	if (is_array($desc_exec)) {
-		$type = $desc_exec['type'];
-		$primary = $desc_exec['id_table_objet'];
-
-		if ($desc_exec['edition'] === false) {
-			$fond = 'objet';
-		} else {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$desc = $trouver_table($table_sql);
-			if (isset($desc['field']['id_rubrique'])) {
-				$fond = 'objet_edit';
-			} else {
-				$fond = 'objet_edit.sans_rubrique';
-			}
-		}
-		$dir = z_blocs(test_espace_prive());
-		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/" . $fond . ',objet=' . $type . ',id_objet=#' . strtoupper($primary) . ',env}>';
-	} // page objets
-	elseif ($type = $desc_exec and strpos($type, '/') === false) {
-		$dir = z_blocs(test_espace_prive());
-		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=" . $type . ',env} />';
-	}
-	// morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
-	// et objet et tire de $table
-	elseif ($fond = $desc_exec) {
-		$dir = md5(dirname($fond));
-		$scaffold = "<INCLURE{fond=$fond,objet=" . objet_type($table) . ',env} />';
-	}
-
-	$base_dir = sous_repertoire(_DIR_CACHE, 'scaffold', false);
-	$base_dir = sous_repertoire($base_dir, $dir, false);
-	$f = $base_dir . "$exec";
-	ecrire_fichier("$f.$ext", $scaffold);
-
-	return $f;
+    $scaffold = '';
+
+    // page objet ou objet_edit
+    if (is_array($desc_exec)) {
+        $type = $desc_exec['type'];
+        $primary = $desc_exec['id_table_objet'];
+
+        if ($desc_exec['edition'] === false) {
+            $fond = 'objet';
+        } else {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $desc = $trouver_table($table_sql);
+            if (isset($desc['field']['id_rubrique'])) {
+                $fond = 'objet_edit';
+            } else {
+                $fond = 'objet_edit.sans_rubrique';
+            }
+        }
+        $dir = z_blocs(test_espace_prive());
+        $dir = reset($dir);
+        $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/" . $fond . ',objet=' . $type . ',id_objet=#' . strtoupper($primary) . ',env}>';
+    } // page objets
+    elseif ($type = $desc_exec and strpos($type, '/') === false) {
+        $dir = z_blocs(test_espace_prive());
+        $dir = reset($dir);
+        $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=" . $type . ',env} />';
+    }
+    // morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
+    // et objet et tire de $table
+    elseif ($fond = $desc_exec) {
+        $dir = md5(dirname($fond));
+        $scaffold = "<INCLURE{fond=$fond,objet=" . objet_type($table) . ',env} />';
+    }
+
+    $base_dir = sous_repertoire(_DIR_CACHE, 'scaffold', false);
+    $base_dir = sous_repertoire($base_dir, $dir, false);
+    $f = $base_dir . "$exec";
+    ecrire_fichier("$f.$ext", $scaffold);
+
+    return $f;
 }
 
 /**
@@ -423,17 +423,17 @@ 
  * @return bool|string
  */
 function z_sanitize_var_zajax() {
-	$z_ajax = _request('var_zajax');
-	if (!$z_ajax) {
-		return false;
-	}
-	if (
-		!$z_blocs = z_blocs(test_espace_prive())
-		or !in_array($z_ajax, $z_blocs)
-	) {
-		set_request('var_zajax'); // enlever cette demande incongrue
-		$z_ajax = false;
-	}
-
-	return $z_ajax;
+    $z_ajax = _request('var_zajax');
+    if (!$z_ajax) {
+        return false;
+    }
+    if (
+        !$z_blocs = z_blocs(test_espace_prive())
+        or !in_array($z_ajax, $z_blocs)
+    ) {
+        set_request('var_zajax'); // enlever cette demande incongrue
+        $z_ajax = false;
+    }
+
+    return $z_ajax;
 }

ecrire/public/evaluer_page.php

Indentation +58 added lines, -58 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -32,67 +32,67 @@ 
 
 // Cas d'une page contenant du PHP :
 if (empty($page['process_ins']) or $page['process_ins'] != 'html') {
-	include_spip('inc/lang');
+    include_spip('inc/lang');
 
-	// restaurer l'etat des notes avant calcul
-	if (
-		isset($page['notes'])
-		and $page['notes']
-		and $notes = charger_fonction('notes', 'inc', true)
-	) {
-		$notes($page['notes'], 'restaurer_etat');
-	}
-	ob_start();
-	if (strpos($page['texte'], '?xml') !== false) {
-		$page['texte'] = str_replace('<' . '?xml', "<\1?xml", $page['texte']);
-	}
+    // restaurer l'etat des notes avant calcul
+    if (
+        isset($page['notes'])
+        and $page['notes']
+        and $notes = charger_fonction('notes', 'inc', true)
+    ) {
+        $notes($page['notes'], 'restaurer_etat');
+    }
+    ob_start();
+    if (strpos($page['texte'], '?xml') !== false) {
+        $page['texte'] = str_replace('<' . '?xml', "<\1?xml", $page['texte']);
+    }
 
-	try {
-		$res = eval('?' . '>' . $page['texte']);
-		// error catching 5.2<=PHP<7
-		if (
-			$res === false
-			and function_exists('error_get_last')
-			and ($erreur = error_get_last())
-		) {
-			$code = $page['texte'];
-			$GLOBALS['numero_ligne_php'] = 1;
-			if (!function_exists('numerote_ligne_php')) {
-				function numerote_ligne_php($match) {
-					$GLOBALS['numero_ligne_php']++;
-					return "\n/*" . str_pad($GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT) . '*/';
-				}
-			}
-			$code = '/*001*/' . preg_replace_callback(",\n,", 'numerote_ligne_php', $code);
-			$code = trim(highlight_string($code, true));
-			erreur_squelette('L' . $erreur['line'] . ': ' . $erreur['message'] . '<br />' . $code, [$page['source'],'',$erreur['file'],'',$GLOBALS['spip_lang']]);
-			$page['texte'] = '<!-- Erreur -->';
-		}
-		else {
-			$page['texte'] = ob_get_contents();
-		}
-	}
-	catch (Exception $e) {
-		$code = $page['texte'];
-		$GLOBALS['numero_ligne_php'] = 1;
-		if (!function_exists('numerote_ligne_php')) {
-			function numerote_ligne_php($match) {
-				$GLOBALS['numero_ligne_php']++;
-				return "\n/*" . str_pad($GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT) . '*/';
-			}
-		}
-		$code = '/*001*/' . preg_replace_callback(",\n,", 'numerote_ligne_php', $code);
-		$code = trim(highlight_string($code, true));
-		erreur_squelette('L' . $e->getLine() . ': ' . $e->getMessage() . '<br />' . $code, [$page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']]);
-		$page['texte'] = '<!-- Erreur -->';
-	}
-	ob_end_clean();
+    try {
+        $res = eval('?' . '>' . $page['texte']);
+        // error catching 5.2<=PHP<7
+        if (
+            $res === false
+            and function_exists('error_get_last')
+            and ($erreur = error_get_last())
+        ) {
+            $code = $page['texte'];
+            $GLOBALS['numero_ligne_php'] = 1;
+            if (!function_exists('numerote_ligne_php')) {
+                function numerote_ligne_php($match) {
+                    $GLOBALS['numero_ligne_php']++;
+                    return "\n/*" . str_pad($GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT) . '*/';
+                }
+            }
+            $code = '/*001*/' . preg_replace_callback(",\n,", 'numerote_ligne_php', $code);
+            $code = trim(highlight_string($code, true));
+            erreur_squelette('L' . $erreur['line'] . ': ' . $erreur['message'] . '<br />' . $code, [$page['source'],'',$erreur['file'],'',$GLOBALS['spip_lang']]);
+            $page['texte'] = '<!-- Erreur -->';
+        }
+        else {
+            $page['texte'] = ob_get_contents();
+        }
+    }
+    catch (Exception $e) {
+        $code = $page['texte'];
+        $GLOBALS['numero_ligne_php'] = 1;
+        if (!function_exists('numerote_ligne_php')) {
+            function numerote_ligne_php($match) {
+                $GLOBALS['numero_ligne_php']++;
+                return "\n/*" . str_pad($GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT) . '*/';
+            }
+        }
+        $code = '/*001*/' . preg_replace_callback(",\n,", 'numerote_ligne_php', $code);
+        $code = trim(highlight_string($code, true));
+        erreur_squelette('L' . $e->getLine() . ': ' . $e->getMessage() . '<br />' . $code, [$page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']]);
+        $page['texte'] = '<!-- Erreur -->';
+    }
+    ob_end_clean();
 
-	$page['process_ins'] = 'html';
+    $page['process_ins'] = 'html';
 
-	if (strpos($page['texte'], '?xml') !== false) {
-		$page['texte'] = str_replace("<\1?xml", '<' . '?xml', $page['texte']);
-	}
+    if (strpos($page['texte'], '?xml') !== false) {
+        $page['texte'] = str_replace("<\1?xml", '<' . '?xml', $page['texte']);
+    }
 }
 
 page_base_href($page['texte']);

Spacing +9 added lines, -9 removed lines

@@ -44,11 +44,11 @@ 
 	}
 	ob_start();
 	if (strpos($page['texte'], '?xml') !== false) {
-		$page['texte'] = str_replace('<' . '?xml', "<\1?xml", $page['texte']);
+		$page['texte'] = str_replace('<'.'?xml', "<\1?xml", $page['texte']);
 	}
 
 	try {
-		$res = eval('?' . '>' . $page['texte']);
+		$res = eval('?'.'>'.$page['texte']);
 		// error catching 5.2<=PHP<7
 		if (
 			$res === false
@@ -60,12 +60,12 @@ 
 			if (!function_exists('numerote_ligne_php')) {
 				function numerote_ligne_php($match) {
 					$GLOBALS['numero_ligne_php']++;
-					return "\n/*" . str_pad($GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT) . '*/';
+					return "\n/*".str_pad($GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT).'*/';
 				}
 			}
-			$code = '/*001*/' . preg_replace_callback(",\n,", 'numerote_ligne_php', $code);
+			$code = '/*001*/'.preg_replace_callback(",\n,", 'numerote_ligne_php', $code);
 			$code = trim(highlight_string($code, true));
-			erreur_squelette('L' . $erreur['line'] . ': ' . $erreur['message'] . '<br />' . $code, [$page['source'],'',$erreur['file'],'',$GLOBALS['spip_lang']]);
+			erreur_squelette('L'.$erreur['line'].': '.$erreur['message'].'<br />'.$code, [$page['source'], '', $erreur['file'], '', $GLOBALS['spip_lang']]);
 			$page['texte'] = '<!-- Erreur -->';
 		}
 		else {
@@ -78,12 +78,12 @@ 
 		if (!function_exists('numerote_ligne_php')) {
 			function numerote_ligne_php($match) {
 				$GLOBALS['numero_ligne_php']++;
-				return "\n/*" . str_pad($GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT) . '*/';
+				return "\n/*".str_pad($GLOBALS['numero_ligne_php'], 3, '0', STR_PAD_LEFT).'*/';
 			}
 		}
-		$code = '/*001*/' . preg_replace_callback(",\n,", 'numerote_ligne_php', $code);
+		$code = '/*001*/'.preg_replace_callback(",\n,", 'numerote_ligne_php', $code);
 		$code = trim(highlight_string($code, true));
-		erreur_squelette('L' . $e->getLine() . ': ' . $e->getMessage() . '<br />' . $code, [$page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']]);
+		erreur_squelette('L'.$e->getLine().': '.$e->getMessage().'<br />'.$code, [$page['source'], '', $e->getFile(), '', $GLOBALS['spip_lang']]);
 		$page['texte'] = '<!-- Erreur -->';
 	}
 	ob_end_clean();
@@ -91,7 +91,7 @@ 
 	$page['process_ins'] = 'html';
 
 	if (strpos($page['texte'], '?xml') !== false) {
-		$page['texte'] = str_replace("<\1?xml", '<' . '?xml', $page['texte']);
+		$page['texte'] = str_replace("<\1?xml", '<'.'?xml', $page['texte']);
 	}
 }
 

Braces +2 added lines, -4 removed lines

@@ -67,12 +67,10 @@
 			$code = trim(highlight_string($code, true));
 			erreur_squelette('L' . $erreur['line'] . ': ' . $erreur['message'] . '<br />' . $code, [$page['source'],'',$erreur['file'],'',$GLOBALS['spip_lang']]);
 			$page['texte'] = '<!-- Erreur -->';
-		}
-		else {
+		} else {
 			$page['texte'] = ob_get_contents();
 		}
-	}
-	catch (Exception $e) {
+	} catch (Exception $e) {
 		$code = $page['texte'];
 		$GLOBALS['numero_ligne_php'] = 1;
 		if (!function_exists('numerote_ligne_php')) {

ecrire/public/balises.php

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 +945 added lines, -945 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(int $n, Champ $p): ?string {
-	if (($p->param) && (!$p->param[0][0]) && ((is_countable($p->param[0]) ? count($p->param[0]) : 0) > $n)) {
-		return calculer_liste(
-			$p->param[0][$n],
-			$p->descr,
-			$p->boucles,
-			$p->id_boucle
-		);
-	} else {
-		return null;
-	}
+    if (($p->param) && (!$p->param[0][0]) && ((is_countable($p->param[0]) ? count($p->param[0]) : 0) > $n)) {
+        return calculer_liste(
+            $p->param[0][$n],
+            $p->descr,
+            $p->boucles,
+            $p->id_boucle
+        );
+    } else {
+        return null;
+    }
 }
 
 
@@ -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'] ?? 0)";
-		$p->boucles[$b]->cptrows = true;
-		$p->interdire_scripts = false;
+    $b = index_boucle_mere($p);
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "(\$Numrows['$b']['compteur_boucle'] ?? 0)";
+        $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'] ?? 0)";
-		$p->boucles[$b]->numrows = true;
-		$p->interdire_scripts = false;
-	}
+    $b = index_boucle_mere($p);
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "(\$Numrows['$b']['total'] ?? 0)";
+        $p->boucles[$b]->numrows = true;
+        $p->interdire_scripts = false;
+    }
 
-	return $p;
+    return $p;
 }
 
 
@@ -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->id_boucle;
-	$p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);
+    $b = $p->nom_boucle ?: $p->id_boucle;
+    $p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);
 ;
-	if (($v = interprete_argument_balise(1, $p)) !== null) {
-		$p->code = 'table_valeur(' . $p->code . ', ' . $v . ')';
-	}
-	$p->interdire_scripts = true;
+    if (($v = interprete_argument_balise(1, $p)) !== null) {
+        $p->code = 'table_valeur(' . $p->code . ', ' . $v . ')';
+    }
+    $p->interdire_scripts = true;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -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;
 }
 
 
@@ -793,46 +793,46 @@ 
  **/
 function balise_INTRODUCTION_dist($p) {
 
-	$type_objet = $p->type_requete;
-	$cle_objet = id_table_objet($type_objet);
-	$_id_objet = champ_sql($cle_objet, $p);
-
-	// Récupérer les valeurs sql nécessaires : descriptif, texte et chapo
-	// ainsi que le longueur d'introduction donnée dans la description de l'objet.
-	$_introduction_longueur = 'null';
-	$_ligne = 'array(';
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	if ($desc = $trouver_table(table_objet_sql($type_objet))) {
-		if (isset($desc['field']['descriptif'])) {
-			$_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ',';
-		}
-		if (isset($desc['field']['texte'])) {
-			$_ligne .= "'texte' => " . champ_sql('texte', $p) . ',';
-		}
-		if (isset($desc['field']['chapo'])) {
-			$_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ',';
-		}
-		if (isset($desc['introduction_longueur'])) {
-			$_introduction_longueur = "'" . $desc['introduction_longueur'] . "'";
-		}
-	}
-	$_ligne .= ')';
-
-	// Récupérer la longueur et la suite passés en paramètres
-	$_longueur_ou_suite = 'null';
-	if (($v1 = interprete_argument_balise(1, $p)) !== null) {
-		$_longueur_ou_suite = $v1;
-	}
-	$_suite = 'null';
-	if (($v2 = interprete_argument_balise(2, $p)) !== null) {
-		$_suite = $v2;
-	}
-
-	$p->code = "generer_objet_introduction($_id_objet, '$type_objet', $_ligne, $_introduction_longueur, $_longueur_ou_suite, $_suite, \$connect)";
-
-	#$p->interdire_scripts = true;
-	$p->etoile = '*'; // propre est deja fait dans le calcul de l'intro
-	return $p;
+    $type_objet = $p->type_requete;
+    $cle_objet = id_table_objet($type_objet);
+    $_id_objet = champ_sql($cle_objet, $p);
+
+    // Récupérer les valeurs sql nécessaires : descriptif, texte et chapo
+    // ainsi que le longueur d'introduction donnée dans la description de l'objet.
+    $_introduction_longueur = 'null';
+    $_ligne = 'array(';
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    if ($desc = $trouver_table(table_objet_sql($type_objet))) {
+        if (isset($desc['field']['descriptif'])) {
+            $_ligne .= "'descriptif' => " . champ_sql('descriptif', $p) . ',';
+        }
+        if (isset($desc['field']['texte'])) {
+            $_ligne .= "'texte' => " . champ_sql('texte', $p) . ',';
+        }
+        if (isset($desc['field']['chapo'])) {
+            $_ligne .= "'chapo' => " . champ_sql('chapo', $p) . ',';
+        }
+        if (isset($desc['introduction_longueur'])) {
+            $_introduction_longueur = "'" . $desc['introduction_longueur'] . "'";
+        }
+    }
+    $_ligne .= ')';
+
+    // Récupérer la longueur et la suite passés en paramètres
+    $_longueur_ou_suite = 'null';
+    if (($v1 = interprete_argument_balise(1, $p)) !== null) {
+        $_longueur_ou_suite = $v1;
+    }
+    $_suite = 'null';
+    if (($v2 = interprete_argument_balise(2, $p)) !== null) {
+        $_suite = $v2;
+    }
+
+    $p->code = "generer_objet_introduction($_id_objet, '$type_objet', $_ligne, $_introduction_longueur, $_longueur_ou_suite, $_suite, \$connect)";
+
+    #$p->interdire_scripts = true;
+    $p->etoile = '*'; // propre est deja fait dans le calcul de l'intro
+    return $p;
 }
 
 
@@ -852,15 +852,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;
 }
 
 /**
@@ -882,45 +882,45 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_LESAUTEURS_dist($p) {
-	// Cherche le champ 'lesauteurs' dans la pile
-	$_lesauteurs = champ_sql('lesauteurs', $p, '');
-
-	// Si le champ n'existe pas (cas de spip_articles), on applique
-	// le modele lesauteurs.html en passant id_article dans le contexte;
-	// dans le cas contraire on prend le champ 'lesauteurs'
-	// (cf extension sites/)
-	if ($_lesauteurs) {
-		$p->code = "safehtml($_lesauteurs)";
-		// $p->interdire_scripts = true;
-	} else {
-		if (!$p->id_boucle) {
-			$connect = '';
-			$objet = 'article';
-			$id_table_objet = 'id_article';
-		} else {
-			$b = $p->nom_boucle ?: $p->id_boucle;
-			$connect = $p->boucles[$b]->sql_serveur;
-			$type_boucle = $p->boucles[$b]->type_requete;
-			$objet = objet_type($type_boucle);
-			$id_table_objet = id_table_objet($type_boucle);
-		}
-		$c = memoriser_contexte_compil($p);
-
-		$p->code = sprintf(
-			CODE_RECUPERER_FOND,
-			"'modeles/lesauteurs'",
-			"array('objet'=>'" . $objet .
-			"','id_objet' => " . champ_sql($id_table_objet, $p) .
-			",'$id_table_objet' => " . champ_sql($id_table_objet, $p) .
-			($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) .
-			')',
-			"'trim'=>true, 'compil'=>array($c)",
-			_q($connect)
-		);
-		$p->interdire_scripts = false; // securite apposee par recuperer_fond()
-	}
-
-	return $p;
+    // Cherche le champ 'lesauteurs' dans la pile
+    $_lesauteurs = champ_sql('lesauteurs', $p, '');
+
+    // Si le champ n'existe pas (cas de spip_articles), on applique
+    // le modele lesauteurs.html en passant id_article dans le contexte;
+    // dans le cas contraire on prend le champ 'lesauteurs'
+    // (cf extension sites/)
+    if ($_lesauteurs) {
+        $p->code = "safehtml($_lesauteurs)";
+        // $p->interdire_scripts = true;
+    } else {
+        if (!$p->id_boucle) {
+            $connect = '';
+            $objet = 'article';
+            $id_table_objet = 'id_article';
+        } else {
+            $b = $p->nom_boucle ?: $p->id_boucle;
+            $connect = $p->boucles[$b]->sql_serveur;
+            $type_boucle = $p->boucles[$b]->type_requete;
+            $objet = objet_type($type_boucle);
+            $id_table_objet = id_table_objet($type_boucle);
+        }
+        $c = memoriser_contexte_compil($p);
+
+        $p->code = sprintf(
+            CODE_RECUPERER_FOND,
+            "'modeles/lesauteurs'",
+            "array('objet'=>'" . $objet .
+            "','id_objet' => " . champ_sql($id_table_objet, $p) .
+            ",'$id_table_objet' => " . champ_sql($id_table_objet, $p) .
+            ($objet == 'article' ? '' : ",'id_article' => " . champ_sql('id_article', $p)) .
+            ')',
+            "'trim'=>true, 'compil'=>array($c)",
+            _q($connect)
+        );
+        $p->interdire_scripts = false; // securite apposee par recuperer_fond()
+    }
+
+    return $p;
 }
 
 
@@ -947,76 +947,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;
 }
 
 
@@ -1038,12 +1038,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;
 }
 
 /**
@@ -1054,8 +1054,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))'
@@ -1092,75 +1092,75 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_PAGINATION_dist($p, $liste = 'true') {
-	$b = index_boucle_mere($p);
-
-	// s'il n'y a pas de nom de boucle, on ne peut pas paginer
-	if ($b === '') {
-		$msg = [
-			'zbug_champ_hors_boucle',
-			['champ' => $liste ? 'PAGINATION' : 'ANCRE_PAGINATION']
-		];
-		erreur_squelette($msg, $p);
-
-		return $p;
-	}
-
-	// s'il n'y a pas de mode_partie, c'est qu'on se trouve
-	// dans un boucle recursive ou qu'on a oublie le critere {pagination}
-	if (!$p->boucles[$b]->mode_partie) {
-		if (!$p->boucles[$b]->table_optionnelle) {
-			$msg = [
-				'zbug_pagination_sans_critere',
-				['champ' => '#PAGINATION']
-			];
-			erreur_squelette($msg, $p);
-		}
-
-		return $p;
-	}
-
-	// a priori true
-	// si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise
-	// si true, les arguments simples (sans truc=chose) vont degager
-	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false);
-	if (is_countable($_contexte) ? count($_contexte) : 0) {
-		$key = key($_contexte);
-		if (is_numeric($key)) {
-			array_shift($_contexte);
-			$__modele = interprete_argument_balise(1, $p);
-		}
-	}
-
-	if (is_countable($_contexte) ? count($_contexte) : 0) {
-		$code_contexte = implode(',', $_contexte);
-	} else {
-		$code_contexte = '';
-	}
-
-	$connect = $p->boucles[$b]->sql_serveur;
-	$pas = $p->boucles[$b]->total_parties;
-	$f_pagination = chercher_filtre('pagination');
-	$type = $p->boucles[$b]->modificateur['debut_nom'];
-	$modif = ($type[0] !== "'") ? "'debut'.$type"
-		: ("'debut" . substr($type, 1));
-
-	$p->code = sprintf(
-		CODE_PAGINATION,
-		$f_pagination,
-		$b,
-		$type,
-		$modif,
-		$pas,
-		$liste,
-		((isset($__modele) and $__modele) ? $__modele : "''"),
-		_q($connect),
-		$code_contexte
-	);
-
-	$p->boucles[$b]->numrows = true;
-	$p->interdire_scripts = false;
-
-	return $p;
+    $b = index_boucle_mere($p);
+
+    // s'il n'y a pas de nom de boucle, on ne peut pas paginer
+    if ($b === '') {
+        $msg = [
+            'zbug_champ_hors_boucle',
+            ['champ' => $liste ? 'PAGINATION' : 'ANCRE_PAGINATION']
+        ];
+        erreur_squelette($msg, $p);
+
+        return $p;
+    }
+
+    // s'il n'y a pas de mode_partie, c'est qu'on se trouve
+    // dans un boucle recursive ou qu'on a oublie le critere {pagination}
+    if (!$p->boucles[$b]->mode_partie) {
+        if (!$p->boucles[$b]->table_optionnelle) {
+            $msg = [
+                'zbug_pagination_sans_critere',
+                ['champ' => '#PAGINATION']
+            ];
+            erreur_squelette($msg, $p);
+        }
+
+        return $p;
+    }
+
+    // a priori true
+    // si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise
+    // si true, les arguments simples (sans truc=chose) vont degager
+    $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false);
+    if (is_countable($_contexte) ? count($_contexte) : 0) {
+        $key = key($_contexte);
+        if (is_numeric($key)) {
+            array_shift($_contexte);
+            $__modele = interprete_argument_balise(1, $p);
+        }
+    }
+
+    if (is_countable($_contexte) ? count($_contexte) : 0) {
+        $code_contexte = implode(',', $_contexte);
+    } else {
+        $code_contexte = '';
+    }
+
+    $connect = $p->boucles[$b]->sql_serveur;
+    $pas = $p->boucles[$b]->total_parties;
+    $f_pagination = chercher_filtre('pagination');
+    $type = $p->boucles[$b]->modificateur['debut_nom'];
+    $modif = ($type[0] !== "'") ? "'debut'.$type"
+        : ("'debut" . substr($type, 1));
+
+    $p->code = sprintf(
+        CODE_PAGINATION,
+        $f_pagination,
+        $b,
+        $type,
+        $modif,
+        $pas,
+        $liste,
+        ((isset($__modele) and $__modele) ? $__modele : "''"),
+        _q($connect),
+        $code_contexte
+    );
+
+    $p->boucles[$b]->numrows = true;
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 
@@ -1187,11 +1187,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 ?
 }
 
 
@@ -1212,17 +1212,17 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_GRAND_TOTAL_dist($p) {
-	$b = index_boucle_mere($p);
-	if ($b === '') {
-		$msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = "(\$Numrows['$b']['grand_total'] ?? \$Numrows['$b']['total'] ?? 0)";
-		$p->boucles[$b]->numrows = true;
-		$p->interdire_scripts = false;
-	}
+    $b = index_boucle_mere($p);
+    if ($b === '') {
+        $msg = ['zbug_champ_hors_boucle', ['champ' => zbug_presenter_champ($p)]];
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "(\$Numrows['$b']['grand_total'] ?? \$Numrows['$b']['total'] ?? 0)";
+        $p->boucles[$b]->numrows = true;
+        $p->interdire_scripts = false;
+    }
 
-	return $p;
+    return $p;
 }
 
 
@@ -1250,10 +1250,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;
 }
 
 
@@ -1280,17 +1280,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;
 }
 
 /**
@@ -1315,16 +1315,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;
 }
 
 
@@ -1362,36 +1362,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;
 }
 
 /**
@@ -1421,16 +1421,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;
 }
 
 
@@ -1453,10 +1453,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;
 }
 
 
@@ -1484,15 +1484,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;
 }
 
 
@@ -1515,18 +1515,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;
 }
 
 
@@ -1557,30 +1557,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;
 }
 
 
@@ -1610,19 +1610,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;
 }
 
 /**
@@ -1648,13 +1648,13 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_VAL_dist($p) {
-	$p->code = interprete_argument_balise(1, $p);
-	if ($p->code === null || !strlen($p->code)) {
-		$p->code = "''";
-	}
-	$p->interdire_scripts = false;
+    $p->code = interprete_argument_balise(1, $p);
+    if ($p->code === null || !strlen($p->code)) {
+        $p->code = "''";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1683,10 +1683,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;
 }
 
 /**
@@ -1696,10 +1696,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;
 }
 
 
@@ -1723,18 +1723,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;
 }
 
 
@@ -1759,20 +1759,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;
+    }
 }
 
 
@@ -1808,55 +1808,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;
 }
 
 
@@ -1888,13 +1888,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;
 }
 
 /**
@@ -1912,10 +1912,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;
 }
 
 /**
@@ -1930,11 +1930,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);
+    }
 }
 
 /**
@@ -1968,66 +1968,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;
 }
 
 
@@ -2055,69 +2055,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;
 }
 
 
@@ -2141,21 +2141,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;
 }
 
 
@@ -2185,12 +2185,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"]??[]');
+    }
 }
 
 
@@ -2213,22 +2213,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;
 }
 
 
@@ -2251,18 +2251,18 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_PIPELINE_dist($p) {
-	$_pipe = interprete_argument_balise(1, $p);
-	if (!$_pipe) {
-		$err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'PIPELINE']];
-		erreur_squelette($err_b_s_a, $p);
-	} else {
-		$_flux = interprete_argument_balise(2, $p);
-		$_flux = $_flux ?: "''";
-		$p->code = "pipeline( $_pipe , $_flux )";
-		$p->interdire_scripts = false;
-	}
+    $_pipe = interprete_argument_balise(1, $p);
+    if (!$_pipe) {
+        $err_b_s_a = ['zbug_balise_sans_argument', ['balise' => 'PIPELINE']];
+        erreur_squelette($err_b_s_a, $p);
+    } else {
+        $_flux = interprete_argument_balise(2, $p);
+        $_flux = $_flux ?: "''";
+        $p->code = "pipeline( $_pipe , $_flux )";
+        $p->interdire_scripts = false;
+    }
 
-	return $p;
+    return $p;
 }
 
 
@@ -2287,10 +2287,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;
 }
 
 
@@ -2313,11 +2313,11 @@ 
  *     Pile complétée par le code à générer
  **/
 function balise_TOTAL_UNIQUE_dist($p) {
-	$_famille = interprete_argument_balise(1, $p);
-	$_famille = $_famille ?: "''";
-	$p->code = "unique('', $_famille, true)";
+    $_famille = interprete_argument_balise(1, $p);
+    $_famille = $_famille ?: "''";
+    $p->code = "unique('', $_famille, true)";
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -2340,19 +2340,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;
 }
 
 /**
@@ -2371,15 +2371,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;
 }
 
 
@@ -2413,21 +2413,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;
 }
 
 
@@ -2451,15 +2451,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;
 }
 
 /**
@@ -2480,9 +2480,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;
 }
 
 /**
@@ -2508,16 +2508,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 . '\' />' .
@@ -2528,9 +2528,9 @@ 
 	(\$Pile[0]['_hidden'] ?? '') .
 	'</span>'";
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -2571,25 +2571,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;
 }
 
 
@@ -2608,10 +2608,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;
 }
 
 
@@ -2635,10 +2635,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;
 }
 
 
@@ -2664,61 +2664,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 ?: $_champ;
+    $_libelle = interprete_argument_balise(2, $p);
+    $_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;
 }
 
 
@@ -2739,21 +2739,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;
 }
 
 
@@ -2775,22 +2775,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;
 }
 
 /**
@@ -2819,12 +2819,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;
 }
 
 /**
@@ -2843,13 +2843,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;
 }
 
 
@@ -2865,14 +2865,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;
 }

Braces +1 added lines, -2 removed lines

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

ecrire/public/fonctions.php

Spacing +8 added lines, -8 removed lines

@@ -84,7 +84,7 @@ 
 		$texte = $intro;
 	} else {
 		if (
-			strpos("\n" . $texte, "\n|") === false
+			strpos("\n".$texte, "\n|") === false
 			and strlen($texte) > 2.5 * $longueur
 		) {
 			if (strpos($texte, '<multi') !== false) {
@@ -168,12 +168,12 @@ 
 	if ($pas < 1) {
 		return '';
 	}
-	$ancre = 'pagination' . $nom; // #pagination_articles
-	$debut = 'debut' . $nom; // 'debut_articles'
+	$ancre = 'pagination'.$nom; // #pagination_articles
+	$debut = 'debut'.$nom; // 'debut_articles'
 
 	// n'afficher l'ancre qu'une fois
 	if (!isset($ancres[$ancre])) {
-		$bloc_ancre = $ancres[$ancre] = "<a id='" . $ancre . "' class='pagination_ancre'></a>";
+		$bloc_ancre = $ancres[$ancre] = "<a id='".$ancre."' class='pagination_ancre'></a>";
 	} else {
 		$bloc_ancre = '';
 	}
@@ -205,8 +205,8 @@ 
 
 	if ($modele) {
 		$pagination['type_pagination'] = $modele;
-		if (trouver_fond('pagination_' . $modele, 'modeles')) {
-			$modele = '_' . $modele;
+		if (trouver_fond('pagination_'.$modele, 'modeles')) {
+			$modele = '_'.$modele;
 		}
 		else {
 			$modele = '';
@@ -291,7 +291,7 @@ 
 function lister_objets_avec_logos($type) {
 
 	$objet = objet_type($type);
-	$ids = sql_allfetsel('L.id_objet', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode=' . sql_quote('logoon') . ' AND L.objet=' . sql_quote($objet));
+	$ids = sql_allfetsel('L.id_objet', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode='.sql_quote('logoon').' AND L.objet='.sql_quote($objet));
 	if ($ids) {
 		$ids = array_column($ids, 'id_objet');
 		return implode(',', $ids);
@@ -465,7 +465,7 @@ 
 		case 'sinum ':
 			return "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}";
 		default:
-			return $champ . $senstri;
+			return $champ.$senstri;
 	}
 }
 

Braces +2 added lines, -4 removed lines

@@ -207,8 +207,7 @@ 
 		$pagination['type_pagination'] = $modele;
 		if (trouver_fond('pagination_' . $modele, 'modeles')) {
 			$modele = '_' . $modele;
-		}
-		else {
+		} else {
 			$modele = '';
 		}
 	}
@@ -295,8 +294,7 @@ 
 	if ($ids) {
 		$ids = array_column($ids, 'id_objet');
 		return implode(',', $ids);
-	}
-	else {
+	} else {
 		return '0';
 	}
 }

Indentation +299 added lines, -299 removed lines

@@ -23,7 +23,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -52,75 +52,75 @@ 
  *     Introduction calculée
  **/
 function filtre_introduction_dist($descriptif, $texte, $longueur, $connect, $suite = null) {
-	// Si un descriptif est envoye, on l'utilise directement
-	if (strlen($descriptif)) {
-		return appliquer_traitement_champ($descriptif, 'introduction', '', [], $connect);
-	}
-
-	// De preference ce qui est marque <intro>...</intro>
-	$intro = '';
-	$texte = preg_replace(',(</?)intro>,i', "\\1intro>", $texte); // minuscules
-	while ($fin = strpos($texte, '</intro>')) {
-		$zone = substr($texte, 0, $fin);
-		$texte = substr($texte, $fin + strlen('</intro>'));
-		if ($deb = strpos($zone, '<intro>') or substr($zone, 0, 7) == '<intro>') {
-			$zone = substr($zone, $deb + 7);
-		}
-		$intro .= $zone;
-	}
-
-	// [12025] On ne *PEUT* pas couper simplement ici car c'est du texte brut,
-	// qui inclus raccourcis et modeles
-	// un simple <articlexx> peut etre ensuite transforme en 1000 lignes ...
-	// par ailleurs le nettoyage des raccourcis ne tient pas compte
-	// des surcharges et enrichissement de propre
-	// couper doit se faire apres propre
-	//$texte = nettoyer_raccourcis_typo($intro ? $intro : $texte, $connect);
-
-	// Cependant pour des questions de perfs on coupe quand meme, en prenant
-	// large et en se mefiant des tableaux #1323
-
-	if (strlen($intro)) {
-		$texte = $intro;
-	} else {
-		if (
-			strpos("\n" . $texte, "\n|") === false
-			and strlen($texte) > 2.5 * $longueur
-		) {
-			if (strpos($texte, '<multi') !== false) {
-				$texte = extraire_multi($texte);
-			}
-			$texte = couper($texte, 2 * $longueur);
-		}
-	}
-
-	// ne pas tenir compte des notes
-	if ($notes = charger_fonction('notes', 'inc', true)) {
-		$notes('', 'empiler');
-	}
-	// Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
-	// dans l'introduction.
-	$texte = supprime_img($texte, '');
-	$texte = appliquer_traitement_champ($texte, 'introduction', '', [], $connect);
-
-	if ($notes) {
-		$notes('', 'depiler');
-	}
-
-	if (is_null($suite) and defined('_INTRODUCTION_SUITE')) {
-		$suite = _INTRODUCTION_SUITE;
-	}
-	$texte = couper($texte, $longueur, $suite);
-	// comme on a coupe il faut repasser la typo (on a perdu les insecables)
-	$texte = typo($texte, true, $connect, []);
-
-	// et reparagrapher si necessaire (coherence avec le cas descriptif)
-	// une introduction a tojours un <p>
-	if ($GLOBALS['toujours_paragrapher']) { // Fermer les paragraphes
-	$texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
-	}
-
-	return $texte;
+    // Si un descriptif est envoye, on l'utilise directement
+    if (strlen($descriptif)) {
+        return appliquer_traitement_champ($descriptif, 'introduction', '', [], $connect);
+    }
+
+    // De preference ce qui est marque <intro>...</intro>
+    $intro = '';
+    $texte = preg_replace(',(</?)intro>,i', "\\1intro>", $texte); // minuscules
+    while ($fin = strpos($texte, '</intro>')) {
+        $zone = substr($texte, 0, $fin);
+        $texte = substr($texte, $fin + strlen('</intro>'));
+        if ($deb = strpos($zone, '<intro>') or substr($zone, 0, 7) == '<intro>') {
+            $zone = substr($zone, $deb + 7);
+        }
+        $intro .= $zone;
+    }
+
+    // [12025] On ne *PEUT* pas couper simplement ici car c'est du texte brut,
+    // qui inclus raccourcis et modeles
+    // un simple <articlexx> peut etre ensuite transforme en 1000 lignes ...
+    // par ailleurs le nettoyage des raccourcis ne tient pas compte
+    // des surcharges et enrichissement de propre
+    // couper doit se faire apres propre
+    //$texte = nettoyer_raccourcis_typo($intro ? $intro : $texte, $connect);
+
+    // Cependant pour des questions de perfs on coupe quand meme, en prenant
+    // large et en se mefiant des tableaux #1323
+
+    if (strlen($intro)) {
+        $texte = $intro;
+    } else {
+        if (
+            strpos("\n" . $texte, "\n|") === false
+            and strlen($texte) > 2.5 * $longueur
+        ) {
+            if (strpos($texte, '<multi') !== false) {
+                $texte = extraire_multi($texte);
+            }
+            $texte = couper($texte, 2 * $longueur);
+        }
+    }
+
+    // ne pas tenir compte des notes
+    if ($notes = charger_fonction('notes', 'inc', true)) {
+        $notes('', 'empiler');
+    }
+    // Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
+    // dans l'introduction.
+    $texte = supprime_img($texte, '');
+    $texte = appliquer_traitement_champ($texte, 'introduction', '', [], $connect);
+
+    if ($notes) {
+        $notes('', 'depiler');
+    }
+
+    if (is_null($suite) and defined('_INTRODUCTION_SUITE')) {
+        $suite = _INTRODUCTION_SUITE;
+    }
+    $texte = couper($texte, $longueur, $suite);
+    // comme on a coupe il faut repasser la typo (on a perdu les insecables)
+    $texte = typo($texte, true, $connect, []);
+
+    // et reparagrapher si necessaire (coherence avec le cas descriptif)
+    // une introduction a tojours un <p>
+    if ($GLOBALS['toujours_paragrapher']) { // Fermer les paragraphes
+    $texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
+    }
+
+    return $texte;
 }
 
 
@@ -155,73 +155,73 @@ 
  *     Code HTML de la pagination
  **/
 function filtre_pagination_dist(
-	$total,
-	$nom,
-	$position,
-	$pas,
-	$liste = true,
-	$modele = '',
-	string $connect = '',
-	$env = []
+    $total,
+    $nom,
+    $position,
+    $pas,
+    $liste = true,
+    $modele = '',
+    string $connect = '',
+    $env = []
 ) {
-	static $ancres = [];
-	if ($pas < 1) {
-		return '';
-	}
-	$ancre = 'pagination' . $nom; // #pagination_articles
-	$debut = 'debut' . $nom; // 'debut_articles'
-
-	// n'afficher l'ancre qu'une fois
-	if (!isset($ancres[$ancre])) {
-		$bloc_ancre = $ancres[$ancre] = "<a id='" . $ancre . "' class='pagination_ancre'></a>";
-	} else {
-		$bloc_ancre = '';
-	}
-	// liste = false : on ne veut que l'ancre
-	if (!$liste) {
-		return $ancres[$ancre];
-	}
-
-	$self = (empty($env['self']) ? self() : $env['self']);
-	$pagination = [
-		'debut' => $debut,
-		'url' => parametre_url($self, 'fragment', ''), // nettoyer l'id ahah eventuel
-		'total' => $total,
-		'position' => intval($position),
-		'pas' => $pas,
-		'nombre_pages' => floor(($total - 1) / $pas) + 1,
-		'page_courante' => floor(intval($position) / $pas) + 1,
-		'ancre' => $ancre,
-		'bloc_ancre' => $bloc_ancre
-	];
-	if (is_array($env)) {
-		$pagination = array_merge($env, $pagination);
-	}
-
-	// Pas de pagination
-	if ($pagination['nombre_pages'] <= 1) {
-		return '';
-	}
-
-	if ($modele) {
-		$pagination['type_pagination'] = $modele;
-		if (trouver_fond('pagination_' . $modele, 'modeles')) {
-			$modele = '_' . $modele;
-		}
-		else {
-			$modele = '';
-		}
-	}
-
-	if (!defined('_PAGINATION_NOMBRE_LIENS_MAX')) {
-		define('_PAGINATION_NOMBRE_LIENS_MAX', 10);
-	}
-	if (!defined('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE')) {
-		define('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE', 5);
-	}
-
-
-	return recuperer_fond("modeles/pagination$modele", $pagination, ['trim' => true], $connect);
+    static $ancres = [];
+    if ($pas < 1) {
+        return '';
+    }
+    $ancre = 'pagination' . $nom; // #pagination_articles
+    $debut = 'debut' . $nom; // 'debut_articles'
+
+    // n'afficher l'ancre qu'une fois
+    if (!isset($ancres[$ancre])) {
+        $bloc_ancre = $ancres[$ancre] = "<a id='" . $ancre . "' class='pagination_ancre'></a>";
+    } else {
+        $bloc_ancre = '';
+    }
+    // liste = false : on ne veut que l'ancre
+    if (!$liste) {
+        return $ancres[$ancre];
+    }
+
+    $self = (empty($env['self']) ? self() : $env['self']);
+    $pagination = [
+        'debut' => $debut,
+        'url' => parametre_url($self, 'fragment', ''), // nettoyer l'id ahah eventuel
+        'total' => $total,
+        'position' => intval($position),
+        'pas' => $pas,
+        'nombre_pages' => floor(($total - 1) / $pas) + 1,
+        'page_courante' => floor(intval($position) / $pas) + 1,
+        'ancre' => $ancre,
+        'bloc_ancre' => $bloc_ancre
+    ];
+    if (is_array($env)) {
+        $pagination = array_merge($env, $pagination);
+    }
+
+    // Pas de pagination
+    if ($pagination['nombre_pages'] <= 1) {
+        return '';
+    }
+
+    if ($modele) {
+        $pagination['type_pagination'] = $modele;
+        if (trouver_fond('pagination_' . $modele, 'modeles')) {
+            $modele = '_' . $modele;
+        }
+        else {
+            $modele = '';
+        }
+    }
+
+    if (!defined('_PAGINATION_NOMBRE_LIENS_MAX')) {
+        define('_PAGINATION_NOMBRE_LIENS_MAX', 10);
+    }
+    if (!defined('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE')) {
+        define('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE', 5);
+    }
+
+
+    return recuperer_fond("modeles/pagination$modele", $pagination, ['trim' => true], $connect);
 }
 
 
@@ -240,44 +240,44 @@ 
  *     Liste (première page, dernière page).
  **/
 function filtre_bornes_pagination_dist($courante, $nombre, $max = 10) {
-	if ($max <= 0 or $max >= $nombre) {
-		return [1, $nombre];
-	}
-	if ($max <= 1) {
-		return [$courante, $courante];
-	}
-
-	$premiere = max(1, $courante - floor(($max - 1) / 2));
-	$derniere = min($nombre, $premiere + $max - 2);
-	$premiere = $derniere == $nombre ? $derniere - $max + 1 : $premiere;
-
-	return [$premiere, $derniere];
+    if ($max <= 0 or $max >= $nombre) {
+        return [1, $nombre];
+    }
+    if ($max <= 1) {
+        return [$courante, $courante];
+    }
+
+    $premiere = max(1, $courante - floor(($max - 1) / 2));
+    $derniere = min($nombre, $premiere + $max - 2);
+    $premiere = $derniere == $nombre ? $derniere - $max + 1 : $premiere;
+
+    return [$premiere, $derniere];
 }
 
 function filtre_pagination_affiche_texte_lien_page_dist($type_pagination, $numero_page, $rang_item) {
-	if ($numero_page === 'tous') {
-		return '&#8734;';
-	}
-	if ($numero_page === 'prev') {
-		return '&lt;';
-	}
-	if ($numero_page === 'next') {
-		return '&gt;';
-	}
-
-	switch ($type_pagination) {
-		case 'resultats':
-			return $rang_item + 1; // 1 11 21 31...
-		case 'naturel':
-			return $rang_item ?: 1; // 1 10 20 30...
-		case 'rang':
-			return $rang_item; // 0 10 20 30...
-
-		case 'page':
-		case 'prive':
-		default:
-			return $numero_page; // 1 2 3 4 5...
-	}
+    if ($numero_page === 'tous') {
+        return '&#8734;';
+    }
+    if ($numero_page === 'prev') {
+        return '&lt;';
+    }
+    if ($numero_page === 'next') {
+        return '&gt;';
+    }
+
+    switch ($type_pagination) {
+        case 'resultats':
+            return $rang_item + 1; // 1 11 21 31...
+        case 'naturel':
+            return $rang_item ?: 1; // 1 10 20 30...
+        case 'rang':
+            return $rang_item; // 0 10 20 30...
+
+        case 'page':
+        case 'prive':
+        default:
+            return $numero_page; // 1 2 3 4 5...
+    }
 }
 
 /**
@@ -290,15 +290,15 @@ 
  **/
 function lister_objets_avec_logos($type) {
 
-	$objet = objet_type($type);
-	$ids = sql_allfetsel('L.id_objet', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode=' . sql_quote('logoon') . ' AND L.objet=' . sql_quote($objet));
-	if ($ids) {
-		$ids = array_column($ids, 'id_objet');
-		return implode(',', $ids);
-	}
-	else {
-		return '0';
-	}
+    $objet = objet_type($type);
+    $ids = sql_allfetsel('L.id_objet', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode=' . sql_quote('logoon') . ' AND L.objet=' . sql_quote($objet));
+    if ($ids) {
+        $ids = array_column($ids, 'id_objet');
+        return implode(',', $ids);
+    }
+    else {
+        return '0';
+    }
 }
 
 
@@ -314,14 +314,14 @@ 
  *     Code HTML des notes
  **/
 function calculer_notes() {
-	$r = '';
-	if ($notes = charger_fonction('notes', 'inc', true)) {
-		$r = $notes([]);
-		$notes('', 'depiler');
-		$notes('', 'empiler');
-	}
-
-	return $r;
+    $r = '';
+    if ($notes = charger_fonction('notes', 'inc', true)) {
+        $r = $notes([]);
+        $notes('', 'depiler');
+        $notes('', 'empiler');
+    }
+
+    return $r;
 }
 
 
@@ -338,10 +338,10 @@ 
  * @return string
  */
 function retrouver_rang_lien($objet_source, $ids, $objet_lie, $idl, $objet_lien) {
-	$res = lister_objets_liens($objet_source, $objet_lie, $idl, $objet_lien);
-	$res = array_column($res, 'rang_lien', $objet_source);
+    $res = lister_objets_liens($objet_source, $objet_lie, $idl, $objet_lien);
+    $res = array_column($res, 'rang_lien', $objet_source);
 
-	return ($res[$ids] ?? '');
+    return ($res[$ids] ?? '');
 }
 
 
@@ -358,19 +358,19 @@ 
  * @private
  */
 function lister_objets_liens($objet_source, $objet, $id_objet, $objet_lien) {
-	static $liens = [];
-	if (!isset($liens["$objet_source-$objet-$id_objet-$objet_lien"])) {
-		include_spip('action/editer_liens');
-		// quand $objet == $objet_lien == $objet_source on reste sur le cas par defaut de $objet_lien == $objet_source
-		if ($objet_lien == $objet and $objet_lien !== $objet_source) {
-			$res = objet_trouver_liens([$objet => $id_objet], [$objet_source => '*']);
-		} else {
-			$res = objet_trouver_liens([$objet_source => '*'], [$objet => $id_objet]);
-		}
-
-		$liens["$objet_source-$objet-$id_objet-$objet_lien"] = $res;
-	}
-	return $liens["$objet_source-$objet-$id_objet-$objet_lien"];
+    static $liens = [];
+    if (!isset($liens["$objet_source-$objet-$id_objet-$objet_lien"])) {
+        include_spip('action/editer_liens');
+        // quand $objet == $objet_lien == $objet_source on reste sur le cas par defaut de $objet_lien == $objet_source
+        if ($objet_lien == $objet and $objet_lien !== $objet_source) {
+            $res = objet_trouver_liens([$objet => $id_objet], [$objet_source => '*']);
+        } else {
+            $res = objet_trouver_liens([$objet_source => '*'], [$objet => $id_objet]);
+        }
+
+        $liens["$objet_source-$objet-$id_objet-$objet_lien"] = $res;
+    }
+    return $liens["$objet_source-$objet-$id_objet-$objet_lien"];
 }
 
 /**
@@ -384,24 +384,24 @@ 
  * @return int|string
  */
 function calculer_rang_smart($titre, $objet_source, $id, $env) {
-	// Cas du #RANG utilisé dans #FORMULAIRE_EDITER_LIENS -> attraper le rang du lien
-	// permet de voir le rang du lien si il y en a un en base, meme avant un squelette xxxx-lies.html ne gerant pas les liens
-	if (
-		isset($env['form']) and $env['form']
-		and isset($env['_objet_lien']) and $env['_objet_lien']
-		and (function_exists('lien_triables') or include_spip('action/editer_liens'))
-		and $r = objet_associable($env['_objet_lien'])
-		and [$p, $table_lien] = $r
-		and lien_triables($table_lien)
-		and isset($env['objet']) and $env['objet']
-		and isset($env['id_objet']) and $env['id_objet']
-		and $objet_source
-		and $id = intval($id)
-	) {
-		$rang = retrouver_rang_lien($objet_source, $id, $env['objet'], $env['id_objet'], $env['_objet_lien']);
-		return ($rang ?: '');
-	}
-	return recuperer_numero($titre);
+    // Cas du #RANG utilisé dans #FORMULAIRE_EDITER_LIENS -> attraper le rang du lien
+    // permet de voir le rang du lien si il y en a un en base, meme avant un squelette xxxx-lies.html ne gerant pas les liens
+    if (
+        isset($env['form']) and $env['form']
+        and isset($env['_objet_lien']) and $env['_objet_lien']
+        and (function_exists('lien_triables') or include_spip('action/editer_liens'))
+        and $r = objet_associable($env['_objet_lien'])
+        and [$p, $table_lien] = $r
+        and lien_triables($table_lien)
+        and isset($env['objet']) and $env['objet']
+        and isset($env['id_objet']) and $env['id_objet']
+        and $objet_source
+        and $id = intval($id)
+    ) {
+        $rang = retrouver_rang_lien($objet_source, $id, $env['objet'], $env['id_objet'], $env['_objet_lien']);
+        return ($rang ?: '');
+    }
+    return recuperer_numero($titre);
 }
 
 
@@ -417,7 +417,7 @@ 
  * @return string
  */
 function tri_protege_champ($t) {
-	return preg_replace(',[^\s\w.+\[\]],', '', $t);
+    return preg_replace(',[^\s\w.+\[\]],', '', $t);
 }
 
 /**
@@ -430,43 +430,43 @@ 
  * @return string
  */
 function tri_champ_order($t, $from = null, $senstri = '') {
-	if (strncmp($t, 'multi ', 6) == 0) {
-		return 'multi';
-	}
-
-	$champ = $t;
-
-	$prefixe = '';
-	foreach (['num ', 'sinum '] as $p) {
-		if (strpos($t, $p) === 0) {
-			$champ = substr($t, strlen($p));
-			$prefixe = $p;
-		}
-	}
-
-	// enlever les autres espaces non evacues par tri_protege_champ
-	$champ = preg_replace(',\s,', '', $champ);
-
-	if (is_array($from)) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-		foreach ($from as $idt => $table_sql) {
-			if (
-				$desc = $trouver_table($table_sql)
-				and isset($desc['field'][$champ])
-			) {
-				$champ = "$idt.$champ";
-				break;
-			}
-		}
-	}
-	switch ($prefixe) {
-		case 'num ':
-			return "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}, 0+$champ{$senstri}";
-		case 'sinum ':
-			return "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}";
-		default:
-			return $champ . $senstri;
-	}
+    if (strncmp($t, 'multi ', 6) == 0) {
+        return 'multi';
+    }
+
+    $champ = $t;
+
+    $prefixe = '';
+    foreach (['num ', 'sinum '] as $p) {
+        if (strpos($t, $p) === 0) {
+            $champ = substr($t, strlen($p));
+            $prefixe = $p;
+        }
+    }
+
+    // enlever les autres espaces non evacues par tri_protege_champ
+    $champ = preg_replace(',\s,', '', $champ);
+
+    if (is_array($from)) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+        foreach ($from as $idt => $table_sql) {
+            if (
+                $desc = $trouver_table($table_sql)
+                and isset($desc['field'][$champ])
+            ) {
+                $champ = "$idt.$champ";
+                break;
+            }
+        }
+    }
+    switch ($prefixe) {
+        case 'num ':
+            return "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}, 0+$champ{$senstri}";
+        case 'sinum ':
+            return "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}";
+        default:
+            return $champ . $senstri;
+    }
 }
 
 /**
@@ -480,18 +480,18 @@ 
  * @return string
  */
 function tri_champ_select($t) {
-	if (strncmp($t, 'multi ', 6) == 0) {
-		$t = substr($t, 6);
-		$t = preg_replace(',\s,', '', $t);
-		$t = sql_multi($t, $GLOBALS['spip_lang']);
-
-		return $t;
-	}
-	if (trim($t) == 'hasard') {
-		return 'rand() AS hasard';
-	}
-
-	return "''";
+    if (strncmp($t, 'multi ', 6) == 0) {
+        $t = substr($t, 6);
+        $t = preg_replace(',\s,', '', $t);
+        $t = sql_multi($t, $GLOBALS['spip_lang']);
+
+        return $t;
+    }
+    if (trim($t) == 'hasard') {
+        return 'rand() AS hasard';
+    }
+
+    return "''";
 }
 
 /**
@@ -503,16 +503,16 @@ 
  * @return string
  */
 function formate_liste_critere_par_ordre_liste($valeurs, $serveur = '') {
-	if (!is_array($valeurs)) {
-		return '';
-	}
-	$f = sql_serveur('quote', $serveur, true);
-	if (!is_string($f) or !$f) {
-		return '';
-	}
-	$valeurs = implode(',', array_map($f, array_unique($valeurs)));
-
-	return $valeurs;
+    if (!is_array($valeurs)) {
+        return '';
+    }
+    $f = sql_serveur('quote', $serveur, true);
+    if (!is_string($f) or !$f) {
+        return '';
+    }
+    $valeurs = implode(',', array_map($f, array_unique($valeurs)));
+
+    return $valeurs;
 }
 
 /**
@@ -535,21 +535,21 @@ 
  *     Valeur $defaut sinon.
  **/
 function appliquer_filtre_sinon($arg, $filtre, $args, $defaut = '') {
-	// Si c'est un filtre d'image, on utilise image_filtrer()
-	// Attention : les 2 premiers arguments sont inversés dans ce cas
-	if (trouver_filtre_matrice($filtre) and substr($filtre, 0, 6) == 'image_') {
-		include_spip('inc/filtres_images_lib_mini');
-		$args[1] = $args[0];
-		$args[0] = $filtre;
-		return image_graver(image_filtrer($args));
-	}
-
-	$f = chercher_filtre($filtre);
-	if (!$f) {
-		return $defaut;
-	}
-	array_shift($args); // enlever $arg
-	array_shift($args); // enlever $filtre
-	array_unshift($args, $arg); // remettre $arg
-	return call_user_func_array($f, $args);
+    // Si c'est un filtre d'image, on utilise image_filtrer()
+    // Attention : les 2 premiers arguments sont inversés dans ce cas
+    if (trouver_filtre_matrice($filtre) and substr($filtre, 0, 6) == 'image_') {
+        include_spip('inc/filtres_images_lib_mini');
+        $args[1] = $args[0];
+        $args[0] = $filtre;
+        return image_graver(image_filtrer($args));
+    }
+
+    $f = chercher_filtre($filtre);
+    if (!$f) {
+        return $defaut;
+    }
+    array_shift($args); // enlever $arg
+    array_shift($args); // enlever $filtre
+    array_unshift($args, $arg); // remettre $arg
+    return call_user_func_array($f, $args);
 }

ecrire/public/assembler.php

Spacing +13 added lines, -13 removed lines

@@ -37,7 +37,7 @@ 
 
 	$GLOBALS['contexte'] = calculer_contexte();
 	$page = ['contexte_implicite' => calculer_contexte_implicite()];
-	$page['contexte_implicite']['cache'] = $fond . preg_replace(
+	$page['contexte_implicite']['cache'] = $fond.preg_replace(
 		',\.[a-zA-Z0-9]*$,',
 		'',
 		preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI'])
@@ -138,7 +138,7 @@ 
 			if ($page === '') {
 				$erreur = _T(
 					'info_erreur_squelette2',
-					['fichier' => spip_htmlspecialchars($fond) . '.' . _EXTENSION_SQUELETTES]
+					['fichier' => spip_htmlspecialchars($fond).'.'._EXTENSION_SQUELETTES]
 				);
 				erreur_squelette($erreur);
 				// eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
@@ -183,7 +183,7 @@ 
 		and !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
 		and !isset($page['entetes']['Last-Modified'])
 	) {
-		$page['entetes']['Last-Modified'] = gmdate('D, d M Y H:i:s', $lastmodified) . ' GMT';
+		$page['entetes']['Last-Modified'] = gmdate('D, d M Y H:i:s', $lastmodified).' GMT';
 	}
 
 	// fermer la connexion apres les headers si requete HEAD
@@ -248,7 +248,7 @@ 
 		'spip_version_code' => $GLOBALS['spip_version_code'],
 	];
 	if (isset($_SERVER['HTTP_X_FORWARDED_HOST'])) {
-		$contexte_implicite['host'] .= '|' . $_SERVER['HTTP_X_FORWARDED_HOST'];
+		$contexte_implicite['host'] .= '|'.$_SERVER['HTTP_X_FORWARDED_HOST'];
 	}
 
 	return $contexte_implicite;
@@ -579,7 +579,7 @@ 
 			}
 		}
 		if (is_null($id)) {
-			$msg = "modeles/$modele : " . _T('zbug_parametres_inclus_incorrects', ['param' => "id/$primary"]);
+			$msg = "modeles/$modele : "._T('zbug_parametres_inclus_incorrects', ['param' => "id/$primary"]);
 			erreur_squelette($msg);
 			// on passe id=0 au routeur pour tomber sur le modele par defaut et eviter une seconde erreur sur un modele inexistant
 			$id = 0;
@@ -626,7 +626,7 @@ 
 		}
 
 		if (preg_match(',^[a-z0-9_]+$,', $soustype)) {
-			if (!trouve_modele($fond = ($type . '_' . $soustype))) {
+			if (!trouve_modele($fond = ($type.'_'.$soustype))) {
 				$fond = '';
 				$class = $soustype;
 			}
@@ -641,7 +641,7 @@ 
 
 		return false;
 	}
-	$fond = 'modeles/' . $fond;
+	$fond = 'modeles/'.$fond;
 	// Creer le contexte
 	$contexte = $env;
 	$contexte['dir_racine'] = _DIR_RACINE; # eviter de mixer un cache racine et un cache ecrire (meme si pour l'instant les modeles ne sont pas caches, le resultat etant different il faut que le contexte en tienne compte
@@ -682,7 +682,7 @@ 
 	// sinon, s'il y a un lien, on l'ajoute classiquement
 	if (
 		strstr(
-			' ' . ($classes = extraire_attribut($retour, 'class')) . ' ',
+			' '.($classes = extraire_attribut($retour, 'class')).' ',
 			'spip_lien_ok'
 		)
 	) {
@@ -693,7 +693,7 @@ 
 		);
 	} else {
 		if ($lien) {
-			$retour = "<a href='" . $lien['href'] . "' class='" . $lien['class'] . "'>" . $retour . '</a>';
+			$retour = "<a href='".$lien['href']."' class='".$lien['class']."'>".$retour.'</a>';
 		}
 	}
 
@@ -717,7 +717,7 @@ 
 		return $page;
 	}
 	// eval $page et affecte $res
-	include _ROOT_RESTREINT . 'public/evaluer_page.php';
+	include _ROOT_RESTREINT.'public/evaluer_page.php';
 
 	// Lever un drapeau (global) si le fond utilise #SESSION
 	// a destination de public/parametrer
@@ -785,16 +785,16 @@ 
 			if (($pos = strpos($head, '<head>')) !== false) {
 				$head = substr_replace($head, $base, $pos + 6, 0);
 			} elseif (preg_match(',<head[^>]*>,i', $head, $r)) {
-				$head = str_replace($r[0], $r[0] . $base, $head);
+				$head = str_replace($r[0], $r[0].$base, $head);
 			}
-			$texte = $head . substr($texte, $poshead);
+			$texte = $head.substr($texte, $poshead);
 		}
 		if ($href_base) {
 			// gerer les ancres
 			$base = $_SERVER['REQUEST_URI'];
 			// pas de guillemets ni < dans l'URL qu'on insere dans le HTML
 			if (strpos($base, "'") or strpos($base, '"') or strpos($base, '<')) {
-				$base = str_replace(["'",'"','<'], ['%27','%22','%3C'], $base);
+				$base = str_replace(["'", '"', '<'], ['%27', '%22', '%3C'], $base);
 			}
 			if (strpos($texte, "href='#") !== false) {
 				$texte = str_replace("href='#", "href='$base#", $texte);

Indentation +632 added lines, -632 removed lines

@@ -20,180 +20,180 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // En cas de modification, il faut aussi actualiser la regexp de nettoyer_uri_var() dans inc/utils.php
 if (!defined('_CONTEXTE_IGNORE_VARIABLES')) {
-	define('_CONTEXTE_IGNORE_VARIABLES', '/(^var_|^PHPSESSID$|^fbclid$|^utm_)/');
+    define('_CONTEXTE_IGNORE_VARIABLES', '/(^var_|^PHPSESSID$|^fbclid$|^utm_)/');
 }
 
 function assembler($fond, string $connect = '') {
 
-	$chemin_cache = null;
-	$lastmodified = null;
-	$res = null;
-	// flag_preserver est modifie ici, et utilise en globale
-	// use_cache sert a informer le bouton d'admin pr savoir s'il met un *
-	// contexte est utilise en globale dans le formulaire d'admin
-
-	$GLOBALS['contexte'] = calculer_contexte();
-	$page = ['contexte_implicite' => calculer_contexte_implicite()];
-	$page['contexte_implicite']['cache'] = $fond . preg_replace(
-		',\.[a-zA-Z0-9]*$,',
-		'',
-		preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI'])
-	);
-	// Cette fonction est utilisee deux fois
-	$cacher = charger_fonction('cacher', 'public', true);
-	// Les quatre derniers parametres sont modifies par la fonction:
-	// emplacement, validite, et, s'il est valide, contenu & age
-	if ($cacher) {
-		$res = $cacher($GLOBALS['contexte'], $GLOBALS['use_cache'], $chemin_cache, $page, $lastmodified);
-	} else {
-		$GLOBALS['use_cache'] = -1;
-	}
-	// Si un resultat est retourne, c'est un message d'impossibilite
-	if ($res) {
-		return ['texte' => $res];
-	}
-
-	if (!$chemin_cache || !$lastmodified) {
-		$lastmodified = time();
-	}
-
-	$headers_only = ($_SERVER['REQUEST_METHOD'] == 'HEAD');
-	$calculer_page = true;
-
-	// Pour les pages non-dynamiques (indiquees par #CACHE{duree,cache-client})
-	// une perennite valide a meme reponse qu'une requete HEAD (par defaut les
-	// pages sont dynamiques)
-	if (
-		isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
-		and (!defined('_VAR_MODE') or !_VAR_MODE)
-		and $chemin_cache
-		and isset($page['entetes'])
-		and isset($page['entetes']['Cache-Control'])
-		and strstr($page['entetes']['Cache-Control'], 'max-age=')
-		and !strstr($_SERVER['SERVER_SOFTWARE'], 'IIS/')
-	) {
-		$since = preg_replace(
-			'/;.*/',
-			'',
-			$_SERVER['HTTP_IF_MODIFIED_SINCE']
-		);
-		$since = str_replace('GMT', '', $since);
-		if (trim($since) == gmdate('D, d M Y H:i:s', $lastmodified)) {
-			$page['status'] = 304;
-			$headers_only = true;
-			$calculer_page = false;
-		}
-	}
-
-	// Si requete HEAD ou Last-modified compatible, ignorer le texte
-	// et pas de content-type (pour contrer le bouton admin de inc-public)
-	if (!$calculer_page) {
-		$page['texte'] = '';
-	} else {
-		// si la page est prise dans le cache
-		if (!$GLOBALS['use_cache']) {
-			// Informer les boutons d'admin du contexte
-			// (fourni par urls_decoder_url ci-dessous lors de la mise en cache)
-			$GLOBALS['contexte'] = $page['contexte'];
-
-			// vider les globales url propres qui ne doivent plus etre utilisees en cas
-			// d'inversion url => objet
-			// plus necessaire si on utilise bien la fonction urls_decoder_url
-			#unset($_SERVER['REDIRECT_url_propre']);
-			#unset($_ENV['url_propre']);
-		} else {
-			// Compat ascendante :
-			// 1. $contexte est global
-			// (a evacuer car urls_decoder_url gere ce probleme ?)
-			// et calculer la page
-			if (!test_espace_prive()) {
-				include_spip('inc/urls');
-				[$fond, $GLOBALS['contexte'], $url_redirect] = urls_decoder_url(
-					nettoyer_uri(),
-					$fond,
-					$GLOBALS['contexte'],
-					true
-				);
-			}
-			// squelette par defaut
-			if (!strlen($fond ?? '')) {
-				$fond = 'sommaire';
-			}
-
-			// produire la page : peut mettre a jour $lastmodified
-			$produire_page = charger_fonction('produire_page', 'public');
-			$page = $produire_page(
-				$fond,
-				$GLOBALS['contexte'],
-				$GLOBALS['use_cache'],
-				$chemin_cache,
-				null,
-				$page,
-				$lastmodified,
-				$connect
-			);
-			if ($page === '') {
-				$erreur = _T(
-					'info_erreur_squelette2',
-					['fichier' => spip_htmlspecialchars($fond) . '.' . _EXTENSION_SQUELETTES]
-				);
-				erreur_squelette($erreur);
-				// eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
-				$page = ['texte' => '', 'erreur' => $erreur];
-			}
-		}
-
-		if ($page and $chemin_cache) {
-			$page['cache'] = $chemin_cache;
-		}
-
-		auto_content_type($page);
-
-		$GLOBALS['flag_preserver'] |= headers_sent();
-
-		// Definir les entetes si ce n'est fait
-		if (!$GLOBALS['flag_preserver']) {
-			if ($GLOBALS['flag_ob']) {
-				// Si la page est vide, produire l'erreur 404 ou message d'erreur pour les inclusions
-				if (
-					trim($page['texte']) === ''
-					and _VAR_MODE != 'debug'
-					and !isset($page['entetes']['Location']) // cette page realise une redirection, donc pas d'erreur
-				) {
-					$GLOBALS['contexte']['fond_erreur'] = $fond;
-					$page = message_page_indisponible($page, $GLOBALS['contexte']);
-				}
-				// pas de cache client en mode 'observation'
-				if (defined('_VAR_MODE') and _VAR_MODE) {
-					$page['entetes']['Cache-Control'] = 'no-cache,must-revalidate';
-					$page['entetes']['Pragma'] = 'no-cache';
-				}
-			}
-		}
-	}
-
-	// Entete Last-Modified:
-	// eviter d'etre incoherent en envoyant un lastmodified identique
-	// a celui qu'on a refuse d'honorer plus haut (cf. #655)
-	if (
-		$lastmodified
-		and !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
-		and !isset($page['entetes']['Last-Modified'])
-	) {
-		$page['entetes']['Last-Modified'] = gmdate('D, d M Y H:i:s', $lastmodified) . ' GMT';
-	}
-
-	// fermer la connexion apres les headers si requete HEAD
-	if ($headers_only) {
-		$page['entetes']['Connection'] = 'close';
-	}
-
-	return $page;
+    $chemin_cache = null;
+    $lastmodified = null;
+    $res = null;
+    // flag_preserver est modifie ici, et utilise en globale
+    // use_cache sert a informer le bouton d'admin pr savoir s'il met un *
+    // contexte est utilise en globale dans le formulaire d'admin
+
+    $GLOBALS['contexte'] = calculer_contexte();
+    $page = ['contexte_implicite' => calculer_contexte_implicite()];
+    $page['contexte_implicite']['cache'] = $fond . preg_replace(
+        ',\.[a-zA-Z0-9]*$,',
+        '',
+        preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI'])
+    );
+    // Cette fonction est utilisee deux fois
+    $cacher = charger_fonction('cacher', 'public', true);
+    // Les quatre derniers parametres sont modifies par la fonction:
+    // emplacement, validite, et, s'il est valide, contenu & age
+    if ($cacher) {
+        $res = $cacher($GLOBALS['contexte'], $GLOBALS['use_cache'], $chemin_cache, $page, $lastmodified);
+    } else {
+        $GLOBALS['use_cache'] = -1;
+    }
+    // Si un resultat est retourne, c'est un message d'impossibilite
+    if ($res) {
+        return ['texte' => $res];
+    }
+
+    if (!$chemin_cache || !$lastmodified) {
+        $lastmodified = time();
+    }
+
+    $headers_only = ($_SERVER['REQUEST_METHOD'] == 'HEAD');
+    $calculer_page = true;
+
+    // Pour les pages non-dynamiques (indiquees par #CACHE{duree,cache-client})
+    // une perennite valide a meme reponse qu'une requete HEAD (par defaut les
+    // pages sont dynamiques)
+    if (
+        isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
+        and (!defined('_VAR_MODE') or !_VAR_MODE)
+        and $chemin_cache
+        and isset($page['entetes'])
+        and isset($page['entetes']['Cache-Control'])
+        and strstr($page['entetes']['Cache-Control'], 'max-age=')
+        and !strstr($_SERVER['SERVER_SOFTWARE'], 'IIS/')
+    ) {
+        $since = preg_replace(
+            '/;.*/',
+            '',
+            $_SERVER['HTTP_IF_MODIFIED_SINCE']
+        );
+        $since = str_replace('GMT', '', $since);
+        if (trim($since) == gmdate('D, d M Y H:i:s', $lastmodified)) {
+            $page['status'] = 304;
+            $headers_only = true;
+            $calculer_page = false;
+        }
+    }
+
+    // Si requete HEAD ou Last-modified compatible, ignorer le texte
+    // et pas de content-type (pour contrer le bouton admin de inc-public)
+    if (!$calculer_page) {
+        $page['texte'] = '';
+    } else {
+        // si la page est prise dans le cache
+        if (!$GLOBALS['use_cache']) {
+            // Informer les boutons d'admin du contexte
+            // (fourni par urls_decoder_url ci-dessous lors de la mise en cache)
+            $GLOBALS['contexte'] = $page['contexte'];
+
+            // vider les globales url propres qui ne doivent plus etre utilisees en cas
+            // d'inversion url => objet
+            // plus necessaire si on utilise bien la fonction urls_decoder_url
+            #unset($_SERVER['REDIRECT_url_propre']);
+            #unset($_ENV['url_propre']);
+        } else {
+            // Compat ascendante :
+            // 1. $contexte est global
+            // (a evacuer car urls_decoder_url gere ce probleme ?)
+            // et calculer la page
+            if (!test_espace_prive()) {
+                include_spip('inc/urls');
+                [$fond, $GLOBALS['contexte'], $url_redirect] = urls_decoder_url(
+                    nettoyer_uri(),
+                    $fond,
+                    $GLOBALS['contexte'],
+                    true
+                );
+            }
+            // squelette par defaut
+            if (!strlen($fond ?? '')) {
+                $fond = 'sommaire';
+            }
+
+            // produire la page : peut mettre a jour $lastmodified
+            $produire_page = charger_fonction('produire_page', 'public');
+            $page = $produire_page(
+                $fond,
+                $GLOBALS['contexte'],
+                $GLOBALS['use_cache'],
+                $chemin_cache,
+                null,
+                $page,
+                $lastmodified,
+                $connect
+            );
+            if ($page === '') {
+                $erreur = _T(
+                    'info_erreur_squelette2',
+                    ['fichier' => spip_htmlspecialchars($fond) . '.' . _EXTENSION_SQUELETTES]
+                );
+                erreur_squelette($erreur);
+                // eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
+                $page = ['texte' => '', 'erreur' => $erreur];
+            }
+        }
+
+        if ($page and $chemin_cache) {
+            $page['cache'] = $chemin_cache;
+        }
+
+        auto_content_type($page);
+
+        $GLOBALS['flag_preserver'] |= headers_sent();
+
+        // Definir les entetes si ce n'est fait
+        if (!$GLOBALS['flag_preserver']) {
+            if ($GLOBALS['flag_ob']) {
+                // Si la page est vide, produire l'erreur 404 ou message d'erreur pour les inclusions
+                if (
+                    trim($page['texte']) === ''
+                    and _VAR_MODE != 'debug'
+                    and !isset($page['entetes']['Location']) // cette page realise une redirection, donc pas d'erreur
+                ) {
+                    $GLOBALS['contexte']['fond_erreur'] = $fond;
+                    $page = message_page_indisponible($page, $GLOBALS['contexte']);
+                }
+                // pas de cache client en mode 'observation'
+                if (defined('_VAR_MODE') and _VAR_MODE) {
+                    $page['entetes']['Cache-Control'] = 'no-cache,must-revalidate';
+                    $page['entetes']['Pragma'] = 'no-cache';
+                }
+            }
+        }
+    }
+
+    // Entete Last-Modified:
+    // eviter d'etre incoherent en envoyant un lastmodified identique
+    // a celui qu'on a refuse d'honorer plus haut (cf. #655)
+    if (
+        $lastmodified
+        and !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
+        and !isset($page['entetes']['Last-Modified'])
+    ) {
+        $page['entetes']['Last-Modified'] = gmdate('D, d M Y H:i:s', $lastmodified) . ' GMT';
+    }
+
+    // fermer la connexion apres les headers si requete HEAD
+    if ($headers_only) {
+        $page['entetes']['Connection'] = 'close';
+    }
+
+    return $page;
 }
 
 /**
@@ -210,19 +210,19 @@ 
  */
 function calculer_contexte() {
 
-	$contexte = [];
-	foreach ($_GET as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
-			$contexte[$var] = $val;
-		}
-	}
-	foreach ($_POST as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
-			$contexte[$var] = $val;
-		}
-	}
-
-	return $contexte;
+    $contexte = [];
+    foreach ($_GET as $var => $val) {
+        if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
+            $contexte[$var] = $val;
+        }
+    }
+    foreach ($_POST as $var => $val) {
+        if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var)) {
+            $contexte[$var] = $val;
+        }
+    }
+
+    return $contexte;
 }
 
 /**
@@ -233,25 +233,25 @@ 
  * @return array
  */
 function calculer_contexte_implicite() {
-	static $notes = null;
-	if (is_null($notes)) {
-		$notes = charger_fonction('notes', 'inc', true);
-	}
-	$contexte_implicite = [
-		'squelettes' => $GLOBALS['dossier_squelettes'], // devrait etre 'chemin' => $GLOBALS['path_sig'], ?
-		'host' => ($_SERVER['HTTP_HOST'] ?? null),
-		'https' => ($_SERVER['HTTPS'] ?? ''),
-		'espace' => test_espace_prive(),
-		'marqueur' => ($GLOBALS['marqueur'] ?? ''),
-		'marqueur_skel' => ($GLOBALS['marqueur_skel'] ?? ''),
-		'notes' => $notes ? $notes('', 'contexter_cache') : '',
-		'spip_version_code' => $GLOBALS['spip_version_code'],
-	];
-	if (isset($_SERVER['HTTP_X_FORWARDED_HOST'])) {
-		$contexte_implicite['host'] .= '|' . $_SERVER['HTTP_X_FORWARDED_HOST'];
-	}
-
-	return $contexte_implicite;
+    static $notes = null;
+    if (is_null($notes)) {
+        $notes = charger_fonction('notes', 'inc', true);
+    }
+    $contexte_implicite = [
+        'squelettes' => $GLOBALS['dossier_squelettes'], // devrait etre 'chemin' => $GLOBALS['path_sig'], ?
+        'host' => ($_SERVER['HTTP_HOST'] ?? null),
+        'https' => ($_SERVER['HTTPS'] ?? ''),
+        'espace' => test_espace_prive(),
+        'marqueur' => ($GLOBALS['marqueur'] ?? ''),
+        'marqueur_skel' => ($GLOBALS['marqueur_skel'] ?? ''),
+        'notes' => $notes ? $notes('', 'contexter_cache') : '',
+        'spip_version_code' => $GLOBALS['spip_version_code'],
+    ];
+    if (isset($_SERVER['HTTP_X_FORWARDED_HOST'])) {
+        $contexte_implicite['host'] .= '|' . $_SERVER['HTTP_X_FORWARDED_HOST'];
+    }
+
+    return $contexte_implicite;
 }
 
 //
@@ -260,55 +260,55 @@ 
 
 function auto_content_type($page) {
 
-	if (!isset($GLOBALS['flag_preserver'])) {
-		$GLOBALS['flag_preserver'] = ($page && preg_match(
-			'/header\s*\(\s*.content\-type:/isx',
-			$page['texte']
-		) || (isset($page['entetes']['Content-Type'])));
-	}
+    if (!isset($GLOBALS['flag_preserver'])) {
+        $GLOBALS['flag_preserver'] = ($page && preg_match(
+            '/header\s*\(\s*.content\-type:/isx',
+            $page['texte']
+        ) || (isset($page['entetes']['Content-Type'])));
+    }
 }
 
 function inclure_page($fond, $contexte, string $connect = '') {
-	$use_cache = null;
-	$chemin_cache = null;
-	$lastinclude = null;
-	$res = null;
-	static $cacher, $produire_page;
-
-	// enlever le fond de contexte inclus car sinon il prend la main
-	// dans les sous inclusions -> boucle infinie d'inclusion identique
-	// (cette precaution n'est probablement plus utile)
-	unset($contexte['fond']);
-	$page = ['contexte_implicite' => calculer_contexte_implicite()];
-	$page['contexte_implicite']['cache'] = $fond;
-	if (is_null($cacher)) {
-		$cacher = charger_fonction('cacher', 'public', true);
-	}
-	// Les quatre derniers parametres sont modifies par la fonction:
-	// emplacement, validite, et, s'il est valide, contenu & age
-	if ($cacher) {
-		$res = $cacher($contexte, $use_cache, $chemin_cache, $page, $lastinclude);
-	} else {
-		$use_cache = -1;
-	}
-	// $res = message d'erreur : on sort de la
-	if ($res) {
-		return ['texte' => $res];
-	}
-
-	// Si use_cache ne vaut pas 0, la page doit etre calculee
-	// produire la page : peut mettre a jour $lastinclude
-	// le contexte_cache envoye a cacher() a ete conserve et est passe a produire
-	if ($use_cache) {
-		if (is_null($produire_page)) {
-			$produire_page = charger_fonction('produire_page', 'public');
-		}
-		$page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, $contexte, $page, $lastinclude, $connect);
-	}
-	// dans tous les cas, mettre a jour $GLOBALS['lastmodified']
-	$GLOBALS['lastmodified'] = max(($GLOBALS['lastmodified'] ?? 0), $lastinclude);
-
-	return $page;
+    $use_cache = null;
+    $chemin_cache = null;
+    $lastinclude = null;
+    $res = null;
+    static $cacher, $produire_page;
+
+    // enlever le fond de contexte inclus car sinon il prend la main
+    // dans les sous inclusions -> boucle infinie d'inclusion identique
+    // (cette precaution n'est probablement plus utile)
+    unset($contexte['fond']);
+    $page = ['contexte_implicite' => calculer_contexte_implicite()];
+    $page['contexte_implicite']['cache'] = $fond;
+    if (is_null($cacher)) {
+        $cacher = charger_fonction('cacher', 'public', true);
+    }
+    // Les quatre derniers parametres sont modifies par la fonction:
+    // emplacement, validite, et, s'il est valide, contenu & age
+    if ($cacher) {
+        $res = $cacher($contexte, $use_cache, $chemin_cache, $page, $lastinclude);
+    } else {
+        $use_cache = -1;
+    }
+    // $res = message d'erreur : on sort de la
+    if ($res) {
+        return ['texte' => $res];
+    }
+
+    // Si use_cache ne vaut pas 0, la page doit etre calculee
+    // produire la page : peut mettre a jour $lastinclude
+    // le contexte_cache envoye a cacher() a ete conserve et est passe a produire
+    if ($use_cache) {
+        if (is_null($produire_page)) {
+            $produire_page = charger_fonction('produire_page', 'public');
+        }
+        $page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, $contexte, $page, $lastinclude, $connect);
+    }
+    // dans tous les cas, mettre a jour $GLOBALS['lastmodified']
+    $GLOBALS['lastmodified'] = max(($GLOBALS['lastmodified'] ?? 0), $lastinclude);
+
+    return $page;
 }
 
 /**
@@ -326,41 +326,41 @@ 
  * @return array
  */
 function public_produire_page_dist(
-	$fond,
-	$contexte,
-	$use_cache,
-	$chemin_cache,
-	$contexte_cache,
-	&$page,
-	&$lastinclude,
-	$connect = ''
+    $fond,
+    $contexte,
+    $use_cache,
+    $chemin_cache,
+    $contexte_cache,
+    &$page,
+    &$lastinclude,
+    $connect = ''
 ) {
-	static $parametrer, $cacher;
-	if (!$parametrer) {
-		$parametrer = charger_fonction('parametrer', 'public');
-	}
-	$page = $parametrer($fond, $contexte, $chemin_cache, $connect);
-	// et on l'enregistre sur le disque
-	if (
-		$chemin_cache
-		and $use_cache > -1
-		and is_array($page)
-		and count($page)
-		and isset($page['entetes']['X-Spip-Cache'])
-		and $page['entetes']['X-Spip-Cache'] > 0
-	) {
-		if (is_null($cacher)) {
-			$cacher = charger_fonction('cacher', 'public', true);
-		}
-		$lastinclude = time();
-		if ($cacher) {
-			$cacher($contexte_cache, $use_cache, $chemin_cache, $page, $lastinclude);
-		} else {
-			$use_cache = -1;
-		}
-	}
-
-	return $page;
+    static $parametrer, $cacher;
+    if (!$parametrer) {
+        $parametrer = charger_fonction('parametrer', 'public');
+    }
+    $page = $parametrer($fond, $contexte, $chemin_cache, $connect);
+    // et on l'enregistre sur le disque
+    if (
+        $chemin_cache
+        and $use_cache > -1
+        and is_array($page)
+        and count($page)
+        and isset($page['entetes']['X-Spip-Cache'])
+        and $page['entetes']['X-Spip-Cache'] > 0
+    ) {
+        if (is_null($cacher)) {
+            $cacher = charger_fonction('cacher', 'public', true);
+        }
+        $lastinclude = time();
+        if ($cacher) {
+            $cacher($contexte_cache, $use_cache, $chemin_cache, $page, $lastinclude);
+        } else {
+            $use_cache = -1;
+        }
+    }
+
+    return $page;
 }
 
 // Fonction inseree par le compilateur dans le code compile.
@@ -374,14 +374,14 @@ 
 // 4: langue
 
 function inserer_balise_dynamique($contexte_exec, $contexte_compil) {
-	arguments_balise_dyn_depuis_modele(null, 'reset');
-
-	if (!is_array($contexte_exec)) {
-		echo $contexte_exec;
-	} // message d'erreur etc
-	else {
-		inclure_balise_dynamique($contexte_exec, true, $contexte_compil);
-	}
+    arguments_balise_dyn_depuis_modele(null, 'reset');
+
+    if (!is_array($contexte_exec)) {
+        echo $contexte_exec;
+    } // message d'erreur etc
+    else {
+        inclure_balise_dynamique($contexte_exec, true, $contexte_compil);
+    }
 }
 
 /**
@@ -394,98 +394,98 @@ 
  * @return string
  */
 function inclure_balise_dynamique($texte, $echo = true, $contexte_compil = []) {
-	if (is_array($texte)) {
-		[$fond, $delainc, $contexte_inclus] = $texte;
-
-		// delais a l'ancienne, c'est pratiquement mort
-		$d = $GLOBALS['delais'] ?? null;
-		$GLOBALS['delais'] = $delainc;
-
-		$page = recuperer_fond(
-			$fond,
-			$contexte_inclus,
-			['trim' => false, 'raw' => true, 'compil' => $contexte_compil]
-		);
-
-		$texte = $page['texte'];
-
-		$GLOBALS['delais'] = $d;
-		// Faire remonter les entetes
-		if (is_array($page['entetes'])) {
-			// mais pas toutes
-			unset($page['entetes']['X-Spip-Cache']);
-			unset($page['entetes']['Content-Type']);
-			if (isset($GLOBALS['page']) and is_array($GLOBALS['page'])) {
-				if (!is_array($GLOBALS['page']['entetes'])) {
-					$GLOBALS['page']['entetes'] = [];
-				}
-				$GLOBALS['page']['entetes'] =
-					array_merge($GLOBALS['page']['entetes'], $page['entetes']);
-			}
-		}
-		// _pipelines au pluriel array('nom_pipeline' => $args...) avec une syntaxe permettant plusieurs pipelines
-		if (
-			isset($page['contexte']['_pipelines'])
-			and is_array($page['contexte']['_pipelines'])
-			and count($page['contexte']['_pipelines'])
-		) {
-			foreach ($page['contexte']['_pipelines'] as $pipe => $args) {
-				$args['contexte'] = $page['contexte'];
-				unset($args['contexte']['_pipelines']); // par precaution, meme si le risque de boucle infinie est a priori nul
-				$texte = pipeline(
-					$pipe,
-					[
-						'data' => $texte,
-						'args' => $args
-					]
-				);
-			}
-		}
-	}
-
-	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
-		// compatibilite : avant on donnait le numero de ligne ou rien.
-		$ligne = intval($contexte_compil[3] ?? $contexte_compil);
-		$GLOBALS['debug_objets']['resultat'][$ligne] = $texte;
-	}
-	if ($echo) {
-		echo $texte;
-	} else {
-		return $texte;
-	}
+    if (is_array($texte)) {
+        [$fond, $delainc, $contexte_inclus] = $texte;
+
+        // delais a l'ancienne, c'est pratiquement mort
+        $d = $GLOBALS['delais'] ?? null;
+        $GLOBALS['delais'] = $delainc;
+
+        $page = recuperer_fond(
+            $fond,
+            $contexte_inclus,
+            ['trim' => false, 'raw' => true, 'compil' => $contexte_compil]
+        );
+
+        $texte = $page['texte'];
+
+        $GLOBALS['delais'] = $d;
+        // Faire remonter les entetes
+        if (is_array($page['entetes'])) {
+            // mais pas toutes
+            unset($page['entetes']['X-Spip-Cache']);
+            unset($page['entetes']['Content-Type']);
+            if (isset($GLOBALS['page']) and is_array($GLOBALS['page'])) {
+                if (!is_array($GLOBALS['page']['entetes'])) {
+                    $GLOBALS['page']['entetes'] = [];
+                }
+                $GLOBALS['page']['entetes'] =
+                    array_merge($GLOBALS['page']['entetes'], $page['entetes']);
+            }
+        }
+        // _pipelines au pluriel array('nom_pipeline' => $args...) avec une syntaxe permettant plusieurs pipelines
+        if (
+            isset($page['contexte']['_pipelines'])
+            and is_array($page['contexte']['_pipelines'])
+            and count($page['contexte']['_pipelines'])
+        ) {
+            foreach ($page['contexte']['_pipelines'] as $pipe => $args) {
+                $args['contexte'] = $page['contexte'];
+                unset($args['contexte']['_pipelines']); // par precaution, meme si le risque de boucle infinie est a priori nul
+                $texte = pipeline(
+                    $pipe,
+                    [
+                        'data' => $texte,
+                        'args' => $args
+                    ]
+                );
+            }
+        }
+    }
+
+    if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
+        // compatibilite : avant on donnait le numero de ligne ou rien.
+        $ligne = intval($contexte_compil[3] ?? $contexte_compil);
+        $GLOBALS['debug_objets']['resultat'][$ligne] = $texte;
+    }
+    if ($echo) {
+        echo $texte;
+    } else {
+        return $texte;
+    }
 }
 
 function message_page_indisponible($page, $contexte) {
-	static $deja = false;
-	if ($deja) {
-		return 'erreur';
-	}
-	$codes = [
-		'404' => '404 Not Found',
-		'503' => '503 Service Unavailable',
-	];
-
-	$contexte['status'] = ($page !== false) ? '404' : '503';
-	$contexte['code'] = $codes[$contexte['status']];
-	$contexte['fond'] = '404'; // gere les 2 erreurs
-	if (!isset($contexte['lang'])) {
-		include_spip('inc/lang');
-		$contexte['lang'] = $GLOBALS['spip_lang'];
-	}
-
-	$deja = true;
-	// passer aux plugins qui peuvent decider d'une page d'erreur plus pertinent
-	// ex restriction d'acces => 401
-	$contexte = pipeline('page_indisponible', $contexte);
-
-	// produire la page d'erreur
-	$page = inclure_page($contexte['fond'], $contexte);
-	if (!$page) {
-		$page = inclure_page('404', $contexte);
-	}
-	$page['status'] = $contexte['status'];
-
-	return $page;
+    static $deja = false;
+    if ($deja) {
+        return 'erreur';
+    }
+    $codes = [
+        '404' => '404 Not Found',
+        '503' => '503 Service Unavailable',
+    ];
+
+    $contexte['status'] = ($page !== false) ? '404' : '503';
+    $contexte['code'] = $codes[$contexte['status']];
+    $contexte['fond'] = '404'; // gere les 2 erreurs
+    if (!isset($contexte['lang'])) {
+        include_spip('inc/lang');
+        $contexte['lang'] = $GLOBALS['spip_lang'];
+    }
+
+    $deja = true;
+    // passer aux plugins qui peuvent decider d'une page d'erreur plus pertinent
+    // ex restriction d'acces => 401
+    $contexte = pipeline('page_indisponible', $contexte);
+
+    // produire la page d'erreur
+    $page = inclure_page($contexte['fond'], $contexte);
+    if (!$page) {
+        $page = inclure_page('404', $contexte);
+    }
+    $page['status'] = $contexte['status'];
+
+    return $page;
 }
 
 /**
@@ -497,44 +497,44 @@ 
  * @return mixed
  */
 function arguments_balise_dyn_depuis_modele($arg, $operation = 'set') {
-	static $balise_dyn_appellee_par_modele = null;
-	switch ($operation) {
-		case 'read':
-			return $balise_dyn_appellee_par_modele;
-		case 'reset':
-			$balise_dyn_appellee_par_modele = null;
-			return null;
-		case 'set':
-		default:
-			$balise_dyn_appellee_par_modele = $arg;
-			return $arg;
-	}
+    static $balise_dyn_appellee_par_modele = null;
+    switch ($operation) {
+        case 'read':
+            return $balise_dyn_appellee_par_modele;
+        case 'reset':
+            $balise_dyn_appellee_par_modele = null;
+            return null;
+        case 'set':
+        default:
+            $balise_dyn_appellee_par_modele = $arg;
+            return $arg;
+    }
 }
 
 // temporairement ici : a mettre dans le futur inc/modeles
 // creer_contexte_de_modele('left', 'autostart=true', ...) renvoie un array()
 function creer_contexte_de_modele($args) {
-	$contexte = [];
-	foreach ($args as $var => $val) {
-		if (is_int($var)) { // argument pas formate
-			if (in_array($val, ['left', 'right', 'center'])) {
-				$var = 'align';
-				$contexte[$var] = $val;
-			} else {
-				$args = explode('=', $val);
-				if (count($args) >= 2) { // Flashvars=arg1=machin&arg2=truc genere plus de deux args
-				$contexte[trim($args[0])] = substr($val, strlen($args[0]) + 1);
-				} else // notation abregee
-				{
-					$contexte[trim($val)] = trim($val);
-				}
-			}
-		} else {
-			$contexte[$var] = $val;
-		}
-	}
-
-	return $contexte;
+    $contexte = [];
+    foreach ($args as $var => $val) {
+        if (is_int($var)) { // argument pas formate
+            if (in_array($val, ['left', 'right', 'center'])) {
+                $var = 'align';
+                $contexte[$var] = $val;
+            } else {
+                $args = explode('=', $val);
+                if (count($args) >= 2) { // Flashvars=arg1=machin&arg2=truc genere plus de deux args
+                $contexte[trim($args[0])] = substr($val, strlen($args[0]) + 1);
+                } else // notation abregee
+                {
+                    $contexte[trim($val)] = trim($val);
+                }
+            }
+        } else {
+            $contexte[$var] = $val;
+        }
+    }
+
+    return $contexte;
 }
 
 /**
@@ -549,43 +549,43 @@ 
  * @return string
  */
 function styliser_modele($modele, $id, $contexte = null) {
-	static $styliseurs = null;
-	if (is_null($styliseurs)) {
-		$tables_objet = lister_tables_objets_sql();
-		foreach ($tables_objet as $table => $desc) {
-			if (
-				isset($desc['modeles']) and $desc['modeles']
-				and isset($desc['modeles_styliser']) and $desc['modeles_styliser']
-				and function_exists($desc['modeles_styliser'])
-			) {
-				$primary = id_table_objet($table);
-				foreach ($desc['modeles'] as $m) {
-					$styliseurs[$m] = ['primary' => $primary, 'callback' => $desc['modeles_styliser']];
-				}
-			}
-		}
-	}
-
-	if (isset($styliseurs[$modele])) {
-		$styliseur = $styliseurs[$modele]['callback'];
-		$primary = $styliseurs[$modele]['primary'];
-		if (is_null($id) and $contexte) {
-			if (isset($contexte['id'])) {
-				$id = $contexte['id'];
-			} elseif (isset($contexte[$primary])) {
-				$id = $contexte[$primary];
-			}
-		}
-		if (is_null($id)) {
-			$msg = "modeles/$modele : " . _T('zbug_parametres_inclus_incorrects', ['param' => "id/$primary"]);
-			erreur_squelette($msg);
-			// on passe id=0 au routeur pour tomber sur le modele par defaut et eviter une seconde erreur sur un modele inexistant
-			$id = 0;
-		}
-		$modele = $styliseur($modele, $id);
-	}
-
-	return $modele;
+    static $styliseurs = null;
+    if (is_null($styliseurs)) {
+        $tables_objet = lister_tables_objets_sql();
+        foreach ($tables_objet as $table => $desc) {
+            if (
+                isset($desc['modeles']) and $desc['modeles']
+                and isset($desc['modeles_styliser']) and $desc['modeles_styliser']
+                and function_exists($desc['modeles_styliser'])
+            ) {
+                $primary = id_table_objet($table);
+                foreach ($desc['modeles'] as $m) {
+                    $styliseurs[$m] = ['primary' => $primary, 'callback' => $desc['modeles_styliser']];
+                }
+            }
+        }
+    }
+
+    if (isset($styliseurs[$modele])) {
+        $styliseur = $styliseurs[$modele]['callback'];
+        $primary = $styliseurs[$modele]['primary'];
+        if (is_null($id) and $contexte) {
+            if (isset($contexte['id'])) {
+                $id = $contexte['id'];
+            } elseif (isset($contexte[$primary])) {
+                $id = $contexte[$primary];
+            }
+        }
+        if (is_null($id)) {
+            $msg = "modeles/$modele : " . _T('zbug_parametres_inclus_incorrects', ['param' => "id/$primary"]);
+            erreur_squelette($msg);
+            // on passe id=0 au routeur pour tomber sur le modele par defaut et eviter une seconde erreur sur un modele inexistant
+            $id = 0;
+        }
+        $modele = $styliseur($modele, $id);
+    }
+
+    return $modele;
 }
 
 /**
@@ -602,102 +602,102 @@ 
  */
 function inclure_modele($type, $id, $params, $lien, string $connect = '', $env = []) {
 
-	static $compteur;
-	if (++$compteur > 10) {
-		return '';
-	} # ne pas boucler indefiniment
-
-	$type = strtolower($type);
-	$type = styliser_modele($type, $id);
-
-	$fond = $class = '';
-
-	$params = array_filter(explode('|', $params));
-	if ($params) {
-		$soustype = current($params);
-		$soustype = strtolower(trim($soustype));
-		if (in_array($soustype, ['left', 'right', 'center', 'ajax'])) {
-			$soustype = next($params);
-			$soustype = strtolower($soustype);
-		}
-
-		if (preg_match(',^[a-z0-9_]+$,', $soustype)) {
-			if (!trouve_modele($fond = ($type . '_' . $soustype))) {
-				$fond = '';
-				$class = $soustype;
-			}
-			// enlever le sous type des params
-			$params = array_diff($params, [$soustype]);
-		}
-	}
-
-	// Si ca marche pas en precisant le sous-type, prendre le type
-	if (!$fond and !trouve_modele($fond = $type)) {
-		spip_log("Modele $type introuvable", _LOG_INFO_IMPORTANTE);
-
-		return false;
-	}
-	$fond = 'modeles/' . $fond;
-	// Creer le contexte
-	$contexte = $env;
-	$contexte['dir_racine'] = _DIR_RACINE; # eviter de mixer un cache racine et un cache ecrire (meme si pour l'instant les modeles ne sont pas caches, le resultat etant different il faut que le contexte en tienne compte
-
-	// Le numero du modele est mis dans l'environnement
-	// d'une part sous l'identifiant "id"
-	// et d'autre part sous l'identifiant de la cle primaire
-	// par la fonction id_table_objet,
-	// (<article1> =>> article =>> id_article =>> id_article=1)
-	$_id = id_table_objet($type);
-	$contexte['id'] = $contexte[$_id] = $id;
-
-	if (isset($class)) {
-		$contexte['class'] = $class;
-	}
-
-	// Si un lien a ete passe en parametre, ex: [<modele1>->url] ou [<modele1|title_du_lien{hreflang}->url]
-	if ($lien) {
-		# un eventuel guillemet (") sera reechappe par #ENV
-		$contexte['lien'] = str_replace('&quot;', '"', $lien['href']);
-		$contexte['lien_class'] = $lien['class'];
-		$contexte['lien_mime'] = $lien['mime'];
-		$contexte['lien_title'] = $lien['title'];
-		$contexte['lien_hreflang'] = $lien['hreflang'];
-	}
-
-	// Traiter les parametres
-	// par exemple : <img1|center>, <emb12|autostart=true> ou <doc1|lang=en>
-	$arg_list = creer_contexte_de_modele($params);
-	$contexte['args'] = $arg_list; // on passe la liste des arguments du modeles dans une variable args
-	$contexte = array_merge($contexte, $arg_list);
-
-	// Appliquer le modele avec le contexte
-	$retour = recuperer_fond($fond, $contexte, [], $connect);
-
-	// Regarder si le modele tient compte des liens (il *doit* alors indiquer
-	// spip_lien_ok dans les classes de son conteneur de premier niveau ;
-	// sinon, s'il y a un lien, on l'ajoute classiquement
-	if (
-		strstr(
-			' ' . ($classes = extraire_attribut($retour, 'class')) . ' ',
-			'spip_lien_ok'
-		)
-	) {
-		$retour = inserer_attribut(
-			$retour,
-			'class',
-			trim(str_replace(' spip_lien_ok ', ' ', " $classes "))
-		);
-	} else {
-		if ($lien) {
-			$retour = "<a href='" . $lien['href'] . "' class='" . $lien['class'] . "'>" . $retour . '</a>';
-		}
-	}
-
-	$compteur--;
-
-	return (isset($arg_list['ajax']) and $arg_list['ajax'] == 'ajax')
-		? encoder_contexte_ajax($contexte, '', $retour)
-		: $retour;
+    static $compteur;
+    if (++$compteur > 10) {
+        return '';
+    } # ne pas boucler indefiniment
+
+    $type = strtolower($type);
+    $type = styliser_modele($type, $id);
+
+    $fond = $class = '';
+
+    $params = array_filter(explode('|', $params));
+    if ($params) {
+        $soustype = current($params);
+        $soustype = strtolower(trim($soustype));
+        if (in_array($soustype, ['left', 'right', 'center', 'ajax'])) {
+            $soustype = next($params);
+            $soustype = strtolower($soustype);
+        }
+
+        if (preg_match(',^[a-z0-9_]+$,', $soustype)) {
+            if (!trouve_modele($fond = ($type . '_' . $soustype))) {
+                $fond = '';
+                $class = $soustype;
+            }
+            // enlever le sous type des params
+            $params = array_diff($params, [$soustype]);
+        }
+    }
+
+    // Si ca marche pas en precisant le sous-type, prendre le type
+    if (!$fond and !trouve_modele($fond = $type)) {
+        spip_log("Modele $type introuvable", _LOG_INFO_IMPORTANTE);
+
+        return false;
+    }
+    $fond = 'modeles/' . $fond;
+    // Creer le contexte
+    $contexte = $env;
+    $contexte['dir_racine'] = _DIR_RACINE; # eviter de mixer un cache racine et un cache ecrire (meme si pour l'instant les modeles ne sont pas caches, le resultat etant different il faut que le contexte en tienne compte
+
+    // Le numero du modele est mis dans l'environnement
+    // d'une part sous l'identifiant "id"
+    // et d'autre part sous l'identifiant de la cle primaire
+    // par la fonction id_table_objet,
+    // (<article1> =>> article =>> id_article =>> id_article=1)
+    $_id = id_table_objet($type);
+    $contexte['id'] = $contexte[$_id] = $id;
+
+    if (isset($class)) {
+        $contexte['class'] = $class;
+    }
+
+    // Si un lien a ete passe en parametre, ex: [<modele1>->url] ou [<modele1|title_du_lien{hreflang}->url]
+    if ($lien) {
+        # un eventuel guillemet (") sera reechappe par #ENV
+        $contexte['lien'] = str_replace('&quot;', '"', $lien['href']);
+        $contexte['lien_class'] = $lien['class'];
+        $contexte['lien_mime'] = $lien['mime'];
+        $contexte['lien_title'] = $lien['title'];
+        $contexte['lien_hreflang'] = $lien['hreflang'];
+    }
+
+    // Traiter les parametres
+    // par exemple : <img1|center>, <emb12|autostart=true> ou <doc1|lang=en>
+    $arg_list = creer_contexte_de_modele($params);
+    $contexte['args'] = $arg_list; // on passe la liste des arguments du modeles dans une variable args
+    $contexte = array_merge($contexte, $arg_list);
+
+    // Appliquer le modele avec le contexte
+    $retour = recuperer_fond($fond, $contexte, [], $connect);
+
+    // Regarder si le modele tient compte des liens (il *doit* alors indiquer
+    // spip_lien_ok dans les classes de son conteneur de premier niveau ;
+    // sinon, s'il y a un lien, on l'ajoute classiquement
+    if (
+        strstr(
+            ' ' . ($classes = extraire_attribut($retour, 'class')) . ' ',
+            'spip_lien_ok'
+        )
+    ) {
+        $retour = inserer_attribut(
+            $retour,
+            'class',
+            trim(str_replace(' spip_lien_ok ', ' ', " $classes "))
+        );
+    } else {
+        if ($lien) {
+            $retour = "<a href='" . $lien['href'] . "' class='" . $lien['class'] . "'>" . $retour . '</a>';
+        }
+    }
+
+    $compteur--;
+
+    return (isset($arg_list['ajax']) and $arg_list['ajax'] == 'ajax')
+        ? encoder_contexte_ajax($contexte, '', $retour)
+        : $retour;
 }
 
 // Un inclure_page qui marche aussi pour l'espace prive
@@ -706,105 +706,105 @@ 
 // 	recuperer_fond($fond,$contexte,array('raw'=>true))
 function evaluer_fond($fond, $contexte = [], string $connect = '') {
 
-	$page = inclure_page($fond, $contexte, $connect);
-
-	if (!$page) {
-		return $page;
-	}
-	// eval $page et affecte $res
-	include _ROOT_RESTREINT . 'public/evaluer_page.php';
-
-	// Lever un drapeau (global) si le fond utilise #SESSION
-	// a destination de public/parametrer
-	// pour remonter vers les inclusions appelantes
-	// il faut bien lever ce drapeau apres avoir evalue le fond
-	// pour ne pas faire descendre le flag vers les inclusions appelees
-	if (
-		isset($page['invalideurs'])
-		and isset($page['invalideurs']['session'])
-	) {
-		$GLOBALS['cache_utilise_session'] = $page['invalideurs']['session'];
-	}
-
-	return $page;
+    $page = inclure_page($fond, $contexte, $connect);
+
+    if (!$page) {
+        return $page;
+    }
+    // eval $page et affecte $res
+    include _ROOT_RESTREINT . 'public/evaluer_page.php';
+
+    // Lever un drapeau (global) si le fond utilise #SESSION
+    // a destination de public/parametrer
+    // pour remonter vers les inclusions appelantes
+    // il faut bien lever ce drapeau apres avoir evalue le fond
+    // pour ne pas faire descendre le flag vers les inclusions appelees
+    if (
+        isset($page['invalideurs'])
+        and isset($page['invalideurs']['session'])
+    ) {
+        $GLOBALS['cache_utilise_session'] = $page['invalideurs']['session'];
+    }
+
+    return $page;
 }
 
 
 function page_base_href(&$texte) {
-	static $set_html_base = null;
-	if (is_null($set_html_base)) {
-		if (!defined('_SET_HTML_BASE')) {
-			// si la profondeur est superieure a 1
-			// est que ce n'est pas une url page ni une url action
-			// activer par defaut
-		$set_html_base = ((
-				$GLOBALS['profondeur_url'] >= (_DIR_RESTREINT ? 1 : 2)
-				and _request(_SPIP_PAGE) !== 'login'
-				and !_request('action')) ? true : false);
-		} else {
-			$set_html_base = _SET_HTML_BASE;
-		}
-	}
-
-	if (
-		$set_html_base
-		and isset($GLOBALS['html']) and $GLOBALS['html']
-		and $GLOBALS['profondeur_url'] > 0
-		and ($poshead = strpos($texte, '</head>')) !== false
-	) {
-		$head = substr($texte, 0, $poshead);
-		$insert = false;
-		$href_base = false;
-		if (strpos($head, '<base') === false) {
-			$insert = true;
-		} else {
-			// si aucun <base ...> n'a de href il faut en inserer un
-			// sinon juste re-ecrire les ancres si besoin
-			$insert = true;
-			include_spip('inc/filtres');
-			$bases = extraire_balises($head, 'base');
-			foreach ($bases as $base) {
-				if ($href_base = extraire_attribut($base, 'href')) {
-					$insert = false;
-					break;
-				}
-			}
-		}
-
-		if ($insert) {
-			include_spip('inc/filtres_mini');
-			// ajouter un base qui reglera tous les liens relatifs
-			$href_base = url_absolue('./');
-			$base = "\n<base href=\"$href_base\" />";
-			if (($pos = strpos($head, '<head>')) !== false) {
-				$head = substr_replace($head, $base, $pos + 6, 0);
-			} elseif (preg_match(',<head[^>]*>,i', $head, $r)) {
-				$head = str_replace($r[0], $r[0] . $base, $head);
-			}
-			$texte = $head . substr($texte, $poshead);
-		}
-		if ($href_base) {
-			// gerer les ancres
-			$base = $_SERVER['REQUEST_URI'];
-			// pas de guillemets ni < dans l'URL qu'on insere dans le HTML
-			if (strpos($base, "'") or strpos($base, '"') or strpos($base, '<')) {
-				$base = str_replace(["'",'"','<'], ['%27','%22','%3C'], $base);
-			}
-			if (strpos($texte, "href='#") !== false) {
-				$texte = str_replace("href='#", "href='$base#", $texte);
-			}
-			if (strpos($texte, 'href="#') !== false) {
-				$texte = str_replace('href="#', "href=\"$base#", $texte);
-			}
-		}
-	}
+    static $set_html_base = null;
+    if (is_null($set_html_base)) {
+        if (!defined('_SET_HTML_BASE')) {
+            // si la profondeur est superieure a 1
+            // est que ce n'est pas une url page ni une url action
+            // activer par defaut
+        $set_html_base = ((
+                $GLOBALS['profondeur_url'] >= (_DIR_RESTREINT ? 1 : 2)
+                and _request(_SPIP_PAGE) !== 'login'
+                and !_request('action')) ? true : false);
+        } else {
+            $set_html_base = _SET_HTML_BASE;
+        }
+    }
+
+    if (
+        $set_html_base
+        and isset($GLOBALS['html']) and $GLOBALS['html']
+        and $GLOBALS['profondeur_url'] > 0
+        and ($poshead = strpos($texte, '</head>')) !== false
+    ) {
+        $head = substr($texte, 0, $poshead);
+        $insert = false;
+        $href_base = false;
+        if (strpos($head, '<base') === false) {
+            $insert = true;
+        } else {
+            // si aucun <base ...> n'a de href il faut en inserer un
+            // sinon juste re-ecrire les ancres si besoin
+            $insert = true;
+            include_spip('inc/filtres');
+            $bases = extraire_balises($head, 'base');
+            foreach ($bases as $base) {
+                if ($href_base = extraire_attribut($base, 'href')) {
+                    $insert = false;
+                    break;
+                }
+            }
+        }
+
+        if ($insert) {
+            include_spip('inc/filtres_mini');
+            // ajouter un base qui reglera tous les liens relatifs
+            $href_base = url_absolue('./');
+            $base = "\n<base href=\"$href_base\" />";
+            if (($pos = strpos($head, '<head>')) !== false) {
+                $head = substr_replace($head, $base, $pos + 6, 0);
+            } elseif (preg_match(',<head[^>]*>,i', $head, $r)) {
+                $head = str_replace($r[0], $r[0] . $base, $head);
+            }
+            $texte = $head . substr($texte, $poshead);
+        }
+        if ($href_base) {
+            // gerer les ancres
+            $base = $_SERVER['REQUEST_URI'];
+            // pas de guillemets ni < dans l'URL qu'on insere dans le HTML
+            if (strpos($base, "'") or strpos($base, '"') or strpos($base, '<')) {
+                $base = str_replace(["'",'"','<'], ['%27','%22','%3C'], $base);
+            }
+            if (strpos($texte, "href='#") !== false) {
+                $texte = str_replace("href='#", "href='$base#", $texte);
+            }
+            if (strpos($texte, 'href="#') !== false) {
+                $texte = str_replace('href="#', "href=\"$base#", $texte);
+            }
+        }
+    }
 }
 
 
 // Envoyer les entetes, en retenant ceux qui sont a usage interne
 // et demarrent par X-Spip-...
 function envoyer_entetes($entetes) {
-	foreach ($entetes as $k => $v) { #	if (strncmp($k, 'X-Spip-', 7))
-	@header(strlen($v) ? "$k: $v" : $k);
-	}
+    foreach ($entetes as $k => $v) { #	if (strncmp($k, 'X-Spip-', 7))
+    @header(strlen($v) ? "$k: $v" : $k);
+    }
 }

ecrire/public/boucles.php

Indentation +24 added lines, -24 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -32,7 +32,7 @@ 
  *     Code PHP compilé de la boucle
  **/
 function boucle_DEFAUT_dist($id_boucle, &$boucles) {
-	return calculer_boucle($id_boucle, $boucles);
+    return calculer_boucle($id_boucle, $boucles);
 }
 
 
@@ -51,7 +51,7 @@ 
  *     Code PHP compilé de la boucle
  **/
 function boucle_BOUCLE_dist($id_boucle, &$boucles) {
-	return calculer_boucle($id_boucle, $boucles);
+    return calculer_boucle($id_boucle, $boucles);
 }
 
 
@@ -81,30 +81,30 @@ 
  *     Code PHP compilé de la boucle
  **/
 function boucle_HIERARCHIE_dist($id_boucle, &$boucles) {
-	$boucle = &$boucles[$id_boucle];
-	$id_table = $boucle->id_table . '.id_rubrique';
+    $boucle = &$boucles[$id_boucle];
+    $id_table = $boucle->id_table . '.id_rubrique';
 
-	// Si la boucle mere est une boucle RUBRIQUES il faut ignorer la feuille
-	// sauf en presence du critere {tout} (vu par phraser_html)
-	// ou {id_article} qui positionne aussi le {tout}
+    // Si la boucle mere est une boucle RUBRIQUES il faut ignorer la feuille
+    // sauf en presence du critere {tout} (vu par phraser_html)
+    // ou {id_article} qui positionne aussi le {tout}
 
-	$boucle->hierarchie = 'if (!($id_rubrique = intval('
-		. calculer_argument_precedent($boucle->id_boucle, 'id_rubrique', $boucles)
-		. ")))\n\t\treturn '';\n\t"
-		. "include_spip('inc/rubriques');\n\t"
-		. '$hierarchie = calcul_hierarchie_in($id_rubrique,'
-		. (isset($boucle->modificateur['tout']) ? 'true' : 'false')
-		. ");\n\t"
-		. 'if (!$hierarchie) return "";' . "\n\t";
+    $boucle->hierarchie = 'if (!($id_rubrique = intval('
+        . calculer_argument_precedent($boucle->id_boucle, 'id_rubrique', $boucles)
+        . ")))\n\t\treturn '';\n\t"
+        . "include_spip('inc/rubriques');\n\t"
+        . '$hierarchie = calcul_hierarchie_in($id_rubrique,'
+        . (isset($boucle->modificateur['tout']) ? 'true' : 'false')
+        . ");\n\t"
+        . 'if (!$hierarchie) return "";' . "\n\t";
 
-	$boucle->where[] = ["'IN'", "'$id_table'", '"($hierarchie)"'];
+    $boucle->where[] = ["'IN'", "'$id_table'", '"($hierarchie)"'];
 
-	$order = "FIELD($id_table, \$hierarchie)";
-	if (!isset($boucle->default_order[0]) or $boucle->default_order[0] != ' DESC') {
-		$boucle->default_order[] = "\"$order\"";
-	} else {
-		$boucle->default_order[0] = "\"$order DESC\"";
-	}
+    $order = "FIELD($id_table, \$hierarchie)";
+    if (!isset($boucle->default_order[0]) or $boucle->default_order[0] != ' DESC') {
+        $boucle->default_order[] = "\"$order\"";
+    } else {
+        $boucle->default_order[0] = "\"$order DESC\"";
+    }
 
-	return calculer_boucle($id_boucle, $boucles);
+    return calculer_boucle($id_boucle, $boucles);
 }

Spacing +2 added lines, -2 removed lines

@@ -82,7 +82,7 @@ 
  **/
 function boucle_HIERARCHIE_dist($id_boucle, &$boucles) {
 	$boucle = &$boucles[$id_boucle];
-	$id_table = $boucle->id_table . '.id_rubrique';
+	$id_table = $boucle->id_table.'.id_rubrique';
 
 	// Si la boucle mere est une boucle RUBRIQUES il faut ignorer la feuille
 	// sauf en presence du critere {tout} (vu par phraser_html)
@@ -95,7 +95,7 @@ 
 		. '$hierarchie = calcul_hierarchie_in($id_rubrique,'
 		. (isset($boucle->modificateur['tout']) ? 'true' : 'false')
 		. ");\n\t"
-		. 'if (!$hierarchie) return "";' . "\n\t";
+		. 'if (!$hierarchie) return "";'."\n\t";
 
 	$boucle->where[] = ["'IN'", "'$id_table'", '"($hierarchie)"'];
 

ecrire/maj/legacy/v31.php

Indentation +24 added lines, -24 removed lines

@@ -18,12 +18,12 @@ 
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
 $GLOBALS['maj'][21676] = [
-	['ranger_cache_gd2'],
+    ['ranger_cache_gd2'],
 ];
 
 /**
@@ -32,30 +32,30 @@ 
  * https://core.spip.net/issues/3277
  */
 function ranger_cache_gd2() {
-	spip_log('ranger_cache_gd2');
-	$base = _DIR_VAR . 'cache-gd2/';
-	if (is_dir($base) and is_readable($base)) {
-		if ($dir = opendir($base)) {
-			while (($f = readdir($dir)) !== false) {
-				if (
-					!is_dir($base . $f) and strncmp($f, '.', 1) !== 0
-					and preg_match(',[0-9a-f]{32}\.\w+,', $f)
-				) {
-					$sub = substr($f, 0, 2);
-					$sub = sous_repertoire($base, $sub);
-					@rename($base . $f, $sub . substr($f, 2));
-					@unlink($base . $f); // au cas ou le rename a foire (collision)
-				}
-				if (time() >= _TIME_OUT) {
-					return;
-				}
-			}
-		}
-	}
+    spip_log('ranger_cache_gd2');
+    $base = _DIR_VAR . 'cache-gd2/';
+    if (is_dir($base) and is_readable($base)) {
+        if ($dir = opendir($base)) {
+            while (($f = readdir($dir)) !== false) {
+                if (
+                    !is_dir($base . $f) and strncmp($f, '.', 1) !== 0
+                    and preg_match(',[0-9a-f]{32}\.\w+,', $f)
+                ) {
+                    $sub = substr($f, 0, 2);
+                    $sub = sous_repertoire($base, $sub);
+                    @rename($base . $f, $sub . substr($f, 2));
+                    @unlink($base . $f); // au cas ou le rename a foire (collision)
+                }
+                if (time() >= _TIME_OUT) {
+                    return;
+                }
+            }
+        }
+    }
 }
 
 
 $GLOBALS['maj'][21742] = [
-	['sql_alter', "TABLE spip_articles CHANGE url_site url_site text DEFAULT '' NOT NULL"],
-	['sql_alter', "TABLE spip_articles CHANGE virtuel virtuel text DEFAULT '' NOT NULL"],
+    ['sql_alter', "TABLE spip_articles CHANGE url_site url_site text DEFAULT '' NOT NULL"],
+    ['sql_alter', "TABLE spip_articles CHANGE virtuel virtuel text DEFAULT '' NOT NULL"],
 ];

Spacing +4 added lines, -4 removed lines

@@ -33,18 +33,18 @@
  */
 function ranger_cache_gd2() {
 	spip_log('ranger_cache_gd2');
-	$base = _DIR_VAR . 'cache-gd2/';
+	$base = _DIR_VAR.'cache-gd2/';
 	if (is_dir($base) and is_readable($base)) {
 		if ($dir = opendir($base)) {
 			while (($f = readdir($dir)) !== false) {
 				if (
-					!is_dir($base . $f) and strncmp($f, '.', 1) !== 0
+					!is_dir($base.$f) and strncmp($f, '.', 1) !== 0
 					and preg_match(',[0-9a-f]{32}\.\w+,', $f)
 				) {
 					$sub = substr($f, 0, 2);
 					$sub = sous_repertoire($base, $sub);
-					@rename($base . $f, $sub . substr($f, 2));
-					@unlink($base . $f); // au cas ou le rename a foire (collision)
+					@rename($base.$f, $sub.substr($f, 2));
+					@unlink($base.$f); // au cas ou le rename a foire (collision)
 				}
 				if (time() >= _TIME_OUT) {
 					return;

ecrire/maj/legacy/v21.php

Indentation +31 added lines, -31 removed lines

@@ -18,7 +18,7 @@ 
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/medias');
@@ -27,27 +27,27 @@ 
 
 // http://archives.rezo.net/archives/spip-zone.mbox/C6RZKNBUNJYN42IOEOC4QKVCA233AMLI/
 $GLOBALS['maj'][13833] = [
-	['sql_alter', 'TABLE spip_documents_liens ADD INDEX objet(id_objet,objet)']
+    ['sql_alter', 'TABLE spip_documents_liens ADD INDEX objet(id_objet,objet)']
 ];
 
 // 2.1
 
 $GLOBALS['maj'][13904] = [
-	['sql_alter', "TABLE spip_auteurs ADD webmestre varchar(3)  DEFAULT 'non' NOT NULL"],
-	[
-		'sql_update',
-		'spip_auteurs',
-		['webmestre' => "'oui'"],
-		sql_in('id_auteur', defined('_ID_WEBMESTRES') ? explode(
-			':',
-			_ID_WEBMESTRES
-		) : (autoriser('configurer') ? [$GLOBALS['visiteur_session']['id_auteur']] : [0]))
-	] // le webmestre est celui qui fait l'upgrade si rien de defini
+    ['sql_alter', "TABLE spip_auteurs ADD webmestre varchar(3)  DEFAULT 'non' NOT NULL"],
+    [
+        'sql_update',
+        'spip_auteurs',
+        ['webmestre' => "'oui'"],
+        sql_in('id_auteur', defined('_ID_WEBMESTRES') ? explode(
+            ':',
+            _ID_WEBMESTRES
+        ) : (autoriser('configurer') ? [$GLOBALS['visiteur_session']['id_auteur']] : [0]))
+    ] // le webmestre est celui qui fait l'upgrade si rien de defini
 ];
 
 // sites plantes en mode "'su" au lieu de "sus"
 $GLOBALS['maj'][13929] = [
-	['sql_update', 'spip_syndic', ['syndication' => "'sus'"], "syndication LIKE '\\'%'"]
+    ['sql_update', 'spip_syndic', ['syndication' => "'sus'"], "syndication LIKE '\\'%'"]
 ];
 
 // Types de fichiers m4a/m4b/m4p/m4u/m4v/dv
@@ -61,24 +61,24 @@ 
 // La version 14588 etait une mauvaise piste:
 // Retour en arriere pour ceux qui l'ont subi, ne rien faire sinon
 if (@$GLOBALS['meta']['version_installee'] >= 14588) {
-	// "mode" est un mot-cle d'Oracle
-	$GLOBALS['maj'][14588] = [
-		['sql_alter', 'TABLE spip_documents  DROP INDEX mode'],
-		[
-			'sql_alter',
-			"TABLE spip_documents  CHANGE mode genre ENUM('vignette', 'image', 'document') DEFAULT 'document' NOT NULL"
-		],
-		['sql_alter', 'TABLE spip_documents  ADD INDEX genre(genre)']
-	];
-	// solution moins intrusive au pb de mot-cle d'Oracle, retour avant 14588
-	$GLOBALS['maj'][14598] = [
-		['sql_alter', 'TABLE spip_documents  DROP INDEX genre'],
-		[
-			'sql_alter',
-			"TABLE spip_documents  CHANGE genre mode ENUM('vignette', 'image', 'document') DEFAULT 'document' NOT NULL"
-		],
-		['sql_alter', 'TABLE spip_documents  ADD INDEX mode(mode)']
-	];
+    // "mode" est un mot-cle d'Oracle
+    $GLOBALS['maj'][14588] = [
+        ['sql_alter', 'TABLE spip_documents  DROP INDEX mode'],
+        [
+            'sql_alter',
+            "TABLE spip_documents  CHANGE mode genre ENUM('vignette', 'image', 'document') DEFAULT 'document' NOT NULL"
+        ],
+        ['sql_alter', 'TABLE spip_documents  ADD INDEX genre(genre)']
+    ];
+    // solution moins intrusive au pb de mot-cle d'Oracle, retour avant 14588
+    $GLOBALS['maj'][14598] = [
+        ['sql_alter', 'TABLE spip_documents  DROP INDEX genre'],
+        [
+            'sql_alter',
+            "TABLE spip_documents  CHANGE genre mode ENUM('vignette', 'image', 'document') DEFAULT 'document' NOT NULL"
+        ],
+        ['sql_alter', 'TABLE spip_documents  ADD INDEX mode(mode)']
+    ];
 }
 
 // Restauration correcte des types mime des fichiers Ogg

ecrire/maj/legacy/v32.php

Indentation +2 added lines, -2 removed lines

@@ -18,10 +18,10 @@
  * @package SPIP\Core\SQL\Upgrade
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
 $GLOBALS['maj'][23375] = [
-	['sql_alter', 'TABLE spip_auteurs CHANGE prefs prefs text'],
+    ['sql_alter', 'TABLE spip_auteurs CHANGE prefs prefs text'],
 ];