spip / SPIP

prive/objets/liste/auteurs_fonctions.php

Indentation +69 added lines, -69 removed lines

@@ -15,7 +15,7 @@ 
  * @package SPIP\Core\Fonctions
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -28,29 +28,29 @@ 
  * @param bool $left
  */
 function critere_compteur_articles_filtres_dist($idb, &$boucles, $crit, $left = false) {
-	$boucle = &$boucles[$idb];
+    $boucle = &$boucles[$idb];
 
-	$_statut = calculer_liste($crit->param[0], [], $boucles, $boucle->id_parent);
+    $_statut = calculer_liste($crit->param[0], [], $boucles, $boucle->id_parent);
 
-	$not = '';
-	if ($crit->not) {
-		$not = ", 'NOT'";
-	}
-	$boucle->from['LAA'] = 'spip_auteurs_liens';
-	$boucle->from_type['LAA'] = 'left';
-	$boucle->join['LAA'] = ["'auteurs'", "'id_auteur'", "'id_auteur'", "'LAA.objet=\'article\''"];
+    $not = '';
+    if ($crit->not) {
+        $not = ", 'NOT'";
+    }
+    $boucle->from['LAA'] = 'spip_auteurs_liens';
+    $boucle->from_type['LAA'] = 'left';
+    $boucle->join['LAA'] = ["'auteurs'", "'id_auteur'", "'id_auteur'", "'LAA.objet=\'article\''"];
 
-	$boucle->from['articles'] = 'spip_articles';
-	$boucle->from_type['articles'] = 'left';
-	$boucle->join['articles'] = [
-		"'LAA'",
-		"'id_article'",
-		"'id_objet'",
-		"'(articles.statut IS NULL OR '.sql_in_quote('articles.statut',[$_statut]$not).')'"
-	];
+    $boucle->from['articles'] = 'spip_articles';
+    $boucle->from_type['articles'] = 'left';
+    $boucle->join['articles'] = [
+        "'LAA'",
+        "'id_article'",
+        "'id_objet'",
+        "'(articles.statut IS NULL OR '.sql_in_quote('articles.statut',[$_statut]$not).')'"
+    ];
 
-	$boucle->select[] = 'COUNT(articles.id_article) AS compteur_articles';
-	$boucle->group[] = 'auteurs.id_auteur';
+    $boucle->select[] = 'COUNT(articles.id_article) AS compteur_articles';
+    $boucle->group[] = 'auteurs.id_auteur';
 }
 
 /**
@@ -68,7 +68,7 @@ 
  *     Pile complétée par le code à générer
  */
 function balise_COMPTEUR_ARTICLES_dist($p) {
-	return rindex_pile($p, 'compteur_articles', 'compteur_articles_filtres');
+    return rindex_pile($p, 'compteur_articles', 'compteur_articles_filtres');
 }
 
 
@@ -84,37 +84,37 @@ 
  * @return string
  */
 function afficher_initiale($url, $initiale, $compteur, $debut, $pas) {
-	static $memo = null;
-	static $res = [];
-	$out = '';
-	if (!$memo || !$initiale && !$url || $initiale !== $memo['initiale']) {
-		$newcompt = (int) (floor(($compteur - 1) / $pas) * $pas);
-		// si fin de la pagination et une seule entree, ne pas l'afficher, ca ne sert a rien
-		if (!$initiale && !$url && !$memo['compteur']) {
-			$memo = null;
-		}
-		if ($memo) {
-			$on = ($memo['compteur'] <= $debut && ($newcompt > $debut || $newcompt == $debut && $newcompt == $memo['compteur']));
-			$res[] = "<li class='pagination-item'>" . lien_ou_expose($memo['url'], $memo['initiale'], $on ? 'span.pagination-item-label' : '', 'pagination-item-label lien_pagination') . '</li>';
-		}
-		if ($initiale) {
-			$memo = [
-				'entree' => isset($memo['entree']) ? $memo['entree'] + 1 : 0,
-				'initiale' => $initiale,
-				'url' => parametre_url($url, 'i', $initiale),
-				'compteur' => $newcompt
-			];
-		}
-	}
-	if (!$initiale && !$url) {
-		if ((is_countable($res) ? count($res) : 0) > 1) {
-			$out = "<ul class='pagination-items'>" . implode(' ', $res) . '</ul>';
-		}
-		$memo = null;
-		$res = [];
-	}
+    static $memo = null;
+    static $res = [];
+    $out = '';
+    if (!$memo || !$initiale && !$url || $initiale !== $memo['initiale']) {
+        $newcompt = (int) (floor(($compteur - 1) / $pas) * $pas);
+        // si fin de la pagination et une seule entree, ne pas l'afficher, ca ne sert a rien
+        if (!$initiale && !$url && !$memo['compteur']) {
+            $memo = null;
+        }
+        if ($memo) {
+            $on = ($memo['compteur'] <= $debut && ($newcompt > $debut || $newcompt == $debut && $newcompt == $memo['compteur']));
+            $res[] = "<li class='pagination-item'>" . lien_ou_expose($memo['url'], $memo['initiale'], $on ? 'span.pagination-item-label' : '', 'pagination-item-label lien_pagination') . '</li>';
+        }
+        if ($initiale) {
+            $memo = [
+                'entree' => isset($memo['entree']) ? $memo['entree'] + 1 : 0,
+                'initiale' => $initiale,
+                'url' => parametre_url($url, 'i', $initiale),
+                'compteur' => $newcompt
+            ];
+        }
+    }
+    if (!$initiale && !$url) {
+        if ((is_countable($res) ? count($res) : 0) > 1) {
+            $out = "<ul class='pagination-items'>" . implode(' ', $res) . '</ul>';
+        }
+        $memo = null;
+        $res = [];
+    }
 
-	return $out;
+    return $out;
 }
 
 /**
@@ -133,24 +133,24 @@ 
  * @return string
  */
 function auteur_lien_messagerie($id_auteur, $en_ligne, $statut, $imessage, $email = '') {
-	static $time = null;
-	if (!in_array($statut, ['0minirezo', '1comite'])) {
-		return '';
-	}
+    static $time = null;
+    if (!in_array($statut, ['0minirezo', '1comite'])) {
+        return '';
+    }
 
-	if (is_null($time)) {
-		$time = time();
-	}
-	$parti = (($time - strtotime($en_ligne)) > 15 * 60);
+    if (is_null($time)) {
+        $time = time();
+    }
+    $parti = (($time - strtotime($en_ligne)) > 15 * 60);
 
-	if (
-		$imessage != 'non' && !$parti // historique : est-ce que ca a encore un sens de limiter vu qu'on a la notification par email ?
-		&& $GLOBALS['meta']['messagerie_agenda'] != 'non'
-	) {
-		return parametre_url(parametre_url(generer_url_ecrire('message_edit', 'new=oui'), 'to', $id_auteur), 'redirect', self());
-	} elseif (strlen($email) && autoriser('voir', 'auteur', $id_auteur)) {
-		return 'mailto:' . $email;
-	} else {
-		return '';
-	}
+    if (
+        $imessage != 'non' && !$parti // historique : est-ce que ca a encore un sens de limiter vu qu'on a la notification par email ?
+        && $GLOBALS['meta']['messagerie_agenda'] != 'non'
+    ) {
+        return parametre_url(parametre_url(generer_url_ecrire('message_edit', 'new=oui'), 'to', $id_auteur), 'redirect', self());
+    } elseif (strlen($email) && autoriser('voir', 'auteur', $id_auteur)) {
+        return 'mailto:' . $email;
+    } else {
+        return '';
+    }
 }

Spacing +3 added lines, -3 removed lines

