spip / SPIP

ecrire/typographie/en.php

Indentation +22 added lines, -22 removed lines

@@ -11,37 +11,37 @@
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // rien sauf les "~" et "-,"
 
 function typographie_en_dist($letexte) {
 
-	// zouli apostrophe
-	$letexte = str_replace("'", '’', $letexte);
+    // zouli apostrophe
+    $letexte = str_replace("'", '’', $letexte);
 
-	$cherche1 = [
-		'/ --?,/S'
-	];
-	$remplace1 = [
-		'~\0'
-	];
-	$letexte = preg_replace($cherche1, $remplace1, $letexte);
+    $cherche1 = [
+        '/ --?,/S'
+    ];
+    $remplace1 = [
+        '~\0'
+    ];
+    $letexte = preg_replace($cherche1, $remplace1, $letexte);
 
-	$letexte = str_replace(' ', '~', $letexte);
-	$letexte = preg_replace('/ *~+ */', '~', $letexte);
+    $letexte = str_replace(' ', '~', $letexte);
+    $letexte = preg_replace('/ *~+ */', '~', $letexte);
 
-	$cherche2 = [
-		'/([^-\n]|^)--([^-]|$)/',
-		'/~/'
-	];
-	$remplace2 = [
-		'\1—\2',
-		' '
-	];
+    $cherche2 = [
+        '/([^-\n]|^)--([^-]|$)/',
+        '/~/'
+    ];
+    $remplace2 = [
+        '\1—\2',
+        ' '
+    ];
 
-	$letexte = preg_replace($cherche2, $remplace2, $letexte);
+    $letexte = preg_replace($cherche2, $remplace2, $letexte);
 
-	return $letexte;
+    return $letexte;
 }

ecrire/public/quete.php

Indentation +408 added lines, -408 removed lines

@@ -19,7 +19,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -33,16 +33,16 @@ 
  * @return array|bool|null
  */
 function quete_virtuel($id_article, $connect) {
-	return sql_getfetsel(
-		'virtuel',
-		'spip_articles',
-		['id_article=' . intval($id_article), "statut='publie'"],
-		'',
-		'',
-		'',
-		'',
-		$connect
-	);
+    return sql_getfetsel(
+        'virtuel',
+        'spip_articles',
+        ['id_article=' . intval($id_article), "statut='publie'"],
+        '',
+        '',
+        '',
+        '',
+        $connect
+    );
 }
 
 /**
@@ -57,41 +57,41 @@ 
  * @return array
  */
 function quete_parent_lang($table, $id, $connect = '') {
-	static $cache_quete = [];
-
-	if (!isset($cache_quete[$connect][$table][$id])) {
-		if (!isset($cache_quete[$connect][$table]['_select'])) {
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			if (
-				!$desc = $trouver_table(
-					$table,
-					$connect
-				) or !isset($desc['field']['id_rubrique'])
-			) {
-				// pas de parent rubrique, on passe
-				$cache_quete[$connect][$table]['_select'] = false;
-			} else {
-				$select = ($table == 'spip_rubriques' ? 'id_parent' : 'id_rubrique');
-				$select .= isset($desc['field']['lang']) ? ', lang' : '';
-				$cache_quete[$connect][$table]['_select'] = $select;
-				$cache_quete[$connect][$table]['_id'] = id_table_objet(objet_type($table));
-			}
-		}
-		if ($cache_quete[$connect][$table]['_select']) {
-			$cache_quete[$connect][$table][$id] = sql_fetsel(
-				$cache_quete[$connect][$table]['_select'],
-				$table,
-				$cache_quete[$connect][$table]['_id'] . '=' . intval($id),
-				'',
-				'',
-				'',
-				'',
-				$connect
-			);
-		}
-	}
-
-	return isset($cache_quete[$connect][$table][$id]) ? $cache_quete[$connect][$table][$id] : null;
+    static $cache_quete = [];
+
+    if (!isset($cache_quete[$connect][$table][$id])) {
+        if (!isset($cache_quete[$connect][$table]['_select'])) {
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            if (
+                !$desc = $trouver_table(
+                    $table,
+                    $connect
+                ) or !isset($desc['field']['id_rubrique'])
+            ) {
+                // pas de parent rubrique, on passe
+                $cache_quete[$connect][$table]['_select'] = false;
+            } else {
+                $select = ($table == 'spip_rubriques' ? 'id_parent' : 'id_rubrique');
+                $select .= isset($desc['field']['lang']) ? ', lang' : '';
+                $cache_quete[$connect][$table]['_select'] = $select;
+                $cache_quete[$connect][$table]['_id'] = id_table_objet(objet_type($table));
+            }
+        }
+        if ($cache_quete[$connect][$table]['_select']) {
+            $cache_quete[$connect][$table][$id] = sql_fetsel(
+                $cache_quete[$connect][$table]['_select'],
+                $table,
+                $cache_quete[$connect][$table]['_id'] . '=' . intval($id),
+                '',
+                '',
+                '',
+                '',
+                $connect
+            );
+        }
+    }
+
+    return isset($cache_quete[$connect][$table][$id]) ? $cache_quete[$connect][$table][$id] : null;
 }
 
 
@@ -108,11 +108,11 @@ 
  * @return int
  */
 function quete_parent($id_rubrique, $connect = '') {
-	if (!$id_rubrique = intval($id_rubrique)) {
-		return 0;
-	}
-	$id_parent = quete_parent_lang('spip_rubriques', $id_rubrique, $connect);
-	return $id_parent ? $id_parent['id_parent'] : 0;
+    if (!$id_rubrique = intval($id_rubrique)) {
+        return 0;
+    }
+    $id_parent = quete_parent_lang('spip_rubriques', $id_rubrique, $connect);
+    return $id_parent ? $id_parent['id_parent'] : 0;
 }
 
 /**
@@ -128,9 +128,9 @@ 
  * @return int
  */
 function quete_rubrique($id_article, $serveur) {
-	$id_parent = quete_parent_lang('spip_articles', $id_article, $serveur);
+    $id_parent = quete_parent_lang('spip_articles', $id_article, $serveur);
 
-	return $id_parent['id_rubrique'];
+    return $id_parent['id_rubrique'];
 }
 
 
@@ -144,13 +144,13 @@ 
  * @return int
  */
 function quete_profondeur($id, $connect = '') {
-	$n = 0;
-	while ($id) {
-		$n++;
-		$id = quete_parent($id, $connect);
-	}
+    $n = 0;
+    while ($id) {
+        $n++;
+        $id = quete_parent($id, $connect);
+    }
 
-	return $n;
+    return $n;
 }
 
 
@@ -166,15 +166,15 @@ 
  *     Morceau de la requête SQL testant la date
  */
 function quete_condition_postdates($champ_date, $serveur = '', $ignore_previsu = false) {
-	if (defined('_VAR_PREVIEW') and _VAR_PREVIEW and !$ignore_previsu) {
-		return '1=1';
-	}
-
-	return
-		(isset($GLOBALS['meta']['date_prochain_postdate'])
-			and $GLOBALS['meta']['date_prochain_postdate'] > time())
-			? "$champ_date<" . sql_quote(date('Y-m-d H:i:s', $GLOBALS['meta']['date_prochain_postdate']), $serveur)
-			: '1=1';
+    if (defined('_VAR_PREVIEW') and _VAR_PREVIEW and !$ignore_previsu) {
+        return '1=1';
+    }
+
+    return
+        (isset($GLOBALS['meta']['date_prochain_postdate'])
+            and $GLOBALS['meta']['date_prochain_postdate'] > time())
+            ? "$champ_date<" . sql_quote(date('Y-m-d H:i:s', $GLOBALS['meta']['date_prochain_postdate']), $serveur)
+            : '1=1';
 }
 
 
@@ -194,101 +194,101 @@ 
  * @return array|string
  */
 function quete_condition_statut($mstatut, $previsu, $publie, $serveur = '', $ignore_previsu = false) {
-	static $cond = [];
-	$key = func_get_args();
-	$key = implode('-', $key);
-	if (isset($cond[$key])) {
-		return $cond[$key];
-	}
-
-	$liste_statuts = $publie;
-	if (defined('_VAR_PREVIEW') and _VAR_PREVIEW and !$ignore_previsu) {
-		$liste_statuts = $previsu;
-	}
-	$not = false;
-	if (strncmp($liste_statuts, '!', 1) == 0) {
-		$not = true;
-		$liste_statuts = substr($liste_statuts, 1);
-	}
-	// '' => ne rien afficher, '!'=> ne rien filtrer
-	if (!strlen($liste_statuts)) {
-		return $cond[$key] = ($not ? '1=1' : '0=1');
-	}
-
-	$liste_statuts = explode(',', $liste_statuts);
-	$where = [];
-	foreach ($liste_statuts as $k => $v) {
-		// filtrage /auteur pour limiter les objets d'un statut (prepa en general)
-		// a ceux de l'auteur identifie
-		if (strpos($v, '/') !== false) {
-			$v = explode('/', $v);
-			$filtre = end($v);
-			$v = reset($v);
-			$v = preg_replace(',\W,', '', $v);
-			if (
-				$filtre == 'auteur'
-				and (strpos($mstatut, '.') !== false)
-				and $objet = explode('.', $mstatut)
-				and $id_table = reset($objet)
-				and $objet = objet_type($id_table)
-			) {
-				$w = "$mstatut<>" . sql_quote($v);
-
-				// retrouver l’id_auteur qui a filé un lien de prévisu éventuellement,
-				// sinon l’auteur en session
-				include_spip('inc/securiser_action');
-				if ($desc = decrire_token_previsu()) {
-					$id_auteur = $desc['id_auteur'];
-				} elseif (isset($GLOBALS['visiteur_session']['id_auteur'])) {
-					$id_auteur = intval($GLOBALS['visiteur_session']['id_auteur']);
-				} else {
-					$id_auteur = null;
-				}
-
-				// dans ce cas (admin en general), pas de filtrage sur ce statut
-				if (!autoriser('previsualiser' . $v, $objet, '', $id_auteur)) {
-					// si pas d'auteur identifie pas de sous-requete car pas d'article qui matche
-					if (!$id_auteur) {
-						$where[] = $w;
-					} else {
-						$primary = id_table_objet($objet);
-						$where[] = "($w OR $id_table.$primary IN (" . sql_get_select(
-							'ssss.id_objet',
-							'spip_auteurs_liens AS ssss',
-							'ssss.objet=' . sql_quote($objet) . ' AND ssss.id_auteur=' . intval($id_auteur),
-							'',
-							'',
-							'',
-							'',
-							$serveur
-						) . '))';
-					}
-				}
-			} // ignorer ce statut si on ne sait pas comment le filtrer
-			else {
-				$v = '';
-			}
-		}
-		// securite
-		$liste_statuts[$k] = preg_replace(',\W,', '', $v);
-	}
-	$liste_statuts = array_filter($liste_statuts);
-	if (count($liste_statuts) == 1) {
-		$where[] = ['=', $mstatut, sql_quote(reset($liste_statuts), $serveur)];
-	} else {
-		$where[] = sql_in($mstatut, $liste_statuts, $not, $serveur);
-	}
-
-	while (count($where) > 1) {
-		$and = ['AND', array_pop($where), array_pop($where)];
-		$where[] = $and;
-	}
-	$cond[$key] = reset($where);
-	if ($not) {
-		$cond[$key] = ['NOT', $cond[$key]];
-	}
-
-	return $cond[$key];
+    static $cond = [];
+    $key = func_get_args();
+    $key = implode('-', $key);
+    if (isset($cond[$key])) {
+        return $cond[$key];
+    }
+
+    $liste_statuts = $publie;
+    if (defined('_VAR_PREVIEW') and _VAR_PREVIEW and !$ignore_previsu) {
+        $liste_statuts = $previsu;
+    }
+    $not = false;
+    if (strncmp($liste_statuts, '!', 1) == 0) {
+        $not = true;
+        $liste_statuts = substr($liste_statuts, 1);
+    }
+    // '' => ne rien afficher, '!'=> ne rien filtrer
+    if (!strlen($liste_statuts)) {
+        return $cond[$key] = ($not ? '1=1' : '0=1');
+    }
+
+    $liste_statuts = explode(',', $liste_statuts);
+    $where = [];
+    foreach ($liste_statuts as $k => $v) {
+        // filtrage /auteur pour limiter les objets d'un statut (prepa en general)
+        // a ceux de l'auteur identifie
+        if (strpos($v, '/') !== false) {
+            $v = explode('/', $v);
+            $filtre = end($v);
+            $v = reset($v);
+            $v = preg_replace(',\W,', '', $v);
+            if (
+                $filtre == 'auteur'
+                and (strpos($mstatut, '.') !== false)
+                and $objet = explode('.', $mstatut)
+                and $id_table = reset($objet)
+                and $objet = objet_type($id_table)
+            ) {
+                $w = "$mstatut<>" . sql_quote($v);
+
+                // retrouver l’id_auteur qui a filé un lien de prévisu éventuellement,
+                // sinon l’auteur en session
+                include_spip('inc/securiser_action');
+                if ($desc = decrire_token_previsu()) {
+                    $id_auteur = $desc['id_auteur'];
+                } elseif (isset($GLOBALS['visiteur_session']['id_auteur'])) {
+                    $id_auteur = intval($GLOBALS['visiteur_session']['id_auteur']);
+                } else {
+                    $id_auteur = null;
+                }
+
+                // dans ce cas (admin en general), pas de filtrage sur ce statut
+                if (!autoriser('previsualiser' . $v, $objet, '', $id_auteur)) {
+                    // si pas d'auteur identifie pas de sous-requete car pas d'article qui matche
+                    if (!$id_auteur) {
+                        $where[] = $w;
+                    } else {
+                        $primary = id_table_objet($objet);
+                        $where[] = "($w OR $id_table.$primary IN (" . sql_get_select(
+                            'ssss.id_objet',
+                            'spip_auteurs_liens AS ssss',
+                            'ssss.objet=' . sql_quote($objet) . ' AND ssss.id_auteur=' . intval($id_auteur),
+                            '',
+                            '',
+                            '',
+                            '',
+                            $serveur
+                        ) . '))';
+                    }
+                }
+            } // ignorer ce statut si on ne sait pas comment le filtrer
+            else {
+                $v = '';
+            }
+        }
+        // securite
+        $liste_statuts[$k] = preg_replace(',\W,', '', $v);
+    }
+    $liste_statuts = array_filter($liste_statuts);
+    if (count($liste_statuts) == 1) {
+        $where[] = ['=', $mstatut, sql_quote(reset($liste_statuts), $serveur)];
+    } else {
+        $where[] = sql_in($mstatut, $liste_statuts, $not, $serveur);
+    }
+
+    while (count($where) > 1) {
+        $and = ['AND', array_pop($where), array_pop($where)];
+        $where[] = $and;
+    }
+    $cond[$key] = reset($where);
+    if ($not) {
+        $cond[$key] = ['NOT', $cond[$key]];
+    }
+
+    return $cond[$key];
 }
 
 /**
@@ -299,7 +299,7 @@ 
  * @return array|bool|null
  */
 function quete_fichier($id_document, $serveur = '') {
-	return sql_getfetsel('fichier', 'spip_documents', ('id_document=' . intval($id_document)), '', [], '', '', $serveur);
+    return sql_getfetsel('fichier', 'spip_documents', ('id_document=' . intval($id_document)), '', [], '', '', $serveur);
 }
 
 /**
@@ -310,7 +310,7 @@ 
  * @return array|bool
  */
 function quete_document($id_document, $serveur = '') {
-	return sql_fetsel('*', 'spip_documents', ('id_document=' . intval($id_document)), '', [], '', '', $serveur);
+    return sql_fetsel('*', 'spip_documents', ('id_document=' . intval($id_document)), '', [], '', '', $serveur);
 }
 
 /**
@@ -321,7 +321,7 @@ 
  * @return array|bool|null
  */
 function quete_meta($nom, $serveur) {
-	return sql_getfetsel('valeur', 'spip_meta', 'nom=' . sql_quote($nom), '', '', '', '', $serveur);
+    return sql_getfetsel('valeur', 'spip_meta', 'nom=' . sql_quote($nom), '', '', '', '', $serveur);
 }
 
 /**
@@ -347,66 +347,66 @@ 
  *     Retourne soit un tableau, soit le chemin du fichier.
  */
 function quete_logo($cle_objet, $onoff, $id, $id_rubrique, $flag) {
-	include_spip('base/objets');
-	$nom = strtolower($onoff);
-
-	$cle_objet = id_table_objet($cle_objet);
-
-	while (1) {
-		$objet = objet_type($cle_objet);
-
-		$on = quete_logo_objet($id, $objet, $nom);
-
-		if ($on) {
-			if ($flag) {
-				return basename($on['chemin']);
-			} else {
-				$taille = @spip_getimagesize($on['chemin']);
-
-				// Si on a déjà demandé un survol directement ($onoff = off)
-				// ou qu'on a demandé uniquement le normal ($onoff = on)
-				// alors on ne cherche pas du tout le survol ici
-				if ($onoff != 'ON') {
-					$off = '';
-				} else {
-					// Sinon, c'est qu'on demande normal ET survol à la fois, donc on cherche maintenant le survol
-					$off = quete_logo_objet($id, $objet, 'off');
-				}
-
-				// on retourne une url du type IMG/artonXX?timestamp
-				// qui permet de distinguer le changement de logo
-				// et placer un expire sur le dossier IMG/
-				$res = [
-					$on['chemin'] . ($on['timestamp'] ? "?{$on['timestamp']}" : ''),
-					($off ? $off['chemin'] . ($off['timestamp'] ? "?{$off['timestamp']}" : '') : ''),
-					(!$taille ? '' : (' ' . $taille[3]))
-				];
-				$res['src'] = $res[0];
-				$res['logo_on'] = $res[0];
-				$res['logo_off'] = $res[1];
-				$res['width'] = ($taille ? $taille[0] : '');
-				$res['height'] = ($taille ? $taille[1] : '');
-
-				return $res;
-			}
-		} else {
-			if (defined('_LOGO_RUBRIQUE_DESACTIVER_HERITAGE')) {
-				return '';
-			} else {
-				if ($id_rubrique) {
-					$cle_objet = 'id_rubrique';
-					$id = $id_rubrique;
-					$id_rubrique = 0;
-				} else {
-					if ($id and $cle_objet == 'id_rubrique') {
-						$id = quete_parent($id);
-					} else {
-						return '';
-					}
-				}
-			}
-		}
-	}
+    include_spip('base/objets');
+    $nom = strtolower($onoff);
+
+    $cle_objet = id_table_objet($cle_objet);
+
+    while (1) {
+        $objet = objet_type($cle_objet);
+
+        $on = quete_logo_objet($id, $objet, $nom);
+
+        if ($on) {
+            if ($flag) {
+                return basename($on['chemin']);
+            } else {
+                $taille = @spip_getimagesize($on['chemin']);
+
+                // Si on a déjà demandé un survol directement ($onoff = off)
+                // ou qu'on a demandé uniquement le normal ($onoff = on)
+                // alors on ne cherche pas du tout le survol ici
+                if ($onoff != 'ON') {
+                    $off = '';
+                } else {
+                    // Sinon, c'est qu'on demande normal ET survol à la fois, donc on cherche maintenant le survol
+                    $off = quete_logo_objet($id, $objet, 'off');
+                }
+
+                // on retourne une url du type IMG/artonXX?timestamp
+                // qui permet de distinguer le changement de logo
+                // et placer un expire sur le dossier IMG/
+                $res = [
+                    $on['chemin'] . ($on['timestamp'] ? "?{$on['timestamp']}" : ''),
+                    ($off ? $off['chemin'] . ($off['timestamp'] ? "?{$off['timestamp']}" : '') : ''),
+                    (!$taille ? '' : (' ' . $taille[3]))
+                ];
+                $res['src'] = $res[0];
+                $res['logo_on'] = $res[0];
+                $res['logo_off'] = $res[1];
+                $res['width'] = ($taille ? $taille[0] : '');
+                $res['height'] = ($taille ? $taille[1] : '');
+
+                return $res;
+            }
+        } else {
+            if (defined('_LOGO_RUBRIQUE_DESACTIVER_HERITAGE')) {
+                return '';
+            } else {
+                if ($id_rubrique) {
+                    $cle_objet = 'id_rubrique';
+                    $id = $id_rubrique;
+                    $id_rubrique = 0;
+                } else {
+                    if ($id and $cle_objet == 'id_rubrique') {
+                        $id = quete_parent($id);
+                    } else {
+                        return '';
+                    }
+                }
+            }
+        }
+    }
 }
 
 /**
@@ -420,37 +420,37 @@ 
  * 		"on" ou "off" suivant le logo normal ou survol
  **/
 function quete_logo_objet($id_objet, $objet, $mode) {
-	static $chercher_logo;
-	if (is_null($chercher_logo)) {
-		$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	}
-	$cle_objet = id_table_objet($objet);
-
-	// On cherche pas la méthode classique
-	$infos_logo = $chercher_logo($id_objet, $cle_objet, $mode);
-	// Si la méthode classique a trouvé quelque chose, on utilise le nouveau format
-	if (!empty($infos_logo)) {
-		$infos_logo = [
-			'chemin' => $infos_logo[0],
-			'timestamp' => $infos_logo[4],
-		];
-	}
-
-	// On passe cette recherche de logo dans un pipeline
-	$infos_logo = pipeline(
-		'quete_logo_objet',
-		[
-			'args' => [
-				'id_objet' => $id_objet,
-				'objet' => $objet,
-				'cle_objet' => $cle_objet,
-				'mode' => $mode,
-			],
-			'data' => $infos_logo,
-		]
-	);
-
-	return $infos_logo;
+    static $chercher_logo;
+    if (is_null($chercher_logo)) {
+        $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    }
+    $cle_objet = id_table_objet($objet);
+
+    // On cherche pas la méthode classique
+    $infos_logo = $chercher_logo($id_objet, $cle_objet, $mode);
+    // Si la méthode classique a trouvé quelque chose, on utilise le nouveau format
+    if (!empty($infos_logo)) {
+        $infos_logo = [
+            'chemin' => $infos_logo[0],
+            'timestamp' => $infos_logo[4],
+        ];
+    }
+
+    // On passe cette recherche de logo dans un pipeline
+    $infos_logo = pipeline(
+        'quete_logo_objet',
+        [
+            'args' => [
+                'id_objet' => $id_objet,
+                'objet' => $objet,
+                'cle_objet' => $cle_objet,
+                'mode' => $mode,
+            ],
+            'data' => $infos_logo,
+        ]
+    );
+
+    return $infos_logo;
 }
 
 /**
@@ -463,25 +463,25 @@ 
  * @return bool|string
  */
 function quete_logo_file($row, $connect = null) {
-	include_spip('inc/documents');
-	$logo = vignette_logo_document($row, $connect);
-	if (!$logo) {
-		$logo = image_du_document($row, $connect);
-	}
-	if (!$logo) {
-		$f = charger_fonction('vignette', 'inc');
-		$logo = $f($row['extension'], false);
-	}
-	// si c'est une vignette type doc, la renvoyer direct
-	if (
-		strcmp($logo, _DIR_PLUGINS) == 0
-		or strcmp($logo, _DIR_PLUGINS_DIST) == 0
-		or strcmp($logo, _DIR_RACINE . 'prive/') == 0
-	) {
-		return $logo;
-	}
-
-	return get_spip_doc($logo);
+    include_spip('inc/documents');
+    $logo = vignette_logo_document($row, $connect);
+    if (!$logo) {
+        $logo = image_du_document($row, $connect);
+    }
+    if (!$logo) {
+        $f = charger_fonction('vignette', 'inc');
+        $logo = $f($row['extension'], false);
+    }
+    // si c'est une vignette type doc, la renvoyer direct
+    if (
+        strcmp($logo, _DIR_PLUGINS) == 0
+        or strcmp($logo, _DIR_PLUGINS_DIST) == 0
+        or strcmp($logo, _DIR_RACINE . 'prive/') == 0
+    ) {
+        return $logo;
+    }
+
+    return get_spip_doc($logo);
 }
 
 /**
@@ -509,20 +509,20 @@ 
  */
 function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect = null) {
 
-	include_spip('inc/documents');
-	$logo = '';
-	if (!in_array($mode_logo, ['icone', 'apercu'])) {
-		$logo = vignette_logo_document($row, $connect);
-	}
-	// si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
-	if ($mode_logo == 'vignette' and !$logo) {
-		return '';
-	}
-	if ($mode_logo == 'icone') {
-		$row['fichier'] = '';
-	}
-
-	return vignette_automatique($logo, $row, $lien, $x, $y, $align, null, $connect);
+    include_spip('inc/documents');
+    $logo = '';
+    if (!in_array($mode_logo, ['icone', 'apercu'])) {
+        $logo = vignette_logo_document($row, $connect);
+    }
+    // si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
+    if ($mode_logo == 'vignette' and !$logo) {
+        return '';
+    }
+    if ($mode_logo == 'icone') {
+        $row['fichier'] = '';
+    }
+
+    return vignette_automatique($logo, $row, $lien, $x, $y, $align, null, $connect);
 }
 
 /**
@@ -534,19 +534,19 @@ 
  */
 function quete_html_logo($logo, $align, $lien) {
 
-	if (!is_array($logo)) {
-		return '';
-	}
-
-	$contexte = [];
-	foreach ($logo as $k => $v) {
-		if (!is_numeric($k)) {
-			$contexte[$k] = $v;
-		}
-	}
-	$contexte['align'] = $align;
-	$contexte['lien'] = $lien;
-	return recuperer_fond('modeles/logo', $contexte);
+    if (!is_array($logo)) {
+        return '';
+    }
+
+    $contexte = [];
+    foreach ($logo as $k => $v) {
+        if (!is_numeric($k)) {
+            $contexte[$k] = $v;
+        }
+    }
+    $contexte['align'] = $align;
+    $contexte['lien'] = $lien;
+    return recuperer_fond('modeles/logo', $contexte);
 }
 
 /**
@@ -560,14 +560,14 @@ 
  * @return string|false
  */
 function document_spip_externe($fichier, $connect) {
-	if ($connect) {
-		$site = quete_meta('adresse_site', $connect);
-		if ($site) {
-			$dir = quete_meta('dir_img', $connect);
-			return "$site/$dir$fichier";
-		}
-	}
-	return false;
+    if ($connect) {
+        $site = quete_meta('adresse_site', $connect);
+        if ($site) {
+            $dir = quete_meta('dir_img', $connect);
+            return "$site/$dir$fichier";
+        }
+    }
+    return false;
 }
 
 /**
@@ -580,23 +580,23 @@ 
  * @return string
  */
 function vignette_logo_document($row, $connect = '') {
-	if (!$row['id_vignette']) {
-		return '';
-	}
-	$fichier = quete_fichier($row['id_vignette'], $connect);
-	if ($url = document_spip_externe($fichier, $connect)) {
-		return $url;
-	}
-
-	$f = get_spip_doc($fichier);
-	if ($f and @file_exists($f)) {
-		return $f;
-	}
-	if ($row['mode'] !== 'vignette') {
-		return '';
-	}
-
-	return generer_url_entite($row['id_document'], 'document', '', '', $connect);
+    if (!$row['id_vignette']) {
+        return '';
+    }
+    $fichier = quete_fichier($row['id_vignette'], $connect);
+    if ($url = document_spip_externe($fichier, $connect)) {
+        return $url;
+    }
+
+    $f = get_spip_doc($fichier);
+    if ($f and @file_exists($f)) {
+        return $f;
+    }
+    if ($row['mode'] !== 'vignette') {
+        return '';
+    }
+
+    return generer_url_entite($row['id_document'], 'document', '', '', $connect);
 }
 
 /**
@@ -612,69 +612,69 @@ 
  * @return bool|string
  */
 function calcul_exposer($id, $prim, $reference, $parent, $type, $connect = '') {
-	static $exposer = [];
-
-	// Que faut-il exposer ? Tous les elements de $reference
-	// ainsi que leur hierarchie ; on ne fait donc ce calcul
-	// qu'une fois (par squelette) et on conserve le resultat
-	// en static.
-	if (!isset($exposer[$m = md5(serialize($reference))][$prim])) {
-		$principal = isset($reference[$type]) ? $reference[$type] :
-			// cas de la pagination indecte @xx qui positionne la page avec l'id xx
-			// et donne la reference dynamique @type=xx dans le contexte
-			(isset($reference["@$type"]) ? $reference["@$type"] : '');
-		// le parent fournit en argument est le parent de $id, pas celui de $principal
-		// il n'est donc pas utile
-		$parent = 0;
-		if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
-			$enfants = ['id_rubrique' => ['id_article'], 'id_groupe' => ['id_mot']];
-			if (isset($enfants[$type])) {
-				foreach ($enfants[$type] as $t) {
-					if (
-						isset($reference[$t])
-						// cas de la reference donnee dynamiquement par la pagination
-						or isset($reference["@$t"])
-					) {
-						$type = $t;
-						$principal = isset($reference[$type]) ? $reference[$type] : $reference["@$type"];
-						continue;
-					}
-				}
-			}
-		}
-		$exposer[$m][$type] = [];
-		if ($principal) {
-			$principaux = is_array($principal) ? $principal : [$principal];
-			foreach ($principaux as $principal) {
-				$exposer[$m][$type][$principal] = true;
-				if ($type == 'id_mot') {
-					if (!$parent) {
-						$parent = sql_getfetsel('id_groupe', 'spip_mots', 'id_mot=' . intval($principal), '', '', '', '', $connect);
-					}
-					if ($parent) {
-						$exposer[$m]['id_groupe'][$parent] = true;
-					}
-				} else {
-					if ($type != 'id_groupe') {
-						if (!$parent) {
-							if ($type == 'id_rubrique') {
-								$parent = $principal;
-							}
-							if ($type == 'id_article') {
-								$parent = quete_rubrique($principal, $connect);
-							}
-						}
-						do {
-							$exposer[$m]['id_rubrique'][$parent] = true;
-						} while ($parent = quete_parent($parent, $connect));
-					}
-				}
-			}
-		}
-	}
-
-	// And the winner is...
-	return isset($exposer[$m][$prim]) ? isset($exposer[$m][$prim][$id]) : '';
+    static $exposer = [];
+
+    // Que faut-il exposer ? Tous les elements de $reference
+    // ainsi que leur hierarchie ; on ne fait donc ce calcul
+    // qu'une fois (par squelette) et on conserve le resultat
+    // en static.
+    if (!isset($exposer[$m = md5(serialize($reference))][$prim])) {
+        $principal = isset($reference[$type]) ? $reference[$type] :
+            // cas de la pagination indecte @xx qui positionne la page avec l'id xx
+            // et donne la reference dynamique @type=xx dans le contexte
+            (isset($reference["@$type"]) ? $reference["@$type"] : '');
+        // le parent fournit en argument est le parent de $id, pas celui de $principal
+        // il n'est donc pas utile
+        $parent = 0;
+        if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
+            $enfants = ['id_rubrique' => ['id_article'], 'id_groupe' => ['id_mot']];
+            if (isset($enfants[$type])) {
+                foreach ($enfants[$type] as $t) {
+                    if (
+                        isset($reference[$t])
+                        // cas de la reference donnee dynamiquement par la pagination
+                        or isset($reference["@$t"])
+                    ) {
+                        $type = $t;
+                        $principal = isset($reference[$type]) ? $reference[$type] : $reference["@$type"];
+                        continue;
+                    }
+                }
+            }
+        }
+        $exposer[$m][$type] = [];
+        if ($principal) {
+            $principaux = is_array($principal) ? $principal : [$principal];
+            foreach ($principaux as $principal) {
+                $exposer[$m][$type][$principal] = true;
+                if ($type == 'id_mot') {
+                    if (!$parent) {
+                        $parent = sql_getfetsel('id_groupe', 'spip_mots', 'id_mot=' . intval($principal), '', '', '', '', $connect);
+                    }
+                    if ($parent) {
+                        $exposer[$m]['id_groupe'][$parent] = true;
+                    }
+                } else {
+                    if ($type != 'id_groupe') {
+                        if (!$parent) {
+                            if ($type == 'id_rubrique') {
+                                $parent = $principal;
+                            }
+                            if ($type == 'id_article') {
+                                $parent = quete_rubrique($principal, $connect);
+                            }
+                        }
+                        do {
+                            $exposer[$m]['id_rubrique'][$parent] = true;
+                        } while ($parent = quete_parent($parent, $connect));
+                    }
+                }
+            }
+        }
+    }
+
+    // And the winner is...
+    return isset($exposer[$m][$prim]) ? isset($exposer[$m][$prim][$id]) : '';
 }
 
 /**
@@ -689,21 +689,21 @@ 
  * @return int
  */
 function quete_debut_pagination($primary, $valeur, $pas, $iter) {
-	// on ne devrait pas arriver ici si la cle primaire est inexistante
-	// ou composee, mais verifions
-	if (!$primary or preg_match('/[,\s]/', $primary)) {
-		return 0;
-	}
-
-	$pos = 0;
-	while ($row = $iter->fetch() and $row[$primary] != $valeur) {
-		$pos++;
-	}
-	// si on a pas trouve
-	if (!$row or $row[$primary] != $valeur) {
-		return 0;
-	}
-
-	// sinon, calculer le bon numero de page
-	return floor($pos / $pas) * $pas;
+    // on ne devrait pas arriver ici si la cle primaire est inexistante
+    // ou composee, mais verifions
+    if (!$primary or preg_match('/[,\s]/', $primary)) {
+        return 0;
+    }
+
+    $pos = 0;
+    while ($row = $iter->fetch() and $row[$primary] != $valeur) {
+        $pos++;
+    }
+    // si on a pas trouve
+    if (!$row or $row[$primary] != $valeur) {
+        return 0;
+    }
+
+    // sinon, calculer le bon numero de page
+    return floor($pos / $pas) * $pas;
 }

