spip / SPIP

ecrire/public/composer.php

Braces +1 added lines, -2 removed lines

@@ -379,8 +379,7 @@
 function executer_balise_dynamique_dans_un_modele(...$args) {
 	if (test_espace_prive()) {
 		return executer_balise_dynamique(...$args);
-	}
-	else {
+	} else {
 		$str_args = base64_encode(serialize($args));
 		return '<?' . "php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?" . ">\n";
 	}

Spacing +44 added lines, -44 removed lines

@@ -55,7 +55,7 @@ 
 		$GLOBALS['debug_objets']['courant'] = $nom;
 	}
 
-	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
+	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true).$nom.'.php';
 
 	// si squelette est deja compile et perenne, le charger
 	if (!squelette_obsolete($phpfile, $source)) {
@@ -68,7 +68,7 @@ 
 		#}
 	}
 
-	if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
+	if (file_exists($lib = $squelette.'_fonctions'.'.php')) {
 		include_once $lib;
 	}
 
@@ -96,7 +96,7 @@ 
 			eval("return true; $f ;");
 		} catch (\ParseError $e) {
 			// Code syntaxiquement faux (critere etc mal programme')
-			$msg = _T('zbug_erreur_compilation') . ' | Line ' . $e->getLine() . ' : ' . $e->getMessage();
+			$msg = _T('zbug_erreur_compilation').' | Line '.$e->getLine().' : '.$e->getMessage();
 			erreur_squelette($msg, $boucle);
 			// continuer pour trouver d'autres fautes eventuelles
 			// mais prevenir que c'est mort
@@ -124,7 +124,7 @@ 
 
 	if (defined('_VAR_MODE') && _VAR_MODE == 'debug') {
 		// Tracer ce qui vient d'etre compile
-		$GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
+		$GLOBALS['debug_objets']['code'][$nom.'tout'] = $code;
 
 		// si c'est ce que demande le debusqueur, lui passer la main
 		if (
@@ -148,13 +148,13 @@ 
 		$code = "
 /*
  * Squelette : $sourcefile
- * Date :      " . gmdate('D, d M Y H:i:s', @filemtime($sourcefile)) . ' GMT
- * Compile :   ' . gmdate('D, d M Y H:i:s', time()) . ' GMT
- * ' . (!$boucles ? 'Pas de boucle' : ('Boucles :   ' . $noms)) . '
+ * Date :      ".gmdate('D, d M Y H:i:s', @filemtime($sourcefile)).' GMT
+ * Compile :   ' . gmdate('D, d M Y H:i:s', time()).' GMT
+ * ' . (!$boucles ? 'Pas de boucle' : ('Boucles :   '.$noms)).'
  */ ';
 	}
 
-	$code = '<' . "?php\n" . $code . join('', $boucles) . "\n";
+	$code = '<'."?php\n".$code.join('', $boucles)."\n";
 	if (!defined('_VAR_NOCACHE') || !_VAR_NOCACHE) {
 		ecrire_fichier($phpfile, $code);
 	}
@@ -215,16 +215,16 @@ 
 			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
 
 			if ($j == 'X-Spip-Filtre' && isset($headers[$j])) {
-				$headers[$j] .= '|' . $r[3];
+				$headers[$j] .= '|'.$r[3];
 			} else {
-				$headers[$j] = str_replace(['\\\\',"\\'",'\\"'], ['\\',"'",'"'], $r[3]);
+				$headers[$j] = str_replace(['\\\\', "\\'", '\\"'], ['\\', "'", '"'], $r[3]);
 			}
 		}
 	}
 	// S'agit-il d'un resultat constant ou contenant du code php
 	$process_ins = (
-		!str_contains($corps, '<' . '?')
-		|| str_contains($corps, '<' . '?xml') && !str_contains(str_replace('<' . '?xml', '', $corps), '<' . '?')
+		!str_contains($corps, '<'.'?')
+		|| str_contains($corps, '<'.'?xml') && !str_contains(str_replace('<'.'?xml', '', $corps), '<'.'?')
 	)
 		? 'html'
 		: 'php';
@@ -253,8 +253,8 @@ 
 
 		if ($process_ins == 'html') {
 			$skel['process_ins'] = (
-				!str_contains($corps, '<' . '?')
-				|| str_contains($corps, '<' . '?xml') && !str_contains(str_replace('<' . '?xml', '', $corps), '<' . '?')
+				!str_contains($corps, '<'.'?')
+				|| str_contains($corps, '<'.'?xml') && !str_contains(str_replace('<'.'?xml', '', $corps), '<'.'?')
 			)
 				? 'html'
 				: 'php';
@@ -272,7 +272,7 @@ 
 //
 
 /** Code PHP pour inclure une balise dynamique à l'exécution d'une page */
-define('CODE_INCLURE_BALISE', '<' . '?php
+define('CODE_INCLURE_BALISE', '<'.'?php
 include_once("%s");
 if ($lang_select = "%s") $lang_select = lang_select($lang_select);
 inserer_balise_dynamique(balise_%s_dyn(%s), array(%s));
@@ -303,7 +303,7 @@ 
 		// pas de lien symbolique sous Windows
 		&& !(stristr(PHP_OS, 'WIN') && str_contains($file, ':'))
 	) {
-		$file = './" . _DIR_RACINE . "' . $file;
+		$file = './" . _DIR_RACINE . "'.$file;
 	}
 
 	$lang = $context_compil[4];
@@ -313,7 +313,7 @@ 
 
 	$args = array_map('argumenter_squelette', $args);
 	if (!empty($context_compil['appel_php_depuis_modele'])) {
-		$args[0] = 'arguments_balise_dyn_depuis_modele(' . $args[0] . ')';
+		$args[0] = 'arguments_balise_dyn_depuis_modele('.$args[0].')';
 	}
 	$args = join(', ', $args);
 
@@ -347,14 +347,14 @@ 
 	if (is_object($v)) {
 		return var_export($v, true);
 	} elseif (!is_array($v)) {
-		return "'" . texte_script((string) $v) . "'";
+		return "'".texte_script((string) $v)."'";
 	} else {
 		$out = [];
 		foreach ($v as $k => $val) {
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+			$out [] = argumenter_squelette($k).'=>'.argumenter_squelette($val);
 		}
 
-		return 'array(' . join(', ', $out) . ')';
+		return 'array('.join(', ', $out).')';
 	}
 }
 
@@ -379,7 +379,7 @@ 
 	}
 	else {
 		$str_args = base64_encode(serialize($args));
-		return '<?' . "php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?" . ">\n";
+		return '<?'."php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?".">\n";
 	}
 }
 
@@ -457,7 +457,7 @@ 
 	}
 
 	// Y a-t-il une fonction de traitement des arguments ?
-	$f = 'balise_' . $nom_balise . '_stat';
+	$f = 'balise_'.$nom_balise.'_stat';
 
 	$r = !function_exists($f) ? $args : $f($args, $context_compil);
 
@@ -467,18 +467,18 @@ 
 
 	// verifier que la fonction dyn est la,
 	// sinon se replier sur la generique si elle existe