@@ -95,7 +95,7 @@ 
 		}
 		if ($memo) {
 			$on = ($memo['compteur'] <= $debut && ($newcompt > $debut || $newcompt == $debut && $newcompt == $memo['compteur']));
-			$res[] = "<li class='pagination-item'>" . lien_ou_expose($memo['url'], $memo['initiale'], $on ? 'span.pagination-item-label' : '', 'pagination-item-label lien_pagination') . '</li>';
+			$res[] = "<li class='pagination-item'>".lien_ou_expose($memo['url'], $memo['initiale'], $on ? 'span.pagination-item-label' : '', 'pagination-item-label lien_pagination').'</li>';
 		}
 		if ($initiale) {
 			$memo = [
@@ -108,7 +108,7 @@ 
 	}
 	if (!$initiale && !$url) {
 		if ((is_countable($res) ? count($res) : 0) > 1) {
-			$out = "<ul class='pagination-items'>" . implode(' ', $res) . '</ul>';
+			$out = "<ul class='pagination-items'>".implode(' ', $res).'</ul>';
 		}
 		$memo = null;
 		$res = [];
@@ -149,7 +149,7 @@ 
 	) {
 		return parametre_url(parametre_url(generer_url_ecrire('message_edit', 'new=oui'), 'to', $id_auteur), 'redirect', self());
 	} elseif (strlen($email) && autoriser('voir', 'auteur', $id_auteur)) {
-		return 'mailto:' . $email;
+		return 'mailto:'.$email;
 	} else {
 		return '';
 	}

prive/objets/liste/objets-trad_fonctions.php

Indentation +14 added lines, -14 removed lines

@@ -10,24 +10,24 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function lister_traductions($id_trad, $objet) {
-	$table_objet_sql = table_objet_sql($objet);
-	$primary = id_table_objet($objet);
+    $table_objet_sql = table_objet_sql($objet);
+    $primary = id_table_objet($objet);
 
-	$select = "$primary as id,lang";
-	$where = 'id_trad=' . (int) $id_trad;
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$desc = $trouver_table($table_objet_sql);
-	if (isset($desc['field']['statut'])) {
-		$select .= ',statut';
-		$where .= ' AND statut!=' . sql_quote('poubelle');
-	}
+    $select = "$primary as id,lang";
+    $where = 'id_trad=' . (int) $id_trad;
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $desc = $trouver_table($table_objet_sql);
+    if (isset($desc['field']['statut'])) {
+        $select .= ',statut';
+        $where .= ' AND statut!=' . sql_quote('poubelle');
+    }
 
-	$rows = sql_allfetsel($select, $table_objet_sql, $where);
-	lang_select();
+    $rows = sql_allfetsel($select, $table_objet_sql, $where);
+    lang_select();
 
-	return $rows;
+    return $rows;
 }

Spacing +2 added lines, -2 removed lines

@@ -18,12 +18,12 @@
 	$primary = id_table_objet($objet);
 
 	$select = "$primary as id,lang";
-	$where = 'id_trad=' . (int) $id_trad;
+	$where = 'id_trad='.(int) $id_trad;
 	$trouver_table = charger_fonction('trouver_table', 'base');
 	$desc = $trouver_table($table_objet_sql);
 	if (isset($desc['field']['statut'])) {
 		$select .= ',statut';
-		$where .= ' AND statut!=' . sql_quote('poubelle');
+		$where .= ' AND statut!='.sql_quote('poubelle');
 	}
 
 	$rows = sql_allfetsel($select, $table_objet_sql, $where);

prive/echafaudage/hierarchie/objet_fonctions.php

Indentation +6 added lines, -6 removed lines

@@ -10,7 +10,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -23,9 +23,9 @@ 
  */
 function deplacement_restreint($objet, $statut) {
 
-	return match ($objet) {
-		'rubrique' => !$GLOBALS['connect_toutes_rubriques'],
-		'article', 'site', 'syndic', 'breve' => $statut == 'publie',
-		default => $statut ? $statut == 'publie' : false,
-	};
+    return match ($objet) {
+        'rubrique' => !$GLOBALS['connect_toutes_rubriques'],
+        'article', 'site', 'syndic', 'breve' => $statut == 'publie',
+        default => $statut ? $statut == 'publie' : false,
+    };
 }

ecrire/install/etape_ldap3.php

Spacing +5 added lines, -5 removed lines

@@ -44,7 +44,7 @@ 
 	$checked = false;
 	$res = '';
 	if (is_array($info) && $info['count'] > 0) {
-		$res .= '<p>' . _T('info_selection_chemin_acces') . '</p>';
+		$res .= '<p>'._T('info_selection_chemin_acces').'</p>';
 		$res .= '<ul>';
 		$n = 0;
 		for ($i = 0; $i < $info['count']; $i++) {
@@ -52,18 +52,18 @@ 
 			if (is_array($names)) {
 				for ($j = 0; $j < $names['count']; $j++) {
 					$n++;
-					$res .= '<li><input name="base_ldap" value="' . spip_htmlspecialchars($names[$j]) . "\" type='radio' id='tab$n'";
+					$res .= '<li><input name="base_ldap" value="'.spip_htmlspecialchars($names[$j])."\" type='radio' id='tab$n'";
 					if (!$checked) {
 						$res .= ' checked="checked"';
 						$checked = true;
 					}
 					$res .= ' />';
-					$res .= "<label for='tab$n'>" . spip_htmlspecialchars($names[$j]) . "</label></li>\n";
+					$res .= "<label for='tab$n'>".spip_htmlspecialchars($names[$j])."</label></li>\n";
 				}
 			}
 		}
 		$res .= '</ul>';
-		$res .= _T('info_ou') . ' ';
+		$res .= _T('info_ou').' ';
 	}
 	$res .= "<br />\n<input name=\"base_ldap\" value=\"\" type='radio' id='manuel'";
 	if (!$checked) {
@@ -72,7 +72,7 @@ 
 	}
 
 	$res .= ' />'
-		. "\n<label for='manuel'>" . _T('entree_chemin_acces') . '</label> '
+		. "\n<label for='manuel'>"._T('entree_chemin_acces').'</label> '
 		. "\n<fieldset>"
 		. "<input type='text' name='base_ldap_text' class='text' value=\"$base_ldap_text\" size='40' />"
 		. "\n</fieldset>"

Indentation +62 added lines, -62 removed lines

@@ -12,77 +12,77 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function install_etape_ldap3_dist() {
-	$info = [];
-	$adresse_ldap = _request('adresse_ldap');
-	$login_ldap = _request('login_ldap');
-	$pass_ldap = _request('pass_ldap');
-	$port_ldap = _request('port_ldap');
+    $info = [];
+    $adresse_ldap = _request('adresse_ldap');
+    $login_ldap = _request('login_ldap');
+    $pass_ldap = _request('pass_ldap');
+    $port_ldap = _request('port_ldap');
 
-	$base_ldap_text = defined('_INSTALL_BASE_LDAP')
-		? _INSTALL_BASE_LDAP
-		: 'ou=users, dc=mon-domaine, dc=com';
+    $base_ldap_text = defined('_INSTALL_BASE_LDAP')
+        ? _INSTALL_BASE_LDAP
+        : 'ou=users, dc=mon-domaine, dc=com';
 
-	$minipage = new Installation();
-	echo $minipage->installDebutPage(['onload' => 'document.getElementById(\'suivant\').focus();return false;']);
+    $minipage = new Installation();
+    echo $minipage->installDebutPage(['onload' => 'document.getElementById(\'suivant\').focus();return false;']);
 
-	echo info_etape(
-		_T('info_chemin_acces_1'),
-		info_progression_etape(3, 'etape_ldap', 'install/')
-	),
-	_T('info_chemin_acces_2');
+    echo info_etape(
+        _T('info_chemin_acces_1'),
+        info_progression_etape(3, 'etape_ldap', 'install/')
+    ),
+    _T('info_chemin_acces_2');
 
-	$ldap_link = @ldap_connect("$adresse_ldap", "$port_ldap");
-	if ($ldap_link) {
-		@ldap_bind($ldap_link, "$login_ldap", "$pass_ldap");
-		$result = @ldap_read($ldap_link, '', 'objectclass=*', ['namingContexts']);
-		$info = @ldap_get_entries($ldap_link, $result);
-		@ldap_close($ldap_link);
-	}
+    $ldap_link = @ldap_connect("$adresse_ldap", "$port_ldap");
+    if ($ldap_link) {
+        @ldap_bind($ldap_link, "$login_ldap", "$pass_ldap");
+        $result = @ldap_read($ldap_link, '', 'objectclass=*', ['namingContexts']);
+        $info = @ldap_get_entries($ldap_link, $result);
+        @ldap_close($ldap_link);
+    }
 
-	$checked = false;
-	$res = '';
-	if (is_array($info) && $info['count'] > 0) {
-		$res .= '<p>' . _T('info_selection_chemin_acces') . '</p>';
-		$res .= '<ul>';
-		$n = 0;
-		for ($i = 0; $i < $info['count']; $i++) {
-			$names = $info[$i]['namingcontexts'];
-			if (is_array($names)) {
-				for ($j = 0; $j < $names['count']; $j++) {
-					$n++;
-					$res .= '<li><input name="base_ldap" value="' . spip_htmlspecialchars($names[$j]) . "\" type='radio' id='tab$n'";
-					if (!$checked) {
-						$res .= ' checked="checked"';
-						$checked = true;
-					}
-					$res .= ' />';
-					$res .= "<label for='tab$n'>" . spip_htmlspecialchars($names[$j]) . "</label></li>\n";
-				}
-			}
-		}
-		$res .= '</ul>';
-		$res .= _T('info_ou') . ' ';
-	}
-	$res .= "<br />\n<input name=\"base_ldap\" value=\"\" type='radio' id='manuel'";
-	if (!$checked) {
-		$res .= ' checked="checked"';
-		$checked = true;
-	}
+    $checked = false;
+    $res = '';
+    if (is_array($info) && $info['count'] > 0) {
+        $res .= '<p>' . _T('info_selection_chemin_acces') . '</p>';
+        $res .= '<ul>';
+        $n = 0;
+        for ($i = 0; $i < $info['count']; $i++) {
+            $names = $info[$i]['namingcontexts'];
+            if (is_array($names)) {
+                for ($j = 0; $j < $names['count']; $j++) {
+                    $n++;
+                    $res .= '<li><input name="base_ldap" value="' . spip_htmlspecialchars($names[$j]) . "\" type='radio' id='tab$n'";
+                    if (!$checked) {
+                        $res .= ' checked="checked"';
+                        $checked = true;
+                    }
+                    $res .= ' />';
+                    $res .= "<label for='tab$n'>" . spip_htmlspecialchars($names[$j]) . "</label></li>\n";
+                }
+            }
+        }
+        $res .= '</ul>';
+        $res .= _T('info_ou') . ' ';
+    }
+    $res .= "<br />\n<input name=\"base_ldap\" value=\"\" type='radio' id='manuel'";
+    if (!$checked) {
+        $res .= ' checked="checked"';
+        $checked = true;
+    }
 
-	$res .= ' />'
-		. "\n<label for='manuel'>" . _T('entree_chemin_acces') . '</label> '
-		. "\n<fieldset>"
-		. "<input type='text' name='base_ldap_text' class='text' value=\"$base_ldap_text\" size='40' />"
-		. "\n</fieldset>"
-		. "\n<input type='hidden' name='etape' value='ldap4' />"
-		. install_propager(['adresse_ldap', 'port_ldap', 'login_ldap', 'pass_ldap', 'protocole_ldap', 'tls_ldap'])
-		. bouton_suivant();
+    $res .= ' />'
+        . "\n<label for='manuel'>" . _T('entree_chemin_acces') . '</label> '
+        . "\n<fieldset>"
+        . "<input type='text' name='base_ldap_text' class='text' value=\"$base_ldap_text\" size='40' />"
+        . "\n</fieldset>"
+        . "\n<input type='hidden' name='etape' value='ldap4' />"
+        . install_propager(['adresse_ldap', 'port_ldap', 'login_ldap', 'pass_ldap', 'protocole_ldap', 'tls_ldap'])
+        . bouton_suivant();
 
-	echo generer_form_ecrire('install', $res);
+    echo generer_form_ecrire('install', $res);
 
-	echo $minipage->installFinPage();
+    echo $minipage->installFinPage();
 }

ecrire/install/etape_ldap4.php

Spacing +10 added lines, -10 removed lines

@@ -39,8 +39,8 @@ 
 	if ($fail) {
 		echo info_etape(_T('info_chemin_acces_annuaire')),
 		info_progression_etape(3, 'etape_ldap', 'install/', true),
-			"<div class='error'><p><b>" . _T('avis_operation_echec') . '</b></p><p>' . _T('avis_chemin_invalide_1'),
-			' (<tt>' . spip_htmlspecialchars($base_ldap) . '</tt>) ' . _T('avis_chemin_invalide_2') . '</p></div>';
+			"<div class='error'><p><b>"._T('avis_operation_echec').'</b></p><p>'._T('avis_chemin_invalide_1'),
+			' (<tt>'.spip_htmlspecialchars($base_ldap).'</tt>) '._T('avis_chemin_invalide_2').'</p></div>';
 	} else {
 		info_etape(_T('info_reglage_ldap'));
 		echo info_progression_etape(4, 'etape_ldap', 'install/');
@@ -53,12 +53,12 @@ 
 
 		$res = install_propager(['adresse_ldap', 'port_ldap', 'login_ldap', 'pass_ldap', 'protocole_ldap', 'tls_ldap'])
 			. "<input type='hidden' name='etape' value='ldap5' />"
-			. "<input type='hidden' name='base_ldap' value='" . spip_htmlentities($base_ldap) . "' />"
+			. "<input type='hidden' name='base_ldap' value='".spip_htmlentities($base_ldap)."' />"
 			. fieldset(
 				_T('info_statut_utilisateurs_1'),
 				[
 					'statut_ldap' => [
-						'label' => _T('info_statut_utilisateurs_2') . '<br />',
+						'label' => _T('info_statut_utilisateurs_2').'<br />',
 						'valeur' => $statut_ldap,
 						'alternatives' => $statuts
 					]
@@ -75,9 +75,9 @@ 
 
 function liste_statuts_ldap() {
 	$recom = [
-		'info_administrateurs' => ('<b>' . _T('info_administrateur_1') . '</b> ' . _T('info_administrateur_2') . '<br />'),
-		'info_redacteurs' => ('<b>' . _T('info_redacteur_1') . '</b> ' . _T('info_redacteur_2') . '<br />'),
-		'info_visiteurs' => ('<b>' . _T('info_visiteur_1') . '</b> ' . _T('info_visiteur_2') . '<br />')
+		'info_administrateurs' => ('<b>'._T('info_administrateur_1').'</b> '._T('info_administrateur_2').'<br />'),
+		'info_redacteurs' => ('<b>'._T('info_redacteur_1').'</b> '._T('info_redacteur_2').'<br />'),
+		'info_visiteurs' => ('<b>'._T('info_visiteur_1').'</b> '._T('info_visiteur_2').'<br />')
 	];
 
 	$res = [];
@@ -93,13 +93,13 @@ 
 function install_ldap_correspondances() {
 	$champs = [];
 	foreach (is_array($GLOBALS['ldap_attributes']) ? $GLOBALS['ldap_attributes'] : [] as $champ => $v) {
-		$nom = 'ldap_' . $champ;
+		$nom = 'ldap_'.$champ;
 		$val = is_array($v) ? implode(',', $v) : (string) $v;
 		$champs[$nom] = [
-			'label' => _T('ldap_correspondance', ['champ' => "<tt>$champ</tt>"]) . '<br />',
+			'label' => _T('ldap_correspondance', ['champ' => "<tt>$champ</tt>"]).'<br />',
 			'valeur' => $val
 		];
 	}
 
-	return $champs ? fieldset(_T('ldap_correspondance_1'), $champs, '', _T('ldap_correspondance_2') . '<br /><br />') : '';
+	return $champs ? fieldset(_T('ldap_correspondance_1'), $champs, '', _T('ldap_correspondance_2').'<br /><br />') : '';
 }

Indentation +81 added lines, -81 removed lines

@@ -12,96 +12,96 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('auth/ldap');
 
 function install_etape_ldap4_dist() {
-	$adresse_ldap = _request('adresse_ldap');
-	$login_ldap = _request('login_ldap');
-	$pass_ldap = _request('pass_ldap');
-	$port_ldap = _request('port_ldap');
-	$base_ldap = _request('base_ldap');
-	$base_ldap_text = _request('base_ldap_text');
-	if (!$base_ldap) {
-		$base_ldap = $base_ldap_text;
-	}
-
-	$minipage = new Installation();
-	echo $minipage->installDebutPage(['onload' => 'document.getElementById(\'suivant\').focus();return false;']);
-
-	$ldap_link = ldap_connect($adresse_ldap, $port_ldap);
-	@ldap_bind($ldap_link, $login_ldap, $pass_ldap);
-
-	// Essayer de verifier le chemin fourni
-	$r = @ldap_compare($ldap_link, $base_ldap, 'objectClass', '');
-	$fail = (ldap_errno($ldap_link) == 32);
-
-	if ($fail) {
-		echo info_etape(_T('info_chemin_acces_annuaire')),
-		info_progression_etape(3, 'etape_ldap', 'install/', true),
-			"<div class='error'><p><b>" . _T('avis_operation_echec') . '</b></p><p>' . _T('avis_chemin_invalide_1'),
-			' (<tt>' . spip_htmlspecialchars($base_ldap) . '</tt>) ' . _T('avis_chemin_invalide_2') . '</p></div>';
-	} else {
-		info_etape(_T('info_reglage_ldap'));
-		echo info_progression_etape(4, 'etape_ldap', 'install/');
-
-		$statuts = liste_statuts_ldap();
-		$statut_ldap = defined('_INSTALL_STATUT_LDAP')
-			? _INSTALL_STATUT_LDAP
-			: $GLOBALS['liste_des_statuts']['info_redacteurs'];
-
-
-		$res = install_propager(['adresse_ldap', 'port_ldap', 'login_ldap', 'pass_ldap', 'protocole_ldap', 'tls_ldap'])
-			. "<input type='hidden' name='etape' value='ldap5' />"
-			. "<input type='hidden' name='base_ldap' value='" . spip_htmlentities($base_ldap) . "' />"
-			. fieldset(
-				_T('info_statut_utilisateurs_1'),
-				[
-					'statut_ldap' => [
-						'label' => _T('info_statut_utilisateurs_2') . '<br />',
-						'valeur' => $statut_ldap,
-						'alternatives' => $statuts
-					]
-				]
-			)
-			. install_ldap_correspondances()
-			. bouton_suivant();
-
-		echo generer_form_ecrire('install', $res);
-	}
-
-	echo $minipage->installFinPage();
+    $adresse_ldap = _request('adresse_ldap');
+    $login_ldap = _request('login_ldap');
+    $pass_ldap = _request('pass_ldap');
+    $port_ldap = _request('port_ldap');
+    $base_ldap = _request('base_ldap');
+    $base_ldap_text = _request('base_ldap_text');
+    if (!$base_ldap) {
+        $base_ldap = $base_ldap_text;
+    }
+
+    $minipage = new Installation();
+    echo $minipage->installDebutPage(['onload' => 'document.getElementById(\'suivant\').focus();return false;']);
+
+    $ldap_link = ldap_connect($adresse_ldap, $port_ldap);
+    @ldap_bind($ldap_link, $login_ldap, $pass_ldap);
+
+    // Essayer de verifier le chemin fourni
+    $r = @ldap_compare($ldap_link, $base_ldap, 'objectClass', '');
+    $fail = (ldap_errno($ldap_link) == 32);
+
+    if ($fail) {
+        echo info_etape(_T('info_chemin_acces_annuaire')),
+        info_progression_etape(3, 'etape_ldap', 'install/', true),
+            "<div class='error'><p><b>" . _T('avis_operation_echec') . '</b></p><p>' . _T('avis_chemin_invalide_1'),
+            ' (<tt>' . spip_htmlspecialchars($base_ldap) . '</tt>) ' . _T('avis_chemin_invalide_2') . '</p></div>';
+    } else {
+        info_etape(_T('info_reglage_ldap'));
+        echo info_progression_etape(4, 'etape_ldap', 'install/');
+
+        $statuts = liste_statuts_ldap();
+        $statut_ldap = defined('_INSTALL_STATUT_LDAP')
+            ? _INSTALL_STATUT_LDAP
+            : $GLOBALS['liste_des_statuts']['info_redacteurs'];
+
+
+        $res = install_propager(['adresse_ldap', 'port_ldap', 'login_ldap', 'pass_ldap', 'protocole_ldap', 'tls_ldap'])
+            . "<input type='hidden' name='etape' value='ldap5' />"
+            . "<input type='hidden' name='base_ldap' value='" . spip_htmlentities($base_ldap) . "' />"
+            . fieldset(
+                _T('info_statut_utilisateurs_1'),
+                [
+                    'statut_ldap' => [
+                        'label' => _T('info_statut_utilisateurs_2') . '<br />',
+                        'valeur' => $statut_ldap,
+                        'alternatives' => $statuts
+                    ]
+                ]
+            )
+            . install_ldap_correspondances()
+            . bouton_suivant();
+
+        echo generer_form_ecrire('install', $res);
+    }
+
+    echo $minipage->installFinPage();
 }
 
 function liste_statuts_ldap() {
-	$recom = [
-		'info_administrateurs' => ('<b>' . _T('info_administrateur_1') . '</b> ' . _T('info_administrateur_2') . '<br />'),
-		'info_redacteurs' => ('<b>' . _T('info_redacteur_1') . '</b> ' . _T('info_redacteur_2') . '<br />'),
-		'info_visiteurs' => ('<b>' . _T('info_visiteur_1') . '</b> ' . _T('info_visiteur_2') . '<br />')
-	];
-
-	$res = [];
-	foreach ($GLOBALS['liste_des_statuts'] as $k => $v) {
-		if (isset($recom[$k])) {
-			$res[$v] = $recom[$k];
-		}
-	}
-
-	return $res;
+    $recom = [
+        'info_administrateurs' => ('<b>' . _T('info_administrateur_1') . '</b> ' . _T('info_administrateur_2') . '<br />'),
+        'info_redacteurs' => ('<b>' . _T('info_redacteur_1') . '</b> ' . _T('info_redacteur_2') . '<br />'),
+        'info_visiteurs' => ('<b>' . _T('info_visiteur_1') . '</b> ' . _T('info_visiteur_2') . '<br />')
+    ];
+
+    $res = [];
+    foreach ($GLOBALS['liste_des_statuts'] as $k => $v) {
+        if (isset($recom[$k])) {
+            $res[$v] = $recom[$k];
+        }
+    }
+
+    return $res;
 }
 
 function install_ldap_correspondances() {
-	$champs = [];
-	foreach (is_array($GLOBALS['ldap_attributes']) ? $GLOBALS['ldap_attributes'] : [] as $champ => $v) {
-		$nom = 'ldap_' . $champ;
-		$val = is_array($v) ? implode(',', $v) : (string) $v;
-		$champs[$nom] = [
-			'label' => _T('ldap_correspondance', ['champ' => "<tt>$champ</tt>"]) . '<br />',
-			'valeur' => $val
-		];
-	}
-
-	return $champs ? fieldset(_T('ldap_correspondance_1'), $champs, '', _T('ldap_correspondance_2') . '<br /><br />') : '';
+    $champs = [];
+    foreach (is_array($GLOBALS['ldap_attributes']) ? $GLOBALS['ldap_attributes'] : [] as $champ => $v) {
+        $nom = 'ldap_' . $champ;
+        $val = is_array($v) ? implode(',', $v) : (string) $v;
+        $champs[$nom] = [
+            'label' => _T('ldap_correspondance', ['champ' => "<tt>$champ</tt>"]) . '<br />',
+            'valeur' => $val
+        ];
+    }
+
+    return $champs ? fieldset(_T('ldap_correspondance_1'), $champs, '', _T('ldap_correspondance_2') . '<br /><br />') : '';
 }

ecrire/install/etape_3.php

Spacing +24 added lines, -24 removed lines

@@ -43,7 +43,7 @@ 
 		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, '', $server_db);
 
 	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+		= $GLOBALS['spip_'.$server_db.'_functions_'.$GLOBALS['spip_sql_version']];
 
 	$fquery = sql_serveur('query', $server_db);
 	if ($choix_db == 'new_spip') {
@@ -53,13 +53,13 @@ 
 			if (!$ok) {
 				$re = "Impossible de creer la base $re";
 				spip_log($re);
-				return '<p>' . _T('avis_connexion_erreur_creer_base') . "</p><!--\n$re\n-->";
+				return '<p>'._T('avis_connexion_erreur_creer_base')."</p><!--\n$re\n-->";
 			}
 		} else {
 			$re = "Le nom de la base doit correspondre a $re";
 			spip_log($re);
 
-			return '<p>' . _T('avis_connexion_erreur_nom_base') . "</p><!--\n$re\n-->";
+			return '<p>'._T('avis_connexion_erreur_nom_base')."</p><!--\n$re\n-->";
 		}
 	}
 
@@ -70,14 +70,14 @@ 
 		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, $sel_db, $server_db);
 
 	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+		= $GLOBALS['spip_'.$server_db.'_functions_'.$GLOBALS['spip_sql_version']];
 
 	// Completer le tableau decrivant la connexion
 
 	$GLOBALS['connexions'][$server_db]['prefixe'] = $table_prefix;
 	$GLOBALS['connexions'][$server_db]['db'] = $sel_db;
 
-	$old = sql_showbase($table_prefix . '_meta', $server_db);
+	$old = sql_showbase($table_prefix.'_meta', $server_db);
 	if ($old) {
 		$old = sql_fetch($old, $server_db);
 	}
@@ -96,7 +96,7 @@ 
 				$charset['charset'];
 			$charsetbase = $charset['charset'];
 		} else {
-			spip_log(_DEFAULT_CHARSET . ' inconnu du serveur SQL');
+			spip_log(_DEFAULT_CHARSET.' inconnu du serveur SQL');
 			$charsetbase = 'standard';
 		}
 		spip_log("Creation des tables. Codage $charsetbase");
@@ -146,7 +146,7 @@ 
 		if ($r) {
 			$r = sql_fetch($r, $server_db);
 		}
-		$version_installee = $r ? (double)$r['valeur'] : 0;
+		$version_installee = $r ? (double) $r['valeur'] : 0;
 		if (!$version_installee || $GLOBALS['spip_version_base'] < $version_installee) {
 			$fupdateq(
 				'spip_meta',
@@ -155,7 +155,7 @@ 
 				'',
 				$server_db
 			);
-			spip_log('nouvelle version installee: ' . $GLOBALS['spip_version_base']);
+			spip_log('nouvelle version installee: '.$GLOBALS['spip_version_base']);
 		}
 		// eliminer la derniere operation d'admin mal terminee
 		// notamment la mise a jour
@@ -182,7 +182,7 @@ 
 	if ($chmod_db) {
 		install_fichier_connexion(
 			_FILE_CHMOD_TMP,
-			"if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', " . sprintf('0%3o', $chmod_db) . ");\n"
+			"if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', ".sprintf('0%3o', $chmod_db).");\n"
 		);
 	}
 
@@ -245,16 +245,16 @@ 
 
 
 function install_premier_auteur($email, $login, $nom, #[\SensitiveParameter] $pass, $hidden, $auteur_obligatoire) {
-	return info_progression_etape(3, 'etape_', 'install/') .
+	return info_progression_etape(3, 'etape_', 'install/').
 	info_etape(
 		_T('info_informations_personnelles'),
-		'<b>' . _T('texte_informations_personnelles_1') . '</b>' .
-		aider('install5', true) .
-		'<p>' .
+		'<b>'._T('texte_informations_personnelles_1').'</b>'.
+		aider('install5', true).
+		'<p>'.
 		($auteur_obligatoire ?
 			''
 			:
-			_T('texte_informations_personnelles_2') . ' ' . _T('info_laisser_champs_vides')
+			_T('texte_informations_personnelles_2').' '._T('info_laisser_champs_vides')
 		)
 	)
 	. generer_form_ecrire('install', (
@@ -264,12 +264,12 @@ 
 			_T('info_identification_publique'),
 			[
 				'nom' => [
-					'label' => '<b>' . _T('entree_signature') . "</b><br />\n" . _T('entree_nom_pseudo_1') . "\n",
+					'label' => '<b>'._T('entree_signature')."</b><br />\n"._T('entree_nom_pseudo_1')."\n",
 					'valeur' => $nom,
 					'required' => $auteur_obligatoire,
 				],
 				'email' => [
-					'label' => '<b>' . _T('entree_adresse_email') . "</b>\n",
+					'label' => '<b>'._T('entree_adresse_email')."</b>\n",
 					'valeur' => $email,
 				]
 			]
@@ -279,23 +279,23 @@ 
 			_T('entree_identifiants_connexion'),
 			[
 				'login' => [
-					'label' => '<b>' . _T('entree_login') . "</b><br />\n" . _T(
+					'label' => '<b>'._T('entree_login')."</b><br />\n"._T(
 						'info_login_trop_court_car_pluriel',
 						['nb' => _LOGIN_TROP_COURT]
-					) . "\n",
+					)."\n",
 					'valeur' => $login,
 					'required' => $auteur_obligatoire,
 				],
 				'pass' => [
-					'label' => '<b>' . _T('entree_mot_passe') . "</b><br />\n" . _T(
+					'label' => '<b>'._T('entree_mot_passe')."</b><br />\n"._T(
 						'info_passe_trop_court_car_pluriel',
 						['nb' => _PASS_LONGUEUR_MINI]
-					) . "\n",
+					)."\n",
 					'valeur' => $pass,
 					'required' => $auteur_obligatoire,
 				],
 				'pass_verif' => [
-					'label' => '<b>' . _T('info_confirmer_passe') . "</b><br />\n",
+					'label' => '<b>'._T('info_confirmer_passe')."</b><br />\n",
 					'valeur' => $pass,
 					'required' => $auteur_obligatoire,
 				]
@@ -339,9 +339,9 @@ 
 
 		if ($res) {
 			$res = info_progression_etape(2, 'etape_', 'install/', true)
-				. "<div class='error'><h3>" . _T('avis_operation_echec') . '</h3>'
+				. "<div class='error'><h3>"._T('avis_operation_echec').'</h3>'
 				. $res
-				. '<p>' . _T('texte_operation_echec') . '</p>'
+				. '<p>'._T('texte_operation_echec').'</p>'
 				. '</div>';
 		}
 	} else {
@@ -365,7 +365,7 @@ 
 
 		$hidden = predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
 			. (defined('_INSTALL_NAME_DB') ? ''
-				: "\n<input type='hidden' name='sel_db' value=\"" . spip_htmlspecialchars($sel_db) . '" />');
+				: "\n<input type='hidden' name='sel_db' value=\"".spip_htmlspecialchars($sel_db).'" />');
 
 		$auteur_obligatoire = ($ldap_present ? 0 : !sql_countsel('spip_auteurs', '', '', '', $server_db));
 

Indentation +346 added lines, -346 removed lines

@@ -12,7 +12,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/headers');
@@ -20,199 +20,199 @@ 
 
 function install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db) {
 
-	// Prefix des tables :
-	// S'il n'est pas defini par mes_options/inc/mutualiser, on va le creer
-	// a partir de ce qui est envoye a l'installation
-	if (!defined('_INSTALL_TABLE_PREFIX')) {
-		$table_prefix = ($GLOBALS['table_prefix'] != 'spip')
-			? $GLOBALS['table_prefix']
-			: preparer_prefixe_tables(_request('tprefix'));
-		// S'il est vide on remet spip
-		if (!$table_prefix) {
-			$table_prefix = 'spip';
-		}
-	} else {
-		$table_prefix = _INSTALL_TABLE_PREFIX;
-	}
-
-	if (preg_match(',(.*):(.*),', (string) $adresse_db, $r)) {
-		[, $adresse_db, $port] = $r;
-	} else {
-		$port = '';
-	}
-
-	$GLOBALS['connexions'][$server_db]
-		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, '', $server_db);
-
-	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
-
-	$fquery = sql_serveur('query', $server_db);
-	if ($choix_db == 'new_spip') {
-		$re = ',^[a-z_][a-z_0-9-]*$,i';
-		if (preg_match($re, (string) $sel_db)) {
-			$ok = sql_create_base($sel_db, $server_db);
-			if (!$ok) {
-				$re = "Impossible de creer la base $re";
-				spip_log($re);
-				return '<p>' . _T('avis_connexion_erreur_creer_base') . "</p><!--\n$re\n-->";
-			}
-		} else {
-			$re = "Le nom de la base doit correspondre a $re";
-			spip_log($re);
-
-			return '<p>' . _T('avis_connexion_erreur_nom_base') . "</p><!--\n$re\n-->";
-		}
-	}
-
-	// on rejoue la connexion apres avoir teste si il faut lui indiquer
-	// un sql_mode
-	install_mode_appel($server_db, false);
-	$GLOBALS['connexions'][$server_db]
-		= spip_connect_db($adresse_db, $port, $login_db, $pass_db, $sel_db, $server_db);
-
-	$GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
-		= $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
-
-	// Completer le tableau decrivant la connexion
-
-	$GLOBALS['connexions'][$server_db]['prefixe'] = $table_prefix;
-	$GLOBALS['connexions'][$server_db]['db'] = $sel_db;
-
-	$old = sql_showbase($table_prefix . '_meta', $server_db);
-	if ($old) {
-		$old = sql_fetch($old, $server_db);
-	}
-	if (!$old) {
-		// Si possible, demander au serveur d'envoyer les textes
-		// dans le codage std de SPIP,
-		$charset = sql_get_charset(_DEFAULT_CHARSET, $server_db);
-
-		if ($charset) {
-			sql_set_charset($charset['charset'], $server_db);
-			$GLOBALS['meta']['charset_sql_base'] =
-				$charset['charset'];
-			$GLOBALS['meta']['charset_collation_sql_base'] =
-				$charset['collation'];
-			$GLOBALS['meta']['charset_sql_connexion'] =
-				$charset['charset'];
-			$charsetbase = $charset['charset'];
-		} else {
-			spip_log(_DEFAULT_CHARSET . ' inconnu du serveur SQL');
-			$charsetbase = 'standard';
-		}
-		spip_log("Creation des tables. Codage $charsetbase");
-		creer_base($server_db); // AT LAST
-		// memoriser avec quel charset on l'a creee
-
-		if ($charset) {
-			$t = [
-				'nom' => 'charset_sql_base',
-				'valeur' => $charset['charset'],
-				'impt' => 'non'
-			];
-			@sql_insertq('spip_meta', $t, [], $server_db);
-			$t['nom'] = 'charset_collation_sql_base';
-			$t['valeur'] = $charset['collation'];
-			@sql_insertq('spip_meta', $t, [], $server_db);
-			$t['nom'] = 'charset_sql_connexion';
-			$t['valeur'] = $charset['charset'];
-			@sql_insertq('spip_meta', $t, [], $server_db);
-		}
-		$t = [
-			'nom' => 'version_installee',
-			'valeur' => $GLOBALS['spip_version_base'],
-			'impt' => 'non'
-		];
-		@sql_insertq('spip_meta', $t, [], $server_db);
-		$t['nom'] = 'nouvelle_install';
-		$t['valeur'] = 1;
-		@sql_insertq('spip_meta', $t, [], $server_db);
-		// positionner la langue par defaut du site si un cookie de lang a ete mis
-		if (isset($_COOKIE['spip_lang_ecrire'])) {
-			@sql_insertq(
-				'spip_meta',
-				['nom' => 'langue_site', 'valeur' => $_COOKIE['spip_lang_ecrire']],
-				[],
-				$server_db
-			);
-		}
-	} else {
-		// pour recreer les tables disparues au besoin
-		spip_log('Table des Meta deja la. Verification des autres.');
-		creer_base($server_db);
-		$fupdateq = sql_serveur('updateq', $server_db);
-
-		$r = $fquery("SELECT valeur FROM spip_meta WHERE nom='version_installee'", $server_db);
-
-		if ($r) {
-			$r = sql_fetch($r, $server_db);
-		}
-		$version_installee = $r ? (double)$r['valeur'] : 0;
-		if (!$version_installee || $GLOBALS['spip_version_base'] < $version_installee) {
-			$fupdateq(
-				'spip_meta',
-				['valeur' => $GLOBALS['spip_version_base'], 'impt' => 'non'],
-				"nom='version_installee'",
-				'',
-				$server_db
-			);
-			spip_log('nouvelle version installee: ' . $GLOBALS['spip_version_base']);
-		}
-		// eliminer la derniere operation d'admin mal terminee
-		// notamment la mise a jour
-		@$fquery("DELETE FROM spip_meta WHERE nom='import_all' OR  nom='admin'", $server_db);
-	}
-
-	// recuperer le charset de la connexion dans les meta
-	$charset = '';
-	$r = $fquery("SELECT valeur FROM spip_meta WHERE nom='charset_sql_connexion'", $server_db);
-	if ($r) {
-		$r = sql_fetch($r, $server_db);
-	}
-	if ($r) {
-		$charset = $r['valeur'];
-	}
-
-	$ligne_rappel = install_mode_appel($server_db);
-
-	$result_ok = @$fquery('SELECT COUNT(*) FROM spip_meta', $server_db);
-	if (!$result_ok) {
-		return "<!--\nvielle = $old rappel= $ligne_rappel\n-->";
-	}
-
-	if ($chmod_db) {
-		install_fichier_connexion(
-			_FILE_CHMOD_TMP,
-			"if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', " . sprintf('0%3o', $chmod_db) . ");\n"
-		);
-	}
-
-	// si ce fichier existe a cette etape c'est qu'il provient
-	// d'une installation qui ne l'a pas cree correctement.
-	// Le supprimer pour que _FILE_CONNECT_TMP prime.
-
-	if (_FILE_CONNECT && file_exists(_FILE_CONNECT)) {
-		spip_unlink(_FILE_CONNECT);
-	}
-
-	install_fichier_connexion(
-		_FILE_CONNECT_TMP,
-		$ligne_rappel
-		. install_connexion(
-			$adresse_db,
-			$port,
-			$login_db,
-			$pass_db,
-			$sel_db,
-			$server_db,
-			$table_prefix,
-			'',
-			$charset
-		)
-	);
-
-	return '';
+    // Prefix des tables :
+    // S'il n'est pas defini par mes_options/inc/mutualiser, on va le creer
+    // a partir de ce qui est envoye a l'installation
+    if (!defined('_INSTALL_TABLE_PREFIX')) {
+        $table_prefix = ($GLOBALS['table_prefix'] != 'spip')
+            ? $GLOBALS['table_prefix']
+            : preparer_prefixe_tables(_request('tprefix'));
+        // S'il est vide on remet spip
+        if (!$table_prefix) {
+            $table_prefix = 'spip';
+        }
+    } else {
+        $table_prefix = _INSTALL_TABLE_PREFIX;
+    }
+
+    if (preg_match(',(.*):(.*),', (string) $adresse_db, $r)) {
+        [, $adresse_db, $port] = $r;
+    } else {
+        $port = '';
+    }
+
+    $GLOBALS['connexions'][$server_db]
+        = spip_connect_db($adresse_db, $port, $login_db, $pass_db, '', $server_db);
+
+    $GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
+        = $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+
+    $fquery = sql_serveur('query', $server_db);
+    if ($choix_db == 'new_spip') {
+        $re = ',^[a-z_][a-z_0-9-]*$,i';
+        if (preg_match($re, (string) $sel_db)) {
+            $ok = sql_create_base($sel_db, $server_db);
+            if (!$ok) {
+                $re = "Impossible de creer la base $re";
+                spip_log($re);
+                return '<p>' . _T('avis_connexion_erreur_creer_base') . "</p><!--\n$re\n-->";
+            }
+        } else {
+            $re = "Le nom de la base doit correspondre a $re";
+            spip_log($re);
+
+            return '<p>' . _T('avis_connexion_erreur_nom_base') . "</p><!--\n$re\n-->";
+        }
+    }
+
+    // on rejoue la connexion apres avoir teste si il faut lui indiquer
+    // un sql_mode
+    install_mode_appel($server_db, false);
+    $GLOBALS['connexions'][$server_db]
+        = spip_connect_db($adresse_db, $port, $login_db, $pass_db, $sel_db, $server_db);
+
+    $GLOBALS['connexions'][$server_db][$GLOBALS['spip_sql_version']]
+        = $GLOBALS['spip_' . $server_db . '_functions_' . $GLOBALS['spip_sql_version']];
+
+    // Completer le tableau decrivant la connexion
+
+    $GLOBALS['connexions'][$server_db]['prefixe'] = $table_prefix;
+    $GLOBALS['connexions'][$server_db]['db'] = $sel_db;
+
+    $old = sql_showbase($table_prefix . '_meta', $server_db);
+    if ($old) {
+        $old = sql_fetch($old, $server_db);
+    }
+    if (!$old) {
+        // Si possible, demander au serveur d'envoyer les textes
+        // dans le codage std de SPIP,
+        $charset = sql_get_charset(_DEFAULT_CHARSET, $server_db);
+
+        if ($charset) {
+            sql_set_charset($charset['charset'], $server_db);
+            $GLOBALS['meta']['charset_sql_base'] =
+                $charset['charset'];
+            $GLOBALS['meta']['charset_collation_sql_base'] =
+                $charset['collation'];
+            $GLOBALS['meta']['charset_sql_connexion'] =
+                $charset['charset'];
+            $charsetbase = $charset['charset'];
+        } else {
+            spip_log(_DEFAULT_CHARSET . ' inconnu du serveur SQL');
+            $charsetbase = 'standard';
+        }
+        spip_log("Creation des tables. Codage $charsetbase");
+        creer_base($server_db); // AT LAST
+        // memoriser avec quel charset on l'a creee
+
+        if ($charset) {
+            $t = [
+                'nom' => 'charset_sql_base',
+                'valeur' => $charset['charset'],
+                'impt' => 'non'
+            ];
+            @sql_insertq('spip_meta', $t, [], $server_db);
+            $t['nom'] = 'charset_collation_sql_base';
+            $t['valeur'] = $charset['collation'];
+            @sql_insertq('spip_meta', $t, [], $server_db);
+            $t['nom'] = 'charset_sql_connexion';
+            $t['valeur'] = $charset['charset'];
+            @sql_insertq('spip_meta', $t, [], $server_db);
+        }
+        $t = [
+            'nom' => 'version_installee',
+            'valeur' => $GLOBALS['spip_version_base'],
+            'impt' => 'non'
+        ];
+        @sql_insertq('spip_meta', $t, [], $server_db);
+        $t['nom'] = 'nouvelle_install';
+        $t['valeur'] = 1;
+        @sql_insertq('spip_meta', $t, [], $server_db);
+        // positionner la langue par defaut du site si un cookie de lang a ete mis
+        if (isset($_COOKIE['spip_lang_ecrire'])) {
+            @sql_insertq(
+                'spip_meta',
+                ['nom' => 'langue_site', 'valeur' => $_COOKIE['spip_lang_ecrire']],
+                [],
+                $server_db
+            );
+        }
+    } else {
+        // pour recreer les tables disparues au besoin
+        spip_log('Table des Meta deja la. Verification des autres.');
+        creer_base($server_db);
+        $fupdateq = sql_serveur('updateq', $server_db);
+
+        $r = $fquery("SELECT valeur FROM spip_meta WHERE nom='version_installee'", $server_db);
+
+        if ($r) {
+            $r = sql_fetch($r, $server_db);
+        }
+        $version_installee = $r ? (double)$r['valeur'] : 0;
+        if (!$version_installee || $GLOBALS['spip_version_base'] < $version_installee) {
+            $fupdateq(
+                'spip_meta',
+                ['valeur' => $GLOBALS['spip_version_base'], 'impt' => 'non'],
+                "nom='version_installee'",
+                '',
+                $server_db
+            );
+            spip_log('nouvelle version installee: ' . $GLOBALS['spip_version_base']);
+        }
+        // eliminer la derniere operation d'admin mal terminee
+        // notamment la mise a jour
+        @$fquery("DELETE FROM spip_meta WHERE nom='import_all' OR  nom='admin'", $server_db);
+    }
+
+    // recuperer le charset de la connexion dans les meta
+    $charset = '';
+    $r = $fquery("SELECT valeur FROM spip_meta WHERE nom='charset_sql_connexion'", $server_db);
+    if ($r) {
+        $r = sql_fetch($r, $server_db);
+    }
+    if ($r) {
+        $charset = $r['valeur'];
+    }
+
+    $ligne_rappel = install_mode_appel($server_db);
+
+    $result_ok = @$fquery('SELECT COUNT(*) FROM spip_meta', $server_db);
+    if (!$result_ok) {
+        return "<!--\nvielle = $old rappel= $ligne_rappel\n-->";
+    }
+
+    if ($chmod_db) {
+        install_fichier_connexion(
+            _FILE_CHMOD_TMP,
+            "if (!defined('_SPIP_CHMOD')) define('_SPIP_CHMOD', " . sprintf('0%3o', $chmod_db) . ");\n"
+        );
+    }
+
+    // si ce fichier existe a cette etape c'est qu'il provient
+    // d'une installation qui ne l'a pas cree correctement.
+    // Le supprimer pour que _FILE_CONNECT_TMP prime.
+
+    if (_FILE_CONNECT && file_exists(_FILE_CONNECT)) {
+        spip_unlink(_FILE_CONNECT);
+    }
+
+    install_fichier_connexion(
+        _FILE_CONNECT_TMP,
+        $ligne_rappel
+        . install_connexion(
+            $adresse_db,
+            $port,
+            $login_db,
+            $pass_db,
+            $sel_db,
+            $server_db,
+            $table_prefix,
+            '',
+            $charset
+        )
+    );
+
+    return '';
 }
 
 /**
@@ -227,166 +227,166 @@ 
  * @return string Le préfixe corrigé
  */
 function preparer_prefixe_tables($prefixe) {
-	return trim(preg_replace(',^\d+,', '', preg_replace(',[^a-z0-9],', '', strtolower($prefixe))));
+    return trim(preg_replace(',^\d+,', '', preg_replace(',[^a-z0-9],', '', strtolower($prefixe))));
 }
 
 function install_propose_ldap() {
-	return generer_form_ecrire('install', (
-	fieldset(
-		_T('info_authentification_externe'),
-		[
-			'etape' => [
-				'label' => _T('texte_annuaire_ldap_1'),
-				'valeur' => 'ldap1',
-				'hidden' => true
-			]
-		],
-		bouton_suivant(_T('bouton_acces_ldap'))
-	)));
+    return generer_form_ecrire('install', (
+    fieldset(
+        _T('info_authentification_externe'),
+        [
+            'etape' => [
+                'label' => _T('texte_annuaire_ldap_1'),
+                'valeur' => 'ldap1',
+                'hidden' => true
+            ]
+        ],
+        bouton_suivant(_T('bouton_acces_ldap'))
+    )));
 }
 
 
 function install_premier_auteur($email, $login, $nom, #[\SensitiveParameter] $pass, $hidden, $auteur_obligatoire) {
-	return info_progression_etape(3, 'etape_', 'install/') .
-	info_etape(
-		_T('info_informations_personnelles'),
-		'<b>' . _T('texte_informations_personnelles_1') . '</b>' .
-		aider('install5', true) .
-		'<p>' .
-		($auteur_obligatoire ?
-			''
-			:
-			_T('texte_informations_personnelles_2') . ' ' . _T('info_laisser_champs_vides')
-		)
-	)
-	. generer_form_ecrire('install', (
-		"\n<input type='hidden' name='etape' value='3b' />"
-		. $hidden
-		. fieldset(
-			_T('info_identification_publique'),
-			[
-				'nom' => [
-					'label' => '<b>' . _T('entree_signature') . "</b><br />\n" . _T('entree_nom_pseudo_1') . "\n",
-					'valeur' => $nom,
-					'required' => $auteur_obligatoire,
-				],
-				'email' => [
-					'label' => '<b>' . _T('entree_adresse_email') . "</b>\n",
-					'valeur' => $email,
-				]
-			]
-		)
-
-		. fieldset(
-			_T('entree_identifiants_connexion'),
-			[
-				'login' => [
-					'label' => '<b>' . _T('entree_login') . "</b><br />\n" . _T(
-						'info_login_trop_court_car_pluriel',
-						['nb' => _LOGIN_TROP_COURT]
-					) . "\n",
-					'valeur' => $login,
-					'required' => $auteur_obligatoire,
-				],
-				'pass' => [
-					'label' => '<b>' . _T('entree_mot_passe') . "</b><br />\n" . _T(
-						'info_passe_trop_court_car_pluriel',
-						['nb' => _PASS_LONGUEUR_MINI]
-					) . "\n",
-					'valeur' => $pass,
-					'required' => $auteur_obligatoire,
-				],
-				'pass_verif' => [
-					'label' => '<b>' . _T('info_confirmer_passe') . "</b><br />\n",
-					'valeur' => $pass,
-					'required' => $auteur_obligatoire,
-				]
-			]
-		)
-		. bouton_suivant()));
+    return info_progression_etape(3, 'etape_', 'install/') .
+    info_etape(
+        _T('info_informations_personnelles'),
+        '<b>' . _T('texte_informations_personnelles_1') . '</b>' .
+        aider('install5', true) .
+        '<p>' .
+        ($auteur_obligatoire ?
+            ''
+            :
+            _T('texte_informations_personnelles_2') . ' ' . _T('info_laisser_champs_vides')
+        )
+    )
+    . generer_form_ecrire('install', (
+        "\n<input type='hidden' name='etape' value='3b' />"
+        . $hidden
+        . fieldset(
+            _T('info_identification_publique'),
+            [
+                'nom' => [
+                    'label' => '<b>' . _T('entree_signature') . "</b><br />\n" . _T('entree_nom_pseudo_1') . "\n",
+                    'valeur' => $nom,
+                    'required' => $auteur_obligatoire,
+                ],
+                'email' => [
+                    'label' => '<b>' . _T('entree_adresse_email') . "</b>\n",
+                    'valeur' => $email,
+                ]
+            ]
+        )
+
+        . fieldset(
+            _T('entree_identifiants_connexion'),
+            [
+                'login' => [
+                    'label' => '<b>' . _T('entree_login') . "</b><br />\n" . _T(
+                        'info_login_trop_court_car_pluriel',
+                        ['nb' => _LOGIN_TROP_COURT]
+                    ) . "\n",
+                    'valeur' => $login,
+                    'required' => $auteur_obligatoire,
+                ],
+                'pass' => [
+                    'label' => '<b>' . _T('entree_mot_passe') . "</b><br />\n" . _T(
+                        'info_passe_trop_court_car_pluriel',
+                        ['nb' => _PASS_LONGUEUR_MINI]
+                    ) . "\n",
+                    'valeur' => $pass,
+                    'required' => $auteur_obligatoire,
+                ],
+                'pass_verif' => [
+                    'label' => '<b>' . _T('info_confirmer_passe') . "</b><br />\n",
+                    'valeur' => $pass,
+                    'required' => $auteur_obligatoire,
+                ]
+            ]
+        )
+        . bouton_suivant()));
 }
 
 function install_etape_3_dist() {
-	$ldap_present = _request('ldap_present');
-
-	if (!$ldap_present) {
-		$adresse_db = defined('_INSTALL_HOST_DB')
-			? _INSTALL_HOST_DB
-			: _request('adresse_db');
-
-		$login_db = defined('_INSTALL_USER_DB')
-			? _INSTALL_USER_DB
-			: _request('login_db');
-
-		$pass_db = defined('_INSTALL_PASS_DB')
-			? _INSTALL_PASS_DB
-			: _request('pass_db');
-
-		$server_db = defined('_INSTALL_SERVER_DB')
-			? _INSTALL_SERVER_DB
-			: _request('server_db');
-
-		$chmod_db = defined('_SPIP_CHMOD')
-			? _SPIP_CHMOD
-			: _request('chmod');
-
-		$choix_db = defined('_INSTALL_NAME_DB')
-			? _INSTALL_NAME_DB
-			: _request('choix_db');
-
-		$sel_db = ($choix_db == 'new_spip')
-			? _request('table_new') : $choix_db;
-
-		$res = install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db);
-
-		if ($res) {
-			$res = info_progression_etape(2, 'etape_', 'install/', true)
-				. "<div class='error'><h3>" . _T('avis_operation_echec') . '</h3>'
-				. $res
-				. '<p>' . _T('texte_operation_echec') . '</p>'
-				. '</div>';
-		}
-	} else {
-		$res = '';
-		[$adresse_db, $login_db, $pass_db, $sel_db, $server_db] = analyse_fichier_connection(_FILE_CONNECT_TMP);
-		$GLOBALS['connexions'][$server_db] = spip_connect_db($adresse_db, $sel_db, $login_db, $pass_db, $sel_db, $server_db);
-	}
-
-	if (!$res) {
-		if (file_exists(_FILE_CONNECT_TMP)) {
-			include(_FILE_CONNECT_TMP);
-		} else {
-			redirige_url_ecrire('install');
-		}
-
-		if (file_exists(_FILE_CHMOD_TMP)) {
-			include(_FILE_CHMOD_TMP);
-		} else {
-			redirige_url_ecrire('install');
-		}
-
-		$hidden = predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
-			. (defined('_INSTALL_NAME_DB') ? ''
-				: "\n<input type='hidden' name='sel_db' value=\"" . spip_htmlspecialchars($sel_db) . '" />');
-
-		$auteur_obligatoire = ($ldap_present ? 0 : !sql_countsel('spip_auteurs', '', '', '', $server_db));
-
-		$res = "<div class='success'><b>"
-			. _T('info_base_installee')
-			. '</b></div>'
-			. install_premier_auteur(
-				_request('email'),
-				_request('login'),
-				_request('nom'),
-				_request('pass'),
-				$hidden,
-				$auteur_obligatoire
-			)
-			. (($ldap_present || !function_exists('ldap_connect'))
-				? '' : install_propose_ldap());
-	}
-
-
-	$minipage = new Installation();
-	echo $minipage->page($res);
+    $ldap_present = _request('ldap_present');
+
+    if (!$ldap_present) {
+        $adresse_db = defined('_INSTALL_HOST_DB')
+            ? _INSTALL_HOST_DB
+            : _request('adresse_db');
+
+        $login_db = defined('_INSTALL_USER_DB')
+            ? _INSTALL_USER_DB
+            : _request('login_db');
+
+        $pass_db = defined('_INSTALL_PASS_DB')
+            ? _INSTALL_PASS_DB
+            : _request('pass_db');
+
+        $server_db = defined('_INSTALL_SERVER_DB')
+            ? _INSTALL_SERVER_DB
+            : _request('server_db');
+
+        $chmod_db = defined('_SPIP_CHMOD')
+            ? _SPIP_CHMOD
+            : _request('chmod');
+
+        $choix_db = defined('_INSTALL_NAME_DB')
+            ? _INSTALL_NAME_DB
+            : _request('choix_db');
+
+        $sel_db = ($choix_db == 'new_spip')
+            ? _request('table_new') : $choix_db;
+
+        $res = install_bases($adresse_db, $login_db, $pass_db, $server_db, $choix_db, $sel_db, $chmod_db);
+
+        if ($res) {
+            $res = info_progression_etape(2, 'etape_', 'install/', true)
+                . "<div class='error'><h3>" . _T('avis_operation_echec') . '</h3>'
+                . $res
+                . '<p>' . _T('texte_operation_echec') . '</p>'
+                . '</div>';
+        }
+    } else {
+        $res = '';
+        [$adresse_db, $login_db, $pass_db, $sel_db, $server_db] = analyse_fichier_connection(_FILE_CONNECT_TMP);
+        $GLOBALS['connexions'][$server_db] = spip_connect_db($adresse_db, $sel_db, $login_db, $pass_db, $sel_db, $server_db);
+    }
+
+    if (!$res) {
+        if (file_exists(_FILE_CONNECT_TMP)) {
+            include(_FILE_CONNECT_TMP);
+        } else {
+            redirige_url_ecrire('install');
+        }
+
+        if (file_exists(_FILE_CHMOD_TMP)) {
+            include(_FILE_CHMOD_TMP);
+        } else {
+            redirige_url_ecrire('install');
+        }
+
+        $hidden = predef_ou_cache($adresse_db, $login_db, $pass_db, $server_db)
+            . (defined('_INSTALL_NAME_DB') ? ''
+                : "\n<input type='hidden' name='sel_db' value=\"" . spip_htmlspecialchars($sel_db) . '" />');
+
+        $auteur_obligatoire = ($ldap_present ? 0 : !sql_countsel('spip_auteurs', '', '', '', $server_db));
+
+        $res = "<div class='success'><b>"
+            . _T('info_base_installee')
+            . '</b></div>'
+            . install_premier_auteur(
+                _request('email'),
+                _request('login'),
+                _request('nom'),
+                _request('pass'),
+                $hidden,
+                $auteur_obligatoire
+            )
+            . (($ldap_present || !function_exists('ldap_connect'))
+                ? '' : install_propose_ldap());
+    }
+
+
+    $minipage = new Installation();
+    echo $minipage->page($res);
 }

ecrire/public/fonctions.php

Braces +2 added lines, -4 removed lines

@@ -282,8 +282,7 @@ 
 	if ($ids) {
 		$ids = array_column($ids, 'id_objet');
 		return implode(',', $ids);
-	}
-	else {
+	} else {
 		return '0';
 	}
 }