Spacing +17 added lines, -18 removed lines

@@ -36,7 +36,7 @@ 
 	return sql_getfetsel(
 		'virtuel',
 		'spip_articles',
-		['id_article=' . intval($id_article), "statut='publie'"],
+		['id_article='.intval($id_article), "statut='publie'"],
 		'',
 		'',
 		'',
@@ -81,7 +81,7 @@ 
 			$cache_quete[$connect][$table][$id] = sql_fetsel(
 				$cache_quete[$connect][$table]['_select'],
 				$table,
-				$cache_quete[$connect][$table]['_id'] . '=' . intval($id),
+				$cache_quete[$connect][$table]['_id'].'='.intval($id),
 				'',
 				'',
 				'',
@@ -173,7 +173,7 @@ 
 	return
 		(isset($GLOBALS['meta']['date_prochain_postdate'])
 			and $GLOBALS['meta']['date_prochain_postdate'] > time())
-			? "$champ_date<" . sql_quote(date('Y-m-d H:i:s', $GLOBALS['meta']['date_prochain_postdate']), $serveur)
+			? "$champ_date<".sql_quote(date('Y-m-d H:i:s', $GLOBALS['meta']['date_prochain_postdate']), $serveur)
 			: '1=1';
 }
 
@@ -232,7 +232,7 @@ 
 				and $id_table = reset($objet)
 				and $objet = objet_type($id_table)
 			) {
-				$w = "$mstatut<>" . sql_quote($v);
+				$w = "$mstatut<>".sql_quote($v);
 
 				// retrouver l’id_auteur qui a filé un lien de prévisu éventuellement,
 				// sinon l’auteur en session
@@ -246,22 +246,22 @@ 
 				}
 
 				// dans ce cas (admin en general), pas de filtrage sur ce statut
-				if (!autoriser('previsualiser' . $v, $objet, '', $id_auteur)) {
+				if (!autoriser('previsualiser'.$v, $objet, '', $id_auteur)) {
 					// si pas d'auteur identifie pas de sous-requete car pas d'article qui matche
 					if (!$id_auteur) {
 						$where[] = $w;
 					} else {
 						$primary = id_table_objet($objet);
-						$where[] = "($w OR $id_table.$primary IN (" . sql_get_select(
+						$where[] = "($w OR $id_table.$primary IN (".sql_get_select(
 							'ssss.id_objet',
 							'spip_auteurs_liens AS ssss',
-							'ssss.objet=' . sql_quote($objet) . ' AND ssss.id_auteur=' . intval($id_auteur),
+							'ssss.objet='.sql_quote($objet).' AND ssss.id_auteur='.intval($id_auteur),
 							'',
 							'',
 							'',
 							'',
 							$serveur
-						) . '))';
+						).'))';
 					}
 				}
 			} // ignorer ce statut si on ne sait pas comment le filtrer
@@ -299,7 +299,7 @@ 
  * @return array|bool|null
  */
 function quete_fichier($id_document, $serveur = '') {
-	return sql_getfetsel('fichier', 'spip_documents', ('id_document=' . intval($id_document)), '', [], '', '', $serveur);
+	return sql_getfetsel('fichier', 'spip_documents', ('id_document='.intval($id_document)), '', [], '', '', $serveur);
 }
 
 /**
@@ -310,7 +310,7 @@ 
  * @return array|bool
  */
 function quete_document($id_document, $serveur = '') {
-	return sql_fetsel('*', 'spip_documents', ('id_document=' . intval($id_document)), '', [], '', '', $serveur);
+	return sql_fetsel('*', 'spip_documents', ('id_document='.intval($id_document)), '', [], '', '', $serveur);
 }
 
 /**
@@ -321,7 +321,7 @@ 
  * @return array|bool|null
  */
 function quete_meta($nom, $serveur) {
-	return sql_getfetsel('valeur', 'spip_meta', 'nom=' . sql_quote($nom), '', '', '', '', $serveur);
+	return sql_getfetsel('valeur', 'spip_meta', 'nom='.sql_quote($nom), '', '', '', '', $serveur);
 }
 
 /**
@@ -377,9 +377,9 @@ 
 				// qui permet de distinguer le changement de logo
 				// et placer un expire sur le dossier IMG/
 				$res = [
-					$on['chemin'] . ($on['timestamp'] ? "?{$on['timestamp']}" : ''),
-					($off ? $off['chemin'] . ($off['timestamp'] ? "?{$off['timestamp']}" : '') : ''),
-					(!$taille ? '' : (' ' . $taille[3]))
+					$on['chemin'].($on['timestamp'] ? "?{$on['timestamp']}" : ''),
+					($off ? $off['chemin'].($off['timestamp'] ? "?{$off['timestamp']}" : '') : ''),
+					(!$taille ? '' : (' '.$taille[3]))
 				];
 				$res['src'] = $res[0];
 				$res['logo_on'] = $res[0];
@@ -476,7 +476,7 @@ 
 	if (
 		strcmp($logo, _DIR_PLUGINS) == 0
 		or strcmp($logo, _DIR_PLUGINS_DIST) == 0
-		or strcmp($logo, _DIR_RACINE . 'prive/') == 0
+		or strcmp($logo, _DIR_RACINE.'prive/') == 0
 	) {
 		return $logo;
 	}
@@ -619,8 +619,7 @@ 
 	// qu'une fois (par squelette) et on conserve le resultat
 	// en static.
 	if (!isset($exposer[$m = md5(serialize($reference))][$prim])) {
-		$principal = isset($reference[$type]) ? $reference[$type] :
-			// cas de la pagination indecte @xx qui positionne la page avec l'id xx
+		$principal = isset($reference[$type]) ? $reference[$type] : // cas de la pagination indecte @xx qui positionne la page avec l'id xx
 			// et donne la reference dynamique @type=xx dans le contexte
 			(isset($reference["@$type"]) ? $reference["@$type"] : '');
 		// le parent fournit en argument est le parent de $id, pas celui de $principal
@@ -649,7 +648,7 @@ 
 				$exposer[$m][$type][$principal] = true;
 				if ($type == 'id_mot') {
 					if (!$parent) {
-						$parent = sql_getfetsel('id_groupe', 'spip_mots', 'id_mot=' . intval($principal), '', '', '', '', $connect);
+						$parent = sql_getfetsel('id_groupe', 'spip_mots', 'id_mot='.intval($principal), '', '', '', '', $connect);
 					}
 					if ($parent) {
 						$exposer[$m]['id_groupe'][$parent] = true;

ecrire/public/references.php

Indentation +521 added lines, -521 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Compilateur\References
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -41,14 +41,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;
 }
 
 
@@ -71,17 +71,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 '';
 }
 
 /**
@@ -115,74 +115,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) . '\']';
-	}
-
-	$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é
-		list($t, $c) = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
-		if ($t) {
-			if ($select and !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) . '\']';
+    }
+
+    $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é
+        list($t, $c) = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
+        if ($t) {
+            if ($select and !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);
 }
 
 /**
@@ -196,12 +196,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 ? $defaut : "''") . '))';
-	}
+    while ($c = array_pop($conditionnel)) {
+        // si on passe defaut = '', ne pas générer d'erreur de compilation.
+        $defaut = "($c:(" . ($defaut ? $defaut : "''") . '))';
+    }
 
-	return $defaut;
+    return $defaut;
 }
 
 /**
@@ -237,77 +237,77 @@ 
  **/
 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 = isset($GLOBALS['exceptions_des_tables'][$r]) ? $GLOBALS['exceptions_des_tables'][$r] : '';
-	if ($excep) {
-		$excep = isset($excep[$nom_champ]) ? $excep[$nom_champ] : '';
-	}
-	if ($excep) {
-		$joker = false; // indiquer a l'appelant
-		return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
-	} // pas d'alias. Le champ existe t'il ?
-	else {
-		// le champ est réellement présent, on le prend.
-		if (isset($desc['field'][$nom_champ])) {
-			$t = $boucles[$idb]->id_table;
-			$joker = false; // indiquer a l'appelant
-			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.
-		elseif (
+    $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 = isset($GLOBALS['exceptions_des_tables'][$r]) ? $GLOBALS['exceptions_des_tables'][$r] : '';
+    if ($excep) {
+        $excep = isset($excep[$nom_champ]) ? $excep[$nom_champ] : '';
+    }
+    if ($excep) {
+        $joker = false; // indiquer a l'appelant
+        return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
+    } // pas d'alias. Le champ existe t'il ?
+    else {
+        // le champ est réellement présent, on le prend.
+        if (isset($desc['field'][$nom_champ])) {
+            $t = $boucles[$idb]->id_table;
+            $joker = false; // indiquer a l'appelant
+            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.
+        elseif (
 /*$joker AND */
-			isset($desc['field']['*'])
-		) {
-			$joker = true; // indiquer a l'appelant
-			return [$nom_champ, $nom_champ];
-		}
-		// pas d'alias, pas de champ, pas de joker...
-		// tenter via une jointure...
-		else {
-			$joker = false; // indiquer a l'appelant
-			// 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])) {
-				if ($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 ['', ''];
-		}
-	}
+            isset($desc['field']['*'])
+        ) {
+            $joker = true; // indiquer a l'appelant
+            return [$nom_champ, $nom_champ];
+        }
+        // pas d'alias, pas de champ, pas de joker...
+        // tenter via une jointure...
+        else {
+            $joker = false; // indiquer a l'appelant
+            // 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])) {
+                if ($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 ['', ''];
+        }
+    }
 }
 
 
@@ -335,52 +335,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) {
-			list($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 " . join(',', $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) {
+            list($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 " . join(',', $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];
 }
 
 /**
@@ -405,7 +405,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);
 }
 
 
@@ -425,9 +425,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);
 }
 
 
@@ -464,26 +464,26 @@ 
  **/
 function calculer_balise($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 and 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 and 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 and 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 and is_object($res)) {
+            return $res;
+        }
+    }
+
+    $f = charger_fonction('DEFAUT', 'calculer_balise');
+
+    return $f($nom, $p);
 }
 
 
@@ -511,37 +511,37 @@ 
  **/
 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 and (!$p->fonctions[0][0]) and $p->fonctions[0][1]) {
-		$code = addslashes($p->fonctions[0][1]);
-		$p->code .= " . '$code'";
-	}
-
-	// ne pas passer le filtre securite sur les id_xxx
-	if (strpos($nom, 'ID_') === 0) {
-		$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)
-		and !$p->etoile
-		and !$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 and (!$p->fonctions[0][0]) and $p->fonctions[0][1]) {
+        $code = addslashes($p->fonctions[0][1]);
+        $p->code .= " . '$code'";
+    }
+
+    // ne pas passer le filtre securite sur les id_xxx
+    if (strpos($nom, 'ID_') === 0) {
+        $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)
+        and !$p->etoile
+        and !$p->fonctions
+    ) {
+        $p->code = "'#$nom'";
+        $p->interdire_scripts = false;
+    }
+
+    return $p;
 }
 
 
@@ -584,39 +584,39 @@ 
  **/
 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 and (!$p->fonctions[0][0]) and $p->fonctions[0][1]) {
-		$p->fonctions = null;
-	}
-
-	if ($p->param and ($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);
-
-	$p->code = sprintf(
-		CODE_EXECUTER_BALISE,
-		$nom,
-		join(',', $collecte),
-		($collecte ? $param : substr($param, 1)), # virer la virgule
-		memoriser_contexte_compil($p),
-		(!$supp ? '' : (', ' . join(',', $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 and (!$p->fonctions[0][0]) and $p->fonctions[0][1]) {
+        $p->fonctions = null;
+    }
+
+    if ($p->param and ($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);
+
+    $p->code = sprintf(
+        CODE_EXECUTER_BALISE,
+        $nom,
+        join(',', $collecte),
+        ($collecte ? $param : substr($param, 1)), # virer la virgule
+        memoriser_contexte_compil($p),
+        (!$supp ? '' : (', ' . join(',', $supp)))
+    );
+
+    $p->interdire_scripts = false;
+
+    return $p;
 }
 
 
@@ -646,13 +646,13 @@ 
  *     Liste des codes PHP d'éxecution des balises collectées
  **/
 function collecter_balise_dynamique($l, &$p, $nom) {
-	$args = [];
-	foreach ($l as $c) {
-		$x = calculer_balise($c, $p);
-		$args[] = $x->code;
-	}
+    $args = [];
+    foreach ($l as $c) {
+        $x = calculer_balise($c, $p);
+        $args[] = $x->code;
+    }
 
-	return $args;
+    return $args;
 }
 
 
@@ -667,22 +667,22 @@ 
  *     Nom de la connexion
  **/
 function trouver_nom_serveur_distant($p) {
-	$nom = $p->id_boucle;
-	if (
-		$nom
-		and isset($p->boucles[$nom])
-	) {
-		$s = $p->boucles[$nom]->sql_serveur;
-		if (
-			strlen($s)
-			and strlen($serveur = strtolower($s))
-			and !in_array($serveur, $GLOBALS['exception_des_connect'])
-		) {
-			return $serveur;
-		}
-	}
-
-	return '';
+    $nom = $p->id_boucle;
+    if (
+        $nom
+        and isset($p->boucles[$nom])
+    ) {
+        $s = $p->boucles[$nom]->sql_serveur;
+        if (
+            strlen($s)
+            and strlen($serveur = strtolower($s))
+            and !in_array($serveur, $GLOBALS['exception_des_connect'])
+        ) {
+            return $serveur;
+        }
+    }
+
+    return '';
 }
 
 
@@ -706,15 +706,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 and trouver_nom_serveur_distant($p)) {
-		spip_log($nom . ':' . $p->nom_champ . ' ' . _T('zbug_distant_interdit'));
+    if ($nom and trouver_nom_serveur_distant($p)) {
+        spip_log($nom . ':' . $p->nom_champ . ' ' . _T('zbug_distant_interdit'));
 
-		return false;
-	}
+        return false;
+    }
 
-	return true;
+    return true;
 }
 
 
@@ -725,84 +725,84 @@ 
 // https://code.spip.net/@champs_traitements
 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
-		if (!$p->balise_calculee) {
-			$ps = $GLOBALS['table_des_traitements']['*'];
-		} else {
-			$ps = false;
-		}
-	}
-
-	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 = isset($p->boucles[$idb]->type_requete) ? $p->boucles[$idb]->type_requete : false;
-		$table_sql = isset($p->boucles[$idb]->show['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 and 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 and isset($ps[$table_sql])) {
-			$ps = $ps[$table_sql];
-		} // ou pour une boucle en particulier "DATA","articles"
-		elseif ($type_requete and isset($ps[$type_requete])) {
-			$ps = $ps[$type_requete];
-		} // ou pour une boucle utilisant un alias ("hierarchie")
-		elseif ($type_alias and 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'])
-		and
-		$p->descr['documents']
-		and (
-			(strpos($ps, 'propre') !== false)
-			or
-			(strpos($ps, 'typo') !== false)
-		)
-	) {
-		$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
+        if (!$p->balise_calculee) {
+            $ps = $GLOBALS['table_des_traitements']['*'];
+        } else {
+            $ps = false;
+        }
+    }
+
+    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 = isset($p->boucles[$idb]->type_requete) ? $p->boucles[$idb]->type_requete : false;
+        $table_sql = isset($p->boucles[$idb]->show['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 and 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 and isset($ps[$table_sql])) {
+            $ps = $ps[$table_sql];
+        } // ou pour une boucle en particulier "DATA","articles"
+        elseif ($type_requete and isset($ps[$type_requete])) {
+            $ps = $ps[$type_requete];
+        } // ou pour une boucle utilisant un alias ("hierarchie")
+        elseif ($type_alias and 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'])
+        and
+        $p->descr['documents']
+        and (
+            (strpos($ps, 'propre') !== false)
+            or
+            (strpos($ps, 'typo') !== false)
+        )
+    ) {
+        $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);
 }
 
 
@@ -815,112 +815,112 @@ 
 // https://code.spip.net/@applique_filtres
 function applique_filtres($p) {
 
-	// Traitements standards (cf. supra)
-	if ($p->etoile == '') {
-		$code = champs_traitements($p);
-	} else {
-		$code = $p->code;
-	}
+    // Traitements standards (cf. supra)
+    if ($p->etoile == '') {
+        $code = champs_traitements($p);
+    } else {
+        $code = $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)";
+    }
 
-	$code = sandbox_composer_interdire_scripts($code, $p);
+    $code = sandbox_composer_interdire_scripts($code, $p);
 
-	return $code;
+    return $code;
 }
 
 // Cf. function pipeline dans ecrire/inc_utils.php
 // https://code.spip.net/@compose_filtres
 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 = ((substr($fonc, 0, 6) == 'image_') and $fonc != 'image_graver');
-		if ($image_miette and !$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 = count($filtre);
-		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 = ((substr($fonc, 0, 6) == 'image_') and $fonc != 'image_graver');
+        if ($image_miette and !$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 = count($filtre);
+        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) {
 
-	switch (true) {
-		case in_array($fonc, $GLOBALS['table_criteres_infixes']):
-			return "($code $fonc $arg)";
-		case ($fonc == 'and') or ($fonc == 'et'):
-			return "((($code) AND ($arg)) ?' ' :'')";
-		case ($fonc == 'or') or ($fonc == 'ou'):
-			return "((($code) OR ($arg)) ?' ' :'')";
-		case ($fonc == 'xor') or ($fonc == 'xou'):
-			return "((($code) XOR ($arg)) ?' ' :'')";
-		case ($fonc == 'sinon'):
-			return "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)";
-		case ($fonc == 'not') or ($fonc == 'non'):
-			return "(($code) ?'' :' ')";
-		case ($fonc == 'yes') or ($fonc == 'oui'):
-			return "(($code) ?' ' :'')";
-	}
-
-	return '';
+    switch (true) {
+        case in_array($fonc, $GLOBALS['table_criteres_infixes']):
+            return "($code $fonc $arg)";
+        case ($fonc == 'and') or ($fonc == 'et'):
+            return "((($code) AND ($arg)) ?' ' :'')";
+        case ($fonc == 'or') or ($fonc == 'ou'):
+            return "((($code) OR ($arg)) ?' ' :'')";
+        case ($fonc == 'xor') or ($fonc == 'xou'):
+            return "((($code) XOR ($arg)) ?' ' :'')";
+        case ($fonc == 'sinon'):
+            return "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)";
+        case ($fonc == 'not') or ($fonc == 'non'):
+            return "(($code) ?'' :' ')";
+        case ($fonc == 'yes') or ($fonc == 'oui'):
+            return "(($code) ?' ' :'')";
+    }
+
+    return '';
 }
 
 // https://code.spip.net/@compose_filtres_args
 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;
 }
 
 
@@ -938,15 +938,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']";
-	}
+    // 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']";
+    }
 
-	return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles, '', $defaut);
+    return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles, '', $defaut);
 }
 
 //
@@ -961,30 +961,30 @@ 
 
 // https://code.spip.net/@rindex_pile
 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;
 }
 
 /**
@@ -994,7 +994,7 @@ 
  * @return string Nom de la balise, avec indication de boucle explicite si présent.
  */
 function zbug_presenter_champ($p, $champ = '') {
-	$balise = $champ ? $champ : $p->nom_champ;
-	$explicite = $explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
-	return "#{$explicite}{$balise}";
+    $balise = $champ ? $champ : $p->nom_champ;
+    $explicite = $explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
+    return "#{$explicite}{$balise}";
 }

Spacing +14 added lines, -14 removed lines

@@ -124,7 +124,7 @@ 
 	$select = true
 ) {
 	if (!is_string($defaut)) {
-		$defaut = '@$Pile[0][\'' . strtolower($nom_champ) . '\']';
+		$defaut = '@$Pile[0][\''.strtolower($nom_champ).'\']';
 	}
 
 	$idb_origine = $idb;
@@ -157,7 +157,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);
 			}
@@ -198,7 +198,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 : "''") . '))';
+		$defaut = "($c:(".($defaut ? $defaut : "''").'))';
 	}
 
 	return $defaut;
@@ -245,7 +245,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;
@@ -348,8 +348,8 @@ 
 			$t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
 		}
 		if ($t == null) {
-			list($e, $x) = $excep;  #PHP4 affecte de gauche a droite
-			$excep = $x;    #PHP5 de droite a gauche !
+			list($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 ['', ''];
@@ -361,7 +361,7 @@ 
 					$l = (preg_split('/\s*,\s*/', $k));
 					$k = $desc['key']['PRIMARY KEY'];
 					if (!in_array($k, $l)) {
-						spip_log("jointure impossible $e " . join(',', $l));
+						spip_log("jointure impossible $e ".join(',', $l));
 
 						return ['', ''];
 					}
@@ -377,7 +377,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];
@@ -611,7 +611,7 @@ 
 		join(',', $collecte),
 		($collecte ? $param : substr($param, 1)), # virer la virgule
 		memoriser_contexte_compil($p),
-		(!$supp ? '' : (', ' . join(',', $supp)))
+		(!$supp ? '' : (', '.join(',', $supp)))
 	);
 
 	$p->interdire_scripts = false;
@@ -709,7 +709,7 @@ 
 	$nom = $p->id_boucle;
 
 	if ($nom and 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;
 	}
@@ -795,7 +795,7 @@ 
 			(strpos($ps, 'typo') !== false)
 		)
 	) {
-		$ps = 'traiter_doublons_documents($doublons, ' . $ps . ')';
+		$ps = 'traiter_doublons_documents($doublons, '.$ps.')';
 	}
 
 	// La protection des champs par |safehtml est assuree par les extensions
@@ -916,7 +916,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);
 	}
 
@@ -967,7 +967,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;
@@ -995,6 +995,6 @@ 
  */
 function zbug_presenter_champ($p, $champ = '') {
 	$balise = $champ ? $champ : $p->nom_champ;
-	$explicite = $explicite = $p->nom_boucle ? $p->nom_boucle . ':' : '';
+	$explicite = $explicite = $p->nom_boucle ? $p->nom_boucle.':' : '';
 	return "#{$explicite}{$balise}";
 }

ecrire/public/decompiler.php

Indentation +177 added lines, -177 removed lines