-	if (!function_exists('balise_' . $nom_balise . '_dyn')) {
+	if (!function_exists('balise_'.$nom_balise.'_dyn')) {
 		if (
 			($balise_generique = chercher_balise_generique($nom))
 			&& ($nom_balise_generique = $balise_generique['nom_generique'])
-			&& ($file = include_spip('balise/' . strtolower($nom_balise_generique)))
-			&& function_exists('balise_' . $nom_balise_generique . '_dyn')
+			&& ($file = include_spip('balise/'.strtolower($nom_balise_generique)))
+			&& function_exists('balise_'.$nom_balise_generique.'_dyn')
 		) {
 			// et lui injecter en premier arg le nom de la balise
 			array_unshift($r, $nom);
 			$nom_balise = $nom_balise_generique;
 			if (!_DIR_RESTREINT) {
-				$file = _DIR_RESTREINT_ABS . $file;
+				$file = _DIR_RESTREINT_ABS.$file;
 			}
 		} else {
 			$msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
@@ -580,7 +580,7 @@ 
 		$n = '';
 		foreach (explode(',', $liste) as $val) {
 			if (($a = intval($val)) && $val === strval($a)) {
-				$n .= ',' . $val;
+				$n .= ','.$val;
 			}
 		}
 		if (strlen($n)) {
@@ -759,8 +759,8 @@ 
 			// on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
 			$i = 0;
 			do {
-				$where[$k] = remplace_sous_requete($w, '(' . calculer_select(
-					[$sous[1] . ' AS id'],
+				$where[$k] = remplace_sous_requete($w, '('.calculer_select(
+					[$sous[1].' AS id'],
 					$from,
 					$from_type,
 					$wheresub,
@@ -773,7 +773,7 @@ 
 					$id,
 					$serveur,
 					false
-				) . ')');
+				).')');
 				if (!$i) {
 					$i = 1;
 					$wherestring = calculer_where_to_string($where[$k]);
@@ -792,7 +792,7 @@ 
 		if ($sous[0] == 'SUBSELECT') {
 			// c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
 			array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
-			$where[$k] = remplace_sous_requete($w, '(' . calculer_select(
+			$where[$k] = remplace_sous_requete($w, '('.calculer_select(
 				$sous[1], # select
 				$sous[2], #from
 				[], #from_type
@@ -807,7 +807,7 @@ 
 				$id,
 				$serveur,
 				false
-			) . ')');
+			).')');
 		}
 		array_pop($where_simples);
 	}
@@ -870,15 +870,15 @@ 
 			// sans recours a preg_match
 			// un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
 			$afrom[$t][$cle] = [
-				"\n" .
-				($from_type[$cle] ?? 'INNER') . ' JOIN',
+				"\n".
+				($from_type[$cle] ?? 'INNER').' JOIN',
 				$from[$cle],
 				"AS $cle",
 				'ON (',
 				"$cle.$c",
 				'=',
 				"$t.$carr",
-				($and ? 'AND ' . $and : '') .
+				($and ? 'AND '.$and : '').
 				')'
 			];
 			if (isset($afrom[$cle])) {
@@ -916,7 +916,7 @@ 
 		$t = key($from);
 		$c = current($from);
 		reset($from);
-		$e = '/\b(' . "$t\\." . join('|' . $t . '\.', $equiv) . ')\b/';
+		$e = '/\b('."$t\\.".join('|'.$t.'\.', $equiv).')\b/';
 		if (
 			!(
 				strpos($t, ' ')
@@ -936,7 +936,7 @@ 
 			unset($afrom[$t][$nt]);
 			$afrom[$nt] = $afrom[$t];
 			unset($afrom[$t]);
-			$e = '/\b' . preg_quote($nfrom[6]) . '\b/';
+			$e = '/\b'.preg_quote($nfrom[6]).'\b/';
 			$t = $nfrom[4];
 			$alias = '';
 			// verifier que les deux cles sont homonymes, sinon installer un alias dans le select
@@ -947,14 +947,14 @@ 
 			if ($newcle != $oldcle) {
 				// si l'ancienne cle etait deja dans le select avec un AS
 				// reprendre simplement ce AS
-				$as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
+				$as = '/\b'.preg_quote($nfrom[6]).'\s+(AS\s+\w+)\b/';
 				if (preg_match($as, implode(',', $select), $m)) {
 					$alias = '';
 				} else {
-					$alias = ', ' . $nfrom[4] . " AS $oldcle";
+					$alias = ', '.$nfrom[4]." AS $oldcle";
 				}
 			}
-			$select = remplacer_jointnul($t . $alias, $select, $e);
+			$select = remplacer_jointnul($t.$alias, $select, $e);
 			$join = remplacer_jointnul($t, $join, $e);
 			$where = remplacer_jointnul($t, $where, $e);
 			$having = remplacer_jointnul($t, $having, $e);
@@ -1004,9 +1004,9 @@ 
 	} else {
 		$exp = '';
 		if (strtoupper($join) === 'AND') {
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+			return $exp.join(" $join ", array_map('calculer_where_to_string', $v));
 		} else {
-			return $exp . join($join, $v);
+			return $exp.join($join, $v);
 		}
 	}
 }
@@ -1068,6 +1068,6 @@ 
 	}
 
 	return $mime_type
-	. (!$connect ? '' : preg_replace('/\W/', '_', $connect)) . '_'
-	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
+	. (!$connect ? '' : preg_replace('/\W/', '_', $connect)).'_'
+	. md5($GLOBALS['spip_version_code'].' * '.$skel.(isset($GLOBALS['marqueur_skel']) ? '*'.$GLOBALS['marqueur_skel'] : ''));
 }

Indentation +765 added lines, -765 removed lines

@@ -19,7 +19,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/texte');
@@ -42,229 +42,229 @@ 
 
 function public_composer_dist($squelette, $mime_type, $gram, $source, string $connect = '') {
 
-	$skel = null;
-	$boucle = null;
-	$nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
-
-	//  si deja en memoire (INCLURE  a repetition) c'est bon.
-	if (function_exists($nom)) {
-		return $nom;
-	}
-
-	if (defined('_VAR_MODE') && _VAR_MODE == 'debug') {
-		$GLOBALS['debug_objets']['courant'] = $nom;
-	}
-
-	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
-
-	// si squelette est deja compile et perenne, le charger
-	if (!squelette_obsolete($phpfile, $source)) {
-		include_once $phpfile;
-		#if (!squelette_obsolete($phpfile, $source)
-		#  AND lire_fichier ($phpfile, $skel_code,
-		#  array('critique' => 'oui', 'phpcheck' => 'oui'))){
-		## eval('?'.'>'.$skel_code);
-		#	 spip_logger('comp')->info($skel_code);
-		#}
-	}
-
-	if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
-		include_once $lib;
-	}
-
-	// tester si le eval ci-dessus a mis le squelette en memoire
-
-	if (function_exists($nom)) {
-		return $nom;
-	}
-
-	// charger le source, si possible, et compiler
-	$skel_code = '';
-	if (lire_fichier($source, $skel)) {
-		$compiler = charger_fonction('compiler', 'public');
-		$skel_code = $compiler($skel, $nom, $gram, $source, $connect);
-	}
-
-	// Ne plus rien faire si le compilateur n'a pas pu operer.
-	if (!$skel_code) {
-		return false;
-	}
-
-	foreach ($skel_code as $id => $boucle) {
-		$f = $boucle->return;
-		try {
-			eval("return true; $f ;");
-		} catch (\ParseError $e) {
-			// Code syntaxiquement faux (critere etc mal programme')
-			$msg = _T('zbug_erreur_compilation') . ' | Line ' . $e->getLine() . ' : ' . $e->getMessage();
-			erreur_squelette($msg, $boucle);
-			// continuer pour trouver d'autres fautes eventuelles
-			// mais prevenir que c'est mort
-			$nom = '';
-		}
-
-		// contexte de compil inutile a present
-		// (mais la derniere valeur de $boucle est utilisee ci-dessous)
-		$skel_code[$id] = $f;
-	}
-
-	$code = '';
-	if ($nom) {
-		// Si le code est bon, concatener et mettre en cache
-		if (function_exists($nom)) {
-			$code = squelette_traduit($skel, $source, $phpfile, $skel_code);
-		} else {
-			// code semantiquement faux: bug du compilateur
-			// $boucle est en fait ici la fct principale du squelette
-			$msg = _T('zbug_erreur_compilation');
-			erreur_squelette($msg, $boucle);
-			$nom = '';
-		}
-	}
-
-	if (defined('_VAR_MODE') && _VAR_MODE == 'debug') {
-		// Tracer ce qui vient d'etre compile
-		$GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
-
-		// si c'est ce que demande le debusqueur, lui passer la main
-		if (
-			$GLOBALS['debug_objets']['sourcefile']
-			&& _request('var_mode_objet') == $nom
-			&& _request('var_mode_affiche') == 'code'
-		) {
-			erreur_squelette();
-		}
-	}
-
-	return $nom ?: false;
+    $skel = null;
+    $boucle = null;
+    $nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
+
+    //  si deja en memoire (INCLURE  a repetition) c'est bon.
+    if (function_exists($nom)) {
+        return $nom;
+    }
+
+    if (defined('_VAR_MODE') && _VAR_MODE == 'debug') {
+        $GLOBALS['debug_objets']['courant'] = $nom;
+    }
+
+    $phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
+
+    // si squelette est deja compile et perenne, le charger
+    if (!squelette_obsolete($phpfile, $source)) {
+        include_once $phpfile;
+        #if (!squelette_obsolete($phpfile, $source)
+        #  AND lire_fichier ($phpfile, $skel_code,
+        #  array('critique' => 'oui', 'phpcheck' => 'oui'))){
+        ## eval('?'.'>'.$skel_code);
+        #	 spip_logger('comp')->info($skel_code);
+        #}
+    }
+
+    if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
+        include_once $lib;
+    }
+
+    // tester si le eval ci-dessus a mis le squelette en memoire
+
+    if (function_exists($nom)) {
+        return $nom;
+    }
+
+    // charger le source, si possible, et compiler
+    $skel_code = '';
+    if (lire_fichier($source, $skel)) {
+        $compiler = charger_fonction('compiler', 'public');
+        $skel_code = $compiler($skel, $nom, $gram, $source, $connect);
+    }
+
+    // Ne plus rien faire si le compilateur n'a pas pu operer.
+    if (!$skel_code) {
+        return false;
+    }
+
+    foreach ($skel_code as $id => $boucle) {
+        $f = $boucle->return;
+        try {
+            eval("return true; $f ;");
+        } catch (\ParseError $e) {
+            // Code syntaxiquement faux (critere etc mal programme')
+            $msg = _T('zbug_erreur_compilation') . ' | Line ' . $e->getLine() . ' : ' . $e->getMessage();
+            erreur_squelette($msg, $boucle);
+            // continuer pour trouver d'autres fautes eventuelles
+            // mais prevenir que c'est mort
+            $nom = '';
+        }
+
+        // contexte de compil inutile a present
+        // (mais la derniere valeur de $boucle est utilisee ci-dessous)
+        $skel_code[$id] = $f;
+    }
+
+    $code = '';
+    if ($nom) {
+        // Si le code est bon, concatener et mettre en cache
+        if (function_exists($nom)) {
+            $code = squelette_traduit($skel, $source, $phpfile, $skel_code);
+        } else {
+            // code semantiquement faux: bug du compilateur
+            // $boucle est en fait ici la fct principale du squelette
+            $msg = _T('zbug_erreur_compilation');
+            erreur_squelette($msg, $boucle);
+            $nom = '';
+        }
+    }
+
+    if (defined('_VAR_MODE') && _VAR_MODE == 'debug') {
+        // Tracer ce qui vient d'etre compile
+        $GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
+
+        // si c'est ce que demande le debusqueur, lui passer la main
+        if (
+            $GLOBALS['debug_objets']['sourcefile']
+            && _request('var_mode_objet') == $nom
+            && _request('var_mode_affiche') == 'code'
+        ) {
+            erreur_squelette();
+        }
+    }
+
+    return $nom ?: false;
 }
 
 function squelette_traduit($squelette, $sourcefile, $phpfile, $boucles) {
 
-	$code = null;
-	// Le dernier index est '' (fonction principale)
-	$noms = substr(join(', ', array_keys($boucles)), 0, -2);
-	if (CODE_COMMENTE) {
-		$code = "
+    $code = null;
+    // Le dernier index est '' (fonction principale)
+    $noms = substr(join(', ', array_keys($boucles)), 0, -2);
+    if (CODE_COMMENTE) {
+        $code = "
 /*
  * Squelette : $sourcefile
  * Date :      " . gmdate('D, d M Y H:i:s', @filemtime($sourcefile)) . ' GMT
  * Compile :   ' . gmdate('D, d M Y H:i:s', time()) . ' GMT
  * ' . (!$boucles ? 'Pas de boucle' : ('Boucles :   ' . $noms)) . '
  */ ';
-	}
+    }
 
-	$code = '<' . "?php\n" . $code . join('', $boucles) . "\n";
-	if (!defined('_VAR_NOCACHE') || !_VAR_NOCACHE) {
-		ecrire_fichier($phpfile, $code);
-	}
+    $code = '<' . "?php\n" . $code . join('', $boucles) . "\n";
+    if (!defined('_VAR_NOCACHE') || !_VAR_NOCACHE) {
+        ecrire_fichier($phpfile, $code);
+    }
 
-	return $code;
+    return $code;
 }
 
 // Le squelette compile est-il trop vieux ?
 function squelette_obsolete($skel, $squelette) {
-	static $date_change = null;
-	// ne verifier la date de mes_fonctions et mes_options qu'une seule fois
-	// par hit
-	if (is_null($date_change)) {
-		if (@file_exists($fonc = 'mes_fonctions.php')) {
-			$date_change = @filemtime($fonc);
-		} # compatibilite
-		if (defined('_FILE_OPTIONS')) {
-			$date_change = max($date_change, @filemtime(_FILE_OPTIONS));
-		}
-	}
-
-	return (
-		defined('_VAR_MODE') && in_array(_VAR_MODE, ['recalcul', 'preview', 'debug'])
-		|| !@file_exists($skel)
-		|| (@file_exists($squelette) ? @filemtime($squelette) : 0) > ($date = @filemtime($skel))
-		|| $date_change > $date
-	);
+    static $date_change = null;
+    // ne verifier la date de mes_fonctions et mes_options qu'une seule fois
+    // par hit
+    if (is_null($date_change)) {
+        if (@file_exists($fonc = 'mes_fonctions.php')) {
+            $date_change = @filemtime($fonc);
+        } # compatibilite
+        if (defined('_FILE_OPTIONS')) {
+            $date_change = max($date_change, @filemtime(_FILE_OPTIONS));
+        }
+    }
+
+    return (
+        defined('_VAR_MODE') && in_array(_VAR_MODE, ['recalcul', 'preview', 'debug'])
+        || !@file_exists($skel)
+        || (@file_exists($squelette) ? @filemtime($squelette) : 0) > ($date = @filemtime($skel))
+        || $date_change > $date
+    );
 }
 
 // Activer l'invalideur de session
 function invalideur_session(&$Cache, $code = null) {
-	$Cache['session'] = spip_session();
+    $Cache['session'] = spip_session();
 
-	return $code;
+    return $code;
 }
 
 
 function analyse_resultat_skel($nom, $cache, $corps, $source = '') {
-	static $filtres = [];
-	$headers = [];
-	$corps ??= '';
-
-	// Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
-	// note: on essaie d'attrapper aussi certains de ces entetes codes
-	// "a la main" dans les squelettes, mais evidemment sans exhaustivite
-	if (
-		stripos($corps, 'header') !== false
-		&& preg_match_all(
-			'/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
-			$corps,
-			$regs,
-			PREG_SET_ORDER
-		)
-	) {
-		foreach ($regs as $r) {
-			$corps = str_replace($r[0], '', $corps);
-			# $j = Content-Type, et pas content-TYPE.
-			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
-
-			if ($j == 'X-Spip-Filtre' && isset($headers[$j])) {
-				$headers[$j] .= '|' . $r[3];
-			} else {
-				$headers[$j] = str_replace(['\\\\',"\\'",'\\"'], ['\\',"'",'"'], $r[3]);
-			}
-		}
-	}
-	// S'agit-il d'un resultat constant ou contenant du code php
-	$process_ins = (
-		!str_contains($corps, '<' . '?')
-		|| str_contains($corps, '<' . '?xml') && !str_contains(str_replace('<' . '?xml', '', $corps), '<' . '?')
-	)
-		? 'html'
-		: 'php';
-
-	$skel = [
-		'squelette' => $nom,
-		'source' => $source,
-		'process_ins' => $process_ins,
-		'invalideurs' => $cache,
-		'entetes' => $headers,
-		'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
-	];
-
-	// traiter #FILTRE{} et filtres
-	if (!isset($filtres[$nom])) {
-		$filtres[$nom] = pipeline('declarer_filtres_squelettes', ['args' => $skel, 'data' => []]);
-	}
-	$filtres_headers = [];
-	if (isset($headers['X-Spip-Filtre']) && strlen($headers['X-Spip-Filtre'])) {
-		$filtres_headers = array_filter(explode('|', $headers['X-Spip-Filtre']));
-		unset($headers['X-Spip-Filtre']);
-	}
-	if ((is_countable($filtres[$nom]) ? count($filtres[$nom]) : 0) || count($filtres_headers)) {
-		include_spip('public/sandbox');
-		$corps = sandbox_filtrer_squelette($skel, $corps, $filtres_headers, $filtres[$nom]);
-
-		if ($process_ins == 'html') {
-			$skel['process_ins'] = (
-				!str_contains($corps, '<' . '?')
-				|| str_contains($corps, '<' . '?xml') && !str_contains(str_replace('<' . '?xml', '', $corps), '<' . '?')
-			)
-				? 'html'
-				: 'php';
-		}
-	}
-
-	$skel['entetes'] = $headers;
-	$skel['texte'] = $corps;
-
-	return $skel;
+    static $filtres = [];
+    $headers = [];
+    $corps ??= '';
+
+    // Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
+    // note: on essaie d'attrapper aussi certains de ces entetes codes
+    // "a la main" dans les squelettes, mais evidemment sans exhaustivite
+    if (
+        stripos($corps, 'header') !== false
+        && preg_match_all(
+            '/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
+            $corps,
+            $regs,
+            PREG_SET_ORDER
+        )
+    ) {
+        foreach ($regs as $r) {
+            $corps = str_replace($r[0], '', $corps);
+            # $j = Content-Type, et pas content-TYPE.
+            $j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
+
+            if ($j == 'X-Spip-Filtre' && isset($headers[$j])) {
+                $headers[$j] .= '|' . $r[3];
+            } else {
+                $headers[$j] = str_replace(['\\\\',"\\'",'\\"'], ['\\',"'",'"'], $r[3]);
+            }
+        }
+    }
+    // S'agit-il d'un resultat constant ou contenant du code php
+    $process_ins = (
+        !str_contains($corps, '<' . '?')
+        || str_contains($corps, '<' . '?xml') && !str_contains(str_replace('<' . '?xml', '', $corps), '<' . '?')
+    )
+        ? 'html'
+        : 'php';
+
+    $skel = [
+        'squelette' => $nom,
+        'source' => $source,
+        'process_ins' => $process_ins,
+        'invalideurs' => $cache,
+        'entetes' => $headers,
+        'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
+    ];
+
+    // traiter #FILTRE{} et filtres
+    if (!isset($filtres[$nom])) {
+        $filtres[$nom] = pipeline('declarer_filtres_squelettes', ['args' => $skel, 'data' => []]);
+    }
+    $filtres_headers = [];
+    if (isset($headers['X-Spip-Filtre']) && strlen($headers['X-Spip-Filtre'])) {
+        $filtres_headers = array_filter(explode('|', $headers['X-Spip-Filtre']));
+        unset($headers['X-Spip-Filtre']);
+    }
+    if ((is_countable($filtres[$nom]) ? count($filtres[$nom]) : 0) || count($filtres_headers)) {
+        include_spip('public/sandbox');
+        $corps = sandbox_filtrer_squelette($skel, $corps, $filtres_headers, $filtres[$nom]);
+
+        if ($process_ins == 'html') {
+            $skel['process_ins'] = (
+                !str_contains($corps, '<' . '?')
+                || str_contains($corps, '<' . '?xml') && !str_contains(str_replace('<' . '?xml', '', $corps), '<' . '?')
+            )
+                ? 'html'
+                : 'php';
+        }
+    }
+
+    $skel['entetes'] = $headers;
+    $skel['texte'] = $corps;
+
+    return $skel;
 }
 
 //
@@ -278,7 +278,7 @@ 
 inserer_balise_dynamique(balise_%s_dyn(%s), array(%s));
 if ($lang_select) lang_select();
 ?'
-	. '>');
+    . '>');
 
 /**
  * Synthétise une balise dynamique : crée l'appel à l'inclusion
@@ -298,35 +298,35 @@ 
  *     Code PHP pour inclure le squelette de la balise dynamique
  **/
 function synthetiser_balise_dynamique($nom, $args, $file, $context_compil) {
-	if (
-		!str_starts_with($file, '/')
-		// pas de lien symbolique sous Windows
-		&& !(stristr(PHP_OS, 'WIN') && str_contains($file, ':'))
-	) {
-		$file = './" . _DIR_RACINE . "' . $file;
-	}
-
-	$lang = $context_compil[4];
-	if (preg_match(',\W,', $lang)) {
-		$lang = '';
-	}
-
-	$args = array_map('argumenter_squelette', $args);
-	if (!empty($context_compil['appel_php_depuis_modele'])) {
-		$args[0] = 'arguments_balise_dyn_depuis_modele(' . $args[0] . ')';
-	}
-	$args = join(', ', $args);
-
-	$r = sprintf(
-		CODE_INCLURE_BALISE,
-		$file,
-		$lang,
-		$nom,
-		$args,
-		join(', ', array_map('_q', $context_compil))
-	);
-
-	return $r;
+    if (
+        !str_starts_with($file, '/')
+        // pas de lien symbolique sous Windows
+        && !(stristr(PHP_OS, 'WIN') && str_contains($file, ':'))
+    ) {
+        $file = './" . _DIR_RACINE . "' . $file;
+    }
+
+    $lang = $context_compil[4];
+    if (preg_match(',\W,', $lang)) {
+        $lang = '';
+    }
+
+    $args = array_map('argumenter_squelette', $args);
+    if (!empty($context_compil['appel_php_depuis_modele'])) {
+        $args[0] = 'arguments_balise_dyn_depuis_modele(' . $args[0] . ')';
+    }
+    $args = join(', ', $args);
+
+    $r = sprintf(
+        CODE_INCLURE_BALISE,
+        $file,
+        $lang,
+        $nom,
+        $args,
+        join(', ', array_map('_q', $context_compil))
+    );
+
+    return $r;
 }
 
 /**
@@ -344,18 +344,18 @@ 
  **/
 function argumenter_squelette($v) {
 
-	if (is_object($v)) {
-		return var_export($v, true);
-	} elseif (!is_array($v)) {
-		return "'" . texte_script((string) $v) . "'";
-	} else {
-		$out = [];
-		foreach ($v as $k => $val) {
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
-		}
-
-		return 'array(' . join(', ', $out) . ')';
-	}
+    if (is_object($v)) {
+        return var_export($v, true);
+    } elseif (!is_array($v)) {
+        return "'" . texte_script((string) $v) . "'";
+    } else {
+        $out = [];
+        foreach ($v as $k => $val) {
+            $out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+        }
+
+        return 'array(' . join(', ', $out) . ')';
+    }
 }
 
 /**
@@ -374,13 +374,13 @@ 
  * @return string
  */
 function executer_balise_dynamique_dans_un_modele(...$args) {
-	if (test_espace_prive()) {
-		return executer_balise_dynamique(...$args);
-	}
-	else {
-		$str_args = base64_encode(serialize($args));
-		return '<?' . "php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?" . ">\n";
-	}
+    if (test_espace_prive()) {
+        return executer_balise_dynamique(...$args);
+    }
+    else {
+        $str_args = base64_encode(serialize($args));
+        return '<?' . "php \$_zargs=unserialize(base64_decode('$str_args'));echo executer_balise_dynamique(...\$_zargs); ?" . ">\n";
+    }
 }
 
 
@@ -411,87 +411,87 @@ 
  *     Code PHP d'exécutant l'inclusion du squelette (ou texte) de la balise dynamique
  **/
 function executer_balise_dynamique($nom, $args, $context_compil) {
-	/** @var string Nom de la balise à charger (balise demandée ou balise générique) */
-	$nom_balise = $nom;
-	/** @var string Nom de la balise générique (si utilisée) */
-	$nom_balise_generique = '';
-
-	$appel_php_depuis_modele = false;
-	if (
-		is_array($context_compil)
-		&& !is_numeric($context_compil[3])
-		&& empty($context_compil[0])
-		&& empty($context_compil[1])
-		&& empty($context_compil[2])
-		&& empty($context_compil[3])
-	) {
-		$appel_php_depuis_modele = true;
-	}
-
-	if (!$fonction_balise = charger_fonction($nom_balise, 'balise', true)) {
-		// Calculer un nom générique (ie. 'formulaire_' dans 'formulaire_editer_article')
-		if ($balise_generique = chercher_balise_generique($nom)) {
-			// injecter en premier arg le nom de la balise
-			array_unshift($args, $nom);
-			$nom_balise_generique = $balise_generique['nom_generique'];
-			$fonction_balise = $balise_generique['fonction_generique'];
-			$nom_balise = $nom_balise_generique;
-		}
-		unset($balise_generique);
-	}
-
-	if (!$fonction_balise) {
-		$msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
-		erreur_squelette($msg, $context_compil);
-
-		return '';
-	}
-
-	// retrouver le fichier qui a déclaré la fonction
-	// même si la fonction dynamique est déclarée dans un fichier de fonctions.
-	// Attention sous windows, getFileName() retourne un antislash.
-	$reflector = new ReflectionFunction($fonction_balise);
-	$file = $reflector->getFileName();
-	if (str_starts_with($file, _ROOT_RACINE)) {
-		$file = str_replace(\DIRECTORY_SEPARATOR, '/', substr($file, strlen(_ROOT_RACINE)));
-	}
-
-	// Y a-t-il une fonction de traitement des arguments ?
-	$f = 'balise_' . $nom_balise . '_stat';
-
-	$r = !function_exists($f) ? $args : $f($args, $context_compil);
-
-	if (!is_array($r)) {
-		return $r;
-	}
-
-	// verifier que la fonction dyn est la,
-	// sinon se replier sur la generique si elle existe
-	if (!function_exists('balise_' . $nom_balise . '_dyn')) {
-		if (
-			($balise_generique = chercher_balise_generique($nom))
-			&& ($nom_balise_generique = $balise_generique['nom_generique'])
-			&& ($file = include_spip('balise/' . strtolower($nom_balise_generique)))
-			&& function_exists('balise_' . $nom_balise_generique . '_dyn')
-		) {
-			// et lui injecter en premier arg le nom de la balise
-			array_unshift($r, $nom);
-			$nom_balise = $nom_balise_generique;
-			if (!_DIR_RESTREINT) {
-				$file = _DIR_RESTREINT_ABS . $file;
-			}
-		} else {
-			$msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
-			erreur_squelette($msg, $context_compil);
-
-			return '';
-		}
-	}
-
-	if ($appel_php_depuis_modele) {
-		$context_compil['appel_php_depuis_modele'] = true;
-	}
-	return synthetiser_balise_dynamique($nom_balise, $r, $file, $context_compil);
+    /** @var string Nom de la balise à charger (balise demandée ou balise générique) */
+    $nom_balise = $nom;
+    /** @var string Nom de la balise générique (si utilisée) */
+    $nom_balise_generique = '';
+
+    $appel_php_depuis_modele = false;
+    if (
+        is_array($context_compil)
+        && !is_numeric($context_compil[3])
+        && empty($context_compil[0])
+        && empty($context_compil[1])
+        && empty($context_compil[2])
+        && empty($context_compil[3])
+    ) {
+        $appel_php_depuis_modele = true;
+    }
+
+    if (!$fonction_balise = charger_fonction($nom_balise, 'balise', true)) {
+        // Calculer un nom générique (ie. 'formulaire_' dans 'formulaire_editer_article')
+        if ($balise_generique = chercher_balise_generique($nom)) {
+            // injecter en premier arg le nom de la balise
+            array_unshift($args, $nom);
+            $nom_balise_generique = $balise_generique['nom_generique'];
+            $fonction_balise = $balise_generique['fonction_generique'];
+            $nom_balise = $nom_balise_generique;
+        }
+        unset($balise_generique);
+    }
+
+    if (!$fonction_balise) {
+        $msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
+        erreur_squelette($msg, $context_compil);
+
+        return '';
+    }
+
+    // retrouver le fichier qui a déclaré la fonction
+    // même si la fonction dynamique est déclarée dans un fichier de fonctions.
+    // Attention sous windows, getFileName() retourne un antislash.
+    $reflector = new ReflectionFunction($fonction_balise);
+    $file = $reflector->getFileName();
+    if (str_starts_with($file, _ROOT_RACINE)) {
+        $file = str_replace(\DIRECTORY_SEPARATOR, '/', substr($file, strlen(_ROOT_RACINE)));
+    }
+
+    // Y a-t-il une fonction de traitement des arguments ?
+    $f = 'balise_' . $nom_balise . '_stat';
+
+    $r = !function_exists($f) ? $args : $f($args, $context_compil);
+
+    if (!is_array($r)) {
+        return $r;
+    }
+
+    // verifier que la fonction dyn est la,
+    // sinon se replier sur la generique si elle existe
+    if (!function_exists('balise_' . $nom_balise . '_dyn')) {
+        if (
+            ($balise_generique = chercher_balise_generique($nom))
+            && ($nom_balise_generique = $balise_generique['nom_generique'])
+            && ($file = include_spip('balise/' . strtolower($nom_balise_generique)))
+            && function_exists('balise_' . $nom_balise_generique . '_dyn')
+        ) {
+            // et lui injecter en premier arg le nom de la balise
+            array_unshift($r, $nom);
+            $nom_balise = $nom_balise_generique;
+            if (!_DIR_RESTREINT) {
+                $file = _DIR_RESTREINT_ABS . $file;
+            }
+        } else {
+            $msg = ['zbug_balise_inexistante', ['from' => 'CVT', 'balise' => $nom]];
+            erreur_squelette($msg, $context_compil);
+
+            return '';
+        }
+    }
+
+    if ($appel_php_depuis_modele) {
+        $context_compil['appel_php_depuis_modele'] = true;
+    }
+    return synthetiser_balise_dynamique($nom_balise, $r, $file, $context_compil);
 }
 
 /**
@@ -506,23 +506,23 @@ 
  * @return array|null
  */
 function chercher_balise_generique($nom) {
-	if (!str_contains($nom, '_')) {
-		return null;
-	}
-	$nom_generique = $nom;
-	while (false !== ($p = strrpos($nom_generique, '_'))) {
-		$nom_generique = substr($nom_generique, 0, $p + 1);
-		$fonction_generique = charger_fonction($nom_generique, 'balise', true);
-		if ($fonction_generique) {
-			return [
-				'nom' => $nom,
-				'nom_generique' => $nom_generique,
-				'fonction_generique' => $fonction_generique,
-			];
-		}
-		$nom_generique = substr($nom_generique, 0, -1);
-	}
-	return null;
+    if (!str_contains($nom, '_')) {
+        return null;
+    }
+    $nom_generique = $nom;
+    while (false !== ($p = strrpos($nom_generique, '_'))) {
+        $nom_generique = substr($nom_generique, 0, $p + 1);
+        $fonction_generique = charger_fonction($nom_generique, 'balise', true);
+        if ($fonction_generique) {
+            return [
+                'nom' => $nom,
+                'nom_generique' => $nom_generique,
+                'fonction_generique' => $fonction_generique,
+            ];
+        }
+        $nom_generique = substr($nom_generique, 0, -1);
+    }
+    return null;
 }
 
 