@@ -651,8 +650,7 @@ 
 		$logo_bg = timestamp($logo_bg);
 		$styles .= ".page_login, .page_spip_pass {background-image:url($logo_bg), url($logo_mini);}\n";
 		$Pile[0]['body_class'] = 'fond_image';
-	}
-	else {
+	} else {
 		$Pile[0]['body_class'] = 'sans_fond';
 	}
 	if ($styles) {

Indentation +373 added lines, -373 removed lines

@@ -22,7 +22,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // public/interfaces definit des traitements sur les champs qui utilisent des fonctions de inc/texte
@@ -54,75 +54,75 @@ 
  *     Introduction calculée
  **/
 function filtre_introduction_dist($descriptif, $texte, $longueur, $connect, $suite = null) {
-	// Si un descriptif est envoye, on l'utilise directement
-	if (strlen($descriptif)) {
-		return appliquer_traitement_champ($descriptif, 'introduction', '', [], $connect);
-	}
-
-	// De preference ce qui est marque <intro>...</intro>
-	$intro = '';
-	$texte = preg_replace(',(</?)intro>,i', "\\1intro>", $texte); // minuscules
-	while ($fin = strpos($texte, '</intro>')) {
-		$zone = substr($texte, 0, $fin);
-		$texte = substr($texte, $fin + strlen('</intro>'));
-		if (($deb = strpos($zone, '<intro>')) || str_starts_with($zone, '<intro>')) {
-			$zone = substr($zone, $deb + 7);
-		}
-		$intro .= $zone;
-	}
-
-	// [12025] On ne *PEUT* pas couper simplement ici car c'est du texte brut,
-	// qui inclus raccourcis et modeles
-	// un simple <articlexx> peut etre ensuite transforme en 1000 lignes ...
-	// par ailleurs le nettoyage des raccourcis ne tient pas compte
-	// des surcharges et enrichissement de propre
-	// couper doit se faire apres propre
-	//$texte = nettoyer_raccourcis_typo($intro ? $intro : $texte, $connect);
-
-	// Cependant pour des questions de perfs on coupe quand meme, en prenant
-	// large et en se mefiant des tableaux #1323
-
-	if (strlen($intro)) {
-		$texte = $intro;
-	} else {
-		if (
-			!str_contains("\n" . $texte, "\n|")
-			&& strlen($texte) > 2.5 * $longueur
-		) {
-			if (str_contains($texte, '<multi')) {
-				$texte = extraire_multi($texte);
-			}
-			$texte = couper($texte, 2 * $longueur);
-		}
-	}
-
-	// ne pas tenir compte des notes
-	if ($notes = charger_fonction('notes', 'inc', true)) {
-		$notes('', 'empiler');
-	}
-	// Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
-	// dans l'introduction.
-	$texte = supprime_img($texte, '');
-	$texte = appliquer_traitement_champ($texte, 'introduction', '', [], $connect);
-
-	if ($notes) {
-		$notes('', 'depiler');
-	}
-
-	if (is_null($suite) && defined('_INTRODUCTION_SUITE')) {
-		$suite = _INTRODUCTION_SUITE;
-	}
-	$texte = couper($texte, $longueur, $suite);
-	// comme on a coupe il faut repasser la typo (on a perdu les insecables)
-	$texte = typo($texte, true, $connect, []);
-
-	// et reparagrapher si necessaire (coherence avec le cas descriptif)
-	// une introduction a tojours un <p>
-	if ($GLOBALS['toujours_paragrapher']) { // Fermer les paragraphes
-	$texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
-	}
-
-	return $texte;
+    // Si un descriptif est envoye, on l'utilise directement
+    if (strlen($descriptif)) {
+        return appliquer_traitement_champ($descriptif, 'introduction', '', [], $connect);
+    }
+
+    // De preference ce qui est marque <intro>...</intro>
+    $intro = '';
+    $texte = preg_replace(',(</?)intro>,i', "\\1intro>", $texte); // minuscules
+    while ($fin = strpos($texte, '</intro>')) {
+        $zone = substr($texte, 0, $fin);
+        $texte = substr($texte, $fin + strlen('</intro>'));
+        if (($deb = strpos($zone, '<intro>')) || str_starts_with($zone, '<intro>')) {
+            $zone = substr($zone, $deb + 7);
+        }
+        $intro .= $zone;
+    }
+
+    // [12025] On ne *PEUT* pas couper simplement ici car c'est du texte brut,
+    // qui inclus raccourcis et modeles
+    // un simple <articlexx> peut etre ensuite transforme en 1000 lignes ...
+    // par ailleurs le nettoyage des raccourcis ne tient pas compte
+    // des surcharges et enrichissement de propre
+    // couper doit se faire apres propre
+    //$texte = nettoyer_raccourcis_typo($intro ? $intro : $texte, $connect);
+
+    // Cependant pour des questions de perfs on coupe quand meme, en prenant
+    // large et en se mefiant des tableaux #1323
+
+    if (strlen($intro)) {
+        $texte = $intro;
+    } else {
+        if (
+            !str_contains("\n" . $texte, "\n|")
+            && strlen($texte) > 2.5 * $longueur
+        ) {
+            if (str_contains($texte, '<multi')) {
+                $texte = extraire_multi($texte);
+            }
+            $texte = couper($texte, 2 * $longueur);
+        }
+    }
+
+    // ne pas tenir compte des notes
+    if ($notes = charger_fonction('notes', 'inc', true)) {
+        $notes('', 'empiler');
+    }
+    // Supprimer les modèles avant le propre afin d'éviter qu'ils n'ajoutent du texte indésirable
+    // dans l'introduction.
+    $texte = supprime_img($texte, '');
+    $texte = appliquer_traitement_champ($texte, 'introduction', '', [], $connect);
+
+    if ($notes) {
+        $notes('', 'depiler');
+    }
+
+    if (is_null($suite) && defined('_INTRODUCTION_SUITE')) {
+        $suite = _INTRODUCTION_SUITE;
+    }
+    $texte = couper($texte, $longueur, $suite);
+    // comme on a coupe il faut repasser la typo (on a perdu les insecables)
+    $texte = typo($texte, true, $connect, []);
+
+    // et reparagrapher si necessaire (coherence avec le cas descriptif)
+    // une introduction a tojours un <p>
+    if ($GLOBALS['toujours_paragrapher']) { // Fermer les paragraphes
+    $texte = paragrapher($texte, $GLOBALS['toujours_paragrapher']);
+    }
+
+    return $texte;
 }
 
 
@@ -157,64 +157,64 @@ 
  *     Code HTML de la pagination
  **/
 function filtre_pagination_dist(
-	$total,
-	$nom,
-	$position,
-	$pas,
-	$liste = true,
-	$modele = '',
-	string $connect = '',
-	$env = []
+    $total,
+    $nom,
+    $position,
+    $pas,
+    $liste = true,
+    $modele = '',
+    string $connect = '',
+    $env = []
 ) {
-	static $ancres = [];
-	if ($pas < 1) {
-		return '';
-	}
-	$ancre = 'pagination' . $nom; // #pagination_articles
-	$debut = 'debut' . $nom; // 'debut_articles'
-
-	// n'afficher l'ancre qu'une fois
-	$bloc_ancre = isset($ancres[$ancre]) ? '' : ($ancres[$ancre] = "<a id='" . $ancre . "' class='pagination_ancre'></a>");
-	// liste = false : on ne veut que l'ancre
-	if (!$liste) {
-		return $ancres[$ancre];
-	}
-
-	$self = (empty($env['self']) ? self() : $env['self']);
-	$pagination = [
-		'debut' => $debut,
-		'url' => parametre_url($self, 'fragment', ''), // nettoyer l'id ahah eventuel
-		'total' => $total,
-		'position' => (int) $position,
-		'pas' => $pas,
-		'nombre_pages' => floor(($total - 1) / $pas) + 1,
-		'page_courante' => floor((int) $position / $pas) + 1,
-		'ancre' => $ancre,
-		'bloc_ancre' => $bloc_ancre
-	];
-	if (is_array($env)) {
-		$pagination = array_merge($env, $pagination);
-	}
-
-	// Pas de pagination
-	if ($pagination['nombre_pages'] <= 1) {
-		return '';
-	}
-
-	if ($modele) {
-		$pagination['type_pagination'] = $modele;
-		$modele = trouver_fond('pagination_' . $modele, 'modeles') ? '_' . $modele : '';
-	}
-
-	if (!defined('_PAGINATION_NOMBRE_LIENS_MAX')) {
-		define('_PAGINATION_NOMBRE_LIENS_MAX', 10);
-	}
-	if (!defined('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE')) {
-		define('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE', 5);
-	}
-
-
-	return recuperer_fond("modeles/pagination$modele", $pagination, ['trim' => true], $connect);
+    static $ancres = [];
+    if ($pas < 1) {
+        return '';
+    }
+    $ancre = 'pagination' . $nom; // #pagination_articles
+    $debut = 'debut' . $nom; // 'debut_articles'
+
+    // n'afficher l'ancre qu'une fois
+    $bloc_ancre = isset($ancres[$ancre]) ? '' : ($ancres[$ancre] = "<a id='" . $ancre . "' class='pagination_ancre'></a>");
+    // liste = false : on ne veut que l'ancre
+    if (!$liste) {
+        return $ancres[$ancre];
+    }
+
+    $self = (empty($env['self']) ? self() : $env['self']);
+    $pagination = [
+        'debut' => $debut,
+        'url' => parametre_url($self, 'fragment', ''), // nettoyer l'id ahah eventuel
+        'total' => $total,
+        'position' => (int) $position,
+        'pas' => $pas,
+        'nombre_pages' => floor(($total - 1) / $pas) + 1,
+        'page_courante' => floor((int) $position / $pas) + 1,
+        'ancre' => $ancre,
+        'bloc_ancre' => $bloc_ancre
+    ];
+    if (is_array($env)) {
+        $pagination = array_merge($env, $pagination);
+    }
+
+    // Pas de pagination
+    if ($pagination['nombre_pages'] <= 1) {
+        return '';
+    }
+
+    if ($modele) {
+        $pagination['type_pagination'] = $modele;
+        $modele = trouver_fond('pagination_' . $modele, 'modeles') ? '_' . $modele : '';
+    }
+
+    if (!defined('_PAGINATION_NOMBRE_LIENS_MAX')) {
+        define('_PAGINATION_NOMBRE_LIENS_MAX', 10);
+    }
+    if (!defined('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE')) {
+        define('_PAGINATION_NOMBRE_LIENS_MAX_ECRIRE', 5);
+    }
+
+
+    return recuperer_fond("modeles/pagination$modele", $pagination, ['trim' => true], $connect);
 }
 
 
@@ -233,38 +233,38 @@ 
  *     Liste (première page, dernière page).
  **/
 function filtre_bornes_pagination_dist($courante, $nombre, $max = 10) {
-	if ($max <= 0 || $max >= $nombre) {
-		return [1, $nombre];
-	}
-	if ($max <= 1) {
-		return [$courante, $courante];
-	}
-
-	$premiere = max(1, $courante - floor(($max - 1) / 2));
-	$derniere = min($nombre, $premiere + $max - 2);
-	$premiere = $derniere == $nombre ? $derniere - $max + 1 : $premiere;
-
-	return [$premiere, $derniere];
+    if ($max <= 0 || $max >= $nombre) {
+        return [1, $nombre];
+    }
+    if ($max <= 1) {
+        return [$courante, $courante];
+    }
+
+    $premiere = max(1, $courante - floor(($max - 1) / 2));
+    $derniere = min($nombre, $premiere + $max - 2);
+    $premiere = $derniere == $nombre ? $derniere - $max + 1 : $premiere;
+
+    return [$premiere, $derniere];
 }
 
 function filtre_pagination_affiche_texte_lien_page_dist($type_pagination, $numero_page, $rang_item) {
-	if ($numero_page === 'tous') {
-		return '&#8734;';
-	}
-	if ($numero_page === 'prev') {
-		return '&lt;';
-	}
-	if ($numero_page === 'next') {
-		return '&gt;';
-	}
-
-	return match ($type_pagination) {
-		'resultats' => $rang_item + 1, // 1 11 21 31...
-		'naturel' => $rang_item ?: 1, // 1 10 20 30...
-		'rang' => $rang_item, // 0 10 20 30...
-		'page', 'prive' => $numero_page, // 1 2 3 4 5...
-		default => $numero_page, // 1 2 3 4 5...
-	};
+    if ($numero_page === 'tous') {
+        return '&#8734;';
+    }
+    if ($numero_page === 'prev') {
+        return '&lt;';
+    }
+    if ($numero_page === 'next') {
+        return '&gt;';
+    }
+
+    return match ($type_pagination) {
+        'resultats' => $rang_item + 1, // 1 11 21 31...
+        'naturel' => $rang_item ?: 1, // 1 10 20 30...
+        'rang' => $rang_item, // 0 10 20 30...
+        'page', 'prive' => $numero_page, // 1 2 3 4 5...
+        default => $numero_page, // 1 2 3 4 5...
+    };
 }
 
 /**
@@ -277,15 +277,15 @@ 
  **/
 function lister_objets_avec_logos($type) {
 
-	$objet = objet_type($type);
-	$ids = sql_allfetsel('L.id_objet', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode=' . sql_quote('logoon') . ' AND L.objet=' . sql_quote($objet));
-	if ($ids) {
-		$ids = array_column($ids, 'id_objet');
-		return implode(',', $ids);
-	}
-	else {
-		return '0';
-	}
+    $objet = objet_type($type);
+    $ids = sql_allfetsel('L.id_objet', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode=' . sql_quote('logoon') . ' AND L.objet=' . sql_quote($objet));
+    if ($ids) {
+        $ids = array_column($ids, 'id_objet');
+        return implode(',', $ids);
+    }
+    else {
+        return '0';
+    }
 }
 
 
@@ -301,14 +301,14 @@ 
  *     Code HTML des notes
  **/
 function calculer_notes() {
-	$r = '';
-	if ($notes = charger_fonction('notes', 'inc', true)) {
-		$r = $notes([]);
-		$notes('', 'depiler');
-		$notes('', 'empiler');
-	}
-
-	return $r;
+    $r = '';
+    if ($notes = charger_fonction('notes', 'inc', true)) {
+        $r = $notes([]);
+        $notes('', 'depiler');
+        $notes('', 'empiler');
+    }
+
+    return $r;
 }
 
 
@@ -325,10 +325,10 @@ 
  * @return string
  */
 function retrouver_rang_lien($objet_source, $ids, $objet_lie, $idl, $objet_lien) {
-	$res = lister_objets_liens($objet_source, $objet_lie, $idl, $objet_lien);
-	$res = array_column($res, 'rang_lien', $objet_source);
+    $res = lister_objets_liens($objet_source, $objet_lie, $idl, $objet_lien);
+    $res = array_column($res, 'rang_lien', $objet_source);
 
-	return ($res[$ids] ?? '');
+    return ($res[$ids] ?? '');
 }
 
 
@@ -345,19 +345,19 @@ 
  * @private
  */
 function lister_objets_liens($objet_source, $objet, $id_objet, $objet_lien) {
-	static $liens = [];
-	if (!isset($liens["$objet_source-$objet-$id_objet-$objet_lien"])) {
-		include_spip('action/editer_liens');
-		// quand $objet == $objet_lien == $objet_source on reste sur le cas par defaut de $objet_lien == $objet_source
-		if ($objet_lien == $objet && $objet_lien !== $objet_source) {
-			$res = objet_trouver_liens([$objet => $id_objet], [$objet_source => '*']);
-		} else {
-			$res = objet_trouver_liens([$objet_source => '*'], [$objet => $id_objet]);
-		}
-
-		$liens["$objet_source-$objet-$id_objet-$objet_lien"] = $res;
-	}
-	return $liens["$objet_source-$objet-$id_objet-$objet_lien"];
+    static $liens = [];
+    if (!isset($liens["$objet_source-$objet-$id_objet-$objet_lien"])) {
+        include_spip('action/editer_liens');
+        // quand $objet == $objet_lien == $objet_source on reste sur le cas par defaut de $objet_lien == $objet_source
+        if ($objet_lien == $objet && $objet_lien !== $objet_source) {
+            $res = objet_trouver_liens([$objet => $id_objet], [$objet_source => '*']);
+        } else {
+            $res = objet_trouver_liens([$objet_source => '*'], [$objet => $id_objet]);
+        }
+
+        $liens["$objet_source-$objet-$id_objet-$objet_lien"] = $res;
+    }
+    return $liens["$objet_source-$objet-$id_objet-$objet_lien"];
 }
 
 /**
@@ -371,24 +371,24 @@ 
  * @return int|string
  */
 function calculer_rang_smart($titre, $objet_source, $id, $env) {
-	// Cas du #RANG utilisé dans #FORMULAIRE_EDITER_LIENS -> attraper le rang du lien
-	// permet de voir le rang du lien si il y en a un en base, meme avant un squelette xxxx-lies.html ne gerant pas les liens
-	if (
-		isset($env['form']) && $env['form']
-		&& isset($env['_objet_lien']) && $env['_objet_lien']
-		&& (function_exists('lien_triables') || include_spip('action/editer_liens'))
-		&& ($r = objet_associable($env['_objet_lien']))
-		&& ([$p, $table_lien] = $r)
-		&& lien_triables($table_lien)
-		&& isset($env['objet']) && $env['objet']
-		&& isset($env['id_objet']) && $env['id_objet']
-		&& $objet_source
-		&& ($id = (int) $id)
-	) {
-		$rang = retrouver_rang_lien($objet_source, $id, $env['objet'], $env['id_objet'], $env['_objet_lien']);
-		return ($rang ?: '');
-	}
-	return recuperer_numero($titre);
+    // Cas du #RANG utilisé dans #FORMULAIRE_EDITER_LIENS -> attraper le rang du lien
+    // permet de voir le rang du lien si il y en a un en base, meme avant un squelette xxxx-lies.html ne gerant pas les liens
+    if (
+        isset($env['form']) && $env['form']
+        && isset($env['_objet_lien']) && $env['_objet_lien']
+        && (function_exists('lien_triables') || include_spip('action/editer_liens'))
+        && ($r = objet_associable($env['_objet_lien']))
+        && ([$p, $table_lien] = $r)
+        && lien_triables($table_lien)
+        && isset($env['objet']) && $env['objet']
+        && isset($env['id_objet']) && $env['id_objet']
+        && $objet_source
+        && ($id = (int) $id)
+    ) {
+        $rang = retrouver_rang_lien($objet_source, $id, $env['objet'], $env['id_objet'], $env['_objet_lien']);
+        return ($rang ?: '');
+    }
+    return recuperer_numero($titre);
 }
 
 /**
@@ -417,78 +417,78 @@ 
  */
 function calculer_balise_tri(string $champ_ou_sens, string $libelle, string $classe, string $tri_nom, string $tri_champ, string $tri_sens, $liste_tri_sens_defaut, string $nom_pagination = ''): string {
 
-	$url = self('&');
-	$tri_sens = (int) $tri_sens;
-	$alias_sens = [
-		'<' => -1,
-		'>' => 1,
-		'inverse' => -1,
-	];
-
-	// Normaliser la liste des sens de tri par défaut
-	// On ajoute un jocker pour les champs non présents dans la liste
-	// avec la valeur du 1er item de la liste, idem critère {tri}
-	if (is_array($liste_tri_sens_defaut)) {
-		$liste_tri_sens_defaut['*'] = array_values($liste_tri_sens_defaut)[0];
-	} else {
-		$liste_tri_sens_defaut = [
-			'*' => (int) ($alias_sens[$liste_tri_sens_defaut] ?? $liste_tri_sens_defaut),
-		];
-	}
-
-	// Les sens de tri actuel et nouveau :
-	// Soit c'est un sens fixe donné en paramètre (< ou >)
-	$is_sens_fixe = array_key_exists($champ_ou_sens, $alias_sens);
-	if ($is_sens_fixe) {
-		$tri_sens_actuel = $tri_sens;
-		$tri_sens_nouveau = $alias_sens[$champ_ou_sens];
-	// Soit c'est le champ utilisé actuellement pour le tri → on inverse le sens
-	} elseif ($champ_ou_sens === $tri_champ) {
-		$tri_sens_actuel = $tri_sens;
-		$tri_sens_nouveau = $tri_sens * -1;
-	// Sinon c'est un nouveau champ, et on prend son tri par défaut
-	} else {
-		$tri_sens_actuel = $tri_sens_nouveau = (int) ($liste_tri_sens_defaut[$champ_ou_sens] ?? $liste_tri_sens_defaut['*']);
-	}
-
-	// URL : ajouter le champ sur lequel porte le tri
-	if (!$is_sens_fixe) {
-		$param_tri = "tri$tri_nom";
-		$url = parametre_url($url, $param_tri, $champ_ou_sens);
-	}
-
-	// URL : n'ajouter le sens de tri que si nécessaire,
-	// c.à.d différent du sens par défaut pour le champ
-	$param_sens = "sens$tri_nom";
-	$tri_sens_defaut_champ = (int) ($liste_tri_sens_defaut[$champ_ou_sens] ?? $liste_tri_sens_defaut['*']);
-	if ($tri_sens_nouveau !== $tri_sens_defaut_champ) {
-		$url = parametre_url($url, $param_sens, $tri_sens_nouveau);
-	} else {
-		$url = parametre_url($url, $param_sens, '');
-	}
-
-	// Drapeau pour garder en session ?
-	$param_memo = ($is_sens_fixe ? $param_sens : $param_tri);
-	$url = parametre_url($url, 'var_memotri', str_starts_with($tri_nom, 'session') ? $param_memo : '');
-
-	// Classes : on indique le sens de tri et l'item exposé
-	if (!$is_sens_fixe) {
-		$classe .= ' item-tri item-tri_' . ($tri_sens_actuel === 1 ? 'asc' : 'desc');
-	}
-	if ($champ_ou_sens === $tri_champ) {
-		$classe .= ' item-tri_actif';
-	}
-
-	// Si on n'est pas en mode "Tout afficher" de la pagination
-	if ($nom_pagination && parametre_url($url, 'debut' . $nom_pagination) !== '-1') {
-		// reset la pagination quand on change de mode ou de sens de tri
-		$url = parametre_url($url, 'debut' . $nom_pagination, '');
-	}
-
-	// Lien
-	$balise = lien_ou_expose($url, $libelle, false, $classe);
-
-	return $balise;
+    $url = self('&');
+    $tri_sens = (int) $tri_sens;
+    $alias_sens = [
+        '<' => -1,
+        '>' => 1,
+        'inverse' => -1,
+    ];
+
+    // Normaliser la liste des sens de tri par défaut
+    // On ajoute un jocker pour les champs non présents dans la liste
+    // avec la valeur du 1er item de la liste, idem critère {tri}
+    if (is_array($liste_tri_sens_defaut)) {
+        $liste_tri_sens_defaut['*'] = array_values($liste_tri_sens_defaut)[0];
+    } else {
+        $liste_tri_sens_defaut = [
+            '*' => (int) ($alias_sens[$liste_tri_sens_defaut] ?? $liste_tri_sens_defaut),
+        ];
+    }
+
+    // Les sens de tri actuel et nouveau :
+    // Soit c'est un sens fixe donné en paramètre (< ou >)
+    $is_sens_fixe = array_key_exists($champ_ou_sens, $alias_sens);
+    if ($is_sens_fixe) {
+        $tri_sens_actuel = $tri_sens;
+        $tri_sens_nouveau = $alias_sens[$champ_ou_sens];
+    // Soit c'est le champ utilisé actuellement pour le tri → on inverse le sens
+    } elseif ($champ_ou_sens === $tri_champ) {
+        $tri_sens_actuel = $tri_sens;
+        $tri_sens_nouveau = $tri_sens * -1;
+    // Sinon c'est un nouveau champ, et on prend son tri par défaut
+    } else {
+        $tri_sens_actuel = $tri_sens_nouveau = (int) ($liste_tri_sens_defaut[$champ_ou_sens] ?? $liste_tri_sens_defaut['*']);
+    }
+
+    // URL : ajouter le champ sur lequel porte le tri
+    if (!$is_sens_fixe) {
+        $param_tri = "tri$tri_nom";
+        $url = parametre_url($url, $param_tri, $champ_ou_sens);
+    }
+
+    // URL : n'ajouter le sens de tri que si nécessaire,
+    // c.à.d différent du sens par défaut pour le champ
+    $param_sens = "sens$tri_nom";
+    $tri_sens_defaut_champ = (int) ($liste_tri_sens_defaut[$champ_ou_sens] ?? $liste_tri_sens_defaut['*']);
+    if ($tri_sens_nouveau !== $tri_sens_defaut_champ) {
+        $url = parametre_url($url, $param_sens, $tri_sens_nouveau);
+    } else {
+        $url = parametre_url($url, $param_sens, '');
+    }
+
+    // Drapeau pour garder en session ?
+    $param_memo = ($is_sens_fixe ? $param_sens : $param_tri);
+    $url = parametre_url($url, 'var_memotri', str_starts_with($tri_nom, 'session') ? $param_memo : '');
+
+    // Classes : on indique le sens de tri et l'item exposé
+    if (!$is_sens_fixe) {
+        $classe .= ' item-tri item-tri_' . ($tri_sens_actuel === 1 ? 'asc' : 'desc');
+    }
+    if ($champ_ou_sens === $tri_champ) {
+        $classe .= ' item-tri_actif';
+    }
+
+    // Si on n'est pas en mode "Tout afficher" de la pagination
+    if ($nom_pagination && parametre_url($url, 'debut' . $nom_pagination) !== '-1') {
+        // reset la pagination quand on change de mode ou de sens de tri
+        $url = parametre_url($url, 'debut' . $nom_pagination, '');
+    }
+
+    // Lien
+    $balise = lien_ou_expose($url, $libelle, false, $classe);
+
+    return $balise;
 }
 
 
@@ -504,7 +504,7 @@ 
  * @return string
  */
 function tri_protege_champ($t) {
-	return preg_replace(',[^\s\w.+\[\]],', '', $t);
+    return preg_replace(',[^\s\w.+\[\]],', '', $t);
 }
 
 /**
@@ -517,39 +517,39 @@ 
  * @return string
  */
 function tri_champ_order($t, $from = null, $senstri = '') {
-	if (str_starts_with($t, 'multi ')) {
-		return 'multi' . $senstri;
-	}
-
-	$champ = $t;
-
-	$prefixe = '';
-	foreach (['num ', 'sinum '] as $p) {
-		if (str_starts_with($t, $p)) {
-			$champ = substr($t, strlen($p));
-			$prefixe = $p;
-		}
-	}
-
-	// enlever les autres espaces non evacues par tri_protege_champ
-	$champ = preg_replace(',\s,', '', $champ);
-
-	if (is_array($from)) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-		foreach ($from as $idt => $table_sql) {
-			if (
-				($desc = $trouver_table($table_sql)) && isset($desc['field'][$champ])
-			) {
-				$champ = "$idt.$champ";
-				break;
-			}
-		}
-	}
-	return match ($prefixe) {
-		'num ' => "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}, 0+$champ{$senstri}",
-		'sinum ' => "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}",
-		default => $champ . $senstri,
-	};
+    if (str_starts_with($t, 'multi ')) {
+        return 'multi' . $senstri;
+    }
+
+    $champ = $t;
+
+    $prefixe = '';
+    foreach (['num ', 'sinum '] as $p) {
+        if (str_starts_with($t, $p)) {
+            $champ = substr($t, strlen($p));
+            $prefixe = $p;
+        }
+    }
+
+    // enlever les autres espaces non evacues par tri_protege_champ
+    $champ = preg_replace(',\s,', '', $champ);
+
+    if (is_array($from)) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+        foreach ($from as $idt => $table_sql) {
+            if (
+                ($desc = $trouver_table($table_sql)) && isset($desc['field'][$champ])
+            ) {
+                $champ = "$idt.$champ";
+                break;
+            }
+        }
+    }
+    return match ($prefixe) {
+        'num ' => "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}, 0+$champ{$senstri}",
+        'sinum ' => "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}",
+        default => $champ . $senstri,
+    };
 }
 
 /**
@@ -563,17 +563,17 @@ 
  * @return string
  */
 function tri_champ_select($t) {
-	if (str_starts_with($t, 'multi ')) {
-		$t = substr($t, 6);
-		$t = preg_replace(',\s,', '', $t);
+    if (str_starts_with($t, 'multi ')) {
+        $t = substr($t, 6);
+        $t = preg_replace(',\s,', '', $t);
 
-		return sql_multi($t, $GLOBALS['spip_lang']);
-	}
-	if (trim($t) == 'hasard') {
-		return 'rand() AS hasard';
-	}
+        return sql_multi($t, $GLOBALS['spip_lang']);
+    }
+    if (trim($t) == 'hasard') {
+        return 'rand() AS hasard';
+    }
 
-	return "''";
+    return "''";
 }
 
 /**
@@ -585,15 +585,15 @@ 
  * @return string
  */
 function formate_liste_critere_par_ordre_liste($valeurs, $serveur = '') {
-	if (!is_array($valeurs)) {
-		return '';
-	}
-	$f = sql_serveur('quote', $serveur, true);
-	if (!is_string($f) || !$f) {
-		return '';
-	}
-
-	return implode(',', array_map($f, array_unique($valeurs)));
+    if (!is_array($valeurs)) {
+        return '';
+    }
+    $f = sql_serveur('quote', $serveur, true);
+    if (!is_string($f) || !$f) {
+        return '';
+    }
+
+    return implode(',', array_map($f, array_unique($valeurs)));
 }
 
 /**
@@ -616,22 +616,22 @@ 
  *     Valeur $defaut sinon.
  **/
 function appliquer_filtre_sinon($arg, $filtre, $args, mixed $defaut = '') {
-	// Si c'est un filtre d'image, on utilise image_filtrer()
-	// Attention : les 2 premiers arguments sont inversés dans ce cas
-	if (trouver_filtre_matrice($filtre) && str_starts_with($filtre, 'image_')) {
-		include_spip('inc/filtres_images_lib_mini');
-		$args[1] = $args[0];
-		$args[0] = $filtre;
-		return image_graver(image_filtrer($args));
-	}
-
-	$f = chercher_filtre($filtre);
-	if (!$f) {
-		return $defaut;
-	}
-	array_shift($args); // enlever $arg
-	array_shift($args); // enlever $filtre
-	return $f($arg, ...$args);
+    // Si c'est un filtre d'image, on utilise image_filtrer()
+    // Attention : les 2 premiers arguments sont inversés dans ce cas
+    if (trouver_filtre_matrice($filtre) && str_starts_with($filtre, 'image_')) {
+        include_spip('inc/filtres_images_lib_mini');
+        $args[1] = $args[0];
+        $args[0] = $filtre;
+        return image_graver(image_filtrer($args));
+    }
+
+    $f = chercher_filtre($filtre);
+    if (!$f) {
+        return $defaut;
+    }
+    array_shift($args); // enlever $arg
+    array_shift($args); // enlever $filtre
+    return $f($arg, ...$args);
 }
 
 /**
@@ -641,30 +641,30 @@ 
  * @return string
  */
 function filtre_styles_inline_page_login_pass_dist(&$Pile, ...$dummy) {
-	$styles = '';
-	include_spip('inc/config');
-	if ($couleur = lire_config('couleur_login')) {
-		include_spip('inc/filtres_images_mini');
-		$hs = couleur_hex_to_hsl($couleur, 'h, s');
-		$l = couleur_hex_to_hsl($couleur, 'l');
-		$styles .= ":root {--spip-login-color-theme--hs: {$hs};--spip-login-color-theme--l: {$l};}\n";
-	}
-	$logo_bg = _DIR_IMG . 'spip_fond_login.jpg';
-	if (file_exists($logo_bg)) {
-		include_spip('inc/filtres_images_mini');
-		$logo_mini = image_reduire($logo_bg, 64, 64);
-		$logo_mini = extraire_attribut($logo_mini, 'src');
-		$embarque_fichier = charger_filtre('embarque_fichier');
-		$logo_mini = $embarque_fichier($logo_mini);
-		$logo_bg = timestamp($logo_bg);
-		$styles .= ".page_login, .page_spip_pass {background-image:url($logo_bg), url($logo_mini);}\n";
-		$Pile[0]['body_class'] = 'fond_image';
-	}
-	else {
-		$Pile[0]['body_class'] = 'sans_fond';
-	}
-	if ($styles) {
-		$styles = "<style type='text/css'>$styles</style>";
-	}
-	return $styles;
+    $styles = '';
+    include_spip('inc/config');
+    if ($couleur = lire_config('couleur_login')) {
+        include_spip('inc/filtres_images_mini');
+        $hs = couleur_hex_to_hsl($couleur, 'h, s');
+        $l = couleur_hex_to_hsl($couleur, 'l');
+        $styles .= ":root {--spip-login-color-theme--hs: {$hs};--spip-login-color-theme--l: {$l};}\n";
+    }
+    $logo_bg = _DIR_IMG . 'spip_fond_login.jpg';
+    if (file_exists($logo_bg)) {
+        include_spip('inc/filtres_images_mini');
+        $logo_mini = image_reduire($logo_bg, 64, 64);
+        $logo_mini = extraire_attribut($logo_mini, 'src');
+        $embarque_fichier = charger_filtre('embarque_fichier');
+        $logo_mini = $embarque_fichier($logo_mini);
+        $logo_bg = timestamp($logo_bg);
+        $styles .= ".page_login, .page_spip_pass {background-image:url($logo_bg), url($logo_mini);}\n";
+        $Pile[0]['body_class'] = 'fond_image';
+    }
+    else {
+        $Pile[0]['body_class'] = 'sans_fond';
+    }
+    if ($styles) {
+        $styles = "<style type='text/css'>$styles</style>";
+    }
+    return $styles;
 }

Spacing +12 added lines, -12 removed lines

@@ -86,7 +86,7 @@ 
 		$texte = $intro;
 	} else {
 		if (
-			!str_contains("\n" . $texte, "\n|")
+			!str_contains("\n".$texte, "\n|")
 			&& strlen($texte) > 2.5 * $longueur
 		) {
 			if (str_contains($texte, '<multi')) {
@@ -170,11 +170,11 @@ 
 	if ($pas < 1) {
 		return '';
 	}
-	$ancre = 'pagination' . $nom; // #pagination_articles
-	$debut = 'debut' . $nom; // 'debut_articles'
+	$ancre = 'pagination'.$nom; // #pagination_articles
+	$debut = 'debut'.$nom; // 'debut_articles'
 
 	// n'afficher l'ancre qu'une fois
-	$bloc_ancre = isset($ancres[$ancre]) ? '' : ($ancres[$ancre] = "<a id='" . $ancre . "' class='pagination_ancre'></a>");
+	$bloc_ancre = isset($ancres[$ancre]) ? '' : ($ancres[$ancre] = "<a id='".$ancre."' class='pagination_ancre'></a>");
 	// liste = false : on ne veut que l'ancre
 	if (!$liste) {
 		return $ancres[$ancre];
@@ -203,7 +203,7 @@ 
 
 	if ($modele) {
 		$pagination['type_pagination'] = $modele;
-		$modele = trouver_fond('pagination_' . $modele, 'modeles') ? '_' . $modele : '';
+		$modele = trouver_fond('pagination_'.$modele, 'modeles') ? '_'.$modele : '';
 	}
 
 	if (!defined('_PAGINATION_NOMBRE_LIENS_MAX')) {
@@ -278,7 +278,7 @@ 
 function lister_objets_avec_logos($type) {
 
 	$objet = objet_type($type);
-	$ids = sql_allfetsel('L.id_objet', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode=' . sql_quote('logoon') . ' AND L.objet=' . sql_quote($objet));
+	$ids = sql_allfetsel('L.id_objet', 'spip_documents AS D JOIN spip_documents_liens AS L ON L.id_document=D.id_document', 'D.mode='.sql_quote('logoon').' AND L.objet='.sql_quote($objet));
 	if ($ids) {
 		$ids = array_column($ids, 'id_objet');
 		return implode(',', $ids);
@@ -473,16 +473,16 @@ 
 
 	// Classes : on indique le sens de tri et l'item exposé
 	if (!$is_sens_fixe) {
-		$classe .= ' item-tri item-tri_' . ($tri_sens_actuel === 1 ? 'asc' : 'desc');
+		$classe .= ' item-tri item-tri_'.($tri_sens_actuel === 1 ? 'asc' : 'desc');
 	}
 	if ($champ_ou_sens === $tri_champ) {
 		$classe .= ' item-tri_actif';
 	}
 
 	// Si on n'est pas en mode "Tout afficher" de la pagination
-	if ($nom_pagination && parametre_url($url, 'debut' . $nom_pagination) !== '-1') {
+	if ($nom_pagination && parametre_url($url, 'debut'.$nom_pagination) !== '-1') {
 		// reset la pagination quand on change de mode ou de sens de tri
-		$url = parametre_url($url, 'debut' . $nom_pagination, '');
+		$url = parametre_url($url, 'debut'.$nom_pagination, '');
 	}
 
 	// Lien
@@ -518,7 +518,7 @@ 
  */
 function tri_champ_order($t, $from = null, $senstri = '') {
 	if (str_starts_with($t, 'multi ')) {
-		return 'multi' . $senstri;
+		return 'multi'.$senstri;
 	}
 
 	$champ = $t;
@@ -548,7 +548,7 @@ 
 	return match ($prefixe) {
 		'num ' => "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}, 0+$champ{$senstri}",
 		'sinum ' => "CASE( 0+$champ ) WHEN 0 THEN 1 ELSE 0 END{$senstri}",
-		default => $champ . $senstri,
+		default => $champ.$senstri,
 	};
 }
 
@@ -649,7 +649,7 @@ 
 		$l = couleur_hex_to_hsl($couleur, 'l');
 		$styles .= ":root {--spip-login-color-theme--hs: {$hs};--spip-login-color-theme--l: {$l};}\n";
 	}
-	$logo_bg = _DIR_IMG . 'spip_fond_login.jpg';
+	$logo_bg = _DIR_IMG.'spip_fond_login.jpg';
 	if (file_exists($logo_bg)) {
 		include_spip('inc/filtres_images_mini');
 		$logo_mini = image_reduire($logo_bg, 64, 64);

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";
 	}

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_log($skel_code, 'comp')
-		#}
-	}
-
-	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_log($skel_code, 'comp')
+        #}
+    }
+
+    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 = str_replace('\\', '/', $reflector->getFileName());
-	if (strncmp($file, str_replace('\\', '/', _ROOT_RACINE), strlen(_ROOT_RACINE)) === 0) {
-		$file = 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 = str_replace('\\', '/', $reflector->getFileName());
+    if (strncmp($file, str_replace('\\', '/', _ROOT_RACINE), strlen(_ROOT_RACINE)) === 0) {
+        $file = 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'] : ''));
 }

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'] : ''));
 }

ecrire/public/references.php

Spacing +16 added lines, -16 removed lines

@@ -126,7 +126,7 @@ 
 	$select = true
 ) {
 	if (!is_string($defaut)) {
-		$defaut = '($Pile[0][\'' . strtolower($nom_champ) . '\'] ?? null)';
+		$defaut = '($Pile[0][\''.strtolower($nom_champ).'\'] ?? null)';
 	}
 
 	$idb_origine = $idb;
@@ -159,7 +159,7 @@ 
 			}
 			// renseigner la boucle source de ce champ pour les traitements
 			$boucles[$idb_origine]->index_champ[$nom_champ_origine] = $idb;
-			$champ = '$Pile[$SP' . ($i ? "-$i" : '') . '][\'' . $c . '\']';
+			$champ = '$Pile[$SP'.($i ? "-$i" : '').'][\''.$c.'\']';
 			if (!$joker) {
 				return index_compose($conditionnel, $champ);
 			}
@@ -200,7 +200,7 @@ 
 function index_compose($conditionnel, $defaut) {
 	while ($c = array_pop($conditionnel)) {
 		// si on passe defaut = '', ne pas générer d'erreur de compilation.
-		$defaut = "($c:(" . ($defaut ?: "''") . '))';
+		$defaut = "($c:(".($defaut ?: "''").'))';
 	}
 
 	return $defaut;
@@ -247,7 +247,7 @@ 
 	if (!$r) {
 		$joker = false; // indiquer a l'appelant
 		# continuer pour chercher l'erreur suivante
-		return ["'#" . $r . ':' . $nom_champ . "'", ''];
+		return ["'#".$r.':'.$nom_champ."'", ''];
 	}
 
 	$desc = $boucles[$idb]->show;
@@ -290,7 +290,7 @@ 
 	if (preg_match('/^(.*)\.(.*)$/', $nom_champ, $r)) {
 		[, $_table, $_nom_champ] = $r;
 		if ($cle = trouver_jointure_champ($_nom_champ, $boucles[$idb], [$_table])) {
-			$_alias = $cle . '_' . $_nom_champ;
+			$_alias = $cle.'_'.$_nom_champ;
 			return index_exception(
 				$boucles[$idb],
 				$desc,
@@ -371,8 +371,8 @@ 
 			$t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
 		}
 		if ($t == null) {
-			[$e, $x] = $excep;  #PHP4 affecte de gauche a droite
-			$excep = $x;    #PHP5 de droite a gauche !
+			[$e, $x] = $excep; #PHP4 affecte de gauche a droite
+			$excep = $x; #PHP5 de droite a gauche !
 			$j = $trouver_table($e, $boucle->sql_serveur);
 			if (!$j) {
 				return ['', ''];
@@ -384,7 +384,7 @@ 
 					$l = (preg_split('/\s*,\s*/', $k));
 					$k = $desc['key']['PRIMARY KEY'];
 					if (!in_array($k, $l)) {
-						spip_log("jointure impossible $e " . implode(',', $l));
+						spip_log("jointure impossible $e ".implode(',', $l));
 
 						return ['', ''];
 					}
@@ -400,7 +400,7 @@ 
 	// demander a SQL de gerer le synonyme
 	// ca permet que excep soit dynamique (Cedric, 2/3/06)
 	if ($excep != $nom_champ) {
-		$excep .= ' AS ' . $nom_champ;
+		$excep .= ' AS '.$nom_champ;
 	}
 
 	return ["$t.$excep", $nom_champ];
@@ -648,7 +648,7 @@ 
 		implode(',', $collecte),
 		($collecte ? $param : substr($param, 1)), # virer la virgule
 		memoriser_contexte_compil($p),
-		($supp ? ', ' . implode(',', $supp) : (''))
+		($supp ? ', '.implode(',', $supp) : (''))
 	);
 
 	$p->interdire_scripts = false;
@@ -682,7 +682,7 @@ 
  * @return array
  *     Liste des codes PHP d'éxecution des balises collectées
  **/
-function collecter_balise_dynamique(array $l, Champ &$p, string $nom): array {
+function collecter_balise_dynamique(array $l, Champ & $p, string $nom): array {
 	$args = [];
 	foreach ($l as $c) {
 		if ($c === null) {
@@ -747,7 +747,7 @@ 
 	$nom = $p->id_boucle;
 
 	if ($nom && trouver_nom_serveur_distant($p)) {
-		spip_log($nom . ':' . $p->nom_champ . ' ' . _T('zbug_distant_interdit'));
+		spip_log($nom.':'.$p->nom_champ.' '._T('zbug_distant_interdit'));
 
 		return false;
 	}
@@ -823,7 +823,7 @@ 
 		&& $p->descr['documents']
 		&& (str_contains($ps, 'propre') || str_contains($ps, 'typo'))
 	) {
-		$ps = 'traiter_doublons_documents($doublons, ' . $ps . ')';
+		$ps = 'traiter_doublons_documents($doublons, '.$ps.')';
 	}
 
 	// La protection des champs par |safehtml est assuree par les extensions
@@ -927,7 +927,7 @@ 
 function compose_filtres_args($p, $args, $sep) {
 	$arglist = '';
 	foreach ($args as $arg) {
-		$arglist .= $sep .
+		$arglist .= $sep.
 			calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
 	}
 
@@ -977,7 +977,7 @@ 
 	while ($b != '') {
 		foreach ($p->boucles[$b]->criteres as $critere) {
 			if ($critere->op == $motif) {
-				$p->code = '$Pile[$SP' . (($n == 0) ? '' : "-$n") .
+				$p->code = '$Pile[$SP'.(($n == 0) ? '' : "-$n").
 					"]['$champ']";
 				$b = '';
 				break 2;
@@ -1005,6 +1005,6 @@ 
  */
 function zbug_presenter_champ($p, $champ = '') {
 	$balise = $champ ?: $p->nom_champ;
-	$explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
+	$explicite = $p->nom_boucle ? $p->nom_boucle.':' : '';
 	return "#{$explicite}{$balise}";
 }

Indentation +532 added lines, -532 removed lines

@@ -18,7 +18,7 @@ 
  * @package SPIP\Core\Compilateur\References
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -43,14 +43,14 @@ 
  *     - '' si une référence explicite incorrecte est envoyée
  */
 function index_boucle($p) {
-	if (strlen($p->nom_boucle)) {
-		// retourne l’index explicite demandé s’il existe
-		if (!empty($p->boucles[$p->nom_boucle])) {
-			return $p->nom_boucle;
-		}
-		return '';
-	}
-	return $p->id_boucle;
+    if (strlen($p->nom_boucle)) {
+        // retourne l’index explicite demandé s’il existe
+        if (!empty($p->boucles[$p->nom_boucle])) {
+            return $p->nom_boucle;
+        }
+        return '';
+    }
+    return $p->id_boucle;
 }
 
 
@@ -73,17 +73,17 @@ 
  *     - '' si une référence explicite incorrecte est envoyée
  */
 function index_boucle_mere($p) {
-	if (strlen($p->nom_boucle)) {
-		// retourne l’index explicite demandé s’il existe
-		if (!empty($p->boucles[$p->nom_boucle])) {
-			return $p->nom_boucle;
-		}
-		return '';
-	}
-	if (!empty($p->descr['id_mere'])) {
-		return $p->descr['id_mere'];
-	}
-	return '';
+    if (strlen($p->nom_boucle)) {
+        // retourne l’index explicite demandé s’il existe
+        if (!empty($p->boucles[$p->nom_boucle])) {
+            return $p->nom_boucle;
+        }
+        return '';
+    }
+    if (!empty($p->descr['id_mere'])) {
+        return $p->descr['id_mere'];
+    }
+    return '';
 }
 
 /**
@@ -117,74 +117,74 @@ 
  *     Code PHP pour obtenir le champ SQL
  */
 function index_pile(
-	$idb,
-	$nom_champ,
-	&$boucles,
-	$explicite = '',
-	$defaut = null,
-	$remonte_pile = true,
-	$select = true
+    $idb,
+    $nom_champ,
+    &$boucles,
+    $explicite = '',
+    $defaut = null,
+    $remonte_pile = true,
+    $select = true
 ) {
-	if (!is_string($defaut)) {
-		$defaut = '($Pile[0][\'' . strtolower($nom_champ) . '\'] ?? null)';
-	}
-
-	$idb_origine = $idb;
-	$nom_champ_origine = $nom_champ;
-
-	$i = 0;
-	if (strlen($explicite)) {
-		// Recherche d'un champ dans un etage superieur
-		while (($idb !== $explicite) && ($idb !== '')) {
-			#	spip_log("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
-			$i++;
-			$idb = $boucles[$idb]->id_parent;
-		}
-	}
-
-	#	spip_log("Cherche: $nom_champ a partir de '$idb'");
-	$nom_champ = strtolower($nom_champ);
-	$conditionnel = [];
-	// attention: entre la boucle nommee 0, "" et le tableau vide,
-	// il y a incoherences qu'il vaut mieux eviter
-	while (isset($boucles[$idb])) {
-		$joker = true;
-		// modifie $joker si tous les champs sont autorisés.
-		// $t = le select pour le champ, si on l'a trouvé (ou si joker)
-		// $c = le nom du champ demandé
-		[$t, $c] = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
-		if ($t) {
-			if ($select && !in_array($t, $boucles[$idb]->select)) {
-				$boucles[$idb]->select[] = $t;
-			}
-			// renseigner la boucle source de ce champ pour les traitements
-			$boucles[$idb_origine]->index_champ[$nom_champ_origine] = $idb;
-			$champ = '$Pile[$SP' . ($i ? "-$i" : '') . '][\'' . $c . '\']';
-			if (!$joker) {
-				return index_compose($conditionnel, $champ);
-			}
-
-			// tant que l'on trouve des tables avec joker, on continue
-			// avec la boucle parente et on conditionne à l'exécution
-			// la présence du champ. Si le champ existe à l'exécution
-			// dans une boucle, il est pris, sinon on le cherche dans le parent...
-			$conditionnel[] = "isset($champ)?$champ";
-		}
-
-		if ($remonte_pile) {
-			#	spip_log("On remonte vers $i");
-			// Sinon on remonte d'un cran
-			$idb = $boucles[$idb]->id_parent;
-			$i++;
-		} else {
-			$idb = null;
-		}
-	}
-
-	#	spip_log("Pas vu $nom_champ");
-	// esperons qu'il y sera
-	// ou qu'on a fourni une valeur par "defaut" plus pertinent
-	return index_compose($conditionnel, $defaut);
+    if (!is_string($defaut)) {
+        $defaut = '($Pile[0][\'' . strtolower($nom_champ) . '\'] ?? null)';
+    }
+
+    $idb_origine = $idb;
+    $nom_champ_origine = $nom_champ;
+
+    $i = 0;
+    if (strlen($explicite)) {
+        // Recherche d'un champ dans un etage superieur
+        while (($idb !== $explicite) && ($idb !== '')) {
+            #	spip_log("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
+            $i++;
+            $idb = $boucles[$idb]->id_parent;
+        }
+    }
+
+    #	spip_log("Cherche: $nom_champ a partir de '$idb'");
+    $nom_champ = strtolower($nom_champ);
+    $conditionnel = [];
+    // attention: entre la boucle nommee 0, "" et le tableau vide,
+    // il y a incoherences qu'il vaut mieux eviter
+    while (isset($boucles[$idb])) {
+        $joker = true;
+        // modifie $joker si tous les champs sont autorisés.
+        // $t = le select pour le champ, si on l'a trouvé (ou si joker)
+        // $c = le nom du champ demandé
+        [$t, $c] = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
+        if ($t) {
+            if ($select && !in_array($t, $boucles[$idb]->select)) {
+                $boucles[$idb]->select[] = $t;
+            }
+            // renseigner la boucle source de ce champ pour les traitements
+            $boucles[$idb_origine]->index_champ[$nom_champ_origine] = $idb;
+            $champ = '$Pile[$SP' . ($i ? "-$i" : '') . '][\'' . $c . '\']';
+            if (!$joker) {
+                return index_compose($conditionnel, $champ);
+            }
+
+            // tant que l'on trouve des tables avec joker, on continue
+            // avec la boucle parente et on conditionne à l'exécution
+            // la présence du champ. Si le champ existe à l'exécution
+            // dans une boucle, il est pris, sinon on le cherche dans le parent...
+            $conditionnel[] = "isset($champ)?$champ";
+        }
+
+        if ($remonte_pile) {
+            #	spip_log("On remonte vers $i");
+            // Sinon on remonte d'un cran
+            $idb = $boucles[$idb]->id_parent;
+            $i++;
+        } else {
+            $idb = null;
+        }
+    }
+
+    #	spip_log("Pas vu $nom_champ");
+    // esperons qu'il y sera
+    // ou qu'on a fourni une valeur par "defaut" plus pertinent
+    return index_compose($conditionnel, $defaut);
 }
 
 /**
@@ -198,12 +198,12 @@ 
  * @return string              Code PHP complet de recherche d'un champ
  */
 function index_compose($conditionnel, $defaut) {
-	while ($c = array_pop($conditionnel)) {
-		// si on passe defaut = '', ne pas générer d'erreur de compilation.
-		$defaut = "($c:(" . ($defaut ?: "''") . '))';
-	}
+    while ($c = array_pop($conditionnel)) {
+        // si on passe defaut = '', ne pas générer d'erreur de compilation.
+        $defaut = "($c:(" . ($defaut ?: "''") . '))';
+    }
 
-	return $defaut;
+    return $defaut;
 }
 
 /**
@@ -239,98 +239,98 @@ 
  **/
 function index_tables_en_pile($idb, $nom_champ, &$boucles, &$joker) {
 
-	$r = $boucles[$idb]->type_requete;
-	// boucle recursive, c'est foutu...
-	if ($r == TYPE_RECURSIF) {
-		return [];
-	}
-	if (!$r) {
-		$joker = false; // indiquer a l'appelant
-		# continuer pour chercher l'erreur suivante
-		return ["'#" . $r . ':' . $nom_champ . "'", ''];
-	}
-
-	$desc = $boucles[$idb]->show;
-	// le nom du champ est il une exception de la table ? un alias ?
-	$excep = $GLOBALS['exceptions_des_tables'][$r] ?? '';
-	if ($excep) {
-		$excep = $excep[$nom_champ] ?? '';
-	}
-
-	// il y a un alias connu pour ce champ
-	if ($excep) {
-		$joker = false; // indiquer a l'appelant
-		return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
-	}
-
-	// le champ existe dans la table, on le prend.
-	if (isset($desc['field'][$nom_champ])) {
-		$t = $boucles[$idb]->id_table ?? '';
-		$joker = false; // indiquer a l'appelant
-		// note: dans certains cas ('valeur' d’une boucle DATA, sans id_table), retourne ['.valeur', 'valeur'] …
-		return ["$t.$nom_champ", $nom_champ];
-	}
-
-	// Tous les champs sont-ils acceptés ?
-	// Si oui, on retourne le champ, et on lève le flag joker
-	// C'est le cas des itérateurs DATA qui acceptent tout
-	// et testent la présence du champ à l'exécution et non à la compilation
-	// car ils ne connaissent pas ici leurs contenus.
-	if (
-		/*$joker AND */
-		isset($desc['field']['*'])
-	) {
-		$joker = true; // indiquer a l'appelant
-		return [$nom_champ, $nom_champ];
-	}
-
-	$joker = false; // indiquer a l'appelant
-
-	// la table de jointure est explicitement indiquée (rubrique.titre)
-	if (preg_match('/^(.*)\.(.*)$/', $nom_champ, $r)) {
-		[, $_table, $_nom_champ] = $r;
-		if ($cle = trouver_jointure_champ($_nom_champ, $boucles[$idb], [$_table])) {
-			$_alias = $cle . '_' . $_nom_champ;
-			return index_exception(
-				$boucles[$idb],
-				$desc,
-				$_alias,
-				[$_table, $_nom_champ]
-			);
-		}
-		return ['', ''];
-	}
-
-	// pas d'alias, pas de champ, pas de joker...
-	// tenter via une jointure...
-
-	// regarder si le champ est deja dans une jointure existante
-	// sinon, si il y a des joitures explicites, la construire
-	if (
-		!($t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb]))
-		&& $boucles[$idb]->jointures_explicites
-	) {
-		// [todo] Ne pas lancer que lorsque il y a des jointures explicites !!!!
-		// fonctionnel, il suffit d'utiliser $boucles[$idb]->jointures au lieu de jointures_explicites
-		// mais est-ce ce qu'on veut ?
-		$jointures = preg_split('/\s+/', $boucles[$idb]->jointures_explicites);
-		if ($cle = trouver_jointure_champ($nom_champ, $boucles[$idb], $jointures)) {
-			$t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb]);
-		}
-	}
-
-	if ($t) {
-		// si on a trouvé une jointure possible, on fait comme
-		// si c'était une exception pour le champ demandé
-		return index_exception(
-			$boucles[$idb],
-			$desc,
-			$nom_champ,
-			[$t[1]['id_table'], reset($t[2])]
-		);
-	}
-
-	return ['', ''];
+    $r = $boucles[$idb]->type_requete;
+    // boucle recursive, c'est foutu...
+    if ($r == TYPE_RECURSIF) {
+        return [];
+    }
+    if (!$r) {
+        $joker = false; // indiquer a l'appelant
+        # continuer pour chercher l'erreur suivante
+        return ["'#" . $r . ':' . $nom_champ . "'", ''];
+    }
+
+    $desc = $boucles[$idb]->show;
+    // le nom du champ est il une exception de la table ? un alias ?
+    $excep = $GLOBALS['exceptions_des_tables'][$r] ?? '';
+    if ($excep) {
+        $excep = $excep[$nom_champ] ?? '';
+    }
+
+    // il y a un alias connu pour ce champ
+    if ($excep) {
+        $joker = false; // indiquer a l'appelant
+        return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
+    }
+
+    // le champ existe dans la table, on le prend.
+    if (isset($desc['field'][$nom_champ])) {
+        $t = $boucles[$idb]->id_table ?? '';
+        $joker = false; // indiquer a l'appelant
+        // note: dans certains cas ('valeur' d’une boucle DATA, sans id_table), retourne ['.valeur', 'valeur'] …
+        return ["$t.$nom_champ", $nom_champ];
+    }
+
+    // Tous les champs sont-ils acceptés ?
+    // Si oui, on retourne le champ, et on lève le flag joker
+    // C'est le cas des itérateurs DATA qui acceptent tout
+    // et testent la présence du champ à l'exécution et non à la compilation
+    // car ils ne connaissent pas ici leurs contenus.
+    if (
+        /*$joker AND */
+        isset($desc['field']['*'])
+    ) {
+        $joker = true; // indiquer a l'appelant
+        return [$nom_champ, $nom_champ];
+    }
+
+    $joker = false; // indiquer a l'appelant
+
+    // la table de jointure est explicitement indiquée (rubrique.titre)
+    if (preg_match('/^(.*)\.(.*)$/', $nom_champ, $r)) {
+        [, $_table, $_nom_champ] = $r;
+        if ($cle = trouver_jointure_champ($_nom_champ, $boucles[$idb], [$_table])) {
+            $_alias = $cle . '_' . $_nom_champ;
+            return index_exception(
+                $boucles[$idb],
+                $desc,
+                $_alias,
+                [$_table, $_nom_champ]
+            );
+        }
+        return ['', ''];
+    }
+
+    // pas d'alias, pas de champ, pas de joker...
+    // tenter via une jointure...
+
+    // regarder si le champ est deja dans une jointure existante
+    // sinon, si il y a des joitures explicites, la construire
+    if (
+        !($t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb]))
+        && $boucles[$idb]->jointures_explicites
+    ) {
+        // [todo] Ne pas lancer que lorsque il y a des jointures explicites !!!!
+        // fonctionnel, il suffit d'utiliser $boucles[$idb]->jointures au lieu de jointures_explicites
+        // mais est-ce ce qu'on veut ?
+        $jointures = preg_split('/\s+/', $boucles[$idb]->jointures_explicites);
+        if ($cle = trouver_jointure_champ($nom_champ, $boucles[$idb], $jointures)) {
+            $t = trouver_champ_exterieur($nom_champ, $boucles[$idb]->from, $boucles[$idb]);
+        }
+    }
+
+    if ($t) {
+        // si on a trouvé une jointure possible, on fait comme
+        // si c'était une exception pour le champ demandé
+        return index_exception(
+            $boucles[$idb],
+            $desc,
+            $nom_champ,
+            [$t[1]['id_table'], reset($t[2])]
+        );
+    }
+
+    return ['', ''];
 }
 
 
@@ -358,52 +358,52 @@ 
  *     est une expression pour le SELECT de la boucle du style "mots.titre AS titre_mot"
  **/
 function index_exception(&$boucle, $desc, $nom_champ, $excep) {
-	static $trouver_table;
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	if (is_array($excep)) {
-		// permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
-		$t = null;
-		if (count($excep) == 3) {
-			$index_exception_derogatoire = array_pop($excep);
-			$t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
-		}
-		if ($t == null) {
-			[$e, $x] = $excep;  #PHP4 affecte de gauche a droite
-			$excep = $x;    #PHP5 de droite a gauche !
-			$j = $trouver_table($e, $boucle->sql_serveur);
-			if (!$j) {
-				return ['', ''];
-			}
-			$e = $j['table'];
-			if (!$t = array_search($e, $boucle->from)) {
-				$k = $j['key']['PRIMARY KEY'];
-				if (strpos($k, ',')) {
-					$l = (preg_split('/\s*,\s*/', $k));
-					$k = $desc['key']['PRIMARY KEY'];
-					if (!in_array($k, $l)) {
-						spip_log("jointure impossible $e " . implode(',', $l));
-
-						return ['', ''];
-					}
-				}
-				$k = [$boucle->id_table, [$e], $k];
-				fabrique_jointures($boucle, [$k]);
-				$t = array_search($e, $boucle->from);
-			}
-		}
-	} else {
-		$t = $boucle->id_table;
-	}
-	// demander a SQL de gerer le synonyme
-	// ca permet que excep soit dynamique (Cedric, 2/3/06)
-	if ($excep != $nom_champ) {
-		$excep .= ' AS ' . $nom_champ;
-	}
-
-	return ["$t.$excep", $nom_champ];
+    static $trouver_table;
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    if (is_array($excep)) {
+        // permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
+        $t = null;
+        if (count($excep) == 3) {
+            $index_exception_derogatoire = array_pop($excep);
+            $t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
+        }
+        if ($t == null) {
+            [$e, $x] = $excep;  #PHP4 affecte de gauche a droite
+            $excep = $x;    #PHP5 de droite a gauche !
+            $j = $trouver_table($e, $boucle->sql_serveur);
+            if (!$j) {
+                return ['', ''];
+            }
+            $e = $j['table'];
+            if (!$t = array_search($e, $boucle->from)) {
+                $k = $j['key']['PRIMARY KEY'];
+                if (strpos($k, ',')) {
+                    $l = (preg_split('/\s*,\s*/', $k));
+                    $k = $desc['key']['PRIMARY KEY'];
+                    if (!in_array($k, $l)) {
+                        spip_log("jointure impossible $e " . implode(',', $l));
+
+                        return ['', ''];
+                    }
+                }
+                $k = [$boucle->id_table, [$e], $k];
+                fabrique_jointures($boucle, [$k]);
+                $t = array_search($e, $boucle->from);
+            }
+        }
+    } else {
+        $t = $boucle->id_table;
+    }
+    // demander a SQL de gerer le synonyme
+    // ca permet que excep soit dynamique (Cedric, 2/3/06)
+    if ($excep != $nom_champ) {
+        $excep .= ' AS ' . $nom_champ;
+    }
+
+    return ["$t.$excep", $nom_champ];
 }
 
 /**
@@ -428,7 +428,7 @@ 
  *     Code PHP pour retrouver le champ
  */
 function champ_sql($champ, $p, $defaut = null, $remonte_pile = true) {
-	return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle, $defaut, $remonte_pile);
+    return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle, $defaut, $remonte_pile);
 }
 
 
@@ -448,9 +448,9 @@ 
  *     Code PHP pour d'exécution de la balise et de ses filtres
  **/
 function calculer_champ($p) {
-	$p = calculer_balise($p->nom_champ, $p);
+    $p = calculer_balise($p->nom_champ, $p);
 
-	return applique_filtres($p);
+    return applique_filtres($p);
 }
 
 
@@ -487,26 +487,26 @@ 
  **/
 function calculer_balise(string $nom, Champ $p): Champ {
 
-	// S'agit-t-il d'une balise_XXXX[_dist]() ?
-	if ($f = charger_fonction($nom, 'balise', true)) {
-		$p->balise_calculee = true;
-		$res = $f($p);
-		if ($res !== null && is_object($res)) {
-			return $res;
-		}
-	}
-
-	// Certaines des balises comportant un _ sont generiques
-	if ($balise_generique = chercher_balise_generique($nom)) {
-		$res = $balise_generique['fonction_generique']($p);
-		if ($res !== null && is_object($res)) {
-			return $res;
-		}
-	}
-
-	$f = charger_fonction('DEFAUT', 'calculer_balise');
-
-	return $f($nom, $p);
+    // S'agit-t-il d'une balise_XXXX[_dist]() ?
+    if ($f = charger_fonction($nom, 'balise', true)) {
+        $p->balise_calculee = true;
+        $res = $f($p);
+        if ($res !== null && is_object($res)) {
+            return $res;
+        }
+    }
+
+    // Certaines des balises comportant un _ sont generiques
+    if ($balise_generique = chercher_balise_generique($nom)) {
+        $res = $balise_generique['fonction_generique']($p);
+        if ($res !== null && is_object($res)) {
+            return $res;
+        }
+    }
+
+    $f = charger_fonction('DEFAUT', 'calculer_balise');
+
+    return $f($nom, $p);
 }
 
 
@@ -534,33 +534,33 @@ 
  **/
 function calculer_balise_DEFAUT_dist($nom, $p) {
 
-	// ca pourrait etre un champ SQL homonyme,
-	$p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);
-
-	// compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
-	// il faut recracher {...} quand ce n'est finalement pas des args
-	if ($p->fonctions && !$p->fonctions[0][0] && $p->fonctions[0][1]) {
-		$code = addslashes($p->fonctions[0][1]);
-		$p->code .= " . '$code'";
-	}
-
-	// ne pas passer le filtre securite sur les id_xxx
-	if (str_starts_with($nom, 'ID_')) {
-		$p->interdire_scripts = false;
-	}
-
-	// Compatibilite ascendante avec les couleurs html (#FEFEFE) :
-	// SI le champ SQL n'est pas trouve
-	// ET si la balise a une forme de couleur
-	// ET s'il n'y a ni filtre ni etoile
-	// ALORS retourner la couleur.
-	// Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]
-	if (preg_match('/^[A-F]{1,6}$/i', $nom) && !$p->etoile && !$p->fonctions) {
-		$p->code = "'#$nom'";
-		$p->interdire_scripts = false;
-	}
-
-	return $p;
+    // ca pourrait etre un champ SQL homonyme,
+    $p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);
+
+    // compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
+    // il faut recracher {...} quand ce n'est finalement pas des args
+    if ($p->fonctions && !$p->fonctions[0][0] && $p->fonctions[0][1]) {
+        $code = addslashes($p->fonctions[0][1]);
+        $p->code .= " . '$code'";
+    }
+
+    // ne pas passer le filtre securite sur les id_xxx
+    if (str_starts_with($nom, 'ID_')) {
+        $p->interdire_scripts = false;
+    }
+
+    // Compatibilite ascendante avec les couleurs html (#FEFEFE) :
+    // SI le champ SQL n'est pas trouve
+    // ET si la balise a une forme de couleur
+    // ET s'il n'y a ni filtre ni etoile
+    // ALORS retourner la couleur.
+    // Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]
+    if (preg_match('/^[A-F]{1,6}$/i', $nom) && !$p->etoile && !$p->fonctions) {
+        $p->code = "'#$nom'";
+        $p->interdire_scripts = false;
+    }
+
+    return $p;
 }
 
 
@@ -608,52 +608,52 @@ 
  **/
 function calculer_balise_dynamique($p, $nom, $l, $supp = []) {
 
-	if (!balise_distante_interdite($p)) {
-		$p->code = "''";
-
-		return $p;
-	}
-	// compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
-	// il faut recracher {...} quand ce n'est finalement pas des args
-	if ($p->fonctions && !$p->fonctions[0][0] && $p->fonctions[0][1]) {
-		$p->fonctions = [];
-	}
-
-	if ($p->param && ($c = $p->param[0])) {
-		// liste d'arguments commence toujours par la chaine vide
-		array_shift($c);
-		// construire la liste d'arguments comme pour un filtre
-		$param = compose_filtres_args($p, $c, ',');
-	} else {
-		$param = '';
-	}
-	$collecte = collecter_balise_dynamique($l, $p, $nom);
-
-	$dans_un_modele = false;
-	if (
-		!empty($p->descr['sourcefile']) && ($f = $p->descr['sourcefile']) && basename(dirname($f)) === 'modeles'
-	) {
-		$dans_un_modele = true;
-	}
-
-	// un modele est toujours inséré en texte dans son contenant
-	// donc si on est dans le public avec un cache on va perdre le dynamisme
-	// et on risque de mettre en cache les valeurs pre-remplies du formulaire
-	// on passe donc par une fonction proxy qui si besoin va collecter les arguments
-	// et injecter le PHP qui va appeler la fonction pour generer le formulaire au lieu de directement la fonction
-	// (dans l'espace prive on a pas de cache, donc pas de soucis (et un leak serait moins grave))
-	$p->code = sprintf(
-		$dans_un_modele ? CODE_EXECUTER_BALISE_MODELE : CODE_EXECUTER_BALISE,
-		$nom,
-		implode(',', $collecte),
-		($collecte ? $param : substr($param, 1)), # virer la virgule
-		memoriser_contexte_compil($p),
-		($supp ? ', ' . implode(',', $supp) : (''))
-	);
-
-	$p->interdire_scripts = false;
-
-	return $p;
+    if (!balise_distante_interdite($p)) {
+        $p->code = "''";
+
+        return $p;
+    }
+    // compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
+    // il faut recracher {...} quand ce n'est finalement pas des args
+    if ($p->fonctions && !$p->fonctions[0][0] && $p->fonctions[0][1]) {
+        $p->fonctions = [];
+    }
+
+    if ($p->param && ($c = $p->param[0])) {
+        // liste d'arguments commence toujours par la chaine vide
+        array_shift($c);
+        // construire la liste d'arguments comme pour un filtre
+        $param = compose_filtres_args($p, $c, ',');
+    } else {
+        $param = '';
+    }
+    $collecte = collecter_balise_dynamique($l, $p, $nom);
+
+    $dans_un_modele = false;
+    if (
+        !empty($p->descr['sourcefile']) && ($f = $p->descr['sourcefile']) && basename(dirname($f)) === 'modeles'
+    ) {
+        $dans_un_modele = true;
+    }
+
+    // un modele est toujours inséré en texte dans son contenant
+    // donc si on est dans le public avec un cache on va perdre le dynamisme
+    // et on risque de mettre en cache les valeurs pre-remplies du formulaire
+    // on passe donc par une fonction proxy qui si besoin va collecter les arguments
+    // et injecter le PHP qui va appeler la fonction pour generer le formulaire au lieu de directement la fonction
+    // (dans l'espace prive on a pas de cache, donc pas de soucis (et un leak serait moins grave))
+    $p->code = sprintf(
+        $dans_un_modele ? CODE_EXECUTER_BALISE_MODELE : CODE_EXECUTER_BALISE,
+        $nom,
+        implode(',', $collecte),
+        ($collecte ? $param : substr($param, 1)), # virer la virgule
+        memoriser_contexte_compil($p),
+        ($supp ? ', ' . implode(',', $supp) : (''))
+    );
+
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 
@@ -683,17 +683,17 @@ 
  *     Liste des codes PHP d'éxecution des balises collectées
  **/
 function collecter_balise_dynamique(array $l, Champ &$p, string $nom): array {
-	$args = [];
-	foreach ($l as $c) {
-		if ($c === null) {
-			$args[] = 'null';
-		} else {
-			$x = calculer_balise($c, $p);
-			$args[] = $x->code;
-		}
-	}
-
-	return $args;
+    $args = [];
+    foreach ($l as $c) {
+        if ($c === null) {
+            $args[] = 'null';
+        } else {
+            $x = calculer_balise($c, $p);
+            $args[] = $x->code;
+        }
+    }
+
+    return $args;
 }
 
 
@@ -708,19 +708,19 @@ 
  *     Nom de la connexion
  **/
 function trouver_nom_serveur_distant($p) {
-	$nom = $p->id_boucle;
-	if (
-		$nom && isset($p->boucles[$nom])
-	) {
-		$s = $p->boucles[$nom]->sql_serveur;
-		if (
-			strlen($s) && strlen($serveur = strtolower($s)) && !in_array($serveur, $GLOBALS['exception_des_connect'])
-		) {
-			return $serveur;
-		}
-	}
-
-	return '';
+    $nom = $p->id_boucle;
+    if (
+        $nom && isset($p->boucles[$nom])
+    ) {
+        $s = $p->boucles[$nom]->sql_serveur;
+        if (
+            strlen($s) && strlen($serveur = strtolower($s)) && !in_array($serveur, $GLOBALS['exception_des_connect'])
+        ) {
+            return $serveur;
+        }
+    }
+
+    return '';
 }
 
 
@@ -744,15 +744,15 @@ 
  *     - false : La balise est interdite car le serveur est distant
  **/
 function balise_distante_interdite($p) {
-	$nom = $p->id_boucle;
+    $nom = $p->id_boucle;
 
-	if ($nom && trouver_nom_serveur_distant($p)) {
-		spip_log($nom . ':' . $p->nom_champ . ' ' . _T('zbug_distant_interdit'));
+    if ($nom && trouver_nom_serveur_distant($p)) {
+        spip_log($nom . ':' . $p->nom_champ . ' ' . _T('zbug_distant_interdit'));
 
-		return false;
-	}
+        return false;
+    }
 
-	return true;
+    return true;
 }
 
 
@@ -762,75 +762,75 @@ 
 //
 function champs_traitements($p) {
 
-	if (isset($GLOBALS['table_des_traitements'][$p->nom_champ])) {
-		$ps = $GLOBALS['table_des_traitements'][$p->nom_champ];
-	} else {
-		// quand on utilise un traitement catch-all *
-		// celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
-		// leur propre securite
-		$ps = $p->balise_calculee ? false : $GLOBALS['table_des_traitements']['*'];
-	}
-
-	if (is_array($ps)) {
-		// Recuperer le type de boucle (articles, DATA) et la table SQL sur laquelle elle porte
-		$idb = index_boucle($p);
-		// si le champ a ete trouve dans une boucle parente sa source est renseignee ici
-		if (!empty($p->boucles[$idb]->index_champ[$p->nom_champ])) {
-			$idb = $p->boucles[$idb]->index_champ[$p->nom_champ];
-		}
-
-		// mais on peut aussi etre hors boucle. Se mefier.
-		$type_requete = $p->boucles[$idb]->type_requete ?? false;
-		$table_sql = $p->boucles[$idb]->show['table_sql'] ?? false;
-
-		// bien prendre en compte les alias de boucles (hierarchie => rubrique, syndication => syncdic, etc.)
-		if ($type_requete && isset($GLOBALS['table_des_tables'][$type_requete])) {
-			$type_alias = $type_requete;
-			$type_requete = $GLOBALS['table_des_tables'][$type_requete];
-		} else {
-			$type_alias = false;
-		}
-
-		// le traitement peut n'etre defini que pour une table en particulier "spip_articles"
-		if ($table_sql && isset($ps[$table_sql])) {
-			$ps = $ps[$table_sql];
-		} // ou pour une boucle en particulier "DATA","articles"
-		elseif ($type_requete && isset($ps[$type_requete])) {
-			$ps = $ps[$type_requete];
-		} // ou pour une boucle utilisant un alias ("hierarchie")
-		elseif ($type_alias && isset($ps[$type_alias])) {
-			$ps = $ps[$type_alias];
-		} // ou pour indifféremment quelle que soit la boucle
-		elseif (isset($ps[0])) {
-			$ps = $ps[0];
-		} else {
-			$ps = false;
-		}
-	}
-
-	if (!$ps) {
-		return $p->code;
-	}
-
-	// Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
-	// ou si in INCLURE contient {doublons}
-	// on insere une fonction de remplissage du tableau des doublons
-	// dans les filtres propre() ou typo()
-	// (qui traitent les raccourcis <docXX> referencant les docs)
-
-	if (
-		isset($p->descr['documents'])
-		&& $p->descr['documents']
-		&& (str_contains($ps, 'propre') || str_contains($ps, 'typo'))
-	) {
-		$ps = 'traiter_doublons_documents($doublons, ' . $ps . ')';
-	}
-
-	// La protection des champs par |safehtml est assuree par les extensions
-	// dans la declaration des traitements des champs sensibles
-
-	// Remplacer enfin le placeholder %s par le vrai code de la balise
-	return str_replace('%s', $p->code, $ps);
+    if (isset($GLOBALS['table_des_traitements'][$p->nom_champ])) {
+        $ps = $GLOBALS['table_des_traitements'][$p->nom_champ];
+    } else {
+        // quand on utilise un traitement catch-all *
+        // celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
+        // leur propre securite
+        $ps = $p->balise_calculee ? false : $GLOBALS['table_des_traitements']['*'];
+    }
+
+    if (is_array($ps)) {
+        // Recuperer le type de boucle (articles, DATA) et la table SQL sur laquelle elle porte
+        $idb = index_boucle($p);
+        // si le champ a ete trouve dans une boucle parente sa source est renseignee ici
+        if (!empty($p->boucles[$idb]->index_champ[$p->nom_champ])) {
+            $idb = $p->boucles[$idb]->index_champ[$p->nom_champ];
+        }
+
+        // mais on peut aussi etre hors boucle. Se mefier.
+        $type_requete = $p->boucles[$idb]->type_requete ?? false;
+        $table_sql = $p->boucles[$idb]->show['table_sql'] ?? false;
+
+        // bien prendre en compte les alias de boucles (hierarchie => rubrique, syndication => syncdic, etc.)
+        if ($type_requete && isset($GLOBALS['table_des_tables'][$type_requete])) {
+            $type_alias = $type_requete;
+            $type_requete = $GLOBALS['table_des_tables'][$type_requete];
+        } else {
+            $type_alias = false;
+        }
+
+        // le traitement peut n'etre defini que pour une table en particulier "spip_articles"
+        if ($table_sql && isset($ps[$table_sql])) {
+            $ps = $ps[$table_sql];
+        } // ou pour une boucle en particulier "DATA","articles"
+        elseif ($type_requete && isset($ps[$type_requete])) {
+            $ps = $ps[$type_requete];
+        } // ou pour une boucle utilisant un alias ("hierarchie")
+        elseif ($type_alias && isset($ps[$type_alias])) {
+            $ps = $ps[$type_alias];
+        } // ou pour indifféremment quelle que soit la boucle
+        elseif (isset($ps[0])) {
+            $ps = $ps[0];
+        } else {
+            $ps = false;
+        }
+    }
+
+    if (!$ps) {
+        return $p->code;
+    }
+
+    // Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
+    // ou si in INCLURE contient {doublons}
+    // on insere une fonction de remplissage du tableau des doublons
+    // dans les filtres propre() ou typo()
+    // (qui traitent les raccourcis <docXX> referencant les docs)
+
+    if (
+        isset($p->descr['documents'])
+        && $p->descr['documents']
+        && (str_contains($ps, 'propre') || str_contains($ps, 'typo'))
+    ) {
+        $ps = 'traiter_doublons_documents($doublons, ' . $ps . ')';
+    }
+
+    // La protection des champs par |safehtml est assuree par les extensions
+    // dans la declaration des traitements des champs sensibles
+
+    // Remplacer enfin le placeholder %s par le vrai code de la balise
+    return str_replace('%s', $p->code, $ps);
 }
 
 
@@ -842,95 +842,95 @@ 
 //
 function applique_filtres($p) {
 
-	// Traitements standards (cf. supra)
-	$code = $p->etoile == '' ? champs_traitements($p) : $p->code;
+    // Traitements standards (cf. supra)
+    $code = $p->etoile == '' ? champs_traitements($p) : $p->code;
 
-	// Appliquer les filtres perso
-	if ($p->param) {
-		$code = compose_filtres($p, $code);
-	}
+    // Appliquer les filtres perso
+    if ($p->param) {
+        $code = compose_filtres($p, $code);
+    }
 
-	// S'il y a un lien avec la session, ajouter un code qui levera
-	// un drapeau dans la structure d'invalidation $Cache
-	if (isset($p->descr['session'])) {
-		$code = "invalideur_session(\$Cache, $code)";
-	}
+    // S'il y a un lien avec la session, ajouter un code qui levera
+    // un drapeau dans la structure d'invalidation $Cache
+    if (isset($p->descr['session'])) {
+        $code = "invalideur_session(\$Cache, $code)";
+    }
 
-	return sandbox_composer_interdire_scripts($code, $p);
+    return sandbox_composer_interdire_scripts($code, $p);
 }
 
 // Cf. function pipeline dans ecrire/inc_utils.php
 function compose_filtres(&$p, $code) {
 
-	$image_miette = false;
-	foreach ($p->param as $filtre) {
-		$fonc = array_shift($filtre);
-		if (!$fonc) {
-			continue;
-		} // normalement qu'au premier tour.
-		$is_filtre_image = (str_starts_with($fonc, 'image_') && $fonc != 'image_graver');
-		if ($image_miette && !$is_filtre_image) {
-			// il faut graver maintenant car apres le filtre en cours
-			// on est pas sur d'avoir encore le nom du fichier dans le pipe
-			$code = "filtrer('image_graver', $code)";
-			$image_miette = false;
-		}
-
-		// recuperer les arguments du filtre,
-		// a separer par "," ou ":" dans le cas du filtre "?{a,b}"
-		$countfiltre = is_countable($filtre) ? count($filtre) : 0;
-		if ($fonc !== '?') {
-			$sep = ',';
-		} else {
-			$sep = ':';
-			// |?{a,b} *doit* avoir exactement 2 arguments ; on les force
-			if ($countfiltre != 2) {
-				$filtre = [$filtre[0] ?? '', $filtre[1] ?? ''];
-				$countfiltre = 2;
-			}
-		}
-		$arglist = compose_filtres_args($p, $filtre, $sep);
-		$logique = filtre_logique($fonc, $code, substr($arglist, 1));
-		if ($logique) {
-			$code = $logique;
-		} else {
-			$code = sandbox_composer_filtre($fonc, $code, $arglist, $p, $countfiltre);
-			if ($is_filtre_image) {
-				$image_miette = true;
-			}
-		}
-	}
-	// ramasser les images intermediaires inutiles et graver l'image finale
-	if ($image_miette) {
-		$code = "filtrer('image_graver',$code)";
-	}
-
-	return $code;
+    $image_miette = false;
+    foreach ($p->param as $filtre) {
+        $fonc = array_shift($filtre);
+        if (!$fonc) {
+            continue;
+        } // normalement qu'au premier tour.
+        $is_filtre_image = (str_starts_with($fonc, 'image_') && $fonc != 'image_graver');
+        if ($image_miette && !$is_filtre_image) {
+            // il faut graver maintenant car apres le filtre en cours
+            // on est pas sur d'avoir encore le nom du fichier dans le pipe
+            $code = "filtrer('image_graver', $code)";
+            $image_miette = false;
+        }
+
+        // recuperer les arguments du filtre,
+        // a separer par "," ou ":" dans le cas du filtre "?{a,b}"
+        $countfiltre = is_countable($filtre) ? count($filtre) : 0;
+        if ($fonc !== '?') {
+            $sep = ',';
+        } else {
+            $sep = ':';
+            // |?{a,b} *doit* avoir exactement 2 arguments ; on les force
+            if ($countfiltre != 2) {
+                $filtre = [$filtre[0] ?? '', $filtre[1] ?? ''];
+                $countfiltre = 2;
+            }
+        }
+        $arglist = compose_filtres_args($p, $filtre, $sep);
+        $logique = filtre_logique($fonc, $code, substr($arglist, 1));
+        if ($logique) {
+            $code = $logique;
+        } else {
+            $code = sandbox_composer_filtre($fonc, $code, $arglist, $p, $countfiltre);
+            if ($is_filtre_image) {
+                $image_miette = true;
+            }
+        }
+    }
+    // ramasser les images intermediaires inutiles et graver l'image finale
+    if ($image_miette) {
+        $code = "filtrer('image_graver',$code)";
+    }
+
+    return $code;
 }
 
 // Filtres et,ou,oui,non,sinon,xou,xor,and,or,not,yes
 // et comparateurs
 function filtre_logique($fonc, $code, $arg) {
-	return match (true) {
-		in_array($fonc, $GLOBALS['table_criteres_infixes']) => "($code $fonc $arg)",
-		$fonc == 'and' || $fonc == 'et' => "((($code) AND ($arg)) ?' ' :'')",
-		$fonc == 'or' || $fonc == 'ou' => "((($code) OR ($arg)) ?' ' :'')",
-		$fonc == 'xor' || $fonc == 'xou' => "((($code) XOR ($arg)) ?' ' :'')",
-		$fonc == 'sinon' => "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)",
-		$fonc == 'not' || $fonc == 'non' => "(($code) ?'' :' ')",
-		$fonc == 'yes' || $fonc == 'oui' => "(($code) ?' ' :'')",
-		default => '',
-	};
+    return match (true) {
+        in_array($fonc, $GLOBALS['table_criteres_infixes']) => "($code $fonc $arg)",
+        $fonc == 'and' || $fonc == 'et' => "((($code) AND ($arg)) ?' ' :'')",
+        $fonc == 'or' || $fonc == 'ou' => "((($code) OR ($arg)) ?' ' :'')",
+        $fonc == 'xor' || $fonc == 'xou' => "((($code) XOR ($arg)) ?' ' :'')",
+        $fonc == 'sinon' => "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)",
+        $fonc == 'not' || $fonc == 'non' => "(($code) ?'' :' ')",
+        $fonc == 'yes' || $fonc == 'oui' => "(($code) ?' ' :'')",
+        default => '',
+    };
 }
 
 function compose_filtres_args($p, $args, $sep) {
-	$arglist = '';
-	foreach ($args as $arg) {
-		$arglist .= $sep .
-			calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
-	}
+    $arglist = '';
+    foreach ($args as $arg) {
+        $arglist .= $sep .
+            calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
+    }
 
-	return $arglist;
+    return $arglist;
 }
 
 
@@ -948,15 +948,15 @@ 
  **/
 function calculer_argument_precedent($idb, $nom_champ, &$boucles, $defaut = null) {
 
-	// si recursif, forcer l'extraction du champ SQL mais ignorer le code
-	if ($boucles[$idb]->externe) {
-		index_pile($idb, $nom_champ, $boucles, '', $defaut);
-		// retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
-		// on ignore le defaut fourni dans ce cas
-		$defaut = "(\$Pile[\$SP]['$nom_champ'] ?? null)";
-	}
+    // si recursif, forcer l'extraction du champ SQL mais ignorer le code
+    if ($boucles[$idb]->externe) {
+        index_pile($idb, $nom_champ, $boucles, '', $defaut);
+        // retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
+        // on ignore le defaut fourni dans ce cas
+        $defaut = "(\$Pile[\$SP]['$nom_champ'] ?? null)";
+    }
 
-	return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles, '', $defaut);
+    return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles, '', $defaut);
 }
 
 //
@@ -970,30 +970,30 @@ 
 //
 
 function rindex_pile($p, $champ, $motif) {
-	$n = 0;
-	$b = $p->id_boucle;
-	$p->code = '';
-	while ($b != '') {
-		foreach ($p->boucles[$b]->criteres as $critere) {
-			if ($critere->op == $motif) {
-				$p->code = '$Pile[$SP' . (($n == 0) ? '' : "-$n") .
-					"]['$champ']";
-				$b = '';
-				break 2;
-			}
-		}
-		$n++;
-		$b = $p->boucles[$b]->id_parent;
-	}
-
-	// si on est hors d'une boucle de {recherche}, cette balise est vide
-	if (!$p->code) {
-		$p->code = "''";
-	}
-
-	$p->interdire_scripts = false;
-
-	return $p;
+    $n = 0;
+    $b = $p->id_boucle;
+    $p->code = '';
+    while ($b != '') {
+        foreach ($p->boucles[$b]->criteres as $critere) {
+            if ($critere->op == $motif) {
+                $p->code = '$Pile[$SP' . (($n == 0) ? '' : "-$n") .
+                    "]['$champ']";
+                $b = '';
+                break 2;
+            }
+        }
+        $n++;
+        $b = $p->boucles[$b]->id_parent;
+    }
+
+    // si on est hors d'une boucle de {recherche}, cette balise est vide
+    if (!$p->code) {
+        $p->code = "''";
+    }
+
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 /**
@@ -1003,7 +1003,7 @@ 
  * @return string Nom de la balise, avec indication de boucle explicite si présent.
  */
 function zbug_presenter_champ($p, $champ = '') {
-	$balise = $champ ?: $p->nom_champ;
-	$explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
-	return "#{$explicite}{$balise}";
+    $balise = $champ ?: $p->nom_champ;
+    $explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
+    return "#{$explicite}{$balise}";
 }