@@ -11,130 +11,130 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // Decompilation de l'arbre de syntaxe abstraite d'un squelette SPIP
 
 function decompiler_boucle($struct, $fmt = '', $prof = 0) {
-	$nom = $struct->id_boucle;
-	$preaff = decompiler_($struct->preaff, $fmt, $prof);
-	$avant = decompiler_($struct->avant, $fmt, $prof);
-	$apres = decompiler_($struct->apres, $fmt, $prof);
-	$altern = decompiler_($struct->altern, $fmt, $prof);
-	$milieu = decompiler_($struct->milieu, $fmt, $prof);
-	$postaff = decompiler_($struct->postaff, $fmt, $prof);
-
-	$type = $struct->sql_serveur ? "$struct->sql_serveur:" : '';
-	$type .= ($struct->type_requete ? $struct->type_requete :
-		$struct->table_optionnelle);
-
-	if ($struct->jointures_explicites) {
-		$type .= ' ' . $struct->jointures_explicites;
-	}
-	if ($struct->table_optionnelle) {
-		$type .= '?';
-	}
-	// Revoir le cas de la boucle recursive
-
-	$crit = $struct->param;
-	if ($crit and !is_array($crit[0])) {
-		$type = strtolower($type) . array_shift($crit);
-	}
-	$crit = decompiler_criteres($struct, $fmt, $prof);
-
-	$f = 'format_boucle_' . $fmt;
-
-	return $f($preaff, $avant, $nom, $type, $crit, $milieu, $apres, $altern, $postaff, $prof);
+    $nom = $struct->id_boucle;
+    $preaff = decompiler_($struct->preaff, $fmt, $prof);
+    $avant = decompiler_($struct->avant, $fmt, $prof);
+    $apres = decompiler_($struct->apres, $fmt, $prof);
+    $altern = decompiler_($struct->altern, $fmt, $prof);
+    $milieu = decompiler_($struct->milieu, $fmt, $prof);
+    $postaff = decompiler_($struct->postaff, $fmt, $prof);
+
+    $type = $struct->sql_serveur ? "$struct->sql_serveur:" : '';
+    $type .= ($struct->type_requete ? $struct->type_requete :
+        $struct->table_optionnelle);
+
+    if ($struct->jointures_explicites) {
+        $type .= ' ' . $struct->jointures_explicites;
+    }
+    if ($struct->table_optionnelle) {
+        $type .= '?';
+    }
+    // Revoir le cas de la boucle recursive
+
+    $crit = $struct->param;
+    if ($crit and !is_array($crit[0])) {
+        $type = strtolower($type) . array_shift($crit);
+    }
+    $crit = decompiler_criteres($struct, $fmt, $prof);
+
+    $f = 'format_boucle_' . $fmt;
+
+    return $f($preaff, $avant, $nom, $type, $crit, $milieu, $apres, $altern, $postaff, $prof);
 }
 
 function decompiler_include($struct, $fmt = '', $prof = 0) {
-	$res = [];
-	foreach ($struct->param ? $struct->param : [] as $couple) {
-		array_shift($couple);
-		foreach ($couple as $v) {
-			$res[] = decompiler_($v, $fmt, $prof);
-		}
-	}
-	$file = is_string($struct->texte) ? $struct->texte :
-		decompiler_($struct->texte, $fmt, $prof);
-	$f = 'format_inclure_' . $fmt;
-
-	return $f($file, $res, $prof);
+    $res = [];
+    foreach ($struct->param ? $struct->param : [] as $couple) {
+        array_shift($couple);
+        foreach ($couple as $v) {
+            $res[] = decompiler_($v, $fmt, $prof);
+        }
+    }
+    $file = is_string($struct->texte) ? $struct->texte :
+        decompiler_($struct->texte, $fmt, $prof);
+    $f = 'format_inclure_' . $fmt;
+
+    return $f($file, $res, $prof);
 }
 
 function decompiler_texte($struct, $fmt = '', $prof = 0) {
-	$f = 'format_texte_' . $fmt;
+    $f = 'format_texte_' . $fmt;
 
-	return strlen($struct->texte) ? $f($struct->texte, $prof) : '';
+    return strlen($struct->texte) ? $f($struct->texte, $prof) : '';
 }
 
 function decompiler_polyglotte($struct, $fmt = '', $prof = 0) {
-	$f = 'format_polyglotte_' . $fmt;
+    $f = 'format_polyglotte_' . $fmt;
 
-	return $f($struct->traductions, $prof);
+    return $f($struct->traductions, $prof);
 }
 
 function decompiler_idiome($struct, $fmt = '', $prof = 0) {
-	$args = [];
-	foreach ($struct->arg as $k => $v) {
-		$args[$k] = public_decompiler($v, $fmt, $prof);
-	}
+    $args = [];
+    foreach ($struct->arg as $k => $v) {
+        $args[$k] = public_decompiler($v, $fmt, $prof);
+    }
 
-	$filtres = decompiler_liste($struct->param, $fmt, $prof);
+    $filtres = decompiler_liste($struct->param, $fmt, $prof);
 
-	$f = 'format_idiome_' . $fmt;
+    $f = 'format_idiome_' . $fmt;
 
-	return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof);
+    return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof);
 }
 
 function decompiler_champ($struct, $fmt = '', $prof = 0) {
-	$avant = decompiler_($struct->avant, $fmt, $prof);
-	$apres = decompiler_($struct->apres, $fmt, $prof);
-	$args = $filtres = '';
-	if ($p = $struct->param) {
-		if ($p[0][0] === '') {
-			$args = decompiler_liste([array_shift($p)], $fmt, $prof);
-		}
-		$filtres = decompiler_liste($p, $fmt, $prof);
-	}
-	$f = 'format_champ_' . $fmt;
-
-	return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof);
+    $avant = decompiler_($struct->avant, $fmt, $prof);
+    $apres = decompiler_($struct->apres, $fmt, $prof);
+    $args = $filtres = '';
+    if ($p = $struct->param) {
+        if ($p[0][0] === '') {
+            $args = decompiler_liste([array_shift($p)], $fmt, $prof);
+        }
+        $filtres = decompiler_liste($p, $fmt, $prof);
+    }
+    $f = 'format_champ_' . $fmt;
+
+    return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof);
 }
 
 function decompiler_liste($sources, $fmt = '', $prof = 0) {
-	if (!is_array($sources)) {
-		return '';
-	}
-	$f = 'format_liste_' . $fmt;
-	$res = '';
-	foreach ($sources as $arg) {
-		if (!is_array($arg)) {
-			continue; // ne devrait pas arriver.
-		} else {
-			$r = array_shift($arg);
-		}
-		$args = [];
-		foreach ($arg as $v) {
-			// cas des arguments entoures de ' ou "
-			if (
-				(count($v) == 1)
-				and $v[0]->type == 'texte'
-				and (strlen($v[0]->apres) == 1)
-				and $v[0]->apres == $v[0]->avant
-			) {
-				$args[] = $v[0]->avant . $v[0]->texte . $v[0]->apres;
-			} else {
-				$args[] = decompiler_($v, $fmt, 0 - $prof);
-			}
-		}
-		if (($r !== '') or $args) {
-			$res .= $f($r, $args, $prof);
-		}
-	}
-
-	return $res;
+    if (!is_array($sources)) {
+        return '';
+    }
+    $f = 'format_liste_' . $fmt;
+    $res = '';
+    foreach ($sources as $arg) {
+        if (!is_array($arg)) {
+            continue; // ne devrait pas arriver.
+        } else {
+            $r = array_shift($arg);
+        }
+        $args = [];
+        foreach ($arg as $v) {
+            // cas des arguments entoures de ' ou "
+            if (
+                (count($v) == 1)
+                and $v[0]->type == 'texte'
+                and (strlen($v[0]->apres) == 1)
+                and $v[0]->apres == $v[0]->avant
+            ) {
+                $args[] = $v[0]->avant . $v[0]->texte . $v[0]->apres;
+            } else {
+                $args[] = decompiler_($v, $fmt, 0 - $prof);
+            }
+        }
+        if (($r !== '') or $args) {
+            $res .= $f($r, $args, $prof);
+        }
+    }
+
+    return $res;
 }
 
 // Decompilation des criteres: on triche et on deroge:
@@ -142,93 +142,93 @@ 
 // - le champ apres signale le critere {"separateur"} ou {'separateur'}
 // - les champs sont implicitement etendus (crochets implicites mais interdits)
 function decompiler_criteres($boucle, $fmt = '', $prof = 0) {
-	$sources = $boucle->param;
-	if (!is_array($sources)) {
-		return '';
-	}
-	$res = '';
-	$f = 'format_critere_' . $fmt;
-	foreach ($sources as $crit) {
-		if (!is_array($crit)) {
-			continue;
-		} // boucle recursive
-		array_shift($crit);
-		$args = [];
-		foreach ($crit as $i => $v) {
-			if (
-				(count($v) == 1)
-				and $v[0]->type == 'texte'
-				and $v[0]->apres
-			) {
-				$args[] = [['texte', ($v[0]->apres . $v[0]->texte . $v[0]->apres)]];
-			} else {
-				$res2 = [];
-				foreach ($v as $k => $p) {
-					if (
-						isset($p->type)
-						and function_exists($d = 'decompiler_' . $p->type)
-					) {
-						$r = $d($p, $fmt, (0 - $prof), @$v[$k + 1]);
-						$res2[] = [$p->type, $r];
-					} else {
-						spip_log("critere $i / $k mal forme");
-					}
-				}
-				$args[] = $res2;
-			}
-		}
-		$res .= $f($args);
-	}
-
-	return $res;
+    $sources = $boucle->param;
+    if (!is_array($sources)) {
+        return '';
+    }
+    $res = '';
+    $f = 'format_critere_' . $fmt;
+    foreach ($sources as $crit) {
+        if (!is_array($crit)) {
+            continue;
+        } // boucle recursive
+        array_shift($crit);
+        $args = [];
+        foreach ($crit as $i => $v) {
+            if (
+                (count($v) == 1)
+                and $v[0]->type == 'texte'
+                and $v[0]->apres
+            ) {
+                $args[] = [['texte', ($v[0]->apres . $v[0]->texte . $v[0]->apres)]];
+            } else {
+                $res2 = [];
+                foreach ($v as $k => $p) {
+                    if (
+                        isset($p->type)
+                        and function_exists($d = 'decompiler_' . $p->type)
+                    ) {
+                        $r = $d($p, $fmt, (0 - $prof), @$v[$k + 1]);
+                        $res2[] = [$p->type, $r];
+                    } else {
+                        spip_log("critere $i / $k mal forme");
+                    }
+                }
+                $args[] = $res2;
+            }
+        }
+        $res .= $f($args);
+    }
+
+    return $res;
 }
 
 
 function decompiler_($liste, $fmt = '', $prof = 0) {
-	if (!is_array($liste)) {
-		return '';
-	}
-	$prof2 = ($prof < 0) ? ($prof - 1) : ($prof + 1);
-	$contenu = [];
-	foreach ($liste as $k => $p) {
-		if (!isset($p->type)) {
-			continue;
-		} #??????
-		$d = 'decompiler_' . $p->type;
-		$next = isset($liste[$k + 1]) ? $liste[$k + 1] : false;
-		// Forcer le champ etendu si son source (pas les reecritures)
-		// contenait des args et s'il est suivi d'espaces,
-		// le champ simple les eliminant est un bug helas perenne.
-
-		if (
-			$next
-			and ($next->type == 'texte')
-			and $p->type == 'champ'
-			and !$p->apres
-			and !$p->avant
-			and $p->fonctions
-		) {
-			$n = strlen($next->texte) - strlen(ltrim($next->texte));
-			if ($n) {
-				$champ = new Texte();
-				$champ->texte = substr($next->texte, 0, $n);
-				$champ->ligne = $p->ligne;
-				$p->apres = [$champ];
-				$next->texte = substr($next->texte, $n);
-			}
-		}
-		$contenu[] = [$d($p, $fmt, $prof2), $p->type];
-	}
-	$f = 'format_suite_' . $fmt;
-
-	return $f($contenu);
+    if (!is_array($liste)) {
+        return '';
+    }
+    $prof2 = ($prof < 0) ? ($prof - 1) : ($prof + 1);
+    $contenu = [];
+    foreach ($liste as $k => $p) {
+        if (!isset($p->type)) {
+            continue;
+        } #??????
+        $d = 'decompiler_' . $p->type;
+        $next = isset($liste[$k + 1]) ? $liste[$k + 1] : false;
+        // Forcer le champ etendu si son source (pas les reecritures)
+        // contenait des args et s'il est suivi d'espaces,
+        // le champ simple les eliminant est un bug helas perenne.
+
+        if (
+            $next
+            and ($next->type == 'texte')
+            and $p->type == 'champ'
+            and !$p->apres
+            and !$p->avant
+            and $p->fonctions
+        ) {
+            $n = strlen($next->texte) - strlen(ltrim($next->texte));
+            if ($n) {
+                $champ = new Texte();
+                $champ->texte = substr($next->texte, 0, $n);
+                $champ->ligne = $p->ligne;
+                $p->apres = [$champ];
+                $next->texte = substr($next->texte, $n);
+            }
+        }
+        $contenu[] = [$d($p, $fmt, $prof2), $p->type];
+    }
+    $f = 'format_suite_' . $fmt;
+
+    return $f($contenu);
 }
 
 function public_decompiler($liste, $fmt = '', $prof = 0, $quoi = '') {
-	if (!include_spip('public/format_' . $fmt)) {
-		return "'$fmt'?";
-	}
-	$f = 'decompiler_' . $quoi;
+    if (!include_spip('public/format_' . $fmt)) {
+        return "'$fmt'?";
+    }
+    $f = 'decompiler_' . $quoi;
 
-	return $f($liste, $fmt, $prof);
+    return $f($liste, $fmt, $prof);
 }

Spacing +19 added lines, -21 removed lines

@@ -26,11 +26,10 @@ 
 	$postaff = decompiler_($struct->postaff, $fmt, $prof);
 
 	$type = $struct->sql_serveur ? "$struct->sql_serveur:" : '';
-	$type .= ($struct->type_requete ? $struct->type_requete :
-		$struct->table_optionnelle);
+	$type .= ($struct->type_requete ? $struct->type_requete : $struct->table_optionnelle);
 
 	if ($struct->jointures_explicites) {
-		$type .= ' ' . $struct->jointures_explicites;
+		$type .= ' '.$struct->jointures_explicites;
 	}
 	if ($struct->table_optionnelle) {
 		$type .= '?';
@@ -39,11 +38,11 @@ 
 
 	$crit = $struct->param;
 	if ($crit and !is_array($crit[0])) {
-		$type = strtolower($type) . array_shift($crit);
+		$type = strtolower($type).array_shift($crit);
 	}
 	$crit = decompiler_criteres($struct, $fmt, $prof);
 
-	$f = 'format_boucle_' . $fmt;
+	$f = 'format_boucle_'.$fmt;
 
 	return $f($preaff, $avant, $nom, $type, $crit, $milieu, $apres, $altern, $postaff, $prof);
 }
@@ -56,21 +55,20 @@ 
 			$res[] = decompiler_($v, $fmt, $prof);
 		}
 	}
-	$file = is_string($struct->texte) ? $struct->texte :
-		decompiler_($struct->texte, $fmt, $prof);
-	$f = 'format_inclure_' . $fmt;
+	$file = is_string($struct->texte) ? $struct->texte : decompiler_($struct->texte, $fmt, $prof);
+	$f = 'format_inclure_'.$fmt;
 
 	return $f($file, $res, $prof);
 }
 
 function decompiler_texte($struct, $fmt = '', $prof = 0) {
-	$f = 'format_texte_' . $fmt;
+	$f = 'format_texte_'.$fmt;
 
 	return strlen($struct->texte) ? $f($struct->texte, $prof) : '';
 }
 
 function decompiler_polyglotte($struct, $fmt = '', $prof = 0) {
-	$f = 'format_polyglotte_' . $fmt;
+	$f = 'format_polyglotte_'.$fmt;
 
 	return $f($struct->traductions, $prof);
 }
@@ -83,7 +81,7 @@ 
 
 	$filtres = decompiler_liste($struct->param, $fmt, $prof);
 
-	$f = 'format_idiome_' . $fmt;
+	$f = 'format_idiome_'.$fmt;
 
 	return $f($struct->nom_champ, $struct->module, $args, $filtres, $prof);
 }
@@ -98,7 +96,7 @@ 
 		}
 		$filtres = decompiler_liste($p, $fmt, $prof);
 	}
-	$f = 'format_champ_' . $fmt;
+	$f = 'format_champ_'.$fmt;
 
 	return $f($struct->nom_champ, $struct->nom_boucle, $struct->etoile, $avant, $apres, $args, $filtres, $prof);
 }
@@ -107,7 +105,7 @@ 
 	if (!is_array($sources)) {
 		return '';
 	}
-	$f = 'format_liste_' . $fmt;
+	$f = 'format_liste_'.$fmt;
 	$res = '';
 	foreach ($sources as $arg) {
 		if (!is_array($arg)) {
@@ -124,7 +122,7 @@ 
 				and (strlen($v[0]->apres) == 1)
 				and $v[0]->apres == $v[0]->avant
 			) {
-				$args[] = $v[0]->avant . $v[0]->texte . $v[0]->apres;
+				$args[] = $v[0]->avant.$v[0]->texte.$v[0]->apres;
 			} else {
 				$args[] = decompiler_($v, $fmt, 0 - $prof);
 			}
@@ -147,7 +145,7 @@ 
 		return '';
 	}
 	$res = '';