@@ -546,51 +546,51 @@ 
  * @return null;
  **/
 function lang_select_public($lang, $lang_select, $titre = null) {
-	// Cas 1. forcer_lang = true et pas de critere {lang_select}
-	if (
-		isset($GLOBALS['forcer_lang'])
-		&& $GLOBALS['forcer_lang']
-		&& $lang_select !== 'oui'
-	) {
-		$lang = $GLOBALS['spip_lang'];
-	} // Cas 2. l'objet n'a pas de langue definie (ou definie a '')
-	elseif (!strlen($lang)) {
-		$lang = $GLOBALS['spip_lang'];
-	} // Cas 3. l'objet est multilingue !
-	elseif (
-		$lang_select !== 'oui'
-		&& strlen($titre) > 10
-		&& str_contains($titre, '<multi>')
-		&& str_contains(CollecteurHtmlTag::proteger_balisesHtml($titre), '<multi>')
-	) {
-		$lang = $GLOBALS['spip_lang'];
-	}
-
-	// faire un lang_select() eventuellement sur la langue inchangee
-	lang_select($lang);
-
-	return;
+    // Cas 1. forcer_lang = true et pas de critere {lang_select}
+    if (
+        isset($GLOBALS['forcer_lang'])
+        && $GLOBALS['forcer_lang']
+        && $lang_select !== 'oui'
+    ) {
+        $lang = $GLOBALS['spip_lang'];
+    } // Cas 2. l'objet n'a pas de langue definie (ou definie a '')
+    elseif (!strlen($lang)) {
+        $lang = $GLOBALS['spip_lang'];
+    } // Cas 3. l'objet est multilingue !
+    elseif (
+        $lang_select !== 'oui'
+        && strlen($titre) > 10
+        && str_contains($titre, '<multi>')
+        && str_contains(CollecteurHtmlTag::proteger_balisesHtml($titre), '<multi>')
+    ) {
+        $lang = $GLOBALS['spip_lang'];
+    }
+
+    // faire un lang_select() eventuellement sur la langue inchangee
+    lang_select($lang);
+
+    return;
 }
 
 
 // Si un tableau &doublons[articles] est passe en parametre,
 // il faut le nettoyer car il pourrait etre injecte en SQL
 function nettoyer_env_doublons($envd) {
-	foreach ($envd as $table => $liste) {
-		$n = '';
-		foreach (explode(',', $liste) as $val) {
-			if (($a = intval($val)) && $val === strval($a)) {
-				$n .= ',' . $val;
-			}
-		}
-		if (strlen($n)) {
-			$envd[$table] = $n;
-		} else {
-			unset($envd[$table]);
-		}
-	}
-
-	return $envd;
+    foreach ($envd as $table => $liste) {
+        $n = '';
+        foreach (explode(',', $liste) as $val) {
+            if (($a = intval($val)) && $val === strval($a)) {
+                $n .= ',' . $val;
+            }
+        }
+        if (strlen($n)) {
+            $envd[$table] = $n;
+        } else {
+            unset($envd[$table]);
+        }
+    }
+
+    return $envd;
 }
 
 /**
@@ -609,21 +609,21 @@ 
  *     Opérateur trouvé (SELF ou SUBSELECT) sinon false.
  **/
 function match_self($w) {
-	if (is_string($w)) {
-		return false;
-	}
-	if (is_array($w)) {
-		if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
-			return $w;
-		}
-		foreach (array_filter($w, 'is_array') as $sw) {
-			if ($m = match_self($sw)) {
-				return $m;
-			}
-		}
-	}
-
-	return false;
+    if (is_string($w)) {
+        return false;
+    }
+    if (is_array($w)) {
+        if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
+            return $w;
+        }
+        foreach (array_filter($w, 'is_array') as $sw) {
+            if ($m = match_self($sw)) {
+                return $m;
+            }
+        }
+    }
+
+    return false;
 }
 
 /**
@@ -639,16 +639,16 @@ 
  *     est remplacée par son code.
  **/
 function remplace_sous_requete($w, $sousrequete) {
-	if (is_array($w)) {
-		if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
-			return $sousrequete;
-		}
-		foreach ($w as $k => $sw) {
-			$w[$k] = remplace_sous_requete($sw, $sousrequete);
-		}
-	}
-
-	return $w;
+    if (is_array($w)) {
+        if (in_array(reset($w), ['SELF', 'SUBSELECT'])) {
+            return $sousrequete;
+        }
+        foreach ($w as $k => $sw) {
+            $w[$k] = remplace_sous_requete($sw, $sousrequete);
+        }
+    }
+
+    return $w;
 }
 
 /**
@@ -662,17 +662,17 @@ 
  *     - Conditions avec des sous requêtes
  **/
 function trouver_sous_requetes($where) {
-	$where_simples = [];
-	$where_sous = [];
-	foreach ($where as $k => $w) {
-		if (match_self($w)) {
-			$where_sous[$k] = $w;
-		} else {
-			$where_simples[$k] = $w;
-		}
-	}
-
-	return [$where_simples, $where_sous];
+    $where_simples = [];
+    $where_sous = [];
+    foreach ($where as $k => $w) {
+        if (match_self($w)) {
+            $where_sous[$k] = $w;
+        } else {
+            $where_simples[$k] = $w;
+        }
+    }
+
+    return [$where_simples, $where_sous];
 }
 
 
