spip / SPIP

ecrire/balise/formulaire_.php

Indentation +269 added lines, -269 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Formulaires
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/filtres');
@@ -35,25 +35,25 @@ 
  *     Saisie protégée
  **/
 function protege_champ($texte) {
-	if (is_array($texte)) {
-		$texte = array_map('protege_champ', $texte);
-	} else {
-		// ne pas corrompre une valeur serialize
-		if ((preg_match(',^[abis]:\d+[:;],', $texte) and @unserialize($texte) != false) or is_null($texte)) {
-			return $texte;
-		}
-		if (
-			is_string($texte)
-			and $texte
-			and strpbrk($texte, "&\"'<>") !== false
-		) {
-			$texte = spip_htmlspecialchars($texte, ENT_QUOTES);
-		} elseif (is_bool($texte)) {
-			$texte = ($texte ? '1' : '');
-		}
-	}
-
-	return $texte;
+    if (is_array($texte)) {
+        $texte = array_map('protege_champ', $texte);
+    } else {
+        // ne pas corrompre une valeur serialize
+        if ((preg_match(',^[abis]:\d+[:;],', $texte) and @unserialize($texte) != false) or is_null($texte)) {
+            return $texte;
+        }
+        if (
+            is_string($texte)
+            and $texte
+            and strpbrk($texte, "&\"'<>") !== false
+        ) {
+            $texte = spip_htmlspecialchars($texte, ENT_QUOTES);
+        } elseif (is_bool($texte)) {
+            $texte = ($texte ? '1' : '');
+        }
+    }
+
+    return $texte;
 }
 
 /**
@@ -67,17 +67,17 @@ 
  *     - false : pas de squelette trouvé
  **/
 function existe_formulaire($form) {
-	if (substr($form, 0, 11) == 'FORMULAIRE_') {
-		$form = strtolower(substr($form, 11));
-	} else {
-		$form = strtolower($form);
-	}
+    if (substr($form, 0, 11) == 'FORMULAIRE_') {
+        $form = strtolower(substr($form, 11));
+    } else {
+        $form = strtolower($form);
+    }
 
-	if (!$form) {
-		return '';
-	} // on ne sait pas, le nom du formulaire n'est pas fourni ici
+    if (!$form) {
+        return '';
+    } // on ne sait pas, le nom du formulaire n'est pas fourni ici
 
-	return trouver_fond($form, 'formulaires/') ? $form : false;
+    return trouver_fond($form, 'formulaires/') ? $form : false;
 }
 
 /**
@@ -86,31 +86,31 @@ 
  * @return false|array
  */
 function test_formulaire_inclus_par_modele() {
-	$trace = debug_backtrace(null, 20);
-	$trace_fonctions = array_column($trace, 'function');
-	$trace_fonctions = array_map('strtolower', $trace_fonctions);
-
-	// regarder si un flag a ete leve juste avant l'appel de balise_FORMULAIRE_dyn
-	if (
-		function_exists('arguments_balise_dyn_depuis_modele')
-		and $form = arguments_balise_dyn_depuis_modele(null, 'read')
-	) {
-		if (in_array('balise_formulaire__dyn', $trace_fonctions)) {
-			$k = array_search('balise_formulaire__dyn', $trace_fonctions);
-			if ($trace[$k]['args'][0] === $form) {
-				return $trace[$k]['args'];
-			}
-		}
-	}
-
-	// fallback qui ne repose pas sur le flag lie a l'analyse de contexte_compil,
-	// mais ne marche pas si executer_balise_dynamique est appelee via du php dans le squelette
-	if (in_array('eval', $trace_fonctions) and in_array('inclure_modele', $trace_fonctions)) {
-		$k = array_search('inclure_modele', $trace_fonctions);
-		// les arguments de recuperer_fond() passes par inclure_modele()
-		return $trace[$k - 1]['args'][1]['args'];
-	}
-	return false;
+    $trace = debug_backtrace(null, 20);
+    $trace_fonctions = array_column($trace, 'function');
+    $trace_fonctions = array_map('strtolower', $trace_fonctions);
+
+    // regarder si un flag a ete leve juste avant l'appel de balise_FORMULAIRE_dyn
+    if (
+        function_exists('arguments_balise_dyn_depuis_modele')
+        and $form = arguments_balise_dyn_depuis_modele(null, 'read')
+    ) {
+        if (in_array('balise_formulaire__dyn', $trace_fonctions)) {
+            $k = array_search('balise_formulaire__dyn', $trace_fonctions);
+            if ($trace[$k]['args'][0] === $form) {
+                return $trace[$k]['args'];
+            }
+        }
+    }
+
+    // fallback qui ne repose pas sur le flag lie a l'analyse de contexte_compil,
+    // mais ne marche pas si executer_balise_dynamique est appelee via du php dans le squelette
+    if (in_array('eval', $trace_fonctions) and in_array('inclure_modele', $trace_fonctions)) {
+        $k = array_search('inclure_modele', $trace_fonctions);
+        // les arguments de recuperer_fond() passes par inclure_modele()
+        return $trace[$k - 1]['args'][1]['args'];
+    }
+    return false;
 }
 
 /**
@@ -125,32 +125,32 @@ 
  **/
 function balise_FORMULAIRE__dist($p) {
 
-	// Cas d'un #FORMULAIRE_TOTO inexistant : renvoyer la chaine vide.
-	// mais si #FORMULAIRE_{toto} on ne peut pas savoir a la compilation, continuer
-	if (existe_formulaire($p->nom_champ) === false) {
-		$p->code = "''";
-		$p->interdire_scripts = false;
-
-		return $p;
-	}
-
-	// sinon renvoyer un code php dynamique
-	$p = calculer_balise_dynamique($p, $p->nom_champ, []);
-
-	if (
-		!test_espace_prive()
-		and !empty($p->descr['sourcefile'])
-		and $f = $p->descr['sourcefile']
-		and basename(dirname($f)) === 'modeles'
-	) {
-		// un modele est toujours inséré en texte dans son contenant
-		// donc si on est dans le public avec un cache on va perdre le dynamisme
-		// et on risque de mettre en cache les valeurs pre-remplies du formulaire
-		// on injecte donc le PHP qui va appeler la fonction pour generer le formulaire au lieu de directement la fonction
-		$p->code = "'<'.'?php echo (" . texte_script($p->code) . "); ?'.'>'";
-		// dans l'espace prive on a pas de cache, donc pas de soucis (et un leak serait moins grave)
-	}
-	return $p;
+    // Cas d'un #FORMULAIRE_TOTO inexistant : renvoyer la chaine vide.
+    // mais si #FORMULAIRE_{toto} on ne peut pas savoir a la compilation, continuer
+    if (existe_formulaire($p->nom_champ) === false) {
+        $p->code = "''";
+        $p->interdire_scripts = false;
+
+        return $p;
+    }
+
+    // sinon renvoyer un code php dynamique
+    $p = calculer_balise_dynamique($p, $p->nom_champ, []);
+
+    if (
+        !test_espace_prive()
+        and !empty($p->descr['sourcefile'])
+        and $f = $p->descr['sourcefile']
+        and basename(dirname($f)) === 'modeles'
+    ) {
+        // un modele est toujours inséré en texte dans son contenant
+        // donc si on est dans le public avec un cache on va perdre le dynamisme
+        // et on risque de mettre en cache les valeurs pre-remplies du formulaire
+        // on injecte donc le PHP qui va appeler la fonction pour generer le formulaire au lieu de directement la fonction
+        $p->code = "'<'.'?php echo (" . texte_script($p->code) . "); ?'.'>'";
+        // dans l'espace prive on a pas de cache, donc pas de soucis (et un leak serait moins grave)
+    }
+    return $p;
 }
 
 /**
@@ -170,17 +170,17 @@ 
  *     - string : texte à afficher directement
  */
 function balise_FORMULAIRE__dyn($form, ...$args) {
-	$form = existe_formulaire($form);
-	if (!$form) {
-		return '';
-	}
+    $form = existe_formulaire($form);
+    if (!$form) {
+        return '';
+    }
 
-	$contexte = balise_FORMULAIRE__contexte($form, $args);
-	if (!is_array($contexte)) {
-		return $contexte;
-	}
+    $contexte = balise_FORMULAIRE__contexte($form, $args);
+    if (!is_array($contexte)) {
+        return $contexte;
+    }
 
-	return ["formulaires/$form", 3600, $contexte];
+    return ["formulaires/$form", 3600, $contexte];
 }
 
 /**
@@ -194,84 +194,84 @@ 
  *     Contexte d'environnement à envoyer au squelette
  **/
 function balise_FORMULAIRE__contexte($form, $args) {
-	// tester si ce formulaire vient d'etre poste (memes arguments)
-	// pour ne pas confondre 2 #FORMULAIRES_XX identiques sur une meme page
-	// si poste, on recupere les erreurs
-
-	$je_suis_poste = false;
-	if (
-		$post_form = _request('formulaire_action')
-		and $post_form == $form
-		and $p = _request('formulaire_action_args')
-		and is_array($p = decoder_contexte_ajax($p, $post_form))
-	) {
-		// enlever le faux attribut de langue masque
-		array_shift($p);
-		if (formulaire__identifier($form, $args, $p)) {
-			$je_suis_poste = true;
-		}
-	}
-
-	$editable = true;
-	$erreurs = $post = [];
-	if ($je_suis_poste) {
-		$post = traiter_formulaires_dynamiques(true);
-		$e = "erreurs_$form";
-		$erreurs = isset($post[$e]) ? $post[$e] : [];
-		$editable = "editable_$form";
-		$editable = (!isset($post[$e]))
-			|| count($erreurs)
-			|| (isset($post[$editable]) && $post[$editable]);
-	}
-
-	$valeurs = formulaire__charger($form, $args, $je_suis_poste);
-
-	// si $valeurs n'est pas un tableau, le formulaire n'est pas applicable
-	// C'est plus fort qu'editable qui est gere par le squelette
-	// Idealement $valeur doit etre alors un message explicatif.
-	if (!is_array($valeurs)) {
-		return is_string($valeurs) ? $valeurs : '';
-	}
-
-	// charger peut passer une action si le formulaire ne tourne pas sur self()
-	// ou une action vide si elle ne sert pas
-	$action = (isset($valeurs['action'])) ? $valeurs['action'] : self('&amp;', true);
-	// bug IEx : si action finit par /
-	// IE croit que le <form ... action=../ > est autoferme
-	if (substr($action, -1) == '/') {
-		// on ajoute une ancre pour feinter IE, au pire ca tue l'ancre qui finit par un /
-		$action .= '#';
-	}
-
-	// recuperer la saisie en cours si erreurs
-	// seulement si c'est ce formulaire qui est poste
-	// ou si on le demande explicitement par le parametre _forcer_request = true
-	$dispo = ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request']));
-	foreach (array_keys($valeurs) as $champ) {
-		if ($champ[0] !== '_' and !in_array($champ, ['message_ok', 'message_erreur', 'editable'])) {
-			if ($dispo and (($v = _request($champ)) !== null)) {
-				$valeurs[$champ] = $v;
-			}
-			// nettoyer l'url des champs qui vont etre saisis
-			if ($action) {
-				$action = parametre_url($action, $champ, '');
-			}
-			// proteger les ' et les " dans les champs que l'on va injecter
-			$valeurs[$champ] = protege_champ($valeurs[$champ]);
-		}
-	}
-
-	if ($action) {
-		// nettoyer l'url
-		$action = parametre_url($action, 'formulaire_action', '');
-		$action = parametre_url($action, 'formulaire_action_args', '');
-	}
-
-	/**
-	 * @deprecated
-	 * servait pour poster sur les actions de type editer_xxx() qui ne prenaient pas d'argument autrement que par _request('arg') et pour lesquelles il fallait donc passer un hash valide
-	 */
-	/*
+    // tester si ce formulaire vient d'etre poste (memes arguments)
+    // pour ne pas confondre 2 #FORMULAIRES_XX identiques sur une meme page
+    // si poste, on recupere les erreurs
+
+    $je_suis_poste = false;
+    if (
+        $post_form = _request('formulaire_action')
+        and $post_form == $form
+        and $p = _request('formulaire_action_args')
+        and is_array($p = decoder_contexte_ajax($p, $post_form))
+    ) {
+        // enlever le faux attribut de langue masque
+        array_shift($p);
+        if (formulaire__identifier($form, $args, $p)) {
+            $je_suis_poste = true;
+        }
+    }
+
+    $editable = true;
+    $erreurs = $post = [];
+    if ($je_suis_poste) {
+        $post = traiter_formulaires_dynamiques(true);
+        $e = "erreurs_$form";
+        $erreurs = isset($post[$e]) ? $post[$e] : [];
+        $editable = "editable_$form";
+        $editable = (!isset($post[$e]))
+            || count($erreurs)
+            || (isset($post[$editable]) && $post[$editable]);
+    }
+
+    $valeurs = formulaire__charger($form, $args, $je_suis_poste);
+
+    // si $valeurs n'est pas un tableau, le formulaire n'est pas applicable
+    // C'est plus fort qu'editable qui est gere par le squelette
+    // Idealement $valeur doit etre alors un message explicatif.
+    if (!is_array($valeurs)) {
+        return is_string($valeurs) ? $valeurs : '';
+    }
+
+    // charger peut passer une action si le formulaire ne tourne pas sur self()
+    // ou une action vide si elle ne sert pas
+    $action = (isset($valeurs['action'])) ? $valeurs['action'] : self('&amp;', true);
+    // bug IEx : si action finit par /
+    // IE croit que le <form ... action=../ > est autoferme
+    if (substr($action, -1) == '/') {
+        // on ajoute une ancre pour feinter IE, au pire ca tue l'ancre qui finit par un /
+        $action .= '#';
+    }
+
+    // recuperer la saisie en cours si erreurs
+    // seulement si c'est ce formulaire qui est poste
+    // ou si on le demande explicitement par le parametre _forcer_request = true
+    $dispo = ($je_suis_poste || (isset($valeurs['_forcer_request']) && $valeurs['_forcer_request']));
+    foreach (array_keys($valeurs) as $champ) {
+        if ($champ[0] !== '_' and !in_array($champ, ['message_ok', 'message_erreur', 'editable'])) {
+            if ($dispo and (($v = _request($champ)) !== null)) {
+                $valeurs[$champ] = $v;
+            }
+            // nettoyer l'url des champs qui vont etre saisis
+            if ($action) {
+                $action = parametre_url($action, $champ, '');
+            }
+            // proteger les ' et les " dans les champs que l'on va injecter
+            $valeurs[$champ] = protege_champ($valeurs[$champ]);
+        }
+    }
+
+    if ($action) {
+        // nettoyer l'url
+        $action = parametre_url($action, 'formulaire_action', '');
+        $action = parametre_url($action, 'formulaire_action_args', '');
+    }
+
+    /**
+     * @deprecated
+     * servait pour poster sur les actions de type editer_xxx() qui ne prenaient pas d'argument autrement que par _request('arg') et pour lesquelles il fallait donc passer un hash valide
+     */
+    /*
 	if (isset($valeurs['_action'])) {
 		$securiser_action = charger_fonction('securiser_action', 'inc');
 		$secu = $securiser_action(reset($valeurs['_action']), end($valeurs['_action']), '', -1);
@@ -281,59 +281,59 @@ 
 	}
 	*/
 
-	// empiler la lang en tant que premier argument implicite du CVT
-	// pour permettre de la restaurer au moment du Verifier et du Traiter
-	array_unshift($args, $GLOBALS['spip_lang']);
-
-	$valeurs['formulaire_args'] = encoder_contexte_ajax($args, $form);
-	$valeurs['erreurs'] = $erreurs;
-	$valeurs['action'] = $action;
-	$valeurs['form'] = $form;
-
-	$valeurs['formulaire_sign'] = '';
-	if (!empty($GLOBALS['visiteur_session']['id_auteur'])) {
-		$securiser_action = charger_fonction('securiser_action', 'inc');
-		$secu = $securiser_action($valeurs['form'], $valeurs['formulaire_args'], '', -1);
-		$valeurs['formulaire_sign'] = $secu['hash'];
-	}
-
-	if (!isset($valeurs['id'])) {
-		$valeurs['id'] = 'new';
-	}
-	// editable peut venir de charger() ou de traiter() sinon
-	if (!isset($valeurs['editable'])) {
-		$valeurs['editable'] = $editable;
-	}
-	// dans tous les cas, renvoyer un espace ou vide (et pas un booleen)
-	$valeurs['editable'] = ($valeurs['editable'] ? ' ' : '');
-
-	if ($je_suis_poste) {
-		$valeurs['message_erreur'] = '';
-		if (isset($erreurs['message_erreur'])) {
-			$valeurs['message_erreur'] = $erreurs['message_erreur'];
-		}
-
-		$valeurs['message_ok'] = '';
-		if (isset($post["message_ok_$form"])) {
-			$valeurs['message_ok'] = $post["message_ok_$form"];
-		} elseif (isset($erreurs['message_ok'])) {
-			$valeurs['message_ok'] = $erreurs['message_ok'];
-		}
-
-		// accessibilite : encapsuler toutes les erreurs dans un role='alert'
-		// uniquement si c'est une string et au premier niveau (on ne touche pas au tableaux)
-		// et si $k ne commence pas par un _ (c'est bien une vrai erreur sur un vrai champ)
-		if (html5_permis()) {
-			foreach ($erreurs as $k => $v) {
-				if (is_string($v) and strlen(trim($v)) and strpos($k, '_') !== 0) {
-					// on encapsule dans un span car ces messages sont en general simple, juste du texte, et deja dans un span dans le form
-					$valeurs['erreurs'][$k] = "<span role='alert'>" . $erreurs[$k] . '</span>';
-				}
-			}
-		}
-	}
-
-	return $valeurs;
+    // empiler la lang en tant que premier argument implicite du CVT
+    // pour permettre de la restaurer au moment du Verifier et du Traiter
+    array_unshift($args, $GLOBALS['spip_lang']);
+
+    $valeurs['formulaire_args'] = encoder_contexte_ajax($args, $form);
+    $valeurs['erreurs'] = $erreurs;
+    $valeurs['action'] = $action;
+    $valeurs['form'] = $form;
+
+    $valeurs['formulaire_sign'] = '';
+    if (!empty($GLOBALS['visiteur_session']['id_auteur'])) {
+        $securiser_action = charger_fonction('securiser_action', 'inc');
+        $secu = $securiser_action($valeurs['form'], $valeurs['formulaire_args'], '', -1);
+        $valeurs['formulaire_sign'] = $secu['hash'];
+    }
+
+    if (!isset($valeurs['id'])) {
+        $valeurs['id'] = 'new';
+    }
+    // editable peut venir de charger() ou de traiter() sinon
+    if (!isset($valeurs['editable'])) {
+        $valeurs['editable'] = $editable;
+    }
+    // dans tous les cas, renvoyer un espace ou vide (et pas un booleen)
+    $valeurs['editable'] = ($valeurs['editable'] ? ' ' : '');
+
+    if ($je_suis_poste) {
+        $valeurs['message_erreur'] = '';
+        if (isset($erreurs['message_erreur'])) {
+            $valeurs['message_erreur'] = $erreurs['message_erreur'];
+        }
+
+        $valeurs['message_ok'] = '';
+        if (isset($post["message_ok_$form"])) {
+            $valeurs['message_ok'] = $post["message_ok_$form"];
+        } elseif (isset($erreurs['message_ok'])) {
+            $valeurs['message_ok'] = $erreurs['message_ok'];
+        }
+
+        // accessibilite : encapsuler toutes les erreurs dans un role='alert'
+        // uniquement si c'est une string et au premier niveau (on ne touche pas au tableaux)
+        // et si $k ne commence pas par un _ (c'est bien une vrai erreur sur un vrai champ)
+        if (html5_permis()) {
+            foreach ($erreurs as $k => $v) {
+                if (is_string($v) and strlen(trim($v)) and strpos($k, '_') !== 0) {
+                    // on encapsule dans un span car ces messages sont en general simple, juste du texte, et deja dans un span dans le form
+                    $valeurs['erreurs'][$k] = "<span role='alert'>" . $erreurs[$k] . '</span>';
+                }
+            }
+        }
+    }
+
+    return $valeurs;
 }
 
 /**
@@ -345,51 +345,51 @@ 
  * @return array
  */
 function formulaire__charger($form, $args, $poste) {
-	if ($charger_valeurs = charger_fonction('charger', "formulaires/$form", true)) {
-		$valeurs = call_user_func_array($charger_valeurs, $args);
-	} else {
-		$valeurs = [];
-	}
-
-	$valeurs = pipeline(
-		'formulaire_charger',
-		[
-			'args' => ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
-			'data' => $valeurs
-		]
-	);
-
-	// prise en charge CVT multi etape
-	if (is_array($valeurs) and isset($valeurs['_etapes'])) {
-		include_spip('inc/cvt_multietapes');
-		$valeurs = cvtmulti_formulaire_charger_etapes(
-			['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
-			$valeurs
-		);
-	}
-
-	// si $valeurs et false ou une chaine, pas de formulaire, donc pas de pipeline !
-	if (is_array($valeurs)) {
-		if (!isset($valeurs['_pipelines'])) {
-			$valeurs['_pipelines'] = [];
-		}
-		// l'ancien argument _pipeline devient maintenant _pipelines
-		// reinjectons le vieux _pipeline au debut de _pipelines
-		if (isset($valeurs['_pipeline'])) {
-			$pipe = is_array($valeurs['_pipeline']) ? reset($valeurs['_pipeline']) : $valeurs['_pipeline'];
-			$args = is_array($valeurs['_pipeline']) ? end($valeurs['_pipeline']) : [];
-
-			$pipelines = [$pipe => $args];
-			$valeurs['_pipelines'] = array_merge($pipelines, $valeurs['_pipelines']);
-		}
-
-		// et enfin, ajoutons systematiquement un pipeline sur le squelette du formulaire
-		// qui constitue le cas le plus courant d'utilisation du pipeline recuperer_fond
-		// (performance, cela evite de s'injecter dans recuperer_fond utilise pour *tous* les squelettes)
-		$valeurs['_pipelines']['formulaire_fond'] = ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste];
-	}
-
-	return $valeurs;
+    if ($charger_valeurs = charger_fonction('charger', "formulaires/$form", true)) {
+        $valeurs = call_user_func_array($charger_valeurs, $args);
+    } else {
+        $valeurs = [];
+    }
+
+    $valeurs = pipeline(
+        'formulaire_charger',
+        [
+            'args' => ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
+            'data' => $valeurs
+        ]
+    );
+
+    // prise en charge CVT multi etape
+    if (is_array($valeurs) and isset($valeurs['_etapes'])) {
+        include_spip('inc/cvt_multietapes');
+        $valeurs = cvtmulti_formulaire_charger_etapes(
+            ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste],
+            $valeurs
+        );
+    }
+
+    // si $valeurs et false ou une chaine, pas de formulaire, donc pas de pipeline !
+    if (is_array($valeurs)) {
+        if (!isset($valeurs['_pipelines'])) {
+            $valeurs['_pipelines'] = [];
+        }
+        // l'ancien argument _pipeline devient maintenant _pipelines
+        // reinjectons le vieux _pipeline au debut de _pipelines
+        if (isset($valeurs['_pipeline'])) {
+            $pipe = is_array($valeurs['_pipeline']) ? reset($valeurs['_pipeline']) : $valeurs['_pipeline'];
+            $args = is_array($valeurs['_pipeline']) ? end($valeurs['_pipeline']) : [];
+
+            $pipelines = [$pipe => $args];
+            $valeurs['_pipelines'] = array_merge($pipelines, $valeurs['_pipelines']);
+        }
+
+        // et enfin, ajoutons systematiquement un pipeline sur le squelette du formulaire
+        // qui constitue le cas le plus courant d'utilisation du pipeline recuperer_fond
+        // (performance, cela evite de s'injecter dans recuperer_fond utilise pour *tous* les squelettes)
+        $valeurs['_pipelines']['formulaire_fond'] = ['form' => $form, 'args' => $args, 'je_suis_poste' => $poste];
+    }
+
+    return $valeurs;
 }
 
 /**
@@ -408,9 +408,9 @@ 
  * @return bool
  */
 function formulaire__identifier($form, $args, $p) {
-	if ($identifier_args = charger_fonction('identifier', "formulaires/$form", true)) {
-		return call_user_func_array($identifier_args, $args) === call_user_func_array($identifier_args, $p);
-	}
+    if ($identifier_args = charger_fonction('identifier', "formulaires/$form", true)) {
+        return call_user_func_array($identifier_args, $args) === call_user_func_array($identifier_args, $p);
+    }
 
-	return $args === $p;
+    return $args === $p;
 }

ecrire/base/trouver_table.php

Indentation +150 added lines, -150 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\SQL\Tables
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('base/objets');
 
@@ -68,153 +68,153 @@ 
  *
  **/
 function base_trouver_table_dist($nom, $serveur = '', $table_spip = true, array $options = []) {
-	static $nom_cache_desc_sql = [];
-
-	if (
-		!spip_connect($serveur)
-		or !preg_match('/^[a-zA-Z0-9._-]*/', $nom)
-	) {
-		return null;
-	}
-
-	$options = $options + [
-		// si false, baissera le niveau de log si une table demandée n’existe pas
-		'log_missing' => true,
-	];
-
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$objets_sql = lister_tables_objets_sql('::md5');
-
-	// le nom du cache depend du serveur mais aussi du nom de la db et du prefixe
-	// ce qui permet une auto invalidation en cas de modif manuelle du fichier
-	// de connexion, et tout risque d'ambiguite
-	if (!isset($nom_cache_desc_sql[$serveur][$objets_sql])) {
-		$nom_cache_desc_sql[$serveur][$objets_sql] =
-			_DIR_CACHE . 'sql_desc_'
-			. ($serveur ? "{$serveur}_" : '')
-			. substr(md5($connexion['db'] . ':' . $connexion['prefixe'] . ":$objets_sql"), 0, 8)
-			. '.txt';
-		// nouveau nom de cache = nouvelle version en memoire
-		unset($connexion['tables']);
-	}
-
-	// un appel avec $nom vide est une demande explicite de vidange du cache des descriptions
-	if (!$nom) {
-		spip_unlink($nom_cache_desc_sql[$serveur][$objets_sql]);
-		$connexion['tables'] = [];
-
-		return null;
-	}
-
-	$nom_sql = $nom;
-	if (preg_match('/\.(.*)$/', $nom, $s)) {
-		$nom_sql = $s[1];
-	} else {
-		$nom_sql = $nom;
-	}
-
-	$fdesc = $desc = '';
-	$connexion = &$GLOBALS['connexions'][$serveur ? $serveur : 0];
-
-	// base sous SPIP: gerer les abreviations explicites des noms de table
-	if ($connexion['spip_connect_version']) {
-		if ($table_spip and isset($GLOBALS['table_des_tables'][$nom])) {
-			$nom = $GLOBALS['table_des_tables'][$nom];
-			$nom_sql = 'spip_' . $nom;
-		}
-	}
-
-	// si c'est la premiere table qu'on cherche
-	// et si on est pas explicitement en recalcul
-	// on essaye de recharger le cache des decriptions de ce serveur
-	// dans le fichier cache
-	if (
-		!isset($connexion['tables'][$nom_sql])
-		and defined('_VAR_MODE') and _VAR_MODE !== 'recalcul'
-		and (!isset($connexion['tables']) or !$connexion['tables'])
-	) {
-		if (
-			lire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], $desc_cache)
-			and $desc_cache = unserialize($desc_cache)
-		) {
-			$connexion['tables'] = $desc_cache;
-		}
-	}
-	if ($table_spip and !isset($connexion['tables'][$nom_sql])) {
-		if (isset($GLOBALS['tables_principales'][$nom_sql])) {
-			$fdesc = $GLOBALS['tables_principales'][$nom_sql];
-		}
-		// meme si pas d'abreviation declaree, trouver la table spip_$nom
-		// si c'est une table principale,
-		// puisqu'on le fait aussi pour les tables auxiliaires
-		elseif ($nom_sql == $nom and isset($GLOBALS['tables_principales']['spip_' . $nom])) {
-			$nom_sql = 'spip_' . $nom;
-			$fdesc = &$GLOBALS['tables_principales'][$nom_sql];
-		} elseif (
-			isset($GLOBALS['tables_auxiliaires'][$n = $nom])
-			or isset($GLOBALS['tables_auxiliaires'][$n = 'spip_' . $nom])
-		) {
-			$nom_sql = $n;
-			$fdesc = &$GLOBALS['tables_auxiliaires'][$n];
-		}  # table locale a cote de SPIP, comme non SPIP:
-	}
-	if (!isset($connexion['tables'][$nom_sql])) {
-		// La *vraie* base a la priorite
-		$exists = sql_table_exists($nom_sql, $table_spip, $serveur);
-		if (
-			!$exists
-			or !$desc = sql_showtable($nom_sql, $table_spip, $serveur)
-			or !$desc['field']
-		) {
-			if (!$fdesc) {
-				$log_level = $options['log_missing'] ? _LOG_INFO_IMPORTANTE : _LOG_DEBUG;
-				spip_log("trouver_table: table inconnue '$serveur' '$nom'", 'base' . $log_level);
-
-				return null;
-			}
-			// on ne sait pas lire la structure de la table :
-			// on retombe sur la description donnee dans les fichiers spip
-			$desc = $fdesc;
-			$desc['exist'] = false;
-		} else {
-			$desc['exist'] = true;
-			// gerer le cas des cles vides (echec de l'analyse sur une vue par exemple)
-			// pour recuperer la declaration de lister_tables_objets_sql() si il y en a une
-			if (! $desc['key']) {
-				spip_log("trouver_table: table sans cle '$serveur' '$nom'", 'base');
-				unset($desc['key']);
-			}
-		}
-
-		$desc['table'] = $desc['table_sql'] = $nom_sql;
-		$desc['connexion'] = $serveur;
-
-		// charger les infos declarees pour cette table
-		// en lui passant les infos connues
-		// $desc est prioritaire pour la description de la table
-		$desc = array_merge(lister_tables_objets_sql($nom_sql, $desc), $desc);
-		// s'assurer qu'on a toujours un 'key'
-		if (!isset($desc['key']) && !empty($fdesc['key'])) {
-			$desc['key'] = $fdesc['key'];
-		}
-		if (! isset($desc['key'])) {
-			$desc['key'] = [];
-		}
-
-		// si tables_objets_sql est bien fini d'init, on peut cacher
-		$connexion['tables'][$nom_sql] = $desc;
-		$res = &$connexion['tables'][$nom_sql];
-		// une nouvelle table a ete decrite
-		// mettons donc a jour le cache des descriptions de ce serveur
-		if (is_writeable(_DIR_CACHE)) {
-			ecrire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], serialize($connexion['tables']), true);
-		}
-	} else {
-		$res = &$connexion['tables'][$nom_sql];
-	}
-
-	// toujours retourner $nom dans id_table
-	$res['id_table'] = $nom;
-
-	return $res;
+    static $nom_cache_desc_sql = [];
+
+    if (
+        !spip_connect($serveur)
+        or !preg_match('/^[a-zA-Z0-9._-]*/', $nom)
+    ) {
+        return null;
+    }
+
+    $options = $options + [
+        // si false, baissera le niveau de log si une table demandée n’existe pas
+        'log_missing' => true,
+    ];
+
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $objets_sql = lister_tables_objets_sql('::md5');
+
+    // le nom du cache depend du serveur mais aussi du nom de la db et du prefixe
+    // ce qui permet une auto invalidation en cas de modif manuelle du fichier
+    // de connexion, et tout risque d'ambiguite
+    if (!isset($nom_cache_desc_sql[$serveur][$objets_sql])) {
+        $nom_cache_desc_sql[$serveur][$objets_sql] =
+            _DIR_CACHE . 'sql_desc_'
+            . ($serveur ? "{$serveur}_" : '')
+            . substr(md5($connexion['db'] . ':' . $connexion['prefixe'] . ":$objets_sql"), 0, 8)
+            . '.txt';
+        // nouveau nom de cache = nouvelle version en memoire
+        unset($connexion['tables']);
+    }
+
+    // un appel avec $nom vide est une demande explicite de vidange du cache des descriptions
+    if (!$nom) {
+        spip_unlink($nom_cache_desc_sql[$serveur][$objets_sql]);
+        $connexion['tables'] = [];
+
+        return null;
+    }
+
+    $nom_sql = $nom;
+    if (preg_match('/\.(.*)$/', $nom, $s)) {
+        $nom_sql = $s[1];
+    } else {
+        $nom_sql = $nom;
+    }
+
+    $fdesc = $desc = '';
+    $connexion = &$GLOBALS['connexions'][$serveur ? $serveur : 0];
+
+    // base sous SPIP: gerer les abreviations explicites des noms de table
+    if ($connexion['spip_connect_version']) {
+        if ($table_spip and isset($GLOBALS['table_des_tables'][$nom])) {
+            $nom = $GLOBALS['table_des_tables'][$nom];
+            $nom_sql = 'spip_' . $nom;
+        }
+    }
+
+    // si c'est la premiere table qu'on cherche
+    // et si on est pas explicitement en recalcul
+    // on essaye de recharger le cache des decriptions de ce serveur
+    // dans le fichier cache
+    if (
+        !isset($connexion['tables'][$nom_sql])
+        and defined('_VAR_MODE') and _VAR_MODE !== 'recalcul'
+        and (!isset($connexion['tables']) or !$connexion['tables'])
+    ) {
+        if (
+            lire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], $desc_cache)
+            and $desc_cache = unserialize($desc_cache)
+        ) {
+            $connexion['tables'] = $desc_cache;
+        }
+    }
+    if ($table_spip and !isset($connexion['tables'][$nom_sql])) {
+        if (isset($GLOBALS['tables_principales'][$nom_sql])) {
+            $fdesc = $GLOBALS['tables_principales'][$nom_sql];
+        }
+        // meme si pas d'abreviation declaree, trouver la table spip_$nom
+        // si c'est une table principale,
+        // puisqu'on le fait aussi pour les tables auxiliaires
+        elseif ($nom_sql == $nom and isset($GLOBALS['tables_principales']['spip_' . $nom])) {
+            $nom_sql = 'spip_' . $nom;
+            $fdesc = &$GLOBALS['tables_principales'][$nom_sql];
+        } elseif (
+            isset($GLOBALS['tables_auxiliaires'][$n = $nom])
+            or isset($GLOBALS['tables_auxiliaires'][$n = 'spip_' . $nom])
+        ) {
+            $nom_sql = $n;
+            $fdesc = &$GLOBALS['tables_auxiliaires'][$n];
+        }  # table locale a cote de SPIP, comme non SPIP:
+    }
+    if (!isset($connexion['tables'][$nom_sql])) {
+        // La *vraie* base a la priorite
+        $exists = sql_table_exists($nom_sql, $table_spip, $serveur);
+        if (
+            !$exists
+            or !$desc = sql_showtable($nom_sql, $table_spip, $serveur)
+            or !$desc['field']
+        ) {
+            if (!$fdesc) {
+                $log_level = $options['log_missing'] ? _LOG_INFO_IMPORTANTE : _LOG_DEBUG;
+                spip_log("trouver_table: table inconnue '$serveur' '$nom'", 'base' . $log_level);
+
+                return null;
+            }
+            // on ne sait pas lire la structure de la table :
+            // on retombe sur la description donnee dans les fichiers spip
+            $desc = $fdesc;
+            $desc['exist'] = false;
+        } else {
+            $desc['exist'] = true;
+            // gerer le cas des cles vides (echec de l'analyse sur une vue par exemple)
+            // pour recuperer la declaration de lister_tables_objets_sql() si il y en a une
+            if (! $desc['key']) {
+                spip_log("trouver_table: table sans cle '$serveur' '$nom'", 'base');
+                unset($desc['key']);
+            }
+        }
+
+        $desc['table'] = $desc['table_sql'] = $nom_sql;
+        $desc['connexion'] = $serveur;
+
+        // charger les infos declarees pour cette table
+        // en lui passant les infos connues
+        // $desc est prioritaire pour la description de la table
+        $desc = array_merge(lister_tables_objets_sql($nom_sql, $desc), $desc);
+        // s'assurer qu'on a toujours un 'key'
+        if (!isset($desc['key']) && !empty($fdesc['key'])) {
+            $desc['key'] = $fdesc['key'];
+        }
+        if (! isset($desc['key'])) {
+            $desc['key'] = [];
+        }
+
+        // si tables_objets_sql est bien fini d'init, on peut cacher
+        $connexion['tables'][$nom_sql] = $desc;
+        $res = &$connexion['tables'][$nom_sql];
+        // une nouvelle table a ete decrite
+        // mettons donc a jour le cache des descriptions de ce serveur
+        if (is_writeable(_DIR_CACHE)) {
+            ecrire_fichier($nom_cache_desc_sql[$serveur][$objets_sql], serialize($connexion['tables']), true);
+        }
+    } else {
+        $res = &$connexion['tables'][$nom_sql];
+    }
+
+    // toujours retourner $nom dans id_table
+    $res['id_table'] = $nom;
+
+    return $res;
 }

ecrire/public/jointures.php

Indentation +398 added lines, -398 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,19 +242,19 @@ 
  * @return bool
  */
 function nogroupby_if($depart, $arrivee, $col) {
-	if (
-		empty($arrivee['key']['PRIMARY KEY'])
-		or !($pk = $arrivee['key']['PRIMARY KEY'])
-		or empty($depart['key']['PRIMARY KEY'])
-	) {
-		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));
+    if (
+        empty($arrivee['key']['PRIMARY KEY'])
+        or !($pk = $arrivee['key']['PRIMARY KEY'])
+        or empty($depart['key']['PRIMARY KEY'])
+    ) {
+        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));
 }
 
 /**
@@ -272,46 +272,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;
 }
 
 /**
@@ -322,14 +322,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;
 }
 
 /**
@@ -352,135 +352,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 [];
 }
 
 /**
@@ -491,18 +491,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);
 }
 
 
@@ -529,34 +529,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;
 }
 
 /**
@@ -582,52 +582,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 '';
 }
 
 /**
@@ -659,21 +659,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 '';
 }

ecrire/public/interfaces.php

Indentation +916 added lines, -916 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 
@@ -34,53 +34,53 @@ 
  * @package SPIP\Core\Compilateur\AST
  */
 class Contexte {
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 *
-	 * @var array
-	 */
-	public $descr = [];
-
-	/**
-	 * Identifiant de la boucle
-	 *
-	 * @var string
-	 */
-	public $id_boucle = '';
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 *
-	 * @var int
-	 */
-	public $ligne = 0;
-
-	/**
-	 * Langue d'exécution
-	 *
-	 * @var string
-	 */
-	public $lang = '';
-
-	/**
-	 * Résultat de la compilation: toujours une expression PHP
-	 *
-	 * @var string
-	 */
-	public $code = '';
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     *
+     * @var array
+     */
+    public $descr = [];
+
+    /**
+     * Identifiant de la boucle
+     *
+     * @var string
+     */
+    public $id_boucle = '';
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
+
+    /**
+     * Langue d'exécution
+     *
+     * @var string
+     */
+    public $lang = '';
+
+    /**
+     * Résultat de la compilation: toujours une expression PHP
+     *
+     * @var string
+     */
+    public $code = '';
 }
 
 
@@ -90,44 +90,44 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Texte {
-	/**
-	 * Type de noeud
-	 *
-	 * @var string
-	 */
-	public $type = 'texte';
-
-	/**
-	 * Le texte
-	 *
-	 * @var string
-	 */
-	public $texte;
-
-	/**
-	 * Contenu avant le texte.
-	 *
-	 * Vide ou apostrophe simple ou double si le texte en était entouré
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
-
-	/**
-	 * Contenu après le texte.
-	 *
-	 * Vide ou apostrophe simple ou double si le texte en était entouré
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 *
-	 * @var int
-	 */
-	public $ligne = 0;
+    /**
+     * Type de noeud
+     *
+     * @var string
+     */
+    public $type = 'texte';
+
+    /**
+     * Le texte
+     *
+     * @var string
+     */
+    public $texte;
+
+    /**
+     * Contenu avant le texte.
+     *
+     * Vide ou apostrophe simple ou double si le texte en était entouré
+     *
+     * @var string|array
+     */
+    public $avant = '';
+
+    /**
+     * Contenu après le texte.
+     *
+     * Vide ou apostrophe simple ou double si le texte en était entouré
+     *
+     * @var string|array
+     */
+    public $apres = '';
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
 }
 
 /**
@@ -136,50 +136,50 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Inclure {
-	/**
-	 * Type de noeud
-	 *
-	 * @var string
-	 */
-	public $type = 'include';
-
-	/**
-	 * Nom d'un fichier inclu
-	 *
-	 * - Objet Texte si inclusion d'un autre squelette
-	 * - chaîne si inclusion d'un fichier PHP directement
-	 *
-	 * @var string|Texte
-	 */
-	public $texte;
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 *
-	 * @var int
-	 */
-	public $ligne = 0;
-
-	/**
-	 * Valeurs des paramètres
-	 *
-	 * @var array
-	 */
-	public $param = [];
+    /**
+     * Type de noeud
+     *
+     * @var string
+     */
+    public $type = 'include';
+
+    /**
+     * Nom d'un fichier inclu
+     *
+     * - Objet Texte si inclusion d'un autre squelette
+     * - chaîne si inclusion d'un fichier PHP directement
+     *
+     * @var string|Texte
+     */
+    public $texte;
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $avant = '';
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $apres = '';
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
+
+    /**
+     * Valeurs des paramètres
+     *
+     * @var array
+     */
+    public $param = [];
 }
 
 
@@ -189,386 +189,386 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Boucle {
-	/**
-	 * Type de noeud
-	 *
-	 * @var string
-	 */
-	public $type = 'boucle';
-
-	/**
-	 * Identifiant de la boucle
-	 *
-	 * @var string
-	 */
-	public $id_boucle;
-
-	/**
-	 * Identifiant de la boucle parente
-	 *
-	 * @var string
-	 */
-	public $id_parent = '';
-
-	/**
-	 * Partie avant toujours affichee
-	 *
-	 * @var string|array
-	 */
-	public $preaff = '';
-
-	/**
-	 * Partie optionnelle avant
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
-
-	/**
-	 * Pour chaque élément
-	 *
-	 * @var string|array
-	 */
-	public $milieu = '';
-
-	/**
-	 * Partie optionnelle après
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
-
-	/**
-	 * Partie alternative, si pas de résultat dans la boucle
-	 *
-	 * @var string|array
-	 */
-	public $altern = '';
-
-	/**
-	 * Partie apres toujours affichee
-	 *
-	 * @var string|array
-	 */
-	public $postaff = '';
-
-
-	/**
-	 * La boucle doit-elle sélectionner la langue ?
-	 *
-	 * @var string|null
-	 */
-	public $lang_select;
-
-	/**
-	 * Alias de table d'application de la requête ou nom complet de la table SQL
-	 *
-	 * @var string|null
-	 */
-	public $type_requete;
-
-	/**
-	 * La table est elle optionnelle ?
-	 *
-	 * Si oui, aucune erreur ne sera générée si la table demandée n'est pas présente
-	 *
-	 * @var bool
-	 */
-	public $table_optionnelle = false;
-
-	/**
-	 * Nom du fichier de connexion
-	 *
-	 * @var string
-	 */
-	public $sql_serveur = '';
-
-	/**
-	 * Paramètres de la boucle
-	 *
-	 * Description des paramètres passés à la boucle, qui servent ensuite
-	 * au calcul des critères
-	 *
-	 * @var array
-	 */
-	public $param = [];
-
-	/**
-	 * Critères de la boucle
-	 *
-	 * @var Critere[]
-	 */
-	public $criteres = [];
-
-	/**
-	 * Textes insérés entre 2 éléments de boucle (critère inter)
-	 *
-	 * @var string[]
-	 */
-	public $separateur = [];
-
-	/**
-	 * Liste des jointures possibles avec cette table
-	 *
-	 * Les jointures par défaut de la table sont complétées en priorité
-	 * des jointures déclarées explicitement sur la boucle
-	 *
-	 * @see base_trouver_table_dist()
-	 * @var array
-	 */
-	public $jointures = [];
-
-	/**
-	 * Jointures explicites avec cette table
-	 *
-	 * Ces jointures sont utilisées en priorité par rapport aux jointures
-	 * normales possibles pour retrouver les colonnes demandées extérieures
-	 * à la boucle.
-	 *
-	 * @var string|bool
-	 */
-	public $jointures_explicites = false;
-
-	/**
-	 * Nom de la variable PHP stockant le noms de doublons utilisés "$doublons_index"
-	 *
-	 * @var string|null
-	 */
-	public $doublons;
-
-	/**
-	 * Code PHP ajouté au début de chaque itération de boucle.
-	 *
-	 * Utilisé entre autre par les critères {pagination}, {n-a,b}, {a/b}...
-	 *
-	 * @var string
-	 */
-	public $partie = '';
-
-	/**
-	 * Nombre de divisions de la boucle, d'éléments à afficher,
-	 * ou de soustractions d'éléments à faire
-	 *
-	 * Dans les critères limitant le nombre d'éléments affichés
-	 * {a,b}, {a,n-b}, {a/b}, {pagination b}, b est affecté à total_parties.
-	 *
-	 * @var string
-	 */
-	public $total_parties = '';
-
-	/**
-	 * Code PHP ajouté avant l'itération de boucle.
-	 *
-	 * Utilisé entre autre par les critères {pagination}, {a,b}, {a/b}
-	 * pour initialiser les variables de début et de fin d'itération.
-	 *
-	 * @var string
-	 */
-	public $mode_partie = '';
-
-	/**
-	 * Identifiant d'une boucle qui appelle celle-ci de manière récursive
-	 *
-	 * Si une boucle est appelée de manière récursive quelque part par
-	 * une autre boucle comme <BOUCLE_rec(boucle_identifiant) />, cette
-	 * boucle (identifiant) reçoit dans cette propriété l'identifiant
-	 * de l'appelant (rec)
-	 *
-	 * @var string
-	 */
-	public $externe = '';
-
-	// champs pour la construction de la requete SQL
-
-	/**
-	 * Liste des champs à récupérer par la boucle
-	 *
-	 * Expression 'table.nom_champ' ou calculée 'nom_champ AS x'
-	 *
-	 * @var string[]
-	 */
-	public $select = [];
-
-	/**
-	 * Liste des alias / tables SQL utilisées dans la boucle
-	 *
-	 * L'index est un identifiant (xx dans spip_xx assez souvent) qui servira
-	 * d'alias au nom de la table ; la valeur est le nom de la table SQL désirée.
-	 *
-	 * L'index 0 peut définir le type de sources de données de l'itérateur DATA
-	 *
-	 * @var string[]
-	 */
-	public $from = [];
-
-	/**
-	 * Liste des alias / type de jointures utilisées dans la boucle
-	 *
-	 * L'index est le nom d'alias (comme pour la propriété $from), et la valeur
-	 * un type de jointure parmi 'INNER', 'LEFT', 'RIGHT', 'OUTER'.
-	 *
-	 * Lorsque le type n'est pas déclaré pour un alias, c'est 'INNER'
-	 * qui sera utilisé par défaut (créant donc un INNER JOIN).
-	 *
-	 * @var string[]
-	 */
-	public $from_type = [];
-
-	/**
-	 * Liste des conditions WHERE de la boucle
-	 *
-	 * Permet de restreindre les éléments retournés par une boucle
-	 * en fonctions des conditions transmises dans ce tableau.
-	 *
-	 * Ce tableau peut avoir plusieurs niveaux de profondeur.
-	 *
-	 * Les éléments du premier niveau sont reliés par des AND, donc
-	 * chaque élément ajouté directement au where par
-	 * $boucle->where[] = array(...) ou $boucle->where[] = "'expression'"
-	 * est une condition AND en plus.
-	 *
-	 * Par contre, lorsqu'on indique un tableau, il peut décrire des relations
-	 * internes différentes. Soit $expr un tableau d'expressions quelconques de 3 valeurs :
-	 * $expr = array(operateur, val1, val2)
-	 *
-	 * Ces 3 valeurs sont des expressions PHP. L'index 0 désigne l'opérateur
-	 * à réaliser tel que :
-	 *
-	 * - "'='" , "'>='", "'<'", "'IN'", "'REGEXP'", "'LIKE'", ... :
-	 *    val1 et val2 sont des champs et valeurs à utiliser dans la comparaison
-	 *    suivant cet ordre : "val1 operateur val2".
-	 *    Exemple : $boucle->where[] = array("'='", "'articles.statut'", "'\"publie\"'");
-	 * - "'AND'", "'OR'", "'NOT'" :
-	 *    dans ce cas val1 et val2 sont également des expressions
-	 *    de comparaison complètes, et peuvent être eux-même des tableaux comme $expr
-	 *    Exemples :
-	 *    $boucle->where[] = array("'OR'", $expr1, $expr2);
-	 *    $boucle->where[] = array("'NOT'", $expr); // val2 n'existe pas avec NOT
-	 *
-	 * D'autres noms sont possibles pour l'opérateur (le nombre de valeurs diffère) :
-	 * - "'SELF'", "'SUBSELECT'" : indiquent des sous requêtes
-	 * - "'?'" : indique une condition à faire évaluer (val1 ? val2 : val3)
-	 *
-	 * @var array
-	 */
-	public $where = [];
-
-	public $join = [];
-	public $having = [];
-	public $limit;
-	public $group = [];
-	public $order = [];
-	public $default_order = [];
-	public $date = 'date';
-	public $hash = '';
-	public $in = '';
-	public $sous_requete = false;
-
-	/**
-	 * Code PHP qui sera ajouté en tout début de la fonction de boucle
-	 *
-	 * Il sert à insérer le code calculant une hierarchie
-	 *
-	 * @var string
-	 */
-	public $hierarchie = '';
-
-	// champs pour la construction du corps PHP
-
-	/**
-	 * Description des sources de données de la boucle
-	 *
-	 * Description des données de la boucle issu de trouver_table
-	 * dans le cadre de l'itérateur SQL et contenant au moins l'index 'field'.
-	 *
-	 * @see base_trouver_table_dist()
-	 * @var array
-	 */
-	public $show = [];
-
-	/**
-	 * Nom de la table SQL principale de la boucle, sans son préfixe
-	 *
-	 * @var string
-	 */
-	public $id_table;
-
-	/**
-	 * Nom de la clé primaire de la table SQL principale de la boucle
-	 *
-	 * @var string
-	 */
-	public $primary;
-
-	/**
-	 * Code PHP compilé de la boucle
-	 *
-	 * @var string
-	 */
-	public $return;
-
-	public $numrows = false;
-	public $cptrows = false;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 *
-	 * @var array
-	 */
-	public $descr = [];
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 *
-	 * @var int
-	 */
-	public $ligne = 0;
-
-
-	public $modificateur = []; // table pour stocker les modificateurs de boucle tels que tout, plat ..., utilisable par les plugins egalement
-
-	/**
-	 * Type d'itérateur utilisé pour cette boucle
-	 *
-	 * - 'SQL' dans le cadre d'une boucle sur une table SQL
-	 * - 'DATA' pour l'itérateur DATA, ...
-	 *
-	 * @var string
-	 */
-	public $iterateur = ''; // type d'iterateur
-
-	/**
-	 * @var array $debug Textes qui seront insérés dans l’entête de boucle du mode debug
-	 */
-	public $debug = [];
-
-	/**
-	 * Index de la boucle dont le champ présent dans cette boucle est originaire,
-	 * notamment si le champ a été trouve dans une boucle parente
-	 *
-	 * Tableau nom du champ => index de boucle
-	 *
-	 * @var array $index_champ
-	*/
-	public $index_champ = [];
-
-	// obsoletes, conserves provisoirement pour compatibilite
-	public $tout = false;
-	public $plat = false;
-	public $lien = false;
+    /**
+     * Type de noeud
+     *
+     * @var string
+     */
+    public $type = 'boucle';
+
+    /**
+     * Identifiant de la boucle
+     *
+     * @var string
+     */
+    public $id_boucle;
+
+    /**
+     * Identifiant de la boucle parente
+     *
+     * @var string
+     */
+    public $id_parent = '';
+
+    /**
+     * Partie avant toujours affichee
+     *
+     * @var string|array
+     */
+    public $preaff = '';
+
+    /**
+     * Partie optionnelle avant
+     *
+     * @var string|array
+     */
+    public $avant = '';
+
+    /**
+     * Pour chaque élément
+     *
+     * @var string|array
+     */
+    public $milieu = '';
+
+    /**
+     * Partie optionnelle après
+     *
+     * @var string|array
+     */
+    public $apres = '';
+
+    /**
+     * Partie alternative, si pas de résultat dans la boucle
+     *
+     * @var string|array
+     */
+    public $altern = '';
+
+    /**
+     * Partie apres toujours affichee
+     *
+     * @var string|array
+     */
+    public $postaff = '';
+
+
+    /**
+     * La boucle doit-elle sélectionner la langue ?
+     *
+     * @var string|null
+     */
+    public $lang_select;
+
+    /**
+     * Alias de table d'application de la requête ou nom complet de la table SQL
+     *
+     * @var string|null
+     */
+    public $type_requete;
+
+    /**
+     * La table est elle optionnelle ?
+     *
+     * Si oui, aucune erreur ne sera générée si la table demandée n'est pas présente
+     *
+     * @var bool
+     */
+    public $table_optionnelle = false;
+
+    /**
+     * Nom du fichier de connexion
+     *
+     * @var string
+     */
+    public $sql_serveur = '';
+
+    /**
+     * Paramètres de la boucle
+     *
+     * Description des paramètres passés à la boucle, qui servent ensuite
+     * au calcul des critères
+     *
+     * @var array
+     */
+    public $param = [];
+
+    /**
+     * Critères de la boucle
+     *
+     * @var Critere[]
+     */
+    public $criteres = [];
+
+    /**
+     * Textes insérés entre 2 éléments de boucle (critère inter)
+     *
+     * @var string[]
+     */
+    public $separateur = [];
+
+    /**
+     * Liste des jointures possibles avec cette table
+     *
+     * Les jointures par défaut de la table sont complétées en priorité
+     * des jointures déclarées explicitement sur la boucle
+     *
+     * @see base_trouver_table_dist()
+     * @var array
+     */
+    public $jointures = [];
+
+    /**
+     * Jointures explicites avec cette table
+     *
+     * Ces jointures sont utilisées en priorité par rapport aux jointures
+     * normales possibles pour retrouver les colonnes demandées extérieures
+     * à la boucle.
+     *
+     * @var string|bool
+     */
+    public $jointures_explicites = false;
+
+    /**
+     * Nom de la variable PHP stockant le noms de doublons utilisés "$doublons_index"
+     *
+     * @var string|null
+     */
+    public $doublons;
+
+    /**
+     * Code PHP ajouté au début de chaque itération de boucle.
+     *
+     * Utilisé entre autre par les critères {pagination}, {n-a,b}, {a/b}...
+     *
+     * @var string
+     */
+    public $partie = '';
+
+    /**
+     * Nombre de divisions de la boucle, d'éléments à afficher,
+     * ou de soustractions d'éléments à faire
+     *
+     * Dans les critères limitant le nombre d'éléments affichés
+     * {a,b}, {a,n-b}, {a/b}, {pagination b}, b est affecté à total_parties.
+     *
+     * @var string
+     */
+    public $total_parties = '';
+
+    /**
+     * Code PHP ajouté avant l'itération de boucle.
+     *
+     * Utilisé entre autre par les critères {pagination}, {a,b}, {a/b}
+     * pour initialiser les variables de début et de fin d'itération.
+     *
+     * @var string
+     */
+    public $mode_partie = '';
+
+    /**
+     * Identifiant d'une boucle qui appelle celle-ci de manière récursive
+     *
+     * Si une boucle est appelée de manière récursive quelque part par
+     * une autre boucle comme <BOUCLE_rec(boucle_identifiant) />, cette
+     * boucle (identifiant) reçoit dans cette propriété l'identifiant
+     * de l'appelant (rec)
+     *
+     * @var string
+     */
+    public $externe = '';
+
+    // champs pour la construction de la requete SQL
+
+    /**
+     * Liste des champs à récupérer par la boucle
+     *
+     * Expression 'table.nom_champ' ou calculée 'nom_champ AS x'
+     *
+     * @var string[]
+     */
+    public $select = [];
+
+    /**
+     * Liste des alias / tables SQL utilisées dans la boucle
+     *
+     * L'index est un identifiant (xx dans spip_xx assez souvent) qui servira
+     * d'alias au nom de la table ; la valeur est le nom de la table SQL désirée.
+     *
+     * L'index 0 peut définir le type de sources de données de l'itérateur DATA
+     *
+     * @var string[]
+     */
+    public $from = [];
+
+    /**
+     * Liste des alias / type de jointures utilisées dans la boucle
+     *
+     * L'index est le nom d'alias (comme pour la propriété $from), et la valeur
+     * un type de jointure parmi 'INNER', 'LEFT', 'RIGHT', 'OUTER'.
+     *
+     * Lorsque le type n'est pas déclaré pour un alias, c'est 'INNER'
+     * qui sera utilisé par défaut (créant donc un INNER JOIN).
+     *
+     * @var string[]
+     */
+    public $from_type = [];
+
+    /**
+     * Liste des conditions WHERE de la boucle
+     *
+     * Permet de restreindre les éléments retournés par une boucle
+     * en fonctions des conditions transmises dans ce tableau.
+     *
+     * Ce tableau peut avoir plusieurs niveaux de profondeur.
+     *
+     * Les éléments du premier niveau sont reliés par des AND, donc
+     * chaque élément ajouté directement au where par
+     * $boucle->where[] = array(...) ou $boucle->where[] = "'expression'"
+     * est une condition AND en plus.
+     *
+     * Par contre, lorsqu'on indique un tableau, il peut décrire des relations
+     * internes différentes. Soit $expr un tableau d'expressions quelconques de 3 valeurs :
+     * $expr = array(operateur, val1, val2)
+     *
+     * Ces 3 valeurs sont des expressions PHP. L'index 0 désigne l'opérateur
+     * à réaliser tel que :
+     *
+     * - "'='" , "'>='", "'<'", "'IN'", "'REGEXP'", "'LIKE'", ... :
+     *    val1 et val2 sont des champs et valeurs à utiliser dans la comparaison
+     *    suivant cet ordre : "val1 operateur val2".
+     *    Exemple : $boucle->where[] = array("'='", "'articles.statut'", "'\"publie\"'");
+     * - "'AND'", "'OR'", "'NOT'" :
+     *    dans ce cas val1 et val2 sont également des expressions
+     *    de comparaison complètes, et peuvent être eux-même des tableaux comme $expr
+     *    Exemples :
+     *    $boucle->where[] = array("'OR'", $expr1, $expr2);
+     *    $boucle->where[] = array("'NOT'", $expr); // val2 n'existe pas avec NOT
+     *
+     * D'autres noms sont possibles pour l'opérateur (le nombre de valeurs diffère) :
+     * - "'SELF'", "'SUBSELECT'" : indiquent des sous requêtes
+     * - "'?'" : indique une condition à faire évaluer (val1 ? val2 : val3)
+     *
+     * @var array
+     */
+    public $where = [];
+
+    public $join = [];
+    public $having = [];
+    public $limit;
+    public $group = [];
+    public $order = [];
+    public $default_order = [];
+    public $date = 'date';
+    public $hash = '';
+    public $in = '';
+    public $sous_requete = false;
+
+    /**
+     * Code PHP qui sera ajouté en tout début de la fonction de boucle
+     *
+     * Il sert à insérer le code calculant une hierarchie
+     *
+     * @var string
+     */
+    public $hierarchie = '';
+
+    // champs pour la construction du corps PHP
+
+    /**
+     * Description des sources de données de la boucle
+     *
+     * Description des données de la boucle issu de trouver_table
+     * dans le cadre de l'itérateur SQL et contenant au moins l'index 'field'.
+     *
+     * @see base_trouver_table_dist()
+     * @var array
+     */
+    public $show = [];
+
+    /**
+     * Nom de la table SQL principale de la boucle, sans son préfixe
+     *
+     * @var string
+     */
+    public $id_table;
+
+    /**
+     * Nom de la clé primaire de la table SQL principale de la boucle
+     *
+     * @var string
+     */
+    public $primary;
+
+    /**
+     * Code PHP compilé de la boucle
+     *
+     * @var string
+     */
+    public $return;
+
+    public $numrows = false;
+    public $cptrows = false;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     *
+     * @var array
+     */
+    public $descr = [];
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
+
+
+    public $modificateur = []; // table pour stocker les modificateurs de boucle tels que tout, plat ..., utilisable par les plugins egalement
+
+    /**
+     * Type d'itérateur utilisé pour cette boucle
+     *
+     * - 'SQL' dans le cadre d'une boucle sur une table SQL
+     * - 'DATA' pour l'itérateur DATA, ...
+     *
+     * @var string
+     */
+    public $iterateur = ''; // type d'iterateur
+
+    /**
+     * @var array $debug Textes qui seront insérés dans l’entête de boucle du mode debug
+     */
+    public $debug = [];
+
+    /**
+     * Index de la boucle dont le champ présent dans cette boucle est originaire,
+     * notamment si le champ a été trouve dans une boucle parente
+     *
+     * Tableau nom du champ => index de boucle
+     *
+     * @var array $index_champ
+     */
+    public $index_champ = [];
+
+    // obsoletes, conserves provisoirement pour compatibilite
+    public $tout = false;
+    public $plat = false;
+    public $lien = false;
 }
 
 /**
@@ -579,56 +579,56 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Critere {
-	/**
-	 * Type de noeud
-	 *
-	 * @var string
-	 */
-	public $type = 'critere';
-
-	/**
-	 * Opérateur (>, <, >=, IN, ...)
-	 *
-	 * @var null|string
-	 */
-	public $op;
-
-	/**
-	 * Présence d'une négation (truc !op valeur)
-	 *
-	 * @var null|string
-	 */
-	public $not;
-
-	/**
-	 * Présence d'une exclusion (!truc op valeur)
-	 *
-	 * @var null|string
-	 */
-	public $exclus;
-
-	/**
-	 * Présence d'une condition dans le critère (truc ?)
-	 *
-	 * @var bool
-	 */
-	public $cond = false;
-
-	/**
-	 * Paramètres du critère
-	 * - $param[0] : élément avant l'opérateur
-	 * - $param[1..n] : éléments après l'opérateur
-	 *
-	 * @var array
-	 */
-	public $param = [];
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 *
-	 * @var int
-	 */
-	public $ligne = 0;
+    /**
+     * Type de noeud
+     *
+     * @var string
+     */
+    public $type = 'critere';
+
+    /**
+     * Opérateur (>, <, >=, IN, ...)
+     *
+     * @var null|string
+     */
+    public $op;
+
+    /**
+     * Présence d'une négation (truc !op valeur)
+     *
+     * @var null|string
+     */
+    public $not;
+
+    /**
+     * Présence d'une exclusion (!truc op valeur)
+     *
+     * @var null|string
+     */
+    public $exclus;
+
+    /**
+     * Présence d'une condition dans le critère (truc ?)
+     *
+     * @var bool
+     */
+    public $cond = false;
+
+    /**
+     * Paramètres du critère
+     * - $param[0] : élément avant l'opérateur
+     * - $param[1..n] : éléments après l'opérateur
+     *
+     * @var array
+     */
+    public $param = [];
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
 }
 
 /**
@@ -637,139 +637,139 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Champ {
-	/**
-	 * Type de noeud
-	 *
-	 * @var string
-	 */
-	public $type = 'champ';
-
-	/**
-	 * Nom du champ demandé. Exemple 'ID_ARTICLE'
-	 *
-	 * @var string|null
-	 */
-	public $nom_champ;
-
-	/**
-	 * Identifiant de la boucle parente si explicité
-	 *
-	 * @var string|null
-	 */
-	public $nom_boucle = '';
-
-	/**
-	 * Partie optionnelle avant
-	 *
-	 * @var null|string|array
-	 */
-	public $avant;
-
-	/**
-	 * Partie optionnelle après
-	 *
-	 * @var null|string|array
-	 */
-	public $apres;
-
-	/**
-	 * Étoiles : annuler des automatismes
-	 *
-	 * - '*' annule les filtres automatiques
-	 * - '**' annule en plus les protections de scripts
-	 *
-	 * @var null|string
-	 */
-	public $etoile;
-
-	/**
-	 * Arguments et filtres explicites sur la balise
-	 *
-	 * - $param[0] contient les arguments de la balise
-	 * - $param[1..n] contient les filtres à appliquer à la balise
-	 *
-	 * @var array
-	 */
-	public $param = [];
-
-	/**
-	 * Source des filtres  (compatibilité) (?)
-	 *
-	 * @var array|null
-	 */
-	public $fonctions = [];
-
-	/**
-	 * Identifiant de la boucle
-	 *
-	 * @var string
-	 */
-	public $id_boucle = '';
-
-	/**
-	 * AST du squelette, liste de toutes les boucles
-	 *
-	 * @var Boucles[]
-	 */
-	public $boucles;
-
-	/**
-	 * Alias de table d'application de la requête ou nom complet de la table SQL
-	 *
-	 * @var string|null
-	 */
-	public $type_requete;
-
-	/**
-	 * Résultat de la compilation: toujours une expression PHP
-	 *
-	 * @var string
-	 */
-	public $code = '';
-
-	/**
-	 * Interdire les scripts
-	 *
-	 * false si on est sûr de cette balise
-	 *
-	 * @see interdire_scripts()
-	 * @var bool
-	 */
-	public $interdire_scripts = true;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 *
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 *
-	 * @var array
-	 */
-	public $descr = [];
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 *
-	 * @var int
-	 */
-	public $ligne = 0;
-
-	/**
-	 * Drapeau pour reperer les balises calculées par une fonction explicite
-	 *
-	 * @var bool
-	 */
-	public $balise_calculee = false;
+    /**
+     * Type de noeud
+     *
+     * @var string
+     */
+    public $type = 'champ';
+
+    /**
+     * Nom du champ demandé. Exemple 'ID_ARTICLE'
+     *
+     * @var string|null
+     */
+    public $nom_champ;
+
+    /**
+     * Identifiant de la boucle parente si explicité
+     *
+     * @var string|null
+     */
+    public $nom_boucle = '';
+
+    /**
+     * Partie optionnelle avant
+     *
+     * @var null|string|array
+     */
+    public $avant;
+
+    /**
+     * Partie optionnelle après
+     *
+     * @var null|string|array
+     */
+    public $apres;
+
+    /**
+     * Étoiles : annuler des automatismes
+     *
+     * - '*' annule les filtres automatiques
+     * - '**' annule en plus les protections de scripts
+     *
+     * @var null|string
+     */
+    public $etoile;
+
+    /**
+     * Arguments et filtres explicites sur la balise
+     *
+     * - $param[0] contient les arguments de la balise
+     * - $param[1..n] contient les filtres à appliquer à la balise
+     *
+     * @var array
+     */
+    public $param = [];
+
+    /**
+     * Source des filtres  (compatibilité) (?)
+     *
+     * @var array|null
+     */
+    public $fonctions = [];
+
+    /**
+     * Identifiant de la boucle
+     *
+     * @var string
+     */
+    public $id_boucle = '';
+
+    /**
+     * AST du squelette, liste de toutes les boucles
+     *
+     * @var Boucles[]
+     */
+    public $boucles;
+
+    /**
+     * Alias de table d'application de la requête ou nom complet de la table SQL
+     *
+     * @var string|null
+     */
+    public $type_requete;
+
+    /**
+     * Résultat de la compilation: toujours une expression PHP
+     *
+     * @var string
+     */
+    public $code = '';
+
+    /**
+     * Interdire les scripts
+     *
+     * false si on est sûr de cette balise
+     *
+     * @see interdire_scripts()
+     * @var bool
+     */
+    public $interdire_scripts = true;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     *
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     *
+     * @var array
+     */
+    public $descr = [];
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
+
+    /**
+     * Drapeau pour reperer les balises calculées par une fonction explicite
+     *
+     * @var bool
+     */
+    public $balise_calculee = false;
 }
 
 
@@ -777,123 +777,123 @@ 
  * Description d'une chaîne de langue
  **/
 class Idiome {
-	/**
-	 * Type de noeud
-	 *
-	 * @var string
-	 */
-	public $type = 'idiome';
-
-	/**
-	 * Clé de traduction demandée. Exemple 'item_oui'
-	 *
-	 * @var string
-	 */
-	public $nom_champ = '';
-
-	/**
-	 * Module de langue où chercher la clé de traduction. Exemple 'medias'
-	 *
-	 * @var string
-	 */
-	public $module = '';
-
-	/**
-	 * Arguments à passer à la chaîne
-	 *
-	 * @var array
-	 */
-	public $arg = [];
-
-	/**
-	 * Filtres à appliquer au résultat
-	 *
-	 * @var array
-	 */
-	public $param = [];
-
-	/**
-	 * Source des filtres  (compatibilité) (?)
-	 *
-	 * @var array|null
-	 */
-	public $fonctions = [];
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $avant = '';
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 *
-	 * @var string|array
-	 */
-	public $apres = '';
-
-	/**
-	 * Identifiant de la boucle
-	 *
-	 * @var string
-	 */
-	public $id_boucle = '';
-
-	/**
-	 * AST du squelette, liste de toutes les boucles
-	 *
-	 * @var Boucles[]
-	 */
-	public $boucles;
-
-	/**
-	 * Alias de table d'application de la requête ou nom complet de la table SQL
-	 *
-	 * @var string|null
-	 */
-	public $type_requete;
-
-	/**
-	 * Résultat de la compilation: toujours une expression PHP
-	 *
-	 * @var string
-	 */
-	public $code = '';
-
-	/**
-	 * Interdire les scripts
-	 *
-	 * @see interdire_scripts()
-	 * @var bool
-	 */
-	public $interdire_scripts = false;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 *
-	 * @var array
-	 */
-	public $descr = [];
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 *
-	 * @var int
-	 */
-	public $ligne = 0;
+    /**
+     * Type de noeud
+     *
+     * @var string
+     */
+    public $type = 'idiome';
+
+    /**
+     * Clé de traduction demandée. Exemple 'item_oui'
+     *
+     * @var string
+     */
+    public $nom_champ = '';
+
+    /**
+     * Module de langue où chercher la clé de traduction. Exemple 'medias'
+     *
+     * @var string
+     */
+    public $module = '';
+
+    /**
+     * Arguments à passer à la chaîne
+     *
+     * @var array
+     */
+    public $arg = [];
+
+    /**
+     * Filtres à appliquer au résultat
+     *
+     * @var array
+     */
+    public $param = [];
+
+    /**
+     * Source des filtres  (compatibilité) (?)
+     *
+     * @var array|null
+     */
+    public $fonctions = [];
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $avant = '';
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     *
+     * @var string|array
+     */
+    public $apres = '';
+
+    /**
+     * Identifiant de la boucle
+     *
+     * @var string
+     */
+    public $id_boucle = '';
+
+    /**
+     * AST du squelette, liste de toutes les boucles
+     *
+     * @var Boucles[]
+     */
+    public $boucles;
+
+    /**
+     * Alias de table d'application de la requête ou nom complet de la table SQL
+     *
+     * @var string|null
+     */
+    public $type_requete;
+
+    /**
+     * Résultat de la compilation: toujours une expression PHP
+     *
+     * @var string
+     */
+    public $code = '';
+
+    /**
+     * Interdire les scripts
+     *
+     * @see interdire_scripts()
+     * @var bool
+     */
+    public $interdire_scripts = false;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     *
+     * @var array
+     */
+    public $descr = [];
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
 }
 
 /**
@@ -902,28 +902,28 @@ 
  * @package SPIP\Core\Compilateur\AST
  **/
 class Polyglotte {
-	/**
-	 * Type de noeud
-	 *
-	 * @var string
-	 */
-	public $type = 'polyglotte';
-
-	/**
-	 * Tableau des traductions possibles classées par langue
-	 *
-	 * Tableau code de langue => texte
-	 *
-	 * @var array
-	 */
-	public $traductions = [];
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 *
-	 * @var int
-	 */
-	public $ligne = 0;
+    /**
+     * Type de noeud
+     *
+     * @var string
+     */
+    public $type = 'polyglotte';
+
+    /**
+     * Tableau des traductions possibles classées par langue
+     *
+     * Tableau code de langue => texte
+     *
+     * @var array
+     */
+    public $traductions = [];
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
 }
 
 
@@ -948,90 +948,90 @@ 
  */
 function declarer_interfaces() {
 
-	$GLOBALS['table_des_tables']['articles'] = 'articles';
-	$GLOBALS['table_des_tables']['auteurs'] = 'auteurs';
-	$GLOBALS['table_des_tables']['rubriques'] = 'rubriques';
-	$GLOBALS['table_des_tables']['hierarchie'] = 'rubriques';
-
-	// definition des statuts de publication
-	$GLOBALS['table_statut'] = [];
-
-	//
-	// tableau des tables de jointures
-	// Ex: gestion du critere {id_mot} dans la boucle(ARTICLES)
-	$GLOBALS['tables_jointures'] = [];
-	$GLOBALS['tables_jointures']['spip_jobs'][] = 'jobs_liens';
-
-	// $GLOBALS['exceptions_des_jointures']['titre_mot'] = array('spip_mots', 'titre'); // pour exemple
-	$GLOBALS['exceptions_des_jointures']['profondeur'] = ['spip_rubriques', 'profondeur'];
-
-
-	if (!defined('_TRAITEMENT_TYPO')) {
-		define('_TRAITEMENT_TYPO', 'typo(%s, "TYPO", $connect, $Pile[0])');
-	}
-	if (!defined('_TRAITEMENT_RACCOURCIS')) {
-		define('_TRAITEMENT_RACCOURCIS', 'propre(%s, $connect, $Pile[0])');
-	}
-	if (!defined('_TRAITEMENT_TYPO_SANS_NUMERO')) {
-		define('_TRAITEMENT_TYPO_SANS_NUMERO', 'supprimer_numero(typo(%s, "TYPO", $connect, $Pile[0]))');
-	}
-	$GLOBALS['table_des_traitements']['BIO'][] = 'safehtml(' . _TRAITEMENT_RACCOURCIS . ')';
-	$GLOBALS['table_des_traitements']['NOM_SITE']['spip_auteurs'] = 'entites_html(%s)';
-	$GLOBALS['table_des_traitements']['NOM']['spip_auteurs'] = 'safehtml(' . _TRAITEMENT_TYPO_SANS_NUMERO . ')';
-	$GLOBALS['table_des_traitements']['CHAPO'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['DATE'][] = 'normaliser_date(%s)';
-	$GLOBALS['table_des_traitements']['DATE_REDAC'][] = 'normaliser_date(%s)';
-	$GLOBALS['table_des_traitements']['DATE_MODIF'][] = 'normaliser_date(%s)';
-	$GLOBALS['table_des_traitements']['DATE_NOUVEAUTES'][] = 'normaliser_date(%s)';
-	$GLOBALS['table_des_traitements']['DESCRIPTIF'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['INTRODUCTION'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['NOM_SITE_SPIP'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['NOM'][] = _TRAITEMENT_TYPO_SANS_NUMERO;
-	$GLOBALS['table_des_traitements']['AUTEUR'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['PS'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['SOURCE'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['SOUSTITRE'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['SURTITRE'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['TAGS'][] = '%s';
-	$GLOBALS['table_des_traitements']['TEXTE'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['TITRE'][] = _TRAITEMENT_TYPO_SANS_NUMERO;
-	$GLOBALS['table_des_traitements']['TYPE'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['DESCRIPTIF_SITE_SPIP'][] = _TRAITEMENT_RACCOURCIS;
-	$GLOBALS['table_des_traitements']['SLOGAN_SITE_SPIP'][] = _TRAITEMENT_TYPO;
-	$GLOBALS['table_des_traitements']['ENV'][] = 'entites_html(%s,true)';
-
-	// valeur par defaut pour les balises non listees ci-dessus
-	$GLOBALS['table_des_traitements']['*'][] = false; // pas de traitement, mais permet au compilo de trouver la declaration suivante
-	// toujours securiser les DATA
-	$GLOBALS['table_des_traitements']['*']['DATA'] = 'safehtml(%s)';
-	// expliciter pour VALEUR qui est un champ calcule et ne sera pas protege par le catch-all *
-	$GLOBALS['table_des_traitements']['VALEUR']['DATA'] = 'safehtml(%s)';
-
-
-	// gerer l'affectation en 2 temps car si le pipe n'est pas encore declare, on ecrase les globales
-	$interfaces = pipeline(
-		'declarer_tables_interfaces',
-		[
-			'table_des_tables' => $GLOBALS['table_des_tables'],
-			'exceptions_des_tables' => $GLOBALS['exceptions_des_tables'],
-			'table_date' => $GLOBALS['table_date'],
-			'table_titre' => $GLOBALS['table_titre'],
-			'tables_jointures' => $GLOBALS['tables_jointures'],
-			'exceptions_des_jointures' => $GLOBALS['exceptions_des_jointures'],
-			'table_des_traitements' => $GLOBALS['table_des_traitements'],
-			'table_statut' => $GLOBALS['table_statut'],
-		]
-	);
-	if ($interfaces) {
-		$GLOBALS['table_des_tables'] = $interfaces['table_des_tables'];
-		$GLOBALS['exceptions_des_tables'] = $interfaces['exceptions_des_tables'];
-		$GLOBALS['table_date'] = $interfaces['table_date'];
-		$GLOBALS['table_titre'] = $interfaces['table_titre'];
-		$GLOBALS['tables_jointures'] = $interfaces['tables_jointures'];
-		$GLOBALS['exceptions_des_jointures'] = $interfaces['exceptions_des_jointures'];
-		$GLOBALS['table_des_traitements'] = $interfaces['table_des_traitements'];
-		$GLOBALS['table_statut'] = $interfaces['table_statut'];
-	}
+    $GLOBALS['table_des_tables']['articles'] = 'articles';
+    $GLOBALS['table_des_tables']['auteurs'] = 'auteurs';
+    $GLOBALS['table_des_tables']['rubriques'] = 'rubriques';
+    $GLOBALS['table_des_tables']['hierarchie'] = 'rubriques';
+
+    // definition des statuts de publication
+    $GLOBALS['table_statut'] = [];
+
+    //
+    // tableau des tables de jointures
+    // Ex: gestion du critere {id_mot} dans la boucle(ARTICLES)
+    $GLOBALS['tables_jointures'] = [];
+    $GLOBALS['tables_jointures']['spip_jobs'][] = 'jobs_liens';
+
+    // $GLOBALS['exceptions_des_jointures']['titre_mot'] = array('spip_mots', 'titre'); // pour exemple
+    $GLOBALS['exceptions_des_jointures']['profondeur'] = ['spip_rubriques', 'profondeur'];
+
+
+    if (!defined('_TRAITEMENT_TYPO')) {
+        define('_TRAITEMENT_TYPO', 'typo(%s, "TYPO", $connect, $Pile[0])');
+    }
+    if (!defined('_TRAITEMENT_RACCOURCIS')) {
+        define('_TRAITEMENT_RACCOURCIS', 'propre(%s, $connect, $Pile[0])');
+    }
+    if (!defined('_TRAITEMENT_TYPO_SANS_NUMERO')) {
+        define('_TRAITEMENT_TYPO_SANS_NUMERO', 'supprimer_numero(typo(%s, "TYPO", $connect, $Pile[0]))');
+    }
+    $GLOBALS['table_des_traitements']['BIO'][] = 'safehtml(' . _TRAITEMENT_RACCOURCIS . ')';
+    $GLOBALS['table_des_traitements']['NOM_SITE']['spip_auteurs'] = 'entites_html(%s)';
+    $GLOBALS['table_des_traitements']['NOM']['spip_auteurs'] = 'safehtml(' . _TRAITEMENT_TYPO_SANS_NUMERO . ')';
+    $GLOBALS['table_des_traitements']['CHAPO'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['DATE'][] = 'normaliser_date(%s)';
+    $GLOBALS['table_des_traitements']['DATE_REDAC'][] = 'normaliser_date(%s)';
+    $GLOBALS['table_des_traitements']['DATE_MODIF'][] = 'normaliser_date(%s)';
+    $GLOBALS['table_des_traitements']['DATE_NOUVEAUTES'][] = 'normaliser_date(%s)';
+    $GLOBALS['table_des_traitements']['DESCRIPTIF'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['INTRODUCTION'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['NOM_SITE_SPIP'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['NOM'][] = _TRAITEMENT_TYPO_SANS_NUMERO;
+    $GLOBALS['table_des_traitements']['AUTEUR'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['PS'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['SOURCE'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['SOUSTITRE'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['SURTITRE'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['TAGS'][] = '%s';
+    $GLOBALS['table_des_traitements']['TEXTE'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['TITRE'][] = _TRAITEMENT_TYPO_SANS_NUMERO;
+    $GLOBALS['table_des_traitements']['TYPE'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['DESCRIPTIF_SITE_SPIP'][] = _TRAITEMENT_RACCOURCIS;
+    $GLOBALS['table_des_traitements']['SLOGAN_SITE_SPIP'][] = _TRAITEMENT_TYPO;
+    $GLOBALS['table_des_traitements']['ENV'][] = 'entites_html(%s,true)';
+
+    // valeur par defaut pour les balises non listees ci-dessus
+    $GLOBALS['table_des_traitements']['*'][] = false; // pas de traitement, mais permet au compilo de trouver la declaration suivante
+    // toujours securiser les DATA
+    $GLOBALS['table_des_traitements']['*']['DATA'] = 'safehtml(%s)';
+    // expliciter pour VALEUR qui est un champ calcule et ne sera pas protege par le catch-all *
+    $GLOBALS['table_des_traitements']['VALEUR']['DATA'] = 'safehtml(%s)';
+
+
+    // gerer l'affectation en 2 temps car si le pipe n'est pas encore declare, on ecrase les globales
+    $interfaces = pipeline(
+        'declarer_tables_interfaces',
+        [
+            'table_des_tables' => $GLOBALS['table_des_tables'],
+            'exceptions_des_tables' => $GLOBALS['exceptions_des_tables'],
+            'table_date' => $GLOBALS['table_date'],
+            'table_titre' => $GLOBALS['table_titre'],
+            'tables_jointures' => $GLOBALS['tables_jointures'],
+            'exceptions_des_jointures' => $GLOBALS['exceptions_des_jointures'],
+            'table_des_traitements' => $GLOBALS['table_des_traitements'],
+            'table_statut' => $GLOBALS['table_statut'],
+        ]
+    );
+    if ($interfaces) {
+        $GLOBALS['table_des_tables'] = $interfaces['table_des_tables'];
+        $GLOBALS['exceptions_des_tables'] = $interfaces['exceptions_des_tables'];
+        $GLOBALS['table_date'] = $interfaces['table_date'];
+        $GLOBALS['table_titre'] = $interfaces['table_titre'];
+        $GLOBALS['tables_jointures'] = $interfaces['tables_jointures'];
+        $GLOBALS['exceptions_des_jointures'] = $interfaces['exceptions_des_jointures'];
+        $GLOBALS['table_des_traitements'] = $interfaces['table_des_traitements'];
+        $GLOBALS['table_statut'] = $interfaces['table_statut'];
+    }
 }
 
 declarer_interfaces();

ecrire/public/criteres.php

Indentation +1723 added lines, -1723 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -43,14 +43,14 @@ 
  **/
 function critere_racine_dist($idb, &$boucles, $crit) {
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
-		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
-		'id_parent';
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
+        $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
+        'id_parent';
 
-	$c = ["'='", "'$boucle->id_table." . "$id_parent'", 0];
-	$boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
+    $c = ["'='", "'$boucle->id_table." . "$id_parent'", 0];
+    $boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
 }
 
 
@@ -67,15 +67,15 @@ 
  * @return void
  **/
 function critere_exclus_dist($idb, &$boucles, $crit) {
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$id = $boucle->primary;
-
-	if ($not or !$id) {
-		return (['zbug_critere_inconnu', ['critere' => $not . $crit->op]]);
-	}
-	$arg = kwote(calculer_argument_precedent($idb, $id, $boucles));
-	$boucle->where[] = ["'!='", "'$boucle->id_table." . "$id'", $arg];
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $id = $boucle->primary;
+
+    if ($not or !$id) {
+        return (['zbug_critere_inconnu', ['critere' => $not . $crit->op]]);
+    }
+    $arg = kwote(calculer_argument_precedent($idb, $id, $boucles));
+    $boucle->where[] = ["'!='", "'$boucle->id_table." . "$id'", $arg];
 }
 
 
@@ -95,73 +95,73 @@ 
  * @return void
  **/
 function critere_doublons_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$primary = $boucle->primary;
-
-	// la table nécessite une clé primaire, non composée
-	if (!$primary or strpos($primary, ',')) {
-		return (['zbug_doublon_sur_table_sans_cle_primaire']);
-	}
-
-	$not = ($crit->not ? '' : 'NOT');
-
-	// le doublon s'applique sur un type de boucle (article)
-	$nom = "'" . $boucle->type_requete . "'";
-
-	// compléter le nom avec un nom précisé {doublons nom}
-	// on obtient $nom = "'article' . 'nom'"
-	if (isset($crit->param[0])) {
-		$nom .= '.' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-	}
-
-	// code qui déclarera l'index du stockage de nos doublons (pour éviter une notice PHP)
-	$init_comment = "\n\n\t// Initialise le(s) critère(s) doublons\n";
-	$init_code = "\tif (!isset(\$doublons[\$d = $nom])) { \$doublons[\$d] = ''; }\n";
-
-	// on crée un sql_in avec la clé primaire de la table
-	// et la collection des doublons déjà emmagasinés dans le tableau
-	// $doublons et son index, ici $nom
-
-	// debut du code "sql_in('articles.id_article', "
-	$debut_in = "sql_in('" . $boucle->id_table . '.' . $primary . "', ";
-	// lecture des données du doublon "$doublons[$doublon_index[] = "
-	// Attention : boucle->doublons désigne une variable qu'on affecte
-	$debut_doub = '$doublons[' . (!$not ? '' : ($boucle->doublons . '[]= '));
-
-	// le debut complet du code des doublons
-	$debut_doub = $debut_in . $debut_doub;
-
-	// nom du doublon "('article' . 'nom')]"
-	$fin_doub = "($nom)]";
-
-	// si on trouve un autre critère doublon,
-	// on fusionne pour avoir un seul IN, et on s'en va !
-	foreach ($boucle->where as $k => $w) {
-		if (strpos($w[0], $debut_doub) === 0) {
-			// fusionner le sql_in (du where)
-			$boucle->where[$k][0] = $debut_doub . $fin_doub . ' . ' . substr($w[0], strlen($debut_in));
-			// fusionner l'initialisation (du hash) pour faire plus joli
-			$x = strpos($boucle->hash, $init_comment);
-			$len = strlen($init_comment);
-			$boucle->hash =
-				substr($boucle->hash, 0, $x + $len) . $init_code . substr($boucle->hash, $x + $len);
-
-			return;
-		}
-	}
-
-	// mettre l'ensemble dans un tableau pour que ce ne soit pas vu comme une constante
-	$boucle->where[] = [$debut_doub . $fin_doub . ", '" . $not . "')"];
-
-	// déclarer le doublon s'il n'existe pas encore
-	$boucle->hash .= $init_comment . $init_code;
-
-
-	# la ligne suivante avait l'intention d'eviter une collecte deja faite
-	# mais elle fait planter une boucle a 2 critere doublons:
-	# {!doublons A}{doublons B}
-	# (de http://article.gmane.org/gmane.comp.web.spip.devel/31034)
-	#	if ($crit->not) $boucle->doublons = "";
+    $boucle = &$boucles[$idb];
+    $primary = $boucle->primary;
+
+    // la table nécessite une clé primaire, non composée
+    if (!$primary or strpos($primary, ',')) {
+        return (['zbug_doublon_sur_table_sans_cle_primaire']);
+    }
+
+    $not = ($crit->not ? '' : 'NOT');
+
+    // le doublon s'applique sur un type de boucle (article)
+    $nom = "'" . $boucle->type_requete . "'";
+
+    // compléter le nom avec un nom précisé {doublons nom}
+    // on obtient $nom = "'article' . 'nom'"
+    if (isset($crit->param[0])) {
+        $nom .= '.' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+    }
+
+    // code qui déclarera l'index du stockage de nos doublons (pour éviter une notice PHP)
+    $init_comment = "\n\n\t// Initialise le(s) critère(s) doublons\n";
+    $init_code = "\tif (!isset(\$doublons[\$d = $nom])) { \$doublons[\$d] = ''; }\n";
+
+    // on crée un sql_in avec la clé primaire de la table
+    // et la collection des doublons déjà emmagasinés dans le tableau
+    // $doublons et son index, ici $nom
+
+    // debut du code "sql_in('articles.id_article', "
+    $debut_in = "sql_in('" . $boucle->id_table . '.' . $primary . "', ";
+    // lecture des données du doublon "$doublons[$doublon_index[] = "
+    // Attention : boucle->doublons désigne une variable qu'on affecte
+    $debut_doub = '$doublons[' . (!$not ? '' : ($boucle->doublons . '[]= '));
+
+    // le debut complet du code des doublons
+    $debut_doub = $debut_in . $debut_doub;
+
+    // nom du doublon "('article' . 'nom')]"
+    $fin_doub = "($nom)]";
+
+    // si on trouve un autre critère doublon,
+    // on fusionne pour avoir un seul IN, et on s'en va !
+    foreach ($boucle->where as $k => $w) {
+        if (strpos($w[0], $debut_doub) === 0) {
+            // fusionner le sql_in (du where)
+            $boucle->where[$k][0] = $debut_doub . $fin_doub . ' . ' . substr($w[0], strlen($debut_in));
+            // fusionner l'initialisation (du hash) pour faire plus joli
+            $x = strpos($boucle->hash, $init_comment);
+            $len = strlen($init_comment);
+            $boucle->hash =
+                substr($boucle->hash, 0, $x + $len) . $init_code . substr($boucle->hash, $x + $len);
+
+            return;
+        }
+    }
+
+    // mettre l'ensemble dans un tableau pour que ce ne soit pas vu comme une constante
+    $boucle->where[] = [$debut_doub . $fin_doub . ", '" . $not . "')"];
+
+    // déclarer le doublon s'il n'existe pas encore
+    $boucle->hash .= $init_comment . $init_code;
+
+
+    # la ligne suivante avait l'intention d'eviter une collecte deja faite
+    # mais elle fait planter une boucle a 2 critere doublons:
+    # {!doublons A}{doublons B}
+    # (de http://article.gmane.org/gmane.comp.web.spip.devel/31034)
+    #	if ($crit->not) $boucle->doublons = "";
 }
 
 
@@ -182,14 +182,14 @@ 
  * @return void
  **/
 function critere_lang_select_dist($idb, &$boucles, $crit) {
-	if (!isset($crit->param[1][0]) or !($param = $crit->param[1][0]->texte)) {
-		$param = 'oui';
-	}
-	if ($crit->not) {
-		$param = ($param == 'oui') ? 'non' : 'oui';
-	}
-	$boucle = &$boucles[$idb];
-	$boucle->lang_select = $param;
+    if (!isset($crit->param[1][0]) or !($param = $crit->param[1][0]->texte)) {
+        $param = 'oui';
+    }
+    if ($crit->not) {
+        $param = ($param == 'oui') ? 'non' : 'oui';
+    }
+    $boucle = &$boucles[$idb];
+    $boucle->lang_select = $param;
 }
 
 
@@ -211,18 +211,18 @@ 
  * @return void
  **/
 function critere_debut_dist($idb, &$boucles, $crit) {
-	list($un, $deux) = $crit->param;
-	$un = $un[0]->texte;
-	$deux = $deux[0]->texte;
-	if ($deux) {
-		$boucles[$idb]->limit = 'intval($Pile[0]["debut' .
-			$un .
-			'"]) . ",' .
-			$deux .
-			'"';
-	} else {
-		calculer_critere_DEFAUT_dist($idb, $boucles, $crit);
-	}
+    list($un, $deux) = $crit->param;
+    $un = $un[0]->texte;
+    $deux = $deux[0]->texte;
+    if ($deux) {
+        $boucles[$idb]->limit = 'intval($Pile[0]["debut' .
+            $un .
+            '"]) . ",' .
+            $deux .
+            '"';
+    } else {
+        calculer_critere_DEFAUT_dist($idb, $boucles, $crit);
+    }
 }
 
 
@@ -256,58 +256,58 @@ 
  **/
 function critere_pagination_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	// definition de la taille de la page
-	$pas = !isset($crit->param[0][0]) ? "''"
-		: calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
-
-	if (!preg_match(_CODE_QUOTE, $pas, $r)) {
-		$pas = "((\$a = intval($pas)) ? \$a : 10)";
-	} else {
-		$r = intval($r[2]);
-		$pas = strval($r ? $r : 10);
-	}
-
-	// Calcul du nommage de la pagination si il existe.
-	// La nouvelle syntaxe {pagination 20, nom} est prise en compte et privilégiée mais on reste
-	// compatible avec l'ancienne car certains cas fonctionnent correctement
-	$type = "'$idb'";
-	// Calcul d'un nommage spécifique de la pagination si précisé.
-	// Syntaxe {pagination 20, nom}
-	if (isset($crit->param[0][1])) {
-		$type = calculer_liste([$crit->param[0][1]], $idb, $boucles, $boucle->id_parent);
-	} // Ancienne syntaxe {pagination 20 nom} pour compatibilité
-	elseif (isset($crit->param[1][0])) {
-		$type = calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
-	}
-
-	$debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut" . substr($type, 1));
-	$boucle->modificateur['debut_nom'] = $type;
-	$partie =
-		// tester si le numero de page demande est de la forme '@yyy'
-		'isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : _request(' . $debut . ");\n"
-		. "\tif(substr(\$debut_boucle,0,1)=='@'){\n"
-		. "\t\t" . '$debut_boucle = $Pile[0][' . $debut . '] = quete_debut_pagination(\'' . $boucle->primary . '\',$Pile[0][\'@' . $boucle->primary . '\'] = substr($debut_boucle,1),' . $pas . ',$iter);' . "\n"
-		. "\t\t" . '$iter->seek(0);' . "\n"
-		. "\t}\n"
-		. "\t" . '$debut_boucle = intval($debut_boucle)';
-
-	$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    // definition de la taille de la page
+    $pas = !isset($crit->param[0][0]) ? "''"
+        : calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
+
+    if (!preg_match(_CODE_QUOTE, $pas, $r)) {
+        $pas = "((\$a = intval($pas)) ? \$a : 10)";
+    } else {
+        $r = intval($r[2]);
+        $pas = strval($r ? $r : 10);
+    }
+
+    // Calcul du nommage de la pagination si il existe.
+    // La nouvelle syntaxe {pagination 20, nom} est prise en compte et privilégiée mais on reste
+    // compatible avec l'ancienne car certains cas fonctionnent correctement
+    $type = "'$idb'";
+    // Calcul d'un nommage spécifique de la pagination si précisé.
+    // Syntaxe {pagination 20, nom}
+    if (isset($crit->param[0][1])) {
+        $type = calculer_liste([$crit->param[0][1]], $idb, $boucles, $boucle->id_parent);
+    } // Ancienne syntaxe {pagination 20 nom} pour compatibilité
+    elseif (isset($crit->param[1][0])) {
+        $type = calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
+    }
+
+    $debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut" . substr($type, 1));
+    $boucle->modificateur['debut_nom'] = $type;
+    $partie =
+        // tester si le numero de page demande est de la forme '@yyy'
+        'isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : _request(' . $debut . ");\n"
+        . "\tif(substr(\$debut_boucle,0,1)=='@'){\n"
+        . "\t\t" . '$debut_boucle = $Pile[0][' . $debut . '] = quete_debut_pagination(\'' . $boucle->primary . '\',$Pile[0][\'@' . $boucle->primary . '\'] = substr($debut_boucle,1),' . $pas . ',$iter);' . "\n"
+        . "\t\t" . '$iter->seek(0);' . "\n"
+        . "\t}\n"
+        . "\t" . '$debut_boucle = intval($debut_boucle)';
+
+    $boucle->hash .= '
 	$command[\'pagination\'] = array((isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : null), ' . $pas . ');';
 
-	$boucle->total_parties = $pas;
-	calculer_parties($boucles, $idb, $partie, 'p+');
-	// ajouter la cle primaire dans le select pour pouvoir gerer la pagination referencee par @id
-	// sauf si pas de primaire, ou si primaire composee
-	// dans ce cas, on ne sait pas gerer une pagination indirecte
-	$t = $boucle->id_table . '.' . $boucle->primary;
-	if (
-		$boucle->primary
-		and !preg_match('/[,\s]/', $boucle->primary)
-		and !in_array($t, $boucle->select)
-	) {
-		$boucle->select[] = $t;
-	}
+    $boucle->total_parties = $pas;
+    calculer_parties($boucles, $idb, $partie, 'p+');
+    // ajouter la cle primaire dans le select pour pouvoir gerer la pagination referencee par @id
+    // sauf si pas de primaire, ou si primaire composee
+    // dans ce cas, on ne sait pas gerer une pagination indirecte
+    $t = $boucle->id_table . '.' . $boucle->primary;
+    if (
+        $boucle->primary
+        and !preg_match('/[,\s]/', $boucle->primary)
+        and !in_array($t, $boucle->select)
+    ) {
+        $boucle->select[] = $t;
+    }
 }
 
 
@@ -329,24 +329,24 @@ 
  **/
 function critere_recherche_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
+    $boucle = &$boucles[$idb];
 
-	if (!$boucle->primary or strpos($boucle->primary, ',')) {
-		erreur_squelette(_T('zbug_critere_sur_table_sans_cle_primaire', ['critere' => 'recherche']), $boucle);
+    if (!$boucle->primary or strpos($boucle->primary, ',')) {
+        erreur_squelette(_T('zbug_critere_sur_table_sans_cle_primaire', ['critere' => 'recherche']), $boucle);
 
-		return;
-	}
+        return;
+    }
 
-	if (isset($crit->param[0])) {
-		$quoi = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-	} else {
-		$quoi = '(isset($Pile[0]["recherche"])?$Pile[0]["recherche"]:(isset($GLOBALS["recherche"])?$GLOBALS["recherche"]:""))';
-	}
+    if (isset($crit->param[0])) {
+        $quoi = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+    } else {
+        $quoi = '(isset($Pile[0]["recherche"])?$Pile[0]["recherche"]:(isset($GLOBALS["recherche"])?$GLOBALS["recherche"]:""))';
+    }
 
-	$_modificateur = var_export($boucle->modificateur, true);
-	$boucle->hash .= '
+    $_modificateur = var_export($boucle->modificateur, true);
+    $boucle->hash .= '
 	// RECHERCHE'
-		. ($crit->cond ? '
+        . ($crit->cond ? '
 	if (!strlen(' . $quoi . ')){
 		list($rech_select, $rech_where) = array("0 as points","");
 	} else' : '') . '
@@ -357,21 +357,21 @@ 
 	';
 
 
-	$t = $boucle->id_table . '.' . $boucle->primary;
-	if (!in_array($t, $boucles[$idb]->select)) {
-		$boucle->select[] = $t;
-	} # pour postgres, neuneu ici
-	// jointure uniquement sur le serveur principal
-	// (on ne peut joindre une table d'un serveur distant avec la table des resultats du serveur principal)
-	if (!$boucle->sql_serveur) {
-		$boucle->join['resultats'] = ["'" . $boucle->id_table . "'", "'id'", "'" . $boucle->primary . "'"];
-		$boucle->from['resultats'] = 'spip_resultats';
-	}
-	$boucle->select[] = '$rech_select';
-	//$boucle->where[]= "\$rech_where?'resultats.id=".$boucle->id_table.".".$boucle->primary."':''";
-
-	// et la recherche trouve
-	$boucle->where[] = '$rech_where?$rech_where:\'\'';
+    $t = $boucle->id_table . '.' . $boucle->primary;
+    if (!in_array($t, $boucles[$idb]->select)) {
+        $boucle->select[] = $t;
+    } # pour postgres, neuneu ici
+    // jointure uniquement sur le serveur principal
+    // (on ne peut joindre une table d'un serveur distant avec la table des resultats du serveur principal)
+    if (!$boucle->sql_serveur) {
+        $boucle->join['resultats'] = ["'" . $boucle->id_table . "'", "'id'", "'" . $boucle->primary . "'"];
+        $boucle->from['resultats'] = 'spip_resultats';
+    }
+    $boucle->select[] = '$rech_select';
+    //$boucle->where[]= "\$rech_where?'resultats.id=".$boucle->id_table.".".$boucle->primary."':''";
+
+    // et la recherche trouve
+    $boucle->where[] = '$rech_where?$rech_where:\'\'';
 }
 
 /**
@@ -388,25 +388,25 @@ 
  * @return void
  **/
 function critere_traduction_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$prim = $boucle->primary;
-	$table = $boucle->id_table;
-	$arg = kwote(calculer_argument_precedent($idb, 'id_trad', $boucles));
-	$dprim = kwote(calculer_argument_precedent($idb, $prim, $boucles));
-	$boucle->where[] =
-		[
-			"'OR'",
-			[
-				"'AND'",
-				["'='", "'$table.id_trad'", 0],
-				["'='", "'$table.$prim'", $dprim]
-			],
-			[
-				"'AND'",
-				["'>'", "'$table.id_trad'", 0],
-				["'='", "'$table.id_trad'", $arg]
-			]
-		];
+    $boucle = &$boucles[$idb];
+    $prim = $boucle->primary;
+    $table = $boucle->id_table;
+    $arg = kwote(calculer_argument_precedent($idb, 'id_trad', $boucles));
+    $dprim = kwote(calculer_argument_precedent($idb, $prim, $boucles));
+    $boucle->where[] =
+        [
+            "'OR'",
+            [
+                "'AND'",
+                ["'='", "'$table.id_trad'", 0],
+                ["'='", "'$table.$prim'", $dprim]
+            ],
+            [
+                "'AND'",
+                ["'>'", "'$table.id_trad'", 0],
+                ["'='", "'$table.id_trad'", $arg]
+            ]
+        ];
 }
 
 
@@ -424,17 +424,17 @@ 
  * @return void
  **/
 function critere_origine_traduction_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$prim = $boucle->primary;
-	$table = $boucle->id_table;
-
-	$c =
-		[
-			"'OR'",
-			["'='", "'$table." . "id_trad'", "'$table.$prim'"],
-			["'='", "'$table.id_trad'", "'0'"]
-		];
-	$boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
+    $boucle = &$boucles[$idb];
+    $prim = $boucle->primary;
+    $table = $boucle->id_table;
+
+    $c =
+        [
+            "'OR'",
+            ["'='", "'$table." . "id_trad'", "'$table.$prim'"],
+            ["'='", "'$table.id_trad'", "'0'"]
+        ];
+    $boucle->where[] = ($crit->not ? ["'NOT'", $c] : $c);
 }
 
 
@@ -451,19 +451,19 @@ 
  **/
 function critere_meme_parent_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	$arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles));
-	$id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
-		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
-		'id_parent';
-	$mparent = $boucle->id_table . '.' . $id_parent;
-
-	if ($boucle->type_requete == 'rubriques' or isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'])) {
-		$boucle->where[] = ["'='", "'$mparent'", $arg];
-	} // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist()
-	else {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $boucle->type_requete]]);
-	}
+    $boucle = &$boucles[$idb];
+    $arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles));
+    $id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
+        $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
+        'id_parent';
+    $mparent = $boucle->id_table . '.' . $id_parent;
+
+    if ($boucle->type_requete == 'rubriques' or isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'])) {
+        $boucle->where[] = ["'='", "'$mparent'", $arg];
+    } // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist()
+    else {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $boucle->type_requete]]);
+    }
 }
 
 
@@ -494,37 +494,37 @@ 
  **/
 function critere_branche_dist($idb, &$boucles, $crit) {
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	// prendre en priorite un identifiant en parametre {branche XX}
-	if (isset($crit->param[0])) {
-		$arg = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-		// sinon on le prend chez une boucle parente
-	} else {
-		$arg = kwote(calculer_argument_precedent($idb, 'id_rubrique', $boucles), $boucle->sql_serveur, 'int NOT NULL');
-	}
-
-	//Trouver une jointure
-	$champ = 'id_rubrique';
-	$desc = $boucle->show;
-	//Seulement si necessaire
-	if (!array_key_exists($champ, $desc['field'])) {
-		$cle = trouver_jointure_champ($champ, $boucle);
-		$trouver_table = charger_fonction('trouver_table', 'base');
-		$desc = $trouver_table($boucle->from[$cle]);
-		if (count(trouver_champs_decomposes($champ, $desc)) > 1) {
-			$decompose = decompose_champ_id_objet($champ);
-			$champ = array_shift($decompose);
-			$boucle->where[] = ["'='", _q($cle . '.' . reset($decompose)), '"' . sql_quote(end($decompose)) . '"'];
-		}
-	} else {
-		$cle = $boucle->id_table;
-	}
-
-	$c = "sql_in('$cle" . ".$champ', calcul_branche_in($arg)"
-		. ($not ? ", 'NOT'" : '') . ')';
-	$boucle->where[] = !$crit->cond ? $c :
-		("($arg ? $c : " . ($not ? "'0=1'" : "'1=1'") . ')');
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    // prendre en priorite un identifiant en parametre {branche XX}
+    if (isset($crit->param[0])) {
+        $arg = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+        // sinon on le prend chez une boucle parente
+    } else {
+        $arg = kwote(calculer_argument_precedent($idb, 'id_rubrique', $boucles), $boucle->sql_serveur, 'int NOT NULL');
+    }
+
+    //Trouver une jointure
+    $champ = 'id_rubrique';
+    $desc = $boucle->show;
+    //Seulement si necessaire
+    if (!array_key_exists($champ, $desc['field'])) {
+        $cle = trouver_jointure_champ($champ, $boucle);
+        $trouver_table = charger_fonction('trouver_table', 'base');
+        $desc = $trouver_table($boucle->from[$cle]);
+        if (count(trouver_champs_decomposes($champ, $desc)) > 1) {
+            $decompose = decompose_champ_id_objet($champ);
+            $champ = array_shift($decompose);
+            $boucle->where[] = ["'='", _q($cle . '.' . reset($decompose)), '"' . sql_quote(end($decompose)) . '"'];
+        }
+    } else {
+        $cle = $boucle->id_table;
+    }
+
+    $c = "sql_in('$cle" . ".$champ', calcul_branche_in($arg)"
+        . ($not ? ", 'NOT'" : '') . ')';
+    $boucle->where[] = !$crit->cond ? $c :
+        ("($arg ? $c : " . ($not ? "'0=1'" : "'1=1'") . ')');
 }
 
 /**
@@ -540,15 +540,15 @@ 
  **/
 function critere_logo_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	$not = ($crit->not ? 'NOT' : '');
-	$serveur = $boucle->sql_serveur;
+    $boucle = &$boucles[$idb];
+    $not = ($crit->not ? 'NOT' : '');
+    $serveur = $boucle->sql_serveur;
 
-	$c = "sql_in('" .
-		$boucle->id_table . '.' . $boucle->primary
-		. "', lister_objets_avec_logos('" . $boucle->primary . "'), '$not', '$serveur')";
+    $c = "sql_in('" .
+        $boucle->id_table . '.' . $boucle->primary
+        . "', lister_objets_avec_logos('" . $boucle->primary . "'), '$not', '$serveur')";
 
-	$boucle->where[] = $c;
+    $boucle->where[] = $c;
 }
 
 
@@ -570,31 +570,31 @@ 
  * @return void
  **/
 function critere_fusion_dist($idb, &$boucles, $crit) {
-	if ($t = isset($crit->param[0])) {
-		$t = $crit->param[0];
-		if ($t[0]->type == 'texte') {
-			$t = $t[0]->texte;
-			if (preg_match('/^(.*)\.(.*)$/', $t, $r)) {
-				$t = table_objet_sql($r[1]);
-				$t = array_search($t, $boucles[$idb]->from);
-				if ($t) {
-					$t .= '.' . $r[2];
-				}
-			}
-		} else {
-			$t = '".'
-				. calculer_critere_arg_dynamique($idb, $boucles, $t)
-				. '."';
-		}
-	}
-	if ($t) {
-		$boucles[$idb]->group[] = $t;
-		if (!in_array($t, $boucles[$idb]->select)) {
-			$boucles[$idb]->select[] = $t;
-		}
-	} else {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]);
-	}
+    if ($t = isset($crit->param[0])) {
+        $t = $crit->param[0];
+        if ($t[0]->type == 'texte') {
+            $t = $t[0]->texte;
+            if (preg_match('/^(.*)\.(.*)$/', $t, $r)) {
+                $t = table_objet_sql($r[1]);
+                $t = array_search($t, $boucles[$idb]->from);
+                if ($t) {
+                    $t .= '.' . $r[2];
+                }
+            }
+        } else {
+            $t = '".'
+                . calculer_critere_arg_dynamique($idb, $boucles, $t)
+                . '."';
+        }
+    }
+    if ($t) {
+        $boucles[$idb]->group[] = $t;
+        if (!in_array($t, $boucles[$idb]->select)) {
+            $boucles[$idb]->select[] = $t;
+        }
+    } else {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]);
+    }
 }
 
 /**
@@ -614,7 +614,7 @@ 
  * @return void
  **/
 function critere_fusion_supprimer_dist($idb, &$boucles, $crit) {
-	$boucles[$idb]->group = [];
+    $boucles[$idb]->group = [];
 }
 
 /**
@@ -651,45 +651,45 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_collecte_dist($idb, &$boucles, $crit) {
-	if (isset($crit->param[0])) {
-		$_coll = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-		$boucle = $boucles[$idb];
-		$boucle->modificateur['collate'] = "($_coll ?' COLLATE '.$_coll:'')";
-		$n = count($boucle->order);
-		if ($n && (strpos($boucle->order[$n - 1], 'COLLATE') === false)) {
-			// l'instruction COLLATE doit être placée avant ASC ou DESC
-			// notamment lors de l'utilisation `{!par xxx}{collate yyy}`
-			if (
-				(false !== $i = strpos($boucle->order[$n - 1], 'ASC'))
-				or (false !== $i = strpos($boucle->order[$n - 1], 'DESC'))
-			) {
-				$boucle->order[$n - 1] = substr_replace($boucle->order[$n - 1], "' . " . $boucle->modificateur['collate'] . " . ' ", $i, 0);
-			} else {
-				$boucle->order[$n - 1] .= ' . ' . $boucle->modificateur['collate'];
-			}
-		}
-	} else {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . count($boucles[$idb]->order)]]);
-	}
+    if (isset($crit->param[0])) {
+        $_coll = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+        $boucle = $boucles[$idb];
+        $boucle->modificateur['collate'] = "($_coll ?' COLLATE '.$_coll:'')";
+        $n = count($boucle->order);
+        if ($n && (strpos($boucle->order[$n - 1], 'COLLATE') === false)) {
+            // l'instruction COLLATE doit être placée avant ASC ou DESC
+            // notamment lors de l'utilisation `{!par xxx}{collate yyy}`
+            if (
+                (false !== $i = strpos($boucle->order[$n - 1], 'ASC'))
+                or (false !== $i = strpos($boucle->order[$n - 1], 'DESC'))
+            ) {
+                $boucle->order[$n - 1] = substr_replace($boucle->order[$n - 1], "' . " . $boucle->modificateur['collate'] . " . ' ", $i, 0);
+            } else {
+                $boucle->order[$n - 1] .= ' . ' . $boucle->modificateur['collate'];
+            }
+        }
+    } else {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . count($boucles[$idb]->order)]]);
+    }
 }
 
 // https://code.spip.net/@calculer_critere_arg_dynamique
 function calculer_critere_arg_dynamique($idb, &$boucles, $crit, $suffix = '') {
-	$boucle = $boucles[$idb];
-	$alt = "('" . $boucle->id_table . '.\' . $x' . $suffix . ')';
-	$var = '$champs_' . $idb;
-	$desc = (strpos($boucle->in, "static $var =") !== false);
-	if (!$desc) {
-		$desc = $boucle->show['field'];
-		$desc = implode(',', array_map('_q', array_keys($desc)));
-		$boucles[$idb]->in .= "\n\tstatic $var = array(" . $desc . ');';
-	}
-	if ($desc) {
-		$alt = "(in_array(\$x, $var)  ? $alt :(\$x$suffix))";
-	}
-	$arg = calculer_liste($crit, $idb, $boucles, $boucle->id_parent);
-
-	return "((\$x = preg_replace(\"/\\W/\",'', $arg)) ? $alt : '')";
+    $boucle = $boucles[$idb];
+    $alt = "('" . $boucle->id_table . '.\' . $x' . $suffix . ')';
+    $var = '$champs_' . $idb;
+    $desc = (strpos($boucle->in, "static $var =") !== false);
+    if (!$desc) {
+        $desc = $boucle->show['field'];
+        $desc = implode(',', array_map('_q', array_keys($desc)));
+        $boucles[$idb]->in .= "\n\tstatic $var = array(" . $desc . ');';
+    }
+    if ($desc) {
+        $alt = "(in_array(\$x, $var)  ? $alt :(\$x$suffix))";
+    }
+    $arg = calculer_liste($crit, $idb, $boucles, $boucle->id_parent);
+
+    return "((\$x = preg_replace(\"/\\W/\",'', $arg)) ? $alt : '')";
 }
 
 /**
@@ -728,7 +728,7 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_par_dist($idb, &$boucles, $crit) {
-	return critere_parinverse($idb, $boucles, $crit);
+    return critere_parinverse($idb, $boucles, $crit);
 }
 
 /**
@@ -750,93 +750,93 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_parinverse($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-
-	$sens = $collecte = '';
-	if ($crit->not) {
-		$sens = " . ' DESC'";
-	}
-	if (isset($boucle->modificateur['collate'])) {
-		$collecte = ' . ' . $boucle->modificateur['collate'];
-	}
-
-	// Pour chaque paramètre du critère
-	foreach ($crit->param as $tri) {
-		$order = $fct = '';
-		// tris specifiés dynamiquement {par #ENV{tri}}
-		if ($tri[0]->type != 'texte') {
-			// calculer le order dynamique qui verifie les champs
-			$order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens);
-			// ajouter 'hasard' comme possibilité de tri dynamique
-			calculer_critere_par_hasard($idb, $boucles, $crit);
-		}
-		// tris textuels {par titre}
-		else {
-			$par = array_shift($tri);
-			$par = $par->texte;
-
-			// tris de la forme {par expression champ} tel que {par num titre} ou {par multi titre}
-			if (preg_match(',^(\w+)[\s]+(.*)$,', $par, $m)) {
-				$expression = trim($m[1]);
-				$champ = trim($m[2]);
-				if (function_exists($f = 'calculer_critere_par_expression_' . $expression)) {
-					$order = $f($idb, $boucles, $crit, $tri, $champ);
-				} else {
-					return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
-				}
-
-			// tris de la forme {par champ} ou {par FONCTION(champ)}
-			} elseif (preg_match(',^' . CHAMP_SQL_PLUS_FONC . '$,is', $par, $match)) {
-				// {par FONCTION(champ)}
-				if (count($match) > 2) {
-					$par = substr($match[2], 1, -1);
-					$fct = $match[1];
-				}
-				// quelques cas spécifiques {par hasard}, {par date}
-				if ($par == 'hasard') {
-					$order = calculer_critere_par_hasard($idb, $boucles, $crit);
-				} elseif ($par == 'date' and !empty($boucle->show['date'])) {
-					$order = "'" . $boucle->id_table . '.' . $boucle->show['date'] . "'";
-				} else {
-					// cas général {par champ}, {par table.champ}, ...
-					$order = calculer_critere_par_champ($idb, $boucles, $crit, $par);
-				}
-			}
-
-			// on ne sait pas traiter…
-			else {
-				return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
-			}
-
-			// En cas d'erreur de squelette retournée par une fonction
-			if (is_array($order)) {
-				return $order;
-			}
-		}
-
-		if (preg_match('/^\'([^"]*)\'$/', $order, $m)) {
-			$t = $m[1];
-			if (strpos($t, '.') and !in_array($t, $boucle->select)) {
-				$boucle->select[] = $t;
-			}
-		} else {
-			$sens = '';
-		}
-
-		if ($fct) {
-			if (preg_match("/^\s*'(.*)'\s*$/", $order, $r)) {
-				$order = "'$fct(" . $r[1] . ")'";
-			} else {
-				$order = "'$fct(' . $order . ')'";
-			}
-		}
-		$t = $order . $collecte . $sens;
-		if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
-			$t = $r[1] . $r[2];
-		}
-
-		$boucle->order[] = $t;
-	}
+    $boucle = &$boucles[$idb];
+
+    $sens = $collecte = '';
+    if ($crit->not) {
+        $sens = " . ' DESC'";
+    }
+    if (isset($boucle->modificateur['collate'])) {
+        $collecte = ' . ' . $boucle->modificateur['collate'];
+    }
+
+    // Pour chaque paramètre du critère
+    foreach ($crit->param as $tri) {
+        $order = $fct = '';
+        // tris specifiés dynamiquement {par #ENV{tri}}
+        if ($tri[0]->type != 'texte') {
+            // calculer le order dynamique qui verifie les champs
+            $order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens);
+            // ajouter 'hasard' comme possibilité de tri dynamique
+            calculer_critere_par_hasard($idb, $boucles, $crit);
+        }
+        // tris textuels {par titre}
+        else {
+            $par = array_shift($tri);
+            $par = $par->texte;
+
+            // tris de la forme {par expression champ} tel que {par num titre} ou {par multi titre}
+            if (preg_match(',^(\w+)[\s]+(.*)$,', $par, $m)) {
+                $expression = trim($m[1]);
+                $champ = trim($m[2]);
+                if (function_exists($f = 'calculer_critere_par_expression_' . $expression)) {
+                    $order = $f($idb, $boucles, $crit, $tri, $champ);
+                } else {
+                    return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+                }
+
+            // tris de la forme {par champ} ou {par FONCTION(champ)}
+            } elseif (preg_match(',^' . CHAMP_SQL_PLUS_FONC . '$,is', $par, $match)) {
+                // {par FONCTION(champ)}
+                if (count($match) > 2) {
+                    $par = substr($match[2], 1, -1);
+                    $fct = $match[1];
+                }
+                // quelques cas spécifiques {par hasard}, {par date}
+                if ($par == 'hasard') {
+                    $order = calculer_critere_par_hasard($idb, $boucles, $crit);
+                } elseif ($par == 'date' and !empty($boucle->show['date'])) {
+                    $order = "'" . $boucle->id_table . '.' . $boucle->show['date'] . "'";
+                } else {
+                    // cas général {par champ}, {par table.champ}, ...
+                    $order = calculer_critere_par_champ($idb, $boucles, $crit, $par);
+                }
+            }
+
+            // on ne sait pas traiter…
+            else {
+                return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+            }
+
+            // En cas d'erreur de squelette retournée par une fonction
+            if (is_array($order)) {
+                return $order;
+            }
+        }
+
+        if (preg_match('/^\'([^"]*)\'$/', $order, $m)) {
+            $t = $m[1];
+            if (strpos($t, '.') and !in_array($t, $boucle->select)) {
+                $boucle->select[] = $t;
+            }
+        } else {
+            $sens = '';
+        }
+
+        if ($fct) {
+            if (preg_match("/^\s*'(.*)'\s*$/", $order, $r)) {
+                $order = "'$fct(" . $r[1] . ")'";
+            } else {
+                $order = "'$fct(' . $order . ')'";
+            }
+        }
+        $t = $order . $collecte . $sens;
+        if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
+            $t = $r[1] . $r[2];
+        }
+
+        $boucle->order[] = $t;
+    }
 }
 
 /**
@@ -850,13 +850,13 @@ 
  * @return string Clause pour le Order by
  */
 function calculer_critere_par_hasard($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	// Si ce n'est fait, ajouter un champ 'hasard' dans le select
-	$parha = 'rand() AS hasard';
-	if (!in_array($parha, $boucle->select)) {
-		$boucle->select[] = $parha;
-	}
-	return "'hasard'";
+    $boucle = &$boucles[$idb];
+    // Si ce n'est fait, ajouter un champ 'hasard' dans le select
+    $parha = 'rand() AS hasard';
+    if (!in_array($parha, $boucle->select)) {
+        $boucle->select[] = $parha;
+    }
+    return "'hasard'";
 }
 
 /**
@@ -880,24 +880,24 @@ 
  * @return string Clause pour le Order by
  */
 function calculer_critere_par_expression_num($idb, &$boucles, $crit, $tri, $champ) {
-	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
-	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " num $champ"]];
-	}
-	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
-	$suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
-	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
-	}
-	$asnum = 'num' . ($boucle->order ? count($boucle->order) : '');
-	$boucle->select[] = $texte . " AS $asnum";
-
-	$orderassinum = calculer_critere_par_expression_sinum($idb, $boucles, $crit, $tri, $champ);
-	$orderassinum = trim($orderassinum, "'");
-
-	$order = "'$orderassinum, $asnum'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . " num $champ"]];
+    }
+    $boucle = &$boucles[$idb];
+    $texte = '0+' . $_champ;
+    $suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
+    if ($suite !== "''") {
+        $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
+    }
+    $asnum = 'num' . ($boucle->order ? count($boucle->order) : '');
+    $boucle->select[] = $texte . " AS $asnum";
+
+    $orderassinum = calculer_critere_par_expression_sinum($idb, $boucles, $crit, $tri, $champ);
+    $orderassinum = trim($orderassinum, "'");
+
+    $order = "'$orderassinum, $asnum'";
+    return $order;
 }
 
 /**
@@ -918,35 +918,35 @@ 
  * @return string Clause pour le Order by
  */
 function calculer_critere_par_expression_sinum($idb, &$boucles, $crit, $tri, $champ) {
-	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
-	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " sinum $champ"]];
-	}
-	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
-	$suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
-	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
-	}
-
-	$as = false;
-	$select = "CASE ( $texte ) WHEN 0 THEN 1 ELSE 0 END AS ";
-	foreach ($boucle->select as $s) {
-		if (strpos($s, $select) === 0) {
-			$as = trim(substr($s, strlen($select)));
-			if (!preg_match(',\W,', $as)) {
-				break;
-			}
-			$as = false;
-		}
-	}
-
-	if (!$as) {
-		$as = 'sinum' . ($boucle->order ? count($boucle->order) : '');
-		$boucle->select[] = $select . $as;
-	}
-	$order = "'$as'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . " sinum $champ"]];
+    }
+    $boucle = &$boucles[$idb];
+    $texte = '0+' . $_champ;
+    $suite = calculer_liste($tri, $idb, $boucles, $boucle->id_parent);
+    if ($suite !== "''") {
+        $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . ' . "';
+    }
+
+    $as = false;
+    $select = "CASE ( $texte ) WHEN 0 THEN 1 ELSE 0 END AS ";
+    foreach ($boucle->select as $s) {
+        if (strpos($s, $select) === 0) {
+            $as = trim(substr($s, strlen($select)));
+            if (!preg_match(',\W,', $as)) {
+                break;
+            }
+            $as = false;
+        }
+    }
+
+    if (!$as) {
+        $as = 'sinum' . ($boucle->order ? count($boucle->order) : '');
+        $boucle->select[] = $select . $as;
+    }
+    $order = "'$as'";
+    return $order;
 }
 
 
@@ -966,14 +966,14 @@ 
  * @return string Clause pour le Order by
  */
 function calculer_critere_par_expression_multi($idb, &$boucles, $crit, $tri, $champ) {
-	$_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
-	if (is_array($_champ)) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . " multi $champ"]];
-	}
-	$boucle = &$boucles[$idb];
-	$boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\"";
-	$order = "'multi'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . " multi $champ"]];
+    }
+    $boucle = &$boucles[$idb];
+    $boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\"";
+    $order = "'multi'";
+    return $order;
 }
 
 /**
@@ -992,56 +992,56 @@ 
  * @return array|string
  */
 function calculer_critere_par_champ($idb, &$boucles, $crit, $par, $raw = false) {
-	$boucle = &$boucles[$idb];
-	$desc = $boucle->show;
-
-	// le champ existe dans la table, pas de souci (le plus commun)
-	if (isset($desc['field'][$par])) {
-		$par = $boucle->id_table . '.' . $par;
-	}
-	// le champ est peut être une jointure
-	else {
-		$table = $table_alias = false; // toutes les tables de jointure possibles
-		$champ = $par;
-
-		// le champ demandé est une exception de jointure {par titre_mot}
-		if (isset($GLOBALS['exceptions_des_jointures'][$par])) {
-			list($table, $champ) = $GLOBALS['exceptions_des_jointures'][$par];
-		} // la table de jointure est explicitement indiquée {par truc.muche}
-		elseif (preg_match('/^([^,]*)\.(.*)$/', $par, $r)) {
-			list(, $table, $champ) = $r;
-			$table_alias = $table; // c'est peut-être un alias de table {par L1.titre}
-			$table = table_objet_sql($table);
-		}
-
-		// Si on connait la table d'arrivée, on la demande donc explicitement
-		// Sinon on cherche le champ dans les tables possibles de jointures
-		// Si la table est déjà dans le from, on la réutilise.
-		if ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $table)) {
-			$par = $infos['alias'] . '.' . $champ;
-		} elseif (
-			$boucle->jointures_explicites
-			and $alias = trouver_jointure_champ($champ, $boucle, explode(' ', $boucle->jointures_explicites), false, $table)
-		) {
-			$par = $alias . '.' . $champ;
-		} elseif ($alias = trouver_jointure_champ($champ, $boucle, $boucle->jointures, false, $table)) {
-			$par = $alias . '.' . $champ;
-		// en spécifiant directement l'alias {par L2.titre} (situation hasardeuse tout de même)
-		} elseif (
-			$table_alias
-			and isset($boucle->from[$table_alias])
-			and $infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $boucle->from[$table_alias])
-		) {
-			$par = $infos['alias'] . '.' . $champ;
-		} elseif ($table) {
-			// On avait table + champ, mais on ne les a pas trouvés
-			return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
-		} else {
-			// Sinon tant pis, ca doit etre un champ synthetise (cf points)
-		}
-	}
-
-	return $raw ? $par : "'$par'";
+    $boucle = &$boucles[$idb];
+    $desc = $boucle->show;
+
+    // le champ existe dans la table, pas de souci (le plus commun)
+    if (isset($desc['field'][$par])) {
+        $par = $boucle->id_table . '.' . $par;
+    }
+    // le champ est peut être une jointure
+    else {
+        $table = $table_alias = false; // toutes les tables de jointure possibles
+        $champ = $par;
+
+        // le champ demandé est une exception de jointure {par titre_mot}
+        if (isset($GLOBALS['exceptions_des_jointures'][$par])) {
+            list($table, $champ) = $GLOBALS['exceptions_des_jointures'][$par];
+        } // la table de jointure est explicitement indiquée {par truc.muche}
+        elseif (preg_match('/^([^,]*)\.(.*)$/', $par, $r)) {
+            list(, $table, $champ) = $r;
+            $table_alias = $table; // c'est peut-être un alias de table {par L1.titre}
+            $table = table_objet_sql($table);
+        }
+
+        // Si on connait la table d'arrivée, on la demande donc explicitement
+        // Sinon on cherche le champ dans les tables possibles de jointures
+        // Si la table est déjà dans le from, on la réutilise.
+        if ($infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $table)) {
+            $par = $infos['alias'] . '.' . $champ;
+        } elseif (
+            $boucle->jointures_explicites
+            and $alias = trouver_jointure_champ($champ, $boucle, explode(' ', $boucle->jointures_explicites), false, $table)
+        ) {
+            $par = $alias . '.' . $champ;
+        } elseif ($alias = trouver_jointure_champ($champ, $boucle, $boucle->jointures, false, $table)) {
+            $par = $alias . '.' . $champ;
+        // en spécifiant directement l'alias {par L2.titre} (situation hasardeuse tout de même)
+        } elseif (
+            $table_alias
+            and isset($boucle->from[$table_alias])
+            and $infos = chercher_champ_dans_tables($champ, $boucle->from, $boucle->sql_serveur, $boucle->from[$table_alias])
+        ) {
+            $par = $infos['alias'] . '.' . $champ;
+        } elseif ($table) {
+            // On avait table + champ, mais on ne les a pas trouvés
+            return ['zbug_critere_inconnu', ['critere' => $crit->op . " $par"]];
+        } else {
+            // Sinon tant pis, ca doit etre un champ synthetise (cf points)
+        }
+    }
+
+    return $raw ? $par : "'$par'";
 }
 
 /**
@@ -1055,11 +1055,11 @@ 
  * @return string Champ pour le compilateur si trouvé, tel que "'alias.champ'", sinon vide.
  */
 function critere_par_joint($table, $champ, &$boucle) {
-	$t = array_search($table, $boucle->from);
-	if (!$t) {
-		$t = trouver_jointure_champ($champ, $boucle);
-	}
-	return !$t ? '' : ("'" . $t . '.' . $champ . "'");
+    $t = array_search($table, $boucle->from);
+    if (!$t) {
+        $t = trouver_jointure_champ($champ, $boucle);
+    }
+    return !$t ? '' : ("'" . $t . '.' . $champ . "'");
 }
 
 /**
@@ -1084,33 +1084,33 @@ 
  */
 function critere_inverse_dist($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	// Classement par ordre inverse
-	if ($crit->not) {
-		critere_parinverse($idb, $boucles, $crit);
-	} else {
-		$order = "' DESC'";
-		// Classement par ordre inverse fonction eventuelle de #ENV{...}
-		if (isset($crit->param[0])) {
-			$critere = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
-			$order = "(($critere)?' DESC':'')";
-		}
-
-		$n = count($boucle->order);
-		if (!$n) {
-			if (isset($boucle->default_order[0])) {
-				$boucle->default_order[0] .= ' . " DESC"';
-			} else {
-				$boucle->default_order[] = ' DESC';
-			}
-		} else {
-			$t = $boucle->order[$n - 1] . " . $order";
-			if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
-				$t = $r[1] . $r[2];
-			}
-			$boucle->order[$n - 1] = $t;
-		}
-	}
+    $boucle = &$boucles[$idb];
+    // Classement par ordre inverse
+    if ($crit->not) {
+        critere_parinverse($idb, $boucles, $crit);
+    } else {
+        $order = "' DESC'";
+        // Classement par ordre inverse fonction eventuelle de #ENV{...}
+        if (isset($crit->param[0])) {
+            $critere = calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent);
+            $order = "(($critere)?' DESC':'')";
+        }
+
+        $n = count($boucle->order);
+        if (!$n) {
+            if (isset($boucle->default_order[0])) {
+                $boucle->default_order[0] .= ' . " DESC"';
+            } else {
+                $boucle->default_order[] = ' DESC';
+            }
+        } else {
+            $t = $boucle->order[$n - 1] . " . $order";
+            if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
+                $t = $r[1] . $r[2];
+            }
+            $boucle->order[$n - 1] = $t;
+        }
+    }
 }
 
 /**
@@ -1121,138 +1121,138 @@ 
  * @return array|string
  */
 function critere_par_ordre_liste_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
+    $boucle = &$boucles[$idb];
 
-	$sens = $collecte = '';
-	if ($crit->not) {
-		$sens = " . ' DESC'";
-	}
+    $sens = $collecte = '';
+    if ($crit->not) {
+        $sens = " . ' DESC'";
+    }
 
-	$crit2 = clone $crit;
-	$crit2->not = false;
-	$crit2->param = [reset($crit->param)];
-	$res = critere_parinverse($idb, $boucles, $crit2);
+    $crit2 = clone $crit;
+    $crit2->not = false;
+    $crit2->param = [reset($crit->param)];
+    $res = critere_parinverse($idb, $boucles, $crit2);
 
-	// erreur ?
-	if (is_array($res)) {
-		return $res;
-	}
+    // erreur ?
+    if (is_array($res)) {
+        return $res;
+    }
 
-	$_order = array_pop($boucle->order);
+    $_order = array_pop($boucle->order);
 
-	$_liste = calculer_liste($crit->param[1], [], $boucles, $boucles[$idb]->id_parent);
-	$boucle->order[] = "'FIELD(' . $_order . ',' . ((\$zl=formate_liste_critere_par_ordre_liste($_liste,'" . $boucle->sql_serveur . "')) ? \$zl : '0').')'$sens";
+    $_liste = calculer_liste($crit->param[1], [], $boucles, $boucles[$idb]->id_parent);
+    $boucle->order[] = "'FIELD(' . $_order . ',' . ((\$zl=formate_liste_critere_par_ordre_liste($_liste,'" . $boucle->sql_serveur . "')) ? \$zl : '0').')'$sens";
 }
 
 
 // https://code.spip.net/@critere_agenda_dist
 function critere_agenda_dist($idb, &$boucles, $crit) {
-	$params = $crit->param;
-
-	if (count($params) < 1) {
-		return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
-	}
-
-	$boucle = &$boucles[$idb];
-	$parent = $boucle->id_parent;
-	$fields = $boucle->show['field'];
-
-	$date = array_shift($params);
-	$type = array_shift($params);
-
-	// la valeur $type doit etre connue a la compilation
-	// donc etre forcement reduite a un litteral unique dans le source
-	$type = is_object($type[0]) ? $type[0]->texte : null;
-
-	// La valeur date doit designer un champ de la table SQL.
-	// Si c'est un litteral unique dans le source, verifier a la compil,
-	// sinon synthetiser le test de verif pour execution ulterieure
-	// On prendra arbitrairement le premier champ si test negatif.
-	if ((count($date) == 1) and ($date[0]->type == 'texte')) {
-		$date = $date[0]->texte;
-		if (!isset($fields[$date])) {
-			return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $date]];
-		}
-	} else {
-		$a = calculer_liste($date, $idb, $boucles, $parent);
-		$noms = array_keys($fields);
-		$defaut = $noms[0];
-		$noms = join(' ', $noms);
-		# bien laisser 2 espaces avant $nom pour que strpos<>0
-		$cond = "(\$a=strval($a))AND\nstrpos(\"  $noms \",\" \$a \")";
-		$date = "'.(($cond)\n?\$a:\"$defaut\").'";
-	}
-	$annee = $params ? array_shift($params) : '';
-	$annee = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee, $idb, $boucles, $parent) .
-		') ? $x : date("Y"))';
-
-	$mois = $params ? array_shift($params) : '';
-	$mois = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois, $idb, $boucles, $parent) .
-		') ? $x : date("m"))';
-
-	$jour = $params ? array_shift($params) : '';
-	$jour = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour, $idb, $boucles, $parent) .
-		') ? $x : date("d"))';
-
-	$annee2 = $params ? array_shift($params) : '';
-	$annee2 = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee2, $idb, $boucles, $parent) .
-		') ? $x : date("Y"))';
-
-	$mois2 = $params ? array_shift($params) : '';
-	$mois2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois2, $idb, $boucles, $parent) .
-		') ? $x : date("m"))';
-
-	$jour2 = $params ? array_shift($params) : '';
-	$jour2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour2, $idb, $boucles, $parent) .
-		') ? $x : date("d"))';
-
-	$date = $boucle->id_table . ".$date";
-
-	$quote_end = ",'" . $boucle->sql_serveur . "','text'";
-	if ($type == 'jour') {
-		$boucle->where[] = [
-			"'='",
-			"'DATE_FORMAT($date, \'%Y%m%d\')'",
-			("sql_quote($annee . $mois . $jour$quote_end)")
-		];
-	} elseif ($type == 'mois') {
-		$boucle->where[] = [
-			"'='",
-			"'DATE_FORMAT($date, \'%Y%m\')'",
-			("sql_quote($annee . $mois$quote_end)")
-		];
-	} elseif ($type == 'semaine') {
-		$boucle->where[] = [
-			"'AND'",
-			[
-				"'>='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("date_debut_semaine($annee, $mois, $jour)")
-			],
-			[
-				"'<='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("date_fin_semaine($annee, $mois, $jour)")
-			]
-		];
-	} elseif (count($crit->param) > 2) {
-		$boucle->where[] = [
-			"'AND'",
-			[
-				"'>='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("sql_quote($annee . $mois . $jour$quote_end)")
-			],
-			["'<='", "'DATE_FORMAT($date, \'%Y%m%d\')'", ("sql_quote($annee2 . $mois2 . $jour2$quote_end)")]
-		];
-	}
-	// sinon on prend tout
+    $params = $crit->param;
+
+    if (count($params) < 1) {
+        return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']];
+    }
+
+    $boucle = &$boucles[$idb];
+    $parent = $boucle->id_parent;
+    $fields = $boucle->show['field'];
+
+    $date = array_shift($params);
+    $type = array_shift($params);
+
+    // la valeur $type doit etre connue a la compilation
+    // donc etre forcement reduite a un litteral unique dans le source
+    $type = is_object($type[0]) ? $type[0]->texte : null;
+
+    // La valeur date doit designer un champ de la table SQL.
+    // Si c'est un litteral unique dans le source, verifier a la compil,
+    // sinon synthetiser le test de verif pour execution ulterieure
+    // On prendra arbitrairement le premier champ si test negatif.
+    if ((count($date) == 1) and ($date[0]->type == 'texte')) {
+        $date = $date[0]->texte;
+        if (!isset($fields[$date])) {
+            return ['zbug_critere_inconnu', ['critere' => $crit->op . ' ' . $date]];
+        }
+    } else {
+        $a = calculer_liste($date, $idb, $boucles, $parent);
+        $noms = array_keys($fields);
+        $defaut = $noms[0];
+        $noms = join(' ', $noms);
+        # bien laisser 2 espaces avant $nom pour que strpos<>0
+        $cond = "(\$a=strval($a))AND\nstrpos(\"  $noms \",\" \$a \")";
+        $date = "'.(($cond)\n?\$a:\"$defaut\").'";
+    }
+    $annee = $params ? array_shift($params) : '';
+    $annee = "\n" . 'sprintf("%04d", ($x = ' .
+        calculer_liste($annee, $idb, $boucles, $parent) .
+        ') ? $x : date("Y"))';
+
+    $mois = $params ? array_shift($params) : '';
+    $mois = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($mois, $idb, $boucles, $parent) .
+        ') ? $x : date("m"))';
+
+    $jour = $params ? array_shift($params) : '';
+    $jour = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($jour, $idb, $boucles, $parent) .
+        ') ? $x : date("d"))';
+
+    $annee2 = $params ? array_shift($params) : '';
+    $annee2 = "\n" . 'sprintf("%04d", ($x = ' .
+        calculer_liste($annee2, $idb, $boucles, $parent) .
+        ') ? $x : date("Y"))';
+
+    $mois2 = $params ? array_shift($params) : '';
+    $mois2 = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($mois2, $idb, $boucles, $parent) .
+        ') ? $x : date("m"))';
+
+    $jour2 = $params ? array_shift($params) : '';
+    $jour2 = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($jour2, $idb, $boucles, $parent) .
+        ') ? $x : date("d"))';
+
+    $date = $boucle->id_table . ".$date";
+
+    $quote_end = ",'" . $boucle->sql_serveur . "','text'";
+    if ($type == 'jour') {
+        $boucle->where[] = [
+            "'='",
+            "'DATE_FORMAT($date, \'%Y%m%d\')'",
+            ("sql_quote($annee . $mois . $jour$quote_end)")
+        ];
+    } elseif ($type == 'mois') {
+        $boucle->where[] = [
+            "'='",
+            "'DATE_FORMAT($date, \'%Y%m\')'",
+            ("sql_quote($annee . $mois$quote_end)")
+        ];
+    } elseif ($type == 'semaine') {
+        $boucle->where[] = [
+            "'AND'",
+            [
+                "'>='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("date_debut_semaine($annee, $mois, $jour)")
+            ],
+            [
+                "'<='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("date_fin_semaine($annee, $mois, $jour)")
+            ]
+        ];
+    } elseif (count($crit->param) > 2) {
+        $boucle->where[] = [
+            "'AND'",
+            [
+                "'>='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("sql_quote($annee . $mois . $jour$quote_end)")
+            ],
+            ["'<='", "'DATE_FORMAT($date, \'%Y%m%d\')'", ("sql_quote($annee2 . $mois2 . $jour2$quote_end)")]
+        ];
+    }
+    // sinon on prend tout
 }
 
 
@@ -1277,33 +1277,33 @@ 
  * @return void
  **/
 function calculer_critere_parties($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$a1 = $crit->param[0];
-	$a2 = $crit->param[1];
-	$op = $crit->op;
-
-	list($a11, $a12) = calculer_critere_parties_aux($idb, $boucles, $a1);
-	list($a21, $a22) = calculer_critere_parties_aux($idb, $boucles, $a2);
-
-	if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) {
-		$boucle->limit = $a11 . ',' . $a21;
-	} else {
-		// 3 dans {1/3}, {2,3} ou {1,n-3}
-		$boucle->total_parties = ($a21 != 'n') ? $a21 : $a22;
-		// 2 dans {2/3}, {2,5}, {n-2,1}
-		$partie = ($a11 != 'n') ? $a11 : $a12;
-		$mode = (($op == '/') ? '/' :
-			(($a11 == 'n') ? '-' : '+') . (($a21 == 'n') ? '-' : '+'));
-		// cas simple {0,#ENV{truc}} compilons le en LIMIT :
-		if ($a11 !== 'n' and $a21 !== 'n' and $mode == '++' and $op == ',') {
-			$boucle->limit =
-				(is_numeric($a11) ? "'$a11'" : $a11)
-				. ".','."
-				. (is_numeric($a21) ? "'$a21'" : $a21);
-		} else {
-			calculer_parties($boucles, $idb, $partie, $mode);
-		}
-	}
+    $boucle = &$boucles[$idb];
+    $a1 = $crit->param[0];
+    $a2 = $crit->param[1];
+    $op = $crit->op;
+
+    list($a11, $a12) = calculer_critere_parties_aux($idb, $boucles, $a1);
+    list($a21, $a22) = calculer_critere_parties_aux($idb, $boucles, $a2);
+
+    if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) {
+        $boucle->limit = $a11 . ',' . $a21;
+    } else {
+        // 3 dans {1/3}, {2,3} ou {1,n-3}
+        $boucle->total_parties = ($a21 != 'n') ? $a21 : $a22;
+        // 2 dans {2/3}, {2,5}, {n-2,1}
+        $partie = ($a11 != 'n') ? $a11 : $a12;
+        $mode = (($op == '/') ? '/' :
+            (($a11 == 'n') ? '-' : '+') . (($a21 == 'n') ? '-' : '+'));
+        // cas simple {0,#ENV{truc}} compilons le en LIMIT :
+        if ($a11 !== 'n' and $a21 !== 'n' and $mode == '++' and $op == ',') {
+            $boucle->limit =
+                (is_numeric($a11) ? "'$a11'" : $a11)
+                . ".','."
+                . (is_numeric($a21) ? "'$a21'" : $a21);
+        } else {
+            calculer_parties($boucles, $idb, $partie, $mode);
+        }
+    }
 }
 
 /**
@@ -1331,63 +1331,63 @@ 
  * @return void
  **/
 function calculer_parties(&$boucles, $id_boucle, $debut, $mode) {
-	$total_parties = $boucles[$id_boucle]->total_parties;
-
-	preg_match(',([+-/p])([+-/])?,', $mode, $regs);
-	list(, $op1, $op2) = array_pad($regs, 3, null);
-	$nombre_boucle = "\$Numrows['$id_boucle']['total']";
-	// {1/3}
-	if ($op1 == '/') {
-		$pmoins1 = is_numeric($debut) ? ($debut - 1) : "($debut-1)";
-		$totpos = is_numeric($total_parties) ? ($total_parties) :
-			"($total_parties ? $total_parties : 1)";
-		$fin = "ceil(($nombre_boucle * $debut )/$totpos) - 1";
-		$debut = !$pmoins1 ? 0 : "ceil(($nombre_boucle * $pmoins1)/$totpos);";
-	} else {
-		// cas {n-1,x}
-		if ($op1 == '-') {
-			$debut = "$nombre_boucle - $debut;";
-		}
-
-		// cas {x,n-1}
-		if ($op2 == '-') {
-			$fin = '$debut_boucle + ' . $nombre_boucle . ' - '
-				. (is_numeric($total_parties) ? ($total_parties + 1) :
-					($total_parties . ' - 1'));
-		} else {
-			// {x,1} ou {pagination}
-			$fin = '$debut_boucle'
-				. (is_numeric($total_parties) ?
-					(($total_parties == 1) ? '' : (' + ' . ($total_parties - 1))) :
-					('+' . $total_parties . ' - 1'));
-		}
-
-		// {pagination}, gerer le debut_xx=-1 pour tout voir
-		if ($op1 == 'p') {
-			$debut .= ";\n	\$debut_boucle = ((\$tout=(\$debut_boucle == -1))?0:(\$debut_boucle))";
-			$debut .= ";\n	\$debut_boucle = max(0,min(\$debut_boucle,floor(($nombre_boucle-1)/($total_parties))*($total_parties)))";
-			$fin = "(\$tout ? $nombre_boucle : $fin)";
-		}
-	}
-
-	// Notes :
-	// $debut_boucle et $fin_boucle sont les indices SQL du premier
-	// et du dernier demandes dans la boucle : 0 pour le premier,
-	// n-1 pour le dernier ; donc total_boucle = 1 + debut - fin
-	// Utiliser min pour rabattre $fin_boucle sur total_boucle.
-
-	$boucles[$id_boucle]->mode_partie = "\n\t"
-		. '$debut_boucle = ' . $debut . ";\n	"
-		. "\$debut_boucle = intval(\$debut_boucle);\n	"
-		. '$fin_boucle = min(' . $fin . ", \$Numrows['$id_boucle']['total'] - 1);\n	"
-		. '$Numrows[\'' . $id_boucle . "']['grand_total'] = \$Numrows['$id_boucle']['total'];\n	"
-		. '$Numrows[\'' . $id_boucle . '\']["total"] = max(0,$fin_boucle - $debut_boucle + 1);'
-		. "\n\tif (\$debut_boucle>0"
-		. " AND \$debut_boucle < \$Numrows['$id_boucle']['grand_total']"
-		. " AND \$iter->seek(\$debut_boucle,'continue'))"
-		. "\n\t\t\$Numrows['$id_boucle']['compteur_boucle'] = \$debut_boucle;\n\t";
-
-	$boucles[$id_boucle]->partie = "
+    $total_parties = $boucles[$id_boucle]->total_parties;
+
+    preg_match(',([+-/p])([+-/])?,', $mode, $regs);
+    list(, $op1, $op2) = array_pad($regs, 3, null);
+    $nombre_boucle = "\$Numrows['$id_boucle']['total']";
+    // {1/3}
+    if ($op1 == '/') {
+        $pmoins1 = is_numeric($debut) ? ($debut - 1) : "($debut-1)";
+        $totpos = is_numeric($total_parties) ? ($total_parties) :
+            "($total_parties ? $total_parties : 1)";
+        $fin = "ceil(($nombre_boucle * $debut )/$totpos) - 1";
+        $debut = !$pmoins1 ? 0 : "ceil(($nombre_boucle * $pmoins1)/$totpos);";
+    } else {
+        // cas {n-1,x}
+        if ($op1 == '-') {
+            $debut = "$nombre_boucle - $debut;";
+        }
+
+        // cas {x,n-1}
+        if ($op2 == '-') {
+            $fin = '$debut_boucle + ' . $nombre_boucle . ' - '
+                . (is_numeric($total_parties) ? ($total_parties + 1) :
+                    ($total_parties . ' - 1'));
+        } else {
+            // {x,1} ou {pagination}
+            $fin = '$debut_boucle'
+                . (is_numeric($total_parties) ?
+                    (($total_parties == 1) ? '' : (' + ' . ($total_parties - 1))) :
+                    ('+' . $total_parties . ' - 1'));
+        }
+
+        // {pagination}, gerer le debut_xx=-1 pour tout voir
+        if ($op1 == 'p') {
+            $debut .= ";\n	\$debut_boucle = ((\$tout=(\$debut_boucle == -1))?0:(\$debut_boucle))";
+            $debut .= ";\n	\$debut_boucle = max(0,min(\$debut_boucle,floor(($nombre_boucle-1)/($total_parties))*($total_parties)))";
+            $fin = "(\$tout ? $nombre_boucle : $fin)";
+        }
+    }
+
+    // Notes :
+    // $debut_boucle et $fin_boucle sont les indices SQL du premier
+    // et du dernier demandes dans la boucle : 0 pour le premier,
+    // n-1 pour le dernier ; donc total_boucle = 1 + debut - fin
+    // Utiliser min pour rabattre $fin_boucle sur total_boucle.
+
+    $boucles[$id_boucle]->mode_partie = "\n\t"
+        . '$debut_boucle = ' . $debut . ";\n	"
+        . "\$debut_boucle = intval(\$debut_boucle);\n	"
+        . '$fin_boucle = min(' . $fin . ", \$Numrows['$id_boucle']['total'] - 1);\n	"
+        . '$Numrows[\'' . $id_boucle . "']['grand_total'] = \$Numrows['$id_boucle']['total'];\n	"
+        . '$Numrows[\'' . $id_boucle . '\']["total"] = max(0,$fin_boucle - $debut_boucle + 1);'
+        . "\n\tif (\$debut_boucle>0"
+        . " AND \$debut_boucle < \$Numrows['$id_boucle']['grand_total']"
+        . " AND \$iter->seek(\$debut_boucle,'continue'))"
+        . "\n\t\t\$Numrows['$id_boucle']['compteur_boucle'] = \$debut_boucle;\n\t";
+
+    $boucles[$id_boucle]->partie = "
 		if (\$Numrows['$id_boucle']['compteur_boucle'] <= \$debut_boucle) continue;
 		if (\$Numrows['$id_boucle']['compteur_boucle']-1 > \$fin_boucle) break;";
 }
@@ -1404,26 +1404,26 @@ 
  * @return array          Valeur de l'élément (peut être une expression PHP), Nombre soustrait
  **/
 function calculer_critere_parties_aux($idb, &$boucles, $param) {
-	if ($param[0]->type != 'texte') {
-		$a1 = calculer_liste([$param[0]], $idb, $boucles, $boucles[$idb]->id_parent);
-		if (isset($param[1]->texte)) {
-			preg_match(',^ *(-([0-9]+))? *$,', $param[1]->texte, $m);
-
-			return ["intval($a1)", ((isset($m[2]) and $m[2]) ? $m[2] : 0)];
-		} else {
-			return ["intval($a1)", 0];
-		}
-	} else {
-		preg_match(',^ *(([0-9]+)|n) *(- *([0-9]+)? *)?$,', $param[0]->texte, $m);
-		$a1 = $m[1];
-		if (empty($m[3])) {
-			return [$a1, 0];
-		} elseif (!empty($m[4])) {
-			return [$a1, $m[4]];
-		} else {
-			return [$a1, calculer_liste([$param[1]], $idb, $boucles, $boucles[$idb]->id_parent)];
-		}
-	}
+    if ($param[0]->type != 'texte') {
+        $a1 = calculer_liste([$param[0]], $idb, $boucles, $boucles[$idb]->id_parent);
+        if (isset($param[1]->texte)) {
+            preg_match(',^ *(-([0-9]+))? *$,', $param[1]->texte, $m);
+
+            return ["intval($a1)", ((isset($m[2]) and $m[2]) ? $m[2] : 0)];
+        } else {
+            return ["intval($a1)", 0];
+        }
+    } else {
+        preg_match(',^ *(([0-9]+)|n) *(- *([0-9]+)? *)?$,', $param[0]->texte, $m);
+        $a1 = $m[1];
+        if (empty($m[3])) {
+            return [$a1, 0];
+        } elseif (!empty($m[4])) {
+            return [$a1, $m[4]];
+        } else {
+            return [$a1, calculer_liste([$param[1]], $idb, $boucles, $boucles[$idb]->id_parent)];
+        }
+    }
 }
 
 
@@ -1450,47 +1450,47 @@ 
  *     array : Erreur sur un des critères
  **/
 function calculer_criteres($idb, &$boucles) {
-	$msg = '';
-	$boucle = $boucles[$idb];
-	$table = strtoupper($boucle->type_requete);
-	$serveur = strtolower($boucle->sql_serveur);
-
-	$defaut = charger_fonction('DEFAUT', 'calculer_critere');
-	// s'il y avait une erreur de syntaxe, propager cette info
-	if (!is_array($boucle->criteres)) {
-		return [];
-	}
-
-	foreach ($boucle->criteres as $crit) {
-		$critere = $crit->op;
-		// critere personnalise ?
-		if (
-			(!$serveur or
-				((!function_exists($f = 'critere_' . $serveur . '_' . $table . '_' . $critere))
-					and (!function_exists($f = $f . '_dist'))
-					and (!function_exists($f = 'critere_' . $serveur . '_' . $critere))
-					and (!function_exists($f = $f . '_dist'))
-				)
-			)
-			and (!function_exists($f = 'critere_' . $table . '_' . $critere))
-			and (!function_exists($f = $f . '_dist'))
-			and (!function_exists($f = 'critere_' . $critere))
-			and (!function_exists($f = $f . '_dist'))
-		) {
-			// fonction critere standard
-			$f = $defaut;
-		}
-		// compile le critere
-		$res = $f($idb, $boucles, $crit);
-
-		// Gestion centralisee des erreurs pour pouvoir propager
-		if (is_array($res)) {
-			$msg = $res;
-			erreur_squelette($msg, $boucle);
-		}
-	}
-
-	return $msg;
+    $msg = '';
+    $boucle = $boucles[$idb];
+    $table = strtoupper($boucle->type_requete);
+    $serveur = strtolower($boucle->sql_serveur);
+
+    $defaut = charger_fonction('DEFAUT', 'calculer_critere');
+    // s'il y avait une erreur de syntaxe, propager cette info
+    if (!is_array($boucle->criteres)) {
+        return [];
+    }
+
+    foreach ($boucle->criteres as $crit) {
+        $critere = $crit->op;
+        // critere personnalise ?
+        if (
+            (!$serveur or
+                ((!function_exists($f = 'critere_' . $serveur . '_' . $table . '_' . $critere))
+                    and (!function_exists($f = $f . '_dist'))
+                    and (!function_exists($f = 'critere_' . $serveur . '_' . $critere))
+                    and (!function_exists($f = $f . '_dist'))
+                )
+            )
+            and (!function_exists($f = 'critere_' . $table . '_' . $critere))
+            and (!function_exists($f = $f . '_dist'))
+            and (!function_exists($f = 'critere_' . $critere))
+            and (!function_exists($f = $f . '_dist'))
+        ) {
+            // fonction critere standard
+            $f = $defaut;
+        }
+        // compile le critere
+        $res = $f($idb, $boucles, $crit);
+
+        // Gestion centralisee des erreurs pour pouvoir propager
+        if (is_array($res)) {
+            $msg = $res;
+            erreur_squelette($msg, $boucle);
+        }
+    }
+
+    return $msg;
 }
 
 /**
@@ -1507,11 +1507,11 @@ 
  * @return string         Code compilé rééchappé
  */
 function kwote($lisp, $serveur = '', $type = '') {
-	if (preg_match(_CODE_QUOTE, $lisp, $r)) {
-		return $r[1] . '"' . sql_quote(str_replace(["\\'", '\\\\'], ["'", '\\'], $r[2]), $serveur, $type) . '"';
-	} else {
-		return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')";
-	}
+    if (preg_match(_CODE_QUOTE, $lisp, $r)) {
+        return $r[1] . '"' . sql_quote(str_replace(["\\'", '\\\\'], ["'", '\\'], $r[2]), $serveur, $type) . '"';
+    } else {
+        return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')";
+    }
 }
 
 
@@ -1530,82 +1530,82 @@ 
  * @return void
  **/
 function critere_IN_dist($idb, &$boucles, $crit) {
-	$r = calculer_critere_infixe($idb, $boucles, $crit);
-	if (!$r) {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]);
-	}
-	list($arg, $op, $val, $col, $where_complement) = $r;
-
-	$in = critere_IN_cas($idb, $boucles, $crit->not ? 'NOT' : ($crit->exclus ? 'exclus' : ''), $arg, $op, $val, $col);
-
-	//	inserer la condition; exemple: {id_mot ?IN (66, 62, 64)}
-	$where = $in;
-	if ($crit->cond) {
-		$pred = calculer_argument_precedent($idb, $col, $boucles);
-		$where = ["'?'", $pred, $where, "''"];
-		if ($where_complement) { // condition annexe du type "AND (objet='article')"
-		$where_complement = ["'?'", $pred, $where_complement, "''"];
-		}
-	}
-	if ($crit->exclus) {
-		if (!preg_match(',^L[0-9]+[.],', $arg)) {
-			$where = ["'NOT'", $where];
-		} else // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
-			// c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
-		{
-			$where = [
-				"'NOT'",
-				[
-					"'IN'",
-					"'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
-					["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
-				]
-			];
-		}
-	}
-
-	$boucles[$idb]->where[] = $where;
-	if ($where_complement) { // condition annexe du type "AND (objet='article')"
-	$boucles[$idb]->where[] = $where_complement;
-	}
+    $r = calculer_critere_infixe($idb, $boucles, $crit);
+    if (!$r) {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op . ' ?']]);
+    }
+    list($arg, $op, $val, $col, $where_complement) = $r;
+
+    $in = critere_IN_cas($idb, $boucles, $crit->not ? 'NOT' : ($crit->exclus ? 'exclus' : ''), $arg, $op, $val, $col);
+
+    //	inserer la condition; exemple: {id_mot ?IN (66, 62, 64)}
+    $where = $in;
+    if ($crit->cond) {
+        $pred = calculer_argument_precedent($idb, $col, $boucles);
+        $where = ["'?'", $pred, $where, "''"];
+        if ($where_complement) { // condition annexe du type "AND (objet='article')"
+        $where_complement = ["'?'", $pred, $where_complement, "''"];
+        }
+    }
+    if ($crit->exclus) {
+        if (!preg_match(',^L[0-9]+[.],', $arg)) {
+            $where = ["'NOT'", $where];
+        } else // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
+            // c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
+        {
+            $where = [
+                "'NOT'",
+                [
+                    "'IN'",
+                    "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
+                    ["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
+                ]
+            ];
+        }
+    }
+
+    $boucles[$idb]->where[] = $where;
+    if ($where_complement) { // condition annexe du type "AND (objet='article')"
+    $boucles[$idb]->where[] = $where_complement;
+    }
 }
 
 // https://code.spip.net/@critere_IN_cas
 function critere_IN_cas($idb, &$boucles, $crit2, $arg, $op, $val, $col) {
-	static $num = [];
-	$descr = $boucles[$idb]->descr;
-	$cpt = &$num[$descr['nom']][$descr['gram']][$idb];
-
-	$var = '$in' . $cpt++;
-	$x = "\n\t$var = array();";
-	foreach ($val as $k => $v) {
-		if (preg_match(",^(\n//.*\n)?'(.*)'$,", $v, $r)) {
-			// optimiser le traitement des constantes
-			if (is_numeric($r[2])) {
-				$x .= "\n\t$var" . "[]= $r[2];";
-			} else {
-				$x .= "\n\t$var" . '[]= ' . sql_quote($r[2]) . ';';
-			}
-		} else {
-			// Pour permettre de passer des tableaux de valeurs
-			// on repere l'utilisation brute de #ENV**{X},
-			// c'est-a-dire sa  traduction en ($PILE[0][X]).
-			// et on deballe mais en rajoutant l'anti XSS
-			$x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var" . "[]= \$a;\n\telse $var = array_merge($var, \$a);";
-		}
-	}
-
-	$boucles[$idb]->in .= $x;
-
-	// inserer le tri par defaut selon les ordres du IN ...
-	// avec une ecriture de type FIELD qui degrade les performances (du meme ordre qu'un regexp)
-	// et que l'on limite donc strictement aux cas necessaires :
-	// si ce n'est pas un !IN, et si il n'y a pas d'autre order dans la boucle
-	if (!$crit2) {
-		$boucles[$idb]->default_order[] = "((!\$zqv=sql_quote($var) OR \$zqv===\"''\") ? 0 : ('FIELD($arg,' . \$zqv . ')'))";
-	}
-
-	return "sql_in('$arg', $var" . ($crit2 == 'NOT' ? ",'NOT'" : '') . ')';
+    static $num = [];
+    $descr = $boucles[$idb]->descr;
+    $cpt = &$num[$descr['nom']][$descr['gram']][$idb];
+
+    $var = '$in' . $cpt++;
+    $x = "\n\t$var = array();";
+    foreach ($val as $k => $v) {
+        if (preg_match(",^(\n//.*\n)?'(.*)'$,", $v, $r)) {
+            // optimiser le traitement des constantes
+            if (is_numeric($r[2])) {
+                $x .= "\n\t$var" . "[]= $r[2];";
+            } else {
+                $x .= "\n\t$var" . '[]= ' . sql_quote($r[2]) . ';';
+            }
+        } else {
+            // Pour permettre de passer des tableaux de valeurs
+            // on repere l'utilisation brute de #ENV**{X},
+            // c'est-a-dire sa  traduction en ($PILE[0][X]).
+            // et on deballe mais en rajoutant l'anti XSS
+            $x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var" . "[]= \$a;\n\telse $var = array_merge($var, \$a);";
+        }
+    }
+
+    $boucles[$idb]->in .= $x;
+
+    // inserer le tri par defaut selon les ordres du IN ...
+    // avec une ecriture de type FIELD qui degrade les performances (du meme ordre qu'un regexp)
+    // et que l'on limite donc strictement aux cas necessaires :
+    // si ce n'est pas un !IN, et si il n'y a pas d'autre order dans la boucle
+    if (!$crit2) {
+        $boucles[$idb]->default_order[] = "((!\$zqv=sql_quote($var) OR \$zqv===\"''\") ? 0 : ('FIELD($arg,' . \$zqv . ')'))";
+    }
+
+    return "sql_in('$arg', $var" . ($crit2 == 'NOT' ? ",'NOT'" : '') . ')';
 }
 
 /**
@@ -1621,22 +1621,22 @@ 
  * @return void
  */
 function critere_where_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	if (isset($crit->param[0])) {
-		$_where = calculer_liste($crit->param[0], $idb, $boucles, $boucle->id_parent);
-	} else {
-		$_where = 'spip_sanitize_from_request(@$Pile[0]["where"],"where","vide")';
-	}
-
-	if ($crit->cond) {
-		$_where = "((\$zzw = $_where) ? \$zzw : '')";
-	}
-
-	if ($crit->not) {
-		$_where = "array('NOT',$_where)";
-	}
-
-	$boucle->where[] = $_where;
+    $boucle = &$boucles[$idb];
+    if (isset($crit->param[0])) {
+        $_where = calculer_liste($crit->param[0], $idb, $boucles, $boucle->id_parent);
+    } else {
+        $_where = 'spip_sanitize_from_request(@$Pile[0]["where"],"where","vide")';
+    }
+
+    if ($crit->cond) {
+        $_where = "((\$zzw = $_where) ? \$zzw : '')";
+    }
+
+    if ($crit->not) {
+        $_where = "array('NOT',$_where)";
+    }
+
+    $boucle->where[] = $_where;
 }
 
 /**
@@ -1664,31 +1664,31 @@ 
  * @return void
  */
 function critere_id__dist($idb, &$boucles, $crit) {
-	/** @var Boucle $boucle */
-	$boucle = $boucles[$idb];
-
-	$champs = lister_champs_id_conditionnel(
-		$boucle->show['table'],
-		$boucle->show,
-		$boucle->sql_serveur
-	);
-
-	// ne pas tenir compte des critères identiques déjà présents.
-	if (!empty($boucle->modificateur['criteres'])) {
-		$champs = array_diff($champs, array_keys($boucle->modificateur['criteres']));
-	}
-	// nous aider en mode debug.
-	$boucle->debug[] = 'id_ : ' . implode(', ', $champs);
-	$boucle->modificateur['id_'] = $champs;
-
-	// créer un critère {id_xxx?} de chaque champ retenu
-	foreach ($champs as $champ) {
-		$critere_id_table = new Critere();
-		$critere_id_table->op = $champ;
-		$critere_id_table->cond = '?';
-		$critere_id_table->ligne = $crit->ligne;
-		calculer_critere_DEFAUT_dist($idb, $boucles, $critere_id_table);
-	}
+    /** @var Boucle $boucle */
+    $boucle = $boucles[$idb];
+
+    $champs = lister_champs_id_conditionnel(
+        $boucle->show['table'],
+        $boucle->show,
+        $boucle->sql_serveur
+    );
+
+    // ne pas tenir compte des critères identiques déjà présents.
+    if (!empty($boucle->modificateur['criteres'])) {
+        $champs = array_diff($champs, array_keys($boucle->modificateur['criteres']));
+    }
+    // nous aider en mode debug.
+    $boucle->debug[] = 'id_ : ' . implode(', ', $champs);
+    $boucle->modificateur['id_'] = $champs;
+
+    // créer un critère {id_xxx?} de chaque champ retenu
+    foreach ($champs as $champ) {
+        $critere_id_table = new Critere();
+        $critere_id_table->op = $champ;
+        $critere_id_table->cond = '?';
+        $critere_id_table->ligne = $crit->ligne;
+        calculer_critere_DEFAUT_dist($idb, $boucles, $critere_id_table);
+    }
 }
 
 /**
@@ -1708,79 +1708,79 @@ 
  * @return array Liste de nom de champs (tel que id_article, id_mot, id_parent ...)
  */
 function lister_champs_id_conditionnel($table, $desc = null, $serveur = '') {
-	// calculer la description de la table
-	if (!is_array($desc)) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		return [];
-	}
-
-	// Les champs id_xx de la table demandée
-	$champs = array_filter(
-		array_keys($desc['field']),
-		function ($champ) {
-			return
-				strpos($champ, 'id_') === 0
-				or (in_array($champ, ['objet']));
-		}
-	);
-
-	// Si le champ id_rubrique appartient à la liste et si id_secteur n'est pas inclus on le rajoute.
-	if (
-		in_array('id_rubrique', $champs)
-		and !in_array('id_secteur', $champs)
-	) {
-		$champs[] = 'id_secteur';
-	}
-
-	// On ne fera pas mieux pour les tables d’un autre serveur
-	if ($serveur) {
-		return $champs;
-	}
-
-	$primary = false;
-	$associable = false;
-	include_spip('action/editer_liens');
-
-	if (isset($desc['type'])) {
-		$primary = id_table_objet($desc['type']);
-		$associable = objet_associable($desc['type']);
-	}
-	if (isset($desc['field']['id_objet']) and isset($desc['field']['objet'])) {
-		$associable = true;
-	}
-
-	// liste de toutes les tables principales, sauf la notre
-	$tables = lister_tables_objets_sql();
-	unset($tables[$table]);
-
-	foreach ($tables as $_table => $_desc) {
-		if (
-			$associable
-			or ($primary and in_array($primary, array_keys($_desc['field'])))
-			or objet_associable($_desc['type'])
-		) {
-			$champs[] = id_table_objet($_table);
-		}
-	}
-	$champs = array_values(array_unique($champs));
-
-	// Exclusions de certains id
-	$exclusions = pipeline(
-		'exclure_id_conditionnel',
-		[
-			'args' => [
-				'table' => $table,
-				'id_table_objet' => $primary,
-				'associable' => $associable,
-			],
-			'data' => [],
-		]
-	);
-	$champs = array_diff($champs, $exclusions);
-
-	return $champs;
+    // calculer la description de la table
+    if (!is_array($desc)) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        return [];
+    }
+
+    // Les champs id_xx de la table demandée
+    $champs = array_filter(
+        array_keys($desc['field']),
+        function ($champ) {
+            return
+                strpos($champ, 'id_') === 0
+                or (in_array($champ, ['objet']));
+        }
+    );
+
+    // Si le champ id_rubrique appartient à la liste et si id_secteur n'est pas inclus on le rajoute.
+    if (
+        in_array('id_rubrique', $champs)
+        and !in_array('id_secteur', $champs)
+    ) {
+        $champs[] = 'id_secteur';
+    }
+
+    // On ne fera pas mieux pour les tables d’un autre serveur
+    if ($serveur) {
+        return $champs;
+    }
+
+    $primary = false;
+    $associable = false;
+    include_spip('action/editer_liens');
+
+    if (isset($desc['type'])) {
+        $primary = id_table_objet($desc['type']);
+        $associable = objet_associable($desc['type']);
+    }
+    if (isset($desc['field']['id_objet']) and isset($desc['field']['objet'])) {
+        $associable = true;
+    }
+
+    // liste de toutes les tables principales, sauf la notre
+    $tables = lister_tables_objets_sql();
+    unset($tables[$table]);
+
+    foreach ($tables as $_table => $_desc) {
+        if (
+            $associable
+            or ($primary and in_array($primary, array_keys($_desc['field'])))
+            or objet_associable($_desc['type'])
+        ) {
+            $champs[] = id_table_objet($_table);
+        }
+    }
+    $champs = array_values(array_unique($champs));
+
+    // Exclusions de certains id
+    $exclusions = pipeline(
+        'exclure_id_conditionnel',
+        [
+            'args' => [
+                'table' => $table,
+                'id_table_objet' => $primary,
+                'associable' => $associable,
+            ],
+            'data' => [],
+        ]
+    );
+    $champs = array_diff($champs, $exclusions);
+
+    return $champs;
 }
 
 /**
@@ -1835,27 +1835,27 @@ 
  * @return void
  */
 function critere_tri_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-
-	// definition du champ par defaut
-	$_champ_defaut = !isset($crit->param[0][0]) ? "''"
-		: calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
-	$_sens_defaut = !isset($crit->param[1][0]) ? '1'
-		: calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
-	$_variable = !isset($crit->param[2][0]) ? "'$idb'"
-		: calculer_liste([$crit->param[2][0]], $idb, $boucles, $boucle->id_parent);
-
-	$_tri = "((\$t=(isset(\$Pile[0]['tri'.$_variable]))?\$Pile[0]['tri'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('tri'.$_variable))?session_get('tri'.$_variable):$_champ_defaut))?tri_protege_champ(\$t):'')";
-
-	$_sens_defaut = "(is_array(\$s=$_sens_defaut)?(isset(\$s[\$st=$_tri])?\$s[\$st]:reset(\$s)):\$s)";
-	$_sens = "((intval(\$t=(isset(\$Pile[0]['sens'.$_variable]))?\$Pile[0]['sens'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('sens'.$_variable))?session_get('sens'.$_variable):$_sens_defaut))==-1 OR \$t=='inverse')?-1:1)";
-
-	$boucle->modificateur['tri_champ'] = $_tri;
-	$boucle->modificateur['tri_sens'] = $_sens;
-	$boucle->modificateur['tri_nom'] = $_variable;
-	// faut il inserer un test sur l'existence de $tri parmi les champs de la table ?
-	// evite des erreurs sql, mais peut empecher des tri sur jointure ...
-	$boucle->hash .= "
+    $boucle = &$boucles[$idb];
+
+    // definition du champ par defaut
+    $_champ_defaut = !isset($crit->param[0][0]) ? "''"
+        : calculer_liste([$crit->param[0][0]], $idb, $boucles, $boucle->id_parent);
+    $_sens_defaut = !isset($crit->param[1][0]) ? '1'
+        : calculer_liste([$crit->param[1][0]], $idb, $boucles, $boucle->id_parent);
+    $_variable = !isset($crit->param[2][0]) ? "'$idb'"
+        : calculer_liste([$crit->param[2][0]], $idb, $boucles, $boucle->id_parent);
+
+    $_tri = "((\$t=(isset(\$Pile[0]['tri'.$_variable]))?\$Pile[0]['tri'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('tri'.$_variable))?session_get('tri'.$_variable):$_champ_defaut))?tri_protege_champ(\$t):'')";
+
+    $_sens_defaut = "(is_array(\$s=$_sens_defaut)?(isset(\$s[\$st=$_tri])?\$s[\$st]:reset(\$s)):\$s)";
+    $_sens = "((intval(\$t=(isset(\$Pile[0]['sens'.$_variable]))?\$Pile[0]['sens'.$_variable]:((strncmp($_variable,'session',7)==0 AND session_get('sens'.$_variable))?session_get('sens'.$_variable):$_sens_defaut))==-1 OR \$t=='inverse')?-1:1)";
+
+    $boucle->modificateur['tri_champ'] = $_tri;
+    $boucle->modificateur['tri_sens'] = $_sens;
+    $boucle->modificateur['tri_nom'] = $_variable;
+    // faut il inserer un test sur l'existence de $tri parmi les champs de la table ?
+    // evite des erreurs sql, mais peut empecher des tri sur jointure ...
+    $boucle->hash .= "
 	\$senstri = '';
 	\$tri = $_tri;
 	if (\$tri){
@@ -1863,8 +1863,8 @@ 
 		\$senstri = (\$senstri<0)?' DESC':'';
 	};
 	";
-	$boucle->select[] = '".tri_champ_select($tri)."';
-	$boucle->order[] = "tri_champ_order(\$tri,\$command['from'],\$senstri)";
+    $boucle->select[] = '".tri_champ_select($tri)."';
+    $boucle->order[] = "tri_champ_order(\$tri,\$command['from'],\$senstri)";
 }
 
 # Criteres de comparaison
@@ -1881,20 +1881,20 @@ 
  * @return void
  **/
 function calculer_critere_DEFAUT_dist($idb, &$boucles, $crit) {
-	// double cas particulier {0,1} et {1/2} repere a l'analyse lexicale
-	if (($crit->op == ',') or ($crit->op == '/')) {
-		return calculer_critere_parties($idb, $boucles, $crit);
-	}
-
-	$r = calculer_critere_infixe($idb, $boucles, $crit);
-	if (!$r) {
-		#	// on produit une erreur seulement si le critere n'a pas de '?'
-		#	if (!$crit->cond) {
-		return (['zbug_critere_inconnu', ['critere' => $crit->op]]);
-		#	}
-	} else {
-		calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r);
-	}
+    // double cas particulier {0,1} et {1/2} repere a l'analyse lexicale
+    if (($crit->op == ',') or ($crit->op == '/')) {
+        return calculer_critere_parties($idb, $boucles, $crit);
+    }
+
+    $r = calculer_critere_infixe($idb, $boucles, $crit);
+    if (!$r) {
+        #	// on produit une erreur seulement si le critere n'a pas de '?'
+        #	if (!$crit->cond) {
+        return (['zbug_critere_inconnu', ['critere' => $crit->op]]);
+        #	}
+    } else {
+        calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r);
+    }
 }
 
 
@@ -1914,62 +1914,62 @@ 
  * @return void
  **/
 function calculer_critere_DEFAUT_args($idb, &$boucles, $crit, $args) {
-	list($arg, $op, $val, $col, $where_complement) = $args;
-
-	$where = ["'$op'", "'$arg'", $val[0]];
-
-	// inserer la negation (cf !...)
-
-	if ($crit->not) {
-		$where = ["'NOT'", $where];
-	}
-	if ($crit->exclus) {
-		if (!preg_match(',^L[0-9]+[.],', $arg)) {
-			$where = ["'NOT'", $where];
-		} else {
-			// un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
-			// c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
-			$where = [
-				"'NOT'",
-				[
-					"'IN'",
-					"'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
-					["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
-				]
-			];
-		}
-	}
-
-	// inserer la condition (cf {lang?})
-	// traiter a part la date, elle est mise d'office par SPIP,
-	if ($crit->cond) {
-		$pred = calculer_argument_precedent($idb, $col, $boucles);
-		if ($col == 'date' or $col == 'date_redac') {
-			if ($pred == "\$Pile[0]['" . $col . "']") {
-				$pred = "(\$Pile[0]['{$col}_default']?'':$pred)";
-			}
-		}
-
-		if ($op == '=' and !$crit->not) {
-			$where = [
-				"'?'",
-				"(is_array($pred))",
-				critere_IN_cas($idb, $boucles, 'COND', $arg, $op, [$pred], $col),
-				$where
-			];
-		}
-		$where = ["'?'", "!(is_array($pred)?count($pred):strlen($pred))", "''", $where];
-		if ($where_complement) {
-			// condition annexe du type "AND (objet='article')"
-			$where_complement = ["'?'", "!(is_array($pred)?count($pred):strlen($pred))", "''", $where_complement];
-		}
-	}
-
-	$boucles[$idb]->where[] = $where;
-	if ($where_complement) {
-		// condition annexe du type "AND (objet='article')"
-		$boucles[$idb]->where[] = $where_complement;
-	}
+    list($arg, $op, $val, $col, $where_complement) = $args;
+
+    $where = ["'$op'", "'$arg'", $val[0]];
+
+    // inserer la negation (cf !...)
+
+    if ($crit->not) {
+        $where = ["'NOT'", $where];
+    }
+    if ($crit->exclus) {
+        if (!preg_match(',^L[0-9]+[.],', $arg)) {
+            $where = ["'NOT'", $where];
+        } else {
+            // un not sur un critere de jointure se traduit comme un NOT IN avec une sous requete
+            // c'est une sous requete identique a la requete principale sous la forme (SELF,$select,$where) avec $select et $where qui surchargent
+            $where = [
+                "'NOT'",
+                [
+                    "'IN'",
+                    "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'",
+                    ["'SELF'", "'" . $boucles[$idb]->id_table . '.' . $boucles[$idb]->primary . "'", $where]
+                ]
+            ];
+        }
+    }
+
+    // inserer la condition (cf {lang?})
+    // traiter a part la date, elle est mise d'office par SPIP,
+    if ($crit->cond) {
+        $pred = calculer_argument_precedent($idb, $col, $boucles);
+        if ($col == 'date' or $col == 'date_redac') {
+            if ($pred == "\$Pile[0]['" . $col . "']") {
+                $pred = "(\$Pile[0]['{$col}_default']?'':$pred)";
+            }
+        }
+
+        if ($op == '=' and !$crit->not) {
+            $where = [
+                "'?'",
+                "(is_array($pred))",
+                critere_IN_cas($idb, $boucles, 'COND', $arg, $op, [$pred], $col),
+                $where
+            ];
+        }
+        $where = ["'?'", "!(is_array($pred)?count($pred):strlen($pred))", "''", $where];
+        if ($where_complement) {
+            // condition annexe du type "AND (objet='article')"
+            $where_complement = ["'?'", "!(is_array($pred)?count($pred):strlen($pred))", "''", $where_complement];
+        }
+    }
+
+    $boucles[$idb]->where[] = $where;
+    if ($where_complement) {
+        // condition annexe du type "AND (objet='article')"
+        $boucles[$idb]->where[] = $where_complement;
+    }
 }
 
 
@@ -2010,165 +2010,165 @@ 
  **/
 function calculer_critere_infixe($idb, &$boucles, $crit) {
 
-	$boucle = &$boucles[$idb];
-	$type = $boucle->type_requete;
-	$table = $boucle->id_table;
-	$desc = $boucle->show;
-	$col_vraie = null;
-
-	list($fct, $col, $op, $val, $args_sql) =
-		calculer_critere_infixe_ops($idb, $boucles, $crit);
-
-	$col_alias = $col;
-	$where_complement = false;
-
-	// Cas particulier : id_enfant => utiliser la colonne id_objet
-	if ($col == 'id_enfant') {
-		$col = $boucle->primary;
-	}
-
-	// Cas particulier : id_parent => verifier les exceptions de tables
-	if (
-		(in_array($col, ['id_parent', 'id_secteur']) and isset($GLOBALS['exceptions_des_tables'][$table][$col]))
-		or (isset($GLOBALS['exceptions_des_tables'][$table][$col]) and is_string($GLOBALS['exceptions_des_tables'][$table][$col]))
-	) {
-		$col = $GLOBALS['exceptions_des_tables'][$table][$col];
-	} // et possibilite de gerer un critere secteur sur des tables de plugins (ie forums)
-	else {
-		if (($col == 'id_secteur') and ($critere_secteur = charger_fonction("critere_secteur_$type", 'public', true))) {
-			$table = $critere_secteur($idb, $boucles, $val, $crit);
-		}
-
-		// cas id_article=xx qui se mappe en id_objet=xx AND objet=article
-		// sauf si exception declaree : sauter cette etape
-		else {
-			if (
-				!isset($GLOBALS['exceptions_des_jointures'][table_objet_sql($table)][$col])
-				and !isset($GLOBALS['exceptions_des_jointures'][$col])
-				and count(trouver_champs_decomposes($col, $desc)) > 1
-			) {
-				$e = decompose_champ_id_objet($col);
-				$col = array_shift($e);
-				$where_complement = primary_doublee($e, $table);
-			} // Cas particulier : expressions de date
-			else {
-				if ($c = calculer_critere_infixe_date($idb, $boucles, $col)) {
-					list($col, $col_vraie) = $c;
-					$table = '';
-				} // table explicitée {mots.titre}
-				else {
-					if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
-						list(, $table, $col) = $r;
-						$col_alias = $col;
-
-						$trouver_table = charger_fonction('trouver_table', 'base');
-						if (
-							$desc = $trouver_table($table, $boucle->sql_serveur)
-							and isset($desc['field'][$col])
-							and $cle = array_search($desc['table'], $boucle->from)
-						) {
-							$table = $cle;
-						} else {
-							$table = trouver_jointure_champ($col, $boucle, [$table], ($crit->cond or $op != '='));
-						}
-						#$table = calculer_critere_externe_init($boucle, array($table), $col, $desc, ($crit->cond OR $op!='='), true);
-						if (!$table) {
-							return '';
-						}
-					}
-					// si le champ n'est pas trouvé dans la table,
-					// on cherche si une jointure peut l'obtenir
-					elseif (@!array_key_exists($col, $desc['field'])) {
-						// Champ joker * des iterateurs DATA qui accepte tout
-						if (@array_key_exists('*', $desc['field'])) {
-							$desc['field'][$col_vraie ? $col_vraie : $col] = ''; // on veut pas de cast INT par defaut car le type peut etre n'importe quoi dans les boucles DATA
-						}
-						else {
-							$r = calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table);
-							if (!$r) {
-								return '';
-							}
-							list($col, $col_alias, $table, $where_complement, $desc) = $r;
-						}
-					}
-				}
-			}
-		}
-	}
-
-	$col_vraie = ($col_vraie ? $col_vraie : $col);
-	// Dans tous les cas,
-	// virer les guillemets eventuels autour d'un int (qui sont refuses par certains SQL)
-	// et passer dans sql_quote avec le type si connu
-	// et int sinon si la valeur est numerique
-	// sinon introduire le vrai type du champ si connu dans le sql_quote (ou int NOT NULL sinon)
-	// Ne pas utiliser intval, PHP tronquant les Bigint de SQL
-	if ($op == '=' or in_array($op, $GLOBALS['table_criteres_infixes'])) {
-		$type_cast_quote = (isset($desc['field'][$col_vraie]) ? $desc['field'][$col_vraie] : 'int NOT NULL');
-		// defaire le quote des int et les passer dans sql_quote avec le bon type de champ si on le connait, int sinon
-		// prendre en compte le debug ou la valeur arrive avec un commentaire PHP en debut
-		if (preg_match(",^\\A(\s*//.*?$\s*)?\"'(-?\d+)'\"\\z,ms", $val[0], $r)) {
-			$val[0] = $r[1] . '"' . sql_quote($r[2], $boucle->sql_serveur, $type_cast_quote) . '"';
-		}
-		// sinon expliciter les
-		// sql_quote(truc) en sql_quote(truc,'',type)
-		// sql_quote(truc,serveur) en sql_quote(truc,serveur,type)
-		// sql_quote(truc,serveur,'') en sql_quote(truc,serveur,type)
-		// sans toucher aux
-		// sql_quote(truc,'','varchar(10) DEFAULT \'oui\' COLLATE NOCASE')
-		// sql_quote(truc,'','varchar')
-		elseif (
-			preg_match('/\Asql_quote[(](.*?)(,[^)]*?)?(,[^)]*(?:\(\d+\)[^)]*)?)?[)]\s*\z/ms', $val[0], $r)
-			// si pas deja un type
-			and (!isset($r[3]) or !$r[3] or !trim($r[3], ", '"))
-		) {
-			$r = $r[1]
-				. ((isset($r[2]) and $r[2]) ? $r[2] : ",''")
-				. ",'" . addslashes($type_cast_quote) . "'";
-			$val[0] = "sql_quote($r)";
-		}
-		elseif (
-			strpos($val[0], '@@defaultcast@@') !== false
-			and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
-		) {
-			$val[0] = substr($val[0], 0, -strlen($r[0])) . "'" . addslashes($type_cast_quote) . "')";
-		}
-	}
-
-	if (
-		strpos($val[0], '@@defaultcast@@') !== false
-		and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
-	) {
-		$val[0] = substr($val[0], 0, -strlen($r[0])) . "'char')";
-	}
-
-	// Indicateur pour permettre aux fonctionx boucle_X de modifier
-	// leurs requetes par defaut, notamment le champ statut
-	// Ne pas confondre champs de la table principale et des jointures
-	if ($table === $boucle->id_table) {
-		$boucles[$idb]->modificateur['criteres'][$col_vraie] = true;
-		if ($col_alias != $col_vraie) {
-			$boucles[$idb]->modificateur['criteres'][$col_alias] = true;
-		}
-	}
-
-	// inserer le nom de la table SQL devant le nom du champ
-	if ($table) {
-		if ($col[0] == '`') {
-			$arg = "$table." . substr($col, 1, -1);
-		} else {
-			$arg = "$table.$col";
-		}
-	} else {
-		$arg = $col;
-	}
-
-	// inserer la fonction SQL
-	if ($fct) {
-		$arg = "$fct($arg$args_sql)";
-	}
-
-	return [$arg, $op, $val, $col_alias, $where_complement];
+    $boucle = &$boucles[$idb];
+    $type = $boucle->type_requete;
+    $table = $boucle->id_table;
+    $desc = $boucle->show;
+    $col_vraie = null;
+
+    list($fct, $col, $op, $val, $args_sql) =
+        calculer_critere_infixe_ops($idb, $boucles, $crit);
+
+    $col_alias = $col;
+    $where_complement = false;
+
+    // Cas particulier : id_enfant => utiliser la colonne id_objet
+    if ($col == 'id_enfant') {
+        $col = $boucle->primary;
+    }
+
+    // Cas particulier : id_parent => verifier les exceptions de tables
+    if (
+        (in_array($col, ['id_parent', 'id_secteur']) and isset($GLOBALS['exceptions_des_tables'][$table][$col]))
+        or (isset($GLOBALS['exceptions_des_tables'][$table][$col]) and is_string($GLOBALS['exceptions_des_tables'][$table][$col]))
+    ) {
+        $col = $GLOBALS['exceptions_des_tables'][$table][$col];
+    } // et possibilite de gerer un critere secteur sur des tables de plugins (ie forums)
+    else {
+        if (($col == 'id_secteur') and ($critere_secteur = charger_fonction("critere_secteur_$type", 'public', true))) {
+            $table = $critere_secteur($idb, $boucles, $val, $crit);
+        }
+
+        // cas id_article=xx qui se mappe en id_objet=xx AND objet=article
+        // sauf si exception declaree : sauter cette etape
+        else {
+            if (
+                !isset($GLOBALS['exceptions_des_jointures'][table_objet_sql($table)][$col])
+                and !isset($GLOBALS['exceptions_des_jointures'][$col])
+                and count(trouver_champs_decomposes($col, $desc)) > 1
+            ) {
+                $e = decompose_champ_id_objet($col);
+                $col = array_shift($e);
+                $where_complement = primary_doublee($e, $table);
+            } // Cas particulier : expressions de date
+            else {
+                if ($c = calculer_critere_infixe_date($idb, $boucles, $col)) {
+                    list($col, $col_vraie) = $c;
+                    $table = '';
+                } // table explicitée {mots.titre}
+                else {
+                    if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
+                        list(, $table, $col) = $r;
+                        $col_alias = $col;
+
+                        $trouver_table = charger_fonction('trouver_table', 'base');
+                        if (
+                            $desc = $trouver_table($table, $boucle->sql_serveur)
+                            and isset($desc['field'][$col])
+                            and $cle = array_search($desc['table'], $boucle->from)
+                        ) {
+                            $table = $cle;
+                        } else {
+                            $table = trouver_jointure_champ($col, $boucle, [$table], ($crit->cond or $op != '='));
+                        }
+                        #$table = calculer_critere_externe_init($boucle, array($table), $col, $desc, ($crit->cond OR $op!='='), true);
+                        if (!$table) {
+                            return '';
+                        }
+                    }
+                    // si le champ n'est pas trouvé dans la table,
+                    // on cherche si une jointure peut l'obtenir
+                    elseif (@!array_key_exists($col, $desc['field'])) {
+                        // Champ joker * des iterateurs DATA qui accepte tout
+                        if (@array_key_exists('*', $desc['field'])) {
+                            $desc['field'][$col_vraie ? $col_vraie : $col] = ''; // on veut pas de cast INT par defaut car le type peut etre n'importe quoi dans les boucles DATA
+                        }
+                        else {
+                            $r = calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table);
+                            if (!$r) {
+                                return '';
+                            }
+                            list($col, $col_alias, $table, $where_complement, $desc) = $r;
+                        }
+                    }
+                }
+            }
+        }
+    }
+
+    $col_vraie = ($col_vraie ? $col_vraie : $col);
+    // Dans tous les cas,
+    // virer les guillemets eventuels autour d'un int (qui sont refuses par certains SQL)
+    // et passer dans sql_quote avec le type si connu
+    // et int sinon si la valeur est numerique
+    // sinon introduire le vrai type du champ si connu dans le sql_quote (ou int NOT NULL sinon)
+    // Ne pas utiliser intval, PHP tronquant les Bigint de SQL
+    if ($op == '=' or in_array($op, $GLOBALS['table_criteres_infixes'])) {
+        $type_cast_quote = (isset($desc['field'][$col_vraie]) ? $desc['field'][$col_vraie] : 'int NOT NULL');
+        // defaire le quote des int et les passer dans sql_quote avec le bon type de champ si on le connait, int sinon
+        // prendre en compte le debug ou la valeur arrive avec un commentaire PHP en debut
+        if (preg_match(",^\\A(\s*//.*?$\s*)?\"'(-?\d+)'\"\\z,ms", $val[0], $r)) {
+            $val[0] = $r[1] . '"' . sql_quote($r[2], $boucle->sql_serveur, $type_cast_quote) . '"';
+        }
+        // sinon expliciter les
+        // sql_quote(truc) en sql_quote(truc,'',type)
+        // sql_quote(truc,serveur) en sql_quote(truc,serveur,type)
+        // sql_quote(truc,serveur,'') en sql_quote(truc,serveur,type)
+        // sans toucher aux
+        // sql_quote(truc,'','varchar(10) DEFAULT \'oui\' COLLATE NOCASE')
+        // sql_quote(truc,'','varchar')
+        elseif (
+            preg_match('/\Asql_quote[(](.*?)(,[^)]*?)?(,[^)]*(?:\(\d+\)[^)]*)?)?[)]\s*\z/ms', $val[0], $r)
+            // si pas deja un type
+            and (!isset($r[3]) or !$r[3] or !trim($r[3], ", '"))
+        ) {
+            $r = $r[1]
+                . ((isset($r[2]) and $r[2]) ? $r[2] : ",''")
+                . ",'" . addslashes($type_cast_quote) . "'";
+            $val[0] = "sql_quote($r)";
+        }
+        elseif (
+            strpos($val[0], '@@defaultcast@@') !== false
+            and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
+        ) {
+            $val[0] = substr($val[0], 0, -strlen($r[0])) . "'" . addslashes($type_cast_quote) . "')";
+        }
+    }
+
+    if (
+        strpos($val[0], '@@defaultcast@@') !== false
+        and preg_match("/'@@defaultcast@@'\s*\)\s*\z/ms", $val[0], $r)
+    ) {
+        $val[0] = substr($val[0], 0, -strlen($r[0])) . "'char')";
+    }
+
+    // Indicateur pour permettre aux fonctionx boucle_X de modifier
+    // leurs requetes par defaut, notamment le champ statut
+    // Ne pas confondre champs de la table principale et des jointures
+    if ($table === $boucle->id_table) {
+        $boucles[$idb]->modificateur['criteres'][$col_vraie] = true;
+        if ($col_alias != $col_vraie) {
+            $boucles[$idb]->modificateur['criteres'][$col_alias] = true;
+        }
+    }
+
+    // inserer le nom de la table SQL devant le nom du champ
+    if ($table) {
+        if ($col[0] == '`') {
+            $arg = "$table." . substr($col, 1, -1);
+        } else {
+            $arg = "$table.$col";
+        }
+    } else {
+        $arg = $col;
+    }
+
+    // inserer la fonction SQL
+    if ($fct) {
+        $arg = "$fct($arg$args_sql)";
+    }
+
+    return [$arg, $op, $val, $col_alias, $where_complement];
 }
 
 
@@ -2197,78 +2197,78 @@ 
  **/
 function calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table) {
 
-	$where = '';
-
-	$calculer_critere_externe = 'calculer_critere_externe_init';
-	// gestion par les plugins des jointures tordues
-	// pas automatiques mais necessaires
-	$table_sql = table_objet_sql($table);
-	if (
-		isset($GLOBALS['exceptions_des_jointures'][$table_sql])
-		and is_array($GLOBALS['exceptions_des_jointures'][$table_sql])
-		and
-		(
-			isset($GLOBALS['exceptions_des_jointures'][$table_sql][$col])
-			or
-			isset($GLOBALS['exceptions_des_jointures'][$table_sql][''])
-		)
-	) {
-		$t = $GLOBALS['exceptions_des_jointures'][$table_sql];
-		$index = isset($t[$col])
-			? $t[$col] : (isset($t['']) ? $t[''] : []);
-
-		if (count($index) == 3) {
-			list($t, $col, $calculer_critere_externe) = $index;
-		} elseif (count($index) == 2) {
-			list($t, $col) = $t[$col];
-		} elseif (count($index) == 1) {
-			list($calculer_critere_externe) = $index;
-			$t = $table;
-		} else {
-			$t = '';
-		} // jointure non declaree. La trouver.
-	} elseif (isset($GLOBALS['exceptions_des_jointures'][$col])) {
-		list($t, $col) = $GLOBALS['exceptions_des_jointures'][$col];
-	} else {
-		$t = '';
-	} // jointure non declaree. La trouver.
-
-	// ici on construit le from pour fournir $col en piochant dans les jointures
-
-	// si des jointures explicites sont fournies, on cherche d'abord dans celles ci
-	// permet de forcer une table de lien quand il y a ambiguite
-	// <BOUCLE_(DOCUMENTS documents_liens){id_mot}>
-	// alors que <BOUCLE_(DOCUMENTS){id_mot}> produit la meme chose que <BOUCLE_(DOCUMENTS mots_liens){id_mot}>
-	$table = '';
-	if ($boucle->jointures_explicites) {
-		$jointures_explicites = explode(' ', $boucle->jointures_explicites);
-		$table = $calculer_critere_externe($boucle, $jointures_explicites, $col, $desc, ($crit->cond or $op != '='), $t);
-	}
-
-	// et sinon on cherche parmi toutes les jointures declarees
-	if (!$table) {
-		$table = $calculer_critere_externe($boucle, $boucle->jointures, $col, $desc, ($crit->cond or $op != '='), $t);
-	}
-
-	if (!$table) {
-		return '';
-	}
-
-	// il ne reste plus qu'a trouver le champ dans les from
-	list($nom, $desc, $cle) = trouver_champ_exterieur($col, $boucle->from, $boucle);
-
-	if (count($cle) > 1 or reset($cle) !== $col) {
-		$col_alias = $col; // id_article devient juste le nom d'origine
-		if (count($cle) > 1 and reset($cle) == 'id_objet') {
-			$e = decompose_champ_id_objet($col);
-			$col = array_shift($e);
-			$where = primary_doublee($e, $table);
-		} else {
-			$col = reset($cle);
-		}
-	}
-
-	return [$col, $col_alias, $table, $where, $desc];
+    $where = '';
+
+    $calculer_critere_externe = 'calculer_critere_externe_init';
+    // gestion par les plugins des jointures tordues
+    // pas automatiques mais necessaires
+    $table_sql = table_objet_sql($table);
+    if (
+        isset($GLOBALS['exceptions_des_jointures'][$table_sql])
+        and is_array($GLOBALS['exceptions_des_jointures'][$table_sql])
+        and
+        (
+            isset($GLOBALS['exceptions_des_jointures'][$table_sql][$col])
+            or
+            isset($GLOBALS['exceptions_des_jointures'][$table_sql][''])
+        )
+    ) {
+        $t = $GLOBALS['exceptions_des_jointures'][$table_sql];
+        $index = isset($t[$col])
+            ? $t[$col] : (isset($t['']) ? $t[''] : []);
+
+        if (count($index) == 3) {
+            list($t, $col, $calculer_critere_externe) = $index;
+        } elseif (count($index) == 2) {
+            list($t, $col) = $t[$col];
+        } elseif (count($index) == 1) {
+            list($calculer_critere_externe) = $index;
+            $t = $table;
+        } else {
+            $t = '';
+        } // jointure non declaree. La trouver.
+    } elseif (isset($GLOBALS['exceptions_des_jointures'][$col])) {
+        list($t, $col) = $GLOBALS['exceptions_des_jointures'][$col];
+    } else {
+        $t = '';
+    } // jointure non declaree. La trouver.
+
+    // ici on construit le from pour fournir $col en piochant dans les jointures
+
+    // si des jointures explicites sont fournies, on cherche d'abord dans celles ci
+    // permet de forcer une table de lien quand il y a ambiguite
+    // <BOUCLE_(DOCUMENTS documents_liens){id_mot}>
+    // alors que <BOUCLE_(DOCUMENTS){id_mot}> produit la meme chose que <BOUCLE_(DOCUMENTS mots_liens){id_mot}>
+    $table = '';
+    if ($boucle->jointures_explicites) {
+        $jointures_explicites = explode(' ', $boucle->jointures_explicites);
+        $table = $calculer_critere_externe($boucle, $jointures_explicites, $col, $desc, ($crit->cond or $op != '='), $t);
+    }
+
+    // et sinon on cherche parmi toutes les jointures declarees
+    if (!$table) {
+        $table = $calculer_critere_externe($boucle, $boucle->jointures, $col, $desc, ($crit->cond or $op != '='), $t);
+    }
+
+    if (!$table) {
+        return '';
+    }
+
+    // il ne reste plus qu'a trouver le champ dans les from
+    list($nom, $desc, $cle) = trouver_champ_exterieur($col, $boucle->from, $boucle);
+
+    if (count($cle) > 1 or reset($cle) !== $col) {
+        $col_alias = $col; // id_article devient juste le nom d'origine
+        if (count($cle) > 1 and reset($cle) == 'id_objet') {
+            $e = decompose_champ_id_objet($col);
+            $col = array_shift($e);
+            $where = primary_doublee($e, $table);
+        } else {
+            $col = reset($cle);
+        }
+    }
+
+    return [$col, $col_alias, $table, $where, $desc];
 }
 
 
@@ -2289,10 +2289,10 @@ 
  *     - valeur
  **/
 function primary_doublee($decompose, $table) {
-	$e1 = reset($decompose);
-	$e2 = "sql_quote('" . end($decompose) . "')";
+    $e1 = reset($decompose);
+    $e2 = "sql_quote('" . end($decompose) . "')";
 
-	return ["'='", "'$table." . $e1 . "'", $e2];
+    return ["'='", "'$table." . $e1 . "'", $e2];
 }
 
 /**
@@ -2323,57 +2323,57 @@ 
  *     Vide sinon.
  */
 function calculer_critere_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false) {
-	// si on demande un truc du genre spip_mots
-	// avec aussi spip_mots_liens dans les jointures dispo
-	// et qu'on est la
-	// il faut privilegier la jointure directe en 2 etapes spip_mots_liens, spip_mots
-	if (
-		$checkarrivee
-		and is_string($checkarrivee)
-		and $a = table_objet($checkarrivee)
-		and in_array($a . '_liens', $joints)
-	) {
-		if ($res = calculer_lien_externe_init($boucle, $joints, $col, $desc, $cond, $checkarrivee)) {
-			return $res;
-		}
-	}
-	foreach ($joints as $joint) {
-		if ($arrivee = trouver_champ_exterieur($col, [$joint], $boucle, $checkarrivee)) {
-			// alias de table dans le from
-			$t = array_search($arrivee[0], $boucle->from);
-			// recuperer la cle id_xx eventuellement decomposee en (id_objet,objet)
-			$cols = $arrivee[2];
-			// mais on ignore la 3eme cle si presente qui correspond alors au point de depart
-			if (count($cols) > 2) {
-				array_pop($cols);
-			}
-			if ($t) {
-				// la table est déjà dans le FROM, on vérifie si le champ est utilisé.
-				$joindre = false;
-				foreach ($cols as $col) {
-					$c = '/\b' . $t . ".$col" . '\b/';
-					if (trouver_champ($c, $boucle->where)) {
-						$joindre = true;
-					} else {
-						// mais ca peut etre dans le FIELD pour le Having
-						$c = "/FIELD.$t" . ".$col,/";
-						if (trouver_champ($c, $boucle->select)) {
-							$joindre = true;
-						}
-					}
-				}
-				if (!$joindre) {
-					return $t;
-				}
-			}
-			array_pop($arrivee);
-			if ($res = calculer_jointure($boucle, [$boucle->id_table, $desc], $arrivee, $cols, $cond, 1)) {
-				return $res;
-			}
-		}
-	}
-
-	return '';
+    // si on demande un truc du genre spip_mots
+    // avec aussi spip_mots_liens dans les jointures dispo
+    // et qu'on est la
+    // il faut privilegier la jointure directe en 2 etapes spip_mots_liens, spip_mots
+    if (
+        $checkarrivee
+        and is_string($checkarrivee)
+        and $a = table_objet($checkarrivee)
+        and in_array($a . '_liens', $joints)
+    ) {
+        if ($res = calculer_lien_externe_init($boucle, $joints, $col, $desc, $cond, $checkarrivee)) {
+            return $res;
+        }
+    }
+    foreach ($joints as $joint) {
+        if ($arrivee = trouver_champ_exterieur($col, [$joint], $boucle, $checkarrivee)) {
+            // alias de table dans le from
+            $t = array_search($arrivee[0], $boucle->from);
+            // recuperer la cle id_xx eventuellement decomposee en (id_objet,objet)
+            $cols = $arrivee[2];
+            // mais on ignore la 3eme cle si presente qui correspond alors au point de depart
+            if (count($cols) > 2) {
+                array_pop($cols);
+            }
+            if ($t) {
+                // la table est déjà dans le FROM, on vérifie si le champ est utilisé.
+                $joindre = false;
+                foreach ($cols as $col) {
+                    $c = '/\b' . $t . ".$col" . '\b/';
+                    if (trouver_champ($c, $boucle->where)) {
+                        $joindre = true;
+                    } else {
+                        // mais ca peut etre dans le FIELD pour le Having
+                        $c = "/FIELD.$t" . ".$col,/";
+                        if (trouver_champ($c, $boucle->select)) {
+                            $joindre = true;
+                        }
+                    }
+                }
+                if (!$joindre) {
+                    return $t;
+                }
+            }
+            array_pop($arrivee);
+            if ($res = calculer_jointure($boucle, [$boucle->id_table, $desc], $arrivee, $cols, $cond, 1)) {
+                return $res;
+            }
+        }
+    }
+
+    return '';
 }
 
 /**
@@ -2399,35 +2399,35 @@ 
  *     Alias de la table de jointure (Lx)
  */
 function calculer_lien_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false) {
-	$primary_arrivee = id_table_objet($checkarrivee);
-
-	// [FIXME] $checkarrivee peut-il arriver avec false ????
-	$intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee . '_liens');
-	$arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
-
-	if (!$intermediaire or !$arrivee) {
-		return '';
-	}
-	array_pop($intermediaire); // enlever la cle en 3eme argument
-	array_pop($arrivee); // enlever la cle en 3eme argument
-
-	$res = fabrique_jointures(
-		$boucle,
-		[
-			[
-				$boucle->id_table,
-				$intermediaire,
-				[id_table_objet($desc['table_objet']), 'id_objet', 'objet', $desc['type']]
-			],
-			[reset($intermediaire), $arrivee, $primary_arrivee]
-		],
-		$cond,
-		$desc,
-		$boucle->id_table,
-		[$col]
-	);
-
-	return $res;
+    $primary_arrivee = id_table_objet($checkarrivee);
+
+    // [FIXME] $checkarrivee peut-il arriver avec false ????
+    $intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee . '_liens');
+    $arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
+
+    if (!$intermediaire or !$arrivee) {
+        return '';
+    }
+    array_pop($intermediaire); // enlever la cle en 3eme argument
+    array_pop($arrivee); // enlever la cle en 3eme argument
+
+    $res = fabrique_jointures(
+        $boucle,
+        [
+            [
+                $boucle->id_table,
+                $intermediaire,
+                [id_table_objet($desc['table_objet']), 'id_objet', 'objet', $desc['type']]
+            ],
+            [reset($intermediaire), $arrivee, $primary_arrivee]
+        ],
+        $cond,
+        $desc,
+        $boucle->id_table,
+        [$col]
+    );
+
+    return $res;
 }
 
 
@@ -2444,17 +2444,17 @@ 
  *     false sinon.
  **/
 function trouver_champ($champ, $where) {
-	if (!is_array($where)) {
-		return preg_match($champ, $where);
-	} else {
-		foreach ($where as $clause) {
-			if (trouver_champ($champ, $clause)) {
-				return true;
-			}
-		}
-
-		return false;
-	}
+    if (!is_array($where)) {
+        return preg_match($champ, $where);
+    } else {
+        foreach ($where as $clause) {
+            if (trouver_champ($champ, $clause)) {
+                return true;
+            }
+        }
+
+        return false;
+    }
 }
 
 
@@ -2480,130 +2480,130 @@ 
  *     - string $args_sql  Suite des arguments du critère. ?
  **/
 function calculer_critere_infixe_ops($idb, &$boucles, $crit) {
-	// cas d'une valeur comparee a elle-meme ou son referent
-	if (count($crit->param) == 0) {
-		$op = '=';
-		$col = $val = $crit->op;
-		if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
-			$val = $r[2];
-		}
-		// Cas special {lang} : aller chercher $GLOBALS['spip_lang']
-		if ($val == 'lang') {
-			$val = [kwote('$GLOBALS[\'spip_lang\']')];
-		} else {
-			$defaut = null;
-			if ($val == 'id_parent') {
-				// Si id_parent, comparer l'id_parent avec l'id_objet
-				// de la boucle superieure.... faudrait verifier qu'il existe
-				// pour eviter l'erreur SQL
-				$val = $boucles[$idb]->primary;
-				// mais si pas de boucle superieure, prendre id_parent dans l'env
-				$defaut = "(\$Pile[0]['id_parent'] ?? null)";
-			} elseif ($val == 'id_enfant') {
-				// Si id_enfant, comparer l'id_objet avec l'id_parent
-				// de la boucle superieure
-				$val = 'id_parent';
-			} elseif ($crit->cond and ($col == 'date' or $col == 'date_redac')) {
-				// un critere conditionnel sur date est traite a part
-				// car la date est mise d'office par SPIP,
-				$defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['" . $col . "'])";
-			}
-
-			$val = calculer_argument_precedent($idb, $val, $boucles, $defaut);
-			$val = [kwote($val)];
-		}
-	} else {
-		// comparaison explicite
-		// le phraseur impose que le premier param soit du texte
-		$params = $crit->param;
-		$op = $crit->op;
-		if ($op == '==') {
-			$op = 'REGEXP';
-		}
-		$col = array_shift($params);
-		$col = $col[0]->texte;
-
-		$val = [];
-		$parent = $boucles[$idb]->id_parent;
-
-		// Dans le cas {x=='#DATE'} etc, defaire le travail du phraseur,
-		// celui ne sachant pas ce qu'est un critere infixe
-		// et a fortiori son 2e operande qu'entoure " ou '
-		if (
-			count($params) == 1
-			and count($params[0]) == 3
-			and $params[0][0]->type == 'texte'
-			and $params[0][2]->type == 'texte'
-			and ($p = $params[0][0]->texte) == $params[0][2]->texte
-			and (($p == "'") or ($p == '"'))
-			and $params[0][1]->type == 'champ'
-		) {
-			$val[] = "$p\\$p#" . $params[0][1]->nom_champ . "\\$p$p";
-		} else {
-			foreach ((($op != 'IN') ? $params : calculer_vieux_in($params)) as $p) {
-				$a = calculer_liste($p, $idb, $boucles, $parent);
-				if (strcasecmp($op, 'IN') == 0) {
-					$val[] = $a;
-				} else {
-					$val[] = kwote($a, $boucles[$idb]->sql_serveur, '@@defaultcast@@');
-				} // toujours quoter en char ici
-			}
-		}
-	}
-
-	$fct = $args_sql = '';
-	// fonction SQL ?
-	// chercher FONCTION(champ) tel que CONCAT(titre,descriptif)
-	if (preg_match('/^(.*)' . SQL_ARGS . '$/', $col, $m)) {
-		$fct = $m[1];
-		preg_match('/^\(([^,]*)(.*)\)$/', $m[2], $a);
-		$col = $a[1];
-		if (preg_match('/^(\S*)(\s+AS\s+.*)$/i', $col, $m)) {
-			$col = $m[1];
-			$args_sql = $m[2];
-		}
-		$args_sql .= $a[2];
-	}
-
-	return [$fct, $col, $op, $val, $args_sql];
+    // cas d'une valeur comparee a elle-meme ou son referent
+    if (count($crit->param) == 0) {
+        $op = '=';
+        $col = $val = $crit->op;
+        if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
+            $val = $r[2];
+        }
+        // Cas special {lang} : aller chercher $GLOBALS['spip_lang']
+        if ($val == 'lang') {
+            $val = [kwote('$GLOBALS[\'spip_lang\']')];
+        } else {
+            $defaut = null;
+            if ($val == 'id_parent') {
+                // Si id_parent, comparer l'id_parent avec l'id_objet
+                // de la boucle superieure.... faudrait verifier qu'il existe
+                // pour eviter l'erreur SQL
+                $val = $boucles[$idb]->primary;
+                // mais si pas de boucle superieure, prendre id_parent dans l'env
+                $defaut = "(\$Pile[0]['id_parent'] ?? null)";
+            } elseif ($val == 'id_enfant') {
+                // Si id_enfant, comparer l'id_objet avec l'id_parent
+                // de la boucle superieure
+                $val = 'id_parent';
+            } elseif ($crit->cond and ($col == 'date' or $col == 'date_redac')) {
+                // un critere conditionnel sur date est traite a part
+                // car la date est mise d'office par SPIP,
+                $defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['" . $col . "'])";
+            }
+
+            $val = calculer_argument_precedent($idb, $val, $boucles, $defaut);
+            $val = [kwote($val)];
+        }
+    } else {
+        // comparaison explicite
+        // le phraseur impose que le premier param soit du texte
+        $params = $crit->param;
+        $op = $crit->op;
+        if ($op == '==') {
+            $op = 'REGEXP';
+        }
+        $col = array_shift($params);
+        $col = $col[0]->texte;
+
+        $val = [];
+        $parent = $boucles[$idb]->id_parent;
+
+        // Dans le cas {x=='#DATE'} etc, defaire le travail du phraseur,
+        // celui ne sachant pas ce qu'est un critere infixe
+        // et a fortiori son 2e operande qu'entoure " ou '
+        if (
+            count($params) == 1
+            and count($params[0]) == 3
+            and $params[0][0]->type == 'texte'
+            and $params[0][2]->type == 'texte'
+            and ($p = $params[0][0]->texte) == $params[0][2]->texte
+            and (($p == "'") or ($p == '"'))
+            and $params[0][1]->type == 'champ'
+        ) {
+            $val[] = "$p\\$p#" . $params[0][1]->nom_champ . "\\$p$p";
+        } else {
+            foreach ((($op != 'IN') ? $params : calculer_vieux_in($params)) as $p) {
+                $a = calculer_liste($p, $idb, $boucles, $parent);
+                if (strcasecmp($op, 'IN') == 0) {
+                    $val[] = $a;
+                } else {
+                    $val[] = kwote($a, $boucles[$idb]->sql_serveur, '@@defaultcast@@');
+                } // toujours quoter en char ici
+            }
+        }
+    }
+
+    $fct = $args_sql = '';
+    // fonction SQL ?
+    // chercher FONCTION(champ) tel que CONCAT(titre,descriptif)
+    if (preg_match('/^(.*)' . SQL_ARGS . '$/', $col, $m)) {
+        $fct = $m[1];
+        preg_match('/^\(([^,]*)(.*)\)$/', $m[2], $a);
+        $col = $a[1];
+        if (preg_match('/^(\S*)(\s+AS\s+.*)$/i', $col, $m)) {
+            $col = $m[1];
+            $args_sql = $m[2];
+        }
+        $args_sql .= $a[2];
+    }
+
+    return [$fct, $col, $op, $val, $args_sql];
 }
 
 // compatibilite ancienne version
 
 // https://code.spip.net/@calculer_vieux_in
 function calculer_vieux_in($params) {
-	$deb = $params[0][0];
-	$k = count($params) - 1;
-	$last = $params[$k];
-	$j = count($last) - 1;
-	$last = $last[$j];
-	$n = isset($last->texte) ? strlen($last->texte) : 0;
-
-	if (
-		!((isset($deb->texte[0]) and $deb->texte[0] == '(')
-		&& (isset($last->texte[$n - 1]) and $last->texte[$n - 1] == ')'))
-	) {
-		return $params;
-	}
-	$params[0][0]->texte = substr($deb->texte, 1);
-	// attention, on peut avoir k=0,j=0 ==> recalculer
-	$last = $params[$k][$j];
-	$n = strlen($last->texte);
-	$params[$k][$j]->texte = substr($last->texte, 0, $n - 1);
-	$newp = [];
-	foreach ($params as $v) {
-		if ($v[0]->type != 'texte') {
-			$newp[] = $v;
-		} else {
-			foreach (explode(',', $v[0]->texte) as $x) {
-				$t = new Texte();
-				$t->texte = $x;
-				$newp[] = [$t];
-			}
-		}
-	}
-
-	return $newp;
+    $deb = $params[0][0];
+    $k = count($params) - 1;
+    $last = $params[$k];
+    $j = count($last) - 1;
+    $last = $last[$j];
+    $n = isset($last->texte) ? strlen($last->texte) : 0;
+
+    if (
+        !((isset($deb->texte[0]) and $deb->texte[0] == '(')
+        && (isset($last->texte[$n - 1]) and $last->texte[$n - 1] == ')'))
+    ) {
+        return $params;
+    }
+    $params[0][0]->texte = substr($deb->texte, 1);
+    // attention, on peut avoir k=0,j=0 ==> recalculer
+    $last = $params[$k][$j];
+    $n = strlen($last->texte);
+    $params[$k][$j]->texte = substr($last->texte, 0, $n - 1);
+    $newp = [];
+    foreach ($params as $v) {
+        if ($v[0]->type != 'texte') {
+            $newp[] = $v;
+        } else {
+            foreach (explode(',', $v[0]->texte) as $x) {
+                $t = new Texte();
+                $t->texte = $x;
+                $newp[] = [$t];
+            }
+        }
+    }
+
+    return $newp;
 }
 
 /**
@@ -2622,89 +2622,89 @@ 
  *     - nom de la colonne de date (si le calcul n'est pas relatif)
  **/
 function calculer_critere_infixe_date($idb, &$boucles, $col) {
-	if (!preg_match(',^((age|jour|mois|annee)_relatif|date|mois|annee|jour|heure|age)(_[a-z_]+)?$,', $col, $regs)) {
-		return '';
-	}
-
-	$boucle = $boucles[$idb];
-	$table = $boucle->show;
-
-	// si c'est une colonne de la table, ne rien faire
-	if (isset($table['field'][$col])) {
-		return '';
-	}
-
-	if (!$table['date'] && !isset($GLOBALS['table_date'][$table['id_table']])) {
-		return '';
-	}
-	$pred = $date_orig = isset($GLOBALS['table_date'][$table['id_table']]) ? $GLOBALS['table_date'][$table['id_table']] : $table['date'];
-
-	$col = $regs[1];
-	if (isset($regs[3]) and $suite = $regs[3]) {
-		# Recherche de l'existence du champ date_xxxx,
-		# si oui choisir ce champ, sinon choisir xxxx
-
-		if (isset($table['field']["date$suite"])) {
-			$date_orig = 'date' . $suite;
-		} else {
-			$date_orig = substr($suite, 1);
-		}
-		$pred = $date_orig;
-	} else {
-		if (isset($regs[2]) and $rel = $regs[2]) {
-			$pred = 'date';
-		}
-	}
-
-	$date_compare = "\"' . normaliser_date(" .
-		calculer_argument_precedent($idb, $pred, $boucles) .
-		") . '\"";
-
-	$col_vraie = $date_orig;
-	$date_orig = $boucle->id_table . '.' . $date_orig;
-
-	switch ($col) {
-		case 'date':
-			$col = $date_orig;
-			break;
-		case 'jour':
-			$col = "DAYOFMONTH($date_orig)";
-			break;
-		case 'mois':
-			$col = "MONTH($date_orig)";
-			break;
-		case 'annee':
-			$col = "YEAR($date_orig)";
-			break;
-		case 'heure':
-			$col = "DATE_FORMAT($date_orig, \\'%H:%i\\')";
-			break;
-		case 'age':
-			$col = calculer_param_date("\'' . date('Y-m-d H:i:00') . '\'", $date_orig);
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'age_relatif':
-			$col = calculer_param_date($date_compare, $date_orig);
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'jour_relatif':
-			$col = '(TO_DAYS(' . $date_compare . ')-TO_DAYS(' . $date_orig . '))';
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'mois_relatif':
-			$col = 'MONTH(' . $date_compare . ')-MONTH(' .
-				$date_orig . ')+12*(YEAR(' . $date_compare .
-				')-YEAR(' . $date_orig . '))';
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-		case 'annee_relatif':
-			$col = 'YEAR(' . $date_compare . ')-YEAR(' .
-				$date_orig . ')';
-			$col_vraie = '';// comparer a un int (par defaut)
-			break;
-	}
-
-	return [$col, $col_vraie];
+    if (!preg_match(',^((age|jour|mois|annee)_relatif|date|mois|annee|jour|heure|age)(_[a-z_]+)?$,', $col, $regs)) {
+        return '';
+    }
+
+    $boucle = $boucles[$idb];
+    $table = $boucle->show;
+
+    // si c'est une colonne de la table, ne rien faire
+    if (isset($table['field'][$col])) {
+        return '';
+    }
+
+    if (!$table['date'] && !isset($GLOBALS['table_date'][$table['id_table']])) {
+        return '';
+    }
+    $pred = $date_orig = isset($GLOBALS['table_date'][$table['id_table']]) ? $GLOBALS['table_date'][$table['id_table']] : $table['date'];
+
+    $col = $regs[1];
+    if (isset($regs[3]) and $suite = $regs[3]) {
+        # Recherche de l'existence du champ date_xxxx,
+        # si oui choisir ce champ, sinon choisir xxxx
+
+        if (isset($table['field']["date$suite"])) {
+            $date_orig = 'date' . $suite;
+        } else {
+            $date_orig = substr($suite, 1);
+        }
+        $pred = $date_orig;
+    } else {
+        if (isset($regs[2]) and $rel = $regs[2]) {
+            $pred = 'date';
+        }
+    }
+
+    $date_compare = "\"' . normaliser_date(" .
+        calculer_argument_precedent($idb, $pred, $boucles) .
+        ") . '\"";
+
+    $col_vraie = $date_orig;
+    $date_orig = $boucle->id_table . '.' . $date_orig;
+
+    switch ($col) {
+        case 'date':
+            $col = $date_orig;
+            break;
+        case 'jour':
+            $col = "DAYOFMONTH($date_orig)";
+            break;
+        case 'mois':
+            $col = "MONTH($date_orig)";
+            break;
+        case 'annee':
+            $col = "YEAR($date_orig)";
+            break;
+        case 'heure':
+            $col = "DATE_FORMAT($date_orig, \\'%H:%i\\')";
+            break;
+        case 'age':
+            $col = calculer_param_date("\'' . date('Y-m-d H:i:00') . '\'", $date_orig);
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'age_relatif':
+            $col = calculer_param_date($date_compare, $date_orig);
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'jour_relatif':
+            $col = '(TO_DAYS(' . $date_compare . ')-TO_DAYS(' . $date_orig . '))';
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'mois_relatif':
+            $col = 'MONTH(' . $date_compare . ')-MONTH(' .
+                $date_orig . ')+12*(YEAR(' . $date_compare .
+                ')-YEAR(' . $date_orig . '))';
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+        case 'annee_relatif':
+            $col = 'YEAR(' . $date_compare . ')-YEAR(' .
+                $date_orig . ')';
+            $col_vraie = '';// comparer a un int (par defaut)
+            break;
+    }
+
+    return [$col, $col_vraie];
 }
 
 /**
@@ -2723,16 +2723,16 @@ 
  *     de colonne SQL et une date.
  **/
 function calculer_param_date($date_compare, $date_orig) {
-	if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)) {
-		$init = "'\" . (\$x = $r[1]) . \"'";
-		$date_compare = '\'$x\'';
-	} else {
-		$init = $date_compare;
-	}
-
-	return
-		// optimisation : mais prevoir le support SQLite avant
-		"TIMESTAMPDIFF(HOUR,$date_orig,$init)/24";
+    if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)) {
+        $init = "'\" . (\$x = $r[1]) . \"'";
+        $date_compare = '\'$x\'';
+    } else {
+        $init = $date_compare;
+    }
+
+    return
+        // optimisation : mais prevoir le support SQLite avant
+        "TIMESTAMPDIFF(HOUR,$date_orig,$init)/24";
 }
 
 /**
@@ -2750,20 +2750,20 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_source_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-
-	$args = [];
-	foreach ($crit->param as &$param) {
-		array_push(
-			$args,
-			calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent)
-		);
-	}
+    $boucle = &$boucles[$idb];
 
-	$boucle->hash .= '
+    $args = [];
+    foreach ($crit->param as &$param) {
+        array_push(
+            $args,
+            calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent)
+        );
+    }
+
+    $boucle->hash .= '
 	$command[\'sourcemode\'] = ' . array_shift($args) . ";\n";
 
-	$boucle->hash .= '
+    $boucle->hash .= '
 	$command[\'source\'] = array(' . join(', ', $args) . ");\n";
 }
 
@@ -2781,8 +2781,8 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_datacache_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= '
 	$command[\'datacache\'] = ' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent) . ';';
 }
 
@@ -2798,12 +2798,12 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_php_args_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= '$command[\'args\']=array();';
-	foreach ($crit->param as $param) {
-		$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= '$command[\'args\']=array();';
+    foreach ($crit->param as $param) {
+        $boucle->hash .= '
 			$command[\'args\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ';';
-	}
+    }
 }
 
 /**
@@ -2820,16 +2820,16 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_liste_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= "\n\t" . '$command[\'liste\'] = array();' . "\n";
-	foreach ($crit->param as $param) {
-		$boucle->hash .= "\t" . '$command[\'liste\'][] = ' . calculer_liste(
-			$param,
-			$idb,
-			$boucles,
-			$boucles[$idb]->id_parent
-		) . ";\n";
-	}
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= "\n\t" . '$command[\'liste\'] = array();' . "\n";
+    foreach ($crit->param as $param) {
+        $boucle->hash .= "\t" . '$command[\'liste\'][] = ' . calculer_liste(
+            $param,
+            $idb,
+            $boucles,
+            $boucles[$idb]->id_parent
+        ) . ";\n";
+    }
 }
 
 /**
@@ -2854,16 +2854,16 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_enum_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= "\n\t" . '$command[\'enum\'] = array();' . "\n";
-	foreach ($crit->param as $param) {
-		$boucle->hash .= "\t" . '$command[\'enum\'][] = ' . calculer_liste(
-			$param,
-			$idb,
-			$boucles,
-			$boucles[$idb]->id_parent
-		) . ";\n";
-	}
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= "\n\t" . '$command[\'enum\'] = array();' . "\n";
+    foreach ($crit->param as $param) {
+        $boucle->hash .= "\t" . '$command[\'enum\'][] = ' . calculer_liste(
+            $param,
+            $idb,
+            $boucles,
+            $boucles[$idb]->id_parent
+        ) . ";\n";
+    }
 }
 
 /**
@@ -2878,11 +2878,11 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_datapath_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	foreach ($crit->param as $param) {
-		$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    foreach ($crit->param as $param) {
+        $boucle->hash .= '
 			$command[\'datapath\'][] = ' . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ';';
-	}
+    }
 }
 
 
@@ -2914,20 +2914,20 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_si_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	// il faut initialiser 1 fois le tableau a chaque appel de la boucle
-	// (par exemple lorsque notre boucle est appelee dans une autre boucle)
-	// mais ne pas l'initialiser n fois si il y a n criteres {si } dans la boucle !
-	$boucle->hash .= "\n\tif (!isset(\$si_init)) { \$command['si'] = array(); \$si_init = true; }\n";
-	if ($crit->param) {
-		foreach ($crit->param as $param) {
-			$boucle->hash .= "\t\$command['si'][] = "
-				. calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ";\n";
-		}
-		// interdire {si 0} aussi !
-	} else {
-		$boucle->hash .= '$command[\'si\'][] = 0;';
-	}
+    $boucle = &$boucles[$idb];
+    // il faut initialiser 1 fois le tableau a chaque appel de la boucle
+    // (par exemple lorsque notre boucle est appelee dans une autre boucle)
+    // mais ne pas l'initialiser n fois si il y a n criteres {si } dans la boucle !
+    $boucle->hash .= "\n\tif (!isset(\$si_init)) { \$command['si'] = array(); \$si_init = true; }\n";
+    if ($crit->param) {
+        foreach ($crit->param as $param) {
+            $boucle->hash .= "\t\$command['si'][] = "
+                . calculer_liste($param, $idb, $boucles, $boucles[$idb]->id_parent) . ";\n";
+        }
+        // interdire {si 0} aussi !
+    } else {
+        $boucle->hash .= '$command[\'si\'][] = 0;';
+    }
 }
 
 /**
@@ -2944,8 +2944,8 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_POUR_tableau_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= '
 	$command[\'source\'] = array(' . calculer_liste($crit->param[0], $idb, $boucles, $boucles[$idb]->id_parent) . ');
 	$command[\'sourcemode\'] = \'table\';';
 }
@@ -2966,29 +2966,29 @@ 
  */
 function critere_noeud_dist($idb, &$boucles, $crit) {
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$primary = $boucle->primary;
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $primary = $boucle->primary;
 
-	if (!$primary or strpos($primary, ',')) {
-		erreur_squelette(_T('zbug_doublon_sur_table_sans_cle_primaire'), $boucle);
+    if (!$primary or strpos($primary, ',')) {
+        erreur_squelette(_T('zbug_doublon_sur_table_sans_cle_primaire'), $boucle);
 
-		return;
-	}
-	$table = $boucle->type_requete;
-	$table_sql = table_objet_sql(objet_type($table));
+        return;
+    }
+    $table = $boucle->type_requete;
+    $table_sql = table_objet_sql(objet_type($table));
 
-	$id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
-		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
-		'id_parent';
+    $id_parent = isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent']) ?
+        $GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] :
+        'id_parent';
 
-	$in = 'IN';
-	$where = ["'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'"];
-	if ($not) {
-		$where = ["'NOT'", $where];
-	}
+    $in = 'IN';
+    $where = ["'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'"];
+    if ($not) {
+        $where = ["'NOT'", $where];
+    }
 
-	$boucle->where[] = $where;
+    $boucle->where[] = $where;
 }
 
 /**
@@ -3004,8 +3004,8 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_feuille_dist($idb, &$boucles, $crit) {
-	$not = $crit->not;
-	$crit->not = $not ? false : true;
-	critere_noeud_dist($idb, $boucles, $crit);
-	$crit->not = $not;
+    $not = $crit->not;
+    $crit->not = $not ? false : true;
+    critere_noeud_dist($idb, $boucles, $crit);
+    $crit->not = $not;
 }

ecrire/public/iterateur.php

Indentation +655 added lines, -655 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -21,668 +21,668 @@ 
  *
  */
 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) {
-				$this->filtre[] = $this->traduire_condition_sql_en_filtre($v);
-			}
-		}
-
-		// 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) {
-			if ($filtres = $this->assembler_filtres($this->filtre)) {
-				$filtres = 'return ' . $filtres . ';';
-				$this->func_filtre = function () use ($filtres) {
-					return eval($filtres);
-				};
-			}
-			else {
-				$this->func_filtre = null;
-			}
-		}
-	}
-
-	/**
-	 * Assembler le tableau de filtres traduits depuis les conditions SQL
-	 * les filtres vides ou null sont ignores
-	 * @param $filtres
-	 * @param string $operateur
-	 * @return string|null
-	 */
-	protected function assembler_filtres($filtres, $operateur = 'AND') {
-
-		$filtres_string = [];
-		foreach ($filtres as $k => $v) {
-			// si c'est un tableau de OR/AND + 2 sous-filtres, on recurse pour transformer en chaine
-			if (is_array($v) and in_array(reset($v), ['OR', 'AND'])) {
-				$op = array_shift($v);
-				$v = $this->assembler_filtres($v, $op);
-			}
-			if (is_null($v) or !is_string($v) or empty($v)) {
-				continue;
-			}
-			$filtres_string[] = $v;
-		}
-
-		if (!count($filtres_string)) {
-			return null;
-		}
-
-		return '(' . implode(") $operateur (", $filtres_string) . ')';
-	}
-
-	/**
-	 * Traduire un element du tableau where SQL en un filtre
-	 * @param $v
-	 * @return string|array|null
-	 */
-	protected function traduire_condition_sql_en_filtre($v) {
-		if (is_array($v)) {
-			if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
-				return 'true';
-			} elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
-				return 'true';
-			} else {
-				$op = $v[0] ?: $v;
-			}
-		} else {
-			$op = $v;
-		}
-		if ((!$op) or ($op == 1) or ($op == '0=0')) {
-			return 'true';
-		}
-		if ($op === '0=1') {
-			return 'false';
-		}
-		// traiter {cle IN a,b} ou {valeur !IN a,b}
-		if (preg_match(',^\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)$,', $op, $regs)) {
-			return $this->composer_filtre($regs[1], 'IN', $regs[3], $regs[2]);
-		}
-
-		// 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 !is_array($v) or count($v) == 1) {
-			return null; // sera ignore
-		}
-		if (count($v) == 2 and is_array($v[1])) {
-			return $this->composer_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
-		}
-		if (count($v) == 3) {
-			// traiter le OR/AND suivi de 2 valeurs
-			if (in_array($op, ['OR', 'AND'])) {
-				array_shift($v);
-				foreach (array_keys($v) as $k) {
-					$v[$k] = $this->traduire_condition_sql_en_filtre($v[$k]);
-					if ($v[$k] === null) {
-						unset($v[$k]);
-					}
-					elseif ($v[$k] === 'true') {
-						if ($op === 'OR') {
-							return 'true';
-						}
-						if ($op === 'AND') {
-							unset($v[$k]);
-						}
-					}
-					elseif ($v[$k] === 'false') {
-						if ($op === 'OR') {
-							unset($v[$k]);
-						}
-						if ($op === 'AND') {
-							return 'false';
-						}
-					}
-				}
-				if (!count($v)) {
-					return null;
-				}
-				if (count($v) === 1) {
-					return reset($v);
-				}
-				array_unshift($v, $op);
-				return $v;
-			}
-			return $this->composer_filtre($v[1], $v[0], $v[2]);
-		}
-
-		return null;  // sera ignore
-	}
-
-	/**
-	 * Calculer un filtre sur un champ du tableau
-	 * @param $cle
-	 * @param $op
-	 * @param $valeur
-	 * @param false $not
-	 * @return string|null
-	 */
-	protected function composer_filtre($cle, $op, $valeur, $not = false) {
-		if (method_exists($this->iter, 'exception_des_criteres')) {
-			if (in_array($cle, $this->iter->exception_des_criteres())) {
-				return null;
-			}
-		}
-		// 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)";
-		}
-
-		return $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) {
+                $this->filtre[] = $this->traduire_condition_sql_en_filtre($v);
+            }
+        }
+
+        // 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) {
+            if ($filtres = $this->assembler_filtres($this->filtre)) {
+                $filtres = 'return ' . $filtres . ';';
+                $this->func_filtre = function () use ($filtres) {
+                    return eval($filtres);
+                };
+            }
+            else {
+                $this->func_filtre = null;
+            }
+        }
+    }
+
+    /**
+     * Assembler le tableau de filtres traduits depuis les conditions SQL
+     * les filtres vides ou null sont ignores
+     * @param $filtres
+     * @param string $operateur
+     * @return string|null
+     */
+    protected function assembler_filtres($filtres, $operateur = 'AND') {
+
+        $filtres_string = [];
+        foreach ($filtres as $k => $v) {
+            // si c'est un tableau de OR/AND + 2 sous-filtres, on recurse pour transformer en chaine
+            if (is_array($v) and in_array(reset($v), ['OR', 'AND'])) {
+                $op = array_shift($v);
+                $v = $this->assembler_filtres($v, $op);
+            }
+            if (is_null($v) or !is_string($v) or empty($v)) {
+                continue;
+            }
+            $filtres_string[] = $v;
+        }
+
+        if (!count($filtres_string)) {
+            return null;
+        }
+
+        return '(' . implode(") $operateur (", $filtres_string) . ')';
+    }
+
+    /**
+     * Traduire un element du tableau where SQL en un filtre
+     * @param $v
+     * @return string|array|null
+     */
+    protected function traduire_condition_sql_en_filtre($v) {
+        if (is_array($v)) {
+            if ((count($v) >= 2) && ($v[0] == 'REGEXP') && ($v[2] == "'.*'")) {
+                return 'true';
+            } elseif ((count($v) >= 2) && ($v[0] == 'LIKE') && ($v[2] == "'%'")) {
+                return 'true';
+            } else {
+                $op = $v[0] ?: $v;
+            }
+        } else {
+            $op = $v;
+        }
+        if ((!$op) or ($op == 1) or ($op == '0=0')) {
+            return 'true';
+        }
+        if ($op === '0=1') {
+            return 'false';
+        }
+        // traiter {cle IN a,b} ou {valeur !IN a,b}
+        if (preg_match(',^\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)$,', $op, $regs)) {
+            return $this->composer_filtre($regs[1], 'IN', $regs[3], $regs[2]);
+        }
+
+        // 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 !is_array($v) or count($v) == 1) {
+            return null; // sera ignore
+        }
+        if (count($v) == 2 and is_array($v[1])) {
+            return $this->composer_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
+        }
+        if (count($v) == 3) {
+            // traiter le OR/AND suivi de 2 valeurs
+            if (in_array($op, ['OR', 'AND'])) {
+                array_shift($v);
+                foreach (array_keys($v) as $k) {
+                    $v[$k] = $this->traduire_condition_sql_en_filtre($v[$k]);
+                    if ($v[$k] === null) {
+                        unset($v[$k]);
+                    }
+                    elseif ($v[$k] === 'true') {
+                        if ($op === 'OR') {
+                            return 'true';
+                        }
+                        if ($op === 'AND') {
+                            unset($v[$k]);
+                        }
+                    }
+                    elseif ($v[$k] === 'false') {
+                        if ($op === 'OR') {
+                            unset($v[$k]);
+                        }
+                        if ($op === 'AND') {
+                            return 'false';
+                        }
+                    }
+                }
+                if (!count($v)) {
+                    return null;
+                }
+                if (count($v) === 1) {
+                    return reset($v);
+                }
+                array_unshift($v, $op);
+                return $v;
+            }
+            return $this->composer_filtre($v[1], $v[0], $v[2]);
+        }
+
+        return null;  // sera ignore
+    }
+
+    /**
+     * Calculer un filtre sur un champ du tableau
+     * @param $cle
+     * @param $op
+     * @param $valeur
+     * @param false $not
+     * @return string|null
+     */
+    protected function composer_filtre($cle, $op, $valeur, $not = false) {
+        if (method_exists($this->iter, 'exception_des_criteres')) {
+            if (in_array($cle, $this->iter->exception_des_criteres())) {
+                return null;
+            }
+        }
+        // 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)";
+        }
+
+        return $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;
+    }
 }

ecrire/inc/invalideur.php

Indentation +138 added lines, -138 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('base/serial');
@@ -27,7 +27,7 @@ 
  * en droit de l'éliminer
  */
 if (!defined('_AGE_CACHE_ATIME')) {
-	define('_AGE_CACHE_ATIME', 3600);
+    define('_AGE_CACHE_ATIME', 3600);
 }
 
 
@@ -40,31 +40,31 @@ 
  * @return int Taille approximative en octets
  **/
 function taille_du_cache() {
-	# check dirs until we reach > 500 files
-	$t = 0;
-	$n = 0;
-	$time = isset($GLOBALS['meta']['cache_mark']) ? $GLOBALS['meta']['cache_mark'] : 0;
-	for ($i = 0; $i < 256; $i++) {
-		$dir = _DIR_CACHE . sprintf('%02s', dechex($i));
-		if (@is_dir($dir) and is_readable($dir) and $d = opendir($dir)) {
-			while (($f = readdir($d)) !== false) {
-				if (preg_match(',^[[0-9a-f]+\.cache$,S', $f) and $a = stat("$dir/$f")) {
-					$n++;
-					if ($a['mtime'] >= $time) {
-						if ($a['blocks'] > 0) {
-							$t += 512 * $a['blocks'];
-						} else {
-							$t += $a['size'];
-						}
-					}
-				}
-			}
-		}
-		if ($n > 500) {
-			return intval(256 * $t / (1 + $i));
-		}
-	}
-	return $t;
+    # check dirs until we reach > 500 files
+    $t = 0;
+    $n = 0;
+    $time = isset($GLOBALS['meta']['cache_mark']) ? $GLOBALS['meta']['cache_mark'] : 0;
+    for ($i = 0; $i < 256; $i++) {
+        $dir = _DIR_CACHE . sprintf('%02s', dechex($i));
+        if (@is_dir($dir) and is_readable($dir) and $d = opendir($dir)) {
+            while (($f = readdir($d)) !== false) {
+                if (preg_match(',^[[0-9a-f]+\.cache$,S', $f) and $a = stat("$dir/$f")) {
+                    $n++;
+                    if ($a['mtime'] >= $time) {
+                        if ($a['blocks'] > 0) {
+                            $t += 512 * $a['blocks'];
+                        } else {
+                            $t += $a['size'];
+                        }
+                    }
+                }
+            }
+        }
+        if ($n > 500) {
+            return intval(256 * $t / (1 + $i));
+        }
+    }
+    return $t;
 }
 
 
@@ -91,30 +91,30 @@ 
  *     Inutilisé
  **/
 function inc_suivre_invalideur_dist($cond, $modif = true) {
-	if (!$modif) {
-		return;
-	}
-
-	// determiner l'objet modifie : forum, article, etc
-	if (preg_match(',["\']([a-z_]+)[/"\'],', $cond, $r)) {
-		$objet = objet_type($r[1]);
-	}
-
-	// stocker la date_modif_$objet (ne sert a rien pour le moment)
-	if (isset($objet)) {
-		ecrire_meta('derniere_modif_' . $objet, time());
-	}
-
-	// si $derniere_modif_invalide est un array('article', 'rubrique')
-	// n'affecter la meta que si un de ces objets est modifie
-	if (is_array($GLOBALS['derniere_modif_invalide'])) {
-		if (in_array($objet, $GLOBALS['derniere_modif_invalide'])) {
-			ecrire_meta('derniere_modif', time());
-		}
-	} // sinon, cas standard, toujours affecter la meta
-	else {
-		ecrire_meta('derniere_modif', time());
-	}
+    if (!$modif) {
+        return;
+    }
+
+    // determiner l'objet modifie : forum, article, etc
+    if (preg_match(',["\']([a-z_]+)[/"\'],', $cond, $r)) {
+        $objet = objet_type($r[1]);
+    }
+
+    // stocker la date_modif_$objet (ne sert a rien pour le moment)
+    if (isset($objet)) {
+        ecrire_meta('derniere_modif_' . $objet, time());
+    }
+
+    // si $derniere_modif_invalide est un array('article', 'rubrique')
+    // n'affecter la meta que si un de ces objets est modifie
+    if (is_array($GLOBALS['derniere_modif_invalide'])) {
+        if (in_array($objet, $GLOBALS['derniere_modif_invalide'])) {
+            ecrire_meta('derniere_modif', time());
+        }
+    } // sinon, cas standard, toujours affecter la meta
+    else {
+        ecrire_meta('derniere_modif', time());
+    }
 }
 
 
@@ -139,57 +139,57 @@ 
  *     Nombre de fichiers supprimés
  **/
 function purger_repertoire($dir, $options = []) {
-	if (!is_dir($dir) or !is_readable($dir)) {
-		return 0;
-	}
-
-	// sur certains sites on veut absolument garder certains caches référencés dans un CDN
-	// on peut donc inhiber la purge de ces répertoires pour eviter tout probleme
-	if (file_exists(rtrim($dir, '/') . '/inhib_purger_repertoire.txt')) {
-		return 0;
-	}
-
-	$handle = opendir($dir);
-	if (!$handle) {
-		return 0;
-	}
-
-	$total = 0;
-
-	while (($fichier = @readdir($handle)) !== false) {
-		// Eviter ".", "..", ".htaccess", ".svn" etc & CACHEDIR.TAG
-		if ($fichier[0] == '.' or $fichier == 'CACHEDIR.TAG') {
-			continue;
-		}
-		$chemin = "$dir/$fichier";
-		if (is_file($chemin)) {
-			if (
-				(!isset($options['atime']) or (@fileatime($chemin) < $options['atime']))
-				and (!isset($options['mtime']) or (@filemtime($chemin) < $options['mtime']))
-			) {
-				supprimer_fichier($chemin);
-				$total++;
-			}
-		} else {
-			if (is_dir($chemin)) {
-				$opts = $options;
-				if (isset($options['limit'])) {
-					$opts['limit'] = $options['limit'] - $total;
-				}
-				$total += purger_repertoire($chemin, $opts);
-				if (isset($options['subdir']) && $options['subdir']) {
-					spip_unlink($chemin);
-				}
-			}
-		}
-
-		if (isset($options['limit']) and $total >= $options['limit']) {
-			break;
-		}
-	}
-	closedir($handle);
-
-	return $total;
+    if (!is_dir($dir) or !is_readable($dir)) {
+        return 0;
+    }
+
+    // sur certains sites on veut absolument garder certains caches référencés dans un CDN
+    // on peut donc inhiber la purge de ces répertoires pour eviter tout probleme
+    if (file_exists(rtrim($dir, '/') . '/inhib_purger_repertoire.txt')) {
+        return 0;
+    }
+
+    $handle = opendir($dir);
+    if (!$handle) {
+        return 0;
+    }
+
+    $total = 0;
+
+    while (($fichier = @readdir($handle)) !== false) {
+        // Eviter ".", "..", ".htaccess", ".svn" etc & CACHEDIR.TAG
+        if ($fichier[0] == '.' or $fichier == 'CACHEDIR.TAG') {
+            continue;
+        }
+        $chemin = "$dir/$fichier";
+        if (is_file($chemin)) {
+            if (
+                (!isset($options['atime']) or (@fileatime($chemin) < $options['atime']))
+                and (!isset($options['mtime']) or (@filemtime($chemin) < $options['mtime']))
+            ) {
+                supprimer_fichier($chemin);
+                $total++;
+            }
+        } else {
+            if (is_dir($chemin)) {
+                $opts = $options;
+                if (isset($options['limit'])) {
+                    $opts['limit'] = $options['limit'] - $total;
+                }
+                $total += purger_repertoire($chemin, $opts);
+                if (isset($options['subdir']) && $options['subdir']) {
+                    spip_unlink($chemin);
+                }
+            }
+        }
+
+        if (isset($options['limit']) and $total >= $options['limit']) {
+            break;
+        }
+    }
+    closedir($handle);
+
+    return $total;
 }
 
 
@@ -201,17 +201,17 @@ 
 // https://code.spip.net/@retire_cache
 function retire_cache($cache) {
 
-	if (
-		preg_match(
-			',^([0-9a-f]/)?([0-9]+/)?[0-9a-f]+\.cache(\.gz)?$,i',
-			$cache
-		)
-	) {
-		// supprimer le fichier (de facon propre)
-		supprimer_fichier(_DIR_CACHE . $cache);
-	} else {
-		spip_log("Nom de fichier cache incorrect : $cache");
-	}
+    if (
+        preg_match(
+            ',^([0-9a-f]/)?([0-9]+/)?[0-9a-f]+\.cache(\.gz)?$,i',
+            $cache
+        )
+    ) {
+        // supprimer le fichier (de facon propre)
+        supprimer_fichier(_DIR_CACHE . $cache);
+    } else {
+        spip_log("Nom de fichier cache incorrect : $cache");
+    }
 }
 
 // Supprimer les caches marques "x"
@@ -219,9 +219,9 @@ 
 // la meta est toujours false ; mais evitons un bug si elle est appellee
 // https://code.spip.net/@retire_caches
 function inc_retire_caches_dist($chemin = '') {
-	if (isset($GLOBALS['meta']['invalider_caches'])) {
-		effacer_meta('invalider_caches');
-	} # concurrence
+    if (isset($GLOBALS['meta']['invalider_caches'])) {
+        effacer_meta('invalider_caches');
+    } # concurrence
 }
 
 #######################################################################
@@ -232,9 +232,9 @@ 
 ##
 
 function retire_caches($chemin = '') {
-	if ($retire_caches = charger_fonction('retire_caches', 'inc', true)) {
-		return $retire_caches($chemin);
-	}
+    if ($retire_caches = charger_fonction('retire_caches', 'inc', true)) {
+        return $retire_caches($chemin);
+    }
 }
 
 
@@ -243,10 +243,10 @@ 
 
 // https://code.spip.net/@calcul_invalideurs
 function calcul_invalideurs($corps, $primary, &$boucles, $id_boucle) {
-	if ($calcul_invalideurs = charger_fonction('calcul_invalideurs', 'inc', true)) {
-		return $calcul_invalideurs($corps, $primary, $boucles, $id_boucle);
-	}
-	return $corps;
+    if ($calcul_invalideurs = charger_fonction('calcul_invalideurs', 'inc', true)) {
+        return $calcul_invalideurs($corps, $primary, $boucles, $id_boucle);
+    }
+    return $corps;
 }
 
 
@@ -256,27 +256,27 @@ 
 //
 // https://code.spip.net/@supprime_invalideurs
 function supprime_invalideurs() {
-	if ($supprime_invalideurs = charger_fonction('supprime_invalideurs', 'inc', true)) {
-		return $supprime_invalideurs();
-	}
+    if ($supprime_invalideurs = charger_fonction('supprime_invalideurs', 'inc', true)) {
+        return $supprime_invalideurs();
+    }
 }
 
 
 // Calcul des pages : noter dans la base les liens d'invalidation
 // https://code.spip.net/@maj_invalideurs
 function maj_invalideurs($fichier, &$page) {
-	if ($maj_invalideurs = charger_fonction('maj_invalideurs', 'inc', true)) {
-		return $maj_invalideurs($fichier, $page);
-	}
+    if ($maj_invalideurs = charger_fonction('maj_invalideurs', 'inc', true)) {
+        return $maj_invalideurs($fichier, $page);
+    }
 }
 
 
 // les invalideurs sont de la forme "objet/id_objet"
 // https://code.spip.net/@insere_invalideur
 function insere_invalideur($inval, $fichier) {
-	if ($insere_invalideur = charger_fonction('insere_invalideur', 'inc', true)) {
-		return $insere_invalideur($inval, $fichier);
-	}
+    if ($insere_invalideur = charger_fonction('insere_invalideur', 'inc', true)) {
+        return $insere_invalideur($inval, $fichier);
+    }
 }
 
 //
@@ -284,16 +284,16 @@ 
 //
 // https://code.spip.net/@applique_invalideur
 function applique_invalideur($depart) {
-	if ($applique_invalideur = charger_fonction('applique_invalideur', 'inc', true)) {
-		return $applique_invalideur($depart);
-	}
+    if ($applique_invalideur = charger_fonction('applique_invalideur', 'inc', true)) {
+        return $applique_invalideur($depart);
+    }
 }
 
 //
 // Invalider les caches liés à telle condition
 //
 function suivre_invalideur($cond, $modif = true) {
-	if ($suivre_invalideur = charger_fonction('suivre_invalideur', 'inc', true)) {
-		return $suivre_invalideur($cond, $modif);
-	}
+    if ($suivre_invalideur = charger_fonction('suivre_invalideur', 'inc', true)) {
+        return $suivre_invalideur($cond, $modif);
+    }
 }

ecrire/inc/documents.php

Indentation +224 added lines, -224 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -30,11 +30,11 @@ 
  * @return string
  */
 function set_spip_doc($fichier) {
-	if (strpos($fichier, _DIR_IMG) === 0) {
-		return substr($fichier, strlen(_DIR_IMG));
-	} else {
-		return $fichier;
-	} // ex: fichier distant
+    if (strpos($fichier, _DIR_IMG) === 0) {
+        return substr($fichier, strlen(_DIR_IMG));
+    } else {
+        return $fichier;
+    } // ex: fichier distant
 }
 
 /**
@@ -46,24 +46,24 @@ 
  * @return bool|string
  */
 function get_spip_doc($fichier) {
-	// fichier distant
-	if (tester_url_absolue($fichier)) {
-		return $fichier;
-	}
-
-	// gestion d'erreurs, fichier=''
-	if (!strlen($fichier)) {
-		return false;
-	}
-
-	$fichier = (
-		strncmp($fichier, _DIR_IMG, strlen(_DIR_IMG)) != 0
-	)
-		? _DIR_IMG . $fichier
-		: $fichier;
-
-	// fichier normal
-	return $fichier;
+    // fichier distant
+    if (tester_url_absolue($fichier)) {
+        return $fichier;
+    }
+
+    // gestion d'erreurs, fichier=''
+    if (!strlen($fichier)) {
+        return false;
+    }
+
+    $fichier = (
+        strncmp($fichier, _DIR_IMG, strlen(_DIR_IMG)) != 0
+    )
+        ? _DIR_IMG . $fichier
+        : $fichier;
+
+    // fichier normal
+    return $fichier;
 }
 
 /**
@@ -77,26 +77,26 @@ 
  * @return string
  */
 function creer_repertoire_documents($ext) {
-	$rep = sous_repertoire(_DIR_IMG, $ext);
-
-	if (!$ext or !$rep) {
-		spip_log("creer_repertoire_documents '$rep' interdit");
-		exit;
-	}
-
-	// Cette variable de configuration peut etre posee par un plugin
-	// par exemple acces_restreint
-	// sauf pour logo/ utilise pour stocker les logoon et logooff
-	if (
-		isset($GLOBALS['meta']['creer_htaccess'])
-		and $GLOBALS['meta']['creer_htaccess'] == 'oui'
-		and $ext !== 'logo'
-	) {
-		include_spip('inc/acces');
-		verifier_htaccess($rep);
-	}
-
-	return $rep;
+    $rep = sous_repertoire(_DIR_IMG, $ext);
+
+    if (!$ext or !$rep) {
+        spip_log("creer_repertoire_documents '$rep' interdit");
+        exit;
+    }
+
+    // Cette variable de configuration peut etre posee par un plugin
+    // par exemple acces_restreint
+    // sauf pour logo/ utilise pour stocker les logoon et logooff
+    if (
+        isset($GLOBALS['meta']['creer_htaccess'])
+        and $GLOBALS['meta']['creer_htaccess'] == 'oui'
+        and $ext !== 'logo'
+    ) {
+        include_spip('inc/acces');
+        verifier_htaccess($rep);
+    }
+
+    return $rep;
 }
 
 /**
@@ -105,22 +105,22 @@ 
  * @param string $nom
  */
 function effacer_repertoire_temporaire($nom) {
-	if ($d = opendir($nom)) {
-		while (($f = readdir($d)) !== false) {
-			if (is_file("$nom/$f")) {
-				spip_unlink("$nom/$f");
-			} else {
-				if (
-					$f <> '.' and $f <> '..'
-					and is_dir("$nom/$f")
-				) {
-					effacer_repertoire_temporaire("$nom/$f");
-				}
-			}
-		}
-	}
-	closedir($d);
-	@rmdir($nom);
+    if ($d = opendir($nom)) {
+        while (($f = readdir($d)) !== false) {
+            if (is_file("$nom/$f")) {
+                spip_unlink("$nom/$f");
+            } else {
+                if (
+                    $f <> '.' and $f <> '..'
+                    and is_dir("$nom/$f")
+                ) {
+                    effacer_repertoire_temporaire("$nom/$f");
+                }
+            }
+        }
+    }
+    closedir($d);
+    @rmdir($nom);
 }
 
 //
@@ -137,45 +137,45 @@ 
  */
 function copier_document($ext, $orig, $source, $subdir = null) {
 
-	$orig = preg_replace(',\.\.+,', '.', $orig); // pas de .. dans le nom du doc
-	$dir = creer_repertoire_documents($subdir ? $subdir : $ext);
-
-	$dest = preg_replace('/<[^>]*>/', '', basename($orig));
-	$dest = preg_replace('/\.([^.]+)$/', '', $dest);
-	$dest = translitteration($dest);
-	$dest = preg_replace('/[^.=\w-]+/', '_', $dest);
-
-	// ne pas accepter de noms de la forme -r90.jpg qui sont reserves
-	// pour les images transformees par rotation (action/documenter)
-	$dest = preg_replace(',-r(90|180|270)$,', '', $dest);
-
-	while (preg_match(',\.(\w+)$,', $dest, $m)) {
-		if (
-			!function_exists('verifier_upload_autorise')
-			or !$r = verifier_upload_autorise($dest)
-			or $r['autozip']
-		) {
-			$dest = substr($dest, 0, -strlen($m[0])) . '_' . $m[1];
-			break;
-		}
-		else {
-			$dest = substr($dest, 0, -strlen($m[0]));
-			$ext = $m[1] . '.' . $ext;
-		}
-	}
-
-	// Si le document "source" est deja au bon endroit, ne rien faire
-	if ($source == ($dir . $dest . '.' . $ext)) {
-		return $source;
-	}
-
-	// sinon tourner jusqu'a trouver un numero correct
-	$n = 0;
-	while (@file_exists($newFile = $dir . $dest . ($n++ ? ('-' . $n) : '') . '.' . $ext)) {
-		;
-	}
-
-	return deplacer_fichier_upload($source, $newFile);
+    $orig = preg_replace(',\.\.+,', '.', $orig); // pas de .. dans le nom du doc
+    $dir = creer_repertoire_documents($subdir ? $subdir : $ext);
+
+    $dest = preg_replace('/<[^>]*>/', '', basename($orig));
+    $dest = preg_replace('/\.([^.]+)$/', '', $dest);
+    $dest = translitteration($dest);
+    $dest = preg_replace('/[^.=\w-]+/', '_', $dest);
+
+    // ne pas accepter de noms de la forme -r90.jpg qui sont reserves
+    // pour les images transformees par rotation (action/documenter)
+    $dest = preg_replace(',-r(90|180|270)$,', '', $dest);
+
+    while (preg_match(',\.(\w+)$,', $dest, $m)) {
+        if (
+            !function_exists('verifier_upload_autorise')
+            or !$r = verifier_upload_autorise($dest)
+            or $r['autozip']
+        ) {
+            $dest = substr($dest, 0, -strlen($m[0])) . '_' . $m[1];
+            break;
+        }
+        else {
+            $dest = substr($dest, 0, -strlen($m[0]));
+            $ext = $m[1] . '.' . $ext;
+        }
+    }
+
+    // Si le document "source" est deja au bon endroit, ne rien faire
+    if ($source == ($dir . $dest . '.' . $ext)) {
+        return $source;
+    }
+
+    // sinon tourner jusqu'a trouver un numero correct
+    $n = 0;
+    while (@file_exists($newFile = $dir . $dest . ($n++ ? ('-' . $n) : '') . '.' . $ext)) {
+        ;
+    }
+
+    return deplacer_fichier_upload($source, $newFile);
 }
 
 /**
@@ -190,28 +190,28 @@ 
  * @return bool|string
  */
 function determine_upload($type = '') {
-	if (!function_exists('autoriser')) {
-		include_spip('inc/autoriser');
-	}
-
-	if (
-		!autoriser('chargerftp')
-		or $type == 'logos'
-	) { # on ne le permet pas pour les logos
-	return false;
-	}
-
-	$repertoire = _DIR_TRANSFERT;
-	if (!@is_dir($repertoire)) {
-		$repertoire = str_replace(_DIR_TMP, '', $repertoire);
-		$repertoire = sous_repertoire(_DIR_TMP, $repertoire);
-	}
-
-	if (!$GLOBALS['visiteur_session']['restreint']) {
-		return $repertoire;
-	} else {
-		return sous_repertoire($repertoire, $GLOBALS['visiteur_session']['login']);
-	}
+    if (!function_exists('autoriser')) {
+        include_spip('inc/autoriser');
+    }
+
+    if (
+        !autoriser('chargerftp')
+        or $type == 'logos'
+    ) { # on ne le permet pas pour les logos
+    return false;
+    }
+
+    $repertoire = _DIR_TRANSFERT;
+    if (!@is_dir($repertoire)) {
+        $repertoire = str_replace(_DIR_TMP, '', $repertoire);
+        $repertoire = sous_repertoire(_DIR_TMP, $repertoire);
+    }
+
+    if (!$GLOBALS['visiteur_session']['restreint']) {
+        return $repertoire;
+    } else {
+        return sous_repertoire($repertoire, $GLOBALS['visiteur_session']['login']);
+    }
 }
 
 /**
@@ -230,35 +230,35 @@ 
  * @return bool|mixed|string
  */
 function deplacer_fichier_upload($source, $dest, $move = false) {
-	// Securite
-	if (substr($dest, 0, strlen(_DIR_RACINE)) == _DIR_RACINE) {
-		$dest = _DIR_RACINE . preg_replace(',\.\.+,', '.', substr($dest, strlen(_DIR_RACINE)));
-	} else {
-		$dest = preg_replace(',\.\.+,', '.', $dest);
-	}
-
-	if ($move) {
-		$ok = @rename($source, $dest);
-	} else {
-		$ok = @copy($source, $dest);
-	}
-	if (!$ok) {
-		$ok = @move_uploaded_file($source, $dest);
-	}
-	if ($ok) {
-		@chmod($dest, _SPIP_CHMOD & ~0111);
-	} else {
-		$f = @fopen($dest, 'w');
-		if ($f) {
-			fclose($f);
-		} else {
-			include_spip('inc/flock');
-			raler_fichier($dest);
-		}
-		spip_unlink($dest);
-	}
-
-	return $ok ? $dest : false;
+    // Securite
+    if (substr($dest, 0, strlen(_DIR_RACINE)) == _DIR_RACINE) {
+        $dest = _DIR_RACINE . preg_replace(',\.\.+,', '.', substr($dest, strlen(_DIR_RACINE)));
+    } else {
+        $dest = preg_replace(',\.\.+,', '.', $dest);
+    }
+
+    if ($move) {
+        $ok = @rename($source, $dest);
+    } else {
+        $ok = @copy($source, $dest);
+    }
+    if (!$ok) {
+        $ok = @move_uploaded_file($source, $dest);
+    }
+    if ($ok) {
+        @chmod($dest, _SPIP_CHMOD & ~0111);
+    } else {
+        $f = @fopen($dest, 'w');
+        if ($f) {
+            fclose($f);
+        } else {
+            include_spip('inc/flock');
+            raler_fichier($dest);
+        }
+        spip_unlink($dest);
+    }
+
+    return $ok ? $dest : false;
 }
 
 
@@ -282,60 +282,60 @@ 
  */
 function check_upload_error($error, $msg = '', $return = false) {
 
-	if (!$error) {
-		return false;
-	}
-
-	spip_log("Erreur upload $error -- cf. http://php.net/manual/fr/features.file-upload.errors.php");
-
-	switch ($error) {
-		case 4: /* UPLOAD_ERR_NO_FILE */
-			return true;
-
-		# on peut affiner les differents messages d'erreur
-		case 1: /* UPLOAD_ERR_INI_SIZE */
-			$msg = _T(
-				'upload_limit',
-				['max' => ini_get('upload_max_filesize')]
-			);
-			break;
-		case 2: /* UPLOAD_ERR_FORM_SIZE */
-			$msg = _T(
-				'upload_limit',
-				['max' => ini_get('upload_max_filesize')]
-			);
-			break;
-		case 3: /* UPLOAD_ERR_PARTIAL  */
-			$msg = _T(
-				'upload_limit',
-				['max' => ini_get('upload_max_filesize')]
-			);
-			break;
-
-		default: /* autre */
-			if (!$msg) {
-				$msg = _T('pass_erreur') . ' ' . $error
-					. '<br />' . propre('[->http://php.net/manual/fr/features.file-upload.errors.php]');
-			}
-			break;
-	}
-
-	spip_log("erreur upload $error");
-	if ($return) {
-		return $msg;
-	}
-
-	if (_request('iframe') == 'iframe') {
-		echo "<div class='upload_answer upload_error'>$msg</div>";
-		exit;
-	}
-
-	include_spip('inc/minipres');
-	echo minipres(
-		$msg,
-		"<div style='text-align: " . $GLOBALS['spip_lang_right'] . "'><a href='" . rawurldecode($GLOBALS['redirect']) . "'><button type='button'>" . _T('ecrire:bouton_suivant') . '</button></a></div>'
-	);
-	exit;
+    if (!$error) {
+        return false;
+    }
+
+    spip_log("Erreur upload $error -- cf. http://php.net/manual/fr/features.file-upload.errors.php");
+
+    switch ($error) {
+        case 4: /* UPLOAD_ERR_NO_FILE */
+            return true;
+
+        # on peut affiner les differents messages d'erreur
+        case 1: /* UPLOAD_ERR_INI_SIZE */
+            $msg = _T(
+                'upload_limit',
+                ['max' => ini_get('upload_max_filesize')]
+            );
+            break;
+        case 2: /* UPLOAD_ERR_FORM_SIZE */
+            $msg = _T(
+                'upload_limit',
+                ['max' => ini_get('upload_max_filesize')]
+            );
+            break;
+        case 3: /* UPLOAD_ERR_PARTIAL  */
+            $msg = _T(
+                'upload_limit',
+                ['max' => ini_get('upload_max_filesize')]
+            );
+            break;
+
+        default: /* autre */
+            if (!$msg) {
+                $msg = _T('pass_erreur') . ' ' . $error
+                    . '<br />' . propre('[->http://php.net/manual/fr/features.file-upload.errors.php]');
+            }
+            break;
+    }
+
+    spip_log("erreur upload $error");
+    if ($return) {
+        return $msg;
+    }
+
+    if (_request('iframe') == 'iframe') {
+        echo "<div class='upload_answer upload_error'>$msg</div>";
+        exit;
+    }
+
+    include_spip('inc/minipres');
+    echo minipres(
+        $msg,
+        "<div style='text-align: " . $GLOBALS['spip_lang_right'] . "'><a href='" . rawurldecode($GLOBALS['redirect']) . "'><button type='button'>" . _T('ecrire:bouton_suivant') . '</button></a></div>'
+    );
+    exit;
 }
 
 /**
@@ -352,24 +352,24 @@ 
  * @return string
  */
 function corriger_extension($ext) {
-	$ext = preg_replace(',[^a-z0-9],i', '', $ext);
-	switch ($ext) {
-		case 'htm':
-			$ext = 'html';
-			break;
-		case 'jpeg':
-			$ext = 'jpg';
-			break;
-		case 'tiff':
-			$ext = 'tif';
-			break;
-		case 'aif':
-			$ext = 'aiff';
-			break;
-		case 'mpeg':
-			$ext = 'mpg';
-			break;
-	}
-
-	return $ext;
+    $ext = preg_replace(',[^a-z0-9],i', '', $ext);
+    switch ($ext) {
+        case 'htm':
+            $ext = 'html';
+            break;
+        case 'jpeg':
+            $ext = 'jpg';
+            break;
+        case 'tiff':
+            $ext = 'tif';
+            break;
+        case 'aif':
+            $ext = 'aiff';
+            break;
+        case 'mpeg':
+            $ext = 'mpg';
+            break;
+    }
+
+    return $ext;
 }

ecrire/inc/distant.php

Indentation +1046 added lines, -1046 removed lines

@@ -16,32 +16,32 @@ 
  * @package SPIP\Core\Distant
  **/
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_INC_DISTANT_VERSION_HTTP')) {
-	define('_INC_DISTANT_VERSION_HTTP', 'HTTP/1.0');
+    define('_INC_DISTANT_VERSION_HTTP', 'HTTP/1.0');
 }
 if (!defined('_INC_DISTANT_CONTENT_ENCODING')) {
-	define('_INC_DISTANT_CONTENT_ENCODING', 'gzip');
+    define('_INC_DISTANT_CONTENT_ENCODING', 'gzip');
 }
 if (!defined('_INC_DISTANT_USER_AGENT')) {
-	define('_INC_DISTANT_USER_AGENT', 'SPIP-' . $GLOBALS['spip_version_affichee'] . ' (' . $GLOBALS['home_server'] . ')');
+    define('_INC_DISTANT_USER_AGENT', 'SPIP-' . $GLOBALS['spip_version_affichee'] . ' (' . $GLOBALS['home_server'] . ')');
 }
 if (!defined('_INC_DISTANT_MAX_SIZE')) {
-	define('_INC_DISTANT_MAX_SIZE', 2097152);
+    define('_INC_DISTANT_MAX_SIZE', 2097152);
 }
 if (!defined('_INC_DISTANT_CONNECT_TIMEOUT')) {
-	define('_INC_DISTANT_CONNECT_TIMEOUT', 10);
+    define('_INC_DISTANT_CONNECT_TIMEOUT', 10);
 }
 
 define('_REGEXP_COPIE_LOCALE', ',' 	.
-	preg_replace(
-		'@^https?:@',
-		'https?:',
-		(isset($GLOBALS['meta']['adresse_site']) ? $GLOBALS['meta']['adresse_site'] : '')
-	)
-	. '/?spip.php[?]action=acceder_document.*file=(.*)$,');
+    preg_replace(
+        '@^https?:@',
+        'https?:',
+        (isset($GLOBALS['meta']['adresse_site']) ? $GLOBALS['meta']['adresse_site'] : '')
+    )
+    . '/?spip.php[?]action=acceder_document.*file=(.*)$,');
 
 //@define('_COPIE_LOCALE_MAX_SIZE',2097152); // poids (inc/utils l'a fait)
 
@@ -68,89 +68,89 @@ 
  */
 function copie_locale($source, $mode = 'auto', $local = null, $taille_max = null) {
 
-	// si c'est la protection de soi-meme, retourner le path
-	if ($mode !== 'force' and preg_match(_REGEXP_COPIE_LOCALE, $source, $match)) {
-		$source = substr(_DIR_IMG, strlen(_DIR_RACINE)) . urldecode($match[1]);
-
-		return @file_exists($source) ? $source : false;
-	}
-
-	if (is_null($local)) {
-		$local = fichier_copie_locale($source);
-	} else {
-		if (_DIR_RACINE and strncmp(_DIR_RACINE, $local, strlen(_DIR_RACINE)) == 0) {
-			$local = substr($local, strlen(_DIR_RACINE));
-		}
-	}
-
-	// si $local = '' c'est un fichier refuse par fichier_copie_locale(),
-	// par exemple un fichier qui ne figure pas dans nos documents ;
-	// dans ce cas on n'essaie pas de le telecharger pour ensuite echouer
-	if (!$local) {
-		return false;
-	}
-
-	$localrac = _DIR_RACINE . $local;
-	$t = ($mode === 'force') ? false : @file_exists($localrac);
-
-	// test d'existence du fichier
-	if ($mode === 'test') {
-		return $t ? $local : '';
-	}
-
-	// sinon voir si on doit/peut le telecharger
-	if ($local === $source or !tester_url_absolue($source)) {
-		return $local;
-	}
-
-	if ($mode === 'modif' or !$t) {
-		// passer par un fichier temporaire unique pour gerer les echecs en cours de recuperation
-		// et des eventuelles recuperations concurantes
-		include_spip('inc/acces');
-		if (!$taille_max) {
-			$taille_max = _COPIE_LOCALE_MAX_SIZE;
-		}
-		$res = recuperer_url(
-			$source,
-			['file' => $localrac, 'taille_max' => $taille_max, 'if_modified_since' => $t ? filemtime($localrac) : '']
-		);
-		if (!$res or (!$res['length'] and $res['status'] != 304)) {
-			spip_log("copie_locale : Echec recuperation $source sur $localrac status : " . ($res ? $res['status'] : '-'), 'distant' . _LOG_INFO_IMPORTANTE);
-		}
-		else {
-			spip_log("copie_locale : recuperation $source sur $localrac OK | taille " . $res['length'] . ' status ' . $res['status'], 'distant');
-		}
-		if (!$res or !$res['length']) {
-			// si $t c'est sans doute juste un not-modified-since
-			return $t ? $local : false;
-		}
-
-		// si on retrouve l'extension
-		if (
-			!empty($res['headers'])
-			and $extension = distant_trouver_extension_selon_headers($source, $res['headers'])
-		) {
-			if ($sanitizer = charger_fonction($extension, 'sanitizer', true)) {
-				$sanitizer($localrac);
-			}
-		}
-
-		// pour une eventuelle indexation
-		pipeline(
-			'post_edition',
-			[
-				'args' => [
-					'operation' => 'copie_locale',
-					'source' => $source,
-					'fichier' => $local,
-					'http_res' => $res['length'],
-				],
-				'data' => null
-			]
-		);
-	}
-
-	return $local;
+    // si c'est la protection de soi-meme, retourner le path
+    if ($mode !== 'force' and preg_match(_REGEXP_COPIE_LOCALE, $source, $match)) {
+        $source = substr(_DIR_IMG, strlen(_DIR_RACINE)) . urldecode($match[1]);
+
+        return @file_exists($source) ? $source : false;
+    }
+
+    if (is_null($local)) {
+        $local = fichier_copie_locale($source);
+    } else {
+        if (_DIR_RACINE and strncmp(_DIR_RACINE, $local, strlen(_DIR_RACINE)) == 0) {
+            $local = substr($local, strlen(_DIR_RACINE));
+        }
+    }
+
+    // si $local = '' c'est un fichier refuse par fichier_copie_locale(),
+    // par exemple un fichier qui ne figure pas dans nos documents ;
+    // dans ce cas on n'essaie pas de le telecharger pour ensuite echouer
+    if (!$local) {
+        return false;
+    }
+
+    $localrac = _DIR_RACINE . $local;
+    $t = ($mode === 'force') ? false : @file_exists($localrac);
+
+    // test d'existence du fichier
+    if ($mode === 'test') {
+        return $t ? $local : '';
+    }
+
+    // sinon voir si on doit/peut le telecharger
+    if ($local === $source or !tester_url_absolue($source)) {
+        return $local;
+    }
+
+    if ($mode === 'modif' or !$t) {
+        // passer par un fichier temporaire unique pour gerer les echecs en cours de recuperation
+        // et des eventuelles recuperations concurantes
+        include_spip('inc/acces');
+        if (!$taille_max) {
+            $taille_max = _COPIE_LOCALE_MAX_SIZE;
+        }
+        $res = recuperer_url(
+            $source,
+            ['file' => $localrac, 'taille_max' => $taille_max, 'if_modified_since' => $t ? filemtime($localrac) : '']
+        );
+        if (!$res or (!$res['length'] and $res['status'] != 304)) {
+            spip_log("copie_locale : Echec recuperation $source sur $localrac status : " . ($res ? $res['status'] : '-'), 'distant' . _LOG_INFO_IMPORTANTE);
+        }
+        else {
+            spip_log("copie_locale : recuperation $source sur $localrac OK | taille " . $res['length'] . ' status ' . $res['status'], 'distant');
+        }
+        if (!$res or !$res['length']) {
+            // si $t c'est sans doute juste un not-modified-since
+            return $t ? $local : false;
+        }
+
+        // si on retrouve l'extension
+        if (
+            !empty($res['headers'])
+            and $extension = distant_trouver_extension_selon_headers($source, $res['headers'])
+        ) {
+            if ($sanitizer = charger_fonction($extension, 'sanitizer', true)) {
+                $sanitizer($localrac);
+            }
+        }
+
+        // pour une eventuelle indexation
+        pipeline(
+            'post_edition',
+            [
+                'args' => [
+                    'operation' => 'copie_locale',
+                    'source' => $source,
+                    'fichier' => $local,
+                    'http_res' => $res['length'],
+                ],
+                'data' => null
+            ]
+        );
+    }
+
+    return $local;
 }
 
 /**
@@ -165,99 +165,99 @@ 
  *   url ou false en cas d'echec
  */
 function valider_url_distante($url, $known_hosts = []) {
-	if (!function_exists('protocole_verifier')) {
-		include_spip('inc/filtres_mini');
-	}
-
-	if (!protocole_verifier($url, ['http', 'https'])) {
-		return false;
-	}
-
-	$parsed_url = parse_url($url);
-	if (!$parsed_url or empty($parsed_url['host'])) {
-		return false;
-	}
-
-	if (isset($parsed_url['user']) or isset($parsed_url['pass'])) {
-		return false;
-	}
-
-	if (false !== strpbrk($parsed_url['host'], ':#?[]')) {
-		return false;
-	}
-
-	if (!is_array($known_hosts)) {
-		$known_hosts = [$known_hosts];
-	}
-	$known_hosts[] = $GLOBALS['meta']['adresse_site'];
-	$known_hosts[] = url_de_base();
-	$known_hosts = pipeline('declarer_hosts_distants', $known_hosts);
-
-	$is_known_host = false;
-	foreach ($known_hosts as $known_host) {
-		$parse_known = parse_url($known_host);
-		if (
-			$parse_known
-			and strtolower($parse_known['host']) === strtolower($parsed_url['host'])
-		) {
-			$is_known_host = true;
-			break;
-		}
-	}
-
-	if (!$is_known_host) {
-		$host = trim($parsed_url['host'], '.');
-		if (! $ip = filter_var($host, FILTER_VALIDATE_IP)) {
-			$ip = gethostbyname($host);
-			if ($ip === $host) {
-				// Error condition for gethostbyname()
-				$ip = false;
-			}
-			if ($records = dns_get_record($host)) {
-				foreach ($records as $record) {
-					// il faut que le TTL soit suffisant afin d'etre certain que le copie_locale eventuel qui suit
-					// se fasse sur la meme IP
-					if ($record['ttl'] < 10) {
-						$ip = false;
-						break;
-					}
-				}
-			}
-			else {
-				$ip = false;
-			}
-		}
-		if ($ip) {
-			if (! filter_var($ip, FILTER_VALIDATE_IP, FILTER_FLAG_NO_PRIV_RANGE | FILTER_FLAG_NO_RES_RANGE)) {
-				return false;
-			}
-		}
-	}
-
-	if (empty($parsed_url['port'])) {
-		return $url;
-	}
-
-	$port = $parsed_url['port'];
-	if ($port === 80  or $port === 443  or $port === 8080) {
-		return $url;
-	}
-
-	if ($is_known_host) {
-		foreach ($known_hosts as $known_host) {
-			$parse_known = parse_url($known_host);
-			if (
-				$parse_known
-				and !empty($parse_known['port'])
-				and strtolower($parse_known['host']) === strtolower($parsed_url['host'])
-				and $parse_known['port'] == $port
-			) {
-				return $url;
-			}
-		}
-	}
-
-	return false;
+    if (!function_exists('protocole_verifier')) {
+        include_spip('inc/filtres_mini');
+    }
+
+    if (!protocole_verifier($url, ['http', 'https'])) {
+        return false;
+    }
+
+    $parsed_url = parse_url($url);
+    if (!$parsed_url or empty($parsed_url['host'])) {
+        return false;
+    }
+
+    if (isset($parsed_url['user']) or isset($parsed_url['pass'])) {
+        return false;
+    }
+
+    if (false !== strpbrk($parsed_url['host'], ':#?[]')) {
+        return false;
+    }
+
+    if (!is_array($known_hosts)) {
+        $known_hosts = [$known_hosts];
+    }
+    $known_hosts[] = $GLOBALS['meta']['adresse_site'];
+    $known_hosts[] = url_de_base();
+    $known_hosts = pipeline('declarer_hosts_distants', $known_hosts);
+
+    $is_known_host = false;
+    foreach ($known_hosts as $known_host) {
+        $parse_known = parse_url($known_host);
+        if (
+            $parse_known
+            and strtolower($parse_known['host']) === strtolower($parsed_url['host'])
+        ) {
+            $is_known_host = true;
+            break;
+        }
+    }
+
+    if (!$is_known_host) {
+        $host = trim($parsed_url['host'], '.');
+        if (! $ip = filter_var($host, FILTER_VALIDATE_IP)) {
+            $ip = gethostbyname($host);
+            if ($ip === $host) {
+                // Error condition for gethostbyname()
+                $ip = false;
+            }
+            if ($records = dns_get_record($host)) {
+                foreach ($records as $record) {
+                    // il faut que le TTL soit suffisant afin d'etre certain que le copie_locale eventuel qui suit
+                    // se fasse sur la meme IP
+                    if ($record['ttl'] < 10) {
+                        $ip = false;
+                        break;
+                    }
+                }
+            }
+            else {
+                $ip = false;
+            }
+        }
+        if ($ip) {
+            if (! filter_var($ip, FILTER_VALIDATE_IP, FILTER_FLAG_NO_PRIV_RANGE | FILTER_FLAG_NO_RES_RANGE)) {
+                return false;
+            }
+        }
+    }
+
+    if (empty($parsed_url['port'])) {
+        return $url;
+    }
+
+    $port = $parsed_url['port'];
+    if ($port === 80  or $port === 443  or $port === 8080) {
+        return $url;
+    }
+
+    if ($is_known_host) {
+        foreach ($known_hosts as $known_host) {
+            $parse_known = parse_url($known_host);
+            if (
+                $parse_known
+                and !empty($parse_known['port'])
+                and strtolower($parse_known['host']) === strtolower($parsed_url['host'])
+                and $parse_known['port'] == $port
+            ) {
+                return $url;
+            }
+        }
+    }
+
+    return false;
 }
 
 /**
@@ -277,86 +277,86 @@ 
  */
 function prepare_donnees_post($donnees, $boundary = '') {
 
-	// permettre a la fonction qui a demande le post de formater elle meme ses donnees
-	// pour un appel soap par exemple
-	// l'entete est separe des donnees par un double retour a la ligne
-	// on s'occupe ici de passer tous les retours lignes (\r\n, \r ou \n) en \r\n
-	if (is_string($donnees) && strlen($donnees)) {
-		$entete = '';
-		// on repasse tous les \r\n et \r en simples \n
-		$donnees = str_replace("\r\n", "\n", $donnees);
-		$donnees = str_replace("\r", "\n", $donnees);
-		// un double retour a la ligne signifie la fin de l'entete et le debut des donnees
-		$p = strpos($donnees, "\n\n");
-		if ($p !== false) {
-			$entete = str_replace("\n", "\r\n", substr($donnees, 0, $p + 1));
-			$donnees = substr($donnees, $p + 2);
-		}
-		$chaine = str_replace("\n", "\r\n", $donnees);
-	} else {
-		/* boundary automatique */
-		// Si on a plus de 500 octects de donnees, on "boundarise"
-		if ($boundary === '') {
-			$taille = 0;
-			foreach ($donnees as $cle => $valeur) {
-				if (is_array($valeur)) {
-					foreach ($valeur as $val2) {
-						$taille += strlen($val2);
-					}
-				} else {
-					// faut-il utiliser spip_strlen() dans inc/charsets ?
-					$taille += strlen($valeur);
-				}
-			}
-			if ($taille > 500) {
-				$boundary = substr(md5(rand() . 'spip'), 0, 8);
-			}
-		}
-
-		if (is_string($boundary) and strlen($boundary)) {
-			// fabrique une chaine HTTP pour un POST avec boundary
-			$entete = "Content-Type: multipart/form-data; boundary=$boundary\r\n";
-			$chaine = '';
-			if (is_array($donnees)) {
-				foreach ($donnees as $cle => $valeur) {
-					if (is_array($valeur)) {
-						foreach ($valeur as $val2) {
-							$chaine .= "\r\n--$boundary\r\n";
-							$chaine .= "Content-Disposition: form-data; name=\"{$cle}[]\"\r\n";
-							$chaine .= "\r\n";
-							$chaine .= $val2;
-						}
-					} else {
-						$chaine .= "\r\n--$boundary\r\n";
-						$chaine .= "Content-Disposition: form-data; name=\"$cle\"\r\n";
-						$chaine .= "\r\n";
-						$chaine .= $valeur;
-					}
-				}
-				$chaine .= "\r\n--$boundary\r\n";
-			}
-		} else {
-			// fabrique une chaine HTTP simple pour un POST
-			$entete = 'Content-Type: application/x-www-form-urlencoded' . "\r\n";
-			$chaine = [];
-			if (is_array($donnees)) {
-				foreach ($donnees as $cle => $valeur) {
-					if (is_array($valeur)) {
-						foreach ($valeur as $val2) {
-							$chaine[] = rawurlencode($cle) . '[]=' . rawurlencode($val2);
-						}
-					} else {
-						$chaine[] = rawurlencode($cle) . '=' . rawurlencode($valeur);
-					}
-				}
-				$chaine = implode('&', $chaine);
-			} else {
-				$chaine = $donnees;
-			}
-		}
-	}
-
-	return [$entete, $chaine];
+    // permettre a la fonction qui a demande le post de formater elle meme ses donnees
+    // pour un appel soap par exemple
+    // l'entete est separe des donnees par un double retour a la ligne
+    // on s'occupe ici de passer tous les retours lignes (\r\n, \r ou \n) en \r\n
+    if (is_string($donnees) && strlen($donnees)) {
+        $entete = '';
+        // on repasse tous les \r\n et \r en simples \n
+        $donnees = str_replace("\r\n", "\n", $donnees);
+        $donnees = str_replace("\r", "\n", $donnees);
+        // un double retour a la ligne signifie la fin de l'entete et le debut des donnees
+        $p = strpos($donnees, "\n\n");
+        if ($p !== false) {
+            $entete = str_replace("\n", "\r\n", substr($donnees, 0, $p + 1));
+            $donnees = substr($donnees, $p + 2);
+        }
+        $chaine = str_replace("\n", "\r\n", $donnees);
+    } else {
+        /* boundary automatique */
+        // Si on a plus de 500 octects de donnees, on "boundarise"
+        if ($boundary === '') {
+            $taille = 0;
+            foreach ($donnees as $cle => $valeur) {
+                if (is_array($valeur)) {
+                    foreach ($valeur as $val2) {
+                        $taille += strlen($val2);
+                    }
+                } else {
+                    // faut-il utiliser spip_strlen() dans inc/charsets ?
+                    $taille += strlen($valeur);
+                }
+            }
+            if ($taille > 500) {
+                $boundary = substr(md5(rand() . 'spip'), 0, 8);
+            }
+        }
+
+        if (is_string($boundary) and strlen($boundary)) {
+            // fabrique une chaine HTTP pour un POST avec boundary
+            $entete = "Content-Type: multipart/form-data; boundary=$boundary\r\n";
+            $chaine = '';
+            if (is_array($donnees)) {
+                foreach ($donnees as $cle => $valeur) {
+                    if (is_array($valeur)) {
+                        foreach ($valeur as $val2) {
+                            $chaine .= "\r\n--$boundary\r\n";
+                            $chaine .= "Content-Disposition: form-data; name=\"{$cle}[]\"\r\n";
+                            $chaine .= "\r\n";
+                            $chaine .= $val2;
+                        }
+                    } else {
+                        $chaine .= "\r\n--$boundary\r\n";
+                        $chaine .= "Content-Disposition: form-data; name=\"$cle\"\r\n";
+                        $chaine .= "\r\n";
+                        $chaine .= $valeur;
+                    }
+                }
+                $chaine .= "\r\n--$boundary\r\n";
+            }
+        } else {
+            // fabrique une chaine HTTP simple pour un POST
+            $entete = 'Content-Type: application/x-www-form-urlencoded' . "\r\n";
+            $chaine = [];
+            if (is_array($donnees)) {
+                foreach ($donnees as $cle => $valeur) {
+                    if (is_array($valeur)) {
+                        foreach ($valeur as $val2) {
+                            $chaine[] = rawurlencode($cle) . '[]=' . rawurlencode($val2);
+                        }
+                    } else {
+                        $chaine[] = rawurlencode($cle) . '=' . rawurlencode($valeur);
+                    }
+                }
+                $chaine = implode('&', $chaine);
+            } else {
+                $chaine = $donnees;
+            }
+        }
+    }
+
+    return [$entete, $chaine];
 }
 
 /**
@@ -370,22 +370,22 @@ 
  */
 function url_to_ascii($url_idn) {
 
-	if ($parts = parse_url($url_idn)) {
-		$host = $parts['host'];
-		if (!preg_match(',^[a-z0-9_\.\-]+$,i', $host)) {
-			include_spip('inc/idna_convert.class');
-			$IDN = new idna_convert();
-			$host_ascii = $IDN->encode($host);
-			$url_idn = explode($host, $url_idn, 2);
-			$url_idn = implode($host_ascii, $url_idn);
-		}
-		// et on urlencode les char utf si besoin dans le path
-		$url_idn = preg_replace_callback('/[^\x20-\x7f]/', function ($match) {
- return urlencode($match[0]);
-		}, $url_idn);
-	}
-
-	return $url_idn;
+    if ($parts = parse_url($url_idn)) {
+        $host = $parts['host'];
+        if (!preg_match(',^[a-z0-9_\.\-]+$,i', $host)) {
+            include_spip('inc/idna_convert.class');
+            $IDN = new idna_convert();
+            $host_ascii = $IDN->encode($host);
+            $url_idn = explode($host, $url_idn, 2);
+            $url_idn = implode($host_ascii, $url_idn);
+        }
+        // et on urlencode les char utf si besoin dans le path
+        $url_idn = preg_replace_callback('/[^\x20-\x7f]/', function ($match) {
+    return urlencode($match[0]);
+        }, $url_idn);
+    }
+
+    return $url_idn;
 }
 
 /**
@@ -426,197 +426,197 @@ 
  *     string file : nom du fichier si enregistre dans un fichier
  */
 function recuperer_url($url, $options = []) {
-	// Conserve la mémoire de la méthode fournit éventuellement
-	$methode_demandee = $options['methode'] ?? '';
-	$default = [
-		'transcoder' => false,
-		'methode' => 'GET',
-		'taille_max' => null,
-		'headers' => [],
-		'datas' => '',
-		'boundary' => '',
-		'refuser_gz' => false,
-		'if_modified_since' => '',
-		'uri_referer' => '',
-		'file' => '',
-		'follow_location' => 10,
-		'version_http' => _INC_DISTANT_VERSION_HTTP,
-	];
-	$options = array_merge($default, $options);
-	// copier directement dans un fichier ?
-	$copy = $options['file'];
-
-	if ($options['methode'] == 'HEAD') {
-		$options['taille_max'] = 0;
-	}
-	if (is_null($options['taille_max'])) {
-		$options['taille_max'] = $copy ? _COPIE_LOCALE_MAX_SIZE : _INC_DISTANT_MAX_SIZE;
-	}
-
-
-	// Ajout des en-têtes spécifiques si besoin
-	$head_add = '';
-	if (!empty($options['headers'])) {
-		foreach ($options['headers'] as $champ => $valeur) {
-			$head_add .= $champ . ': ' . $valeur . "\r\n";
-		}
-		// ne pas le repasser a recuperer_url si on follow un location, car ils seront dans datas
-		unset($options['headers']);
-	}
-
-	if (!empty($options['datas'])) {
-		list($head, $postdata) = prepare_donnees_post($options['datas'], $options['boundary']);
-		$head .= $head_add;
-		if (stripos($head, 'Content-Length:') === false) {
-			$head .= 'Content-Length: ' . strlen($postdata) . "\r\n";
-		}
-		$options['datas'] = $head . "\r\n" . $postdata;
-		if (
-			strlen($postdata)
-			and !$methode_demandee
-		) {
-			$options['methode'] = 'POST';
-		}
-	} elseif ($head_add) {
-		$options['datas'] = $head_add . "\r\n";
-	}
-
-	// Accepter les URLs au format feed:// ou qui ont oublie le http:// ou les urls relatives au protocole
-	$url = preg_replace(',^feed://,i', 'http://', $url);
-	if (!tester_url_absolue($url)) {
-		$url = 'http://' . $url;
-	} elseif (strncmp($url, '//', 2) == 0) {
-		$url = 'http:' . $url;
-	}
-
-	$url = url_to_ascii($url);
-
-	$result = [
-		'status' => 0,
-		'headers' => '',
-		'page' => '',
-		'length' => 0,
-		'last_modified' => '',
-		'location' => '',
-		'url' => $url
-	];
-
-	// si on ecrit directement dans un fichier, pour ne pas manipuler en memoire refuser gz
-	$refuser_gz = (($options['refuser_gz'] or $copy) ? true : false);
-
-	// ouvrir la connexion et envoyer la requete et ses en-tetes
-	list($handle, $fopen) = init_http(
-		$options['methode'],
-		$url,
-		$refuser_gz,
-		$options['uri_referer'],
-		$options['datas'],
-		$options['version_http'],
-		$options['if_modified_since']
-	);
-	if (!$handle) {
-		spip_log("ECHEC init_http $url", 'distant' . _LOG_ERREUR);
-
-		return false;
-	}
-
-	// Sauf en fopen, envoyer le flux d'entree
-	// et recuperer les en-tetes de reponses
-	if (!$fopen) {
-		$res = recuperer_entetes_complets($handle, $options['if_modified_since']);
-		if (!$res) {
-			fclose($handle);
-			$t = @parse_url($url);
-			$host = $t['host'];
-			// Chinoisierie inexplicable pour contrer
-			// les actions liberticides de l'empire du milieu
-			if (
-				!need_proxy($host)
-				and $res = @file_get_contents($url)
-			) {
-				$result['length'] = strlen($res);
-				if ($copy) {
-					ecrire_fichier($copy, $res);
-					$result['file'] = $copy;
-				} else {
-					$result['page'] = $res;
-				}
-				$res = [
-					'status' => 200,
-				];
-			} else {
-				spip_log("ECHEC chinoiserie $url", 'distant' . _LOG_ERREUR);
-				return false;
-			}
-		} elseif ($res['location'] and $options['follow_location']) {
-			$options['follow_location']--;
-			fclose($handle);
-			include_spip('inc/filtres');
-			$url = suivre_lien($url, $res['location']);
-			spip_log("recuperer_url recommence sur $url", 'distant');
-
-			return recuperer_url($url, $options);
-		} elseif ($res['status'] !== 200) {
-			spip_log('HTTP status ' . $res['status'] . " pour $url", 'distant');
-		}
-		$result['status'] = $res['status'];
-		if (isset($res['headers'])) {
-			$result['headers'] = $res['headers'];
-		}
-		if (isset($res['last_modified'])) {
-			$result['last_modified'] = $res['last_modified'];
-		}
-		if (isset($res['location'])) {
-			$result['location'] = $res['location'];
-		}
-	}
-
-	// on ne veut que les entetes
-	if (!$options['taille_max'] or $options['methode'] == 'HEAD' or $result['status'] == '304') {
-		return $result;
-	}
-
-
-	// s'il faut deballer, le faire via un fichier temporaire
-	// sinon la memoire explose pour les gros flux
-
-	$gz = false;
-	if (preg_match(",\bContent-Encoding: .*gzip,is", $result['headers'])) {
-		$gz = (_DIR_TMP . md5(uniqid(mt_rand())) . '.tmp.gz');
-	}
-
-	// si on a pas deja recuperer le contenu par une methode detournee
-	if (!$result['length']) {
-		$res = recuperer_body($handle, $options['taille_max'], $gz ? $gz : $copy);
-		fclose($handle);
-		if ($copy) {
-			$result['length'] = $res;
-			$result['file'] = $copy;
-		} elseif ($res) {
-			$result['page'] = &$res;
-			$result['length'] = strlen($result['page']);
-		}
-		if (!$result['status']) {
-			$result['status'] = 200; // on a reussi, donc !
-		}
-	}
-	if (!$result['page']) {
-		return $result;
-	}
-
-	// Decompresser au besoin
-	if ($gz) {
-		$result['page'] = implode('', gzfile($gz));
-		supprimer_fichier($gz);
-	}
-
-	// Faut-il l'importer dans notre charset local ?
-	if ($options['transcoder']) {
-		include_spip('inc/charsets');
-		$result['page'] = transcoder_page($result['page'], $result['headers']);
-	}
-
-	return $result;
+    // Conserve la mémoire de la méthode fournit éventuellement
+    $methode_demandee = $options['methode'] ?? '';
+    $default = [
+        'transcoder' => false,
+        'methode' => 'GET',
+        'taille_max' => null,
+        'headers' => [],
+        'datas' => '',
+        'boundary' => '',
+        'refuser_gz' => false,
+        'if_modified_since' => '',
+        'uri_referer' => '',
+        'file' => '',
+        'follow_location' => 10,
+        'version_http' => _INC_DISTANT_VERSION_HTTP,
+    ];
+    $options = array_merge($default, $options);
+    // copier directement dans un fichier ?
+    $copy = $options['file'];
+
+    if ($options['methode'] == 'HEAD') {
+        $options['taille_max'] = 0;
+    }
+    if (is_null($options['taille_max'])) {
+        $options['taille_max'] = $copy ? _COPIE_LOCALE_MAX_SIZE : _INC_DISTANT_MAX_SIZE;
+    }
+
+
+    // Ajout des en-têtes spécifiques si besoin
+    $head_add = '';
+    if (!empty($options['headers'])) {
+        foreach ($options['headers'] as $champ => $valeur) {
+            $head_add .= $champ . ': ' . $valeur . "\r\n";
+        }
+        // ne pas le repasser a recuperer_url si on follow un location, car ils seront dans datas
+        unset($options['headers']);
+    }
+
+    if (!empty($options['datas'])) {
+        list($head, $postdata) = prepare_donnees_post($options['datas'], $options['boundary']);
+        $head .= $head_add;
+        if (stripos($head, 'Content-Length:') === false) {
+            $head .= 'Content-Length: ' . strlen($postdata) . "\r\n";
+        }
+        $options['datas'] = $head . "\r\n" . $postdata;
+        if (
+            strlen($postdata)
+            and !$methode_demandee
+        ) {
+            $options['methode'] = 'POST';
+        }
+    } elseif ($head_add) {
+        $options['datas'] = $head_add . "\r\n";
+    }
+
+    // Accepter les URLs au format feed:// ou qui ont oublie le http:// ou les urls relatives au protocole
+    $url = preg_replace(',^feed://,i', 'http://', $url);
+    if (!tester_url_absolue($url)) {
+        $url = 'http://' . $url;
+    } elseif (strncmp($url, '//', 2) == 0) {
+        $url = 'http:' . $url;
+    }
+
+    $url = url_to_ascii($url);
+
+    $result = [
+        'status' => 0,
+        'headers' => '',
+        'page' => '',
+        'length' => 0,
+        'last_modified' => '',
+        'location' => '',
+        'url' => $url
+    ];
+
+    // si on ecrit directement dans un fichier, pour ne pas manipuler en memoire refuser gz
+    $refuser_gz = (($options['refuser_gz'] or $copy) ? true : false);
+
+    // ouvrir la connexion et envoyer la requete et ses en-tetes
+    list($handle, $fopen) = init_http(
+        $options['methode'],
+        $url,
+        $refuser_gz,
+        $options['uri_referer'],
+        $options['datas'],
+        $options['version_http'],
+        $options['if_modified_since']
+    );
+    if (!$handle) {
+        spip_log("ECHEC init_http $url", 'distant' . _LOG_ERREUR);
+
+        return false;
+    }
+
+    // Sauf en fopen, envoyer le flux d'entree
+    // et recuperer les en-tetes de reponses
+    if (!$fopen) {
+        $res = recuperer_entetes_complets($handle, $options['if_modified_since']);
+        if (!$res) {
+            fclose($handle);
+            $t = @parse_url($url);
+            $host = $t['host'];
+            // Chinoisierie inexplicable pour contrer
+            // les actions liberticides de l'empire du milieu
+            if (
+                !need_proxy($host)
+                and $res = @file_get_contents($url)
+            ) {
+                $result['length'] = strlen($res);
+                if ($copy) {
+                    ecrire_fichier($copy, $res);
+                    $result['file'] = $copy;
+                } else {
+                    $result['page'] = $res;
+                }
+                $res = [
+                    'status' => 200,
+                ];
+            } else {
+                spip_log("ECHEC chinoiserie $url", 'distant' . _LOG_ERREUR);
+                return false;
+            }
+        } elseif ($res['location'] and $options['follow_location']) {
+            $options['follow_location']--;
+            fclose($handle);
+            include_spip('inc/filtres');
+            $url = suivre_lien($url, $res['location']);
+            spip_log("recuperer_url recommence sur $url", 'distant');
+
+            return recuperer_url($url, $options);
+        } elseif ($res['status'] !== 200) {
+            spip_log('HTTP status ' . $res['status'] . " pour $url", 'distant');
+        }
+        $result['status'] = $res['status'];
+        if (isset($res['headers'])) {
+            $result['headers'] = $res['headers'];
+        }
+        if (isset($res['last_modified'])) {
+            $result['last_modified'] = $res['last_modified'];
+        }
+        if (isset($res['location'])) {
+            $result['location'] = $res['location'];
+        }
+    }
+
+    // on ne veut que les entetes
+    if (!$options['taille_max'] or $options['methode'] == 'HEAD' or $result['status'] == '304') {
+        return $result;
+    }
+
+
+    // s'il faut deballer, le faire via un fichier temporaire
+    // sinon la memoire explose pour les gros flux
+
+    $gz = false;
+    if (preg_match(",\bContent-Encoding: .*gzip,is", $result['headers'])) {
+        $gz = (_DIR_TMP . md5(uniqid(mt_rand())) . '.tmp.gz');
+    }
+
+    // si on a pas deja recuperer le contenu par une methode detournee
+    if (!$result['length']) {
+        $res = recuperer_body($handle, $options['taille_max'], $gz ? $gz : $copy);
+        fclose($handle);
+        if ($copy) {
+            $result['length'] = $res;
+            $result['file'] = $copy;
+        } elseif ($res) {
+            $result['page'] = &$res;
+            $result['length'] = strlen($result['page']);
+        }
+        if (!$result['status']) {
+            $result['status'] = 200; // on a reussi, donc !
+        }
+    }
+    if (!$result['page']) {
+        return $result;
+    }
+
+    // Decompresser au besoin
+    if ($gz) {
+        $result['page'] = implode('', gzfile($gz));
+        supprimer_fichier($gz);
+    }
+
+    // Faut-il l'importer dans notre charset local ?
+    if ($options['transcoder']) {
+        include_spip('inc/charsets');
+        $result['page'] = transcoder_page($result['page'], $result['headers']);
+    }
+
+    return $result;
 }
 
 /**
@@ -632,73 +632,73 @@ 
  * @return array|bool|mixed
  */
 function recuperer_url_cache($url, $options = []) {
-	if (!defined('_DELAI_RECUPERER_URL_CACHE')) {
-		define('_DELAI_RECUPERER_URL_CACHE', 3600);
-	}
-	$default = [
-		'transcoder' => false,
-		'methode' => 'GET',
-		'taille_max' => null,
-		'datas' => '',
-		'boundary' => '',
-		'refuser_gz' => false,
-		'if_modified_since' => '',
-		'uri_referer' => '',
-		'file' => '',
-		'follow_location' => 10,
-		'version_http' => _INC_DISTANT_VERSION_HTTP,
-		'delai_cache' => in_array(_VAR_MODE, ['preview', 'recalcul']) ? 0 : _DELAI_RECUPERER_URL_CACHE,
-	];
-	$options = array_merge($default, $options);
-
-	// cas ou il n'est pas possible de cacher
-	if (!empty($options['data']) or $options['methode'] == 'POST') {
-		return recuperer_url($url, $options);
-	}
-
-	// ne pas tenter plusieurs fois la meme url en erreur (non cachee donc)
-	static $errors = [];
-	if (isset($errors[$url])) {
-		return $errors[$url];
-	}
-
-	$sig = $options;
-	unset($sig['if_modified_since']);
-	unset($sig['delai_cache']);
-	$sig['url'] = $url;
-
-	$dir = sous_repertoire(_DIR_CACHE, 'curl');
-	$cache = md5(serialize($sig)) . '-' . substr(preg_replace(',\W+,', '_', $url), 0, 80);
-	$sub = sous_repertoire($dir, substr($cache, 0, 2));
-	$cache = "$sub$cache";
-
-	$res = false;
-	$is_cached = file_exists($cache);
-	if (
-		$is_cached
-		and (filemtime($cache) > $_SERVER['REQUEST_TIME'] - $options['delai_cache'])
-	) {
-		lire_fichier($cache, $res);
-		if ($res = unserialize($res)) {
-			// mettre le last_modified et le status=304 ?
-		}
-	}
-	if (!$res) {
-		$res = recuperer_url($url, $options);
-		// ne pas recharger cette url non cachee dans le meme hit puisque non disponible
-		if (!$res) {
-			if ($is_cached) {
-				// on a pas reussi a recuperer mais on avait un cache : l'utiliser
-				lire_fichier($cache, $res);
-				$res = unserialize($res);
-			}
-
-			return $errors[$url] = $res;
-		}
-		ecrire_fichier($cache, serialize($res));
-	}
-
-	return $res;
+    if (!defined('_DELAI_RECUPERER_URL_CACHE')) {
+        define('_DELAI_RECUPERER_URL_CACHE', 3600);
+    }
+    $default = [
+        'transcoder' => false,
+        'methode' => 'GET',
+        'taille_max' => null,
+        'datas' => '',
+        'boundary' => '',
+        'refuser_gz' => false,
+        'if_modified_since' => '',
+        'uri_referer' => '',
+        'file' => '',
+        'follow_location' => 10,
+        'version_http' => _INC_DISTANT_VERSION_HTTP,
+        'delai_cache' => in_array(_VAR_MODE, ['preview', 'recalcul']) ? 0 : _DELAI_RECUPERER_URL_CACHE,
+    ];
+    $options = array_merge($default, $options);
+
+    // cas ou il n'est pas possible de cacher
+    if (!empty($options['data']) or $options['methode'] == 'POST') {
+        return recuperer_url($url, $options);
+    }
+
+    // ne pas tenter plusieurs fois la meme url en erreur (non cachee donc)
+    static $errors = [];
+    if (isset($errors[$url])) {
+        return $errors[$url];
+    }
+
+    $sig = $options;
+    unset($sig['if_modified_since']);
+    unset($sig['delai_cache']);
+    $sig['url'] = $url;
+
+    $dir = sous_repertoire(_DIR_CACHE, 'curl');
+    $cache = md5(serialize($sig)) . '-' . substr(preg_replace(',\W+,', '_', $url), 0, 80);
+    $sub = sous_repertoire($dir, substr($cache, 0, 2));
+    $cache = "$sub$cache";
+
+    $res = false;
+    $is_cached = file_exists($cache);
+    if (
+        $is_cached
+        and (filemtime($cache) > $_SERVER['REQUEST_TIME'] - $options['delai_cache'])
+    ) {
+        lire_fichier($cache, $res);
+        if ($res = unserialize($res)) {
+            // mettre le last_modified et le status=304 ?
+        }
+    }
+    if (!$res) {
+        $res = recuperer_url($url, $options);
+        // ne pas recharger cette url non cachee dans le meme hit puisque non disponible
+        if (!$res) {
+            if ($is_cached) {
+                // on a pas reussi a recuperer mais on avait un cache : l'utiliser
+                lire_fichier($cache, $res);
+                $res = unserialize($res);
+            }
+
+            return $errors[$url] = $res;
+        }
+        ecrire_fichier($cache, serialize($res));
+    }
+
+    return $res;
 }
 
 /**
@@ -716,41 +716,41 @@ 
  *   string contenu de la resource
  */
 function recuperer_body($handle, $taille_max = _INC_DISTANT_MAX_SIZE, $fichier = '') {
-	$taille = 0;
-	$result = '';
-	$fp = false;
-	if ($fichier) {
-		include_spip('inc/acces');
-		$tmpfile = "$fichier." . creer_uniqid() . '.tmp';
-		$fp = spip_fopen_lock($tmpfile, 'w', LOCK_EX);
-		if (!$fp and file_exists($fichier)) {
-			return filesize($fichier);
-		}
-		if (!$fp) {
-			return false;
-		}
-		$result = 0; // on renvoie la taille du fichier
-	}
-	while (!feof($handle) and $taille < $taille_max) {
-		$res = fread($handle, 16384);
-		$taille += strlen($res);
-		if ($fp) {
-			fwrite($fp, $res);
-			$result = $taille;
-		} else {
-			$result .= $res;
-		}
-	}
-	if ($fp) {
-		spip_fclose_unlock($fp);
-		spip_unlink($fichier);
-		@rename($tmpfile, $fichier);
-		if (!file_exists($fichier)) {
-			return false;
-		}
-	}
-
-	return $result;
+    $taille = 0;
+    $result = '';
+    $fp = false;
+    if ($fichier) {
+        include_spip('inc/acces');
+        $tmpfile = "$fichier." . creer_uniqid() . '.tmp';
+        $fp = spip_fopen_lock($tmpfile, 'w', LOCK_EX);
+        if (!$fp and file_exists($fichier)) {
+            return filesize($fichier);
+        }
+        if (!$fp) {
+            return false;
+        }
+        $result = 0; // on renvoie la taille du fichier
+    }
+    while (!feof($handle) and $taille < $taille_max) {
+        $res = fread($handle, 16384);
+        $taille += strlen($res);
+        if ($fp) {
+            fwrite($fp, $res);
+            $result = $taille;
+        } else {
+            $result .= $res;
+        }
+    }
+    if ($fp) {
+        spip_fclose_unlock($fp);
+        spip_unlink($fichier);
+        @rename($tmpfile, $fichier);
+        if (!file_exists($fichier)) {
+            return false;
+        }
+    }
+
+    return $result;
 }
 
 /**
@@ -772,35 +772,35 @@ 
  *   string location
  */
 function recuperer_entetes_complets($handle, $if_modified_since = false) {
-	$result = ['status' => 0, 'headers' => [], 'last_modified' => 0, 'location' => ''];
-
-	$s = @trim(fgets($handle, 16384));
-	if (!preg_match(',^HTTP/[0-9]+\.[0-9]+ ([0-9]+),', $s, $r)) {
-		return false;
-	}
-	$result['status'] = intval($r[1]);
-	while ($s = trim(fgets($handle, 16384))) {
-		$result['headers'][] = $s . "\n";
-		preg_match(',^([^:]*): *(.*)$,i', $s, $r);
-		list(, $d, $v) = $r;
-		if (strtolower(trim($d)) == 'location' and $result['status'] >= 300 and $result['status'] < 400) {
-			$result['location'] = $v;
-		} elseif ($d == 'Last-Modified') {
-			$result['last_modified'] = strtotime($v);
-		}
-	}
-	if (
-		$if_modified_since
-		and $result['last_modified']
-		and $if_modified_since > $result['last_modified']
-		and $result['status'] == 200
-	) {
-		$result['status'] = 304;
-	}
-
-	$result['headers'] = implode('', $result['headers']);
-
-	return $result;
+    $result = ['status' => 0, 'headers' => [], 'last_modified' => 0, 'location' => ''];
+
+    $s = @trim(fgets($handle, 16384));
+    if (!preg_match(',^HTTP/[0-9]+\.[0-9]+ ([0-9]+),', $s, $r)) {
+        return false;
+    }
+    $result['status'] = intval($r[1]);
+    while ($s = trim(fgets($handle, 16384))) {
+        $result['headers'][] = $s . "\n";
+        preg_match(',^([^:]*): *(.*)$,i', $s, $r);
+        list(, $d, $v) = $r;
+        if (strtolower(trim($d)) == 'location' and $result['status'] >= 300 and $result['status'] < 400) {
+            $result['location'] = $v;
+        } elseif ($d == 'Last-Modified') {
+            $result['last_modified'] = strtotime($v);
+        }
+    }
+    if (
+        $if_modified_since
+        and $result['last_modified']
+        and $if_modified_since > $result['last_modified']
+        and $result['status'] == 200
+    ) {
+        $result['status'] = 304;
+    }
+
+    $result['headers'] = implode('', $result['headers']);
+
+    return $result;
 }
 
 /**
@@ -822,22 +822,22 @@ 
  *     Nom du fichier pour copie locale
  **/
 function nom_fichier_copie_locale($source, $extension) {
-	include_spip('inc/documents');
+    include_spip('inc/documents');
 
-	$d = creer_repertoire_documents('distant'); # IMG/distant/
-	$d = sous_repertoire($d, $extension); # IMG/distant/pdf/
+    $d = creer_repertoire_documents('distant'); # IMG/distant/
+    $d = sous_repertoire($d, $extension); # IMG/distant/pdf/
 
-	// on se place tout le temps comme si on etait a la racine
-	if (_DIR_RACINE) {
-		$d = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $d);
-	}
+    // on se place tout le temps comme si on etait a la racine
+    if (_DIR_RACINE) {
+        $d = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $d);
+    }
 
-	$m = md5($source);
+    $m = md5($source);
 
-	return $d
-	. substr(preg_replace(',[^\w-],', '', basename($source)) . '-' . $m, 0, 12)
-	. substr($m, 0, 4)
-	. ".$extension";
+    return $d
+    . substr(preg_replace(',[^\w-],', '', basename($source)) . '-' . $m, 0, 12)
+    . substr($m, 0, 4)
+    . ".$extension";
 }
 
 /**
@@ -855,70 +855,70 @@ 
  *      Nom du fichier calculé
  **/
 function fichier_copie_locale($source) {
-	// Si c'est deja local pas de souci
-	if (!tester_url_absolue($source)) {
-		if (_DIR_RACINE) {
-			$source = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $source);
-		}
-
-		return $source;
-	}
-
-	// optimisation : on regarde si on peut deviner l'extension dans l'url et si le fichier
-	// a deja ete copie en local avec cette extension
-	// dans ce cas elle est fiable, pas la peine de requeter en base
-	$path_parts = pathinfo($source);
-	if (!isset($path_parts['extension'])) {
-		$path_parts['extension'] = '';
-	}
-	$ext = $path_parts ? $path_parts['extension'] : '';
-	if (
-		$ext
-		and preg_match(',^\w+$,', $ext) // pas de php?truc=1&...
-		and $f = nom_fichier_copie_locale($source, $ext)
-		and file_exists(_DIR_RACINE . $f)
-	) {
-		return $f;
-	}
-
-
-	// Si c'est deja dans la table des documents,
-	// ramener le nom de sa copie potentielle
-	$ext = sql_getfetsel('extension', 'spip_documents', 'fichier=' . sql_quote($source) . " AND distant='oui' AND extension <> ''");
-
-	if ($ext) {
-		return nom_fichier_copie_locale($source, $ext);
-	}
-
-	// voir si l'extension indiquee dans le nom du fichier est ok
-	// et si il n'aurait pas deja ete rapatrie
-
-	$ext = $path_parts ? $path_parts['extension'] : '';
-
-	if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
-		$f = nom_fichier_copie_locale($source, $ext);
-		if (file_exists(_DIR_RACINE . $f)) {
-			return $f;
-		}
-	}
-
-	// Ping  pour voir si son extension est connue et autorisee
-	// avec mise en cache du resultat du ping
-
-	$cache = sous_repertoire(_DIR_CACHE, 'rid') . md5($source);
-	if (
-		!@file_exists($cache)
-		or !$path_parts = @unserialize(spip_file_get_contents($cache))
-		or _request('var_mode') === 'recalcul'
-	) {
-		$path_parts = recuperer_infos_distantes($source, 0, false);
-		ecrire_fichier($cache, serialize($path_parts));
-	}
-	$ext = !empty($path_parts['extension']) ? $path_parts['extension'] : '';
-	if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
-		return nom_fichier_copie_locale($source, $ext);
-	}
-	spip_log("pas de copie locale pour $source", 'distant' . _LOG_ERREUR);
+    // Si c'est deja local pas de souci
+    if (!tester_url_absolue($source)) {
+        if (_DIR_RACINE) {
+            $source = preg_replace(',^' . preg_quote(_DIR_RACINE) . ',', '', $source);
+        }
+
+        return $source;
+    }
+
+    // optimisation : on regarde si on peut deviner l'extension dans l'url et si le fichier
+    // a deja ete copie en local avec cette extension
+    // dans ce cas elle est fiable, pas la peine de requeter en base
+    $path_parts = pathinfo($source);
+    if (!isset($path_parts['extension'])) {
+        $path_parts['extension'] = '';
+    }
+    $ext = $path_parts ? $path_parts['extension'] : '';
+    if (
+        $ext
+        and preg_match(',^\w+$,', $ext) // pas de php?truc=1&...
+        and $f = nom_fichier_copie_locale($source, $ext)
+        and file_exists(_DIR_RACINE . $f)
+    ) {
+        return $f;
+    }
+
+
+    // Si c'est deja dans la table des documents,
+    // ramener le nom de sa copie potentielle
+    $ext = sql_getfetsel('extension', 'spip_documents', 'fichier=' . sql_quote($source) . " AND distant='oui' AND extension <> ''");
+
+    if ($ext) {
+        return nom_fichier_copie_locale($source, $ext);
+    }
+
+    // voir si l'extension indiquee dans le nom du fichier est ok
+    // et si il n'aurait pas deja ete rapatrie
+
+    $ext = $path_parts ? $path_parts['extension'] : '';
+
+    if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
+        $f = nom_fichier_copie_locale($source, $ext);
+        if (file_exists(_DIR_RACINE . $f)) {
+            return $f;
+        }
+    }
+
+    // Ping  pour voir si son extension est connue et autorisee
+    // avec mise en cache du resultat du ping
+
+    $cache = sous_repertoire(_DIR_CACHE, 'rid') . md5($source);
+    if (
+        !@file_exists($cache)
+        or !$path_parts = @unserialize(spip_file_get_contents($cache))
+        or _request('var_mode') === 'recalcul'
+    ) {
+        $path_parts = recuperer_infos_distantes($source, 0, false);
+        ecrire_fichier($cache, serialize($path_parts));
+    }
+    $ext = !empty($path_parts['extension']) ? $path_parts['extension'] : '';
+    if ($ext and sql_getfetsel('extension', 'spip_types_documents', 'extension=' . sql_quote($ext))) {
+        return nom_fichier_copie_locale($source, $ext);
+    }
+    spip_log("pas de copie locale pour $source", 'distant' . _LOG_ERREUR);
 }
 
 
@@ -946,97 +946,97 @@ 
  **/
 function recuperer_infos_distantes($source, $max = 0, $charger_si_petite_image = true) {
 
-	// pas la peine de perdre son temps
-	if (!tester_url_absolue($source)) {
-		return false;
-	}
-
-	# charger les alias des types mime
-	include_spip('base/typedoc');
-
-	$a = [];
-	$mime_type = '';
-	// On va directement charger le debut des images et des fichiers html,
-	// de maniere a attrapper le maximum d'infos (titre, taille, etc). Si
-	// ca echoue l'utilisateur devra les entrer...
-	$reponse = recuperer_url($source, ['taille_max' => $max, 'refuser_gz' => true]);
-	$headers = $reponse['headers'] ?? '';
-	$a['body'] = $reponse['page'] ?? '';
-	if ($headers) {
-		if (!$extension = distant_trouver_extension_selon_headers($source, $headers)) {
-			return false;
-		}
-
-		$a['extension'] = $extension;
-
-		if (preg_match(",\nContent-Length: *([^[:space:]]*),i", "\n$headers", $regs)) {
-			$a['taille'] = intval($regs[1]);
-		}
-	}
-
-	// Echec avec HEAD, on tente avec GET
-	if (!$a and !$max) {
-		spip_log("tenter GET $source", 'distant');
-		$a = recuperer_infos_distantes($source, _INC_DISTANT_MAX_SIZE);
-	}
-
-	// si on a rien trouve pas la peine d'insister
-	if (!$a) {
-		return false;
-	}
-
-	// S'il s'agit d'une image pas trop grosse ou d'un fichier html, on va aller
-	// recharger le document en GET et recuperer des donnees supplementaires...
-	include_spip('inc/filtres_images_lib_mini');
-	if (
-		strpos($mime_type, 'image/') === 0
-		and $extension = _image_trouver_extension_depuis_mime($mime_type)
-	) {
-		if (
-			$max == 0
-			and (empty($a['taille']) or $a['taille'] < _INC_DISTANT_MAX_SIZE)
-			and in_array($extension, formats_image_acceptables())
-			and $charger_si_petite_image
-		) {
-			$a = recuperer_infos_distantes($source, _INC_DISTANT_MAX_SIZE);
-		} else {
-			if ($a['body']) {
-				$a['extension'] = $extension;
-				$a['fichier'] = _DIR_RACINE . nom_fichier_copie_locale($source, $extension);
-				ecrire_fichier($a['fichier'], $a['body']);
-				$size_image = @spip_getimagesize($a['fichier']);
-				$a['largeur'] = intval($size_image[0]);
-				$a['hauteur'] = intval($size_image[1]);
-				$a['type_image'] = true;
-			}
-		}
-	}
-
-	// Fichier swf, si on n'a pas la taille, on va mettre 425x350 par defaut
-	// ce sera mieux que 0x0
-	// Flash is dead!
-	if (
-		$a and isset($a['extension']) and $a['extension'] == 'swf'
-		and empty($a['largeur'])
-	) {
-		$a['largeur'] = 425;
-		$a['hauteur'] = 350;
-	}
-
-	if ($mime_type == 'text/html') {
-		include_spip('inc/filtres');
-		$page = recuperer_url($source, ['transcoder' => true, 'taille_max' => _INC_DISTANT_MAX_SIZE]);
-		$page = $page['page'] ?? '';
-		if (preg_match(',<title>(.*?)</title>,ims', $page, $regs)) {
-			$a['titre'] = corriger_caracteres(trim($regs[1]));
-		}
-		if (!isset($a['taille']) or !$a['taille']) {
-			$a['taille'] = strlen($page); # a peu pres
-		}
-	}
-	$a['mime_type'] = $mime_type;
-
-	return $a;
+    // pas la peine de perdre son temps
+    if (!tester_url_absolue($source)) {
+        return false;
+    }
+
+    # charger les alias des types mime
+    include_spip('base/typedoc');
+
+    $a = [];
+    $mime_type = '';
+    // On va directement charger le debut des images et des fichiers html,
+    // de maniere a attrapper le maximum d'infos (titre, taille, etc). Si
+    // ca echoue l'utilisateur devra les entrer...
+    $reponse = recuperer_url($source, ['taille_max' => $max, 'refuser_gz' => true]);
+    $headers = $reponse['headers'] ?? '';
+    $a['body'] = $reponse['page'] ?? '';
+    if ($headers) {
+        if (!$extension = distant_trouver_extension_selon_headers($source, $headers)) {
+            return false;
+        }
+
+        $a['extension'] = $extension;
+
+        if (preg_match(",\nContent-Length: *([^[:space:]]*),i", "\n$headers", $regs)) {
+            $a['taille'] = intval($regs[1]);
+        }
+    }
+
+    // Echec avec HEAD, on tente avec GET
+    if (!$a and !$max) {
+        spip_log("tenter GET $source", 'distant');
+        $a = recuperer_infos_distantes($source, _INC_DISTANT_MAX_SIZE);
+    }
+
+    // si on a rien trouve pas la peine d'insister
+    if (!$a) {
+        return false;
+    }
+
+    // S'il s'agit d'une image pas trop grosse ou d'un fichier html, on va aller
+    // recharger le document en GET et recuperer des donnees supplementaires...
+    include_spip('inc/filtres_images_lib_mini');
+    if (
+        strpos($mime_type, 'image/') === 0
+        and $extension = _image_trouver_extension_depuis_mime($mime_type)
+    ) {
+        if (
+            $max == 0
+            and (empty($a['taille']) or $a['taille'] < _INC_DISTANT_MAX_SIZE)
+            and in_array($extension, formats_image_acceptables())
+            and $charger_si_petite_image
+        ) {
+            $a = recuperer_infos_distantes($source, _INC_DISTANT_MAX_SIZE);
+        } else {
+            if ($a['body']) {
+                $a['extension'] = $extension;
+                $a['fichier'] = _DIR_RACINE . nom_fichier_copie_locale($source, $extension);
+                ecrire_fichier($a['fichier'], $a['body']);
+                $size_image = @spip_getimagesize($a['fichier']);
+                $a['largeur'] = intval($size_image[0]);
+                $a['hauteur'] = intval($size_image[1]);
+                $a['type_image'] = true;
+            }
+        }
+    }
+
+    // Fichier swf, si on n'a pas la taille, on va mettre 425x350 par defaut
+    // ce sera mieux que 0x0
+    // Flash is dead!
+    if (
+        $a and isset($a['extension']) and $a['extension'] == 'swf'
+        and empty($a['largeur'])
+    ) {
+        $a['largeur'] = 425;
+        $a['hauteur'] = 350;
+    }
+
+    if ($mime_type == 'text/html') {
+        include_spip('inc/filtres');
+        $page = recuperer_url($source, ['transcoder' => true, 'taille_max' => _INC_DISTANT_MAX_SIZE]);
+        $page = $page['page'] ?? '';
+        if (preg_match(',<title>(.*?)</title>,ims', $page, $regs)) {
+            $a['titre'] = corriger_caracteres(trim($regs[1]));
+        }
+        if (!isset($a['taille']) or !$a['taille']) {
+            $a['taille'] = strlen($page); # a peu pres
+        }
+    }
+    $a['mime_type'] = $mime_type;
+
+    return $a;
 }
 
 /**
@@ -1045,70 +1045,70 @@ 
  * @return false|mixed
  */
 function distant_trouver_extension_selon_headers($source, $headers) {
-	if (preg_match(",\nContent-Type: *([^[:space:];]*),i", "\n$headers", $regs)) {
-		$mime_type = (trim($regs[1]));
-	} else {
-		$mime_type = '';
-	} // inconnu
-
-	// Appliquer les alias
-	while (isset($GLOBALS['mime_alias'][$mime_type])) {
-		$mime_type = $GLOBALS['mime_alias'][$mime_type];
-	}
-
-	// pour corriger_extension()
-	include_spip('inc/documents');
-
-	// Si on a un mime-type insignifiant
-	// text/plain,application/octet-stream ou vide
-	// c'est peut-etre que le serveur ne sait pas
-	// ce qu'il sert ; on va tenter de detecter via l'extension de l'url
-	// ou le Content-Disposition: attachment; filename=...
-	$t = null;
-	if (in_array($mime_type, ['text/plain', '', 'application/octet-stream'])) {
-		if (
-			!$t
-			and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
-		) {
-			$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
-		}
-		if (
-			!$t
-			and preg_match(',^Content-Disposition:\s*attachment;\s*filename=(.*)$,Uims', $headers, $m)
-			and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $m[1], $rext)
-		) {
-			$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
-		}
-	}
-
-	// Autre mime/type (ou text/plain avec fichier d'extension inconnue)
-	if (!$t) {
-		$t = sql_fetsel('extension', 'spip_types_documents', 'mime_type=' . sql_quote($mime_type));
-	}
-
-	// Toujours rien ? (ex: audio/x-ogg au lieu de application/ogg)
-	// On essaie de nouveau avec l'extension
-	if (
-		!$t
-		and $mime_type != 'text/plain'
-		and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
-	) {
-		# eviter xxx.3 => 3gp (> SPIP 3)
-		$t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
-	}
-
-	if ($t) {
-		spip_log("mime-type $mime_type ok, extension " . $t['extension'], 'distant');
-		return $t['extension'];
-	} else {
-		# par defaut on retombe sur '.bin' si c'est autorise
-		spip_log("mime-type $mime_type inconnu", 'distant');
-		$t = sql_fetsel('extension', 'spip_types_documents', "extension='bin'");
-		if (!$t) {
-			return false;
-		}
-		return $t['extension'];
-	}
+    if (preg_match(",\nContent-Type: *([^[:space:];]*),i", "\n$headers", $regs)) {
+        $mime_type = (trim($regs[1]));
+    } else {
+        $mime_type = '';
+    } // inconnu
+
+    // Appliquer les alias
+    while (isset($GLOBALS['mime_alias'][$mime_type])) {
+        $mime_type = $GLOBALS['mime_alias'][$mime_type];
+    }
+
+    // pour corriger_extension()
+    include_spip('inc/documents');
+
+    // Si on a un mime-type insignifiant
+    // text/plain,application/octet-stream ou vide
+    // c'est peut-etre que le serveur ne sait pas
+    // ce qu'il sert ; on va tenter de detecter via l'extension de l'url
+    // ou le Content-Disposition: attachment; filename=...
+    $t = null;
+    if (in_array($mime_type, ['text/plain', '', 'application/octet-stream'])) {
+        if (
+            !$t
+            and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
+        ) {
+            $t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
+        }
+        if (
+            !$t
+            and preg_match(',^Content-Disposition:\s*attachment;\s*filename=(.*)$,Uims', $headers, $m)
+            and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $m[1], $rext)
+        ) {
+            $t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
+        }
+    }
+
+    // Autre mime/type (ou text/plain avec fichier d'extension inconnue)
+    if (!$t) {
+        $t = sql_fetsel('extension', 'spip_types_documents', 'mime_type=' . sql_quote($mime_type));
+    }
+
+    // Toujours rien ? (ex: audio/x-ogg au lieu de application/ogg)
+    // On essaie de nouveau avec l'extension
+    if (
+        !$t
+        and $mime_type != 'text/plain'
+        and preg_match(',\.([a-z0-9]+)(\?.*)?$,i', $source, $rext)
+    ) {
+        # eviter xxx.3 => 3gp (> SPIP 3)
+        $t = sql_fetsel('extension', 'spip_types_documents', 'extension=' . sql_quote(corriger_extension($rext[1]), '', 'text'));
+    }
+
+    if ($t) {
+        spip_log("mime-type $mime_type ok, extension " . $t['extension'], 'distant');
+        return $t['extension'];
+    } else {
+        # par defaut on retombe sur '.bin' si c'est autorise
+        spip_log("mime-type $mime_type inconnu", 'distant');
+        $t = sql_fetsel('extension', 'spip_types_documents', "extension='bin'");
+        if (!$t) {
+            return false;
+        }
+        return $t['extension'];
+    }
 }
 
 /**
@@ -1123,46 +1123,46 @@ 
  * @return string
  */
 function need_proxy($host, $http_proxy = null, $http_noproxy = null) {
-	if (is_null($http_proxy)) {
-		$http_proxy = isset($GLOBALS['meta']['http_proxy']) ? $GLOBALS['meta']['http_proxy'] : null;
-	}
-	// rien a faire si pas de proxy :)
-	if (is_null($http_proxy) or !$http_proxy = trim($http_proxy)) {
-		return '';
-	}
-
-	if (is_null($http_noproxy)) {
-		$http_noproxy = isset($GLOBALS['meta']['http_noproxy']) ? $GLOBALS['meta']['http_noproxy'] : null;
-	}
-	// si pas d'exception, on retourne le proxy
-	if (is_null($http_noproxy) or !$http_noproxy = trim($http_noproxy)) {
-		return $http_proxy;
-	}
-
-	// si le host ou l'un des domaines parents est dans $http_noproxy on fait exception
-	// $http_noproxy peut contenir plusieurs domaines separes par des espaces ou retour ligne
-	$http_noproxy = str_replace("\n", ' ', $http_noproxy);
-	$http_noproxy = str_replace("\r", ' ', $http_noproxy);
-	$http_noproxy = " $http_noproxy ";
-	$domain = $host;
-	// si le domaine exact www.example.org est dans les exceptions
-	if (strpos($http_noproxy, " $domain ") !== false) {
-		return '';
-	}
-
-	while (strpos($domain, '.') !== false) {
-		$domain = explode('.', $domain);
-		array_shift($domain);
-		$domain = implode('.', $domain);
-
-		// ou si un domaine parent commencant par un . est dans les exceptions (indiquant qu'il couvre tous les sous-domaines)
-		if (strpos($http_noproxy, " .$domain ") !== false) {
-			return '';
-		}
-	}
-
-	// ok c'est pas une exception
-	return $http_proxy;
+    if (is_null($http_proxy)) {
+        $http_proxy = isset($GLOBALS['meta']['http_proxy']) ? $GLOBALS['meta']['http_proxy'] : null;
+    }
+    // rien a faire si pas de proxy :)
+    if (is_null($http_proxy) or !$http_proxy = trim($http_proxy)) {
+        return '';
+    }
+
+    if (is_null($http_noproxy)) {
+        $http_noproxy = isset($GLOBALS['meta']['http_noproxy']) ? $GLOBALS['meta']['http_noproxy'] : null;
+    }
+    // si pas d'exception, on retourne le proxy
+    if (is_null($http_noproxy) or !$http_noproxy = trim($http_noproxy)) {
+        return $http_proxy;
+    }
+
+    // si le host ou l'un des domaines parents est dans $http_noproxy on fait exception
+    // $http_noproxy peut contenir plusieurs domaines separes par des espaces ou retour ligne
+    $http_noproxy = str_replace("\n", ' ', $http_noproxy);
+    $http_noproxy = str_replace("\r", ' ', $http_noproxy);
+    $http_noproxy = " $http_noproxy ";
+    $domain = $host;
+    // si le domaine exact www.example.org est dans les exceptions
+    if (strpos($http_noproxy, " $domain ") !== false) {
+        return '';
+    }
+
+    while (strpos($domain, '.') !== false) {
+        $domain = explode('.', $domain);
+        array_shift($domain);
+        $domain = implode('.', $domain);
+
+        // ou si un domaine parent commencant par un . est dans les exceptions (indiquant qu'il couvre tous les sous-domaines)
+        if (strpos($http_noproxy, " .$domain ") !== false) {
+            return '';
+        }
+    }
+
+    // ok c'est pas une exception
+    return $http_proxy;
 }
 
 
@@ -1185,59 +1185,59 @@ 
  * @return array
  */
 function init_http($method, $url, $refuse_gz = false, $referer = '', $datas = '', $vers = 'HTTP/1.0', $date = '') {
-	$user = $via_proxy = $proxy_user = '';
-	$fopen = false;
-
-	$t = @parse_url($url);
-	$host = $t['host'];
-	if ($t['scheme'] == 'http') {
-		$scheme = 'http';
-		$noproxy = '';
-	} elseif ($t['scheme'] == 'https') {
-		$scheme = 'ssl';
-		$noproxy = 'ssl://';
-		if (!isset($t['port']) || !($port = $t['port'])) {
-			$t['port'] = 443;
-		}
-	} else {
-		$scheme = $t['scheme'];
-		$noproxy = $scheme . '://';
-	}
-	if (isset($t['user'])) {
-		$user = [$t['user'], $t['pass']];
-	}
-
-	if (!isset($t['port']) || !($port = $t['port'])) {
-		$port = 80;
-	}
-	if (!isset($t['path']) || !($path = $t['path'])) {
-		$path = '/';
-	}
-
-	if (!empty($t['query'])) {
-		$path .= '?' . $t['query'];
-	}
-
-	$f = lance_requete($method, $scheme, $user, $host, $path, $port, $noproxy, $refuse_gz, $referer, $datas, $vers, $date);
-	if (!$f or !is_resource($f)) {
-		// fallback : fopen si on a pas fait timeout dans lance_requete
-		// ce qui correspond a $f===110
-		if (
-			$f !== 110
-			and !need_proxy($host)
-			and !_request('tester_proxy')
-			and (!isset($GLOBALS['inc_distant_allow_fopen']) or $GLOBALS['inc_distant_allow_fopen'])
-		) {
-			$f = @fopen($url, 'rb');
-			spip_log("connexion vers $url par simple fopen", 'distant');
-			$fopen = true;
-		} else {
-			// echec total
-			$f = false;
-		}
-	}
-
-	return [$f, $fopen];
+    $user = $via_proxy = $proxy_user = '';
+    $fopen = false;
+
+    $t = @parse_url($url);
+    $host = $t['host'];
+    if ($t['scheme'] == 'http') {
+        $scheme = 'http';
+        $noproxy = '';
+    } elseif ($t['scheme'] == 'https') {
+        $scheme = 'ssl';
+        $noproxy = 'ssl://';
+        if (!isset($t['port']) || !($port = $t['port'])) {
+            $t['port'] = 443;
+        }
+    } else {
+        $scheme = $t['scheme'];
+        $noproxy = $scheme . '://';
+    }
+    if (isset($t['user'])) {
+        $user = [$t['user'], $t['pass']];
+    }
+
+    if (!isset($t['port']) || !($port = $t['port'])) {
+        $port = 80;
+    }
+    if (!isset($t['path']) || !($path = $t['path'])) {
+        $path = '/';
+    }
+
+    if (!empty($t['query'])) {
+        $path .= '?' . $t['query'];
+    }
+
+    $f = lance_requete($method, $scheme, $user, $host, $path, $port, $noproxy, $refuse_gz, $referer, $datas, $vers, $date);
+    if (!$f or !is_resource($f)) {
+        // fallback : fopen si on a pas fait timeout dans lance_requete
+        // ce qui correspond a $f===110
+        if (
+            $f !== 110
+            and !need_proxy($host)
+            and !_request('tester_proxy')
+            and (!isset($GLOBALS['inc_distant_allow_fopen']) or $GLOBALS['inc_distant_allow_fopen'])
+        ) {
+            $f = @fopen($url, 'rb');
+            spip_log("connexion vers $url par simple fopen", 'distant');
+            $fopen = true;
+        } else {
+            // echec total
+            $f = false;
+        }
+    }
+
+    return [$f, $fopen];
 }
 
 /**
@@ -1272,125 +1272,125 @@ 
  *   resource socket vers l'url demandee
  */
 function lance_requete(
-	$method,
-	$scheme,
-	$user,
-	$host,
-	$path,
-	$port,
-	$noproxy,
-	$refuse_gz = false,
-	$referer = '',
-	$datas = '',
-	$vers = 'HTTP/1.0',
-	$date = ''
+    $method,
+    $scheme,
+    $user,
+    $host,
+    $path,
+    $port,
+    $noproxy,
+    $refuse_gz = false,
+    $referer = '',
+    $datas = '',
+    $vers = 'HTTP/1.0',
+    $date = ''
 ) {
 
-	$proxy_user = '';
-	$http_proxy = need_proxy($host);
-	if ($user) {
-		$user = urlencode($user[0]) . ':' . urlencode($user[1]);
-	}
-
-	$connect = '';
-	if ($http_proxy) {
-		if (!defined('_PROXY_HTTPS_NOT_VIA_CONNECT') and in_array($scheme, ['tls','ssl'])) {
-			$path_host = (!$user ? '' : "$user@") . $host . (($port != 80) ? ":$port" : '');
-			$connect = 'CONNECT ' . $path_host . " $vers\r\n"
-				. "Host: $path_host\r\n"
-				. "Proxy-Connection: Keep-Alive\r\n";
-		} else {
-			$path = (in_array($scheme, ['tls','ssl']) ? 'https://' : "$scheme://")
-				. (!$user ? '' : "$user@")
-				. "$host" . (($port != 80) ? ":$port" : '') . $path;
-		}
-		$t2 = @parse_url($http_proxy);
-		$first_host = $t2['host'];
-		if (!($port = $t2['port'])) {
-			$port = 80;
-		}
-		if ($t2['user']) {
-			$proxy_user = base64_encode($t2['user'] . ':' . $t2['pass']);
-		}
-	} else {
-		$first_host = $noproxy . $host;
-	}
-
-	if ($connect) {
-		$streamContext = stream_context_create([
-			'ssl' => [
-				'verify_peer' => false,
-				'allow_self_signed' => true,
-				'SNI_enabled' => true,
-				'peer_name' => $host,
-			]
-		]);
-		$f = @stream_socket_client(
-			"tcp://$first_host:$port",
-			$errno,
-			$errstr,
-			_INC_DISTANT_CONNECT_TIMEOUT,
-			STREAM_CLIENT_CONNECT,
-			$streamContext
-		);
-		spip_log("Recuperer $path sur $first_host:$port par $f (via CONNECT)", 'connect');
-		if (!$f) {
-			spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
-			return $errno;
-		}
-		stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
-
-		fputs($f, $connect);
-		fputs($f, "\r\n");
-		$res = fread($f, 1024);
-		if (
-			!$res
-			or !count($res = explode(' ', $res))
-			or $res[1] !== '200'
-		) {
-			spip_log("Echec CONNECT sur $first_host:$port", 'connect' . _LOG_INFO_IMPORTANTE);
-			fclose($f);
-
-			return false;
-		}
-		// important, car sinon on lit trop vite et les donnees ne sont pas encore dispo
-		stream_set_blocking($f, true);
-		// envoyer le handshake
-		stream_socket_enable_crypto($f, true, STREAM_CRYPTO_METHOD_SSLv23_CLIENT);
-		spip_log("OK CONNECT sur $first_host:$port", 'connect');
-	} else {
-		$ntry = 3;
-		do {
-			$f = @fsockopen($first_host, $port, $errno, $errstr, _INC_DISTANT_CONNECT_TIMEOUT);
-		} while (!$f and $ntry-- and $errno !== 110 and sleep(1));
-		spip_log("Recuperer $path sur $first_host:$port par $f");
-		if (!$f) {
-			spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
-
-			return $errno;
-		}
-		stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
-	}
-
-	$site = isset($GLOBALS['meta']['adresse_site']) ? $GLOBALS['meta']['adresse_site'] : '';
-
-	$host_port = $host;
-	if ($port != (in_array($scheme, ['tls','ssl']) ? 443 : 80)) {
-		$host_port .= ":$port";
-	}
-	$req = "$method $path $vers\r\n"
-		. "Host: $host_port\r\n"
-		. 'User-Agent: ' . _INC_DISTANT_USER_AGENT . "\r\n"
-		. ($refuse_gz ? '' : ('Accept-Encoding: ' . _INC_DISTANT_CONTENT_ENCODING . "\r\n"))
-		. (!$site ? '' : "Referer: $site/$referer\r\n")
-		. (!$date ? '' : 'If-Modified-Since: ' . (gmdate('D, d M Y H:i:s', $date) . " GMT\r\n"))
-		. (!$user ? '' : ('Authorization: Basic ' . base64_encode($user) . "\r\n"))
-		. (!$proxy_user ? '' : "Proxy-Authorization: Basic $proxy_user\r\n")
-		. (!strpos($vers, '1.1') ? '' : "Keep-Alive: 300\r\nConnection: keep-alive\r\n");
+    $proxy_user = '';
+    $http_proxy = need_proxy($host);
+    if ($user) {
+        $user = urlencode($user[0]) . ':' . urlencode($user[1]);
+    }
+
+    $connect = '';
+    if ($http_proxy) {
+        if (!defined('_PROXY_HTTPS_NOT_VIA_CONNECT') and in_array($scheme, ['tls','ssl'])) {
+            $path_host = (!$user ? '' : "$user@") . $host . (($port != 80) ? ":$port" : '');
+            $connect = 'CONNECT ' . $path_host . " $vers\r\n"
+                . "Host: $path_host\r\n"
+                . "Proxy-Connection: Keep-Alive\r\n";
+        } else {
+            $path = (in_array($scheme, ['tls','ssl']) ? 'https://' : "$scheme://")
+                . (!$user ? '' : "$user@")
+                . "$host" . (($port != 80) ? ":$port" : '') . $path;
+        }
+        $t2 = @parse_url($http_proxy);
+        $first_host = $t2['host'];
+        if (!($port = $t2['port'])) {
+            $port = 80;
+        }
+        if ($t2['user']) {
+            $proxy_user = base64_encode($t2['user'] . ':' . $t2['pass']);
+        }
+    } else {
+        $first_host = $noproxy . $host;
+    }
+
+    if ($connect) {
+        $streamContext = stream_context_create([
+            'ssl' => [
+                'verify_peer' => false,
+                'allow_self_signed' => true,
+                'SNI_enabled' => true,
+                'peer_name' => $host,
+            ]
+        ]);
+        $f = @stream_socket_client(
+            "tcp://$first_host:$port",
+            $errno,
+            $errstr,
+            _INC_DISTANT_CONNECT_TIMEOUT,
+            STREAM_CLIENT_CONNECT,
+            $streamContext
+        );
+        spip_log("Recuperer $path sur $first_host:$port par $f (via CONNECT)", 'connect');
+        if (!$f) {
+            spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
+            return $errno;
+        }
+        stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
+
+        fputs($f, $connect);
+        fputs($f, "\r\n");
+        $res = fread($f, 1024);
+        if (
+            !$res
+            or !count($res = explode(' ', $res))
+            or $res[1] !== '200'
+        ) {
+            spip_log("Echec CONNECT sur $first_host:$port", 'connect' . _LOG_INFO_IMPORTANTE);
+            fclose($f);
+
+            return false;
+        }
+        // important, car sinon on lit trop vite et les donnees ne sont pas encore dispo
+        stream_set_blocking($f, true);
+        // envoyer le handshake
+        stream_socket_enable_crypto($f, true, STREAM_CRYPTO_METHOD_SSLv23_CLIENT);
+        spip_log("OK CONNECT sur $first_host:$port", 'connect');
+    } else {
+        $ntry = 3;
+        do {
+            $f = @fsockopen($first_host, $port, $errno, $errstr, _INC_DISTANT_CONNECT_TIMEOUT);
+        } while (!$f and $ntry-- and $errno !== 110 and sleep(1));
+        spip_log("Recuperer $path sur $first_host:$port par $f");
+        if (!$f) {
+            spip_log("Erreur connexion $errno $errstr", 'distant' . _LOG_ERREUR);
+
+            return $errno;
+        }
+        stream_set_timeout($f, _INC_DISTANT_CONNECT_TIMEOUT);
+    }
+
+    $site = isset($GLOBALS['meta']['adresse_site']) ? $GLOBALS['meta']['adresse_site'] : '';
+
+    $host_port = $host;
+    if ($port != (in_array($scheme, ['tls','ssl']) ? 443 : 80)) {
+        $host_port .= ":$port";
+    }
+    $req = "$method $path $vers\r\n"
+        . "Host: $host_port\r\n"
+        . 'User-Agent: ' . _INC_DISTANT_USER_AGENT . "\r\n"
+        . ($refuse_gz ? '' : ('Accept-Encoding: ' . _INC_DISTANT_CONTENT_ENCODING . "\r\n"))
+        . (!$site ? '' : "Referer: $site/$referer\r\n")
+        . (!$date ? '' : 'If-Modified-Since: ' . (gmdate('D, d M Y H:i:s', $date) . " GMT\r\n"))
+        . (!$user ? '' : ('Authorization: Basic ' . base64_encode($user) . "\r\n"))
+        . (!$proxy_user ? '' : "Proxy-Authorization: Basic $proxy_user\r\n")
+        . (!strpos($vers, '1.1') ? '' : "Keep-Alive: 300\r\nConnection: keep-alive\r\n");
 
 #	spip_log("Requete\n$req", 'distant');
-	fputs($f, $req);
-	fputs($f, $datas ? $datas : "\r\n");
+    fputs($f, $req);
+    fputs($f, $datas ? $datas : "\r\n");
 
-	return $f;
+    return $f;
 }