-	$f = 'format_critere_' . $fmt;
+	$f = 'format_critere_'.$fmt;
 	foreach ($sources as $crit) {
 		if (!is_array($crit)) {
 			continue;
@@ -160,13 +158,13 @@ 
 				and $v[0]->type == 'texte'
 				and $v[0]->apres
 			) {
-				$args[] = [['texte', ($v[0]->apres . $v[0]->texte . $v[0]->apres)]];
+				$args[] = [['texte', ($v[0]->apres.$v[0]->texte.$v[0]->apres)]];
 			} else {
 				$res2 = [];
 				foreach ($v as $k => $p) {
 					if (
 						isset($p->type)
-						and function_exists($d = 'decompiler_' . $p->type)
+						and function_exists($d = 'decompiler_'.$p->type)
 					) {
 						$r = $d($p, $fmt, (0 - $prof), @$v[$k + 1]);
 						$res2[] = [$p->type, $r];
@@ -194,7 +192,7 @@ 
 		if (!isset($p->type)) {
 			continue;
 		} #??????
-		$d = 'decompiler_' . $p->type;
+		$d = 'decompiler_'.$p->type;
 		$next = isset($liste[$k + 1]) ? $liste[$k + 1] : false;
 		// Forcer le champ etendu si son source (pas les reecritures)
 		// contenait des args et s'il est suivi d'espaces,
@@ -219,16 +217,16 @@ 
 		}
 		$contenu[] = [$d($p, $fmt, $prof2), $p->type];
 	}
-	$f = 'format_suite_' . $fmt;
+	$f = 'format_suite_'.$fmt;
 
 	return $f($contenu);
 }
 
 function public_decompiler($liste, $fmt = '', $prof = 0, $quoi = '') {
-	if (!include_spip('public/format_' . $fmt)) {
+	if (!include_spip('public/format_'.$fmt)) {
 		return "'$fmt'?";
 	}
-	$f = 'decompiler_' . $quoi;
+	$f = 'decompiler_'.$quoi;
 
 	return $f($liste, $fmt, $prof);
 }

ecrire/public/iterateur.php

Indentation +570 added lines, -570 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -21,583 +21,583 @@ 
  *
  */
 class IterFactory {
-	public static function create($iterateur, $command, $info = null) {
-
-		// cas des SI {si expression} analises tres tot
-		// pour eviter le chargement de tout iterateur
-		if (isset($command['si'])) {
-			foreach ($command['si'] as $si) {
-				if (!$si) {
-					// $command pour boucle SQL peut generer des erreurs de compilation
-					// s'il est transmis alors qu'on est dans un iterateur vide
-					return new IterDecorator(new EmptyIterator(), [], $info);
-				}
-			}
-		}
-
-		// chercher un iterateur PHP existant (par exemple dans SPL)
-		// (il faudrait passer l'argument ->sql_serveur
-		// pour etre certain qu'on est sur un "php:")
-		if (class_exists($iterateur)) {
-			$a = isset($command['args']) ? $command['args'] : [];
-
-			// permettre de passer un Iterateur directement {args #ITERATEUR} :
-			// si on recoit deja un iterateur en argument, on l'utilise
-			if (count($a) == 1 and is_object($a[0]) and is_subclass_of($a[0], 'Iterator')) {
-				$iter = $a[0];
-
-				// sinon, on cree un iterateur du type donne
-			} else {
-				// arguments de creation de l'iterateur...
-				// (pas glop)
-				try {
-					switch (count($a)) {
-						case 0:
-							$iter = new $iterateur();
-							break;
-						case 1:
-							$iter = new $iterateur($a[0]);
-							break;
-						case 2:
-							$iter = new $iterateur($a[0], $a[1]);
-							break;
-						case 3:
-							$iter = new $iterateur($a[0], $a[1], $a[2]);
-							break;
-						case 4:
-							$iter = new $iterateur($a[0], $a[1], $a[2], $a[3]);
-							break;
-					}
-				} catch (Exception $e) {
-					spip_log("Erreur de chargement de l'iterateur $iterateur");
-					spip_log($e->getMessage());
-					$iter = new EmptyIterator();
-				}
-			}
-		} else {
-			// chercher la classe d'iterateur
-			// IterateurXXX
-			// definie dans le fichier iterateurs/xxx.php
-			$class = 'Iterateur' . $iterateur;
-			if (!class_exists($class)) {
-				if (
-					!include_spip('iterateur/' . strtolower($iterateur))
-					or !class_exists($class)
-				) {
-					die("Iterateur $iterateur non trouvé");
-					// si l'iterateur n'existe pas, on se rabat sur le generique
-					# $iter = new EmptyIterator();
-				}
-			}
-			$iter = new $class($command, $info);
-		}
-
-		return new IterDecorator($iter, $command, $info);
-	}
+    public static function create($iterateur, $command, $info = null) {
+
+        // cas des SI {si expression} analises tres tot
+        // pour eviter le chargement de tout iterateur
+        if (isset($command['si'])) {
+            foreach ($command['si'] as $si) {
+                if (!$si) {
+                    // $command pour boucle SQL peut generer des erreurs de compilation
+                    // s'il est transmis alors qu'on est dans un iterateur vide
+                    return new IterDecorator(new EmptyIterator(), [], $info);
+                }
+            }
+        }
+
+        // chercher un iterateur PHP existant (par exemple dans SPL)
+        // (il faudrait passer l'argument ->sql_serveur
+        // pour etre certain qu'on est sur un "php:")
+        if (class_exists($iterateur)) {
+            $a = isset($command['args']) ? $command['args'] : [];
+
+            // permettre de passer un Iterateur directement {args #ITERATEUR} :
+            // si on recoit deja un iterateur en argument, on l'utilise
+            if (count($a) == 1 and is_object($a[0]) and is_subclass_of($a[0], 'Iterator')) {
+                $iter = $a[0];
+
+                // sinon, on cree un iterateur du type donne
+            } else {
+                // arguments de creation de l'iterateur...
+                // (pas glop)
+                try {
+                    switch (count($a)) {
+                        case 0:
+                            $iter = new $iterateur();
+                            break;
+                        case 1:
+                            $iter = new $iterateur($a[0]);
+                            break;
+                        case 2:
+                            $iter = new $iterateur($a[0], $a[1]);
+                            break;
+                        case 3:
+                            $iter = new $iterateur($a[0], $a[1], $a[2]);
+                            break;
+                        case 4:
+                            $iter = new $iterateur($a[0], $a[1], $a[2], $a[3]);
+                            break;
+                    }
+                } catch (Exception $e) {
+                    spip_log("Erreur de chargement de l'iterateur $iterateur");
+                    spip_log($e->getMessage());
+                    $iter = new EmptyIterator();
+                }
+            }
+        } else {
+            // chercher la classe d'iterateur
+            // IterateurXXX
+            // definie dans le fichier iterateurs/xxx.php
+            $class = 'Iterateur' . $iterateur;
+            if (!class_exists($class)) {
+                if (
+                    !include_spip('iterateur/' . strtolower($iterateur))
+                    or !class_exists($class)
+                ) {
+                    die("Iterateur $iterateur non trouvé");
+                    // si l'iterateur n'existe pas, on se rabat sur le generique
+                    # $iter = new EmptyIterator();
+                }
+            }
+            $iter = new $class($command, $info);
+        }
+
+        return new IterDecorator($iter, $command, $info);
+    }
 }
 
 
 class IterDecorator extends FilterIterator {
-	private $iter;
-
-	/**
-	 * Conditions de filtrage
-	 * ie criteres de selection
-	 *
-	 * @var array
-	 */
-	protected $filtre = [];
-
-	/**
-	 * Fonction de filtrage compilee a partir des criteres de filtre
-	 *
-	 * @var string
-	 */
-	protected $func_filtre = null;
-
-	/**
-	 * Critere {offset, limit}
-	 *
-	 * @var int
-	 * @var int
-	 */
-	protected $offset = null;
-	protected $limit = null;
-
-	/**
-	 * nombre d'elements recuperes depuis la position 0,
-	 * en tenant compte des filtres
-	 *
-	 * @var int
-	 */
-	protected $fetched = 0;
-
-	/**
-	 * Y a t'il une erreur ?
-	 *
-	 * @var bool
-	 **/
-	protected $err = false;
-
-	/**
-	 * Drapeau a activer en cas d'echec
-	 * (select SQL errone, non chargement des DATA, etc)
-	 */
-	public function err() {
-		if (method_exists($this->iter, 'err')) {
-			return $this->iter->err();
-		}
-		if (property_exists($this->iter, 'err')) {
-			return $this->iter->err;
-		}
-
-		return false;
-	}
-
-	public function __construct(Iterator $iter, $command, $info) {
-		parent::__construct($iter);
-		parent::rewind(); // remettre a la premiere position (bug? connu de FilterIterator)
-
-		// recuperer l'iterateur transmis
-		$this->iter = $this->getInnerIterator();
-		$this->command = $command;
-		$this->info = $info;
-		$this->pos = 0;
-		$this->fetched = 0;
-
-		// chercher la liste des champs a retourner par
-		// fetch si l'objet ne les calcule pas tout seul
-		if (!method_exists($this->iter, 'fetch')) {
-			$this->calculer_select();
-			$this->calculer_filtres();
-		}
-
-		// emptyIterator critere {si} faux n'a pas d'erreur !
-		if (isset($this->iter->err)) {
-			$this->err = $this->iter->err;
-		}
-
-		// pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
-		//$this->total = $this->count();
-	}
-
-
-	// calcule les elements a retournes par fetch()
-	// enleve les elements inutiles du select()
-	//
-	private function calculer_select() {
-		if ($select = &$this->command['select']) {
-			foreach ($select as $s) {
-				// /!\ $s = '.nom'
-				if ($s[0] == '.') {
-					$s = substr($s, 1);
-				}
-				$this->select[] = $s;
-			}
-		}
-	}
-
-	// recuperer la valeur d'une balise #X
-	// en fonction des methodes
-	// et proprietes disponibles
-	public function get_select($nom) {
-		if (
-			is_object($this->iter)
-			and method_exists($this->iter, $nom)
-		) {
-			try {
-				return $this->iter->$nom();
-			} catch (Exception $e) {
-				// #GETCHILDREN sur un fichier de DirectoryIterator ...
-				spip_log("Methode $nom en echec sur " . get_class($this->iter));
-				spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
-
-				return '';
-			}
-		}
-		/*
+    private $iter;
+
+    /**
+     * Conditions de filtrage
+     * ie criteres de selection
+     *
+     * @var array
+     */
+    protected $filtre = [];
+
+    /**
+     * Fonction de filtrage compilee a partir des criteres de filtre
+     *
+     * @var string
+     */
+    protected $func_filtre = null;
+
+    /**
+     * Critere {offset, limit}
+     *
+     * @var int
+     * @var int
+     */
+    protected $offset = null;
+    protected $limit = null;
+
+    /**
+     * nombre d'elements recuperes depuis la position 0,
+     * en tenant compte des filtres
+     *
+     * @var int
+     */
+    protected $fetched = 0;
+
+    /**
+     * Y a t'il une erreur ?
+     *
+     * @var bool
+     **/
+    protected $err = false;
+
+    /**
+     * Drapeau a activer en cas d'echec
+     * (select SQL errone, non chargement des DATA, etc)
+     */
+    public function err() {
+        if (method_exists($this->iter, 'err')) {
+            return $this->iter->err();
+        }
+        if (property_exists($this->iter, 'err')) {
+            return $this->iter->err;
+        }
+
+        return false;
+    }
+
+    public function __construct(Iterator $iter, $command, $info) {
+        parent::__construct($iter);
+        parent::rewind(); // remettre a la premiere position (bug? connu de FilterIterator)
+
+        // recuperer l'iterateur transmis
+        $this->iter = $this->getInnerIterator();
+        $this->command = $command;
+        $this->info = $info;
+        $this->pos = 0;
+        $this->fetched = 0;
+
+        // chercher la liste des champs a retourner par
+        // fetch si l'objet ne les calcule pas tout seul
+        if (!method_exists($this->iter, 'fetch')) {
+            $this->calculer_select();
+            $this->calculer_filtres();
+        }
+
+        // emptyIterator critere {si} faux n'a pas d'erreur !
+        if (isset($this->iter->err)) {
+            $this->err = $this->iter->err;
+        }
+
+        // pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
+        //$this->total = $this->count();
+    }
+
+
+    // calcule les elements a retournes par fetch()
+    // enleve les elements inutiles du select()
+    //
+    private function calculer_select() {
+        if ($select = &$this->command['select']) {
+            foreach ($select as $s) {
+                // /!\ $s = '.nom'
+                if ($s[0] == '.') {
+                    $s = substr($s, 1);
+                }
+                $this->select[] = $s;
+            }
+        }
+    }
+
+    // recuperer la valeur d'une balise #X
+    // en fonction des methodes
+    // et proprietes disponibles
+    public function get_select($nom) {
+        if (
+            is_object($this->iter)
+            and method_exists($this->iter, $nom)
+        ) {
+            try {
+                return $this->iter->$nom();
+            } catch (Exception $e) {
+                // #GETCHILDREN sur un fichier de DirectoryIterator ...
+                spip_log("Methode $nom en echec sur " . get_class($this->iter));
+                spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
+
+                return '';
+            }
+        }
+        /*
 		if (property_exists($this->iter, $nom)) {
 			return $this->iter->$nom;
 		}*/
-		// cle et valeur par defaut
-		// ICI PLANTAGE SI ON NE CONTROLE PAS $nom
-		if (
-			in_array($nom, ['cle', 'valeur'])
-			and method_exists($this, $nom)
-		) {
-			return $this->$nom();
-		}
-
-		// Par defaut chercher en xpath dans la valeur()
-		return table_valeur($this->valeur(), $nom, null);
-	}
-
-
-	private function calculer_filtres() {
-
-		// Issu de calculer_select() de public/composer L.519
-		// TODO: externaliser...
-		//
-		// 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)
-		if ($where = &$this->command['where']) {
-			foreach ($where as $k => $v) {
-				if (is_array($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[0] : $v;
-					}
-				} else {
-					$op = $v;
-				}
-				if ((!$op) or ($op == 1) or ($op == '0=0')) {
-					unset($where[$k]);
-				}
-				// traiter {cle IN a,b} ou {valeur !IN a,b}
-				if (preg_match(',^\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)$,', $op, $regs)) {
-					$this->ajouter_filtre($regs[1], 'IN', $regs[3], $regs[2]);
-					unset($op, $where[$k]);
-				}
-			}
-			foreach ($where as $k => $v) {
-				// 3 possibilites : count($v) =
-				// * 1 : {x y} ; on recoit $v[0] = y
-				// * 2 : {x !op y} ; on recoit $v[0] = 'NOT', $v[1] = array() // array du type {x op y}
-				// * 3 : {x op y} ; on recoit $v[0] = 'op', $v[1] = x, $v[2] = y
-
-				// 1 : forcement traite par un critere, on passe
-				if (!$v or count($v) == 1) {
-					continue;
-				}
-				if (count($v) == 2 and is_array($v[1])) {
-					$this->ajouter_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
-				}
-				if (count($v) == 3) {
-					$this->ajouter_filtre($v[1], $v[0], $v[2]);
-				}
-			}
-		}
-
-		// critere {2,7}
-		if (isset($this->command['limit']) and $this->command['limit']) {
-			$limit = explode(',', $this->command['limit']);
-			$this->offset = $limit[0];
-			$this->limit = $limit[1];
-		}
-
-		// Creer la fonction de filtrage sur $this
-		if ($this->filtre) {
-			$filtres = 'return (' . join(') AND (', $this->filtre) . ');';
-			$this->func_filtre = function () use ($filtres) {
-				return eval($filtres);
-			};
-		}
-	}
-
-
-	protected function ajouter_filtre($cle, $op, $valeur, $not = false) {
-		if (method_exists($this->iter, 'exception_des_criteres')) {
-			if (in_array($cle, $this->iter->exception_des_criteres())) {
-				return;
-			}
-		}
-		// TODO: analyser le filtre pour refuser ce qu'on ne sait pas traiter ?
-		# mais c'est normalement deja opere par calculer_critere_infixe()
-		# qui regarde la description 'desc' (en casse reelle d'ailleurs : {isDir=1}
-		# ne sera pas vu si l'on a defini desc['field']['isdir'] pour que #ISDIR soit present.
-		# il faudrait peut etre definir les 2 champs isDir et isdir... a reflechir...
-
-		# if (!in_array($cle, array('cle', 'valeur')))
-		#	return;
-
-		$a = '$this->get_select(\'' . $cle . '\')';
-
-		$filtre = '';
-
-		if ($op == 'REGEXP') {
-			$filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
-			$op = '';
-		} else {
-			if ($op == 'LIKE') {
-				$valeur = str_replace(['\"', '_', '%'], ['"', '.', '.*'], preg_quote($valeur));
-				$filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
-				$op = '';
-			} else {
-				if ($op == '=') {
-					$op = '==';
-				} else {
-					if ($op == 'IN') {
-						$filtre = 'in_array(' . $a . ', array' . $valeur . ')';
-						$op = '';
-					} else {
-						if (!in_array($op, ['<', '<=', '>', '>='])) {
-							spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
-							$op = '';
-						}
-					}
-				}
-			}
-		}
-
-		if ($op) {
-			$filtre = $a . $op . str_replace('\"', '"', $valeur);
-		}
-
-		if ($not) {
-			$filtre = "!($filtre)";
-		}
-
-		if ($filtre) {
-			$this->filtre[] = $filtre;
-		}
-	}
-
-
-	public function next() {
-		$this->pos++;
-		parent::next();
-	}
-
-	/**
-	 * revient au depart
-	 *
-	 * @return void
-	 */
-	public function rewind() {
-		$this->pos = 0;
-		$this->fetched = 0;
-		parent::rewind();
-	}
-
-
-	# Extension SPIP des iterateurs PHP
-	/**
-	 * type de l'iterateur
-	 *
-	 * @var string
-	 */
-	protected $type;
-
-	/**
-	 * parametres de l'iterateur
-	 *
-	 * @var array
-	 */
-	protected $command;
-
-	/**
-	 * infos de compilateur
-	 *
-	 * @var array
-	 */
-	protected $info;
-
-	/**
-	 * position courante de l'iterateur
-	 *
-	 * @var int
-	 */
-	protected $pos = null;
-
-	/**
-	 * nombre total resultats dans l'iterateur
-	 *
-	 * @var int
-	 */
-	protected $total = null;
-
-	/**
-	 * nombre maximal de recherche pour $total
-	 * si l'iterateur n'implemente pas de fonction specifique
-	 */
-	protected $max = 100000;
-
-
-	/**
-	 * Liste des champs a inserer dans les $row
-	 * retournes par ->fetch()
-	 */
-	protected $select = [];
-
-
-	/**
-	 * aller a la position absolue n,
-	 * comptee depuis le debut
-	 *
-	 * @param int $n
-	 *   absolute pos
-	 * @param string $continue
-	 *   param for sql_ api
-	 * @return bool
-	 *   success or fail if not implemented
-	 */
-	public function seek($n = 0, $continue = null) {
-		if ($this->func_filtre or !method_exists($this->iter, 'seek') or !$this->iter->seek($n)) {
-			$this->seek_loop($n);
-		}
-		$this->pos = $n;
-		$this->fetched = $n;
-
-		return true;
-	}
-
-	/*
+        // cle et valeur par defaut
+        // ICI PLANTAGE SI ON NE CONTROLE PAS $nom
+        if (
+            in_array($nom, ['cle', 'valeur'])
+            and method_exists($this, $nom)
+        ) {
+            return $this->$nom();
+        }
+
+        // Par defaut chercher en xpath dans la valeur()
+        return table_valeur($this->valeur(), $nom, null);
+    }
+
+
+    private function calculer_filtres() {
+
+        // Issu de calculer_select() de public/composer L.519
+        // TODO: externaliser...
+        //
+        // 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)
+        if ($where = &$this->command['where']) {
+            foreach ($where as $k => $v) {
+                if (is_array($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[0] : $v;
+                    }
+                } else {
+                    $op = $v;
+                }
+                if ((!$op) or ($op == 1) or ($op == '0=0')) {
+                    unset($where[$k]);
+                }
+                // traiter {cle IN a,b} ou {valeur !IN a,b}
+                if (preg_match(',^\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)$,', $op, $regs)) {
+                    $this->ajouter_filtre($regs[1], 'IN', $regs[3], $regs[2]);
+                    unset($op, $where[$k]);
+                }
+            }
+            foreach ($where as $k => $v) {
+                // 3 possibilites : count($v) =
+                // * 1 : {x y} ; on recoit $v[0] = y
+                // * 2 : {x !op y} ; on recoit $v[0] = 'NOT', $v[1] = array() // array du type {x op y}
+                // * 3 : {x op y} ; on recoit $v[0] = 'op', $v[1] = x, $v[2] = y
+
+                // 1 : forcement traite par un critere, on passe
+                if (!$v or count($v) == 1) {
+                    continue;
+                }
+                if (count($v) == 2 and is_array($v[1])) {
+                    $this->ajouter_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
+                }
+                if (count($v) == 3) {
+                    $this->ajouter_filtre($v[1], $v[0], $v[2]);
+                }
+            }
+        }
+
+        // critere {2,7}
+        if (isset($this->command['limit']) and $this->command['limit']) {
+            $limit = explode(',', $this->command['limit']);
+            $this->offset = $limit[0];
+            $this->limit = $limit[1];
+        }
+
+        // Creer la fonction de filtrage sur $this
+        if ($this->filtre) {
+            $filtres = 'return (' . join(') AND (', $this->filtre) . ');';
+            $this->func_filtre = function () use ($filtres) {
+                return eval($filtres);
+            };
+        }
+    }
+
+
+    protected function ajouter_filtre($cle, $op, $valeur, $not = false) {
+        if (method_exists($this->iter, 'exception_des_criteres')) {
+            if (in_array($cle, $this->iter->exception_des_criteres())) {
+                return;
+            }
+        }
+        // TODO: analyser le filtre pour refuser ce qu'on ne sait pas traiter ?
+        # mais c'est normalement deja opere par calculer_critere_infixe()
+        # qui regarde la description 'desc' (en casse reelle d'ailleurs : {isDir=1}
+        # ne sera pas vu si l'on a defini desc['field']['isdir'] pour que #ISDIR soit present.
+        # il faudrait peut etre definir les 2 champs isDir et isdir... a reflechir...
+
+        # if (!in_array($cle, array('cle', 'valeur')))
+        #	return;
+
+        $a = '$this->get_select(\'' . $cle . '\')';
+
+        $filtre = '';
+
+        if ($op == 'REGEXP') {
+            $filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
+            $op = '';
+        } else {
+            if ($op == 'LIKE') {
+                $valeur = str_replace(['\"', '_', '%'], ['"', '.', '.*'], preg_quote($valeur));
+                $filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
+                $op = '';
+            } else {
+                if ($op == '=') {
+                    $op = '==';
+                } else {
+                    if ($op == 'IN') {
+                        $filtre = 'in_array(' . $a . ', array' . $valeur . ')';
+                        $op = '';
+                    } else {
+                        if (!in_array($op, ['<', '<=', '>', '>='])) {
+                            spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
+                            $op = '';
+                        }
+                    }
+                }
+            }
+        }
+
+        if ($op) {
+            $filtre = $a . $op . str_replace('\"', '"', $valeur);
+        }
+
+        if ($not) {
+            $filtre = "!($filtre)";
+        }
+
+        if ($filtre) {
+            $this->filtre[] = $filtre;
+        }
+    }
+
+
+    public function next() {
+        $this->pos++;
+        parent::next();
+    }
+
+    /**
+     * revient au depart
+     *
+     * @return void
+     */
+    public function rewind() {
+        $this->pos = 0;
+        $this->fetched = 0;
+        parent::rewind();
+    }
+
+
+    # Extension SPIP des iterateurs PHP
+    /**
+     * type de l'iterateur
+     *
+     * @var string
+     */
+    protected $type;
+
+    /**
+     * parametres de l'iterateur
+     *
+     * @var array
+     */
+    protected $command;
+
+    /**
+     * infos de compilateur
+     *
+     * @var array
+     */
+    protected $info;
+
+    /**
+     * position courante de l'iterateur
+     *
+     * @var int
+     */
+    protected $pos = null;
+
+    /**
+     * nombre total resultats dans l'iterateur
+     *
+     * @var int
+     */
+    protected $total = null;
+
+    /**
+     * nombre maximal de recherche pour $total
+     * si l'iterateur n'implemente pas de fonction specifique
+     */
+    protected $max = 100000;
+
+
+    /**
+     * Liste des champs a inserer dans les $row
+     * retournes par ->fetch()
+     */
+    protected $select = [];
+
+
+    /**
+     * aller a la position absolue n,
+     * comptee depuis le debut
+     *
+     * @param int $n
+     *   absolute pos
+     * @param string $continue
+     *   param for sql_ api
+     * @return bool
+     *   success or fail if not implemented
+     */
+    public function seek($n = 0, $continue = null) {
+        if ($this->func_filtre or !method_exists($this->iter, 'seek') or !$this->iter->seek($n)) {
+            $this->seek_loop($n);
+        }
+        $this->pos = $n;
+        $this->fetched = $n;
+
+        return true;
+    }
+
+    /*
 	 * aller a la position $n en parcourant
 	 * un par un tous les elements
 	 */
-	private function seek_loop($n) {
-		if ($this->pos > $n) {
-			$this->rewind();
-		}
-
-		while ($this->pos < $n and $this->valid()) {
-			$this->next();
-		}
-
-		return true;
-	}
-
-	/**
-	 * Avancer de $saut pas
-	 *
-	 * @param  $saut
-	 * @param  $max
-	 * @return int
-	 */
-	public function skip($saut, $max = null) {
-		// pas de saut en arriere autorise pour cette fonction
-		if (($saut = intval($saut)) <= 0) {
-			return $this->pos;
-		}
-		$seek = $this->pos + $saut;
-		// si le saut fait depasser le maxi, on libere la resource
-		// et on sort
-		if (is_null($max)) {
-			$max = $this->count();
-		}
-
-		if ($seek >= $max or $seek >= $this->count()) {
-			// sortie plus rapide que de faire next() jusqu'a la fin !
-			$this->free();
-
-			return $max;
-		}
-
-		$this->seek($seek);
-
-		return $this->pos;
-	}
-
-	/**
-	 * Renvoyer un tableau des donnees correspondantes
-	 * a la position courante de l'iterateur
-	 * en controlant si on respecte le filtre
-	 * Appliquer aussi le critere {offset,limit}
-	 *
-	 * @return array|bool
-	 */
-	public function fetch() {
-		if (method_exists($this->iter, 'fetch')) {
-			return $this->iter->fetch();
-		} else {
-			while (
-				$this->valid()
-				and (
-					!$this->accept()
-					or (isset($this->offset) and $this->fetched++ < $this->offset)
-				)
-			) {
-				$this->next();
-			}
-
-			if (!$this->valid()) {
-				return false;
-			}
-
-			if (
-				isset($this->limit)
-				and $this->fetched > $this->offset + $this->limit
-			) {
-				return false;
-			}
-
-			$r = [];
-			foreach ($this->select as $nom) {
-				$r[$nom] = $this->get_select($nom);
-			}
-			$this->next();
-
-			return $r;
-		}
-	}
-
-	// retourner la cle pour #CLE
-	public function cle() {
-		return $this->key();
-	}
-
-	// retourner la valeur pour #VALEUR
-	public function valeur() {
-		return $this->current();
-	}
-
-	/**
-	 * Accepte-t-on l'entree courante lue ?
-	 * On execute les filtres pour le savoir.
-	 **/
-	public function accept() {
-		if ($f = $this->func_filtre) {
-			return $f();
-		}
-
-		return true;
-	}
-
-	/**
-	 * liberer la ressource
-	 *
-	 * @return bool
-	 */
-	public function free() {
-		if (method_exists($this->iter, 'free')) {
-			$this->iter->free();
-		}
-		$this->pos = $this->total = 0;
-
-		return true;
-	}
-
-	/**
-	 * Compter le nombre total de resultats
-	 * pour #TOTAL_BOUCLE
-	 *
-	 * @return int
-	 */
-	public function count() {
-		if (is_null($this->total)) {
-			if (
-				method_exists($this->iter, 'count')
-				and !$this->func_filtre
-			) {
-				return $this->total = $this->iter->count();
-			} else {
-				// compter les lignes et rembobiner
-				$total = 0;
-				$pos = $this->pos; // sauver la position
-				$this->rewind();
-				while ($this->fetch() and $total < $this->max) {
-					$total++;
-				}
-				$this->seek($pos);
-				$this->total = $total;
-			}
-		}
-
-		return $this->total;
-	}
+    private function seek_loop($n) {
+        if ($this->pos > $n) {
+            $this->rewind();
+        }
+
+        while ($this->pos < $n and $this->valid()) {
+            $this->next();
+        }
+
+        return true;
+    }
+
+    /**
+     * Avancer de $saut pas
+     *
+     * @param  $saut
+     * @param  $max
+     * @return int
+     */
+    public function skip($saut, $max = null) {
+        // pas de saut en arriere autorise pour cette fonction
+        if (($saut = intval($saut)) <= 0) {
+            return $this->pos;
+        }
+        $seek = $this->pos + $saut;
+        // si le saut fait depasser le maxi, on libere la resource
+        // et on sort
+        if (is_null($max)) {
+            $max = $this->count();
+        }
+
+        if ($seek >= $max or $seek >= $this->count()) {
+            // sortie plus rapide que de faire next() jusqu'a la fin !
+            $this->free();
+
+            return $max;
+        }
+
+        $this->seek($seek);
+
+        return $this->pos;
+    }
+
+    /**
+     * Renvoyer un tableau des donnees correspondantes
+     * a la position courante de l'iterateur
+     * en controlant si on respecte le filtre
+     * Appliquer aussi le critere {offset,limit}
+     *
+     * @return array|bool
+     */
+    public function fetch() {
+        if (method_exists($this->iter, 'fetch')) {
+            return $this->iter->fetch();
+        } else {
+            while (
+                $this->valid()
+                and (
+                    !$this->accept()
+                    or (isset($this->offset) and $this->fetched++ < $this->offset)
+                )
+            ) {
+                $this->next();
+            }
+
+            if (!$this->valid()) {
+                return false;
+            }
+
+            if (
+                isset($this->limit)
+                and $this->fetched > $this->offset + $this->limit
+            ) {
+                return false;
+            }
+
+            $r = [];
+            foreach ($this->select as $nom) {
+                $r[$nom] = $this->get_select($nom);
+            }
+            $this->next();
+
+            return $r;
+        }
+    }
+
+    // retourner la cle pour #CLE
+    public function cle() {
+        return $this->key();
+    }
+
+    // retourner la valeur pour #VALEUR
+    public function valeur() {
+        return $this->current();
+    }
+
+    /**
+     * Accepte-t-on l'entree courante lue ?
+     * On execute les filtres pour le savoir.
+     **/
+    public function accept() {
+        if ($f = $this->func_filtre) {
+            return $f();
+        }
+
+        return true;
+    }
+
+    /**
+     * liberer la ressource
+     *
+     * @return bool
+     */
+    public function free() {
+        if (method_exists($this->iter, 'free')) {
+            $this->iter->free();
+        }
+        $this->pos = $this->total = 0;
+
+        return true;
+    }
+
+    /**
+     * Compter le nombre total de resultats
+     * pour #TOTAL_BOUCLE
+     *
+     * @return int
+     */
+    public function count() {
+        if (is_null($this->total)) {
+            if (
+                method_exists($this->iter, 'count')
+                and !$this->func_filtre
+            ) {
+                return $this->total = $this->iter->count();
+            } else {
+                // compter les lignes et rembobiner
+                $total = 0;
+                $pos = $this->pos; // sauver la position
+                $this->rewind();
+                while ($this->fetch() and $total < $this->max) {
+                    $total++;
+                }
+                $this->seek($pos);
+                $this->total = $total;
+            }
+        }
+
+        return $this->total;
+    }
 }

Spacing +11 added lines, -11 removed lines

@@ -78,10 +78,10 @@ 
 			// chercher la classe d'iterateur
 			// IterateurXXX
 			// definie dans le fichier iterateurs/xxx.php
-			$class = 'Iterateur' . $iterateur;
+			$class = 'Iterateur'.$iterateur;
 			if (!class_exists($class)) {
 				if (
-					!include_spip('iterateur/' . strtolower($iterateur))
+					!include_spip('iterateur/'.strtolower($iterateur))
 					or !class_exists($class)
 				) {
 					die("Iterateur $iterateur non trouvé");
@@ -209,7 +209,7 @@ 
 				return $this->iter->$nom();
 			} catch (Exception $e) {
 				// #GETCHILDREN sur un fichier de DirectoryIterator ...
-				spip_log("Methode $nom en echec sur " . get_class($this->iter));
+				spip_log("Methode $nom en echec sur ".get_class($this->iter));
 				spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
 
 				return '';
@@ -292,8 +292,8 @@ 
 
 		// Creer la fonction de filtrage sur $this
 		if ($this->filtre) {
-			$filtres = 'return (' . join(') AND (', $this->filtre) . ');';
-			$this->func_filtre = function () use ($filtres) {
+			$filtres = 'return ('.join(') AND (', $this->filtre).');';
+			$this->func_filtre = function() use ($filtres) {
 				return eval($filtres);
 			};
 		}
@@ -315,28 +315,28 @@ 
 		# if (!in_array($cle, array('cle', 'valeur')))
 		#	return;
 
-		$a = '$this->get_select(\'' . $cle . '\')';
+		$a = '$this->get_select(\''.$cle.'\')';
 
 		$filtre = '';
 
 		if ($op == 'REGEXP') {
-			$filtre = 'filtrer("match", ' . $a . ', ' . str_replace('\"', '"', $valeur) . ')';
+			$filtre = 'filtrer("match", '.$a.', '.str_replace('\"', '"', $valeur).')';
 			$op = '';
 		} else {
 			if ($op == 'LIKE') {
 				$valeur = str_replace(['\"', '_', '%'], ['"', '.', '.*'], preg_quote($valeur));
-				$filtre = 'filtrer("match", ' . $a . ', ' . $valeur . ')';
+				$filtre = 'filtrer("match", '.$a.', '.$valeur.')';
 				$op = '';
 			} else {
 				if ($op == '=') {
 					$op = '==';
 				} else {
 					if ($op == 'IN') {
-						$filtre = 'in_array(' . $a . ', array' . $valeur . ')';
+						$filtre = 'in_array('.$a.', array'.$valeur.')';
 						$op = '';
 					} else {
 						if (!in_array($op, ['<', '<=', '>', '>='])) {
-							spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
+							spip_log('operateur non reconnu '.$op); // [todo] mettre une erreur de squelette
 							$op = '';
 						}
 					}
@@ -345,7 +345,7 @@ 
 		}
 
 		if ($op) {
-			$filtre = $a . $op . str_replace('\"', '"', $valeur);
+			$filtre = $a.$op.str_replace('\"', '"', $valeur);
 		}
 
 		if ($not) {

ecrire/public/tracer.php

Indentation +170 added lines, -170 removed lines

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

Spacing +5 added lines, -5 removed lines

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

ecrire/public/jointures.php

Indentation +395 added lines, -395 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -33,11 +33,11 @@ 
  *     Chaine sinon : le nom du champ (non décomposable donc)
  */
 function decompose_champ_id_objet($champ) {
-	if (($champ !== 'id_objet') and preg_match(',^id_([a-z_]+)$,', $champ, $regs)) {
-		return ['id_objet', 'objet', objet_type($champ)];
-	}
+    if (($champ !== 'id_objet') and preg_match(',^id_([a-z_]+)$,', $champ, $regs)) {
+        return ['id_objet', 'objet', objet_type($champ)];
+    }
 
-	return $champ;
+    return $champ;
 }
 
 /**
@@ -56,21 +56,21 @@ 
  *     - array(id_objet, objet), si le champ n'existe pas mais qu'on peut décomposer
  */
 function trouver_champs_decomposes($champ, $desc) {
-	if (
-		!is_array($desc) // on ne se risque pas en conjectures si on ne connait pas la table
-		or array_key_exists($champ, $desc['field'])
-	) {
-		return [$champ];
-	}
-	// si le champ se décompose, tester que les colonnes décomposées sont présentes
-	if (is_array($decompose = decompose_champ_id_objet($champ))) {
-		array_pop($decompose);
-		if (count(array_intersect($decompose, array_keys($desc['field']))) == count($decompose)) {
-			return $decompose;
-		}
-	}
-
-	return [$champ];
+    if (
+        !is_array($desc) // on ne se risque pas en conjectures si on ne connait pas la table
+        or array_key_exists($champ, $desc['field'])
+    ) {
+        return [$champ];
+    }
+    // si le champ se décompose, tester que les colonnes décomposées sont présentes
+    if (is_array($decompose = decompose_champ_id_objet($champ))) {
+        array_pop($decompose);
+        if (count(array_intersect($decompose, array_keys($desc['field']))) == count($decompose)) {
+            return $decompose;
+        }
+    }
+
+    return [$champ];
 }
 
 
@@ -100,23 +100,23 @@ 
  *     Alias de la table de jointure (Lx)
  */
 function calculer_jointure(&$boucle, $depart, $arrivee, $col = '', $cond = false, $max_liens = 5) {
-	// les jointures minimales sont optimales :
-	// on contraint le nombre d'etapes en l'augmentant
-	// jusqu'a ce qu'on trouve une jointure ou qu'on atteigne la limite maxi
-	$max = 1;
-	$res = false;
-	$milieu_exclus = ($col ? $col : []);
-	while ($max <= $max_liens and !$res) {
-		$res = calculer_chaine_jointures($boucle, $depart, $arrivee, [], $milieu_exclus, $max);
-		$max++;
-	}
-	if (!$res) {
-		return '';
-	}
-
-	list($nom, $desc) = $depart;
-
-	return fabrique_jointures($boucle, $res, $cond, $desc, $nom, $col);
+    // les jointures minimales sont optimales :
+    // on contraint le nombre d'etapes en l'augmentant
+    // jusqu'a ce qu'on trouve une jointure ou qu'on atteigne la limite maxi
+    $max = 1;
+    $res = false;
+    $milieu_exclus = ($col ? $col : []);
+    while ($max <= $max_liens and !$res) {
+        $res = calculer_chaine_jointures($boucle, $depart, $arrivee, [], $milieu_exclus, $max);
+        $max++;
+    }
+    if (!$res) {
+        return '';
+    }
+
+    list($nom, $desc) = $depart;
+
+    return fabrique_jointures($boucle, $res, $cond, $desc, $nom, $col);
 }
 
 /**
@@ -155,79 +155,79 @@ 
  *     Alias de la table de jointure (Lx)
  */
 function fabrique_jointures(&$boucle, $res, $cond = false, $desc = [], $nom = '', $col = '', $echap = true) {
-	static $num = [];
-	$id_table = '';
-	$cpt = &$num[$boucle->descr['nom']][$boucle->descr['gram']][$boucle->id_boucle];
-	foreach ($res as $cle => $r) {
-		list($d, $a, $j) = $r;
-		if (!$id_table) {
-			$id_table = $d;
-		}
-		$n = ++$cpt;
-		if (is_array($j)) { // c'est un lien sur un champ du type id_objet,objet,'article'
-			list($j1, $j2, $obj, $type) = $j;
-			// trouver de quel cote est (id_objet,objet)
-			if ($j1 == "id_$obj") {
-				$obj = "$id_table.$obj";
-			} else {
-				$obj = "L$n.$obj";
-			}
-			// le where complementaire est envoye dans la jointure et dans le where
-			// on utilise une clé qui le relie a la jointure pour que l'optimiseur
-			// sache qu'il peut enlever ce where si il enleve la jointure
-			$boucle->where["JOIN-L$n"] =
-				$echap ?
-					["'='","'$obj'","sql_quote('$type')"]
-					:
-					['=',"$obj",sql_quote($type)];
-			$boucle->join["L$n"] =
-				$echap ?
-					["'$id_table'", "'$j2'", "'$j1'", "'$obj='.sql_quote('$type')"]
-					:
-					[$id_table, $j2, $j1, "$obj=" . sql_quote($type)];
-		} else {
-			$boucle->join["L$n"] = $echap ? ["'$id_table'", "'$j'"] : [$id_table, $j];
-		}
-		$boucle->from[$id_table = "L$n"] = $a[0];
-	}
-
-
-	// pas besoin de group by
-	// (cf http://article.gmane.org/gmane.comp.web.spip.devel/30555)
-	// si une seule jointure et sur une table avec primary key formee
-	// de l'index principal et de l'index de jointure (non conditionnel! [6031])
-	// et operateur d'egalite (https://core.spip.net/issues/477)
-
-	if ($pk = (isset($a[1]) && (count($boucle->from) == 2) && !$cond)) {
-		$pk = nogroupby_if($desc, $a[1], $col);
-	}
-
-	// pas de group by
-	// si une seule jointure
-	// et si l'index de jointure est une primary key a l'arrivee !
-	if (
-		!$pk
-		and (count($boucle->from) == 2)
-		and isset($a[1]['key']['PRIMARY KEY'])
-		and ($j == $a[1]['key']['PRIMARY KEY'])
-	) {
-		$pk = true;
-	}
-
-	// la clause Group by est en conflit avec ORDER BY, a completer
-	$groups = liste_champs_jointures($nom, $desc, true);
-	if (!$pk) {
-		foreach ($groups as $id_prim) {
-			$id_field = $nom . '.' . $id_prim;
-			if (!in_array($id_field, $boucle->group)) {
-				$boucle->group[] = $id_field;
-			}
-		}
-	}
-
-	$boucle->modificateur['lien'] = true;
-
-	return "L$n";
+    static $num = [];
+    $id_table = '';
+    $cpt = &$num[$boucle->descr['nom']][$boucle->descr['gram']][$boucle->id_boucle];
+    foreach ($res as $cle => $r) {
+        list($d, $a, $j) = $r;
+        if (!$id_table) {
+            $id_table = $d;
+        }
+        $n = ++$cpt;
+        if (is_array($j)) { // c'est un lien sur un champ du type id_objet,objet,'article'
+            list($j1, $j2, $obj, $type) = $j;
+            // trouver de quel cote est (id_objet,objet)
+            if ($j1 == "id_$obj") {
+                $obj = "$id_table.$obj";
+            } else {
+                $obj = "L$n.$obj";
+            }
+            // le where complementaire est envoye dans la jointure et dans le where
+            // on utilise une clé qui le relie a la jointure pour que l'optimiseur
+            // sache qu'il peut enlever ce where si il enleve la jointure
+            $boucle->where["JOIN-L$n"] =
+                $echap ?
+                    ["'='","'$obj'","sql_quote('$type')"]
+                    :
+                    ['=',"$obj",sql_quote($type)];
+            $boucle->join["L$n"] =
+                $echap ?
+                    ["'$id_table'", "'$j2'", "'$j1'", "'$obj='.sql_quote('$type')"]
+                    :
+                    [$id_table, $j2, $j1, "$obj=" . sql_quote($type)];
+        } else {
+            $boucle->join["L$n"] = $echap ? ["'$id_table'", "'$j'"] : [$id_table, $j];
+        }
+        $boucle->from[$id_table = "L$n"] = $a[0];
+    }
+
+
+    // pas besoin de group by
+    // (cf http://article.gmane.org/gmane.comp.web.spip.devel/30555)
+    // si une seule jointure et sur une table avec primary key formee
+    // de l'index principal et de l'index de jointure (non conditionnel! [6031])
+    // et operateur d'egalite (https://core.spip.net/issues/477)
+
+    if ($pk = (isset($a[1]) && (count($boucle->from) == 2) && !$cond)) {
+        $pk = nogroupby_if($desc, $a[1], $col);
+    }
+
+    // pas de group by
+    // si une seule jointure
+    // et si l'index de jointure est une primary key a l'arrivee !
+    if (
+        !$pk
+        and (count($boucle->from) == 2)
+        and isset($a[1]['key']['PRIMARY KEY'])
+        and ($j == $a[1]['key']['PRIMARY KEY'])
+    ) {
+        $pk = true;
+    }
+
+    // la clause Group by est en conflit avec ORDER BY, a completer
+    $groups = liste_champs_jointures($nom, $desc, true);
+    if (!$pk) {
+        foreach ($groups as $id_prim) {
+            $id_field = $nom . '.' . $id_prim;
+            if (!in_array($id_field, $boucle->group)) {
+                $boucle->group[] = $id_field;
+            }
+        }
+    }
+
+    $boucle->modificateur['lien'] = true;
+
+    return "L$n";
 }
 
 /**
@@ -242,16 +242,16 @@ 
  * @return bool
  */
 function nogroupby_if($depart, $arrivee, $col) {
-	$pk = $arrivee['key']['PRIMARY KEY'];
-	if (!$pk) {
-		return false;
-	}
-	$id_primary = $depart['key']['PRIMARY KEY'];
-	if (is_array($col)) {
-		$col = implode(', *', $col);
-	} // cas id_objet, objet
-	return (preg_match("/^$id_primary, *$col$/", $pk) or
-		preg_match("/^$col, *$id_primary$/", $pk));
+    $pk = $arrivee['key']['PRIMARY KEY'];
+    if (!$pk) {
+        return false;
+    }
+    $id_primary = $depart['key']['PRIMARY KEY'];
+    if (is_array($col)) {
+        $col = implode(', *', $col);
+    } // cas id_objet, objet
+    return (preg_match("/^$id_primary, *$col$/", $pk) or
+        preg_match("/^$col, *$id_primary$/", $pk));
 }
 
 /**
@@ -269,46 +269,46 @@ 
  */
 function liste_champs_jointures($nom, $desc, $primary = false) {
 
-	static $nojoin = ['idx', 'maj', 'date', 'statut'];
+    static $nojoin = ['idx', 'maj', 'date', 'statut'];
 
-	// si cle primaire demandee, la privilegier
-	if ($primary && isset($desc['key']['PRIMARY KEY'])) {
-		return split_key($desc['key']['PRIMARY KEY']);
-	}
+    // si cle primaire demandee, la privilegier
+    if ($primary && isset($desc['key']['PRIMARY KEY'])) {
+        return split_key($desc['key']['PRIMARY KEY']);
+    }
 
-	// les champs declares explicitement pour les jointures
-	if (isset($desc['join'])) {
-		return $desc['join'];
-	}
-	/*elseif (isset($GLOBALS['tables_principales'][$nom]['join'])) return $GLOBALS['tables_principales'][$nom]['join'];
+    // les champs declares explicitement pour les jointures
+    if (isset($desc['join'])) {
+        return $desc['join'];
+    }
+    /*elseif (isset($GLOBALS['tables_principales'][$nom]['join'])) return $GLOBALS['tables_principales'][$nom]['join'];
 	elseif (isset($GLOBALS['tables_auxiliaires'][$nom]['join'])) return $GLOBALS['tables_auxiliaires'][$nom]['join'];*/
 
-	// si pas de cle, c'est fichu
-	if (!isset($desc['key'])) {
-		return [];
-	}
-
-	// si cle primaire
-	if (isset($desc['key']['PRIMARY KEY'])) {
-		return split_key($desc['key']['PRIMARY KEY']);
-	}
-
-	// ici on se rabat sur les cles secondaires,
-	// en eliminant celles qui sont pas pertinentes (idx, maj)
-	// si jamais le resultat n'est pas pertinent pour une table donnee,
-	// il faut declarer explicitement le champ 'join' de sa description
-
-	$join = [];
-	foreach ($desc['key'] as $v) {
-		$join = split_key($v, $join);
-	}
-	foreach ($join as $k) {
-		if (in_array($k, $nojoin)) {
-			unset($join[$k]);
-		}
-	}
-
-	return $join;
+    // si pas de cle, c'est fichu
+    if (!isset($desc['key'])) {
+        return [];
+    }
+
+    // si cle primaire
+    if (isset($desc['key']['PRIMARY KEY'])) {
+        return split_key($desc['key']['PRIMARY KEY']);
+    }
+
+    // ici on se rabat sur les cles secondaires,
+    // en eliminant celles qui sont pas pertinentes (idx, maj)
+    // si jamais le resultat n'est pas pertinent pour une table donnee,
+    // il faut declarer explicitement le champ 'join' de sa description
+
+    $join = [];
+    foreach ($desc['key'] as $v) {
+        $join = split_key($v, $join);
+    }
+    foreach ($join as $k) {
+        if (in_array($k, $nojoin)) {
+            unset($join[$k]);
+        }
+    }
+
+    return $join;
 }
 
 /**
@@ -319,14 +319,14 @@ 
  * @return array
  */
 function split_key($v, $join = []) {
-	foreach (preg_split('/,\s*/', $v) as $k) {
-		if (strpos($k, '(') !== false) {
-			$k = explode('(', $k);
-			$k = trim(reset($k));
-		}
-		$join[$k] = $k;
-	}
-	return $join;
+    foreach (preg_split('/,\s*/', $v) as $k) {
+        if (strpos($k, '(') !== false) {
+            $k = explode('(', $k);
+            $k = trim(reset($k));
+        }
+        $join[$k] = $k;
+    }
+    return $join;
 }
 
 /**
@@ -349,135 +349,135 @@ 
  * @return array
  */
 function calculer_chaine_jointures(
-	&$boucle,
-	$depart,
-	$arrivee,
-	$vu = [],
-	$milieu_exclus = [],
-	$max_liens = 5
+    &$boucle,
+    $depart,
+    $arrivee,
+    $vu = [],
+    $milieu_exclus = [],
+    $max_liens = 5
 ) {
-	static $trouver_table;
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	if (is_string($milieu_exclus)) {
-		$milieu_exclus = [$milieu_exclus];
-	}
-	// quand on a exclus id_objet comme cle de jointure, il faut aussi exclure objet
-	// faire une jointure sur objet tout seul n'a pas de sens
-	if (in_array('id_objet', $milieu_exclus) and !in_array('objet', $milieu_exclus)) {
-		$milieu_exclus[] = 'objet';
-	}
-
-	list($dnom, $ddesc) = $depart;
-	list($anom, $adesc) = $arrivee;
-	if (!count($vu)) {
-		$vu[] = $dnom; // ne pas oublier la table de depart
-		$vu[] = $anom; // ne pas oublier la table d'arrivee
-	}
-
-	$akeys = [];
-	foreach ($adesc['key'] as $k) {
-		// respecter l'ordre de $adesc['key'] pour ne pas avoir id_trad en premier entre autres...
-		$akeys = array_merge($akeys, preg_split('/,\s*/', $k));
-	}
-
-	// enlever les cles d'arrivee exclues par l'appel
-	$akeys = array_diff($akeys, $milieu_exclus);
-
-	// cles candidates au depart
-	$keys = liste_champs_jointures($dnom, $ddesc);
-	// enlever les cles dde depart exclues par l'appel
-	$keys = array_diff($keys, $milieu_exclus);
-
-	$v = !$keys ? false : array_intersect(array_values($keys), $akeys);
-
-	if ($v) {
-		return [[$dnom, [$adesc['table'], $adesc], array_shift($v)]];
-	}
-
-	// regarder si l'on a (id_objet,objet) au depart et si on peut le mapper sur un id_xx
-	if (count(array_intersect(['id_objet', 'objet'], $keys)) == 2) {
-		// regarder si l'une des cles d'arrivee peut se decomposer en
-		// id_objet,objet
-		// si oui on la prend
-		foreach ($akeys as $key) {
-			$v = decompose_champ_id_objet($key);
-			if (is_array($v)) {
-				$objet = array_shift($v); // objet,'article'
-				array_unshift($v, $key); // id_article,objet,'article'
-				array_unshift($v, $objet); // id_objet,id_article,objet,'article'
-				return [[$dnom, [$adesc['table'], $adesc], $v]];
-			}
-		}
-	} else {
-		// regarder si l'une des cles de depart peut se decomposer en
-		// id_objet,objet a l'arrivee
-		// si oui on la prend
-		foreach ($keys as $key) {
-			if (count($v = trouver_champs_decomposes($key, $adesc)) > 1) {
-				if (count($v) == count(array_intersect($v, $akeys))) {
-					$v = decompose_champ_id_objet($key); // id_objet,objet,'article'
-					array_unshift($v, $key); // id_article,id_objet,objet,'article'
-					return [[$dnom, [$adesc['table'], $adesc], $v]];
-				}
-			}
-		}
-	}
-	// si l'on voulait une jointure direct, c'est rate !
-	if ($max_liens <= 1) {
-		return [];
-	}
-
-	// sinon essayer de passer par une autre table
-	$new = $vu;
-	foreach ($boucle->jointures as $v) {
-		if (
-			$v
-			and !in_array($v, $vu)
-			and $def = $trouver_table($v, $boucle->sql_serveur)
-			and !in_array($def['table_sql'], $vu)
-		) {
-			// ne pas tester les cles qui sont exclues a l'appel
-			// ie la cle de la jointure precedente
-			$test_cles = $milieu_exclus;
-			$new[] = $v;
-			$max_iter = 50; // securite
-			while (
-				count($jointure_directe_possible = calculer_chaine_jointures(
-					$boucle,
-					$depart,
-					[$v, $def],
-					$vu,
-					$test_cles,
-					1
-				))
-				and $max_iter--
-			) {
-				$jointure_directe_possible = reset($jointure_directe_possible);
-				$milieu = end($jointure_directe_possible);
-				$exclure_fin = $milieu_exclus;
-				if (is_string($milieu)) {
-					$exclure_fin[] = $milieu;
-					$test_cles[] = $milieu;
-				} else {
-					$exclure_fin = array_merge($exclure_fin, $milieu);
-					$test_cles = array_merge($test_cles, $milieu);
-				}
-				// essayer de rejoindre l'arrivee a partir de cette etape intermediaire
-				// sans repasser par la meme cle milieu, ni une cle deja vue !
-				$r = calculer_chaine_jointures($boucle, [$v, $def], $arrivee, $new, $exclure_fin, $max_liens - 1);
-				if ($r) {
-					array_unshift($r, $jointure_directe_possible);
-
-					return $r;
-				}
-			}
-		}
-	}
-
-	return [];
+    static $trouver_table;
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    if (is_string($milieu_exclus)) {
+        $milieu_exclus = [$milieu_exclus];
+    }
+    // quand on a exclus id_objet comme cle de jointure, il faut aussi exclure objet
+    // faire une jointure sur objet tout seul n'a pas de sens
+    if (in_array('id_objet', $milieu_exclus) and !in_array('objet', $milieu_exclus)) {
+        $milieu_exclus[] = 'objet';
+    }
+
+    list($dnom, $ddesc) = $depart;
+    list($anom, $adesc) = $arrivee;
+    if (!count($vu)) {
+        $vu[] = $dnom; // ne pas oublier la table de depart
+        $vu[] = $anom; // ne pas oublier la table d'arrivee
+    }
+
+    $akeys = [];
+    foreach ($adesc['key'] as $k) {
+        // respecter l'ordre de $adesc['key'] pour ne pas avoir id_trad en premier entre autres...
+        $akeys = array_merge($akeys, preg_split('/,\s*/', $k));
+    }
+
+    // enlever les cles d'arrivee exclues par l'appel
+    $akeys = array_diff($akeys, $milieu_exclus);
+
+    // cles candidates au depart
+    $keys = liste_champs_jointures($dnom, $ddesc);
+    // enlever les cles dde depart exclues par l'appel
+    $keys = array_diff($keys, $milieu_exclus);
+
+    $v = !$keys ? false : array_intersect(array_values($keys), $akeys);
+
+    if ($v) {
+        return [[$dnom, [$adesc['table'], $adesc], array_shift($v)]];
+    }
+
+    // regarder si l'on a (id_objet,objet) au depart et si on peut le mapper sur un id_xx
+    if (count(array_intersect(['id_objet', 'objet'], $keys)) == 2) {
+        // regarder si l'une des cles d'arrivee peut se decomposer en
+        // id_objet,objet
+        // si oui on la prend
+        foreach ($akeys as $key) {
+            $v = decompose_champ_id_objet($key);
+            if (is_array($v)) {
+                $objet = array_shift($v); // objet,'article'
+                array_unshift($v, $key); // id_article,objet,'article'
+                array_unshift($v, $objet); // id_objet,id_article,objet,'article'
+                return [[$dnom, [$adesc['table'], $adesc], $v]];
+            }
+        }
+    } else {
+        // regarder si l'une des cles de depart peut se decomposer en
+        // id_objet,objet a l'arrivee
+        // si oui on la prend
+        foreach ($keys as $key) {
+            if (count($v = trouver_champs_decomposes($key, $adesc)) > 1) {
+                if (count($v) == count(array_intersect($v, $akeys))) {
+                    $v = decompose_champ_id_objet($key); // id_objet,objet,'article'
+                    array_unshift($v, $key); // id_article,id_objet,objet,'article'
+                    return [[$dnom, [$adesc['table'], $adesc], $v]];
+                }
+            }
+        }
+    }
+    // si l'on voulait une jointure direct, c'est rate !
+    if ($max_liens <= 1) {
+        return [];
+    }
+
+    // sinon essayer de passer par une autre table
+    $new = $vu;
+    foreach ($boucle->jointures as $v) {
+        if (
+            $v
+            and !in_array($v, $vu)
+            and $def = $trouver_table($v, $boucle->sql_serveur)
+            and !in_array($def['table_sql'], $vu)
+        ) {
+            // ne pas tester les cles qui sont exclues a l'appel
+            // ie la cle de la jointure precedente
+            $test_cles = $milieu_exclus;
+            $new[] = $v;
+            $max_iter = 50; // securite
+            while (
+                count($jointure_directe_possible = calculer_chaine_jointures(
+                    $boucle,
+                    $depart,
+                    [$v, $def],
+                    $vu,
+                    $test_cles,
+                    1
+                ))
+                and $max_iter--
+            ) {
+                $jointure_directe_possible = reset($jointure_directe_possible);
+                $milieu = end($jointure_directe_possible);
+                $exclure_fin = $milieu_exclus;
+                if (is_string($milieu)) {
+                    $exclure_fin[] = $milieu;
+                    $test_cles[] = $milieu;
+                } else {
+                    $exclure_fin = array_merge($exclure_fin, $milieu);
+                    $test_cles = array_merge($test_cles, $milieu);
+                }
+                // essayer de rejoindre l'arrivee a partir de cette etape intermediaire
+                // sans repasser par la meme cle milieu, ni une cle deja vue !
+                $r = calculer_chaine_jointures($boucle, [$v, $def], $arrivee, $new, $exclure_fin, $max_liens - 1);
+                if ($r) {
+                    array_unshift($r, $jointure_directe_possible);
+
+                    return $r;
+                }
+            }
+        }
+    }
+
+    return [];
 }
 
 /**
@@ -488,18 +488,18 @@ 
  * @return array
  */
 function trouver_cles_table($keys) {
-	$res = [];
-	foreach ($keys as $v) {
-		if (!strpos($v, ',')) {
-			$res[$v] = 1;
-		} else {
-			foreach (preg_split('/\s*,\s*/', $v) as $k) {
-				$res[$k] = 1;
-			}
-		}
-	}
-
-	return array_keys($res);
+    $res = [];
+    foreach ($keys as $v) {
+        if (!strpos($v, ',')) {
+            $res[$v] = 1;
+        } else {
+            foreach (preg_split('/\s*,\s*/', $v) as $k) {
+                $res[$k] = 1;
+            }
+        }
+    }
+
+    return array_keys($res);
 }
 
 
@@ -526,34 +526,34 @@ 
  *     - 'alias' : alias utilisé pour la table (si pertinent. ie: avec `$boucle->from` transmis par exemple)
  */
 function chercher_champ_dans_tables($cle, $tables, $connect, $checkarrivee = false) {
-	static $trouver_table = '';
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	if (!is_array($cle)) {
-		$cle = [$cle];
-	}
-
-	foreach ($tables as $k => $table) {
-		if ($table && $desc = $trouver_table($table, $connect)) {
-			if (
-				isset($desc['field'])
-				// verifier que toutes les cles cherchees sont la
-				and (count(array_intersect($cle, array_keys($desc['field']))) == count($cle))
-				// si on sait ou on veut arriver, il faut que ca colle
-				and ($checkarrivee == false || $checkarrivee == $desc['table'])
-			) {
-				return [
-					'desc' => $desc,
-					'table' => $desc['table'],
-					'alias' => $k,
-				];
-			}
-		}
-	}
-
-	return false;
+    static $trouver_table = '';
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    if (!is_array($cle)) {
+        $cle = [$cle];
+    }
+
+    foreach ($tables as $k => $table) {
+        if ($table && $desc = $trouver_table($table, $connect)) {
+            if (
+                isset($desc['field'])
+                // verifier que toutes les cles cherchees sont la
+                and (count(array_intersect($cle, array_keys($desc['field']))) == count($cle))
+                // si on sait ou on veut arriver, il faut que ca colle
+                and ($checkarrivee == false || $checkarrivee == $desc['table'])
+            ) {
+                return [
+                    'desc' => $desc,
+                    'table' => $desc['table'],
+                    'alias' => $k,
+                ];
+            }
+        }
+    }
+
+    return false;
 }
 
 /**
@@ -579,52 +579,52 @@ 
  */
 function trouver_champ_exterieur($cle, $joints, &$boucle, $checkarrivee = false) {
 
-	// support de la recherche multi champ :
-	// si en seconde etape on a decompose le champ id_xx en id_objet,objet
-	// on reentre ici soit en cherchant une table les 2 champs id_objet,objet
-	// soit une table avec les 3 champs id_xx, id_objet, objet
-	if (!is_array($cle)) {
-		$cle = [$cle];
-	}
-
-	if ($infos = chercher_champ_dans_tables($cle, $joints, $boucle->sql_serveur, $checkarrivee)) {
-		return [$infos['table'], $infos['desc'], $cle];
-	}
-
-	// au premier coup, on essaye de decomposer, si possible
-	if (
-		count($cle) == 1
-		and $c = reset($cle)
-		and is_array($decompose = decompose_champ_id_objet($c))
-	) {
-		$desc = $boucle->show;
-
-		// cas 1 : la cle id_xx est dans la table de depart
-		// -> on cherche uniquement id_objet,objet a l'arrivee
-		if (isset($desc['field'][$c])) {
-			$cle = [];
-			$cle[] = array_shift($decompose); // id_objet
-			$cle[] = array_shift($decompose); // objet
-			return trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee);
-		}
-		// cas 2 : la cle id_xx n'est pas dans la table de depart
-		// -> il faut trouver une cle de depart zzz telle que
-		// id_objet,objet,zzz soit a l'arrivee
-		else {
-			$depart = liste_champs_jointures((isset($desc['table']) ? $desc['table'] : ''), $desc);
-			foreach ($depart as $d) {
-				$cle = [];
-				$cle[] = array_shift($decompose); // id_objet
-				$cle[] = array_shift($decompose); // objet
-				$cle[] = $d;
-				if ($ext = trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee)) {
-					return $ext;
-				}
-			}
-		}
-	}
-
-	return '';
+    // support de la recherche multi champ :
+    // si en seconde etape on a decompose le champ id_xx en id_objet,objet
+    // on reentre ici soit en cherchant une table les 2 champs id_objet,objet
+    // soit une table avec les 3 champs id_xx, id_objet, objet
+    if (!is_array($cle)) {
+        $cle = [$cle];
+    }
+
+    if ($infos = chercher_champ_dans_tables($cle, $joints, $boucle->sql_serveur, $checkarrivee)) {
+        return [$infos['table'], $infos['desc'], $cle];
+    }
+
+    // au premier coup, on essaye de decomposer, si possible
+    if (
+        count($cle) == 1
+        and $c = reset($cle)
+        and is_array($decompose = decompose_champ_id_objet($c))
+    ) {
+        $desc = $boucle->show;
+
+        // cas 1 : la cle id_xx est dans la table de depart
+        // -> on cherche uniquement id_objet,objet a l'arrivee
+        if (isset($desc['field'][$c])) {
+            $cle = [];
+            $cle[] = array_shift($decompose); // id_objet
+            $cle[] = array_shift($decompose); // objet
+            return trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee);
+        }
+        // cas 2 : la cle id_xx n'est pas dans la table de depart
+        // -> il faut trouver une cle de depart zzz telle que
+        // id_objet,objet,zzz soit a l'arrivee
+        else {
+            $depart = liste_champs_jointures((isset($desc['table']) ? $desc['table'] : ''), $desc);
+            foreach ($depart as $d) {
+                $cle = [];
+                $cle[] = array_shift($decompose); // id_objet
+                $cle[] = array_shift($decompose); // objet
+                $cle[] = $d;
+                if ($ext = trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee)) {
+                    return $ext;
+                }
+            }
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -656,21 +656,21 @@ 
  * @return string
  */
 function trouver_jointure_champ($champ, &$boucle, $jointures = false, $cond = false, $checkarrivee = false) {
-	if ($jointures === false) {
-		$jointures = $boucle->jointures;
-	}
-	// TODO : aberration, on utilise $jointures pour trouver le champ
-	// mais pas poour construire la jointure ensuite
-	$arrivee = trouver_champ_exterieur($champ, $jointures, $boucle, $checkarrivee);
-	if ($arrivee) {
-		$desc = $boucle->show;
-		array_pop($arrivee); // enlever la cle en 3eme argument
-		$cle = calculer_jointure($boucle, [$desc['id_table'], $desc], $arrivee, '', $cond);
-		if ($cle) {
-			return $cle;
-		}
-	}
-	spip_log("trouver_jointure_champ: $champ inconnu");
-
-	return '';
+    if ($jointures === false) {
+        $jointures = $boucle->jointures;
+    }
+    // TODO : aberration, on utilise $jointures pour trouver le champ
+    // mais pas poour construire la jointure ensuite
+    $arrivee = trouver_champ_exterieur($champ, $jointures, $boucle, $checkarrivee);
+    if ($arrivee) {
+        $desc = $boucle->show;
+        array_pop($arrivee); // enlever la cle en 3eme argument
+        $cle = calculer_jointure($boucle, [$desc['id_table'], $desc], $arrivee, '', $cond);
+        if ($cle) {
+            return $cle;
+        }
+    }
+    spip_log("trouver_jointure_champ: $champ inconnu");
+
+    return '';
 }

Spacing +4 added lines, -4 removed lines

@@ -177,14 +177,14 @@ 
 			// sache qu'il peut enlever ce where si il enleve la jointure
 			$boucle->where["JOIN-L$n"] =
 				$echap ?
-					["'='","'$obj'","sql_quote('$type')"]
+					["'='", "'$obj'", "sql_quote('$type')"]
 					:
-					['=',"$obj",sql_quote($type)];
+					['=', "$obj", sql_quote($type)];
 			$boucle->join["L$n"] =
 				$echap ?
 					["'$id_table'", "'$j2'", "'$j1'", "'$obj='.sql_quote('$type')"]
 					:
-					[$id_table, $j2, $j1, "$obj=" . sql_quote($type)];
+					[$id_table, $j2, $j1, "$obj=".sql_quote($type)];
 		} else {
 			$boucle->join["L$n"] = $echap ? ["'$id_table'", "'$j'"] : [$id_table, $j];
 		}
@@ -218,7 +218,7 @@ 
 	$groups = liste_champs_jointures($nom, $desc, true);
 	if (!$pk) {
 		foreach ($groups as $id_prim) {
-			$id_field = $nom . '.' . $id_prim;
+			$id_field = $nom.'.'.$id_prim;
 			if (!in_array($id_field, $boucle->group)) {
 				$boucle->group[] = $id_field;
 			}

ecrire/public/aiguiller.php

Indentation +269 added lines, -269 removed lines

@@ -11,164 +11,164 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 function securiser_redirect_action($redirect) {
-	// cas d'un double urlencode : si un urldecode de l'url n'est pas secure, on retient ca comme redirect
-	if (strpos($redirect, '%') !== false) {
-		$r2 = urldecode($redirect);
-		if (($r3 = securiser_redirect_action($r2)) !== $r2) {
-			return $r3;
-		}
-	}
-	if (
-		(tester_url_absolue($redirect) or preg_match(',^\w+:,', trim($redirect)))
-		and !defined('_AUTORISER_ACTION_ABS_REDIRECT')
-	) {
-		// si l'url est une url du site, on la laisse passer sans rien faire
-		// c'est encore le plus simple
-		$base = $GLOBALS['meta']['adresse_site'] . '/';
-		if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
-			return $redirect;
-		}
-		$base = url_de_base();
-		if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
-			return $redirect;
-		}
+    // cas d'un double urlencode : si un urldecode de l'url n'est pas secure, on retient ca comme redirect
+    if (strpos($redirect, '%') !== false) {
+        $r2 = urldecode($redirect);
+        if (($r3 = securiser_redirect_action($r2)) !== $r2) {
+            return $r3;
+        }
+    }
+    if (
+        (tester_url_absolue($redirect) or preg_match(',^\w+:,', trim($redirect)))
+        and !defined('_AUTORISER_ACTION_ABS_REDIRECT')
+    ) {
+        // si l'url est une url du site, on la laisse passer sans rien faire
+        // c'est encore le plus simple
+        $base = $GLOBALS['meta']['adresse_site'] . '/';
+        if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
+            return $redirect;
+        }
+        $base = url_de_base();
+        if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
+            return $redirect;
+        }
 
-		return '';
-	}
+        return '';
+    }
 
-	return $redirect;
+    return $redirect;
 }
 
 // https://code.spip.net/@traiter_appels_actions
 function traiter_appels_actions() {
-	// cas de l'appel qui renvoie une redirection (302) ou rien (204)
-	if ($action = _request('action')) {
-		include_spip('base/abstract_sql'); // chargement systematique pour les actions
-		include_spip('inc/autoriser');
-		include_spip('inc/headers');
-		include_spip('inc/actions');
-		// des actions peuvent appeler _T
-		if (!isset($GLOBALS['spip_lang'])) {
-			include_spip('inc/lang');
-			utiliser_langue_visiteur();
-		}
-		// si l'action est provoque par un hit {ajax}
-		// il faut transmettre l'env ajax au redirect
-		// on le met avant dans la query string au cas ou l'action fait elle meme sa redirection
-		if (
-			($v = _request('var_ajax'))
-			and ($v !== 'form')
-			and ($args = _request('var_ajax_env'))
-			and ($url = _request('redirect'))
-		) {
-			$url = parametre_url($url, 'var_ajax', $v, '&');
-			$url = parametre_url($url, 'var_ajax_env', $args, '&');
-			set_request('redirect', $url);
-		} else {
-			if (_request('redirect')) {
-				set_request('redirect', securiser_redirect_action(_request('redirect')));
-			}
-		}
-		$var_f = charger_fonction($action, 'action');
-		$var_f();
-		if (!isset($GLOBALS['redirect'])) {
-			$GLOBALS['redirect'] = _request('redirect');
-			if ($_SERVER['REQUEST_METHOD'] == 'POST') {
-				$GLOBALS['redirect'] = urldecode($GLOBALS['redirect']);
-			}
-			$GLOBALS['redirect'] = securiser_redirect_action($GLOBALS['redirect']);
-		}
-		if ($url = $GLOBALS['redirect']) {
-			// si l'action est provoque par un hit {ajax}
-			// il faut transmettre l'env ajax au redirect
-			// qui a pu etre defini par l'action
-			if (
-				($v = _request('var_ajax'))
-				and ($v !== 'form')
-				and ($args = _request('var_ajax_env'))
-			) {
-				$url = parametre_url($url, 'var_ajax', $v, '&');
-				$url = parametre_url($url, 'var_ajax_env', $args, '&');
-				// passer l'ancre en variable pour pouvoir la gerer cote serveur
-				$url = preg_replace(',#([^#&?]+)$,', "&var_ajax_ancre=\\1", $url);
-			}
-			$url = str_replace('&', '&', $url); // les redirections se font en &, pas en en &
-			redirige_par_entete($url);
-		}
+    // cas de l'appel qui renvoie une redirection (302) ou rien (204)
+    if ($action = _request('action')) {
+        include_spip('base/abstract_sql'); // chargement systematique pour les actions
+        include_spip('inc/autoriser');
+        include_spip('inc/headers');
+        include_spip('inc/actions');
+        // des actions peuvent appeler _T
+        if (!isset($GLOBALS['spip_lang'])) {
+            include_spip('inc/lang');
+            utiliser_langue_visiteur();
+        }
+        // si l'action est provoque par un hit {ajax}
+        // il faut transmettre l'env ajax au redirect
+        // on le met avant dans la query string au cas ou l'action fait elle meme sa redirection
+        if (
+            ($v = _request('var_ajax'))
+            and ($v !== 'form')
+            and ($args = _request('var_ajax_env'))
+            and ($url = _request('redirect'))
+        ) {
+            $url = parametre_url($url, 'var_ajax', $v, '&');
+            $url = parametre_url($url, 'var_ajax_env', $args, '&');
+            set_request('redirect', $url);
+        } else {
+            if (_request('redirect')) {
+                set_request('redirect', securiser_redirect_action(_request('redirect')));
+            }
+        }
+        $var_f = charger_fonction($action, 'action');
+        $var_f();
+        if (!isset($GLOBALS['redirect'])) {
+            $GLOBALS['redirect'] = _request('redirect');
+            if ($_SERVER['REQUEST_METHOD'] == 'POST') {
+                $GLOBALS['redirect'] = urldecode($GLOBALS['redirect']);
+            }
+            $GLOBALS['redirect'] = securiser_redirect_action($GLOBALS['redirect']);
+        }
+        if ($url = $GLOBALS['redirect']) {
+            // si l'action est provoque par un hit {ajax}
+            // il faut transmettre l'env ajax au redirect
+            // qui a pu etre defini par l'action
+            if (
+                ($v = _request('var_ajax'))
+                and ($v !== 'form')
+                and ($args = _request('var_ajax_env'))
+            ) {
+                $url = parametre_url($url, 'var_ajax', $v, '&');
+                $url = parametre_url($url, 'var_ajax_env', $args, '&');
+                // passer l'ancre en variable pour pouvoir la gerer cote serveur
+                $url = preg_replace(',#([^#&?]+)$,', "&var_ajax_ancre=\\1", $url);
+            }
+            $url = str_replace('&', '&', $url); // les redirections se font en &, pas en en &
+            redirige_par_entete($url);
+        }
 
-		// attention : avec zlib.output_compression=1 on a vu des cas de ob_get_length() qui renvoi 0
-		// et du coup en renvoi un status 204 a tort (vu sur le menu rubriques notamment)
-		if (
-			!headers_sent()
-			and !ob_get_length()
-		) {
-			http_status(204);
-		} // No Content
-		return true;
-	}
+        // attention : avec zlib.output_compression=1 on a vu des cas de ob_get_length() qui renvoi 0
+        // et du coup en renvoi un status 204 a tort (vu sur le menu rubriques notamment)
+        if (
+            !headers_sent()
+            and !ob_get_length()
+        ) {
+            http_status(204);
+        } // No Content
+        return true;
+    }
 
-	return false;
+    return false;
 }
 
 
 // https://code.spip.net/@refuser_traiter_formulaire_ajax
 function refuser_traiter_formulaire_ajax() {
-	if (
-		$v = _request('var_ajax')
-		and $v == 'form'
-		and $form = _request('formulaire_action')
-		and $args = _request('formulaire_action_args')
-		and decoder_contexte_ajax($args, $form) !== false
-	) {
-		// on est bien dans le contexte de traitement d'un formulaire en ajax
-		// mais traiter ne veut pas
-		// on le dit a la page qui va resumbit
-		// sans ajax
-		include_spip('inc/actions');
-		ajax_retour('noajax', false);
-		exit;
-	}
+    if (
+        $v = _request('var_ajax')
+        and $v == 'form'
+        and $form = _request('formulaire_action')
+        and $args = _request('formulaire_action_args')
+        and decoder_contexte_ajax($args, $form) !== false
+    ) {
+        // on est bien dans le contexte de traitement d'un formulaire en ajax
+        // mais traiter ne veut pas
+        // on le dit a la page qui va resumbit
+        // sans ajax
+        include_spip('inc/actions');
+        ajax_retour('noajax', false);
+        exit;
+    }
 }
 
 // https://code.spip.net/@traiter_appels_inclusions_ajax
 function traiter_appels_inclusions_ajax() {
-	// traiter les appels de bloc ajax (ex: pagination)
-	if (
-		$v = _request('var_ajax')
-		and $v !== 'form'
-		and $args = _request('var_ajax_env')
-	) {
-		include_spip('inc/filtres');
-		include_spip('inc/actions');
-		if (
-			$args = decoder_contexte_ajax($args)
-			and $fond = $args['fond']
-		) {
-			include_spip('public/assembler');
-			$contexte = calculer_contexte();
-			$contexte = array_merge($args, $contexte);
-			$page = recuperer_fond($fond, $contexte, ['trim' => false]);
-			$texte = $page;
-			if ($ancre = _request('var_ajax_ancre')) {
-				// pas n'importe quoi quand meme dans la variable !
-				$ancre = str_replace(['<', '"', "'"], ['&lt;', '&quot;', ''], $ancre);
-				$texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>" . $texte;
-			}
-		} else {
-			include_spip('inc/headers');
-			http_status(400);
-			$texte = _L('signature ajax bloc incorrecte');
-		}
-		ajax_retour($texte, false);
+    // traiter les appels de bloc ajax (ex: pagination)
+    if (
+        $v = _request('var_ajax')
+        and $v !== 'form'
+        and $args = _request('var_ajax_env')
+    ) {
+        include_spip('inc/filtres');
+        include_spip('inc/actions');
+        if (
+            $args = decoder_contexte_ajax($args)
+            and $fond = $args['fond']
+        ) {
+            include_spip('public/assembler');
+            $contexte = calculer_contexte();
+            $contexte = array_merge($args, $contexte);
+            $page = recuperer_fond($fond, $contexte, ['trim' => false]);
+            $texte = $page;
+            if ($ancre = _request('var_ajax_ancre')) {
+                // pas n'importe quoi quand meme dans la variable !
+                $ancre = str_replace(['<', '"', "'"], ['&lt;', '&quot;', ''], $ancre);
+                $texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>" . $texte;
+            }
+        } else {
+            include_spip('inc/headers');
+            http_status(400);
+            $texte = _L('signature ajax bloc incorrecte');
+        }
+        ajax_retour($texte, false);
 
-		return true; // on a fini le hit
-	}
+        return true; // on a fini le hit
+    }
 
-	return false;
+    return false;
 }
 
 // au 1er appel, traite les formulaires dynamiques charger/verifier/traiter
@@ -177,152 +177,152 @@ 
 
 // https://code.spip.net/@traiter_formulaires_dynamiques
 function traiter_formulaires_dynamiques($get = false) {
-	static $post = [];
-	static $done = false;
+    static $post = [];
+    static $done = false;
 
-	if ($get) {
-		return $post;
-	}
-	if ($done) {
-		return false;
-	}
-	$done = true;
+    if ($get) {
+        return $post;
+    }
+    if ($done) {
+        return false;
+    }
+    $done = true;
 
-	if (
-		!($form = _request('formulaire_action')
-		and $args = _request('formulaire_action_args'))
-	) {
-		return false;
-	} // le hit peut continuer normalement
+    if (
+        !($form = _request('formulaire_action')
+        and $args = _request('formulaire_action_args'))
+    ) {
+        return false;
+    } // le hit peut continuer normalement
 
-	include_spip('inc/filtres');
-	if (($args = decoder_contexte_ajax($args, $form)) === false) {
-		spip_log("signature ajax form incorrecte : $form");
+    include_spip('inc/filtres');
+    if (($args = decoder_contexte_ajax($args, $form)) === false) {
+        spip_log("signature ajax form incorrecte : $form");
 
-		return false; // continuons le hit comme si de rien etait
-	} else {
-		include_spip('inc/lang');
-		// sauvegarder la lang en cours
-		$old_lang = $GLOBALS['spip_lang'];
-		// changer la langue avec celle qui a cours dans le formulaire
-		// on la depile de $args car c'est un argument implicite masque
-		changer_langue(array_shift($args));
+        return false; // continuons le hit comme si de rien etait
+    } else {
+        include_spip('inc/lang');
+        // sauvegarder la lang en cours
+        $old_lang = $GLOBALS['spip_lang'];
+        // changer la langue avec celle qui a cours dans le formulaire
+        // on la depile de $args car c'est un argument implicite masque
+        changer_langue(array_shift($args));
 
 
-		// inclure mes_fonctions et autres filtres avant verifier/traiter
-		include_fichiers_fonctions();
-		// ainsi que l'API SQL bien utile dans verifier/traiter
-		include_spip('base/abstract_sql');
+        // inclure mes_fonctions et autres filtres avant verifier/traiter
+        include_fichiers_fonctions();
+        // ainsi que l'API SQL bien utile dans verifier/traiter
+        include_spip('base/abstract_sql');
 
-		/**
-		 * Pipeline exécuté lors de la soumission d'un formulaire,
-		 * mais avant l'appel de la fonction de vérification.
-		 */
-		pipeline(
-			'formulaire_receptionner',
-			[
-				'args' => ['form' => $form, 'args' => $args],
-				'data' => null,
-			]
-		);
+        /**
+         * Pipeline exécuté lors de la soumission d'un formulaire,
+         * mais avant l'appel de la fonction de vérification.
+         */
+        pipeline(
+            'formulaire_receptionner',
+            [
+                'args' => ['form' => $form, 'args' => $args],
+                'data' => null,
+            ]
+        );
 
-		$verifier = charger_fonction('verifier', "formulaires/$form/", true);
-		$post["erreurs_$form"] = pipeline(
-			'formulaire_verifier',
-			[
-				'args' => ['form' => $form, 'args' => $args],
-				'data' => $verifier ? call_user_func_array($verifier, $args) : []
-			]
-		);
-		// prise en charge CVT multi etape si besoin
-		if (_request('cvtm_prev_post')) {
-			include_spip('inc/cvt_multietapes');
-			$post["erreurs_$form"] = cvtmulti_formulaire_verifier_etapes(
-				['form' => $form, 'args' => $args],
-				$post["erreurs_$form"]
-			);
-		}
+        $verifier = charger_fonction('verifier', "formulaires/$form/", true);
+        $post["erreurs_$form"] = pipeline(
+            'formulaire_verifier',
+            [
+                'args' => ['form' => $form, 'args' => $args],
+                'data' => $verifier ? call_user_func_array($verifier, $args) : []
+            ]
+        );
+        // prise en charge CVT multi etape si besoin
+        if (_request('cvtm_prev_post')) {
+            include_spip('inc/cvt_multietapes');
+            $post["erreurs_$form"] = cvtmulti_formulaire_verifier_etapes(
+                ['form' => $form, 'args' => $args],
+                $post["erreurs_$form"]
+            );
+        }
 
-		// accessibilite : si des erreurs mais pas de message general l'ajouter
-		if ((isset($post["erreurs_$form"]) and count($post["erreurs_$form"])) and !isset($post["erreurs_$form"]['message_erreur'])) {
-			$post["erreurs_$form"]['message_erreur'] = singulier_ou_pluriel(
-				count($post["erreurs_$form"]),
-				'avis_1_erreur_saisie',
-				'avis_nb_erreurs_saisie'
-			);
-		}
+        // accessibilite : si des erreurs mais pas de message general l'ajouter
+        if ((isset($post["erreurs_$form"]) and count($post["erreurs_$form"])) and !isset($post["erreurs_$form"]['message_erreur'])) {
+            $post["erreurs_$form"]['message_erreur'] = singulier_ou_pluriel(
+                count($post["erreurs_$form"]),
+                'avis_1_erreur_saisie',
+                'avis_nb_erreurs_saisie'
+            );
+        }
 
-		// si on ne demandait qu'une verif json
-		if (_request('formulaire_action_verifier_json')) {
-			include_spip('inc/json');
-			include_spip('inc/actions');
-			ajax_retour(json_encode($post["erreurs_$form"]), 'text/plain');
+        // si on ne demandait qu'une verif json
+        if (_request('formulaire_action_verifier_json')) {
+            include_spip('inc/json');
+            include_spip('inc/actions');
+            ajax_retour(json_encode($post["erreurs_$form"]), 'text/plain');
 
-			return true; // on a fini le hit
-		}
-		$retour = '';
-		if (isset($post["erreurs_$form"]) and (count($post["erreurs_$form"]) == 0)) {
-			$rev = '';
-			if ($traiter = charger_fonction('traiter', "formulaires/$form/", true)) {
-				$rev = call_user_func_array($traiter, $args);
-			}
+            return true; // on a fini le hit
+        }
+        $retour = '';
+        if (isset($post["erreurs_$form"]) and (count($post["erreurs_$form"]) == 0)) {
+            $rev = '';
+            if ($traiter = charger_fonction('traiter', "formulaires/$form/", true)) {
+                $rev = call_user_func_array($traiter, $args);
+            }
 
-			$rev = pipeline(
-				'formulaire_traiter',
-				[
-					'args' => ['form' => $form, 'args' => $args],
-					'data' => $rev
-				]
-			);
-			// le retour de traiter est
-			// un tableau explicite ('editable'=>$editable,'message_ok'=>$message,'redirect'=>$redirect,'id_xx'=>$id_xx)
-			// il permet le pipelinage, en particulier
-			// en y passant l'id de l'objet cree/modifie
-			// si message_erreur est present, on considere que le traitement a echoue
-			$post["message_ok_$form"] = '';
-			// on peut avoir message_ok et message_erreur
-			if (isset($rev['message_ok'])) {
-				$post["message_ok_$form"] = $rev['message_ok'];
-			}
+            $rev = pipeline(
+                'formulaire_traiter',
+                [
+                    'args' => ['form' => $form, 'args' => $args],
+                    'data' => $rev
+                ]
+            );
+            // le retour de traiter est
+            // un tableau explicite ('editable'=>$editable,'message_ok'=>$message,'redirect'=>$redirect,'id_xx'=>$id_xx)
+            // il permet le pipelinage, en particulier
+            // en y passant l'id de l'objet cree/modifie
+            // si message_erreur est present, on considere que le traitement a echoue
+            $post["message_ok_$form"] = '';
+            // on peut avoir message_ok et message_erreur
+            if (isset($rev['message_ok'])) {
+                $post["message_ok_$form"] = $rev['message_ok'];
+            }
 
-			// verifier si traiter n'a pas echoue avec une erreur :
-			if (isset($rev['message_erreur'])) {
-				$post["erreurs_$form"]['message_erreur'] = $rev['message_erreur'];
-				// si il y a une erreur on ne redirige pas
-			} else {
-				// sinon faire ce qu'il faut :
-				if (isset($rev['editable'])) {
-					$post["editable_$form"] = $rev['editable'];
-				}
-				// si une redirection est demandee, appeler redirigae_formulaire qui choisira
-				// le bon mode de redirection (302 et on ne revient pas ici, ou javascript et on continue)
-				if (isset($rev['redirect']) and $rev['redirect']) {
-					include_spip('inc/headers');
-					list($masque, $message) = redirige_formulaire($rev['redirect'], '', 'ajaxform');
-					$post["message_ok_$form"] .= $message;
-					$retour .= $masque;
-				}
-			}
-		}
-		// si le formulaire a ete soumis en ajax, on le renvoie direct !
-		if (_request('var_ajax')) {
-			if (find_in_path('formulaire_.php', 'balise/', true)) {
-				include_spip('inc/actions');
-				include_spip('public/assembler');
-				array_unshift($args, $form);
-				$retour .= inclure_balise_dynamique(call_user_func_array('balise_formulaire__dyn', $args), false);
-				// on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
-				// sans cela le formulaire n'est pas actif apres le hit ajax
-				// la classe ajax-form-is-ok sert a s'assurer que le retour ajax s'est bien passe
-				$retour = "<br class='bugajaxie ajax-form-is-ok' style='display:none;'/>" . $retour;
-				ajax_retour($retour, false);
+            // verifier si traiter n'a pas echoue avec une erreur :
+            if (isset($rev['message_erreur'])) {
+                $post["erreurs_$form"]['message_erreur'] = $rev['message_erreur'];
+                // si il y a une erreur on ne redirige pas
+            } else {
+                // sinon faire ce qu'il faut :
+                if (isset($rev['editable'])) {
+                    $post["editable_$form"] = $rev['editable'];
+                }
+                // si une redirection est demandee, appeler redirigae_formulaire qui choisira
+                // le bon mode de redirection (302 et on ne revient pas ici, ou javascript et on continue)
+                if (isset($rev['redirect']) and $rev['redirect']) {
+                    include_spip('inc/headers');
+                    list($masque, $message) = redirige_formulaire($rev['redirect'], '', 'ajaxform');
+                    $post["message_ok_$form"] .= $message;
+                    $retour .= $masque;
+                }
+            }
+        }
+        // si le formulaire a ete soumis en ajax, on le renvoie direct !
+        if (_request('var_ajax')) {
+            if (find_in_path('formulaire_.php', 'balise/', true)) {
+                include_spip('inc/actions');
+                include_spip('public/assembler');
+                array_unshift($args, $form);
+                $retour .= inclure_balise_dynamique(call_user_func_array('balise_formulaire__dyn', $args), false);
+                // on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
+                // sans cela le formulaire n'est pas actif apres le hit ajax
+                // la classe ajax-form-is-ok sert a s'assurer que le retour ajax s'est bien passe
+                $retour = "<br class='bugajaxie ajax-form-is-ok' style='display:none;'/>" . $retour;
+                ajax_retour($retour, false);
 
-				return true; // on a fini le hit
-			}
-		}
-		// restaurer la lang en cours
-		changer_langue($old_lang);
-	}
+                return true; // on a fini le hit
+            }
+        }
+        // restaurer la lang en cours
+        changer_langue($old_lang);
+    }
 
-	return false; // le hit peut continuer normalement
+    return false; // le hit peut continuer normalement
 }

Spacing +3 added lines, -3 removed lines

@@ -28,7 +28,7 @@ 
 	) {
 		// si l'url est une url du site, on la laisse passer sans rien faire
 		// c'est encore le plus simple
-		$base = $GLOBALS['meta']['adresse_site'] . '/';
+		$base = $GLOBALS['meta']['adresse_site'].'/';
 		if (strlen($base) and strncmp($redirect, $base, strlen($base)) == 0) {
 			return $redirect;
 		}
@@ -156,7 +156,7 @@ 
 			if ($ancre = _request('var_ajax_ancre')) {
 				// pas n'importe quoi quand meme dans la variable !
 				$ancre = str_replace(['<', '"', "'"], ['&lt;', '&quot;', ''], $ancre);
-				$texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>" . $texte;
+				$texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>".$texte;
 			}
 		} else {
 			include_spip('inc/headers');
@@ -314,7 +314,7 @@ 
 				// on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
 				// sans cela le formulaire n'est pas actif apres le hit ajax
 				// la classe ajax-form-is-ok sert a s'assurer que le retour ajax s'est bien passe
-				$retour = "<br class='bugajaxie ajax-form-is-ok' style='display:none;'/>" . $retour;
+				$retour = "<br class='bugajaxie ajax-form-is-ok' style='display:none;'/>".$retour;
 				ajax_retour($retour, false);
 
 				return true; // on a fini le hit

ecrire/public/debusquer.php

Indentation +682 added lines, -682 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('public/decompiler');
@@ -66,136 +66,136 @@ 
  *     - string si $message à false.
  **/
 function public_debusquer_dist($message = '', $lieu = '', $opt = []) {
-	static $tableau_des_erreurs = [];
-
-	// Pour des tests unitaires, pouvoir récupérer les erreurs générées
-	if (isset($opt['erreurs'])) {
-		if ($opt['erreurs'] == 'get') {
-			return $tableau_des_erreurs;
-		}
-		if ($opt['erreurs'] == 'reset') {
-			$tableau_des_erreurs = [];
-
-			return true;
-		}
-	}
-
-	// Erreur ou appel final ?
-	if ($message) {
-		$message = debusquer_compose_message($message);
-		$tableau_des_erreurs[] = [$message, $lieu];
-		set_request('var_mode', 'debug');
-		$GLOBALS['bouton_admin_debug'] = true;
-		// Permettre a la compil de continuer
-		if (is_object($lieu) and (!isset($lieu->code) or !$lieu->code)) {
-			$lieu->code = "''";
-		}
-		// forcer l'appel au debusqueur en cas de boucles infernales
-		$urgence = (_DEBUG_MAX_SQUELETTE_ERREURS and count($tableau_des_erreurs) > _DEBUG_MAX_SQUELETTE_ERREURS);
-		if (!$urgence) {
-			return;
-		}
-	}
-	if (empty($GLOBALS['debug_objets']['principal'])) {
-		// espace public ?
-		if (isset($GLOBALS['fond'])) {
-			$GLOBALS['debug_objets']['principal'] = $GLOBALS['fond'];
-		}
-	}
-
-	include_spip('inc/autoriser');
-	if (!autoriser('debug')) {
-		return;
-	}
-	include_spip('inc/headers');
-	include_spip('inc/filtres');
-
-	// en cas de squelette inclus,  virer le code de l'incluant:
-	// - il contient souvent une Div restreignant la largeur a 3 fois rien
-	// - ca fait 2 headers !
-	// sauf si l'on se trouve deja dans un flux compresse (plugin compresseur
-	// actif par exemple)
-	if (
-		ob_get_length()
-		and
-		!in_array('ob_gzhandler', ob_get_status())
-	) {
-		ob_end_clean();
-	}
-
-	lang_select($GLOBALS['visiteur_session']['lang']);
-	$fonc = _request('var_mode_objet');
-	$mode = _request('var_mode_affiche');
-	$self = str_replace("\\'", ''', self());
-	$self = parametre_url($self, 'var_mode', 'debug');
-
-	$res = debusquer_bandeau($tableau_des_erreurs)
-		. '<br />'
-		. debusquer_squelette($fonc, $mode, $self);
-
-	if (!_DIR_RESTREINT or headers_sent()) {
-		return $res;
-	}
-	if ($tableau_des_erreurs) {
-		http_status(503);
-	}
-
-	http_no_cache();
-	if (isset($_GET['var_profile'])) {
-		$titre = parametre_url($GLOBALS['REQUEST_URI'], 'var_profile', '');
-		$titre = parametre_url($titre, 'var_mode', '');
-	} else {
-		if (!$fonc) {
-			$fonc = $GLOBALS['debug_objets']['principal'];
-		}
-		$titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' ' . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
-	}
-	if ($message === false) {
-		lang_select();
-
-		return debusquer_entete($titre, $res);
-	} else {
-		echo debusquer_entete($titre, $res);
-	}
-	exit;
+    static $tableau_des_erreurs = [];
+
+    // Pour des tests unitaires, pouvoir récupérer les erreurs générées
+    if (isset($opt['erreurs'])) {
+        if ($opt['erreurs'] == 'get') {
+            return $tableau_des_erreurs;
+        }
+        if ($opt['erreurs'] == 'reset') {
+            $tableau_des_erreurs = [];
+
+            return true;
+        }
+    }
+
+    // Erreur ou appel final ?
+    if ($message) {
+        $message = debusquer_compose_message($message);
+        $tableau_des_erreurs[] = [$message, $lieu];
+        set_request('var_mode', 'debug');
+        $GLOBALS['bouton_admin_debug'] = true;
+        // Permettre a la compil de continuer
+        if (is_object($lieu) and (!isset($lieu->code) or !$lieu->code)) {
+            $lieu->code = "''";
+        }
+        // forcer l'appel au debusqueur en cas de boucles infernales
+        $urgence = (_DEBUG_MAX_SQUELETTE_ERREURS and count($tableau_des_erreurs) > _DEBUG_MAX_SQUELETTE_ERREURS);
+        if (!$urgence) {
+            return;
+        }
+    }
+    if (empty($GLOBALS['debug_objets']['principal'])) {
+        // espace public ?
+        if (isset($GLOBALS['fond'])) {
+            $GLOBALS['debug_objets']['principal'] = $GLOBALS['fond'];
+        }
+    }
+
+    include_spip('inc/autoriser');
+    if (!autoriser('debug')) {
+        return;
+    }
+    include_spip('inc/headers');
+    include_spip('inc/filtres');
+
+    // en cas de squelette inclus,  virer le code de l'incluant:
+    // - il contient souvent une Div restreignant la largeur a 3 fois rien
+    // - ca fait 2 headers !
+    // sauf si l'on se trouve deja dans un flux compresse (plugin compresseur
+    // actif par exemple)
+    if (
+        ob_get_length()
+        and
+        !in_array('ob_gzhandler', ob_get_status())
+    ) {
+        ob_end_clean();
+    }
+
+    lang_select($GLOBALS['visiteur_session']['lang']);
+    $fonc = _request('var_mode_objet');
+    $mode = _request('var_mode_affiche');
+    $self = str_replace("\\'", '&#39;', self());
+    $self = parametre_url($self, 'var_mode', 'debug');
+
+    $res = debusquer_bandeau($tableau_des_erreurs)
+        . '<br />'
+        . debusquer_squelette($fonc, $mode, $self);
+
+    if (!_DIR_RESTREINT or headers_sent()) {
+        return $res;
+    }
+    if ($tableau_des_erreurs) {
+        http_status(503);
+    }
+
+    http_no_cache();
+    if (isset($_GET['var_profile'])) {
+        $titre = parametre_url($GLOBALS['REQUEST_URI'], 'var_profile', '');
+        $titre = parametre_url($titre, 'var_mode', '');
+    } else {
+        if (!$fonc) {
+            $fonc = $GLOBALS['debug_objets']['principal'];
+        }
+        $titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' ' . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
+    }
+    if ($message === false) {
+        lang_select();
+
+        return debusquer_entete($titre, $res);
+    } else {
+        echo debusquer_entete($titre, $res);
+    }
+    exit;
 }
 
 function debusquer_compose_message($msg) {
-	if (is_array($msg)) {
-		// si c'est un texte, c'est une traduction a faire, mais
-		// sqlite renvoit aussi des erreurs alpha num (mais avec 3 arguments)
-		if (!is_numeric($msg[0]) and count($msg) == 2) {
-			// message avec argument: instancier
-			$msg = _T($msg[0], $msg[1], 'spip-debug-arg');
-		} else {
-			// message SQL: interpreter
-			$msg = debusquer_requete($msg);
-		}
-	}
-	// FIXME: le fond n'est pas la si on n'est pas dans un squelette
-	// cela dit, ca serait bien d'indiquer tout de meme d'ou vient l'erreur
-	$fond = isset($GLOBALS['fond']) ? $GLOBALS['fond'] : '';
-	// une erreur critique sort $message en array
-	$debug = is_array($msg) ? $msg[1] : $msg;
-	spip_log('Debug: ' . $debug . ' (' . $fond . ')');
-
-	return $msg;
+    if (is_array($msg)) {
+        // si c'est un texte, c'est une traduction a faire, mais
+        // sqlite renvoit aussi des erreurs alpha num (mais avec 3 arguments)
+        if (!is_numeric($msg[0]) and count($msg) == 2) {
+            // message avec argument: instancier
+            $msg = _T($msg[0], $msg[1], 'spip-debug-arg');
+        } else {
+            // message SQL: interpreter
+            $msg = debusquer_requete($msg);
+        }
+    }
+    // FIXME: le fond n'est pas la si on n'est pas dans un squelette
+    // cela dit, ca serait bien d'indiquer tout de meme d'ou vient l'erreur
+    $fond = isset($GLOBALS['fond']) ? $GLOBALS['fond'] : '';
+    // une erreur critique sort $message en array
+    $debug = is_array($msg) ? $msg[1] : $msg;
+    spip_log('Debug: ' . $debug . ' (' . $fond . ')');
+
+    return $msg;
 }
 
 function debusquer_bandeau($erreurs) {
 
-	if (!empty($erreurs)) {
-		$n = [count($erreurs) . ' ' . _T('zbug_erreur_squelette')];
+    if (!empty($erreurs)) {
+        $n = [count($erreurs) . ' ' . _T('zbug_erreur_squelette')];
 
-		return debusquer_navigation($erreurs, $n);
-	} elseif (!empty($GLOBALS['tableau_des_temps'])) {
-		include_spip('public/tracer');
-		list($temps, $nav) = chrono_requete($GLOBALS['tableau_des_temps']);
+        return debusquer_navigation($erreurs, $n);
+    } elseif (!empty($GLOBALS['tableau_des_temps'])) {
+        include_spip('public/tracer');
+        list($temps, $nav) = chrono_requete($GLOBALS['tableau_des_temps']);
 
-		return debusquer_navigation($temps, $nav, 'debug-profile');
-	} else {
-		return '';
-	}
+        return debusquer_navigation($temps, $nav, 'debug-profile');
+    } else {
+        return '';
+    }
 }
 
 /**
@@ -205,42 +205,42 @@ 
  * @return string Code HTML
  **/
 function debusquer_contexte($env) {
-	if (is_string($env) and is_array($env_tab = @unserialize($env))) {
-		$env = $env_tab;
-	}
-
-	if (!$env) {
-		return '';
-	}
-	$res = '';
-	foreach ($env as $nom => $valeur) {
-		if (is_array($valeur)) {
-			$valeur_simple = [];
-			foreach ($valeur as $v) {
-				if (is_array($v)) {
-					$valeur_simple[] = 'array:' . count($v);
-				} elseif (is_object($v)) {
-					$valeur_simple[] = get_class($v);
-				} elseif (is_string($v)) {
-					$valeur_simple[] = "'" . $v . "'";
-				} else {
-					$valeur_simple[] = $v;
-				}
-			}
-			$n = count($valeur);
-			$valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
-			$valeur .= '[' . join(', ', $valeur_simple) . ']';
-		} elseif (is_object($valeur)) {
-			$valeur = get_class($valeur);
-		} elseif (is_string($valeur)) {
-			$valeur = "'" . $valeur . "'";
-		}
-		$res .= "\n<tr><td><strong>" . nl2br(entites_html($nom))
-			. '</strong></td><td>:&nbsp;' . nl2br(entites_html($valeur))
-			. "</td></tr>\n";
-	}
-
-	return "<div class='spip-env'><fieldset><legend onclick=\"this.parentElement.classList.toggle('expanded');\">#ENV</legend>\n<div><table>$res</table></div></fieldset></div>\n";
+    if (is_string($env) and is_array($env_tab = @unserialize($env))) {
+        $env = $env_tab;
+    }
+
+    if (!$env) {
+        return '';
+    }
+    $res = '';
+    foreach ($env as $nom => $valeur) {
+        if (is_array($valeur)) {
+            $valeur_simple = [];
+            foreach ($valeur as $v) {
+                if (is_array($v)) {
+                    $valeur_simple[] = 'array:' . count($v);
+                } elseif (is_object($v)) {
+                    $valeur_simple[] = get_class($v);
+                } elseif (is_string($v)) {
+                    $valeur_simple[] = "'" . $v . "'";
+                } else {
+                    $valeur_simple[] = $v;
+                }
+            }
+            $n = count($valeur);
+            $valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
+            $valeur .= '[' . join(', ', $valeur_simple) . ']';
+        } elseif (is_object($valeur)) {
+            $valeur = get_class($valeur);
+        } elseif (is_string($valeur)) {
+            $valeur = "'" . $valeur . "'";
+        }
+        $res .= "\n<tr><td><strong>" . nl2br(entites_html($nom))
+            . '</strong></td><td>:&nbsp;' . nl2br(entites_html($valeur))
+            . "</td></tr>\n";
+    }
+
+    return "<div class='spip-env'><fieldset><legend onclick=\"this.parentElement.classList.toggle('expanded');\">#ENV</legend>\n<div><table>$res</table></div></fieldset></div>\n";
 }
 
 // Affichage du tableau des erreurs ou des temps de calcul
@@ -248,66 +248,66 @@ 
 
 function debusquer_navigation($tableau, $caption = [], $id = 'debug-nav') {
 
-	if (_request('exec') == 'valider_xml') {
-		return '';
-	}
-	$GLOBALS['bouton_admin_debug'] = true;
-	$res = '';
-	$href = quote_amp(parametre_url($GLOBALS['REQUEST_URI'], 'var_mode', 'debug'));
-	foreach ($tableau as $i => $err) {
-		$boucle = $ligne = $skel = '';
-		list($msg, $lieu) = $err;
-		if (is_object($lieu)) {
-			$ligne = $lieu->ligne;
-			$boucle = $lieu->id_boucle ? $lieu->id_boucle : '';
-			if (isset($lieu->descr['nom'])) {
-				$nom_code = $lieu->descr['nom'];
-				$skel = $lieu->descr['sourcefile'];
-				$h2 = parametre_url($href, 'var_mode_objet', $nom_code);
-				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
-				$skel = "<a href='$h3'><b>$skel</b></a>";
-				if ($boucle) {
-					$h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
-					$boucle = "<a href='$h3'><b>$boucle</b></a>";
-				}
-			}
-		}
-
-		$j = ($i + 1);
-		$res .= "<tr id='req$j'><td style='text-align: right'>"
-			. $j
-			. "&nbsp;</td><td style='text-align: left'>"
-			. (is_array($msg) ? implode('', $msg) : $msg)
-			. "</td><td style='text-align: left'>"
-			. ($skel ? $skel : '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
-			. "</td><td class='spip-debug-arg' style='text-align: left'>"
-			. ($boucle ? $boucle : '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
-			. "</td><td style='text-align: right'>"
-			. $ligne
-			. "</td></tr>\n";
-	}
-
-	return "\n<table id='$id'>"
-	. "<caption onclick=\"x = document.getElementById('$id'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\">"
-	. $caption[0]
+    if (_request('exec') == 'valider_xml') {
+        return '';
+    }
+    $GLOBALS['bouton_admin_debug'] = true;
+    $res = '';
+    $href = quote_amp(parametre_url($GLOBALS['REQUEST_URI'], 'var_mode', 'debug'));
+    foreach ($tableau as $i => $err) {
+        $boucle = $ligne = $skel = '';
+        list($msg, $lieu) = $err;
+        if (is_object($lieu)) {
+            $ligne = $lieu->ligne;
+            $boucle = $lieu->id_boucle ? $lieu->id_boucle : '';
+            if (isset($lieu->descr['nom'])) {
+                $nom_code = $lieu->descr['nom'];
+                $skel = $lieu->descr['sourcefile'];
+                $h2 = parametre_url($href, 'var_mode_objet', $nom_code);
+                $h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
+                $skel = "<a href='$h3'><b>$skel</b></a>";
+                if ($boucle) {
+                    $h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
+                    $boucle = "<a href='$h3'><b>$boucle</b></a>";
+                }
+            }
+        }
+
+        $j = ($i + 1);
+        $res .= "<tr id='req$j'><td style='text-align: right'>"
+            . $j
+            . "&nbsp;</td><td style='text-align: left'>"
+            . (is_array($msg) ? implode('', $msg) : $msg)
+            . "</td><td style='text-align: left'>"
+            . ($skel ? $skel : '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
+            . "</td><td class='spip-debug-arg' style='text-align: left'>"
+            . ($boucle ? $boucle : '&nbsp;&nbsp;&nbsp;/&nbsp;&nbsp;')
+            . "</td><td style='text-align: right'>"
+            . $ligne
+            . "</td></tr>\n";
+    }
+
+    return "\n<table id='$id'>"
+    . "<caption onclick=\"x = document.getElementById('$id'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\">"
+    . $caption[0]
 ## aide locale courte a ecrire, avec lien vers une grosse page de documentation
 #		aider('erreur_compilation'),
-	. '</caption>'
-	//  fausse caption du chrono (mais vraie nav)
-	. (!empty($caption[1]) ? $caption[1] : '')
-	. '<tr><th>'
-	. _T('numero')
-	. '</th><th>'
-	. _T('public:message')
-	. '</th><th>'
-	. _T('squelette')
-	. '</th><th>'
-	. _T('zbug_boucle')
-	. '</th><th>'
-	. _T('ligne')
-	. '</th></tr>'
-	. $res
-	. '</table>';
+    . '</caption>'
+    //  fausse caption du chrono (mais vraie nav)
+    . (!empty($caption[1]) ? $caption[1] : '')
+    . '<tr><th>'
+    . _T('numero')
+    . '</th><th>'
+    . _T('public:message')
+    . '</th><th>'
+    . _T('squelette')
+    . '</th><th>'
+    . _T('zbug_boucle')
+    . '</th><th>'
+    . _T('ligne')
+    . '</th></tr>'
+    . $res
+    . '</table>';
 }
 
 
@@ -327,124 +327,124 @@ 
  *    ou un tableau si l'erreur est critique
  **/
 function debusquer_requete($message) {
-	list($errno, $msg, $query) = $message;
-
-	// FIXME: ces écritures mélangent divers syntaxe des moteurs SQL
-	// il serait plus prudent certainement d'avoir une fonction d'analyse par moteur
-	if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)) {
-		$errno = $regs[2];
-	} elseif (
-		is_numeric($errno) and ($errno == 1030 or $errno <= 1026)
-		and preg_match(',[^[:alnum:]]([0-9]+)[^[:alnum:]],', $msg, $regs)
-	) {
-		$errno = $regs[1];
-	}
-
-	// Erreur systeme
-	if (is_numeric($errno) and $errno > 0 and $errno < 200) {
-		$retour = '<tt><br /><br /><blink>'
-			. _T('info_erreur_systeme', ['errsys' => $errno])
-			. "</blink><br />\n<b>"
-			. _T(
-				'info_erreur_systeme2',
-				['script' => generer_url_ecrire('base_repair')]
-			)
-			. '</b><br />';
-		spip_log("Erreur systeme $errno");
-
-		return [$retour, ''];
-	}
-
-	// Requete erronee
-	$err = '<b>' . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
-		. spip_htmlspecialchars($msg)
-		. "\n<br /><span style='color: red'><b>"
-		. spip_htmlspecialchars($query)
-		. '</b></span></tt><br />';
-
-	//. aider('erreur_mysql');
-
-	return $err;
+    list($errno, $msg, $query) = $message;
+
+    // FIXME: ces écritures mélangent divers syntaxe des moteurs SQL
+    // il serait plus prudent certainement d'avoir une fonction d'analyse par moteur
+    if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)) {
+        $errno = $regs[2];
+    } elseif (
+        is_numeric($errno) and ($errno == 1030 or $errno <= 1026)
+        and preg_match(',[^[:alnum:]]([0-9]+)[^[:alnum:]],', $msg, $regs)
+    ) {
+        $errno = $regs[1];
+    }
+
+    // Erreur systeme
+    if (is_numeric($errno) and $errno > 0 and $errno < 200) {
+        $retour = '<tt><br /><br /><blink>'
+            . _T('info_erreur_systeme', ['errsys' => $errno])
+            . "</blink><br />\n<b>"
+            . _T(
+                'info_erreur_systeme2',
+                ['script' => generer_url_ecrire('base_repair')]
+            )
+            . '</b><br />';
+        spip_log("Erreur systeme $errno");
+
+        return [$retour, ''];
+    }
+
+    // Requete erronee
+    $err = '<b>' . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
+        . spip_htmlspecialchars($msg)
+        . "\n<br /><span style='color: red'><b>"
+        . spip_htmlspecialchars($query)
+        . '</b></span></tt><br />';
+
+    //. aider('erreur_mysql');
+
+    return $err;
 }
 
 
 // https://code.spip.net/@trouve_boucle_debug
 function trouve_boucle_debug($n, $nom, $debut = 0, $boucle = '') {
 
-	$id = $nom . $boucle;
-	if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
-		foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
-			if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
-				$y = substr_count($v[0], "\n");
-			} else {
-				if ($v[1][0] == '#') { // balise dynamique
-				$incl = $GLOBALS['debug_objets']['resultat'][$v[2]];
-				} else // inclusion
-				{
-					$incl = $GLOBALS['debug_objets']['squelette'][trouve_squelette_inclus($v[0])];
-				}
-				$y = substr_count($incl, "\n")
-					+ substr_count($r[1], "\n")
-					+ substr_count($r[3], "\n");
-			}
-			if ($n <= ($y + $debut)) {
-				if ($v[1][0] == '?') {
-					return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
-				} elseif ($v[1][0] == '!') {
-					if ($incl = trouve_squelette_inclus($v[1])) {
-						return trouve_boucle_debug($n, $incl, $debut);
-					}
-				}
-
-				return [$nom, $boucle, $v[2] - 1 + $n - $debut];
-			}
-			$debut += $y;
-		}
-	}
-
-	return [$nom, $boucle, $n - $debut];
+    $id = $nom . $boucle;
+    if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
+        foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
+            if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
+                $y = substr_count($v[0], "\n");
+            } else {
+                if ($v[1][0] == '#') { // balise dynamique
+                $incl = $GLOBALS['debug_objets']['resultat'][$v[2]];
+                } else // inclusion
+                {
+                    $incl = $GLOBALS['debug_objets']['squelette'][trouve_squelette_inclus($v[0])];
+                }
+                $y = substr_count($incl, "\n")
+                    + substr_count($r[1], "\n")
+                    + substr_count($r[3], "\n");
+            }
+            if ($n <= ($y + $debut)) {
+                if ($v[1][0] == '?') {
+                    return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
+                } elseif ($v[1][0] == '!') {
+                    if ($incl = trouve_squelette_inclus($v[1])) {
+                        return trouve_boucle_debug($n, $incl, $debut);
+                    }
+                }
+
+                return [$nom, $boucle, $v[2] - 1 + $n - $debut];
+            }
+            $debut += $y;
+        }
+    }
+
+    return [$nom, $boucle, $n - $debut];
 }
 
 // https://code.spip.net/@trouve_squelette_inclus
 function trouve_squelette_inclus($script) {
 
-	preg_match('/include\(.(.*).php3?.\);/', $script, $reg);
-	// si le script X.php n'est pas ecrire/public.php
-	// on suppose qu'il prend le squelette X.html (pas sur, mais y a pas mieux)
-	if ($reg[1] == 'ecrire/public') { // si c'est bien ecrire/public on cherche le param 'fond'
-	if (!preg_match("/'fond' => '([^']*)'/", $script, $reg)) { // a defaut on cherche le param 'page'
-		if (!preg_match("/'param' => '([^']*)'/", $script, $reg)) {
-				$reg[1] = 'inconnu';
-		}
-	}
-	}
-	$incl = ',' . $reg[1] . '[.]\w$,';
-
-	foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
-		if (preg_match($incl, $v)) {
-			return $k;
-		}
-	}
-
-	return '';
+    preg_match('/include\(.(.*).php3?.\);/', $script, $reg);
+    // si le script X.php n'est pas ecrire/public.php
+    // on suppose qu'il prend le squelette X.html (pas sur, mais y a pas mieux)
+    if ($reg[1] == 'ecrire/public') { // si c'est bien ecrire/public on cherche le param 'fond'
+    if (!preg_match("/'fond' => '([^']*)'/", $script, $reg)) { // a defaut on cherche le param 'page'
+        if (!preg_match("/'param' => '([^']*)'/", $script, $reg)) {
+                $reg[1] = 'inconnu';
+        }
+    }
+    }
+    $incl = ',' . $reg[1] . '[.]\w$,';
+
+    foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
+        if (preg_match($incl, $v)) {
+            return $k;
+        }
+    }
+
+    return '';
 }
 
 // https://code.spip.net/@reference_boucle_debug
 function reference_boucle_debug($n, $nom, $self) {
-	list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
-
-	if (!$boucle) {
-		return !$ligne ? '' :
-			(' (' .
-				(($nom != $skel) ? _T('squelette_inclus_ligne') :
-					_T('squelette_ligne')) .
-				" <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
-	} else {
-		$self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
-
-		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
-			" (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
-	}
+    list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
+
+    if (!$boucle) {
+        return !$ligne ? '' :
+            (' (' .
+                (($nom != $skel) ? _T('squelette_inclus_ligne') :
+                    _T('squelette_ligne')) .
+                " <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
+    } else {
+        $self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
+
+        return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
+            " (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
+    }
 }
 
 // affiche un texte avec numero de ligne et ancre.
@@ -452,397 +452,397 @@ 
 // https://code.spip.net/@ancre_texte
 function ancre_texte($texte, $fautifs = [], $nocpt = false) {
 
-	$var_mode_ligne = _request('var_mode_ligne');
-	if ($var_mode_ligne) {
-		$fautifs[] = [$var_mode_ligne];
-	}
-	$res = '';
-
-	$s = highlight_string($texte, true);
-	if (substr($s, 0, 6) == '<code>') {
-		$s = substr($s, 6);
-		$res = '<code>';
-	}
-
-	$s = preg_replace(
-		',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
-		'<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
-		$s
-	);
-
-
-	$tableau = explode('<br />', $s);
-
-	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
-
-	$format10 = str_replace('white', 'lightgrey', $format);
-	$formaterr = 'color: red;';
-	$i = 1;
-	$flignes = [];
-	$loc = [0, 0];
-	foreach ($fautifs as $lc) {
-		if (is_array($lc)) {
-			$l = array_shift($lc);
-			$flignes[$l] = $lc;
-		} else {
-			$flignes[$lc] = $loc;
-		}
-	}
-
-	$ancre = md5($texte);
-	foreach ($tableau as $ligne) {
-		if (isset($flignes[$i])) {
-			$ligne = str_replace('&nbsp;', ' ', $ligne);
-			$indexmesg = $flignes[$i][1];
-			$err = textebrut($flignes[$i][2]);
-			// tentative de pointer sur la colonne fautive;
-			// marche pas car highlight_string rajoute des entites. A revoir.
-			// $m = $flignes[$i][0];
-			// $ligne = substr($ligne, 0, $m-1) .
-			// sprintf($formaterr, substr($ligne,$m));
-			$bg = $formaterr;
-		} else {
-			$indexmesg = $ancre;
-			$err = $bg = '';
-		}
-		$res .= sprintf((($i % 10) ? $format : $format10), $i, $bg, $indexmesg, $err, $i, $ligne);
-		$i++;
-	}
-
-	return "<div id='T$ancre'>"
-	. '<div onclick="'
-	. "jQuery(this).parent().find('a').toggle();"
-	. '" title="'
-	. _T('masquer_colonne')
-	. '" style="cursor: pointer;">'
-	. ($nocpt ? '' : _T('info_numero_abbreviation'))
-	. '</div>
+    $var_mode_ligne = _request('var_mode_ligne');
+    if ($var_mode_ligne) {
+        $fautifs[] = [$var_mode_ligne];
+    }
+    $res = '';
+
+    $s = highlight_string($texte, true);
+    if (substr($s, 0, 6) == '<code>') {
+        $s = substr($s, 6);
+        $res = '<code>';
+    }
+
+    $s = preg_replace(
+        ',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
+        '<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
+        $s
+    );
+
+
+    $tableau = explode('<br />', $s);
+
+    $format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
+
+    $format10 = str_replace('white', 'lightgrey', $format);
+    $formaterr = 'color: red;';
+    $i = 1;
+    $flignes = [];
+    $loc = [0, 0];
+    foreach ($fautifs as $lc) {
+        if (is_array($lc)) {
+            $l = array_shift($lc);
+            $flignes[$l] = $lc;
+        } else {
+            $flignes[$lc] = $loc;
+        }
+    }
+
+    $ancre = md5($texte);
+    foreach ($tableau as $ligne) {
+        if (isset($flignes[$i])) {
+            $ligne = str_replace('&nbsp;', ' ', $ligne);
+            $indexmesg = $flignes[$i][1];
+            $err = textebrut($flignes[$i][2]);
+            // tentative de pointer sur la colonne fautive;
+            // marche pas car highlight_string rajoute des entites. A revoir.
+            // $m = $flignes[$i][0];
+            // $ligne = substr($ligne, 0, $m-1) .
+            // sprintf($formaterr, substr($ligne,$m));
+            $bg = $formaterr;
+        } else {
+            $indexmesg = $ancre;
+            $err = $bg = '';
+        }
+        $res .= sprintf((($i % 10) ? $format : $format10), $i, $bg, $indexmesg, $err, $i, $ligne);
+        $i++;
+    }
+
+    return "<div id='T$ancre'>"
+    . '<div onclick="'
+    . "jQuery(this).parent().find('a').toggle();"
+    . '" title="'
+    . _T('masquer_colonne')
+    . '" style="cursor: pointer;">'
+    . ($nocpt ? '' : _T('info_numero_abbreviation'))
+    . '</div>
 	' . $res . "</div>\n";
 }
 
 // l'environnement graphique du debuggueur
 
 function debusquer_squelette($fonc, $mode, $self) {
-	$texte = '';
-
-	if ($mode !== 'validation') {
-		if (isset($GLOBALS['debug_objets']['sourcefile']) and $GLOBALS['debug_objets']['sourcefile']) {
-			$res = "<div id='spip-boucles'>\n"
-				. debusquer_navigation_squelettes($self)
-				. '</div>';
-		} else {
-			$res = '';
-		}
-		if ($fonc) {
-			$id = " id='$fonc'";
-			if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
-				list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
-				$texte .= $res2;
-			} elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
-				$legend = _T('zbug_' . $mode);
-				$texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
-				$texte = ancre_texte($texte, ['', '']);
-			}
-		} else {
-			if (strlen(trim($res))) {
-				return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
-			} else {
-				// cas de l'appel sur erreur: montre la page
-				return isset($GLOBALS['debug_objets']['resultat']['tout'])
-					? $GLOBALS['debug_objets']['resultat']['tout']
-					: '';
-			}
-		}
-	} else {
-		$valider = charger_fonction('valider', 'xml');
-		$val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
-		// Si erreur, signaler leur nombre dans le formulaire admin
-		$GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
-		list($texte, $err) = emboite_texte($val, $fonc, $self);
-		if ($err === false) {
-			$err = _T('impossible');
-		} elseif ($err === true) {
-			$err = _T('correcte');
-		} else {
-			$err = ": $err";
-		}
-		$legend = _T('validation') . ' ' . $err;
-		$res = $id = '';
-	}
-
-	return !trim($texte) ? '' : (
-		"<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
-		. "<div id='debug_boucle'><fieldset$id><legend>"
-		. "<a href='" . $self . '#f_' . substr($fonc, 0, 37) . "'> &#8593; "
-		. ($legend ? $legend : $mode)
-		. '</a></legend>'
-		. $texte
-		. '</fieldset></div>'
-		. '</div>');
+    $texte = '';
+
+    if ($mode !== 'validation') {
+        if (isset($GLOBALS['debug_objets']['sourcefile']) and $GLOBALS['debug_objets']['sourcefile']) {
+            $res = "<div id='spip-boucles'>\n"
+                . debusquer_navigation_squelettes($self)
+                . '</div>';
+        } else {
+            $res = '';
+        }
+        if ($fonc) {
+            $id = " id='$fonc'";
+            if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
+                list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
+                $texte .= $res2;
+            } elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
+                $legend = _T('zbug_' . $mode);
+                $texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
+                $texte = ancre_texte($texte, ['', '']);
+            }
+        } else {
+            if (strlen(trim($res))) {
+                return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
+            } else {
+                // cas de l'appel sur erreur: montre la page
+                return isset($GLOBALS['debug_objets']['resultat']['tout'])
+                    ? $GLOBALS['debug_objets']['resultat']['tout']
+                    : '';
+            }
+        }
+    } else {
+        $valider = charger_fonction('valider', 'xml');
+        $val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
+        // Si erreur, signaler leur nombre dans le formulaire admin
+        $GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
+        list($texte, $err) = emboite_texte($val, $fonc, $self);
+        if ($err === false) {
+            $err = _T('impossible');
+        } elseif ($err === true) {
+            $err = _T('correcte');
+        } else {
+            $err = ": $err";
+        }
+        $legend = _T('validation') . ' ' . $err;
+        $res = $id = '';
+    }
+
+    return !trim($texte) ? '' : (
+        "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
+        . "<div id='debug_boucle'><fieldset$id><legend>"
+        . "<a href='" . $self . '#f_' . substr($fonc, 0, 37) . "'> &#8593; "
+        . ($legend ? $legend : $mode)
+        . '</a></legend>'
+        . $texte
+        . '</fieldset></div>'
+        . '</div>');
 }
 
 
 // https://code.spip.net/@emboite_texte
 function emboite_texte($res, $fonc = '', $self = '') {
-	$errs = $res->err;
-	$texte = $res->entete . ($errs ? '' : $res->page);
-
-	if (!$texte and !$errs) {
-		return [ancre_texte('', ['', '']), false];
-	}
-	if (!$errs) {
-		return [ancre_texte($texte, ['', '']), true];
-	}
-
-	if (!isset($GLOBALS['debug_objets'])) {
-		$colors = ['#e0e0f0', '#f8f8ff'];
-		$encore = count_occ($errs);
-		$encore2 = [];
-		$fautifs = [];
-
-		$err = '<tr><th>'
-			. _T('numero')
-			. '</th><th>'
-			. _T('occurence')
-			. '</th><th>'
-			. _T('ligne')
-			. '</th><th>'
-			. _T('colonne')
-			. '</th><th>'
-			. _T('erreur')
-			. '</th></tr>';
-
-		$i = 0;
-		$style = "style='text-align: right; padding-right: 5px'";
-		foreach ($errs as $r) {
-			$i++;
-			list($msg, $ligne, $col) = $r;
-			#spip_log("$r = list($msg, $ligne, $col");
-			if (isset($encore2[$msg])) {
-				$ref = ++$encore2[$msg];
-			} else {
-				$encore2[$msg] = $ref = 1;
-			}
-			$err .= "<tr  style='background-color: "
-				. $colors[$i % 2]
-				. "'><td $style><a href='#debut_err'>"
-				. $i
-				. "</a></td><td $style>"
-				. "$ref/$encore[$msg]</td>"
-				. "<td $style><a href='#L"
-				. $ligne
-				. "' id='T$i'>"
-				. $ligne
-				. "</a></td><td $style>"
-				. $col
-				. "</td><td>$msg</td></tr>\n";
-			$fautifs[] = [$ligne, $col, $i, $msg];
-		}
-		$err = "<h2 style='text-align: center'>"
-			. $i
-			. "<a href='#fin_err'>"
-			. ' ' . _T('erreur_texte')
-			. "</a></h2><table id='debut_err' style='width: 100%'>"
-			. $err
-			. " </table><a id='fin_err'></a>";
-
-		return [ancre_texte($texte, $fautifs), $err];
-	} else {
-		list($msg, $fermant, $ouvrant) = $errs[0];
-		$rf = reference_boucle_debug($fermant, $fonc, $self);
-		$ro = reference_boucle_debug($ouvrant, $fonc, $self);
-		$err = $msg .
-			"<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
-			"<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
-
-		return [ancre_texte($texte, [[$ouvrant], [$fermant]]), $err];
-	}
+    $errs = $res->err;
+    $texte = $res->entete . ($errs ? '' : $res->page);
+
+    if (!$texte and !$errs) {
+        return [ancre_texte('', ['', '']), false];
+    }
+    if (!$errs) {
+        return [ancre_texte($texte, ['', '']), true];
+    }
+
+    if (!isset($GLOBALS['debug_objets'])) {
+        $colors = ['#e0e0f0', '#f8f8ff'];
+        $encore = count_occ($errs);
+        $encore2 = [];
+        $fautifs = [];
+
+        $err = '<tr><th>'
+            . _T('numero')
+            . '</th><th>'
+            . _T('occurence')
+            . '</th><th>'
+            . _T('ligne')
+            . '</th><th>'
+            . _T('colonne')
+            . '</th><th>'
+            . _T('erreur')
+            . '</th></tr>';
+
+        $i = 0;
+        $style = "style='text-align: right; padding-right: 5px'";
+        foreach ($errs as $r) {
+            $i++;
+            list($msg, $ligne, $col) = $r;
+            #spip_log("$r = list($msg, $ligne, $col");
+            if (isset($encore2[$msg])) {
+                $ref = ++$encore2[$msg];
+            } else {
+                $encore2[$msg] = $ref = 1;
+            }
+            $err .= "<tr  style='background-color: "
+                . $colors[$i % 2]
+                . "'><td $style><a href='#debut_err'>"
+                . $i
+                . "</a></td><td $style>"
+                . "$ref/$encore[$msg]</td>"
+                . "<td $style><a href='#L"
+                . $ligne
+                . "' id='T$i'>"
+                . $ligne
+                . "</a></td><td $style>"
+                . $col
+                . "</td><td>$msg</td></tr>\n";
+            $fautifs[] = [$ligne, $col, $i, $msg];
+        }
+        $err = "<h2 style='text-align: center'>"
+            . $i
+            . "<a href='#fin_err'>"
+            . ' ' . _T('erreur_texte')
+            . "</a></h2><table id='debut_err' style='width: 100%'>"
+            . $err
+            . " </table><a id='fin_err'></a>";
+
+        return [ancre_texte($texte, $fautifs), $err];
+    } else {
+        list($msg, $fermant, $ouvrant) = $errs[0];
+        $rf = reference_boucle_debug($fermant, $fonc, $self);
+        $ro = reference_boucle_debug($ouvrant, $fonc, $self);
+        $err = $msg .
+            "<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
+            "<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
+
+        return [ancre_texte($texte, [[$ouvrant], [$fermant]]), $err];
+    }
 }
 
 // https://code.spip.net/@count_occ
 function count_occ($regs) {
-	$encore = [];
-	foreach ($regs as $r) {
-		if (isset($encore[$r[0]])) {
-			$encore[$r[0]]++;
-		} else {
-			$encore[$r[0]] = 1;
-		}
-	}
-
-	return $encore;
+    $encore = [];
+    foreach ($regs as $r) {
+        if (isset($encore[$r[0]])) {
+            $encore[$r[0]]++;
+        } else {
+            $encore[$r[0]] = 1;
+        }
+    }
+
+    return $encore;
 }
 
 function debusquer_navigation_squelettes($self) {
 
-	$res = '';
-	$boucles = !empty($GLOBALS['debug_objets']['boucle']) ? $GLOBALS['debug_objets']['boucle'] : '';
-	$contexte = $GLOBALS['debug_objets']['contexte'];
-	$t_skel = _T('squelette');
-	foreach ($GLOBALS['debug_objets']['sourcefile'] as $nom => $sourcefile) {
-		$self2 = parametre_url($self, 'var_mode_objet', $nom);
-		$nav = !$boucles ? '' : debusquer_navigation_boucles($boucles, $nom, $self, $sourcefile);
-		$temps = !isset($GLOBALS['debug_objets']['profile'][$sourcefile]) ? '' : _T(
-			'zbug_profile',
-			['time' => $GLOBALS['debug_objets']['profile'][$sourcefile]]
-		);
-
-		$res .= "<fieldset id='f_" . $nom . "'><legend>"
-			. $t_skel
-			. ' '
-			. $sourcefile
-			. "&nbsp;:\n<a href='$self2&amp;var_mode_affiche=squelette#f_$nom'>"
-			. $t_skel
-			. "</a>\n<a href='$self2&amp;var_mode_affiche=resultat#f_$nom'>"
-			. _T('zbug_resultat')
-			. "</a>\n<a href='$self2&amp;var_mode_affiche=code#f_$nom'>"
-			. _T('zbug_code')
-			. "</a>\n<a href='"
-			. str_replace('var_mode=debug', 'var_profile=1&amp;var_mode=recalcul', $self)
-			. "'>"
-			. _T('zbug_calcul')
-			. '</a></legend>'
-			. (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
-			. debusquer_contexte($contexte[$sourcefile])
-		. (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
-		. "</fieldset>\n";
-	}
-
-	return $res;
+    $res = '';
+    $boucles = !empty($GLOBALS['debug_objets']['boucle']) ? $GLOBALS['debug_objets']['boucle'] : '';
+    $contexte = $GLOBALS['debug_objets']['contexte'];
+    $t_skel = _T('squelette');
+    foreach ($GLOBALS['debug_objets']['sourcefile'] as $nom => $sourcefile) {
+        $self2 = parametre_url($self, 'var_mode_objet', $nom);
+        $nav = !$boucles ? '' : debusquer_navigation_boucles($boucles, $nom, $self, $sourcefile);
+        $temps = !isset($GLOBALS['debug_objets']['profile'][$sourcefile]) ? '' : _T(
+            'zbug_profile',
+            ['time' => $GLOBALS['debug_objets']['profile'][$sourcefile]]
+        );
+
+        $res .= "<fieldset id='f_" . $nom . "'><legend>"
+            . $t_skel
+            . ' '
+            . $sourcefile
+            . "&nbsp;:\n<a href='$self2&amp;var_mode_affiche=squelette#f_$nom'>"
+            . $t_skel
+            . "</a>\n<a href='$self2&amp;var_mode_affiche=resultat#f_$nom'>"
+            . _T('zbug_resultat')
+            . "</a>\n<a href='$self2&amp;var_mode_affiche=code#f_$nom'>"
+            . _T('zbug_code')
+            . "</a>\n<a href='"
+            . str_replace('var_mode=debug', 'var_profile=1&amp;var_mode=recalcul', $self)
+            . "'>"
+            . _T('zbug_calcul')
+            . '</a></legend>'
+            . (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
+            . debusquer_contexte($contexte[$sourcefile])
+        . (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
+        . "</fieldset>\n";
+    }
+
+    return $res;
 }
 
 function debusquer_navigation_boucles($boucles, $nom_skel, $self, $nom_source) {
-	$i = 0;
-	$res = '';
-	$var_mode_objet = _request('var_mode_objet');
-	$gram = preg_match('/[.](\w+)$/', $nom_source, $r) ? $r[1] : '';
-
-	foreach ($boucles as $objet => $boucle) {
-		if (substr($objet, 0, strlen($nom_skel)) == $nom_skel) {
-			$i++;
-			$nom = $boucle->id_boucle;
-			$req = $boucle->type_requete;
-			$crit = public_decompiler($boucle, $gram, 0, 'criteres');
-			$self2 = $self . '&amp;var_mode_objet=' . $objet;
-
-			$res .= "\n<tr style='background-color: " .
-				($i % 2 ? '#e0e0f0' : '#f8f8ff') .
-				"'><td  align='right'>$i</td><td>\n" .
-				"<a  class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
-				_T('zbug_boucle') .
-				"</a></td><td>\n<a class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
-				_T('zbug_resultat') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=code#f_$nom_skel'>" .
-				_T('zbug_code') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				str_replace('var_mode=', 'var_profile=', $self2) .
-				"'>" .
-				_T('zbug_calcul') .
-				"</a></td><td>\n" .
-				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
-				"</td><td>\n" .
-				$req .
-				"</td><td>\n" .
-				spip_htmlspecialchars($crit) .
-				'</td></tr>';
-		}
-	}
-
-	return $res;
+    $i = 0;
+    $res = '';
+    $var_mode_objet = _request('var_mode_objet');
+    $gram = preg_match('/[.](\w+)$/', $nom_source, $r) ? $r[1] : '';
+
+    foreach ($boucles as $objet => $boucle) {
+        if (substr($objet, 0, strlen($nom_skel)) == $nom_skel) {
+            $i++;
+            $nom = $boucle->id_boucle;
+            $req = $boucle->type_requete;
+            $crit = public_decompiler($boucle, $gram, 0, 'criteres');
+            $self2 = $self . '&amp;var_mode_objet=' . $objet;
+
+            $res .= "\n<tr style='background-color: " .
+                ($i % 2 ? '#e0e0f0' : '#f8f8ff') .
+                "'><td  align='right'>$i</td><td>\n" .
+                "<a  class='debug_link_boucle' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
+                _T('zbug_boucle') .
+                "</a></td><td>\n<a class='debug_link_boucle' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
+                _T('zbug_resultat') .
+                "</a></td><td>\n<a class='debug_link_resultat' href='" .
+                $self2 .
+                "&amp;var_mode_affiche=code#f_$nom_skel'>" .
+                _T('zbug_code') .
+                "</a></td><td>\n<a class='debug_link_resultat' href='" .
+                str_replace('var_mode=', 'var_profile=', $self2) .
+                "'>" .
+                _T('zbug_calcul') .
+                "</a></td><td>\n" .
+                (($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
+                "</td><td>\n" .
+                $req .
+                "</td><td>\n" .
+                spip_htmlspecialchars($crit) .
+                '</td></tr>';
+        }
+    }
+
+    return $res;
 }
 
 function debusquer_source($objet, $affiche) {
-	$quoi = $GLOBALS['debug_objets'][$affiche][$objet];
-	if (!empty($GLOBALS['debug_objets']['boucle'][$objet]->id_boucle)) {
-		$nom = $GLOBALS['debug_objets']['boucle'][$objet]->id_boucle;
-	} else {
-		$nom = $GLOBALS['debug_objets']['sourcefile'][$objet];
-	}
-	$res2 = '';
-
-	if ($affiche == 'resultat') {
-		$legend = $nom;
-		$req = $GLOBALS['debug_objets']['requete'][$objet];
-		if (function_exists('_mysql_traite_query')) {
-			$c = strtolower(_request('connect'));
-			$c = $GLOBALS['connexions'][$c ? $c : 0]['prefixe'];
-			$req = _mysql_traite_query($req, '', $c);
-		}
-		//  permettre le copier/coller facile
-		// $res = ancre_texte($req, array(), true);
-		$res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
-		//  formatage et affichage des resultats bruts de la requete
-		$ress_req = spip_query($req);
-		$brut_sql = '';
-		$num = 1;
-		//  eviter l'affichage de milliers de lignes
-		//  personnalisation possible dans mes_options
-		$max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
-		while ($retours_sql = sql_fetch($ress_req)) {
-			if ($num <= $max_aff) {
-				$brut_sql .= '<h3>' . ($num == 1 ? $num . ' sur ' . sql_count($ress_req) : $num) . '</h3>';
-				$brut_sql .= '<p>';
-				foreach ($retours_sql as $key => $val) {
-					$brut_sql .= '<strong>' . $key . '</strong> => ' . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
-				}
-				$brut_sql .= '</p>';
-			}
-			$num++;
-		}
-		$res2 = interdire_scripts($brut_sql);
-		foreach ($quoi as $view) {
-			//  ne pas afficher les $contexte_inclus
-			$view = preg_replace(',<\?php.+\?[>],Uims', '', $view);
-			if ($view) {
-				$res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . '</fieldset>';
-			}
-		}
-	} elseif ($affiche == 'code') {
-		$legend = $nom;
-		$res = ancre_texte('<' . "?php\n" . $quoi . "\n?" . '>');
-	} elseif ($affiche == 'boucle') {
-		$legend = _T('zbug_boucle') . ' ' . $nom;
-		// Le compilateur prefixe le nom des boucles par l'extension du fichier source.
-		$gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
-		$res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
-	} elseif ($affiche == 'squelette') {
-		$legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
-		$res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
-	}
-
-	return [$legend, $res, $res2];
+    $quoi = $GLOBALS['debug_objets'][$affiche][$objet];
+    if (!empty($GLOBALS['debug_objets']['boucle'][$objet]->id_boucle)) {
+        $nom = $GLOBALS['debug_objets']['boucle'][$objet]->id_boucle;
+    } else {
+        $nom = $GLOBALS['debug_objets']['sourcefile'][$objet];
+    }
+    $res2 = '';
+
+    if ($affiche == 'resultat') {
+        $legend = $nom;
+        $req = $GLOBALS['debug_objets']['requete'][$objet];
+        if (function_exists('_mysql_traite_query')) {
+            $c = strtolower(_request('connect'));
+            $c = $GLOBALS['connexions'][$c ? $c : 0]['prefixe'];
+            $req = _mysql_traite_query($req, '', $c);
+        }
+        //  permettre le copier/coller facile
+        // $res = ancre_texte($req, array(), true);
+        $res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
+        //  formatage et affichage des resultats bruts de la requete
+        $ress_req = spip_query($req);
+        $brut_sql = '';
+        $num = 1;
+        //  eviter l'affichage de milliers de lignes
+        //  personnalisation possible dans mes_options
+        $max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
+        while ($retours_sql = sql_fetch($ress_req)) {
+            if ($num <= $max_aff) {
+                $brut_sql .= '<h3>' . ($num == 1 ? $num . ' sur ' . sql_count($ress_req) : $num) . '</h3>';
+                $brut_sql .= '<p>';
+                foreach ($retours_sql as $key => $val) {
+                    $brut_sql .= '<strong>' . $key . '</strong> => ' . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
+                }
+                $brut_sql .= '</p>';
+            }
+            $num++;
+        }
+        $res2 = interdire_scripts($brut_sql);
+        foreach ($quoi as $view) {
+            //  ne pas afficher les $contexte_inclus
+            $view = preg_replace(',<\?php.+\?[>],Uims', '', $view);
+            if ($view) {
+                $res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . '</fieldset>';
+            }
+        }
+    } elseif ($affiche == 'code') {
+        $legend = $nom;
+        $res = ancre_texte('<' . "?php\n" . $quoi . "\n?" . '>');
+    } elseif ($affiche == 'boucle') {
+        $legend = _T('zbug_boucle') . ' ' . $nom;
+        // Le compilateur prefixe le nom des boucles par l'extension du fichier source.
+        $gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
+        $res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
+    } elseif ($affiche == 'squelette') {
+        $legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
+        $res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
+    }
+
+    return [$legend, $res, $res2];
 }
 
 // https://code.spip.net/@debusquer_entete
 function debusquer_entete($titre, $corps) {
 
-	include_spip('balise/formulaire_admin');
-	include_spip('public/assembler'); // pour inclure_balise_dynamique
-	include_spip('inc/texte'); // pour corriger_typo
-
-	return _DOCTYPE_ECRIRE .
-	html_lang_attributes() .
-	"<head>\n<title>" .
-	('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
-		_T('admin_debug') . ' ' . $titre . ' (' .
-		supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
-	")</title>\n" .
-	"<meta http-equiv='Content-Type' content='text/html" .
-	(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
-	"' />\n" .
-	http_script('', 'jquery.js')
-	. "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
-	. "' type='text/css' />" .
-	"</head>\n" .
-	"<body style='margin:0 10px;'>\n" .
-	"<div id='spip-debug-header'>" .
-	$corps .
-	inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
-	'</div></body></html>';
+    include_spip('balise/formulaire_admin');
+    include_spip('public/assembler'); // pour inclure_balise_dynamique
+    include_spip('inc/texte'); // pour corriger_typo
+
+    return _DOCTYPE_ECRIRE .
+    html_lang_attributes() .
+    "<head>\n<title>" .
+    ('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
+        _T('admin_debug') . ' ' . $titre . ' (' .
+        supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
+    ")</title>\n" .
+    "<meta http-equiv='Content-Type' content='text/html" .
+    (($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
+    "' />\n" .
+    http_script('', 'jquery.js')
+    . "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
+    . "' type='text/css' />" .
+    "</head>\n" .
+    "<body style='margin:0 10px;'>\n" .
+    "<div id='spip-debug-header'>" .
+    $corps .
+    inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
+    '</div></body></html>';
 }

Spacing +86 added lines, -89 removed lines

@@ -148,7 +148,7 @@ 
 		if (!$fonc) {
 			$fonc = $GLOBALS['debug_objets']['principal'];
 		}
-		$titre = !$mode ? $fonc : ($mode . (isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' ' . $GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
+		$titre = !$mode ? $fonc : ($mode.(isset($GLOBALS['debug_objets']['sourcefile'][$fonc]) ? ' '.$GLOBALS['debug_objets']['sourcefile'][$fonc] : ''));
 	}
 	if ($message === false) {
 		lang_select();
@@ -177,7 +177,7 @@ 
 	$fond = isset($GLOBALS['fond']) ? $GLOBALS['fond'] : '';
 	// une erreur critique sort $message en array
 	$debug = is_array($msg) ? $msg[1] : $msg;
-	spip_log('Debug: ' . $debug . ' (' . $fond . ')');
+	spip_log('Debug: '.$debug.' ('.$fond.')');
 
 	return $msg;
 }
@@ -185,7 +185,7 @@ 
 function debusquer_bandeau($erreurs) {
 
 	if (!empty($erreurs)) {
-		$n = [count($erreurs) . ' ' . _T('zbug_erreur_squelette')];
+		$n = [count($erreurs).' '._T('zbug_erreur_squelette')];
 
 		return debusquer_navigation($erreurs, $n);
 	} elseif (!empty($GLOBALS['tableau_des_temps'])) {
@@ -218,25 +218,25 @@ 
 			$valeur_simple = [];
 			foreach ($valeur as $v) {
 				if (is_array($v)) {
-					$valeur_simple[] = 'array:' . count($v);
+					$valeur_simple[] = 'array:'.count($v);
 				} elseif (is_object($v)) {
 					$valeur_simple[] = get_class($v);
 				} elseif (is_string($v)) {
-					$valeur_simple[] = "'" . $v . "'";
+					$valeur_simple[] = "'".$v."'";
 				} else {
 					$valeur_simple[] = $v;
 				}
 			}
 			$n = count($valeur);
-			$valeur = (($n > 3) ? 'array:' . $n . ' ' : '');
-			$valeur .= '[' . join(', ', $valeur_simple) . ']';
+			$valeur = (($n > 3) ? 'array:'.$n.' ' : '');
+			$valeur .= '['.join(', ', $valeur_simple).']';
 		} elseif (is_object($valeur)) {
 			$valeur = get_class($valeur);
 		} elseif (is_string($valeur)) {
-			$valeur = "'" . $valeur . "'";
+			$valeur = "'".$valeur."'";
 		}
-		$res .= "\n<tr><td><strong>" . nl2br(entites_html($nom))
-			. '</strong></td><td>:&nbsp;' . nl2br(entites_html($valeur))
+		$res .= "\n<tr><td><strong>".nl2br(entites_html($nom))
+			. '</strong></td><td>:&nbsp;'.nl2br(entites_html($valeur))
 			. "</td></tr>\n";
 	}
 
@@ -264,10 +264,10 @@ 
 				$nom_code = $lieu->descr['nom'];
 				$skel = $lieu->descr['sourcefile'];
 				$h2 = parametre_url($href, 'var_mode_objet', $nom_code);
-				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
+				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette').'#L'.$ligne;
 				$skel = "<a href='$h3'><b>$skel</b></a>";
 				if ($boucle) {
-					$h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
+					$h3 = parametre_url($h2.$boucle, 'var_mode_affiche', 'boucle');
 					$boucle = "<a href='$h3'><b>$boucle</b></a>";
 				}
 			}
@@ -356,7 +356,7 @@ 
 	}
 
 	// Requete erronee
-	$err = '<b>' . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
+	$err = '<b>'._T('avis_erreur_mysql')." $errno</b><br /><tt>\n"
 		. spip_htmlspecialchars($msg)
 		. "\n<br /><span style='color: red'><b>"
 		. spip_htmlspecialchars($query)
@@ -371,7 +371,7 @@ 
 // https://code.spip.net/@trouve_boucle_debug
 function trouve_boucle_debug($n, $nom, $debut = 0, $boucle = '') {
 
-	$id = $nom . $boucle;
+	$id = $nom.$boucle;
 	if (is_array($GLOBALS['debug_objets']['sequence'][$id])) {
 		foreach ($GLOBALS['debug_objets']['sequence'][$id] as $v) {
 			if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
@@ -418,7 +418,7 @@ 
 		}
 	}
 	}
-	$incl = ',' . $reg[1] . '[.]\w$,';
+	$incl = ','.$reg[1].'[.]\w$,';
 
 	foreach ($GLOBALS['debug_objets']['sourcefile'] as $k => $v) {
 		if (preg_match($incl, $v)) {
@@ -434,16 +434,13 @@ 
 	list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
 
 	if (!$boucle) {
-		return !$ligne ? '' :
-			(' (' .
-				(($nom != $skel) ? _T('squelette_inclus_ligne') :
-					_T('squelette_ligne')) .
+		return !$ligne ? '' : (' ('.
+				(($nom != $skel) ? _T('squelette_inclus_ligne') : _T('squelette_ligne')).
 				" <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
 	} else {
 		$self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
 
-		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
-			" (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
+		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" : " (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
 	}
 }
 
@@ -466,14 +463,14 @@ 
 
 	$s = preg_replace(
 		',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
-		'<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
+		'<\1>\2</\1><br />'."\n".'<\1>\3</\1>',
 		$s
 	);
 
 
 	$tableau = explode('<br />', $s);
 
-	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
+	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: ".($nocpt ? 'hidden' : 'visible').";%s' href='#T%s' title=\"%s\">%0".strval(@strlen(count($tableau)))."d</a></span> %s<br />\n";
 
 	$format10 = str_replace('white', 'lightgrey', $format);
 	$formaterr = 'color: red;';
@@ -517,7 +514,7 @@ 
 	. '" style="cursor: pointer;">'
 	. ($nocpt ? '' : _T('info_numero_abbreviation'))
 	. '</div>
-	' . $res . "</div>\n";
+	' . $res."</div>\n";
 }
 
 // l'environnement graphique du debuggueur
@@ -538,14 +535,14 @@ 
 			if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
 				list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
 				$texte .= $res2;
-			} elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc . 'tout'])) {
-				$legend = _T('zbug_' . $mode);
-				$texte = $GLOBALS['debug_objets'][$mode][$fonc . 'tout'];
+			} elseif (!empty($GLOBALS['debug_objets'][$mode][$fonc.'tout'])) {
+				$legend = _T('zbug_'.$mode);
+				$texte = $GLOBALS['debug_objets'][$mode][$fonc.'tout'];
 				$texte = ancre_texte($texte, ['', '']);
 			}
 		} else {
 			if (strlen(trim($res))) {
-				return "<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
+				return "<img src='".chemin_image('debug-xx.svg')."' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>";
 			} else {
 				// cas de l'appel sur erreur: montre la page
 				return isset($GLOBALS['debug_objets']['resultat']['tout'])
@@ -555,7 +552,7 @@ 
 		}
 	} else {
 		$valider = charger_fonction('valider', 'xml');
-		$val = $valider($GLOBALS['debug_objets']['validation'][$fonc . 'tout']);
+		$val = $valider($GLOBALS['debug_objets']['validation'][$fonc.'tout']);
 		// Si erreur, signaler leur nombre dans le formulaire admin
 		$GLOBALS['debug_objets']['validation'] = $val->err ? count($val->err) : '';
 		list($texte, $err) = emboite_texte($val, $fonc, $self);
@@ -566,14 +563,14 @@ 
 		} else {
 			$err = ": $err";
 		}
-		$legend = _T('validation') . ' ' . $err;
+		$legend = _T('validation').' '.$err;
 		$res = $id = '';
 	}
 
 	return !trim($texte) ? '' : (
-		"<img src='" . chemin_image('debug-xx.svg') . "' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
+		"<img src='".chemin_image('debug-xx.svg')."' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res"
 		. "<div id='debug_boucle'><fieldset$id><legend>"
-		. "<a href='" . $self . '#f_' . substr($fonc, 0, 37) . "'> &#8593; "
+		. "<a href='".$self.'#f_'.substr($fonc, 0, 37)."'> &#8593; "
 		. ($legend ? $legend : $mode)
 		. '</a></legend>'
 		. $texte
@@ -585,7 +582,7 @@ 
 // https://code.spip.net/@emboite_texte
 function emboite_texte($res, $fonc = '', $self = '') {
 	$errs = $res->err;
-	$texte = $res->entete . ($errs ? '' : $res->page);
+	$texte = $res->entete.($errs ? '' : $res->page);
 
 	if (!$texte and !$errs) {
 		return [ancre_texte('', ['', '']), false];
@@ -641,7 +638,7 @@ 
 		$err = "<h2 style='text-align: center'>"
 			. $i
 			. "<a href='#fin_err'>"
-			. ' ' . _T('erreur_texte')
+			. ' '._T('erreur_texte')
 			. "</a></h2><table id='debut_err' style='width: 100%'>"
 			. $err
 			. " </table><a id='fin_err'></a>";
@@ -651,9 +648,9 @@ 
 		list($msg, $fermant, $ouvrant) = $errs[0];
 		$rf = reference_boucle_debug($fermant, $fonc, $self);
 		$ro = reference_boucle_debug($ouvrant, $fonc, $self);
-		$err = $msg .
-			"<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
-			"<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
+		$err = $msg.
+			"<a href='#L".$fermant."'>$fermant</a>$rf<br />".
+			"<a href='#L".$ouvrant."'>$ouvrant</a>$ro";
 
 		return [ancre_texte($texte, [[$ouvrant], [$fermant]]), $err];
 	}
@@ -687,7 +684,7 @@ 
 			['time' => $GLOBALS['debug_objets']['profile'][$sourcefile]]
 		);
 
-		$res .= "<fieldset id='f_" . $nom . "'><legend>"
+		$res .= "<fieldset id='f_".$nom."'><legend>"
 			. $t_skel
 			. ' '
 			. $sourcefile
@@ -702,7 +699,7 @@ 
 			. "'>"
 			. _T('zbug_calcul')
 			. '</a></legend>'
-			. (!$temps ? '' : ("\n<span style='display:block;float:" . $GLOBALS['spip_lang_right'] . "'>$temps</span><br />"))
+			. (!$temps ? '' : ("\n<span style='display:block;float:".$GLOBALS['spip_lang_right']."'>$temps</span><br />"))
 			. debusquer_contexte($contexte[$sourcefile])
 		. (!$nav ? '' : ("<table width='100%'>\n$nav</table>\n"))
 		. "</fieldset>\n";
@@ -723,33 +720,33 @@ 
 			$nom = $boucle->id_boucle;
 			$req = $boucle->type_requete;
 			$crit = public_decompiler($boucle, $gram, 0, 'criteres');
-			$self2 = $self . '&amp;var_mode_objet=' . $objet;
-
-			$res .= "\n<tr style='background-color: " .
-				($i % 2 ? '#e0e0f0' : '#f8f8ff') .
-				"'><td  align='right'>$i</td><td>\n" .
-				"<a  class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
-				_T('zbug_boucle') .
-				"</a></td><td>\n<a class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
-				_T('zbug_resultat') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=code#f_$nom_skel'>" .
-				_T('zbug_code') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				str_replace('var_mode=', 'var_profile=', $self2) .
-				"'>" .
-				_T('zbug_calcul') .
-				"</a></td><td>\n" .
-				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom) .
-				"</td><td>\n" .
-				$req .
-				"</td><td>\n" .
-				spip_htmlspecialchars($crit) .
+			$self2 = $self.'&amp;var_mode_objet='.$objet;
+
+			$res .= "\n<tr style='background-color: ".
+				($i % 2 ? '#e0e0f0' : '#f8f8ff').
+				"'><td  align='right'>$i</td><td>\n".
+				"<a  class='debug_link_boucle' href='".
+				$self2.
+				"&amp;var_mode_affiche=boucle#f_$nom_skel'>".
+				_T('zbug_boucle').
+				"</a></td><td>\n<a class='debug_link_boucle' href='".
+				$self2.
+				"&amp;var_mode_affiche=resultat#f_$nom_skel'>".
+				_T('zbug_resultat').
+				"</a></td><td>\n<a class='debug_link_resultat' href='".
+				$self2.
+				"&amp;var_mode_affiche=code#f_$nom_skel'>".
+				_T('zbug_code').
+				"</a></td><td>\n<a class='debug_link_resultat' href='".
+				str_replace('var_mode=', 'var_profile=', $self2).
+				"'>".
+				_T('zbug_calcul').
+				"</a></td><td>\n".
+				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom).
+				"</td><td>\n".
+				$req.
+				"</td><td>\n".
+				spip_htmlspecialchars($crit).
 				'</td></tr>';
 		}
 	}
@@ -776,7 +773,7 @@ 
 		}
 		//  permettre le copier/coller facile
 		// $res = ancre_texte($req, array(), true);
-		$res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
+		$res = "<div id='T".md5($req)."'>\n<pre>\n".$req."</pre>\n</div>\n";
 		//  formatage et affichage des resultats bruts de la requete
 		$ress_req = spip_query($req);
 		$brut_sql = '';
@@ -786,10 +783,10 @@ 
 		$max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
 		while ($retours_sql = sql_fetch($ress_req)) {
 			if ($num <= $max_aff) {
-				$brut_sql .= '<h3>' . ($num == 1 ? $num . ' sur ' . sql_count($ress_req) : $num) . '</h3>';
+				$brut_sql .= '<h3>'.($num == 1 ? $num.' sur '.sql_count($ress_req) : $num).'</h3>';
 				$brut_sql .= '<p>';
 				foreach ($retours_sql as $key => $val) {
-					$brut_sql .= '<strong>' . $key . '</strong> => ' . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
+					$brut_sql .= '<strong>'.$key.'</strong> => '.spip_htmlspecialchars(couper($val, 150))."<br />\n";
 				}
 				$brut_sql .= '</p>';
 			}
@@ -800,14 +797,14 @@ 
 			//  ne pas afficher les $contexte_inclus
 			$view = preg_replace(',<\?php.+\?[>],Uims', '', $view);
 			if ($view) {
-				$res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . '</fieldset>';
+				$res2 .= "\n<br /><fieldset>".interdire_scripts($view).'</fieldset>';
 			}
 		}
 	} elseif ($affiche == 'code') {
 		$legend = $nom;
-		$res = ancre_texte('<' . "?php\n" . $quoi . "\n?" . '>');
+		$res = ancre_texte('<'."?php\n".$quoi."\n?".'>');
 	} elseif ($affiche == 'boucle') {
-		$legend = _T('zbug_boucle') . ' ' . $nom;
+		$legend = _T('zbug_boucle').' '.$nom;
 		// Le compilateur prefixe le nom des boucles par l'extension du fichier source.
 		$gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
 		$res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
@@ -826,23 +823,23 @@ 
 	include_spip('public/assembler'); // pour inclure_balise_dynamique
 	include_spip('inc/texte'); // pour corriger_typo
 
-	return _DOCTYPE_ECRIRE .
-	html_lang_attributes() .
-	"<head>\n<title>" .
-	('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
-		_T('admin_debug') . ' ' . $titre . ' (' .
-		supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
-	")</title>\n" .
-	"<meta http-equiv='Content-Type' content='text/html" .
-	(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
-	"' />\n" .
+	return _DOCTYPE_ECRIRE.
+	html_lang_attributes().
+	"<head>\n<title>".
+	('SPIP '.$GLOBALS['spip_version_affichee'].' '.
+		_T('admin_debug').' '.$titre.' ('.
+		supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))).
+	")</title>\n".
+	"<meta http-equiv='Content-Type' content='text/html".
+	(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '').
+	"' />\n".
 	http_script('', 'jquery.js')
-	. "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
-	. "' type='text/css' />" .
-	"</head>\n" .
-	"<body style='margin:0 10px;'>\n" .
-	"<div id='spip-debug-header'>" .
-	$corps .
-	inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false) .
+	. "<link rel='stylesheet' href='".url_absolue(find_in_path('spip_admin.css'))
+	. "' type='text/css' />".
+	"</head>\n".
+	"<body style='margin:0 10px;'>\n".
+	"<div id='spip-debug-header'>".
+	$corps.
+	inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $GLOBALS['debug_objets']), false).
 	'</div></body></html>';
 }