@@ -698,293 +698,293 @@ 
  * @return resource
  */
 function calculer_select(
-	$select = [],
-	$from = [],
-	$from_type = [],
-	$where = [],
-	$join = [],
-	$groupby = [],
-	$orderby = [],
-	$limit = '',
-	$having = [],
-	$table = '',
-	$id = '',
-	$serveur = '',
-	$requeter = true
+    $select = [],
+    $from = [],
+    $from_type = [],
+    $where = [],
+    $join = [],
+    $groupby = [],
+    $orderby = [],
+    $limit = '',
+    $having = [],
+    $table = '',
+    $id = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
-	// retirer les criteres vides:
-	// {X ?} avec X absent de l'URL
-	// {par #ENV{X}} avec X absent de l'URL
-	// IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
-	$menage = false;
-	foreach ($where as $k => $v) {
-		if (is_array($v) && count($v)) {
-			if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
-				$op = false;
-			} elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
-				$op = false;
-			} else {
-				$op = $v[0] ?: $v;
-			}
-		} else {
-			$op = $v;
-		}
-		if (!$op || $op == 1 || $op == '0=0') {
-			unset($where[$k]);
-			$menage = true;
-		}
-	}
-
-	// evacuer les eventuels groupby vide issus d'un calcul dynamique
-	$groupby = array_diff($groupby, ['']);
-
-	// remplacer les sous requetes recursives au calcul
-	[$where_simples, $where_sous] = trouver_sous_requetes($where);
-	foreach ($where_sous as $k => $w) {
-		$menage = true;
-		// on recupere la sous requete
-		$sous = match_self($w);
-		if ($sous[0] == 'SELF') {
-			// c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
-			array_push($where_simples, $sous[2]);
-			$wheresub = [
-				$sous[2],
-				'0=0'
-			]; // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
-			$jsub = $join;
-			// trouver les jointures utiles a
-			// reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
-			// ie L1.objet='article'
-			// on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
-			$i = 0;
-			do {
-				$where[$k] = remplace_sous_requete($w, '(' . calculer_select(
-					[$sous[1] . ' AS id'],
-					$from,
-					$from_type,
-					$wheresub,
-					$jsub,
-					[],
-					[],
-					'',
-					$having,
-					$table,
-					$id,
-					$serveur,
-					false
-				) . ')');
-				if (!$i) {
-					$i = 1;
-					$wherestring = calculer_where_to_string($where[$k]);
-					foreach ($join as $cle => $wj) {
-						if (
-							(is_countable($wj) ? count($wj) : 0) == 4 && str_contains($wherestring, (string) "{$cle}.")
-						) {
-							$i = 0;
-							$wheresub[] = $wj[3];
-							unset($jsub[$cle][3]);
-						}
-					}
-				}
-			} while ($i++ < 1);
-		}
-		if ($sous[0] == 'SUBSELECT') {
-			// c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
-			array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
-			$where[$k] = remplace_sous_requete($w, '(' . calculer_select(
-				$sous[1], # select
-				$sous[2], #from
-				[], #from_type
-				$sous[3] ? (is_array($sous[3]) ? $sous[3] : [$sous[3]]) : [],
-				#where, qui peut etre de la forme string comme dans sql_select
-					[], #join
-				$sous[4] ?: [], #groupby
-				$sous[5] ?: [], #orderby
-				$sous[6], #limit
-				$sous[7] ?: [], #having
-				$table,
-				$id,
-				$serveur,
-				false
-			) . ')');
-		}
-		array_pop($where_simples);
-	}
-
-	foreach ($having as $k => $v) {
-		if (!$v || $v == 1 || $v == '0=0') {
-			unset($having[$k]);
-		}
-	}
-
-	// Installer les jointures.
-	// Retirer celles seulement utiles aux criteres finalement absents mais
-	// parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
-	// si elle est seulement utile a Ln+1 elle meme inutile
-
-	$afrom = [];
-	$equiv = [];
-	$k = count($join);
-	foreach (array_reverse($join, true) as $cledef => $j) {
-		$cle = $cledef;
-		// le format de join est :
-		// array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
-		$join[$cle] = array_values($join[$cle]); // recalculer les cles car des unset ont pu perturber
-		if (count($join[$cle]) == 2) {
-			$join[$cle][] = $join[$cle][1];
-		}
-		if ((is_countable($join[$cle]) ? count($join[$cle]) : 0) == 3) {
-			$join[$cle][] = '';
-		}
-		[$t, $c, $carr, $and] = $join[$cle];
-		// si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
-		// pour compat avec ancienne convention
-		if (is_numeric($cle)) {
-			$cle = "L$k";
-		}
-		$cle_where_lie = "JOIN-$cle";
-		if (
-			!$menage
-			|| isset($afrom[$cle])
-			|| calculer_jointnul($cle, $select)
-			|| calculer_jointnul($cle, array_diff_key($join, [$cle => $join[$cle]]))
-			|| calculer_jointnul($cle, $having)
-			|| calculer_jointnul($cle, array_diff_key($where_simples, [$cle_where_lie => '']))
-		) {
-			// corriger les references non explicites dans select
-			// ou groupby
-			foreach ($select as $i => $s) {
-				if ($s == $c) {
-					$select[$i] = "$cle.$c AS $c";
-					break;
-				}
-			}
-			foreach ($groupby as $i => $g) {
-				if ($g == $c) {
-					$groupby[$i] = "$cle.$c";
-					break;
-				}
-			}
-			// on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
-			// sans recours a preg_match
-			// un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
-			$afrom[$t][$cle] = [
-				"\n" .
-				($from_type[$cle] ?? 'INNER') . ' JOIN',
-				$from[$cle],
-				"AS $cle",
-				'ON (',
-				"$cle.$c",
-				'=',
-				"$t.$carr",
-				($and ? 'AND ' . $and : '') .
-				')'
-			];
-			if (isset($afrom[$cle])) {
-				$afrom[$t] = $afrom[$t] + $afrom[$cle];
-				unset($afrom[$cle]);
-			}
-			$equiv[] = $carr;
-		} else {
-			unset($join[$cledef]);
-			if (isset($where_simples[$cle_where_lie])) {
-				unset($where_simples[$cle_where_lie]);
-				unset($where[$cle_where_lie]);
-			}
-		}
-		unset($from[$cle]);
-		$k--;
-	}
-
-	if (count($afrom)) {
-		// Regarder si la table principale ne sert finalement a rien comme dans
-		//<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
-		//<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
-		//<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
-		// ou dans
-		//<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
-		// qui comporte plusieurs jointures
-		// ou dans
-		// <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
-		// <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
-		// penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
-		// <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
-		// penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
-		// <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
-
-		$t = key($from);
-		$c = current($from);
-		reset($from);
-		$e = '/\b(' . "$t\\." . join('|' . $t . '\.', $equiv) . ')\b/';
-		if (
-			!(
-				strpos($t, ' ')
-				// jointure des le depart cf boucle_doc
-				|| calculer_jointnul($t, $select, $e)
-				|| calculer_jointnul($t, $join, $e)
-				|| calculer_jointnul($t, $where, $e)
-				|| calculer_jointnul($t, $orderby, $e)
-				|| calculer_jointnul($t, $groupby, $e) || calculer_jointnul($t, $having, $e)
-			)
-			&& count($afrom[$t])
-		) {
-			$nfrom = reset($afrom[$t]);
-			$nt = array_key_first($afrom[$t]);
-			unset($from[$t]);
-			$from[$nt] = $nfrom[1];
-			unset($afrom[$t][$nt]);
-			$afrom[$nt] = $afrom[$t];
-			unset($afrom[$t]);
-			$e = '/\b' . preg_quote($nfrom[6]) . '\b/';
-			$t = $nfrom[4];
-			$alias = '';
-			// verifier que les deux cles sont homonymes, sinon installer un alias dans le select
-			$oldcle = explode('.', $nfrom[6]);
-			$oldcle = end($oldcle);
-			$newcle = explode('.', $nfrom[4]);
-			$newcle = end($newcle);
-			if ($newcle != $oldcle) {
-				// si l'ancienne cle etait deja dans le select avec un AS
-				// reprendre simplement ce AS
-				$as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
-				if (preg_match($as, implode(',', $select), $m)) {
-					$alias = '';
-				} else {
-					$alias = ', ' . $nfrom[4] . " AS $oldcle";
-				}
-			}
-			$select = remplacer_jointnul($t . $alias, $select, $e);
-			$join = remplacer_jointnul($t, $join, $e);
-			$where = remplacer_jointnul($t, $where, $e);
-			$having = remplacer_jointnul($t, $having, $e);
-			$groupby = remplacer_jointnul($t, $groupby, $e);
-			$orderby = remplacer_jointnul($t, $orderby, $e);
-		}
-		$from = reinjecte_joint($afrom, $from);
-	}
-	if (empty($GLOBALS['debug']) || !is_array($GLOBALS['debug'])) {
-		$wasdebug = empty($GLOBALS['debug']) ? false : $GLOBALS['debug'];
-		$GLOBALS['debug'] = [];
-		if ($wasdebug) {
-			$GLOBALS['debug']['debug'] = true;
-		}
-	}
-	$GLOBALS['debug']['aucasou'] = [$table, $id, $serveur, $requeter];
-	$r = sql_select(
-		$select,
-		$from,
-		$where,
-		$groupby,
-		array_filter($orderby),
-		$limit,
-		$having,
-		$serveur,
-		$requeter
-	);
-	unset($GLOBALS['debug']['aucasou']);
-
-	return $r;
+    // retirer les criteres vides:
+    // {X ?} avec X absent de l'URL
+    // {par #ENV{X}} avec X absent de l'URL
+    // IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
+    $menage = false;
+    foreach ($where as $k => $v) {
+        if (is_array($v) && count($v)) {
+            if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
+                $op = false;
+            } elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
+                $op = false;
+            } else {
+                $op = $v[0] ?: $v;
+            }
+        } else {
+            $op = $v;
+        }
+        if (!$op || $op == 1 || $op == '0=0') {
+            unset($where[$k]);
+            $menage = true;
+        }
+    }
+
+    // evacuer les eventuels groupby vide issus d'un calcul dynamique
+    $groupby = array_diff($groupby, ['']);
+
+    // remplacer les sous requetes recursives au calcul
+    [$where_simples, $where_sous] = trouver_sous_requetes($where);
+    foreach ($where_sous as $k => $w) {
+        $menage = true;
+        // on recupere la sous requete
+        $sous = match_self($w);
+        if ($sous[0] == 'SELF') {
+            // c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
+            array_push($where_simples, $sous[2]);
+            $wheresub = [
+                $sous[2],
+                '0=0'
+            ]; // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
+            $jsub = $join;
+            // trouver les jointures utiles a
+            // reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
+            // ie L1.objet='article'
+            // on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
+            $i = 0;
+            do {
+                $where[$k] = remplace_sous_requete($w, '(' . calculer_select(
+                    [$sous[1] . ' AS id'],
+                    $from,
+                    $from_type,
+                    $wheresub,
+                    $jsub,
+                    [],
+                    [],
+                    '',
+                    $having,
+                    $table,
+                    $id,
+                    $serveur,
+                    false
+                ) . ')');
+                if (!$i) {
+                    $i = 1;
+                    $wherestring = calculer_where_to_string($where[$k]);
+                    foreach ($join as $cle => $wj) {
+                        if (
+                            (is_countable($wj) ? count($wj) : 0) == 4 && str_contains($wherestring, (string) "{$cle}.")
+                        ) {
+                            $i = 0;
+                            $wheresub[] = $wj[3];
+                            unset($jsub[$cle][3]);
+                        }
+                    }
+                }
+            } while ($i++ < 1);
+        }
+        if ($sous[0] == 'SUBSELECT') {
+            // c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
+            array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
+            $where[$k] = remplace_sous_requete($w, '(' . calculer_select(
+                $sous[1], # select
+                $sous[2], #from
+                [], #from_type
+                $sous[3] ? (is_array($sous[3]) ? $sous[3] : [$sous[3]]) : [],
+                #where, qui peut etre de la forme string comme dans sql_select
+                    [], #join
+                $sous[4] ?: [], #groupby
+                $sous[5] ?: [], #orderby
+                $sous[6], #limit
+                $sous[7] ?: [], #having
+                $table,
+                $id,
+                $serveur,
+                false
+            ) . ')');
+        }
+        array_pop($where_simples);
+    }
+
+    foreach ($having as $k => $v) {
+        if (!$v || $v == 1 || $v == '0=0') {
+            unset($having[$k]);
+        }
+    }
+
+    // Installer les jointures.
+    // Retirer celles seulement utiles aux criteres finalement absents mais
+    // parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
+    // si elle est seulement utile a Ln+1 elle meme inutile
+
+    $afrom = [];
+    $equiv = [];
+    $k = count($join);
+    foreach (array_reverse($join, true) as $cledef => $j) {
+        $cle = $cledef;
+        // le format de join est :
+        // array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
+        $join[$cle] = array_values($join[$cle]); // recalculer les cles car des unset ont pu perturber
+        if (count($join[$cle]) == 2) {
+            $join[$cle][] = $join[$cle][1];
+        }
+        if ((is_countable($join[$cle]) ? count($join[$cle]) : 0) == 3) {
+            $join[$cle][] = '';
+        }
+        [$t, $c, $carr, $and] = $join[$cle];
+        // si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
+        // pour compat avec ancienne convention
+        if (is_numeric($cle)) {
+            $cle = "L$k";
+        }
+        $cle_where_lie = "JOIN-$cle";
+        if (
+            !$menage
+            || isset($afrom[$cle])
+            || calculer_jointnul($cle, $select)
+            || calculer_jointnul($cle, array_diff_key($join, [$cle => $join[$cle]]))
+            || calculer_jointnul($cle, $having)
+            || calculer_jointnul($cle, array_diff_key($where_simples, [$cle_where_lie => '']))
+        ) {
+            // corriger les references non explicites dans select
+            // ou groupby
+            foreach ($select as $i => $s) {
+                if ($s == $c) {
+                    $select[$i] = "$cle.$c AS $c";
+                    break;
+                }
+            }
+            foreach ($groupby as $i => $g) {
+                if ($g == $c) {
+                    $groupby[$i] = "$cle.$c";
+                    break;
+                }
+            }
+            // on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
+            // sans recours a preg_match
+            // un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
+            $afrom[$t][$cle] = [
+                "\n" .
+                ($from_type[$cle] ?? 'INNER') . ' JOIN',
+                $from[$cle],
+                "AS $cle",
+                'ON (',
+                "$cle.$c",
+                '=',
+                "$t.$carr",
+                ($and ? 'AND ' . $and : '') .
+                ')'
+            ];
+            if (isset($afrom[$cle])) {
+                $afrom[$t] = $afrom[$t] + $afrom[$cle];
+                unset($afrom[$cle]);
+            }
+            $equiv[] = $carr;
+        } else {
+            unset($join[$cledef]);
+            if (isset($where_simples[$cle_where_lie])) {
+                unset($where_simples[$cle_where_lie]);
+                unset($where[$cle_where_lie]);
+            }
+        }
+        unset($from[$cle]);
+        $k--;
+    }
+
+    if (count($afrom)) {
+        // Regarder si la table principale ne sert finalement a rien comme dans
+        //<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
+        //<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
+        //<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
+        // ou dans
+        //<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
+        // qui comporte plusieurs jointures
+        // ou dans
+        // <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
+        // <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
+        // penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
+        // <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
+        // penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
+        // <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
+
+        $t = key($from);
+        $c = current($from);
+        reset($from);
+        $e = '/\b(' . "$t\\." . join('|' . $t . '\.', $equiv) . ')\b/';
+        if (
+            !(
+                strpos($t, ' ')
+                // jointure des le depart cf boucle_doc
+                || calculer_jointnul($t, $select, $e)
+                || calculer_jointnul($t, $join, $e)
+                || calculer_jointnul($t, $where, $e)
+                || calculer_jointnul($t, $orderby, $e)
+                || calculer_jointnul($t, $groupby, $e) || calculer_jointnul($t, $having, $e)
+            )
+            && count($afrom[$t])
+        ) {
+            $nfrom = reset($afrom[$t]);
+            $nt = array_key_first($afrom[$t]);
+            unset($from[$t]);
+            $from[$nt] = $nfrom[1];
+            unset($afrom[$t][$nt]);
+            $afrom[$nt] = $afrom[$t];
+            unset($afrom[$t]);
+            $e = '/\b' . preg_quote($nfrom[6]) . '\b/';
+            $t = $nfrom[4];
+            $alias = '';
+            // verifier que les deux cles sont homonymes, sinon installer un alias dans le select
+            $oldcle = explode('.', $nfrom[6]);
+            $oldcle = end($oldcle);
+            $newcle = explode('.', $nfrom[4]);
+            $newcle = end($newcle);
+            if ($newcle != $oldcle) {
+                // si l'ancienne cle etait deja dans le select avec un AS
+                // reprendre simplement ce AS
+                $as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
+                if (preg_match($as, implode(',', $select), $m)) {
+                    $alias = '';
+                } else {
+                    $alias = ', ' . $nfrom[4] . " AS $oldcle";
+                }
+            }
+            $select = remplacer_jointnul($t . $alias, $select, $e);
+            $join = remplacer_jointnul($t, $join, $e);
+            $where = remplacer_jointnul($t, $where, $e);
+            $having = remplacer_jointnul($t, $having, $e);
+            $groupby = remplacer_jointnul($t, $groupby, $e);
+            $orderby = remplacer_jointnul($t, $orderby, $e);
+        }
+        $from = reinjecte_joint($afrom, $from);
+    }
+    if (empty($GLOBALS['debug']) || !is_array($GLOBALS['debug'])) {
+        $wasdebug = empty($GLOBALS['debug']) ? false : $GLOBALS['debug'];
+        $GLOBALS['debug'] = [];
+        if ($wasdebug) {
+            $GLOBALS['debug']['debug'] = true;
+        }
+    }
+    $GLOBALS['debug']['aucasou'] = [$table, $id, $serveur, $requeter];
+    $r = sql_select(
+        $select,
+        $from,
+        $where,
+        $groupby,
+        array_filter($orderby),
+        $limit,
+        $having,
+        $serveur,
+        $requeter
+    );
+    unset($GLOBALS['debug']['aucasou']);
+
+    return $r;
 }
 
 /**
@@ -995,79 +995,79 @@ 
  * @return string
  */
 function calculer_where_to_string($v, $join = 'AND') {
-	if (empty($v)) {
-		return '';
-	}
-
-	if (!is_array($v)) {
-		return $v;
-	} else {
-		$exp = '';
-		if (strtoupper($join) === 'AND') {
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
-		} else {
-			return $exp . join($join, $v);
-		}
-	}
+    if (empty($v)) {
+        return '';
+    }
+
+    if (!is_array($v)) {
+        return $v;
+    } else {
+        $exp = '';
+        if (strtoupper($join) === 'AND') {
+            return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+        } else {
+            return $exp . join($join, $v);
+        }
+    }
 }
 
 
 //condition suffisante (mais non necessaire) pour qu'une table soit utile
 
 function calculer_jointnul($cle, $exp, $equiv = '') {
-	if (!is_array($exp)) {
-		if ($equiv) {
-			$exp = preg_replace($equiv, '', $exp);
-		}
-
-		return preg_match("/\\b$cle\\./", $exp);
-	} else {
-		foreach ($exp as $v) {
-			if (calculer_jointnul($cle, $v, $equiv)) {
-				return true;
-			}
-		}
-
-		return false;
-	}
+    if (!is_array($exp)) {
+        if ($equiv) {
+            $exp = preg_replace($equiv, '', $exp);
+        }
+
+        return preg_match("/\\b$cle\\./", $exp);
+    } else {
+        foreach ($exp as $v) {
+            if (calculer_jointnul($cle, $v, $equiv)) {
+                return true;
+            }
+        }
+
+        return false;
+    }
 }
 
 function reinjecte_joint($afrom, $from) {
-	$from_synth = [];
-	foreach ($from as $k => $v) {
-		$from_synth[$k] = $from[$k];
-		if (isset($afrom[$k])) {
-			foreach ($afrom[$k] as $kk => $vv) {
-				$afrom[$k][$kk] = implode(' ', $afrom[$k][$kk]);
-			}
-			$from_synth["$k@"] = implode(' ', $afrom[$k]);
-			unset($afrom[$k]);
-		}
-	}
-
-	return $from_synth;
+    $from_synth = [];
+    foreach ($from as $k => $v) {
+        $from_synth[$k] = $from[$k];
+        if (isset($afrom[$k])) {
+            foreach ($afrom[$k] as $kk => $vv) {
+                $afrom[$k][$kk] = implode(' ', $afrom[$k][$kk]);
+            }
+            $from_synth["$k@"] = implode(' ', $afrom[$k]);
+            unset($afrom[$k]);
+        }
+    }
+
+    return $from_synth;
 }
 
 function remplacer_jointnul($cle, $exp, $equiv = '') {
-	if (!is_array($exp)) {
-		return preg_replace($equiv, $cle, $exp);
-	} else {
-		foreach ($exp as $k => $v) {
-			$exp[$k] = remplacer_jointnul($cle, $v, $equiv);
-		}
-
-		return $exp;
-	}
+    if (!is_array($exp)) {
+        return preg_replace($equiv, $cle, $exp);
+    } else {
+        foreach ($exp as $k => $v) {
+            $exp[$k] = remplacer_jointnul($cle, $v, $equiv);
+        }
+
+        return $exp;
+    }
 }
 
 // calcul du nom du squelette
 function calculer_nom_fonction_squel($skel, $mime_type = 'html', string $connect = '') {
-	// ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
-	if (($l = strlen(_DIR_RACINE)) && strncmp($skel, _DIR_RACINE, $l) == 0) {
-		$skel = substr($skel, strlen(_DIR_RACINE));
-	}
-
-	return $mime_type
-	. (!$connect ? '' : preg_replace('/\W/', '_', $connect)) . '_'
-	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
+    // ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
+    if (($l = strlen(_DIR_RACINE)) && strncmp($skel, _DIR_RACINE, $l) == 0) {
+        $skel = substr($skel, strlen(_DIR_RACINE));
+    }
+
+    return $mime_type
+    . (!$connect ? '' : preg_replace('/\W/', '_', $connect)) . '_'
+    . md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
 }

ecrire/public/tracer.php

Braces +3 added lines, -6 removed lines

@@ -18,15 +18,13 @@ 
 	if ($trace === '?' || defined('_DEBUG_TRACE_QUERIES')) {
 		if (defined('_DEBUG_TRACE_QUERIES') && _DEBUG_TRACE_QUERIES) {
 			$trace = true;
-		}
-		else {
+		} else {
 			if (empty($GLOBALS['visiteur_session'])) {
 				// si un anonyme fait un var_profile on est oblige de remplir le tableau des temps en attendant de savoir
 				// car ici on ne sait pas si c'est un hit anonyme
 				// ou une requete SQL faite avant chargement de la session
 				$trace = (empty($_GET['var_profile']) ? false : '?');
-			}
-			else {
+			} else {
 				include_spip('inc/autoriser');
 				// gare au bouclage sur calcul de droits au premier appel
 				// A fortiori quand on demande une trace
@@ -47,8 +45,7 @@ 
 			// car ici on ne sait pas si c'est un hit anonyme
 			// ou une requete SQL faite avant chargement de la session
 			$trace = (empty($_GET['var_profile']) ? false : '?');
-		}
-		else {
+		} else {
 			include_spip('inc/autoriser');
 			// gare au bouclage sur calcul de droits au premier appel
 			// A fortiori quand on demande une trace

Indentation +170 added lines, -170 removed lines

@@ -10,187 +10,187 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function trace_query_start() {
-	static $trace = '?';
-	if ($trace === '?' || defined('_DEBUG_TRACE_QUERIES')) {
-		if (defined('_DEBUG_TRACE_QUERIES') && _DEBUG_TRACE_QUERIES) {
-			$trace = true;
-		}
-		else {
-			if (empty($GLOBALS['visiteur_session'])) {
-				// si un anonyme fait un var_profile on est oblige de remplir le tableau des temps en attendant de savoir
-				// car ici on ne sait pas si c'est un hit anonyme
-				// ou une requete SQL faite avant chargement de la session
-				$trace = (empty($_GET['var_profile']) ? false : '?');
-			}
-			else {
-				include_spip('inc/autoriser');
-				// gare au bouclage sur calcul de droits au premier appel
-				// A fortiori quand on demande une trace
-				$trace = false; // on ne trace pas la requete provoquee par autoriser('debug')
-				$trace = (!empty($_GET['var_profile']) && autoriser('debug'));
-			}
-		}
-	}
-
-	return $trace ? microtime() : 0;
+    static $trace = '?';
+    if ($trace === '?' || defined('_DEBUG_TRACE_QUERIES')) {
+        if (defined('_DEBUG_TRACE_QUERIES') && _DEBUG_TRACE_QUERIES) {
+            $trace = true;
+        }
+        else {
+            if (empty($GLOBALS['visiteur_session'])) {
+                // si un anonyme fait un var_profile on est oblige de remplir le tableau des temps en attendant de savoir
+                // car ici on ne sait pas si c'est un hit anonyme
+                // ou une requete SQL faite avant chargement de la session
+                $trace = (empty($_GET['var_profile']) ? false : '?');
+            }
+            else {
+                include_spip('inc/autoriser');
+                // gare au bouclage sur calcul de droits au premier appel
+                // A fortiori quand on demande une trace
+                $trace = false; // on ne trace pas la requete provoquee par autoriser('debug')
+                $trace = (!empty($_GET['var_profile']) && autoriser('debug'));
+            }
+        }
+    }
+
+    return $trace ? microtime() : 0;
 }
 
 function trace_query_end($query, $start, $result, $erreur, $serveur = '') {
-	static $trace = '?';
-	if ($trace === '?') {
-		if (empty($GLOBALS['visiteur_session'])) {
-			// si un anonyme fait un var_profile on est oblige de remplir le tableau des temps en attendant de savoir
-			// car ici on ne sait pas si c'est un hit anonyme
-			// ou une requete SQL faite avant chargement de la session
-			$trace = (empty($_GET['var_profile']) ? false : '?');
-		}
-		else {
-			include_spip('inc/autoriser');
-			// gare au bouclage sur calcul de droits au premier appel
-			// A fortiori quand on demande une trace
-			$trace = false; // on ne trace pas la requete provoquee par autoriser('debug')
-			$trace = (!empty($_GET['var_profile']) && autoriser('debug'));
-		}
-	}
-	if ($start) {
-		$end = microtime();
-		[$usec, $sec] = explode(' ', (string) $start);
-		[$usec2, $sec2] = explode(' ', $end);
-		$dt = $sec2 + $usec2 - $sec - $usec;
-		pipeline('trig_trace_query', ['query' => $query, 'start' => $start, 'end' => $end, 'time' => $dt, 'result' => $result, 'erreur' => $erreur, 'serveur' => $serveur]);
-		if ($trace) {
-			trace_query_chrono($dt, $query, $result, $serveur);
-		}
-	}
-	// tracer les erreurs, sauf pour select, c'est fait dans abstract_sql
-	if ($trace && $erreur && !preg_match('/^select\b/i', (string) $query)) {
-		erreur_squelette([sql_errno($serveur), $erreur, $query]);
-	}
-
-	return $result;
+    static $trace = '?';
+    if ($trace === '?') {
+        if (empty($GLOBALS['visiteur_session'])) {
+            // si un anonyme fait un var_profile on est oblige de remplir le tableau des temps en attendant de savoir
+            // car ici on ne sait pas si c'est un hit anonyme
+            // ou une requete SQL faite avant chargement de la session
+            $trace = (empty($_GET['var_profile']) ? false : '?');
+        }
+        else {
+            include_spip('inc/autoriser');
+            // gare au bouclage sur calcul de droits au premier appel
+            // A fortiori quand on demande une trace
+            $trace = false; // on ne trace pas la requete provoquee par autoriser('debug')
+            $trace = (!empty($_GET['var_profile']) && autoriser('debug'));
+        }
+    }
+    if ($start) {
+        $end = microtime();
+        [$usec, $sec] = explode(' ', (string) $start);
+        [$usec2, $sec2] = explode(' ', $end);
+        $dt = $sec2 + $usec2 - $sec - $usec;
+        pipeline('trig_trace_query', ['query' => $query, 'start' => $start, 'end' => $end, 'time' => $dt, 'result' => $result, 'erreur' => $erreur, 'serveur' => $serveur]);
+        if ($trace) {
+            trace_query_chrono($dt, $query, $result, $serveur);
+        }
+    }
+    // tracer les erreurs, sauf pour select, c'est fait dans abstract_sql
+    if ($trace && $erreur && !preg_match('/^select\b/i', (string) $query)) {
+        erreur_squelette([sql_errno($serveur), $erreur, $query]);
+    }
+
+    return $result;
 }
 
 function trace_query_chrono($dt, $query, $result, $serveur = '') {
-	include_spip('inc/filtres_mini');
-	static $tt = 0, $nb = 0;
-
-	$x = _request('var_mode_objet');
-	if (isset($GLOBALS['debug']['aucasou'])) {
-		[, $boucle, $serveur, $contexte] = $GLOBALS['debug']['aucasou'];
-		if ($x && !preg_match("/$boucle\$/", (string) $x)) {
-			return;
-		}
-		if ($serveur) {
-			$boucle .= " ($serveur)";
-		}
-		$boucle = "<b>$boucle</b>";
-	} else {
-		if ($x) {
-			return;
-		}
-		$boucle = $contexte = '';
-	}
-
-	$tt += $dt;
-	$nb++;
-
-	$q = preg_replace('/([a-z)`])\s+([A-Z])/', "$1\n<br />$2", spip_htmlentities($query));
-	$e = sql_explain($query, $serveur);
-	$r = str_replace('Resource id ', '', (is_object($result) ? $result::class : $result));
-	$GLOBALS['tableau_des_temps'][] = [$dt, $nb, $boucle, $q, $e, $r, $contexte];
+    include_spip('inc/filtres_mini');
+    static $tt = 0, $nb = 0;
+
+    $x = _request('var_mode_objet');
+    if (isset($GLOBALS['debug']['aucasou'])) {
+        [, $boucle, $serveur, $contexte] = $GLOBALS['debug']['aucasou'];
+        if ($x && !preg_match("/$boucle\$/", (string) $x)) {
+            return;
+        }
+        if ($serveur) {
+            $boucle .= " ($serveur)";
+        }
+        $boucle = "<b>$boucle</b>";
+    } else {
+        if ($x) {
+            return;
+        }
+        $boucle = $contexte = '';
+    }
+
+    $tt += $dt;
+    $nb++;
+
+    $q = preg_replace('/([a-z)`])\s+([A-Z])/', "$1\n<br />$2", spip_htmlentities($query));
+    $e = sql_explain($query, $serveur);
+    $r = str_replace('Resource id ', '', (is_object($result) ? $result::class : $result));
+    $GLOBALS['tableau_des_temps'][] = [$dt, $nb, $boucle, $q, $e, $r, $contexte];
 }
 
 
 function chrono_requete($temps) {
-	$total = 0;
-	$hors = '<i>' . _T('zbug_hors_compilation') . '</i>';
-	$t = $q = $n = $d = [];
-	// Totaliser les temps et completer le Explain
-	foreach ($temps as $key => $v) {
-		[$dt, $nb, $boucle, $query, $explain, $res, $contexte] = $v;
-		if (is_array($contexte)) {
-			$k = ($contexte[0] . " $boucle");
-			include_spip('public/compiler');
-			$env = reconstruire_contexte_compil($contexte);
-		} else {
-			$k = $env = $boucle;
-		}
-
-		$total += $dt;
-		$t[$key] = $dt;
-		$q[$key] = $nb;
-		if (!isset($d[$k])) {
-			$d[$k] = 0;
-			$n[$k] = 0;
-		}
-		$d[$k] += $dt;
-		++$n[$k];
-
-		if (!is_array($explain)) {
-			$explain = [];
-		}
-		foreach ($explain as $j => $v) {
-			$explain[$j] = "<tr><th>$j</th><td>"
-				. str_replace(';', '<br />', (string) $v)
-				. '</td></tr>';
-		}
-		$e = "<table class='explain'>"
-			. '<caption>'
-			. $query
-			. '</caption>'
-			. "<tr><th>Time</th><td>$dt</td></tr>"
-			. "<tr><th>Order</th><td>$nb</td></tr>"
-			. "<tr><th>Res</th><td>$res</td></tr>"
-			. implode('', $explain)
-			. '</table>';
-
-		$temps[$key] = [$e, $env, $k];
-	}
-	// Trier par temps d'execution decroissant
-	array_multisort($t, SORT_DESC, $q, $temps);
-	arsort($d);
-	$i = 1;
-	$t = [];
-	// Fabriquer les liens de navigations dans le tableau des temps
-	foreach ($temps as $k => $v) {
-		$titre = strip_tags((string) $v[2]);
-		$href = quote_amp($GLOBALS['REQUEST_URI']) . "#req$i";
-		$href = str_replace("\\'", '&#39;', $href);
-
-		if (!isset($t[$v[2]])) {
-			$t[$v[2]] = [];
-		}
-		$t[$v[2]][] = "<span class='spip-debug-arg'> "
-			. "<a title='$titre' href='$href'>$i</a>"
-			. '</span>'
-			. ((count($t[$v[2]]) % 10 == 9) ? '<br />' : '');
-		$i++;
-	}
-
-	if ($d['']) {
-		$d[$hors] = $d[''];
-		$n[$hors] = $n[''];
-		$t[$hors] = $t[''];
-	}
-	unset($d['']);
-	// Fabriquer le tableau des liens de navigation dans le grand tableau
-	foreach ($d as $k => $v) {
-		$d[$k] = $n[$k] . "</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>"
-			. implode('', $t[$k]);
-	}
-
-	$navigation = [
-		_T('zbug_statistiques'),
-		'<tr><td>'
-		. implode("</td></tr>\n<tr><td>", $d)
-		. "</td></tr>\n"
-		. (# _request('var_mode_objet') ? '' :
-		('<tr><td>' . (is_countable($temps) ? count($temps) : 0) . '</td><td>' . _T('info_total') . '</td><td class="time">' . $total . '</td><td></td></tr>'))
-	];
-
-	return [$temps, $navigation];
+    $total = 0;
+    $hors = '<i>' . _T('zbug_hors_compilation') . '</i>';
+    $t = $q = $n = $d = [];
+    // Totaliser les temps et completer le Explain
+    foreach ($temps as $key => $v) {
+        [$dt, $nb, $boucle, $query, $explain, $res, $contexte] = $v;
+        if (is_array($contexte)) {
+            $k = ($contexte[0] . " $boucle");
+            include_spip('public/compiler');
+            $env = reconstruire_contexte_compil($contexte);
+        } else {
+            $k = $env = $boucle;
+        }
+
+        $total += $dt;
+        $t[$key] = $dt;
+        $q[$key] = $nb;
+        if (!isset($d[$k])) {
+            $d[$k] = 0;
+            $n[$k] = 0;
+        }
+        $d[$k] += $dt;
+        ++$n[$k];
+
+        if (!is_array($explain)) {
+            $explain = [];
+        }
+        foreach ($explain as $j => $v) {
+            $explain[$j] = "<tr><th>$j</th><td>"
+                . str_replace(';', '<br />', (string) $v)
+                . '</td></tr>';
+        }
+        $e = "<table class='explain'>"
+            . '<caption>'
+            . $query
+            . '</caption>'
+            . "<tr><th>Time</th><td>$dt</td></tr>"
+            . "<tr><th>Order</th><td>$nb</td></tr>"
+            . "<tr><th>Res</th><td>$res</td></tr>"
+            . implode('', $explain)
+            . '</table>';
+
+        $temps[$key] = [$e, $env, $k];
+    }
+    // Trier par temps d'execution decroissant
+    array_multisort($t, SORT_DESC, $q, $temps);
+    arsort($d);
+    $i = 1;
+    $t = [];
+    // Fabriquer les liens de navigations dans le tableau des temps
+    foreach ($temps as $k => $v) {
+        $titre = strip_tags((string) $v[2]);
+        $href = quote_amp($GLOBALS['REQUEST_URI']) . "#req$i";
+        $href = str_replace("\\'", '&#39;', $href);
+
+        if (!isset($t[$v[2]])) {
+            $t[$v[2]] = [];
+        }
+        $t[$v[2]][] = "<span class='spip-debug-arg'> "
+            . "<a title='$titre' href='$href'>$i</a>"
+            . '</span>'
+            . ((count($t[$v[2]]) % 10 == 9) ? '<br />' : '');
+        $i++;
+    }
+
+    if ($d['']) {
+        $d[$hors] = $d[''];
+        $n[$hors] = $n[''];
+        $t[$hors] = $t[''];
+    }
+    unset($d['']);
+    // Fabriquer le tableau des liens de navigation dans le grand tableau
+    foreach ($d as $k => $v) {
+        $d[$k] = $n[$k] . "</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>"
+            . implode('', $t[$k]);
+    }
+
+    $navigation = [
+        _T('zbug_statistiques'),
+        '<tr><td>'
+        . implode("</td></tr>\n<tr><td>", $d)
+        . "</td></tr>\n"
+        . (# _request('var_mode_objet') ? '' :
+        ('<tr><td>' . (is_countable($temps) ? count($temps) : 0) . '</td><td>' . _T('info_total') . '</td><td class="time">' . $total . '</td><td></td></tr>'))
+    ];
+
+    return [$temps, $navigation];
 }

Spacing +5 added lines, -5 removed lines

@@ -107,13 +107,13 @@ 
 
 function chrono_requete($temps) {
 	$total = 0;
-	$hors = '<i>' . _T('zbug_hors_compilation') . '</i>';
+	$hors = '<i>'._T('zbug_hors_compilation').'</i>';
 	$t = $q = $n = $d = [];
 	// Totaliser les temps et completer le Explain
 	foreach ($temps as $key => $v) {
 		[$dt, $nb, $boucle, $query, $explain, $res, $contexte] = $v;
 		if (is_array($contexte)) {
-			$k = ($contexte[0] . " $boucle");
+			$k = ($contexte[0]." $boucle");
 			include_spip('public/compiler');
 			$env = reconstruire_contexte_compil($contexte);
 		} else {
@@ -158,7 +158,7 @@ 
 	// Fabriquer les liens de navigations dans le tableau des temps
 	foreach ($temps as $k => $v) {
 		$titre = strip_tags((string) $v[2]);
-		$href = quote_amp($GLOBALS['REQUEST_URI']) . "#req$i";
+		$href = quote_amp($GLOBALS['REQUEST_URI'])."#req$i";
 		$href = str_replace("\\'", '&#39;', $href);
 
 		if (!isset($t[$v[2]])) {
@@ -179,7 +179,7 @@ 
 	unset($d['']);
 	// Fabriquer le tableau des liens de navigation dans le grand tableau
 	foreach ($d as $k => $v) {
-		$d[$k] = $n[$k] . "</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>"
+		$d[$k] = $n[$k]."</td><td>$k</td><td class='time'>$v</td><td class='liste-reqs'>"
 			. implode('', $t[$k]);
 	}
 
@@ -189,7 +189,7 @@ 
 		. implode("</td></tr>\n<tr><td>", $d)
 		. "</td></tr>\n"
 		. (# _request('var_mode_objet') ? '' :
-		('<tr><td>' . (is_countable($temps) ? count($temps) : 0) . '</td><td>' . _T('info_total') . '</td><td class="time">' . $total . '</td><td></td></tr>'))
+		('<tr><td>'.(is_countable($temps) ? count($temps) : 0).'</td><td>'._T('info_total').'</td><td class="time">'.$total.'</td><td></td></tr>'))
 	];
 
 	return [$temps, $navigation];

ecrire/action/tester_taille.php

Spacing +4 added lines, -4 removed lines

@@ -75,7 +75,7 @@ 
 		$t = ($GLOBALS['taille_min'] * $GLOBALS['taille_min']);
 		if ($GLOBALS['taille_min'] !== $GLOBALS['taille_max']) {
 			$t *= 0.9; // marge de securite
-			echo round($t / 1_000_000, 3) . ' Mpx';
+			echo round($t / 1_000_000, 3).' Mpx';
 		} else {
 			// c'est un cas "on a reussi la borne max initiale, donc on a pas de limite connue"
 			$t = 0;
@@ -111,19 +111,19 @@ 
 	$image_source = chemin_image('test.png');
 	$GLOBALS['redirect'] = generer_url_action(
 		'tester_taille',
-		"i=$i&arg=" . $GLOBALS['taille_min'] . '-' . $GLOBALS['taille_test']
+		"i=$i&arg=".$GLOBALS['taille_min'].'-'.$GLOBALS['taille_test']
 	);
 
 	ob_start('action_tester_taille_error_handler');
 	filtrer('image_recadre', $image_source, $taille, $taille);
-	$GLOBALS['redirect'] = generer_url_action('tester_taille', "i=$i&arg=$taille-" . $GLOBALS['taille_max']);
+	$GLOBALS['redirect'] = generer_url_action('tester_taille', "i=$i&arg=$taille-".$GLOBALS['taille_max']);
 
 	// si la valeur intermediaire a reussi, on teste la valeur maxi qui est peut etre sous estimee
 	// si $GLOBALS['taille_min']==0 (car on est au premier coup)
 	if ($GLOBALS['taille_min'] == 0) {
 		$taille = $GLOBALS['taille_max'];
 		filtrer('image_recadre', $image_source, $taille, $taille);
-		$GLOBALS['redirect'] = generer_url_action('tester_taille', "i=$i&arg=$taille-" . $GLOBALS['taille_max']);
+		$GLOBALS['redirect'] = generer_url_action('tester_taille', "i=$i&arg=$taille-".$GLOBALS['taille_max']);
 	}
 	ob_end_clean();
 

Indentation +79 added lines, -79 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('inc/headers');
 
@@ -34,12 +34,12 @@ 
  *     Sortie du buffer
  **/
 function action_tester_taille_error_handler($output) {
-	// on est ici, donc echec lors de la creation de l'image
-	if (!empty($GLOBALS['redirect'])) {
-		return redirige_formulaire($GLOBALS['redirect']);
-	}
+    // on est ici, donc echec lors de la creation de l'image
+    if (!empty($GLOBALS['redirect'])) {
+        return redirige_formulaire($GLOBALS['redirect']);
+    }
 
-	return $output;
+    return $output;
 }
 
 
@@ -57,77 +57,77 @@ 
  **/
 function action_tester_taille_dist() {
 
-	if (!autoriser('configurer')) {
-		return;
-	}
-
-	$taille = _request('arg');
-	$taille = explode('-', (string) $taille);
-
-	$GLOBALS['taille_max'] = end($taille);
-	$GLOBALS['taille_min'] = 0;
-	if (count($taille) > 1) {
-		$GLOBALS['taille_min'] = reset($taille);
-	}
-
-	// si l'intervalle est assez petit, on garde la valeur min
-	if ($GLOBALS['taille_max'] * $GLOBALS['taille_max'] - $GLOBALS['taille_min'] * $GLOBALS['taille_min'] < 50000) {
-		$t = ($GLOBALS['taille_min'] * $GLOBALS['taille_min']);
-		if ($GLOBALS['taille_min'] !== $GLOBALS['taille_max']) {
-			$t *= 0.9; // marge de securite
-			echo round($t / 1_000_000, 3) . ' Mpx';
-		} else {
-			// c'est un cas "on a reussi la borne max initiale, donc on a pas de limite connue"
-			$t = 0;
-			echo '&infin;';
-		}
-		ecrire_meta('max_taille_vignettes', $t, 'non');
-		die();
-	}
-
-	$taille = $GLOBALS['taille_test'] = round(($GLOBALS['taille_max'] + $GLOBALS['taille_min']) / 2);
-
-	include_spip('inc/filtres');
-	// des inclusions representatives d'un hit prive et/ou public pour la conso memoire
-	include_spip('public/assembler');
-	include_spip('public/balises');
-	include_spip('public/boucles');
-	include_spip('public/cacher');
-	include_spip('public/compiler');
-	include_spip('public/composer');
-	include_spip('public/criteres');
-	include_spip('public/interfaces');
-	include_spip('public/parametrer');
-	include_spip('public/phraser_html');
-	include_spip('public/references');
-
-	include_spip('inc/presentation');
-	include_spip('inc/charsets');
-	include_spip('inc/documents');
-	include_spip('inc/header');
-	propre('<doc1>'); // charger propre avec le trairement d'un modele
-
-	$i = _request('i') + 1;
-	$image_source = chemin_image('test.png');
-	$GLOBALS['redirect'] = generer_url_action(
-		'tester_taille',
-		"i=$i&arg=" . $GLOBALS['taille_min'] . '-' . $GLOBALS['taille_test']
-	);
-
-	ob_start('action_tester_taille_error_handler');
-	filtrer('image_recadre', $image_source, $taille, $taille);
-	$GLOBALS['redirect'] = generer_url_action('tester_taille', "i=$i&arg=$taille-" . $GLOBALS['taille_max']);
-
-	// si la valeur intermediaire a reussi, on teste la valeur maxi qui est peut etre sous estimee
-	// si $GLOBALS['taille_min']==0 (car on est au premier coup)
-	if ($GLOBALS['taille_min'] == 0) {
-		$taille = $GLOBALS['taille_max'];
-		filtrer('image_recadre', $image_source, $taille, $taille);
-		$GLOBALS['redirect'] = generer_url_action('tester_taille', "i=$i&arg=$taille-" . $GLOBALS['taille_max']);
-	}
-	ob_end_clean();
-
-
-	// on est ici, donc pas de plantage
-	echo redirige_formulaire($GLOBALS['redirect']);
+    if (!autoriser('configurer')) {
+        return;
+    }
+
+    $taille = _request('arg');
+    $taille = explode('-', (string) $taille);
+
+    $GLOBALS['taille_max'] = end($taille);
+    $GLOBALS['taille_min'] = 0;
+    if (count($taille) > 1) {
+        $GLOBALS['taille_min'] = reset($taille);
+    }
+
+    // si l'intervalle est assez petit, on garde la valeur min
+    if ($GLOBALS['taille_max'] * $GLOBALS['taille_max'] - $GLOBALS['taille_min'] * $GLOBALS['taille_min'] < 50000) {
+        $t = ($GLOBALS['taille_min'] * $GLOBALS['taille_min']);
+        if ($GLOBALS['taille_min'] !== $GLOBALS['taille_max']) {
+            $t *= 0.9; // marge de securite
+            echo round($t / 1_000_000, 3) . ' Mpx';
+        } else {
+            // c'est un cas "on a reussi la borne max initiale, donc on a pas de limite connue"
+            $t = 0;
+            echo '&infin;';
+        }
+        ecrire_meta('max_taille_vignettes', $t, 'non');
+        die();
+    }
+
+    $taille = $GLOBALS['taille_test'] = round(($GLOBALS['taille_max'] + $GLOBALS['taille_min']) / 2);
+
+    include_spip('inc/filtres');
+    // des inclusions representatives d'un hit prive et/ou public pour la conso memoire
+    include_spip('public/assembler');
+    include_spip('public/balises');
+    include_spip('public/boucles');
+    include_spip('public/cacher');
+    include_spip('public/compiler');
+    include_spip('public/composer');
+    include_spip('public/criteres');
+    include_spip('public/interfaces');
+    include_spip('public/parametrer');
+    include_spip('public/phraser_html');
+    include_spip('public/references');
+
+    include_spip('inc/presentation');
+    include_spip('inc/charsets');
+    include_spip('inc/documents');
+    include_spip('inc/header');
+    propre('<doc1>'); // charger propre avec le trairement d'un modele
+
+    $i = _request('i') + 1;
+    $image_source = chemin_image('test.png');
+    $GLOBALS['redirect'] = generer_url_action(
+        'tester_taille',
+        "i=$i&arg=" . $GLOBALS['taille_min'] . '-' . $GLOBALS['taille_test']
+    );
+
+    ob_start('action_tester_taille_error_handler');
+    filtrer('image_recadre', $image_source, $taille, $taille);
+    $GLOBALS['redirect'] = generer_url_action('tester_taille', "i=$i&arg=$taille-" . $GLOBALS['taille_max']);
+
+    // si la valeur intermediaire a reussi, on teste la valeur maxi qui est peut etre sous estimee
+    // si $GLOBALS['taille_min']==0 (car on est au premier coup)
+    if ($GLOBALS['taille_min'] == 0) {
+        $taille = $GLOBALS['taille_max'];
+        filtrer('image_recadre', $image_source, $taille, $taille);
+        $GLOBALS['redirect'] = generer_url_action('tester_taille', "i=$i&arg=$taille-" . $GLOBALS['taille_max']);
+    }
+    ob_end_clean();
+
+
+    // on est ici, donc pas de plantage
+    echo redirige_formulaire($GLOBALS['redirect']);
 }

ecrire/action/supprimer_rubrique.php

Indentation +38 added lines, -38 removed lines

@@ -16,7 +16,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/charsets');  # pour le nom de fichier
@@ -29,45 +29,45 @@ 
  */
 function action_supprimer_rubrique_dist($id_rubrique = null) {
 
-	if (is_null($id_rubrique)) {
-		$securiser_action = charger_fonction('securiser_action', 'inc');
-		$id_rubrique = $securiser_action();
-	}
+    if (is_null($id_rubrique)) {
+        $securiser_action = charger_fonction('securiser_action', 'inc');
+        $id_rubrique = $securiser_action();
+    }
 
-	if ((int) $id_rubrique) {
-		sql_delete('spip_rubriques', 'id_rubrique=' . (int) $id_rubrique);
-		// Les admin restreints qui n'administraient que cette rubrique
-		// deviennent redacteurs
-		// (il y a sans doute moyen de faire ca avec un having)
+    if ((int) $id_rubrique) {
+        sql_delete('spip_rubriques', 'id_rubrique=' . (int) $id_rubrique);
+        // Les admin restreints qui n'administraient que cette rubrique
+        // deviennent redacteurs
+        // (il y a sans doute moyen de faire ca avec un having)
 
-		$q = sql_select('id_auteur', 'spip_auteurs_liens', "objet='rubrique' AND id_objet=" . (int) $id_rubrique);
-		while ($r = sql_fetch($q)) {
-			$id_auteur = $r['id_auteur'];
-			// degrader avant de supprimer la restriction d'admin
-			// section critique sur les droits
-			$n = sql_countsel(
-				'spip_auteurs_liens',
-				"objet='rubrique' AND id_objet!=" . (int) $id_rubrique . ' AND id_auteur=' . (int) $id_auteur
-			);
-			if (!$n) {
-				include_spip('action/editer_auteur');
-				auteur_modifier($id_auteur, ['statut' => '1comite']);
-			}
-			sql_delete(
-				'spip_auteurs_liens',
-				"objet='rubrique' AND id_objet=" . (int) $id_rubrique . ' AND id_auteur=' . (int) $id_auteur
-			);
-		}
-		// menu_rubriques devra recalculer
-		effacer_meta('date_calcul_rubriques');
+        $q = sql_select('id_auteur', 'spip_auteurs_liens', "objet='rubrique' AND id_objet=" . (int) $id_rubrique);
+        while ($r = sql_fetch($q)) {
+            $id_auteur = $r['id_auteur'];
+            // degrader avant de supprimer la restriction d'admin
+            // section critique sur les droits
+            $n = sql_countsel(
+                'spip_auteurs_liens',
+                "objet='rubrique' AND id_objet!=" . (int) $id_rubrique . ' AND id_auteur=' . (int) $id_auteur
+            );
+            if (!$n) {
+                include_spip('action/editer_auteur');
+                auteur_modifier($id_auteur, ['statut' => '1comite']);
+            }
+            sql_delete(
+                'spip_auteurs_liens',
+                "objet='rubrique' AND id_objet=" . (int) $id_rubrique . ' AND id_auteur=' . (int) $id_auteur
+            );
+        }
+        // menu_rubriques devra recalculer
+        effacer_meta('date_calcul_rubriques');
 
-		// Une rubrique supprimable n'avait pas le statut "publie"
-		// donc rien de neuf pour la rubrique parente
-		include_spip('inc/rubriques');
-		calculer_langues_rubriques();
+        // Une rubrique supprimable n'avait pas le statut "publie"
+        // donc rien de neuf pour la rubrique parente
+        include_spip('inc/rubriques');
+        calculer_langues_rubriques();
 
-		// invalider les caches marques de cette rubrique
-		include_spip('inc/invalideur');
-		suivre_invalideur("id='rubrique/$id_rubrique'");
-	}
+        // invalider les caches marques de cette rubrique
+        include_spip('inc/invalideur');
+        suivre_invalideur("id='rubrique/$id_rubrique'");
+    }
 }

Spacing +5 added lines, -5 removed lines

@@ -19,7 +19,7 @@ 
 	return;
 }
 
-include_spip('inc/charsets');  # pour le nom de fichier
+include_spip('inc/charsets'); # pour le nom de fichier
 
 /**
  * Effacer une rubrique
@@ -35,19 +35,19 @@ 
 	}
 
 	if ((int) $id_rubrique) {
-		sql_delete('spip_rubriques', 'id_rubrique=' . (int) $id_rubrique);
+		sql_delete('spip_rubriques', 'id_rubrique='.(int) $id_rubrique);
 		// Les admin restreints qui n'administraient que cette rubrique
 		// deviennent redacteurs
 		// (il y a sans doute moyen de faire ca avec un having)
 
-		$q = sql_select('id_auteur', 'spip_auteurs_liens', "objet='rubrique' AND id_objet=" . (int) $id_rubrique);
+		$q = sql_select('id_auteur', 'spip_auteurs_liens', "objet='rubrique' AND id_objet=".(int) $id_rubrique);
 		while ($r = sql_fetch($q)) {
 			$id_auteur = $r['id_auteur'];
 			// degrader avant de supprimer la restriction d'admin
 			// section critique sur les droits
 			$n = sql_countsel(
 				'spip_auteurs_liens',
-				"objet='rubrique' AND id_objet!=" . (int) $id_rubrique . ' AND id_auteur=' . (int) $id_auteur
+				"objet='rubrique' AND id_objet!=".(int) $id_rubrique.' AND id_auteur='.(int) $id_auteur
 			);
 			if (!$n) {
 				include_spip('action/editer_auteur');
@@ -55,7 +55,7 @@ 
 			}
 			sql_delete(
 				'spip_auteurs_liens',
-				"objet='rubrique' AND id_objet=" . (int) $id_rubrique . ' AND id_auteur=' . (int) $id_auteur
+				"objet='rubrique' AND id_objet=".(int) $id_rubrique.' AND id_auteur='.(int) $id_auteur
 			);
 		}
 		// menu_rubriques devra recalculer

ecrire/urls/page.php

Indentation +31 added lines, -31 removed lines

@@ -10,7 +10,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 defined('URLS_PAGE_EXEMPLE') || define('URLS_PAGE_EXEMPLE', 'spip.php?article12');
@@ -29,23 +29,23 @@ 
  */
 function urls_page_generer_url_objet_dist(int $id, string $objet, string $args = '', string $ancre = ''): string {
 
-	if ($generer_url_externe = charger_fonction_url($objet, 'defaut')) {
-		$url = $generer_url_externe($id, $args, $ancre);
-		// une url === null indique "je ne traite pas cette url, appliquez le calcul standard"
-		// une url vide est une url vide, ne rien faire de plus
-		if (!is_null($url)) {
-			return $url;
-		}
-	}
+    if ($generer_url_externe = charger_fonction_url($objet, 'defaut')) {
+        $url = $generer_url_externe($id, $args, $ancre);
+        // une url === null indique "je ne traite pas cette url, appliquez le calcul standard"
+        // une url vide est une url vide, ne rien faire de plus
+        if (!is_null($url)) {
+            return $url;
+        }
+    }
 
-	$url = \_debut_urls_page . $objet . \_separateur_urls_page
-		. $id . \_terminaison_urls_page;
+    $url = \_debut_urls_page . $objet . \_separateur_urls_page
+        . $id . \_terminaison_urls_page;
 
-	if ($args) {
-		$args = strpos($url, '?') ? "&$args" : "?$args";
-	}
+    if ($args) {
+        $args = strpos($url, '?') ? "&$args" : "?$args";
+    }
 
-	return _DIR_RACINE . $url . $args . ($ancre ? "#$ancre" : '');
+    return _DIR_RACINE . $url . $args . ($ancre ? "#$ancre" : '');
 }
 
 /**
@@ -61,27 +61,27 @@ 
  */
 function urls_page_decoder_url_dist(string $url, string $entite, array $contexte = []): array {
 
-	// traiter les injections du type domaine.org/spip.php/cestnimportequoi/ou/encore/plus/rubrique23
-	if ($GLOBALS['profondeur_url'] > 0 && $entite == 'sommaire') {
-		return [[], '404'];
-	}
+    // traiter les injections du type domaine.org/spip.php/cestnimportequoi/ou/encore/plus/rubrique23
+    if ($GLOBALS['profondeur_url'] > 0 && $entite == 'sommaire') {
+        return [[], '404'];
+    }
 
-	include_spip('inc/urls');
-	$r = nettoyer_url_page($url, $contexte);
-	if ($r) {
-		array_pop($r); // nettoyer_url_page renvoie un argument de plus inutile ici
-		return $r;
-	}
+    include_spip('inc/urls');
+    $r = nettoyer_url_page($url, $contexte);
+    if ($r) {
+        array_pop($r); // nettoyer_url_page renvoie un argument de plus inutile ici
+        return $r;
+    }
 
-	/*
+    /*
 	 * Le bloc qui suit sert a faciliter les transitions depuis
 	 * le mode 'urls-propres' vers les modes 'urls-standard' et 'url-html'
 	 * Il est inutile de le recopier si vous personnalisez vos URLs
 	 * et votre .htaccess
 	 */
-	// Si on est revenu en mode html, mais c'est une ancienne url_propre
-	// on ne redirige pas, on assume le nouveau contexte (si possible)
-	$url_propre = $url ?? $_SERVER['REDIRECT_url_propre'] ?? $_ENV['url_propre'] ?? '';
-	return urls_transition_retrouver_anciennes_url_propres($url_propre, $entite, $contexte);
-	/* Fin du bloc compatibilite url-propres */
+    // Si on est revenu en mode html, mais c'est une ancienne url_propre
+    // on ne redirige pas, on assume le nouveau contexte (si possible)
+    $url_propre = $url ?? $_SERVER['REDIRECT_url_propre'] ?? $_ENV['url_propre'] ?? '';
+    return urls_transition_retrouver_anciennes_url_propres($url_propre, $entite, $contexte);
+    /* Fin du bloc compatibilite url-propres */
 }

Spacing +4 added lines, -4 removed lines

@@ -22,7 +22,7 @@ 
 # attention toutefois seuls '' et '=' figurent dans les modes de compatibilite
 define('_separateur_urls_page', '');
 # on peut indiquer '' si on a installe le .htaccess
-define('_debut_urls_page', get_spip_script('./') . '?');
+define('_debut_urls_page', get_spip_script('./').'?');
 #######
 /**
  * Generer l'url d'un objet SPIP
@@ -38,14 +38,14 @@ 
 		}
 	}
 
-	$url = \_debut_urls_page . $objet . \_separateur_urls_page
-		. $id . \_terminaison_urls_page;
+	$url = \_debut_urls_page.$objet.\_separateur_urls_page
+		. $id.\_terminaison_urls_page;
 
 	if ($args) {
 		$args = strpos($url, '?') ? "&$args" : "?$args";
 	}
 
-	return _DIR_RACINE . $url . $args . ($ancre ? "#$ancre" : '');
+	return _DIR_RACINE.$url.$args.($ancre ? "#$ancre" : '');
 }
 
 /**

ecrire/balise/id_logo_.php

Spacing +2 added lines, -2 removed lines

@@ -126,10 +126,10 @@
 	$code = "quete_logo('$id_objet', '$onoff', $_id_objet, $_id_rubrique)";
 
 	if ($champ) {
-		return "table_valeur($code, '" . addslashes($champ) . "')";
+		return "table_valeur($code, '".addslashes($champ)."')";
 	}
 
 	$align = preg_replace(',\W,', '', $align);
 
-	return "quete_html_logo($code, '$align', " . ($_lien ?: "''") . ')';
+	return "quete_html_logo($code, '$align', ".($_lien ?: "''").')';
 }

Indentation +51 added lines, -51 removed lines

@@ -16,7 +16,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -48,38 +48,38 @@ 
  */
 function balise_ID_LOGO__dist($p) {
 
-	preg_match(',^ID_LOGO_([A-Z_]+?)(|_NORMAL|_SURVOL|_RUBRIQUE)$,i', $p->nom_champ, $regs);
-	$type = strtolower($regs[1]);
-	$suite_logo = $regs[2];
-
-	// cas de #ID_LOGO_SITE_SPIP
-	if ($type == 'site_spip') {
-		$type = 'site';
-		$_id_objet = "\"'0'\"";
-	}
-
-	$id_objet = id_table_objet($type);
-	if (!isset($_id_objet)) {
-		$_id_objet = champ_sql($id_objet, $p);
-	}
-
-	$connect = $p->id_boucle ? $p->boucles[$p->id_boucle]->sql_serveur : '';
-	if ($type == 'document') {
-		$qconnect = _q($connect);
-		$doc = "quete_document($_id_objet, $qconnect)";
-		$code = "table_valeur($doc, 'id_vignette')";
-	} elseif ($connect) {
-		$code = "''";
-		spip_logger()->info('Les logos distants ne sont pas prevus');
-	} else {
-		$champ_logo = 'id';
-		$code = generer_code_logo($id_objet, $_id_objet, $type, '', "''", $p, $suite_logo, $champ_logo);
-	}
-
-	$p->code = $code;
-	$p->interdire_scripts = false;
-
-	return $p;
+    preg_match(',^ID_LOGO_([A-Z_]+?)(|_NORMAL|_SURVOL|_RUBRIQUE)$,i', $p->nom_champ, $regs);
+    $type = strtolower($regs[1]);
+    $suite_logo = $regs[2];
+
+    // cas de #ID_LOGO_SITE_SPIP
+    if ($type == 'site_spip') {
+        $type = 'site';
+        $_id_objet = "\"'0'\"";
+    }
+
+    $id_objet = id_table_objet($type);
+    if (!isset($_id_objet)) {
+        $_id_objet = champ_sql($id_objet, $p);
+    }
+
+    $connect = $p->id_boucle ? $p->boucles[$p->id_boucle]->sql_serveur : '';
+    if ($type == 'document') {
+        $qconnect = _q($connect);
+        $doc = "quete_document($_id_objet, $qconnect)";
+        $code = "table_valeur($doc, 'id_vignette')";
+    } elseif ($connect) {
+        $code = "''";
+        spip_logger()->info('Les logos distants ne sont pas prevus');
+    } else {
+        $champ_logo = 'id';
+        $code = generer_code_logo($id_objet, $_id_objet, $type, '', "''", $p, $suite_logo, $champ_logo);
+    }
+
+    $p->code = $code;
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 /**
@@ -108,28 +108,28 @@ 
  *     Code compilé retournant le chemin du logo ou le code HTML du logo.
  **/
 function generer_code_logo($id_objet, $_id_objet, $type, $align, $_lien, $p, $suite, string $champ = ''): string {
-	$onoff = 'ON';
-	$_id_rubrique = "''";
+    $onoff = 'ON';
+    $_id_rubrique = "''";
 
-	if ($type === 'rubrique') {
-		$_id_rubrique = "quete_parent($_id_objet)";
-	}
+    if ($type === 'rubrique') {
+        $_id_rubrique = "quete_parent($_id_objet)";
+    }
 
-	if ($suite === '_SURVOL') {
-		$onoff = 'off';
-	} elseif ($suite === '_NORMAL') {
-		$onoff = 'on';
-	} elseif ($suite === '_RUBRIQUE') {
-		$_id_rubrique = champ_sql('id_rubrique', $p);
-	}
+    if ($suite === '_SURVOL') {
+        $onoff = 'off';
+    } elseif ($suite === '_NORMAL') {
+        $onoff = 'on';
+    } elseif ($suite === '_RUBRIQUE') {
+        $_id_rubrique = champ_sql('id_rubrique', $p);
+    }
 
-	$code = "quete_logo('$id_objet', '$onoff', $_id_objet, $_id_rubrique)";
+    $code = "quete_logo('$id_objet', '$onoff', $_id_objet, $_id_rubrique)";
 
-	if ($champ) {
-		return "table_valeur($code, '" . addslashes($champ) . "')";
-	}
+    if ($champ) {
+        return "table_valeur($code, '" . addslashes($champ) . "')";
+    }
 
-	$align = preg_replace(',\W,', '', $align);
+    $align = preg_replace(',\W,', '', $align);
 
-	return "quete_html_logo($code, '$align', " . ($_lien ?: "''") . ')';
+    return "quete_html_logo($code, '$align', " . ($_lien ?: "''") . ')';
 }

ecrire/balise/formulaire_inscription.php

Indentation +14 added lines, -14 removed lines

@@ -16,7 +16,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/abstract_sql');
@@ -43,7 +43,7 @@ 
  *     Pile complétée du code compilé
  **/
 function balise_FORMULAIRE_INSCRIPTION($p) {
-	return calculer_balise_dynamique($p, 'FORMULAIRE_INSCRIPTION', []);
+    return calculer_balise_dynamique($p, 'FORMULAIRE_INSCRIPTION', []);
 }
 
 /**
@@ -73,19 +73,19 @@ 
  *   - chaîne vide sinon.
  */
 function balise_FORMULAIRE_INSCRIPTION_stat($args, $context_compil) {
-	[$mode, $id_ou_options, $retour] = array_pad($args, 3, null);
+    [$mode, $id_ou_options, $retour] = array_pad($args, 3, null);
 
-	// Compatibilité avec l'ancien param "id" dans les deux sens
-	if (!is_array($id_ou_options)) {
-		$options = ['id' => (int) $id_ou_options];
-		$id = $options['id'];
-	}else {
-		$options = $id_ou_options;
-		$id = (int) ($id_ou_options['id'] ?? 0);
-	}
+    // Compatibilité avec l'ancien param "id" dans les deux sens
+    if (!is_array($id_ou_options)) {
+        $options = ['id' => (int) $id_ou_options];
+        $id = $options['id'];
+    }else {
+        $options = $id_ou_options;
+        $id = (int) ($id_ou_options['id'] ?? 0);
+    }
 
-	include_spip('action/inscrire_auteur');
-	$mode = tester_statut_inscription($mode, $id);
+    include_spip('action/inscrire_auteur');
+    $mode = tester_statut_inscription($mode, $id);
 
-	return $mode ? [$mode, $options, $retour] : '';
+    return $mode ? [$mode, $options, $retour] : '';
 }

Spacing +1 added lines, -1 removed lines

@@ -79,7 +79,7 @@
 	if (!is_array($id_ou_options)) {
 		$options = ['id' => (int) $id_ou_options];
 		$id = $options['id'];
-	}else {
+	} else {
 		$options = $id_ou_options;
 		$id = (int) ($id_ou_options['id'] ?? 0);
 	}

Braces +1 added lines, -1 removed lines

@@ -79,7 +79,7 @@
 	if (!is_array($id_ou_options)) {
 		$options = ['id' => (int) $id_ou_options];
 		$id = $options['id'];
-	}else {
+	} else {
 		$options = $id_ou_options;
 		$id = (int) ($id_ou_options['id'] ?? 0);
 	}

ecrire/inc/filtres_selecteur_generique.php

Spacing +4 added lines, -4 removed lines

@@ -159,7 +159,7 @@ 
 		$type = reset($objets);
 		$type = objet_type($type);
 		$id = (int) $ref;
-		$ref = $type . $ref;
+		$ref = $type.$ref;
 	}
 	else {
 		// Si la référence ne correspond à rien, c'est fini
@@ -167,7 +167,7 @@ 
 			return json_export(false);
 		}
 		// Sinon on récupère les infos utiles
-		[$type, , $id, , , , ] = array_pad($match, 7, null);
+		[$type,, $id,,,,] = array_pad($match, 7, null);
 
 		// On regarde si le type trouvé fait partie des objets sélectionnables
 		if (!in_array(table_objet($type), $objets)) {
@@ -213,8 +213,8 @@ 
 		$types = (is_array($types) ? array_filter($types) : []);
 
 		// recuperer tous les freres et soeurs de la rubrique visee
-		$id_parent = sql_getfetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . (int) $id_rubrique);
-		$fratrie = sql_allfetsel('id_rubrique', 'spip_rubriques', 'id_parent=' . (int) $id_parent);
+		$id_parent = sql_getfetsel('id_parent', 'spip_rubriques', 'id_rubrique='.(int) $id_rubrique);
+		$fratrie = sql_allfetsel('id_rubrique', 'spip_rubriques', 'id_parent='.(int) $id_parent);
 		$fratrie = array_column($fratrie, 'id_rubrique');
 		$has = sql_allfetsel('DISTINCT id_parent', 'spip_rubriques', sql_in('id_parent', $fratrie));
 		$has = array_column($has, 'id_parent');

Braces +1 added lines, -2 removed lines

@@ -160,8 +160,7 @@
 		$type = objet_type($type);
 		$id = (int) $ref;
 		$ref = $type . $ref;
-	}
-	else {
+	} else {
 		// Si la référence ne correspond à rien, c'est fini
 		if (!($match = typer_raccourci($ref))) {
 			return json_export(false);

Indentation +146 added lines, -146 removed lines

@@ -7,7 +7,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -28,49 +28,49 @@ 
  *     - afficher : tableau des objets à afficher (mais pas forcément sélectionnables)
  */
 function selecteur_lister_objets($includelist = [], $excludelist = []) {
-	static $liste_selecteurs, $liste_parents;
-
-	if (!$liste_selecteurs) {
-		$liste_selecteurs = find_all_in_path('formulaires/selecteur/', 'hierarchie-[\w]+[.]html$');
-	}
-	$objets_selectionner = [];
-	foreach ($liste_selecteurs as $fichier => $chemin) {
-		$objets_selectionner[] = preg_replace('/^hierarchie-([\w]+)[.]html$/', '$1', (string) $fichier);
-	}
-
-	// S'il y a une whitelist on ne garde que ce qui est dedans
-	if (!empty($includelist)) {
-		$includelist = array_map('table_objet', $includelist);
-		$objets_selectionner = array_intersect($objets_selectionner, $includelist);
-	}
-	// On supprime ce qui est dans la liste d’exclusion
-	$excludelist = array_map('table_objet', $excludelist);
-	// On enlève toujours la racine
-	$excludelist[] = 'racine';
-	$objets_selectionner = array_diff($objets_selectionner, $excludelist);
-
-	// Ensuite on cherche ce qu'on doit afficher : au moins ceux qu'on peut sélectionner
-	$objets_afficher = $objets_selectionner;
-
-	// Il faut alors chercher d'éventuels parents obligatoires en plus :
-	// lister-trucs-bidules.html => on doit afficher des "trucs" pour trouver des "bidules"
-	if (!$liste_parents) {
-		$liste_parents = find_all_in_path('formulaires/selecteur/', 'lister-[\w]+-[\w]+[.]html$');
-	}
-	foreach ($liste_parents as $fichier => $chemin) {
-		preg_match('/^lister-([\w]+)-([\w]+)[.]html$/', (string) $fichier, $captures);
-		$parent = $captures[1];
-		$type = $captures[2];
-		// Si le type fait partie de ce qu'on doit afficher alors on ajoute aussi le parent à l'affichage
-		if (in_array($type, $objets_afficher)) {
-			$objets_afficher[] = $parent;
-		}
-	}
-
-	return [
-		'selectionner' => array_unique($objets_selectionner),
-		'afficher' => array_unique($objets_afficher),
-	];
+    static $liste_selecteurs, $liste_parents;
+
+    if (!$liste_selecteurs) {
+        $liste_selecteurs = find_all_in_path('formulaires/selecteur/', 'hierarchie-[\w]+[.]html$');
+    }
+    $objets_selectionner = [];
+    foreach ($liste_selecteurs as $fichier => $chemin) {
+        $objets_selectionner[] = preg_replace('/^hierarchie-([\w]+)[.]html$/', '$1', (string) $fichier);
+    }
+
+    // S'il y a une whitelist on ne garde que ce qui est dedans
+    if (!empty($includelist)) {
+        $includelist = array_map('table_objet', $includelist);
+        $objets_selectionner = array_intersect($objets_selectionner, $includelist);
+    }
+    // On supprime ce qui est dans la liste d’exclusion
+    $excludelist = array_map('table_objet', $excludelist);
+    // On enlève toujours la racine
+    $excludelist[] = 'racine';
+    $objets_selectionner = array_diff($objets_selectionner, $excludelist);
+
+    // Ensuite on cherche ce qu'on doit afficher : au moins ceux qu'on peut sélectionner
+    $objets_afficher = $objets_selectionner;
+
+    // Il faut alors chercher d'éventuels parents obligatoires en plus :
+    // lister-trucs-bidules.html => on doit afficher des "trucs" pour trouver des "bidules"
+    if (!$liste_parents) {
+        $liste_parents = find_all_in_path('formulaires/selecteur/', 'lister-[\w]+-[\w]+[.]html$');
+    }
+    foreach ($liste_parents as $fichier => $chemin) {
+        preg_match('/^lister-([\w]+)-([\w]+)[.]html$/', (string) $fichier, $captures);
+        $parent = $captures[1];
+        $type = $captures[2];
+        // Si le type fait partie de ce qu'on doit afficher alors on ajoute aussi le parent à l'affichage
+        if (in_array($type, $objets_afficher)) {
+            $objets_afficher[] = $parent;
+        }
+    }
+
+    return [
+        'selectionner' => array_unique($objets_selectionner),
+        'afficher' => array_unique($objets_afficher),
+    ];
 }
 
 /**
@@ -97,31 +97,31 @@ 
  *     liste des couples (objets => id_objet) ou liste des identifiants d'un type d'objet.
  **/
 function picker_selected($selected, $type = '') {
-	$select = [];
-	$type = preg_replace(',\W,', '', $type);
-
-	if ($selected && !is_array($selected)) {
-		$selected = explode(',', $selected);
-	}
-
-	if (is_array($selected)) {
-		foreach ($selected as $value) {
-			// Si c'est le bon format déjà
-			if (preg_match('/^([\w]+)[|](\d+)$/', (string) $value, $captures)) {
-				$objet = $captures[1];
-				$id_objet = (int) $captures[2];
-
-				// Si on cherche un type et que c'est le bon, on renvoit un tableau que d'identifiants
-				if (is_string($type) && $type == $objet && ($id_objet || in_array($objet, ['racine', 'rubrique']))) {
-					$select[] = $id_objet;
-				} elseif (!$type && ($id_objet || in_array($objet, ['racine', 'rubrique']))) {
-					$select[] = ['objet' => $objet, 'id_objet' => $id_objet];
-				}
-			}
-		}
-	}
-
-	return $select;
+    $select = [];
+    $type = preg_replace(',\W,', '', $type);
+
+    if ($selected && !is_array($selected)) {
+        $selected = explode(',', $selected);
+    }
+
+    if (is_array($selected)) {
+        foreach ($selected as $value) {
+            // Si c'est le bon format déjà
+            if (preg_match('/^([\w]+)[|](\d+)$/', (string) $value, $captures)) {
+                $objet = $captures[1];
+                $id_objet = (int) $captures[2];
+
+                // Si on cherche un type et que c'est le bon, on renvoit un tableau que d'identifiants
+                if (is_string($type) && $type == $objet && ($id_objet || in_array($objet, ['racine', 'rubrique']))) {
+                    $select[] = $id_objet;
+                } elseif (!$type && ($id_objet || in_array($objet, ['racine', 'rubrique']))) {
+                    $select[] = ['objet' => $objet, 'id_objet' => $id_objet];
+                }
+            }
+        }
+    }
+
+    return $select;
 }
 
 /**
@@ -138,53 +138,53 @@ 
  *     Booléen indiquant si les articles sont sélectionnables
  */
 function picker_identifie_id_rapide($ref, $rubriques_ou_objets = false, $articles = false) {
-	include_spip('inc/json');
-	include_spip('inc/lien');
-
-	// On construit un tableau des objets sélectionnables suivant les paramètres
-	$objets = [];
-	if ($rubriques_ou_objets && is_array($rubriques_ou_objets)) {
-		$objets = $rubriques_ou_objets;
-	} else {
-		if ($rubriques_ou_objets) {
-			$objets[] = 'rubriques';
-		}
-		if ($articles) {
-			$objets[] = 'articles';
-		}
-	}
-
-	// si id numerique et un seul objet possible, pas d'ambiguite
-	if (is_numeric($ref) && count($objets) === 1) {
-		$type = reset($objets);
-		$type = objet_type($type);
-		$id = (int) $ref;
-		$ref = $type . $ref;
-	}
-	else {
-		// Si la référence ne correspond à rien, c'est fini
-		if (!($match = typer_raccourci($ref))) {
-			return json_export(false);
-		}
-		// Sinon on récupère les infos utiles
-		[$type, , $id, , , , ] = array_pad($match, 7, null);
-
-		// On regarde si le type trouvé fait partie des objets sélectionnables
-		if (!in_array(table_objet($type), $objets)) {
-			return json_export(false);
-		}
-	}
-
-	// Maintenant que tout est bon, on cherche les informations sur cet objet
-	include_spip('inc/filtres');
-	if (!$titre = generer_objet_info($id, $type, 'titre')) {
-		return json_export(false);
-	}
-
-	// On simplifie le texte
-	$titre = attribut_html($titre);
-
-	return json_export(['type' => $type, 'id' => "$type|$id", 'titre' => $titre]);
+    include_spip('inc/json');
+    include_spip('inc/lien');
+
+    // On construit un tableau des objets sélectionnables suivant les paramètres
+    $objets = [];
+    if ($rubriques_ou_objets && is_array($rubriques_ou_objets)) {
+        $objets = $rubriques_ou_objets;
+    } else {
+        if ($rubriques_ou_objets) {
+            $objets[] = 'rubriques';
+        }
+        if ($articles) {
+            $objets[] = 'articles';
+        }
+    }
+
+    // si id numerique et un seul objet possible, pas d'ambiguite
+    if (is_numeric($ref) && count($objets) === 1) {
+        $type = reset($objets);
+        $type = objet_type($type);
+        $id = (int) $ref;
+        $ref = $type . $ref;
+    }
+    else {
+        // Si la référence ne correspond à rien, c'est fini
+        if (!($match = typer_raccourci($ref))) {
+            return json_export(false);
+        }
+        // Sinon on récupère les infos utiles
+        [$type, , $id, , , , ] = array_pad($match, 7, null);
+
+        // On regarde si le type trouvé fait partie des objets sélectionnables
+        if (!in_array(table_objet($type), $objets)) {
+            return json_export(false);
+        }
+    }
+
+    // Maintenant que tout est bon, on cherche les informations sur cet objet
+    include_spip('inc/filtres');
+    if (!$titre = generer_objet_info($id, $type, 'titre')) {
+        return json_export(false);
+    }
+
+    // On simplifie le texte
+    $titre = attribut_html($titre);
+
+    return json_export(['type' => $type, 'id' => "$type|$id", 'titre' => $titre]);
 }
 
 /**
@@ -207,34 +207,34 @@ 
  *     Comme le filtre `oui` : espace (` `) si rubrique à afficher, chaîne vide sinon.
  */
 function test_enfants_rubrique($id_rubrique, $types = []) {
-	static $has_child = [];
-
-	if (!isset($has_child[$id_rubrique])) {
-		$types = (is_array($types) ? array_filter($types) : []);
-
-		// recuperer tous les freres et soeurs de la rubrique visee
-		$id_parent = sql_getfetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . (int) $id_rubrique);
-		$fratrie = sql_allfetsel('id_rubrique', 'spip_rubriques', 'id_parent=' . (int) $id_parent);
-		$fratrie = array_column($fratrie, 'id_rubrique');
-		$has = sql_allfetsel('DISTINCT id_parent', 'spip_rubriques', sql_in('id_parent', $fratrie));
-		$has = array_column($has, 'id_parent');
-		$fratrie = array_diff($fratrie, $has);
-
-		while (count($fratrie) && is_array($types) && count($types)) {
-			$type = array_shift($types);
-			$h = sql_allfetsel('DISTINCT id_rubrique', table_objet_sql($type), sql_in('id_rubrique', $fratrie));
-			$h = array_column($h, 'id_rubrique');
-			$has = [...$has, ...$h];
-			$fratrie = array_diff($fratrie, $h);
-		}
-
-		if ($has !== []) {
-			$has_child += array_combine($has, array_pad([], count($has), true));
-		}
-		if ($fratrie !== []) {
-			$has_child += array_combine($fratrie, array_pad([], count($fratrie), false));
-		}
-	}
-
-	return $has_child[$id_rubrique] ? ' ' : '';
+    static $has_child = [];
+
+    if (!isset($has_child[$id_rubrique])) {
+        $types = (is_array($types) ? array_filter($types) : []);
+
+        // recuperer tous les freres et soeurs de la rubrique visee
+        $id_parent = sql_getfetsel('id_parent', 'spip_rubriques', 'id_rubrique=' . (int) $id_rubrique);
+        $fratrie = sql_allfetsel('id_rubrique', 'spip_rubriques', 'id_parent=' . (int) $id_parent);
+        $fratrie = array_column($fratrie, 'id_rubrique');
+        $has = sql_allfetsel('DISTINCT id_parent', 'spip_rubriques', sql_in('id_parent', $fratrie));
+        $has = array_column($has, 'id_parent');
+        $fratrie = array_diff($fratrie, $has);
+
+        while (count($fratrie) && is_array($types) && count($types)) {
+            $type = array_shift($types);
+            $h = sql_allfetsel('DISTINCT id_rubrique', table_objet_sql($type), sql_in('id_rubrique', $fratrie));
+            $h = array_column($h, 'id_rubrique');
+            $has = [...$has, ...$h];
+            $fratrie = array_diff($fratrie, $h);
+        }
+
+        if ($has !== []) {
+            $has_child += array_combine($has, array_pad([], count($has), true));
+        }
+        if ($fratrie !== []) {
+            $has_child += array_combine($fratrie, array_pad([], count($fratrie), false));
+        }
+    }
+
+    return $has_child[$id_rubrique] ? ' ' : '';
 }

ecrire/inc/roles.php

Indentation +182 added lines, -182 removed lines

@@ -27,7 +27,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -47,55 +47,55 @@ 
  *     array : description des roles applicables dans 3 index : colonne, titres, roles
  **/
 function roles_presents($objet, $objet_destination = '') {
-	$desc = lister_tables_objets_sql(table_objet_sql($objet));
-
-	// pas de liste de roles, on sort
-	if (!isset($desc['roles_titres']) || !($titres = $desc['roles_titres'])) {
-		return false;
-	}
-
-	// on vérifie que la table de liaison existe
-	include_spip('action/editer_liens');
-	if (!$lien = objet_associable($objet)) {
-		return false;
-	}
-
-	// on cherche ensuite si la colonne existe bien dans la table de liaison (par défaut 'role')
-	$colonne = $desc['roles_colonne'] ?? 'role';
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	[, $table_lien] = $lien;
-	$desc_lien = $trouver_table($table_lien);
-	if (!isset($desc_lien['field'][$colonne])) {
-		return false;
-	}
-
-	// sur quoi peuvent s'appliquer nos rôles
-	if (!$application = $desc['roles_objets']) {
-		return false;
-	}
-
-	// destination presente, on restreint si possible
-	if ($objet_destination) {
-		$objet_destination = table_objet($objet_destination);
-
-		// pour l'objet
-		if (isset($application[$objet_destination])) {
-			$application = $application[$objet_destination];
-			// sinon pour tous les objets
-		} elseif (isset($application['*'])) {
-			$application = $application['*'];
-		} // sinon tant pis
-		else {
-			return false;
-		}
-	}
-
-	// tout est ok
-	return [
-		'titres' => $titres,
-		'roles' => $application,
-		'colonne' => $colonne
-	];
+    $desc = lister_tables_objets_sql(table_objet_sql($objet));
+
+    // pas de liste de roles, on sort
+    if (!isset($desc['roles_titres']) || !($titres = $desc['roles_titres'])) {
+        return false;
+    }
+
+    // on vérifie que la table de liaison existe
+    include_spip('action/editer_liens');
+    if (!$lien = objet_associable($objet)) {
+        return false;
+    }
+
+    // on cherche ensuite si la colonne existe bien dans la table de liaison (par défaut 'role')
+    $colonne = $desc['roles_colonne'] ?? 'role';
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    [, $table_lien] = $lien;
+    $desc_lien = $trouver_table($table_lien);
+    if (!isset($desc_lien['field'][$colonne])) {
+        return false;
+    }
+
+    // sur quoi peuvent s'appliquer nos rôles
+    if (!$application = $desc['roles_objets']) {
+        return false;
+    }
+
+    // destination presente, on restreint si possible
+    if ($objet_destination) {
+        $objet_destination = table_objet($objet_destination);
+
+        // pour l'objet
+        if (isset($application[$objet_destination])) {
+            $application = $application[$objet_destination];
+            // sinon pour tous les objets
+        } elseif (isset($application['*'])) {
+            $application = $application['*'];
+        } // sinon tant pis
+        else {
+            return false;
+        }
+    }
+
+    // tout est ok
+    return [
+        'titres' => $titres,
+        'roles' => $application,
+        'colonne' => $colonne
+    ];
 }
 
 /**
@@ -109,11 +109,11 @@ 
  *     Nom de la colonne, sinon vide
  **/
 function roles_colonne($objet, $objet_destination) {
-	if ($roles = roles_presents($objet, $objet_destination)) {
-		return $roles['colonne'];
-	}
+    if ($roles = roles_presents($objet, $objet_destination)) {
+        return $roles['colonne'];
+    }
 
-	return '';
+    return '';
 }
 
 
@@ -135,21 +135,21 @@ 
  *     Liste ('', '', array()) sinon.
  **/
 function roles_trouver_dans_qualif($objet, $objet_destination, $qualif = []) {
-	// si des rôles sont possibles, on les utilise
-	$role = $colonne_role = ''; # role défini
-	// condition du where par defaut
-	$cond = [];
-	if ($roles = roles_presents($objet, $objet_destination)) {
-		$colonne_role = $roles['colonne'];
-		// qu'il n'est pas défini
-		if (!isset($qualif[$colonne_role]) || !($role = $qualif[$colonne_role])) {
-			$role = $roles['roles']['defaut'];
-		}
-		// where
-		$cond = ["$colonne_role=" . sql_quote($role)];
-	}
-
-	return [$role, $colonne_role, $cond];
+    // si des rôles sont possibles, on les utilise
+    $role = $colonne_role = ''; # role défini
+    // condition du where par defaut
+    $cond = [];
+    if ($roles = roles_presents($objet, $objet_destination)) {
+        $colonne_role = $roles['colonne'];
+        // qu'il n'est pas défini
+        if (!isset($qualif[$colonne_role]) || !($role = $qualif[$colonne_role])) {
+            $role = $roles['roles']['defaut'];
+        }
+        // where
+        $cond = ["$colonne_role=" . sql_quote($role)];
+    }
+
+    return [$role, $colonne_role, $cond];
 }
 
 /**
@@ -171,18 +171,18 @@ 
  *     Liste (Tableau de conditions where complété du role, Colonne du role, role utilisé)
  **/
 function roles_creer_condition_role($objet_source, $objet, $cond, $tous_si_absent = false) {
-	// role par défaut, colonne
-	[$role_defaut, $colonne_role] = roles_trouver_dans_qualif($objet_source, $objet);
-
-	// chercher d'eventuels rôles transmis
-	$role = ($cond['role'] ?? ($tous_si_absent ? '*' : $role_defaut));
-	unset($cond['role']); // cette condition est particuliere...
-	// on ajoute la condition du role aux autres conditions.
-	if ($colonne_role && $role != '*') {
-		$cond[] = "$colonne_role=" . sql_quote($role);
-	}
-
-	return [$cond, $colonne_role, $role];
+    // role par défaut, colonne
+    [$role_defaut, $colonne_role] = roles_trouver_dans_qualif($objet_source, $objet);
+
+    // chercher d'eventuels rôles transmis
+    $role = ($cond['role'] ?? ($tous_si_absent ? '*' : $role_defaut));
+    unset($cond['role']); // cette condition est particuliere...
+    // on ajoute la condition du role aux autres conditions.
+    if ($colonne_role && $role != '*') {
+        $cond[] = "$colonne_role=" . sql_quote($role);
+    }
+
+    return [$cond, $colonne_role, $role];
 }
 
 /**
@@ -204,28 +204,28 @@ 
  */
 function roles_complets($objet_source, $objet, $id_objet, $objet_lien) {
 
-	$presents = roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien);
-	// pas de roles sur ces objets => la liste par defaut, comme sans role
-	if ($presents === false) {
-		return lister_objets_lies($objet_source, $objet, $id_objet, $objet_lien);
-	}
-
-	// types de roles possibles
-	$roles_possibles = $presents['roles']['roles']['choix'];
-	// couples id / roles
-	$ids = $presents['ids'];
-
-	// pour chaque groupe, on fait le diff entre tous les roles possibles
-	// et les roles attribués à l'élément : s'il en reste, c'est que l'élément
-	// n'est pas complet
-	$complets = [];
-	foreach ($ids as $id => $roles_presents) {
-		if (!array_diff($roles_possibles, $roles_presents)) {
-			$complets[] = $id;
-		}
-	}
-
-	return $complets;
+    $presents = roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien);
+    // pas de roles sur ces objets => la liste par defaut, comme sans role
+    if ($presents === false) {
+        return lister_objets_lies($objet_source, $objet, $id_objet, $objet_lien);
+    }
+
+    // types de roles possibles
+    $roles_possibles = $presents['roles']['roles']['choix'];
+    // couples id / roles
+    $ids = $presents['ids'];
+
+    // pour chaque groupe, on fait le diff entre tous les roles possibles
+    // et les roles attribués à l'élément : s'il en reste, c'est que l'élément
+    // n'est pas complet
+    $complets = [];
+    foreach ($ids as $id => $roles_presents) {
+        if (!array_diff($roles_possibles, $roles_presents)) {
+            $complets[] = $id;
+        }
+    }
+
+    return $complets;
 }
 
 
@@ -242,17 +242,17 @@ 
  */
 function roles_presents_sur_id($id_objet_source, $objet_source, $objet, $id_objet, $objet_lien) {
 
-	$presents = roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien);
-	// pas de roles sur ces objets => la liste par defaut, comme sans role
-	if ($presents === false) {
-		return [];
-	}
+    $presents = roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien);
+    // pas de roles sur ces objets => la liste par defaut, comme sans role
+    if ($presents === false) {
+        return [];
+    }
 
-	if (!isset($presents['ids'][$id_objet_source])) {
-		return [];
-	}
+    if (!isset($presents['ids'][$id_objet_source])) {
+        return [];
+    }
 
-	return $presents['ids'][$id_objet_source];
+    return $presents['ids'][$id_objet_source];
 }
 
 
@@ -280,47 +280,47 @@ 
  *     - False si pas de role déclarés
  */
 function roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien) {
-	static $done = [];
-
-	// stocker le résultat
-	$hash = "$objet_source-$objet-$id_objet-$objet_lien";
-	if (isset($done[$hash])) {
-		return $done[$hash];
-	}
-
-	// pas de roles sur ces objets, on sort
-	$roles = roles_presents($objet_lien, ($objet_lien == $objet) ? $objet_source : $objet);
-	if (!$roles) {
-		return $done[$hash] = false;
-	}
-
-	// inspiré de lister_objets_lies()
-	if ($objet_lien == $objet) {
-		$res = objet_trouver_liens([$objet => $id_objet], [$objet_source => '*']);
-	} else {
-		$res = objet_trouver_liens([$objet_source => '*'], [$objet => $id_objet]);
-	}
-
-	// types de roles possibles
-	$roles_possibles = $roles['roles']['choix'];
-	// colonne du role
-	$colonne = $roles['colonne'];
-
-	// on recupere par id, et role existant
-	$ids = [];
-	while ($row = array_shift($res)) {
-		$id = $row[$objet_source];
-		if (!isset($ids[$id])) {
-			$ids[$id] = [];
-		}
-		// tableau des roles présents
-		$ids[$id][] = $row[$colonne];
-	}
-
-	return $done[$hash] = [
-		'roles' => $roles,
-		'ids' => $ids
-	];
+    static $done = [];
+
+    // stocker le résultat
+    $hash = "$objet_source-$objet-$id_objet-$objet_lien";
+    if (isset($done[$hash])) {
+        return $done[$hash];
+    }
+
+    // pas de roles sur ces objets, on sort
+    $roles = roles_presents($objet_lien, ($objet_lien == $objet) ? $objet_source : $objet);
+    if (!$roles) {
+        return $done[$hash] = false;
+    }
+
+    // inspiré de lister_objets_lies()
+    if ($objet_lien == $objet) {
+        $res = objet_trouver_liens([$objet => $id_objet], [$objet_source => '*']);
+    } else {
+        $res = objet_trouver_liens([$objet_source => '*'], [$objet => $id_objet]);
+    }
+
+    // types de roles possibles
+    $roles_possibles = $roles['roles']['choix'];
+    // colonne du role
+    $colonne = $roles['colonne'];
+
+    // on recupere par id, et role existant
+    $ids = [];
+    while ($row = array_shift($res)) {
+        $id = $row[$objet_source];
+        if (!isset($ids[$id])) {
+            $ids[$id] = [];
+        }
+        // tableau des roles présents
+        $ids[$id][] = $row[$colonne];
+    }
+
+    return $done[$hash] = [
+        'roles' => $roles,
+        'ids' => $ids
+    ];
 }
 
 
@@ -338,33 +338,33 @@ 
  *     - false si pas de role déclarés
  */
 function roles_connus_en_base($objet_source, $objet, $objet_lien) {
-	static $done = [];
-
-	// stocker le résultat
-	$hash = "$objet_source-$objet-$objet_lien";
-	if (isset($done[$hash])) {
-		return $done[$hash];
-	}
-
-	if (!$lien = objet_associable($objet_lien)) {
-		return $done[$hash] = false;
-	}
-
-	// pas de roles sur ces objets, on sort
-	$roles = roles_presents($objet_lien, ($objet_lien == $objet) ? $objet_source : $objet);
-	if (!$roles) {
-		return $done[$hash] = false;
-	}
-
-	[$primary, $l] = $lien;
-	$colone_role = $roles['colonne'];
-
-	$all = sql_allfetsel(
-		"DISTINCT $colone_role",
-		$l,
-		'objet=' . sql_quote(($objet_source == $objet_lien) ? $objet : $objet_source)
-	);
-	$done[$hash] = array_map('reset', $all);
-
-	return $done[$hash];
+    static $done = [];
+
+    // stocker le résultat
+    $hash = "$objet_source-$objet-$objet_lien";
+    if (isset($done[$hash])) {
+        return $done[$hash];
+    }
+
+    if (!$lien = objet_associable($objet_lien)) {
+        return $done[$hash] = false;
+    }
+
+    // pas de roles sur ces objets, on sort
+    $roles = roles_presents($objet_lien, ($objet_lien == $objet) ? $objet_source : $objet);
+    if (!$roles) {
+        return $done[$hash] = false;
+    }
+
+    [$primary, $l] = $lien;
+    $colone_role = $roles['colonne'];
+
+    $all = sql_allfetsel(
+        "DISTINCT $colone_role",
+        $l,
+        'objet=' . sql_quote(($objet_source == $objet_lien) ? $objet : $objet_source)
+    );
+    $done[$hash] = array_map('reset', $all);
+
+    return $done[$hash];
 }

Spacing +3 added lines, -3 removed lines

@@ -146,7 +146,7 @@ 
 			$role = $roles['roles']['defaut'];
 		}
 		// where
-		$cond = ["$colonne_role=" . sql_quote($role)];
+		$cond = ["$colonne_role=".sql_quote($role)];
 	}
 
 	return [$role, $colonne_role, $cond];
@@ -179,7 +179,7 @@ 
 	unset($cond['role']); // cette condition est particuliere...
 	// on ajoute la condition du role aux autres conditions.
 	if ($colonne_role && $role != '*') {
-		$cond[] = "$colonne_role=" . sql_quote($role);
+		$cond[] = "$colonne_role=".sql_quote($role);
 	}
 
 	return [$cond, $colonne_role, $role];
@@ -362,7 +362,7 @@ 
 	$all = sql_allfetsel(
 		"DISTINCT $colone_role",
 		$l,
-		'objet=' . sql_quote(($objet_source == $objet_lien) ? $objet : $objet_source)
+		'objet='.sql_quote(($objet_source == $objet_lien) ? $objet : $objet_source)
 	);
 	$done[$hash] = array_map('reset', $all);