spip / SPIP

ecrire/public/criteres.php

Indentation +1662 added lines, -1662 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 = array("'='", "'$boucle->id_table." . "$id_parent'", 0);
-	$boucle->where[] = ($crit->not ? array("'NOT'", $c) : $c);
+    $c = array("'='", "'$boucle->id_table." . "$id_parent'", 0);
+    $boucle->where[] = ($crit->not ? array("'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 (array('zbug_critere_inconnu', array('critere' => $not . $crit->op)));
-	}
-	$arg = kwote(calculer_argument_precedent($idb, $id, $boucles));
-	$boucle->where[] = array("'!='", "'$boucle->id_table." . "$id'", $arg);
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $id = $boucle->primary;
+
+    if ($not or !$id) {
+        return (array('zbug_critere_inconnu', array('critere' => $not . $crit->op)));
+    }
+    $arg = kwote(calculer_argument_precedent($idb, $id, $boucles));
+    $boucle->where[] = array("'!='", "'$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 (array('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], array(), $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[] = array($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 (array('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], array(), $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[] = array($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,57 +256,57 @@ 
  **/
 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(array($crit->param[0][0]), array(), $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(array($crit->param[0][1]), array(), $boucles, $boucle->id_parent);
-	} // Ancienne syntaxe {pagination 20 nom} pour compatibilité
-	elseif (isset($crit->param[1][0])) {
-		$type = calculer_liste(array($crit->param[1][0]), array(), $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(array($crit->param[0][0]), array(), $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(array($crit->param[0][1]), array(), $boucles, $boucle->id_parent);
+    } // Ancienne syntaxe {pagination 20 nom} pour compatibilité
+    elseif (isset($crit->param[1][0])) {
+        $type = calculer_liste(array($crit->param[1][0]), array(), $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;
+    }
 }
 
 
@@ -328,24 +328,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', array('critere' => 'recherche')), $boucle);
+    if (!$boucle->primary or strpos($boucle->primary, ',')) {
+        erreur_squelette(_T('zbug_critere_sur_table_sans_cle_primaire', array('critere' => 'recherche')), $boucle);
 
-		return;
-	}
+        return;
+    }
 
-	if (isset($crit->param[0])) {
-		$quoi = calculer_liste($crit->param[0], array(), $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], array(), $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' : '') . '
@@ -356,21 +356,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'] = array("'" . $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'] = array("'" . $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:\'\'';
 }
 
 /**
@@ -387,25 +387,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[] =
-		array(
-			"'OR'",
-			array(
-				"'AND'",
-				array("'='", "'$table.id_trad'", 0),
-				array("'='", "'$table.$prim'", $dprim)
-			),
-			array(
-				"'AND'",
-				array("'>'", "'$table.id_trad'", 0),
-				array("'='", "'$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[] =
+        array(
+            "'OR'",
+            array(
+                "'AND'",
+                array("'='", "'$table.id_trad'", 0),
+                array("'='", "'$table.$prim'", $dprim)
+            ),
+            array(
+                "'AND'",
+                array("'>'", "'$table.id_trad'", 0),
+                array("'='", "'$table.id_trad'", $arg)
+            )
+        );
 }
 
 
@@ -423,17 +423,17 @@ 
  * @return void
  **/
 function critere_origine_traduction_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$prim = $boucle->primary;
-	$table = $boucle->id_table;
-
-	$c =
-		array(
-			"'OR'",
-			array("'='", "'$table." . "id_trad'", "'$table.$prim'"),
-			array("'='", "'$table.id_trad'", "'0'")
-		);
-	$boucle->where[] = ($crit->not ? array("'NOT'", $c) : $c);
+    $boucle = &$boucles[$idb];
+    $prim = $boucle->primary;
+    $table = $boucle->id_table;
+
+    $c =
+        array(
+            "'OR'",
+            array("'='", "'$table." . "id_trad'", "'$table.$prim'"),
+            array("'='", "'$table.id_trad'", "'0'")
+        );
+    $boucle->where[] = ($crit->not ? array("'NOT'", $c) : $c);
 }
 
 
@@ -450,20 +450,20 @@ 
  **/
 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;
+    $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[] = array("'='", "'$mparent'", $arg);
+    if ($boucle->type_requete == 'rubriques' or isset($GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'])) {
+        $boucle->where[] = array("'='", "'$mparent'", $arg);
 
-	} // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist()
-	else {
-		return (array('zbug_critere_inconnu', array('critere' => $crit->op . ' ' . $boucle->type_requete)));
-	}
+    } // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist()
+    else {
+        return (array('zbug_critere_inconnu', array('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], array(), $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[] = array("'='", _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], array(), $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[] = array("'='", _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,22 +540,22 @@ 
  **/
 function critere_logo_dist($idb, &$boucles, $crit) {
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
 
-	$c = "sql_in('" .
-		$boucle->id_table . '.' . $boucle->primary
-		. "', lister_objets_avec_logos('" . $boucle->primary . "'), '')";
+    $c = "sql_in('" .
+        $boucle->id_table . '.' . $boucle->primary
+        . "', lister_objets_avec_logos('" . $boucle->primary . "'), '')";
 
-	if ($crit->cond) {
-		$c = "($arg ? $c : 1)";
-	}
+    if ($crit->cond) {
+        $c = "($arg ? $c : 1)";
+    }
 
-	if ($not) {
-		$boucle->where[] = array("'NOT'", $c);
-	} else {
-		$boucle->where[] = $c;
-	}
+    if ($not) {
+        $boucle->where[] = array("'NOT'", $c);
+    } else {
+        $boucle->where[] = $c;
+    }
 }
 
 
@@ -577,31 +577,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 (array('zbug_critere_inconnu', array('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 (array('zbug_critere_inconnu', array('critere' => $crit->op . ' ?')));
+    }
 }
 
 /**
@@ -638,45 +638,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], array(), $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 (array('zbug_critere_inconnu', array('critere' => $crit->op . " " . count($boucles[$idb]->order))));
-	}
+    if (isset($crit->param[0])) {
+        $_coll = calculer_liste($crit->param[0], array(), $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 (array('zbug_critere_inconnu', array('critere' => $crit->op . " " . count($boucles[$idb]->order))));
+    }
 }
 
 // http://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, array(), $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, array(), $boucles, $boucle->id_parent);
+
+    return "((\$x = preg_replace(\"/\\W/\",'', $arg)) ? $alt : '')";
 }
 
 /**
@@ -715,7 +715,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);
 }
 
 /**
@@ -737,93 +737,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 array('zbug_critere_inconnu', array('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 array('zbug_critere_inconnu', array('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 array('zbug_critere_inconnu', array('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 array('zbug_critere_inconnu', array('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;
+    }
 }
 
 /**
@@ -837,13 +837,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'";
 }
 
 /**
@@ -867,20 +867,20 @@ 
  * @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 array('zbug_critere_inconnu', array('critere' => $crit->op . " num $champ"));
-	}
-	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
-	$suite = calculer_liste($tri, array(), $boucles, $boucle->id_parent);
-	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . " . \"";
-	}
-	$as = 'num' . ($boucle->order ? count($boucle->order) : "");
-	$boucle->select[] = $texte . " AS $as";
-	$order = "'$as'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return array('zbug_critere_inconnu', array('critere' => $crit->op . " num $champ"));
+    }
+    $boucle = &$boucles[$idb];
+    $texte = '0+' . $_champ;
+    $suite = calculer_liste($tri, array(), $boucles, $boucle->id_parent);
+    if ($suite !== "''") {
+        $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . " . \"";
+    }
+    $as = 'num' . ($boucle->order ? count($boucle->order) : "");
+    $boucle->select[] = $texte . " AS $as";
+    $order = "'$as'";
+    return $order;
 }
 
 /**
@@ -901,20 +901,20 @@ 
  * @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 array('zbug_critere_inconnu', array('critere' => $crit->op . " sinum $champ"));
-	}
-	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
-	$suite = calculer_liste($tri, array(), $boucles, $boucle->id_parent);
-	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . " . \"";
-	}
-	$as = 'sinum' . ($boucle->order ? count($boucle->order) : "");
-	$boucle->select[] = 'CASE (' . $texte . ') WHEN 0 THEN 1 ELSE 0 END AS ' . $as;
-	$order = "'$as'";
-	return $order;
+    $_champ = calculer_critere_par_champ($idb, $boucles, $crit, $champ, true);
+    if (is_array($_champ)) {
+        return array('zbug_critere_inconnu', array('critere' => $crit->op . " sinum $champ"));
+    }
+    $boucle = &$boucles[$idb];
+    $texte = '0+' . $_champ;
+    $suite = calculer_liste($tri, array(), $boucles, $boucle->id_parent);
+    if ($suite !== "''") {
+        $texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . " . \"";
+    }
+    $as = 'sinum' . ($boucle->order ? count($boucle->order) : "");
+    $boucle->select[] = 'CASE (' . $texte . ') WHEN 0 THEN 1 ELSE 0 END AS ' . $as;
+    $order = "'$as'";
+    return $order;
 }
 
 
@@ -934,14 +934,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 array('zbug_critere_inconnu', array('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 array('zbug_critere_inconnu', array('critere' => $crit->op . " multi $champ"));
+    }
+    $boucle = &$boucles[$idb];
+    $boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\"";
+    $order = "'multi'";
+    return $order;
 }
 
 /**
@@ -960,56 +960,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 array('zbug_critere_inconnu', array('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 array('zbug_critere_inconnu', array('critere' => $crit->op . " $par"));
+        } else {
+            // Sinon tant pis, ca doit etre un champ synthetise (cf points)
+        }
+    }
+
+    return $raw ? $par : "'$par'";
 }
 
 /**
@@ -1023,11 +1023,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 . "'");
 }
 
 /**
@@ -1052,143 +1052,143 @@ 
  */
 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], array(), $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], array(), $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;
+        }
+    }
 }
 
 // http://code.spip.net/@critere_agenda_dist
 function critere_agenda_dist($idb, &$boucles, $crit) {
-	$params = $crit->param;
-
-	if (count($params) < 1) {
-		return array('zbug_critere_inconnu', array('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 array('zbug_critere_inconnu', array('critere' => $crit->op . " " . $date));
-		}
-	} else {
-		$a = calculer_liste($date, array(), $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, array(), $boucles, $parent) .
-		') ? $x : date("Y"))';
-
-	$mois = $params ? array_shift($params) : "";
-	$mois = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois, array(), $boucles, $parent) .
-		') ? $x : date("m"))';
-
-	$jour = $params ? array_shift($params) : "";
-	$jour = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour, array(), $boucles, $parent) .
-		') ? $x : date("d"))';
-
-	$annee2 = $params ? array_shift($params) : "";
-	$annee2 = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee2, array(), $boucles, $parent) .
-		') ? $x : date("Y"))';
-
-	$mois2 = $params ? array_shift($params) : "";
-	$mois2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois2, array(), $boucles, $parent) .
-		') ? $x : date("m"))';
-
-	$jour2 = $params ? array_shift($params) : "";
-	$jour2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour2, array(), $boucles, $parent) .
-		') ? $x : date("d"))';
-
-	$date = $boucle->id_table . ".$date";
-
-	$quote_end = ",'" . $boucle->sql_serveur . "','text'";
-	if ($type == 'jour') {
-		$boucle->where[] = array(
-			"'='",
-			"'DATE_FORMAT($date, \'%Y%m%d\')'",
-			("sql_quote($annee . $mois . $jour$quote_end)")
-		);
-	} elseif ($type == 'mois') {
-		$boucle->where[] = array(
-			"'='",
-			"'DATE_FORMAT($date, \'%Y%m\')'",
-			("sql_quote($annee . $mois$quote_end)")
-		);
-	} elseif ($type == 'semaine') {
-		$boucle->where[] = array(
-			"'AND'",
-			array(
-				"'>='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("date_debut_semaine($annee, $mois, $jour)")
-			),
-			array(
-				"'<='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("date_fin_semaine($annee, $mois, $jour)")
-			)
-		);
-	} elseif (count($crit->param) > 2) {
-		$boucle->where[] = array(
-			"'AND'",
-			array(
-				"'>='",
-				"'DATE_FORMAT($date, \'%Y%m%d\')'",
-				("sql_quote($annee . $mois . $jour$quote_end)")
-			),
-			array("'<='", "'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 array('zbug_critere_inconnu', array('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 array('zbug_critere_inconnu', array('critere' => $crit->op . " " . $date));
+        }
+    } else {
+        $a = calculer_liste($date, array(), $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, array(), $boucles, $parent) .
+        ') ? $x : date("Y"))';
+
+    $mois = $params ? array_shift($params) : "";
+    $mois = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($mois, array(), $boucles, $parent) .
+        ') ? $x : date("m"))';
+
+    $jour = $params ? array_shift($params) : "";
+    $jour = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($jour, array(), $boucles, $parent) .
+        ') ? $x : date("d"))';
+
+    $annee2 = $params ? array_shift($params) : "";
+    $annee2 = "\n" . 'sprintf("%04d", ($x = ' .
+        calculer_liste($annee2, array(), $boucles, $parent) .
+        ') ? $x : date("Y"))';
+
+    $mois2 = $params ? array_shift($params) : "";
+    $mois2 = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($mois2, array(), $boucles, $parent) .
+        ') ? $x : date("m"))';
+
+    $jour2 = $params ? array_shift($params) : "";
+    $jour2 = "\n" . 'sprintf("%02d", ($x = ' .
+        calculer_liste($jour2, array(), $boucles, $parent) .
+        ') ? $x : date("d"))';
+
+    $date = $boucle->id_table . ".$date";
+
+    $quote_end = ",'" . $boucle->sql_serveur . "','text'";
+    if ($type == 'jour') {
+        $boucle->where[] = array(
+            "'='",
+            "'DATE_FORMAT($date, \'%Y%m%d\')'",
+            ("sql_quote($annee . $mois . $jour$quote_end)")
+        );
+    } elseif ($type == 'mois') {
+        $boucle->where[] = array(
+            "'='",
+            "'DATE_FORMAT($date, \'%Y%m\')'",
+            ("sql_quote($annee . $mois$quote_end)")
+        );
+    } elseif ($type == 'semaine') {
+        $boucle->where[] = array(
+            "'AND'",
+            array(
+                "'>='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("date_debut_semaine($annee, $mois, $jour)")
+            ),
+            array(
+                "'<='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("date_fin_semaine($annee, $mois, $jour)")
+            )
+        );
+    } elseif (count($crit->param) > 2) {
+        $boucle->where[] = array(
+            "'AND'",
+            array(
+                "'>='",
+                "'DATE_FORMAT($date, \'%Y%m%d\')'",
+                ("sql_quote($annee . $mois . $jour$quote_end)")
+            ),
+            array("'<='", "'DATE_FORMAT($date, \'%Y%m%d\')'", ("sql_quote($annee2 . $mois2 . $jour2$quote_end)"))
+        );
+    }
+    // sinon on prend tout
 }
 
 
@@ -1213,33 +1213,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);
+        }
+    }
 }
 
 /**
@@ -1267,63 +1267,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;";
 }
@@ -1340,26 +1340,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(array($param[0]), array('id_mere' => $idb), $boucles, $boucles[$idb]->id_parent);
-		if (isset($param[1]->texte)) {
-			preg_match(',^ *(-([0-9]+))? *$,', $param[1]->texte, $m);
-
-			return array("intval($a1)", ((isset($m[2]) and $m[2]) ? $m[2] : 0));
-		} else {
-			return array("intval($a1)", 0);
-		}
-	} else {
-		preg_match(',^ *(([0-9]+)|n) *(- *([0-9]+)? *)?$,', $param[0]->texte, $m);
-		$a1 = $m[1];
-		if (empty($m[3])) {
-			return array($a1, 0);
-		} elseif (!empty($m[4])) {
-			return array($a1, $m[4]);
-		} else {
-			return array($a1, calculer_liste(array($param[1]), array(), $boucles, $boucles[$idb]->id_parent));
-		}
-	}
+    if ($param[0]->type != 'texte') {
+        $a1 = calculer_liste(array($param[0]), array('id_mere' => $idb), $boucles, $boucles[$idb]->id_parent);
+        if (isset($param[1]->texte)) {
+            preg_match(',^ *(-([0-9]+))? *$,', $param[1]->texte, $m);
+
+            return array("intval($a1)", ((isset($m[2]) and $m[2]) ? $m[2] : 0));
+        } else {
+            return array("intval($a1)", 0);
+        }
+    } else {
+        preg_match(',^ *(([0-9]+)|n) *(- *([0-9]+)? *)?$,', $param[0]->texte, $m);
+        $a1 = $m[1];
+        if (empty($m[3])) {
+            return array($a1, 0);
+        } elseif (!empty($m[4])) {
+            return array($a1, $m[4]);
+        } else {
+            return array($a1, calculer_liste(array($param[1]), array(), $boucles, $boucles[$idb]->id_parent));
+        }
+    }
 }
 
 
@@ -1386,47 +1386,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 array();
-	}
-
-	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 array();
+    }
+
+    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;
 }
 
 /**
@@ -1443,11 +1443,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(array("\\'", "\\\\"), array("'", "\\"), $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(array("\\'", "\\\\"), array("'", "\\"), $r[2]), $serveur, $type) . "\"";
+    } else {
+        return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')";
+    }
 }
 
 
@@ -1466,85 +1466,85 @@ 
  * @return void
  **/
 function critere_IN_dist($idb, &$boucles, $crit) {
-	$r = calculer_critere_infixe($idb, $boucles, $crit);
-	if (!$r) {
-		return (array('zbug_critere_inconnu', array('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 = array("'?'", $pred, $where, "''");
-		if ($where_complement) // condition annexe du type "AND (objet='article')"
-		{
-			$where_complement = array("'?'", $pred, $where_complement, "''");
-		}
-	}
-	if ($crit->exclus) {
-		if (!preg_match(",^L[0-9]+[.],", $arg)) {
-			$where = array("'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 = array(
-				"'NOT'",
-				array(
-					"'IN'",
-					"'" . $boucles[$idb]->id_table . "." . $boucles[$idb]->primary . "'",
-					array("'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 (array('zbug_critere_inconnu', array('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 = array("'?'", $pred, $where, "''");
+        if ($where_complement) // condition annexe du type "AND (objet='article')"
+        {
+            $where_complement = array("'?'", $pred, $where_complement, "''");
+        }
+    }
+    if ($crit->exclus) {
+        if (!preg_match(",^L[0-9]+[.],", $arg)) {
+            $where = array("'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 = array(
+                "'NOT'",
+                array(
+                    "'IN'",
+                    "'" . $boucles[$idb]->id_table . "." . $boucles[$idb]->primary . "'",
+                    array("'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;
+    }
 }
 
 // http://code.spip.net/@critere_IN_cas
 function critere_IN_cas($idb, &$boucles, $crit2, $arg, $op, $val, $col) {
-	static $num = array();
-	$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[] = "((!sql_quote($var) OR sql_quote($var)===\"''\") ? 0 : ('FIELD($arg,' . sql_quote($var) . ')'))";
-	}
-
-	return "sql_in('$arg',sql_quote($var)" . ($crit2 == 'NOT' ? ",'NOT'" : "") . ")";
+    static $num = array();
+    $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[] = "((!sql_quote($var) OR sql_quote($var)===\"''\") ? 0 : ('FIELD($arg,' . sql_quote($var) . ')'))";
+    }
+
+    return "sql_in('$arg',sql_quote($var)" . ($crit2 == 'NOT' ? ",'NOT'" : "") . ")";
 }
 
 /**
@@ -1560,22 +1560,22 @@ 
  * @return void
  */
 function critere_where_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	if (isset($crit->param[0])) {
-		$_where = calculer_liste($crit->param[0], array(), $boucles, $boucle->id_parent);
-	} else {
-		$_where = '@$Pile[0]["where"]';
-	}
-
-	if ($crit->cond) {
-		$_where = "(($_where) ? ($_where) : '')";
-	}
-
-	if ($crit->not) {
-		$_where = "array('NOT',$_where)";
-	}
-
-	$boucle->where[] = $_where;
+    $boucle = &$boucles[$idb];
+    if (isset($crit->param[0])) {
+        $_where = calculer_liste($crit->param[0], array(), $boucles, $boucle->id_parent);
+    } else {
+        $_where = '@$Pile[0]["where"]';
+    }
+
+    if ($crit->cond) {
+        $_where = "(($_where) ? ($_where) : '')";
+    }
+
+    if ($crit->not) {
+        $_where = "array('NOT',$_where)";
+    }
+
+    $boucle->where[] = $_where;
 }
 
 /**
@@ -1603,26 +1603,26 @@ 
  * @return void
  */
 function critere_id__dist($idb, &$boucles, $crit) {
-	/** @var Boucle $boucle */
-	$boucle = $boucles[$idb];
-
-	$champs = lister_champs_selection_conditionnelle(
-		$boucle->show['table'],
-		$boucle->show,
-		$boucle->sql_serveur
-	);
-
-	$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_selection_conditionnelle(
+        $boucle->show['table'],
+        $boucle->show,
+        $boucle->sql_serveur
+    );
+
+    $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);
+    }
 }
 
 /**
@@ -1642,67 +1642,67 @@ 
  * @return array Liste de nom de champs (tel que id_article, id_mot, id_parent ...)
  */
 function lister_champs_selection_conditionnelle($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, array('objet')));
-		}
-	);
-
-	// 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_unique($champs);
-	$champs = pipeline(
-		'lister_champs_selection_conditionnelle',
-		array(
-			'args' => array(
-				'table' => $table,
-				'id_table_objet' => $primary,
-				'associable' => $associable,
-			),
-			'data' => $champs,
-		)
-	);
-	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, array('objet')));
+        }
+    );
+
+    // 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_unique($champs);
+    $champs = pipeline(
+        'lister_champs_selection_conditionnelle',
+        array(
+            'args' => array(
+                'table' => $table,
+                'id_table_objet' => $primary,
+                'associable' => $associable,
+            ),
+            'data' => $champs,
+        )
+    );
+    return $champs;
 }
 
 /**
@@ -1757,27 +1757,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(array($crit->param[0][0]), array(), $boucles, $boucle->id_parent);
-	$_sens_defaut = !isset($crit->param[1][0]) ? "1"
-		: calculer_liste(array($crit->param[1][0]), array(), $boucles, $boucle->id_parent);
-	$_variable = !isset($crit->param[2][0]) ? "'$idb'"
-		: calculer_liste(array($crit->param[2][0]), array(), $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(array($crit->param[0][0]), array(), $boucles, $boucle->id_parent);
+    $_sens_defaut = !isset($crit->param[1][0]) ? "1"
+        : calculer_liste(array($crit->param[1][0]), array(), $boucles, $boucle->id_parent);
+    $_variable = !isset($crit->param[2][0]) ? "'$idb'"
+        : calculer_liste(array($crit->param[2][0]), array(), $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){
@@ -1785,8 +1785,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
@@ -1803,20 +1803,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 (array('zbug_critere_inconnu', array('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 (array('zbug_critere_inconnu', array('critere' => $crit->op)));
+        #	}
+    } else {
+        calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r);
+    }
 }
 
 
@@ -1836,63 +1836,63 @@ 
  * @return void
  **/
 function calculer_critere_DEFAUT_args($idb, &$boucles, $crit, $args) {
-	list($arg, $op, $val, $col, $where_complement) = $args;
-
-	$where = array("'$op'", "'$arg'", $val[0]);
-
-	// inserer la negation (cf !...)
-
-	if ($crit->not) {
-		$where = array("'NOT'", $where);
-	}
-	if ($crit->exclus) {
-		if (!preg_match(",^L[0-9]+[.],", $arg)) {
-			$where = array("'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 = array(
-				"'NOT'",
-				array(
-					"'IN'",
-					"'" . $boucles[$idb]->id_table . "." . $boucles[$idb]->primary . "'",
-					array("'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 = array(
-				"'?'",
-				"(is_array($pred))",
-				critere_IN_cas($idb, $boucles, 'COND', $arg, $op, array($pred), $col),
-				$where
-			);
-		}
-		$where = array("'?'", "!(is_array($pred)?count($pred):strlen($pred))", "''", $where);
-		if ($where_complement) // condition annexe du type "AND (objet='article')"
-		{
-			$where_complement = array("'?'", "!(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 = array("'$op'", "'$arg'", $val[0]);
+
+    // inserer la negation (cf !...)
+
+    if ($crit->not) {
+        $where = array("'NOT'", $where);
+    }
+    if ($crit->exclus) {
+        if (!preg_match(",^L[0-9]+[.],", $arg)) {
+            $where = array("'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 = array(
+                "'NOT'",
+                array(
+                    "'IN'",
+                    "'" . $boucles[$idb]->id_table . "." . $boucles[$idb]->primary . "'",
+                    array("'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 = array(
+                "'?'",
+                "(is_array($pred))",
+                critere_IN_cas($idb, $boucles, 'COND', $arg, $op, array($pred), $col),
+                $where
+            );
+        }
+        $where = array("'?'", "!(is_array($pred)?count($pred):strlen($pred))", "''", $where);
+        if ($where_complement) // condition annexe du type "AND (objet='article')"
+        {
+            $where_complement = array("'?'", "!(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;
+    }
 }
 
 
@@ -1933,167 +1933,167 @@ 
  **/
 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, array('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, array($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;
-		}
-	}
-
-	// ajout pour le cas special d'une condition sur le champ statut:
-	// il faut alors interdire a la fonction de boucle
-	// de mettre ses propres criteres de statut
-	// http://www.spip.net/@statut (a documenter)
-	// garde pour compatibilite avec code des plugins anterieurs, mais redondant avec la ligne precedente
-	if ($col == 'statut') {
-		$boucles[$idb]->statut = 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 array($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, array('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, array($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;
+        }
+    }
+
+    // ajout pour le cas special d'une condition sur le champ statut:
+    // il faut alors interdire a la fonction de boucle
+    // de mettre ses propres criteres de statut
+    // http://www.spip.net/@statut (a documenter)
+    // garde pour compatibilite avec code des plugins anterieurs, mais redondant avec la ligne precedente
+    if ($col == 'statut') {
+        $boucles[$idb]->statut = 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 array($arg, $op, $val, $col_alias, $where_complement);
 }
 
 
@@ -2122,77 +2122,77 @@ 
  **/
 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[''] : array());
-
-		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 array($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[''] : array());
+
+        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 array($col, $col_alias, $table, $where, $desc);
 }
 
 
@@ -2213,10 +2213,10 @@ 
  *     - valeur
  **/
 function primary_doublee($decompose, $table) {
-	$e1 = reset($decompose);
-	$e2 = "sql_quote('" . end($decompose) . "')";
+    $e1 = reset($decompose);
+    $e2 = "sql_quote('" . end($decompose) . "')";
 
-	return array("'='", "'$table." . $e1 . "'", $e2);
+    return array("'='", "'$table." . $e1 . "'", $e2);
 }
 
 /**
@@ -2247,56 +2247,56 @@ 
  *     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, array($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, array($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, array($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, array($boucle->id_table, $desc), $arrivee, $cols, $cond, 1)) {
+                return $res;
+            }
+        }
+    }
+
+    return '';
 
 }
 
@@ -2323,29 +2323,29 @@ 
  *     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,
-		array(
-			array(
-				$boucle->id_table,
-				$intermediaire,
-				array(id_table_objet($desc['table_objet']), 'id_objet', 'objet', $desc['type'])
-			),
-			array(reset($intermediaire), $arrivee, $primary_arrivee)
-		), $cond, $desc, $boucle->id_table, array($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,
+        array(
+            array(
+                $boucle->id_table,
+                $intermediaire,
+                array(id_table_objet($desc['table_objet']), 'id_objet', 'objet', $desc['type'])
+            ),
+            array(reset($intermediaire), $arrivee, $primary_arrivee)
+        ), $cond, $desc, $boucle->id_table, array($col));
+
+    return $res;
 }
 
 
@@ -2362,17 +2362,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;
+    }
 }
 
 
@@ -2398,129 +2398,129 @@ 
  *     - 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 = array(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']";
-			} 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 = array(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 = array();
-		$desc = array('id_mere' => $idb);
-		$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, $desc, $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 array($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 = array(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']";
+            } 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 = array(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 = array();
+        $desc = array('id_mere' => $idb);
+        $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, $desc, $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 array($fct, $col, $op, $val, $args_sql);
 }
 
 // compatibilite ancienne version
 
 // http://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 = array();
-	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[] = array($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 = array();
+    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[] = array($t);
+            }
+        }
+    }
+
+    return $newp;
 }
 
 /**
@@ -2539,89 +2539,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("NOW()", $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 array($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("NOW()", $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 array($col, $col_vraie);
 }
 
 /**
@@ -2640,16 +2640,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";
 }
 
 /**
@@ -2667,18 +2667,18 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_source_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
+    $boucle = &$boucles[$idb];
 
-	$args = array();
-	foreach ($crit->param as &$param) {
-		array_push($args,
-			calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent));
-	}
+    $args = array();
+    foreach ($crit->param as &$param) {
+        array_push($args,
+            calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent));
+    }
 
-	$boucle->hash .= '
+    $boucle->hash .= '
 	$command[\'sourcemode\'] = ' . array_shift($args) . ";\n";
 
-	$boucle->hash .= '
+    $boucle->hash .= '
 	$command[\'source\'] = array(' . join(', ', $args) . ");\n";
 }
 
@@ -2695,8 +2695,8 @@ 
  * @param Critere $crit Paramètres du critère dans cette boucle
  */
 function critere_DATA_datasource_dist($idb, &$boucles, $crit) {
-	$boucle = &$boucles[$idb];
-	$boucle->hash .= '
+    $boucle = &$boucles[$idb];
+    $boucle->hash .= '
 	$command[\'source\'] = array(' . calculer_liste($crit->param[0], array(), $boucles, $boucles[$idb]->id_parent) . ');
 	$command[\'sourcemode\'] = ' . calculer_liste($crit->param[1], array(), $boucles, $boucles[$idb]->id_parent) . ';';
 }
@@ -2716,8 +2716,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], array(), $boucles, $boucles[$idb]->id_parent) . ';';
 }
 
@@ -2733,12 +2733,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, array(), $boucles, $boucles[$idb]->id_parent) . ';';
-	}
+    }
 }
 
 /**
@@ -2755,12 +2755,12 @@ 
  * @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, array(), $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, array(), $boucles,
+                $boucles[$idb]->id_parent) . ";\n";
+    }
 }
 
 /**
@@ -2785,12 +2785,12 @@ 
  * @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, array(), $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, array(), $boucles,
+                $boucles[$idb]->id_parent) . ";\n";
+    }
 }
 
 /**
@@ -2805,11 +2805,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, array(), $boucles, $boucles[$idb]->id_parent) . ';';
-	}
+    }
 }
 
 
@@ -2841,20 +2841,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, array(), $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, array(), $boucles, $boucles[$idb]->id_parent) . ";\n";
+        }
+        // interdire {si 0} aussi !
+    } else {
+        $boucle->hash .= '$command[\'si\'][] = 0;';
+    }
 }
 
 /**
@@ -2870,8 +2870,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], array(), $boucles, $boucles[$idb]->id_parent) . ');
 	$command[\'sourcemode\'] = \'table\';';
 }
@@ -2892,29 +2892,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 = array("'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'");
-	if ($not) {
-		$where = array("'NOT'", $where);
-	}
+    $in = "IN";
+    $where = array("'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'");
+    if ($not) {
+        $where = array("'NOT'", $where);
+    }
 
-	$boucle->where[] = $where;
+    $boucle->where[] = $where;
 }
 
 /**
@@ -2930,8 +2930,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;
 }

Spacing +177 added lines, -185 removed lines

@@ -46,10 +46,9 @@ 
 	$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';
+		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] : 'id_parent';
 
-	$c = array("'='", "'$boucle->id_table." . "$id_parent'", 0);
+	$c = array("'='", "'$boucle->id_table."."$id_parent'", 0);
 	$boucle->where[] = ($crit->not ? array("'NOT'", $c) : $c);
 }
 
@@ -72,10 +71,10 @@ 
 	$id = $boucle->primary;
 
 	if ($not or !$id) {
-		return (array('zbug_critere_inconnu', array('critere' => $not . $crit->op)));
+		return (array('zbug_critere_inconnu', array('critere' => $not.$crit->op)));
 	}
 	$arg = kwote(calculer_argument_precedent($idb, $id, $boucles));
-	$boucle->where[] = array("'!='", "'$boucle->id_table." . "$id'", $arg);
+	$boucle->where[] = array("'!='", "'$boucle->id_table."."$id'", $arg);
 }
 
 
@@ -106,12 +105,12 @@ 
 	$not = ($crit->not ? '' : 'NOT');
 
 	// le doublon s'applique sur un type de boucle (article)
-	$nom = "'" . $boucle->type_requete . "'";
+	$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], array(), $boucles, $boucles[$idb]->id_parent);
+		$nom .= ".".calculer_liste($crit->param[0], array(), $boucles, $boucles[$idb]->id_parent);
 	}
 
 	// code qui déclarera l'index du stockage de nos doublons (pour éviter une notice PHP)
@@ -123,13 +122,13 @@ 
 	// $doublons et son index, ici $nom
 
 	// debut du code "sql_in('articles.id_article', "
-	$debut_in = "sql_in('" . $boucle->id_table . '.' . $primary . "', ";
+	$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 . "[]= "));
+	$debut_doub = '$doublons['.(!$not ? '' : ($boucle->doublons."[]= "));
 
 	// le debut complet du code des doublons
-	$debut_doub = $debut_in . $debut_doub;
+	$debut_doub = $debut_in.$debut_doub;
 
 	// nom du doublon "('article' . 'nom')]"
 	$fin_doub = "($nom)]";
@@ -139,22 +138,22 @@ 
 	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));
+			$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);
+				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[] = array($debut_doub . $fin_doub . ", '" . $not . "')");
+	$boucle->where[] = array($debut_doub.$fin_doub.", '".$not."')");
 
 	// déclarer le doublon s'il n'existe pas encore
-	$boucle->hash .= $init_comment . $init_code;
+	$boucle->hash .= $init_comment.$init_code;
 
 
 	# la ligne suivante avait l'intention d'eviter une collecte deja faite
@@ -215,10 +214,10 @@ 
 	$un = $un[0]->texte;
 	$deux = $deux[0]->texte;
 	if ($deux) {
-		$boucles[$idb]->limit = 'intval($Pile[0]["debut' .
-			$un .
-			'"]) . ",' .
-			$deux .
+		$boucles[$idb]->limit = 'intval($Pile[0]["debut'.
+			$un.
+			'"]) . ",'.
+			$deux.
 			'"';
 	} else {
 		calculer_critere_DEFAUT_dist($idb, $boucles, $crit);
@@ -281,26 +280,26 @@ 
 		$type = calculer_liste(array($crit->param[1][0]), array(), $boucles, $boucle->id_parent);
 	}
 
-	$debut = ($type[0] !== "'") ? "'debut'.$type" : ("'debut" . substr($type, 1));
+	$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"
+		'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\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)';
+		. "\t".'$debut_boucle = intval($debut_boucle)';
 
 	$boucle->hash .= '
-	$command[\'pagination\'] = array((isset($Pile[0][' . $debut . ']) ? $Pile[0][' . $debut . '] : null), ' . $pas . ');';
+	$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;
+	$t = $boucle->id_table.'.'.$boucle->primary;
 	if ($boucle->primary
 		and !preg_match('/[,\s]/', $boucle->primary)
 		and !in_array($t, $boucle->select)
@@ -346,24 +345,24 @@ 
 	$boucle->hash .= '
 	// RECHERCHE'
 		. ($crit->cond ? '
-	if (!strlen(' . $quoi . ')){
+	if (!strlen(' . $quoi.')){
 		list($rech_select, $rech_where) = array("0 as points","");
-	} else' : '') . '
+	} else' : '').'
 	{
 		$prepare_recherche = charger_fonction(\'prepare_recherche\', \'inc\');
-		list($rech_select, $rech_where) = $prepare_recherche(' . $quoi . ', "' . $boucle->id_table . '", "' . $crit->cond . '","' . $boucle->sql_serveur . '",' . $_modificateur . ',"' . $boucle->primary . '");
+		list($rech_select, $rech_where) = $prepare_recherche(' . $quoi.', "'.$boucle->id_table.'", "'.$crit->cond.'","'.$boucle->sql_serveur.'",'.$_modificateur.',"'.$boucle->primary.'");
 	}
 	';
 
 
-	$t = $boucle->id_table . '.' . $boucle->primary;
+	$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'] = array("'" . $boucle->id_table . "'", "'id'", "'" . $boucle->primary . "'");
+		$boucle->join['resultats'] = array("'".$boucle->id_table."'", "'id'", "'".$boucle->primary."'");
 		$boucle->from['resultats'] = 'spip_resultats';
 	}
 	$boucle->select[] = '$rech_select';
@@ -430,7 +429,7 @@ 
 	$c =
 		array(
 			"'OR'",
-			array("'='", "'$table." . "id_trad'", "'$table.$prim'"),
+			array("'='", "'$table."."id_trad'", "'$table.$prim'"),
 			array("'='", "'$table.id_trad'", "'0'")
 		);
 	$boucle->where[] = ($crit->not ? array("'NOT'", $c) : $c);
@@ -453,16 +452,15 @@ 
 	$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;
+		$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[] = array("'='", "'$mparent'", $arg);
 
 	} // le cas FORUMS est gere dans le plugin forum, dans la fonction critere_FORUMS_meme_parent_dist()
 	else {
-		return (array('zbug_critere_inconnu', array('critere' => $crit->op . ' ' . $boucle->type_requete)));
+		return (array('zbug_critere_inconnu', array('critere' => $crit->op.' '.$boucle->type_requete)));
 	}
 }
 
@@ -515,16 +513,15 @@ 
 		if (count(trouver_champs_decomposes($champ, $desc)) > 1) {
 			$decompose = decompose_champ_id_objet($champ);
 			$champ = array_shift($decompose);
-			$boucle->where[] = array("'='", _q($cle . "." . reset($decompose)), '"' . sql_quote(end($decompose)) . '"');
+			$boucle->where[] = array("'='", _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'") . ')');
+	$c = "sql_in('$cle".".$champ', calcul_branche_in($arg)"
+		. ($not ? ", 'NOT'" : '').")";
+	$boucle->where[] = !$crit->cond ? $c : ("($arg ? $c : ".($not ? "'0=1'" : "'1=1'").')');
 }
 
 /**
@@ -543,9 +540,9 @@ 
 	$not = $crit->not;
 	$boucle = &$boucles[$idb];
 
-	$c = "sql_in('" .
-		$boucle->id_table . '.' . $boucle->primary
-		. "', lister_objets_avec_logos('" . $boucle->primary . "'), '')";
+	$c = "sql_in('".
+		$boucle->id_table.'.'.$boucle->primary
+		. "', lister_objets_avec_logos('".$boucle->primary."'), '')";
 
 	if ($crit->cond) {
 		$c = "($arg ? $c : 1)";
@@ -585,7 +582,7 @@ 
 				$t = table_objet_sql($r[1]);
 				$t = array_search($t, $boucles[$idb]->from);
 				if ($t) {
-					$t .= '.' . $r[2];
+					$t .= '.'.$r[2];
 				}
 			}
 		} else {
@@ -600,7 +597,7 @@ 
 			$boucles[$idb]->select[] = $t;
 		}
 	} else {
-		return (array('zbug_critere_inconnu', array('critere' => $crit->op . ' ?')));
+		return (array('zbug_critere_inconnu', array('critere' => $crit->op.' ?')));
 	}
 }
 
@@ -650,26 +647,26 @@ 
 				(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);
+				$boucle->order[$n - 1] = substr_replace($boucle->order[$n - 1], "' . ".$boucle->modificateur['collate']." . ' ", $i, 0);
 			} else {
-				$boucle->order[$n - 1] .= " . " . $boucle->modificateur['collate'];
+				$boucle->order[$n - 1] .= " . ".$boucle->modificateur['collate'];
 			}
 		}
 	} else {
-		return (array('zbug_critere_inconnu', array('critere' => $crit->op . " " . count($boucles[$idb]->order))));
+		return (array('zbug_critere_inconnu', array('critere' => $crit->op." ".count($boucles[$idb]->order))));
 	}
 }
 
 // http://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;
+	$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 . ");";
+		$boucles[$idb]->in .= "\n\tstatic $var = array(".$desc.");";
 	}
 	if ($desc) {
 		$alt = "(in_array(\$x, $var)  ? $alt :(\$x$suffix))";
@@ -744,7 +741,7 @@ 
 		$sens = " . ' DESC'";
 	}
 	if (isset($boucle->modificateur['collate'])) {
-		$collecte = ' . ' . $boucle->modificateur['collate'];
+		$collecte = ' . '.$boucle->modificateur['collate'];
 	}
 
 	// Pour chaque paramètre du critère
@@ -766,14 +763,14 @@ 
 			if (preg_match(",^(\w+)[\s]+(.*)$,", $par, $m)) {
 				$expression = trim($m[1]);
 				$champ = trim($m[2]);
-				if (function_exists($f = 'calculer_critere_par_expression_' . $expression)) {
+				if (function_exists($f = 'calculer_critere_par_expression_'.$expression)) {
 					$order = $f($idb, $boucles, $crit, $tri, $champ);
 				} else {
-					return array('zbug_critere_inconnu', array('critere' => $crit->op . " $par"));
+					return array('zbug_critere_inconnu', array('critere' => $crit->op." $par"));
 				}
 
 			// tris de la forme {par champ} ou {par FONCTION(champ)}
-			} elseif (preg_match(",^" . CHAMP_SQL_PLUS_FONC . '$,is', $par, $match)) {
+			} elseif (preg_match(",^".CHAMP_SQL_PLUS_FONC.'$,is', $par, $match)) {
 				// {par FONCTION(champ)}
 				if (count($match) > 2) {
 					$par = substr($match[2], 1, -1);
@@ -783,7 +780,7 @@ 
 				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'] . "'";
+					$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);
@@ -792,7 +789,7 @@ 
 
 			// on ne sait pas traiter…
 			else {
-				return array('zbug_critere_inconnu', array('critere' => $crit->op . " $par"));
+				return array('zbug_critere_inconnu', array('critere' => $crit->op." $par"));
 			}
 
 			// En cas d'erreur de squelette retournée par une fonction
@@ -812,14 +809,14 @@ 
 
 		if ($fct) {
 			if (preg_match("/^\s*'(.*)'\s*$/", $order, $r)) {
-				$order = "'$fct(" . $r[1] . ")'";
+				$order = "'$fct(".$r[1].")'";
 			} else {
 				$order = "'$fct(' . $order . ')'";
 			}
 		}
-		$t = $order . $collecte . $sens;
+		$t = $order.$collecte.$sens;
 		if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
-			$t = $r[1] . $r[2];
+			$t = $r[1].$r[2];
 		}
 
 		$boucle->order[] = $t;
@@ -869,16 +866,16 @@ 
 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 array('zbug_critere_inconnu', array('critere' => $crit->op . " num $champ"));
+		return array('zbug_critere_inconnu', array('critere' => $crit->op." num $champ"));
 	}
 	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
+	$texte = '0+'.$_champ;
 	$suite = calculer_liste($tri, array(), $boucles, $boucle->id_parent);
 	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . " . \"";
+		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')"." . \"";
 	}
-	$as = 'num' . ($boucle->order ? count($boucle->order) : "");
-	$boucle->select[] = $texte . " AS $as";
+	$as = 'num'.($boucle->order ? count($boucle->order) : "");
+	$boucle->select[] = $texte." AS $as";
 	$order = "'$as'";
 	return $order;
 }
@@ -903,16 +900,16 @@ 
 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 array('zbug_critere_inconnu', array('critere' => $crit->op . " sinum $champ"));
+		return array('zbug_critere_inconnu', array('critere' => $crit->op." sinum $champ"));
 	}
 	$boucle = &$boucles[$idb];
-	$texte = '0+' . $_champ;
+	$texte = '0+'.$_champ;
 	$suite = calculer_liste($tri, array(), $boucles, $boucle->id_parent);
 	if ($suite !== "''") {
-		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')" . " . \"";
+		$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')"." . \"";
 	}
-	$as = 'sinum' . ($boucle->order ? count($boucle->order) : "");
-	$boucle->select[] = 'CASE (' . $texte . ') WHEN 0 THEN 1 ELSE 0 END AS ' . $as;
+	$as = 'sinum'.($boucle->order ? count($boucle->order) : "");
+	$boucle->select[] = 'CASE ('.$texte.') WHEN 0 THEN 1 ELSE 0 END AS '.$as;
 	$order = "'$as'";
 	return $order;
 }
@@ -936,10 +933,10 @@ 
 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 array('zbug_critere_inconnu', array('critere' => $crit->op . " multi $champ"));
+		return array('zbug_critere_inconnu', array('critere' => $crit->op." multi $champ"));
 	}
 	$boucle = &$boucles[$idb];
-	$boucle->select[] = "\".sql_multi('" . $_champ . "', \$GLOBALS['spip_lang']).\"";
+	$boucle->select[] = "\".sql_multi('".$_champ."', \$GLOBALS['spip_lang']).\"";
 	$order = "'multi'";
 	return $order;
 }
@@ -959,13 +956,13 @@ 
  * @param bool $raw Retourne le champ pour le compilateur ("'alias.champ'") ou brut ('alias.champ')
  * @return array|string
  */
-function calculer_critere_par_champ($idb, &$boucles, $crit,  $par, $raw = false) {
+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;
+		$par = $boucle->id_table.".".$par;
 	}
 	// le champ est peut être une jointure
 	else {
@@ -986,24 +983,24 @@ 
 		// 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;
+			$par = $infos['alias'].".".$champ;
 		} elseif (
 			$boucle->jointures_explicites
 			and $alias = trouver_jointure_champ($champ, $boucle, explode(' ', $boucle->jointures_explicites), false, $table)
 		) {
-			$par = $alias . "." . $champ;
+			$par = $alias.".".$champ;
 		} elseif ($alias = trouver_jointure_champ($champ, $boucle, $boucle->jointures, false, $table)) {
-			$par = $alias . "." . $champ;
+			$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;
+			$par = $infos['alias'].".".$champ;
 		} elseif ($table) {
 			// On avait table + champ, mais on ne les a pas trouvés
-			return array('zbug_critere_inconnu', array('critere' => $crit->op . " $par"));
+			return array('zbug_critere_inconnu', array('critere' => $crit->op." $par"));
 		} else {
 			// Sinon tant pis, ca doit etre un champ synthetise (cf points)
 		}
@@ -1027,7 +1024,7 @@ 
 	if (!$t) {
 		$t = trouver_jointure_champ($champ, $boucle);
 	}
-	return !$t ? '' : ("'" . $t . '.' . $champ . "'");
+	return !$t ? '' : ("'".$t.'.'.$champ."'");
 }
 
 /**
@@ -1072,9 +1069,9 @@ 
 				$boucle->default_order[] = ' DESC';
 			}
 		} else {
-			$t = $boucle->order[$n - 1] . " . $order";
+			$t = $boucle->order[$n - 1]." . $order";
 			if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
-				$t = $r[1] . $r[2];
+				$t = $r[1].$r[2];
 			}
 			$boucle->order[$n - 1] = $t;
 		}
@@ -1086,7 +1083,7 @@ 
 	$params = $crit->param;
 
 	if (count($params) < 1) {
-		return array('zbug_critere_inconnu', array('critere' => $crit->op . " ?"));
+		return array('zbug_critere_inconnu', array('critere' => $crit->op." ?"));
 	}
 
 	$boucle = &$boucles[$idb];
@@ -1107,7 +1104,7 @@ 
 	if ((count($date) == 1) and ($date[0]->type == 'texte')) {
 		$date = $date[0]->texte;
 		if (!isset($fields[$date])) {
-			return array('zbug_critere_inconnu', array('critere' => $crit->op . " " . $date));
+			return array('zbug_critere_inconnu', array('critere' => $crit->op." ".$date));
 		}
 	} else {
 		$a = calculer_liste($date, array(), $boucles, $parent);
@@ -1119,38 +1116,38 @@ 
 		$date = "'.(($cond)\n?\$a:\"$defaut\").'";
 	}
 	$annee = $params ? array_shift($params) : "";
-	$annee = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee, array(), $boucles, $parent) .
+	$annee = "\n".'sprintf("%04d", ($x = '.
+		calculer_liste($annee, array(), $boucles, $parent).
 		') ? $x : date("Y"))';
 
 	$mois = $params ? array_shift($params) : "";
-	$mois = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois, array(), $boucles, $parent) .
+	$mois = "\n".'sprintf("%02d", ($x = '.
+		calculer_liste($mois, array(), $boucles, $parent).
 		') ? $x : date("m"))';
 
 	$jour = $params ? array_shift($params) : "";
-	$jour = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour, array(), $boucles, $parent) .
+	$jour = "\n".'sprintf("%02d", ($x = '.
+		calculer_liste($jour, array(), $boucles, $parent).
 		') ? $x : date("d"))';
 
 	$annee2 = $params ? array_shift($params) : "";
-	$annee2 = "\n" . 'sprintf("%04d", ($x = ' .
-		calculer_liste($annee2, array(), $boucles, $parent) .
+	$annee2 = "\n".'sprintf("%04d", ($x = '.
+		calculer_liste($annee2, array(), $boucles, $parent).
 		') ? $x : date("Y"))';
 
 	$mois2 = $params ? array_shift($params) : "";
-	$mois2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($mois2, array(), $boucles, $parent) .
+	$mois2 = "\n".'sprintf("%02d", ($x = '.
+		calculer_liste($mois2, array(), $boucles, $parent).
 		') ? $x : date("m"))';
 
 	$jour2 = $params ? array_shift($params) : "";
-	$jour2 = "\n" . 'sprintf("%02d", ($x = ' .
-		calculer_liste($jour2, array(), $boucles, $parent) .
+	$jour2 = "\n".'sprintf("%02d", ($x = '.
+		calculer_liste($jour2, array(), $boucles, $parent).
 		') ? $x : date("d"))';
 
-	$date = $boucle->id_table . ".$date";
+	$date = $boucle->id_table.".$date";
 
-	$quote_end = ",'" . $boucle->sql_serveur . "','text'";
+	$quote_end = ",'".$boucle->sql_serveur."','text'";
 	if ($type == 'jour') {
 		$boucle->where[] = array(
 			"'='",
@@ -1222,14 +1219,13 @@ 
 	list($a21, $a22) = calculer_critere_parties_aux($idb, $boucles, $a2);
 
 	if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) {
-		$boucle->limit = $a11 . ',' . $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') ? '-' : '+'));
+		$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 =
@@ -1275,8 +1271,7 @@ 
 	// {1/3}
 	if ($op1 == '/') {
 		$pmoins1 = is_numeric($debut) ? ($debut - 1) : "($debut-1)";
-		$totpos = is_numeric($total_parties) ? ($total_parties) :
-			"($total_parties ? $total_parties : 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 {
@@ -1287,15 +1282,13 @@ 
 
 		// cas {x,n-1}
 		if ($op2 == '-') {
-			$fin = '$debut_boucle + ' . $nombre_boucle . ' - '
-				. (is_numeric($total_parties) ? ($total_parties + 1) :
-					($total_parties . ' - 1'));
+			$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'));
+					(($total_parties == 1) ? "" : (' + '.($total_parties - 1))) : ('+'.$total_parties.' - 1'));
 		}
 
 		// {pagination}, gerer le debut_xx=-1 pour tout voir
@@ -1313,11 +1306,11 @@ 
 	// Utiliser min pour rabattre $fin_boucle sur total_boucle.
 
 	$boucles[$id_boucle]->mode_partie = "\n\t"
-		. '$debut_boucle = ' . $debut . ";\n	"
+		. '$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);'
+		. '$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'))"
@@ -1402,16 +1395,16 @@ 
 		// 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"))
+				((!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"))
+			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;
@@ -1444,9 +1437,9 @@ 
  */
 function kwote($lisp, $serveur = '', $type = '') {
 	if (preg_match(_CODE_QUOTE, $lisp, $r)) {
-		return $r[1] . "\"" . sql_quote(str_replace(array("\\'", "\\\\"), array("'", "\\"), $r[2]), $serveur, $type) . "\"";
+		return $r[1]."\"".sql_quote(str_replace(array("\\'", "\\\\"), array("'", "\\"), $r[2]), $serveur, $type)."\"";
 	} else {
-		return "sql_quote($lisp, '$serveur', '" . str_replace("'", "\\'", $type) . "')";
+		return "sql_quote($lisp, '$serveur', '".str_replace("'", "\\'", $type)."')";
 	}
 }
 
@@ -1468,7 +1461,7 @@ 
 function critere_IN_dist($idb, &$boucles, $crit) {
 	$r = calculer_critere_infixe($idb, $boucles, $crit);
 	if (!$r) {
-		return (array('zbug_critere_inconnu', array('critere' => $crit->op . " ?")));
+		return (array('zbug_critere_inconnu', array('critere' => $crit->op." ?")));
 	}
 	list($arg, $op, $val, $col, $where_complement) = $r;
 
@@ -1495,8 +1488,8 @@ 
 				"'NOT'",
 				array(
 					"'IN'",
-					"'" . $boucles[$idb]->id_table . "." . $boucles[$idb]->primary . "'",
-					array("'SELF'", "'" . $boucles[$idb]->id_table . "." . $boucles[$idb]->primary . "'", $where)
+					"'".$boucles[$idb]->id_table.".".$boucles[$idb]->primary."'",
+					array("'SELF'", "'".$boucles[$idb]->id_table.".".$boucles[$idb]->primary."'", $where)
 				)
 			);
 		}
@@ -1515,22 +1508,22 @@ 
 	$descr = $boucles[$idb]->descr;
 	$cpt = &$num[$descr['nom']][$descr['gram']][$idb];
 
-	$var = '$in' . $cpt++;
+	$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];";
+				$x .= "\n\t$var"."[]= $r[2];";
 			} else {
-				$x .= "\n\t$var" . "[]= " . sql_quote($r[2]) . ";";
+				$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);";
+			$x .= "\n\tif (!(is_array(\$a = ($v))))\n\t\t$var"."[]= \$a;\n\telse $var = array_merge($var, \$a);";
 		}
 	}
 
@@ -1544,7 +1537,7 @@ 
 		$boucles[$idb]->default_order[] = "((!sql_quote($var) OR sql_quote($var)===\"''\") ? 0 : ('FIELD($arg,' . sql_quote($var) . ')'))";
 	}
 
-	return "sql_in('$arg',sql_quote($var)" . ($crit2 == 'NOT' ? ",'NOT'" : "") . ")";
+	return "sql_in('$arg',sql_quote($var)".($crit2 == 'NOT' ? ",'NOT'" : "").")";
 }
 
 /**
@@ -1612,7 +1605,7 @@ 
 		$boucle->sql_serveur
 	);
 
-	$boucle->debug[] = "id_ : " . implode(', ', $champs);
+	$boucle->debug[] = "id_ : ".implode(', ', $champs);
 	$boucle->modificateur['id_'] = $champs;
 
 	// créer un critère {id_xxx?} de chaque champ retenu
@@ -1653,7 +1646,7 @@ 
 	// Les champs id_xx de la table demandée
 	$champs = array_filter(
 		array_keys($desc['field']),
-		function($champ){
+		function($champ) {
 			return
 				strpos($champ, 'id_') === 0
 				or (in_array($champ, array('objet')));
@@ -1856,8 +1849,8 @@ 
 				"'NOT'",
 				array(
 					"'IN'",
-					"'" . $boucles[$idb]->id_table . "." . $boucles[$idb]->primary . "'",
-					array("'SELF'", "'" . $boucles[$idb]->id_table . "." . $boucles[$idb]->primary . "'", $where)
+					"'".$boucles[$idb]->id_table.".".$boucles[$idb]->primary."'",
+					array("'SELF'", "'".$boucles[$idb]->id_table.".".$boucles[$idb]->primary."'", $where)
 				)
 			);
 		}
@@ -1868,7 +1861,7 @@ 
 	if ($crit->cond) {
 		$pred = calculer_argument_precedent($idb, $col, $boucles);
 		if ($col == "date" or $col == "date_redac") {
-			if ($pred == "\$Pile[0]['" . $col . "']") {
+			if ($pred == "\$Pile[0]['".$col."']") {
 				$pred = "(\$Pile[0]['{$col}_default']?'':$pred)";
 			}
 		}
@@ -2029,7 +2022,7 @@ 
 		// 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) . '"';
+			$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)
@@ -2040,22 +2033,22 @@ 
 		// 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],", '"))
+			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) . "'";
+				. ",'".addslashes($type_cast_quote)."'";
 			$val[0] = "sql_quote($r)";
 		}
-		elseif(strpos($val[0], '@@defaultcast@@') !== false
+		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) . "')";
+			$val[0] = substr($val[0], 0, -strlen($r[0]))."'".addslashes($type_cast_quote)."')";
 		}
 	}
 
-	if(strpos($val[0], '@@defaultcast@@') !== false
+	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')";
+		$val[0] = substr($val[0], 0, -strlen($r[0]))."'char')";
 	}
 
 	// Indicateur pour permettre aux fonctionx boucle_X de modifier
@@ -2080,7 +2073,7 @@ 
 	// inserer le nom de la table SQL devant le nom du champ
 	if ($table) {
 		if ($col[0] == "`") {
-			$arg = "$table." . substr($col, 1, -1);
+			$arg = "$table.".substr($col, 1, -1);
 		} else {
 			$arg = "$table.$col";
 		}
@@ -2214,9 +2207,9 @@ 
  **/
 function primary_doublee($decompose, $table) {
 	$e1 = reset($decompose);
-	$e2 = "sql_quote('" . end($decompose) . "')";
+	$e2 = "sql_quote('".end($decompose)."')";
 
-	return array("'='", "'$table." . $e1 . "'", $e2);
+	return array("'='", "'$table.".$e1."'", $e2);
 }
 
 /**
@@ -2254,7 +2247,7 @@ 
 	if ($checkarrivee
 		and is_string($checkarrivee)
 		and $a = table_objet($checkarrivee)
-		and in_array($a . '_liens', $joints)
+		and in_array($a.'_liens', $joints)
 	) {
 		if ($res = calculer_lien_externe_init($boucle, $joints, $col, $desc, $cond, $checkarrivee)) {
 			return $res;
@@ -2274,12 +2267,12 @@ 
 				// 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/';
+					$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,/";
+						$c = "/FIELD.$t".".$col,/";
 						if (trouver_champ($c, $boucle->select)) {
 							$joindre = true;
 						}
@@ -2326,7 +2319,7 @@ 
 	$primary_arrivee = id_table_objet($checkarrivee);
 
 	// [FIXME] $checkarrivee peut-il arriver avec false ????
-	$intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee . "_liens");
+	$intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee."_liens");
 	$arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
 
 	if (!$intermediaire or !$arrivee) {
@@ -2424,7 +2417,7 @@ 
 			} 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 . "'])";
+				$defaut = "(\$Pile[0]['{$col}_default']?'':\$Pile[0]['".$col."'])";
 			}
 
 			$val = calculer_argument_precedent($idb, $val, $boucles, $defaut);
@@ -2456,7 +2449,7 @@ 
 			and (($p == "'") or ($p == '"'))
 			and $params[0][1]->type == 'champ'
 		) {
-			$val[] = "$p\\$p#" . $params[0][1]->nom_champ . "\\$p$p";
+			$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, $desc, $boucles, $parent);
@@ -2472,7 +2465,7 @@ 
 	$fct = $args_sql = '';
 	// fonction SQL ?
 	// chercher FONCTION(champ) tel que CONCAT(titre,descriptif)
-	if (preg_match('/^(.*)' . SQL_ARGS . '$/', $col, $m)) {
+	if (preg_match('/^(.*)'.SQL_ARGS.'$/', $col, $m)) {
 		$fct = $m[1];
 		preg_match('/^\(([^,]*)(.*)\)$/', $m[2], $a);
 		$col = $a[1];
@@ -2562,7 +2555,7 @@ 
 		# si oui choisir ce champ, sinon choisir xxxx
 
 		if (isset($table['field']["date$suite"])) {
-			$date_orig = 'date' . $suite;
+			$date_orig = 'date'.$suite;
 		} else {
 			$date_orig = substr($suite, 1);
 		}
@@ -2573,12 +2566,12 @@ 
 		}
 	}
 
-	$date_compare = "\"' . normaliser_date(" .
-		calculer_argument_precedent($idb, $pred, $boucles) .
+	$date_compare = "\"' . normaliser_date(".
+		calculer_argument_precedent($idb, $pred, $boucles).
 		") . '\"";
 
 	$col_vraie = $date_orig;
-	$date_orig = $boucle->id_table . '.' . $date_orig;
+	$date_orig = $boucle->id_table.'.'.$date_orig;
 
 	switch ($col) {
 		case 'date':
@@ -2598,26 +2591,26 @@ 
 			break;
 		case 'age':
 			$col = calculer_param_date("NOW()", $date_orig);
-			$col_vraie = "";// comparer a un int (par defaut)
+			$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)
+			$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)
+			$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)
+			$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)
+			$col = "YEAR(".$date_compare.")-YEAR(".
+				$date_orig.")";
+			$col_vraie = ""; // comparer a un int (par defaut)
 			break;
 	}
 
@@ -2676,10 +2669,10 @@ 
 	}
 
 	$boucle->hash .= '
-	$command[\'sourcemode\'] = ' . array_shift($args) . ";\n";
+	$command[\'sourcemode\'] = ' . array_shift($args).";\n";
 
 	$boucle->hash .= '
-	$command[\'source\'] = array(' . join(', ', $args) . ");\n";
+	$command[\'source\'] = array(' . join(', ', $args).");\n";
 }
 
 
@@ -2697,8 +2690,8 @@ 
 function critere_DATA_datasource_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$boucle->hash .= '
-	$command[\'source\'] = array(' . calculer_liste($crit->param[0], array(), $boucles, $boucles[$idb]->id_parent) . ');
-	$command[\'sourcemode\'] = ' . calculer_liste($crit->param[1], array(), $boucles, $boucles[$idb]->id_parent) . ';';
+	$command[\'source\'] = array(' . calculer_liste($crit->param[0], array(), $boucles, $boucles[$idb]->id_parent).');
+	$command[\'sourcemode\'] = ' . calculer_liste($crit->param[1], array(), $boucles, $boucles[$idb]->id_parent).';';
 }
 
 
@@ -2718,7 +2711,7 @@ 
 function critere_DATA_datacache_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$boucle->hash .= '
-	$command[\'datacache\'] = ' . calculer_liste($crit->param[0], array(), $boucles, $boucles[$idb]->id_parent) . ';';
+	$command[\'datacache\'] = ' . calculer_liste($crit->param[0], array(), $boucles, $boucles[$idb]->id_parent).';';
 }
 
 
@@ -2737,7 +2730,7 @@ 
 	$boucle->hash .= '$command[\'args\']=array();';
 	foreach ($crit->param as $param) {
 		$boucle->hash .= '
-			$command[\'args\'][] = ' . calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent) . ';';
+			$command[\'args\'][] = ' . calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent).';';
 	}
 }
 
@@ -2756,10 +2749,10 @@ 
  */
 function critere_DATA_liste_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
-	$boucle->hash .= "\n\t" . '$command[\'liste\'] = array();' . "\n";
+	$boucle->hash .= "\n\t".'$command[\'liste\'] = array();'."\n";
 	foreach ($crit->param as $param) {
-		$boucle->hash .= "\t" . '$command[\'liste\'][] = ' . calculer_liste($param, array(), $boucles,
-				$boucles[$idb]->id_parent) . ";\n";
+		$boucle->hash .= "\t".'$command[\'liste\'][] = '.calculer_liste($param, array(), $boucles,
+				$boucles[$idb]->id_parent).";\n";
 	}
 }
 
@@ -2786,10 +2779,10 @@ 
  */
 function critere_DATA_enum_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
-	$boucle->hash .= "\n\t" . '$command[\'enum\'] = array();' . "\n";
+	$boucle->hash .= "\n\t".'$command[\'enum\'] = array();'."\n";
 	foreach ($crit->param as $param) {
-		$boucle->hash .= "\t" . '$command[\'enum\'][] = ' . calculer_liste($param, array(), $boucles,
-				$boucles[$idb]->id_parent) . ";\n";
+		$boucle->hash .= "\t".'$command[\'enum\'][] = '.calculer_liste($param, array(), $boucles,
+				$boucles[$idb]->id_parent).";\n";
 	}
 }
 
@@ -2808,7 +2801,7 @@ 
 	$boucle = &$boucles[$idb];
 	foreach ($crit->param as $param) {
 		$boucle->hash .= '
-			$command[\'datapath\'][] = ' . calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent) . ';';
+			$command[\'datapath\'][] = ' . calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent).';';
 	}
 }
 
@@ -2849,7 +2842,7 @@ 
 	if ($crit->param) {
 		foreach ($crit->param as $param) {
 			$boucle->hash .= "\t\$command['si'][] = "
-				. calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent) . ";\n";
+				. calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent).";\n";
 		}
 		// interdire {si 0} aussi !
 	} else {
@@ -2872,7 +2865,7 @@ 
 function critere_POUR_tableau_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$boucle->hash .= '
-	$command[\'source\'] = array(' . calculer_liste($crit->param[0], array(), $boucles, $boucles[$idb]->id_parent) . ');
+	$command[\'source\'] = array(' . calculer_liste($crit->param[0], array(), $boucles, $boucles[$idb]->id_parent).');
 	$command[\'sourcemode\'] = \'table\';';
 }
 
@@ -2905,11 +2898,10 @@ 
 	$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';
+		$GLOBALS['exceptions_des_tables'][$boucle->id_table]['id_parent'] : 'id_parent';
 
 	$in = "IN";
-	$where = array("'IN'", "'$boucle->id_table." . "$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'");
+	$where = array("'IN'", "'$boucle->id_table."."$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'");
 	if ($not) {
 		$where = array("'NOT'", $where);
 	}

ecrire/public/interfaces.php

Indentation +889 added lines, -889 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 = array();
-
-	/**
-	 * 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 = array();
+
+    /**
+     * 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 = array();
+    /**
+     * 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 = array();
 }
 
 
@@ -189,369 +189,369 @@ 
  * @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 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 = '';
-
-	/**
-	 * 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 = array();
-
-	/**
-	 * Critères de la boucle
-	 *
-	 * @var Critere[]
-	 */
-	public $criteres = array();
-
-	/**
-	 * Textes insérés entre 2 éléments de boucle (critère inter)
-	 *
-	 * @var string[]
-	 */
-	public $separateur = array();
-
-	/**
-	 * 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 = array();
-
-	/**
-	 * 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 = array();
-
-	/**
-	 * 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 = array();
-
-	/**
-	 * 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 = array();
-
-	/**
-	 * 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 = array();
-
-	public $join = array();
-	public $having = array();
-	public $limit;
-	public $group = array();
-	public $order = array();
-	public $default_order = array();
-	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 = '';
-
-	/**
-	 * Indique la présence d'un critère sur le statut
-	 *
-	 * @deprecated Remplacé par $boucle->modificateur['criteres']['statut']
-	 * @var bool
-	 */
-	public $statut = false;
-
-	// 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 = array();
-
-	/**
-	 * 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 = array();
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 *
-	 * @var int
-	 */
-	public $ligne = 0;
-
-
-	public $modificateur = array(); // 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 = [];
-
-	// 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 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 = '';
+
+    /**
+     * 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 = array();
+
+    /**
+     * Critères de la boucle
+     *
+     * @var Critere[]
+     */
+    public $criteres = array();
+
+    /**
+     * Textes insérés entre 2 éléments de boucle (critère inter)
+     *
+     * @var string[]
+     */
+    public $separateur = array();
+
+    /**
+     * 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 = array();
+
+    /**
+     * 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 = array();
+
+    /**
+     * 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 = array();
+
+    /**
+     * 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 = array();
+
+    /**
+     * 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 = array();
+
+    public $join = array();
+    public $having = array();
+    public $limit;
+    public $group = array();
+    public $order = array();
+    public $default_order = array();
+    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 = '';
+
+    /**
+     * Indique la présence d'un critère sur le statut
+     *
+     * @deprecated Remplacé par $boucle->modificateur['criteres']['statut']
+     * @var bool
+     */
+    public $statut = false;
+
+    // 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 = array();
+
+    /**
+     * 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 = array();
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
+
+
+    public $modificateur = array(); // 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 = [];
+
+    // obsoletes, conserves provisoirement pour compatibilite
+    public $tout = false;
+    public $plat = false;
+    public $lien = false;
 }
 
 /**
@@ -562,56 +562,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 = array();
-
-	/**
-	 * 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 = array();
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
 }
 
 /**
@@ -620,139 +620,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 = array();
-
-	/**
-	 * Source des filtres  (compatibilité) (?)
-	 *
-	 * @var array|null
-	 */
-	public $fonctions = array();
-
-	/**
-	 * 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 = array();
-
-	/**
-	 * 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 = array();
+
+    /**
+     * Source des filtres  (compatibilité) (?)
+     *
+     * @var array|null
+     */
+    public $fonctions = array();
+
+    /**
+     * 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 = array();
+
+    /**
+     * 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;
 }
 
 
@@ -760,123 +760,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 = array();
-
-	/**
-	 * Filtres à appliquer au résultat
-	 *
-	 * @var array
-	 */
-	public $param = array();
-
-	/**
-	 * Source des filtres  (compatibilité) (?)
-	 *
-	 * @var array|null
-	 */
-	public $fonctions = array();
-
-	/**
-	 * 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 = array();
-
-	/**
-	 * 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 = array();
+
+    /**
+     * Filtres à appliquer au résultat
+     *
+     * @var array
+     */
+    public $param = array();
+
+    /**
+     * Source des filtres  (compatibilité) (?)
+     *
+     * @var array|null
+     */
+    public $fonctions = array();
+
+    /**
+     * 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 = array();
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
 }
 
 /**
@@ -885,28 +885,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 = array();
-
-	/**
-	 * 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 = array();
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     *
+     * @var int
+     */
+    public $ligne = 0;
 }
 
 
@@ -931,80 +931,80 @@ 
  */
 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'] = array();
-
-	//
-	// tableau des tables de jointures
-	// Ex: gestion du critere {id_mot} dans la boucle(ARTICLES)
-	$GLOBALS['tables_jointures'] = array();
-	$GLOBALS['tables_jointures']['spip_jobs'][] = 'jobs_liens';
-
-	// $GLOBALS['exceptions_des_jointures']['titre_mot'] = array('spip_mots', 'titre'); // pour exemple
-	$GLOBALS['exceptions_des_jointures']['profondeur'] = array('spip_rubriques', 'profondeur');
-
-	define('_TRAITEMENT_TYPO', 'typo(%s, "TYPO", $connect, $Pile[0])');
-	define('_TRAITEMENT_RACCOURCIS', 'propre(%s, $connect, $Pile[0])');
-	define('_TRAITEMENT_TYPO_SANS_NUMERO', 'supprimer_numero(typo(%s), "TYPO", $connect, $Pile[0])');
-
-	$GLOBALS['table_des_traitements']['BIO'][] = _TRAITEMENT_RACCOURCIS;
-	$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',
-		array(
-			'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'] = array();
+
+    //
+    // tableau des tables de jointures
+    // Ex: gestion du critere {id_mot} dans la boucle(ARTICLES)
+    $GLOBALS['tables_jointures'] = array();
+    $GLOBALS['tables_jointures']['spip_jobs'][] = 'jobs_liens';
+
+    // $GLOBALS['exceptions_des_jointures']['titre_mot'] = array('spip_mots', 'titre'); // pour exemple
+    $GLOBALS['exceptions_des_jointures']['profondeur'] = array('spip_rubriques', 'profondeur');
+
+    define('_TRAITEMENT_TYPO', 'typo(%s, "TYPO", $connect, $Pile[0])');
+    define('_TRAITEMENT_RACCOURCIS', 'propre(%s, $connect, $Pile[0])');
+    define('_TRAITEMENT_TYPO_SANS_NUMERO', 'supprimer_numero(typo(%s), "TYPO", $connect, $Pile[0])');
+
+    $GLOBALS['table_des_traitements']['BIO'][] = _TRAITEMENT_RACCOURCIS;
+    $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',
+        array(
+            '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/compiler.php

Indentation +1119 added lines, -1119 removed lines

@@ -18,7 +18,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /** Repérer un code ne calculant rien, meme avec commentaire */
@@ -60,91 +60,91 @@ 
 
 // http://code.spip.net/@argumenter_inclure
 function argumenter_inclure(
-	$params,
-	$rejet_filtres,
-	$p,
-	&$boucles,
-	$id_boucle,
-	$echap = true,
-	$lang = '',
-	$fond1 = false
+    $params,
+    $rejet_filtres,
+    $p,
+    &$boucles,
+    $id_boucle,
+    $echap = true,
+    $lang = '',
+    $fond1 = false
 ) {
-	$l = array();
-	$erreur_p_i_i = '';
-	if (!is_array($params)) {
-		return $l;
-	}
-	foreach ($params as $k => $couple) {
-		// la liste d'arguments d'inclusion peut se terminer par un filtre
-		$filtre = array_shift($couple);
-		if ($filtre) {
-			break;
-		}
-		foreach ($couple as $n => $val) {
-			$var = $val[0];
-			if ($var->type != 'texte') {
-				if ($n or $k or $fond1) {
-					$erreur_p_i_i = array(
-						'zbug_parametres_inclus_incorrects',
-						array('param' => $var->nom_champ)
-					);
-					erreur_squelette($erreur_p_i_i, $p);
-					break;
-				} else {
-					$l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle);
-				}
-			} else {
-				preg_match(",^([^=]*)(=?)(.*)$,m", $var->texte, $m);
-				$m = array_pad($m, 3, null);
-				$var = $m[1];
-				$auto = false;;
-				if ($m[2]) {
-					$v = $m[3];
-					if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) {
-						$v = $m[1];
-					}
-					$val[0] = new Texte;
-					$val[0]->texte = $v;
-				} elseif ($k or $n or $fond1) {
-					$auto = true;
-				} else {
-					$var = 1;
-				}
-
-				if ($var == 'lang') {
-					$lang = !$auto
-						? calculer_liste($val, $p->descr, $boucles, $id_boucle)
-						: '$GLOBALS["spip_lang"]';
-				} else {
-					$val = $auto
-						? index_pile($id_boucle, $var, $boucles)
-						: calculer_liste($val, $p->descr, $boucles, $id_boucle);
-					if ($var !== 1) {
-						$val = ($echap ? "\'$var\' => ' . argumenter_squelette(" : "'$var' => ")
-							. $val . ($echap ? ") . '" : " ");
-					} else {
-						$val = $echap ? "'.$val.'" : $val;
-					}
-					$l[$var] = $val;
-				}
-			}
-		}
-	}
-	if ($erreur_p_i_i) {
-		return false;
-	}
-	// Cas particulier de la langue : si {lang=xx} est definie, on
-	// la passe, sinon on passe la langue courante au moment du calcul
-	// sauf si on n'en veut pas 
-	if ($lang === false) {
-		return $l;
-	}
-	if (!$lang) {
-		$lang = '$GLOBALS["spip_lang"]';
-	}
-	$l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ") . $lang . ($echap ? ") . '" : " ");
-
-	return $l;
+    $l = array();
+    $erreur_p_i_i = '';
+    if (!is_array($params)) {
+        return $l;
+    }
+    foreach ($params as $k => $couple) {
+        // la liste d'arguments d'inclusion peut se terminer par un filtre
+        $filtre = array_shift($couple);
+        if ($filtre) {
+            break;
+        }
+        foreach ($couple as $n => $val) {
+            $var = $val[0];
+            if ($var->type != 'texte') {
+                if ($n or $k or $fond1) {
+                    $erreur_p_i_i = array(
+                        'zbug_parametres_inclus_incorrects',
+                        array('param' => $var->nom_champ)
+                    );
+                    erreur_squelette($erreur_p_i_i, $p);
+                    break;
+                } else {
+                    $l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle);
+                }
+            } else {
+                preg_match(",^([^=]*)(=?)(.*)$,m", $var->texte, $m);
+                $m = array_pad($m, 3, null);
+                $var = $m[1];
+                $auto = false;;
+                if ($m[2]) {
+                    $v = $m[3];
+                    if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) {
+                        $v = $m[1];
+                    }
+                    $val[0] = new Texte;
+                    $val[0]->texte = $v;
+                } elseif ($k or $n or $fond1) {
+                    $auto = true;
+                } else {
+                    $var = 1;
+                }
+
+                if ($var == 'lang') {
+                    $lang = !$auto
+                        ? calculer_liste($val, $p->descr, $boucles, $id_boucle)
+                        : '$GLOBALS["spip_lang"]';
+                } else {
+                    $val = $auto
+                        ? index_pile($id_boucle, $var, $boucles)
+                        : calculer_liste($val, $p->descr, $boucles, $id_boucle);
+                    if ($var !== 1) {
+                        $val = ($echap ? "\'$var\' => ' . argumenter_squelette(" : "'$var' => ")
+                            . $val . ($echap ? ") . '" : " ");
+                    } else {
+                        $val = $echap ? "'.$val.'" : $val;
+                    }
+                    $l[$var] = $val;
+                }
+            }
+        }
+    }
+    if ($erreur_p_i_i) {
+        return false;
+    }
+    // Cas particulier de la langue : si {lang=xx} est definie, on
+    // la passe, sinon on passe la langue courante au moment du calcul
+    // sauf si on n'en veut pas 
+    if ($lang === false) {
+        return $l;
+    }
+    if (!$lang) {
+        $lang = '$GLOBALS["spip_lang"]';
+    }
+    $l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ") . $lang . ($echap ? ") . '" : " ");
+
+    return $l;
 }
 
 /**
@@ -168,71 +168,71 @@ 
  **/
 function calculer_inclure($p, &$boucles, $id_boucle) {
 
-	$_contexte = argumenter_inclure($p->param, false, $p, $boucles, $id_boucle, true, '', true);
-	if (is_string($p->texte)) {
-		$fichier = $p->texte;
-		$code = "\"".str_replace('"','\"',$fichier)."\"";
-
-	} else {
-		$code = calculer_liste($p->texte, $p->descr, $boucles, $id_boucle);
-		if ($code and preg_match("/^'([^']*)'/s", $code, $r)) {
-			$fichier = $r[1];
-		} else {
-			$fichier = '';
-		}
-	}
-	if (!$code or $code === '""') {
-		$erreur_p_i_i = array(
-			'zbug_parametres_inclus_incorrects',
-			array('param' => $code)
-		);
-		erreur_squelette($erreur_p_i_i, $p);
-
-		return false;
-	}
-	$compil = texte_script(memoriser_contexte_compil($p));
-
-	if (is_array($_contexte)) {
-		// Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
-		if ($env = (isset($_contexte['env']) || isset($_contexte['self']))) {
-			unset($_contexte['env']);
-		}
-
-		// noter les doublons dans l'appel a public.php
-		if (isset($_contexte['doublons'])) {
-			$_contexte['doublons'] = "\\'doublons\\' => '.var_export(\$doublons,true).'";
-		}
-
-		if ($ajax = isset($_contexte['ajax'])) {
-			$ajax = preg_replace(",=>(.*)$,ims", '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
-			unset($_contexte['ajax']);
-		}
-
-		$_contexte = join(",\n\t", $_contexte);
-	} else {
-		return false;
-	} // j'aurais voulu toucher le fond ...
-
-	$contexte = 'array(' . $_contexte . ')';
-
-	if ($env) {
-		$contexte = "array_merge('.var_export(\$Pile[0],1).',$contexte)";
-	}
-
-	// s'il y a une extension .php, ce n'est pas un squelette
-	if ($fichier and preg_match('/^.+[.]php$/s', $fichier)) {
-		$code = sandbox_composer_inclure_php($fichier, $p, $contexte);
-	} else {
-		$_options[] = "\"compil\"=>array($compil)";
-		if ($ajax) {
-			$_options[] = $ajax;
-		}
-		$code = " ' . argumenter_squelette($code) . '";
-		$code = "echo " . sprintf(CODE_RECUPERER_FOND, $code, $contexte, implode(',', $_options),
-				"_request(\"connect\")") . ';';
-	}
-
-	return "\n'<'.'" . "?php " . $code . "\n?'." . "'>'";
+    $_contexte = argumenter_inclure($p->param, false, $p, $boucles, $id_boucle, true, '', true);
+    if (is_string($p->texte)) {
+        $fichier = $p->texte;
+        $code = "\"".str_replace('"','\"',$fichier)."\"";
+
+    } else {
+        $code = calculer_liste($p->texte, $p->descr, $boucles, $id_boucle);
+        if ($code and preg_match("/^'([^']*)'/s", $code, $r)) {
+            $fichier = $r[1];
+        } else {
+            $fichier = '';
+        }
+    }
+    if (!$code or $code === '""') {
+        $erreur_p_i_i = array(
+            'zbug_parametres_inclus_incorrects',
+            array('param' => $code)
+        );
+        erreur_squelette($erreur_p_i_i, $p);
+
+        return false;
+    }
+    $compil = texte_script(memoriser_contexte_compil($p));
+
+    if (is_array($_contexte)) {
+        // Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
+        if ($env = (isset($_contexte['env']) || isset($_contexte['self']))) {
+            unset($_contexte['env']);
+        }
+
+        // noter les doublons dans l'appel a public.php
+        if (isset($_contexte['doublons'])) {
+            $_contexte['doublons'] = "\\'doublons\\' => '.var_export(\$doublons,true).'";
+        }
+
+        if ($ajax = isset($_contexte['ajax'])) {
+            $ajax = preg_replace(",=>(.*)$,ims", '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
+            unset($_contexte['ajax']);
+        }
+
+        $_contexte = join(",\n\t", $_contexte);
+    } else {
+        return false;
+    } // j'aurais voulu toucher le fond ...
+
+    $contexte = 'array(' . $_contexte . ')';
+
+    if ($env) {
+        $contexte = "array_merge('.var_export(\$Pile[0],1).',$contexte)";
+    }
+
+    // s'il y a une extension .php, ce n'est pas un squelette
+    if ($fichier and preg_match('/^.+[.]php$/s', $fichier)) {
+        $code = sandbox_composer_inclure_php($fichier, $p, $contexte);
+    } else {
+        $_options[] = "\"compil\"=>array($compil)";
+        if ($ajax) {
+            $_options[] = $ajax;
+        }
+        $code = " ' . argumenter_squelette($code) . '";
+        $code = "echo " . sprintf(CODE_RECUPERER_FOND, $code, $contexte, implode(',', $_options),
+                "_request(\"connect\")") . ';';
+    }
+
+    return "\n'<'.'" . "?php " . $code . "\n?'." . "'>'";
 }
 
 
@@ -250,7 +250,7 @@ 
  *     true pour ne tester que le cas publie et ignorer l'eventuel var_mode=preview de la page
  */
 function instituer_boucle(&$boucle, $echapper = true, $ignore_previsu = false) {
-	/*
+    /*
 	$show['statut'][] = array(
 		'champ'=>'statut',  // champ de la table sur lequel porte le filtrage par le statut
 		'publie'=>'publie', // valeur ou liste de valeurs, qui definissent l'objet comme publie.
@@ -274,71 +274,71 @@ 
 	champstatut est alors le champ statut sur la tablen
 	dans les jointures, clen peut etre un tableau pour une jointure complexe : array('id_objet','id_article','objet','article')
 */
-	$id_table = $boucle->id_table;
-	$show = $boucle->show;
-	if (isset($show['statut']) and $show['statut']) {
-		foreach ($show['statut'] as $k => $s) {
-			// Restreindre aux elements publies si pas de {statut} ou autre dans les criteres
-			$filtrer = true;
-			if (isset($s['exception'])) {
-				foreach (is_array($s['exception']) ? $s['exception'] : array($s['exception']) as $m) {
-					if (isset($boucle->modificateur[$m]) or isset($boucle->modificateur['criteres'][$m])) {
-						$filtrer = false;
-						break;
-					}
-				}
-			}
-
-			if ($filtrer) {
-				if (is_array($s['champ'])) {
-					$statut = preg_replace(',\W,', '', array_pop($s['champ'])); // securite
-					$jointures = array();
-					// indiquer la description de chaque table dans le tableau de jointures,
-					// ce qui permet d'eviter certains GROUP BY inutiles.
-					$trouver_table = charger_fonction('trouver_table', 'base');
-					foreach ($s['champ'] as $j) {
-						$id = reset($j);
-						$def = $trouver_table($id);
-						$jointures[] = array('', array($id, $def), end($j));
-					}
-					$jointures[0][0] = $id_table;
-					if (!array_search($id, $boucle->from)) {
-						include_spip('public/jointures');
-						fabrique_jointures($boucle, $jointures, true, $boucle->show, $id_table, '', $echapper);
-					}
-					// trouver l'alias de la table d'arrivee qui porte le statut
-					$id = array_search($id, $boucle->from);
-				} else {
-					$id = $id_table;
-					$statut = preg_replace(',\W,', '', $s['champ']); // securite
-				}
-				$mstatut = $id . '.' . $statut;
-
-				$arg_ignore_previsu = ($ignore_previsu ? ",true" : '');
-				include_spip('public/quete');
-				if (isset($s['post_date']) and $s['post_date']
-					and $GLOBALS['meta']["post_dates"] == 'non'
-				) {
-					$date = $id . '.' . preg_replace(',\W,', '', $s['post_date']); // securite
-					array_unshift($boucle->where,
-						$echapper ?
-							"\nquete_condition_postdates('$date'," . _q($boucle->sql_serveur) . "$arg_ignore_previsu)"
-							:
-							quete_condition_postdates($date, $boucle->sql_serveur, $ignore_previsu)
-					);
-				}
-				array_unshift($boucle->where,
-					$echapper ?
-						"\nquete_condition_statut('$mstatut',"
-						. _q($s['previsu']) . ","
-						. _q($s['publie']) . ","
-						. _q($boucle->sql_serveur) . "$arg_ignore_previsu)"
-						:
-						quete_condition_statut($mstatut, $s['previsu'], $s['publie'], $boucle->sql_serveur, $ignore_previsu)
-				);
-			}
-		}
-	}
+    $id_table = $boucle->id_table;
+    $show = $boucle->show;
+    if (isset($show['statut']) and $show['statut']) {
+        foreach ($show['statut'] as $k => $s) {
+            // Restreindre aux elements publies si pas de {statut} ou autre dans les criteres
+            $filtrer = true;
+            if (isset($s['exception'])) {
+                foreach (is_array($s['exception']) ? $s['exception'] : array($s['exception']) as $m) {
+                    if (isset($boucle->modificateur[$m]) or isset($boucle->modificateur['criteres'][$m])) {
+                        $filtrer = false;
+                        break;
+                    }
+                }
+            }
+
+            if ($filtrer) {
+                if (is_array($s['champ'])) {
+                    $statut = preg_replace(',\W,', '', array_pop($s['champ'])); // securite
+                    $jointures = array();
+                    // indiquer la description de chaque table dans le tableau de jointures,
+                    // ce qui permet d'eviter certains GROUP BY inutiles.
+                    $trouver_table = charger_fonction('trouver_table', 'base');
+                    foreach ($s['champ'] as $j) {
+                        $id = reset($j);
+                        $def = $trouver_table($id);
+                        $jointures[] = array('', array($id, $def), end($j));
+                    }
+                    $jointures[0][0] = $id_table;
+                    if (!array_search($id, $boucle->from)) {
+                        include_spip('public/jointures');
+                        fabrique_jointures($boucle, $jointures, true, $boucle->show, $id_table, '', $echapper);
+                    }
+                    // trouver l'alias de la table d'arrivee qui porte le statut
+                    $id = array_search($id, $boucle->from);
+                } else {
+                    $id = $id_table;
+                    $statut = preg_replace(',\W,', '', $s['champ']); // securite
+                }
+                $mstatut = $id . '.' . $statut;
+
+                $arg_ignore_previsu = ($ignore_previsu ? ",true" : '');
+                include_spip('public/quete');
+                if (isset($s['post_date']) and $s['post_date']
+                    and $GLOBALS['meta']["post_dates"] == 'non'
+                ) {
+                    $date = $id . '.' . preg_replace(',\W,', '', $s['post_date']); // securite
+                    array_unshift($boucle->where,
+                        $echapper ?
+                            "\nquete_condition_postdates('$date'," . _q($boucle->sql_serveur) . "$arg_ignore_previsu)"
+                            :
+                            quete_condition_postdates($date, $boucle->sql_serveur, $ignore_previsu)
+                    );
+                }
+                array_unshift($boucle->where,
+                    $echapper ?
+                        "\nquete_condition_statut('$mstatut',"
+                        . _q($s['previsu']) . ","
+                        . _q($s['publie']) . ","
+                        . _q($boucle->sql_serveur) . "$arg_ignore_previsu)"
+                        :
+                        quete_condition_statut($mstatut, $s['previsu'], $s['publie'], $boucle->sql_serveur, $ignore_previsu)
+                );
+            }
+        }
+    }
 }
 
 /**
@@ -357,23 +357,23 @@ 
  */
 function calculer_boucle($id_boucle, &$boucles) {
 
-	$boucle = &$boucles[$id_boucle];
-	instituer_boucle($boucle);
-	$boucles[$id_boucle] = pipeline('post_boucle', $boucles[$id_boucle]);
-
-	// en mode debug memoriser les premiers passages dans la boucle,
-	// mais pas tous, sinon ca pete.
-	if (_request('var_mode_affiche') != 'resultat') {
-		$trace = '';
-	} else {
-		$trace = $boucles[$id_boucle]->descr['nom'] . $id_boucle;
-		$trace = "if (count(@\$GLOBALS['debug_objets']['resultat']['$trace'])<3)
+    $boucle = &$boucles[$id_boucle];
+    instituer_boucle($boucle);
+    $boucles[$id_boucle] = pipeline('post_boucle', $boucles[$id_boucle]);
+
+    // en mode debug memoriser les premiers passages dans la boucle,
+    // mais pas tous, sinon ca pete.
+    if (_request('var_mode_affiche') != 'resultat') {
+        $trace = '';
+    } else {
+        $trace = $boucles[$id_boucle]->descr['nom'] . $id_boucle;
+        $trace = "if (count(@\$GLOBALS['debug_objets']['resultat']['$trace'])<3)
 	    \$GLOBALS['debug_objets']['resultat']['$trace'][] = \$t0;";
-	}
+    }
 
-	return ($boucles[$id_boucle]->type_requete == TYPE_RECURSIF)
-		? calculer_boucle_rec($id_boucle, $boucles, $trace)
-		: calculer_boucle_nonrec($id_boucle, $boucles, $trace);
+    return ($boucles[$id_boucle]->type_requete == TYPE_RECURSIF)
+        ? calculer_boucle_rec($id_boucle, $boucles, $trace)
+        : calculer_boucle_nonrec($id_boucle, $boucles, $trace);
 }
 
 
@@ -396,15 +396,15 @@ 
  *    Code PHP compilé de la boucle récursive
  **/
 function calculer_boucle_rec($id_boucle, &$boucles, $trace) {
-	$nom = $boucles[$id_boucle]->param[0];
-
-	return
-		// Numrows[$nom] peut ne pas être encore defini
-		"\n\t\$save_numrows = (isset(\$Numrows['$nom']) ? \$Numrows['$nom'] : array());"
-		. "\n\t\$t0 = " . $boucles[$id_boucle]->return . ";"
-		. "\n\t\$Numrows['$nom'] = (\$save_numrows);"
-		. $trace
-		. "\n\treturn \$t0;";
+    $nom = $boucles[$id_boucle]->param[0];
+
+    return
+        // Numrows[$nom] peut ne pas être encore defini
+        "\n\t\$save_numrows = (isset(\$Numrows['$nom']) ? \$Numrows['$nom'] : array());"
+        . "\n\t\$t0 = " . $boucles[$id_boucle]->return . ";"
+        . "\n\t\$Numrows['$nom'] = (\$save_numrows);"
+        . $trace
+        . "\n\treturn \$t0;";
 }
 
 /**
@@ -458,169 +458,169 @@ 
  **/
 function calculer_boucle_nonrec($id_boucle, &$boucles, $trace) {
 
-	$boucle = &$boucles[$id_boucle];
-	$return = $boucle->return;
-	$type_boucle = $boucle->type_requete;
-	$primary = $boucle->primary;
-	$constant = preg_match(CODE_MONOTONE, str_replace("\\'", '', $return));
-	$flag_cpt = $boucle->mode_partie || $boucle->cptrows;
-	$corps = '';
-
-	// faudrait expanser le foreach a la compil, car y en a souvent qu'un 
-	// et puis faire un [] plutot qu'un "','."
-	if ($boucle->doublons) {
-		$corps .= "\n\t\t\tforeach(" . $boucle->doublons . ' as $k) $doublons[$k] .= "," . ' .
-			index_pile($id_boucle, $primary, $boucles)
-			. "; // doublons\n";
-	}
-
-	// La boucle doit-elle selectionner la langue ?
-	// - par defaut, les boucles suivantes le font
-	//    (sauf si forcer_lang==true ou si le titre contient <multi>).
-	// - a moins d'une demande explicite via {!lang_select}
-	if (!$constant && $boucle->lang_select != 'non' &&
-		(($boucle->lang_select == 'oui') ||
-			in_array($type_boucle, array(
-				'articles',
-				'rubriques',
-				'hierarchie',
-				'breves'
-			)))
-	) {
-		// Memoriser la langue avant la boucle et la restituer apres
-		// afin que le corps de boucle affecte la globale directement
-		$init_lang = "lang_select(\$GLOBALS['spip_lang']);\n\t";
-		$fin_lang = "lang_select();\n\t";
-		$fin_lang_select_public = "\n\t\tlang_select();";
-
-		$corps .=
-			"\n\t\tlang_select_public("
-			. index_pile($id_boucle, 'lang', $boucles)
-			. ", '" . $boucle->lang_select . "'"
-			. (in_array($type_boucle, array(
-				'articles',
-				'rubriques',
-				'hierarchie',
-				'breves'
-			)) ? ', ' . index_pile($id_boucle, 'titre', $boucles) : '')
-			. ');';
-	} else {
-		$init_lang = '';
-		$fin_lang = '';
-		$fin_lang_select_public = '';
-		// sortir les appels au traducteur (invariants de boucle)
-		if (strpos($return, '?php') === false
-			and preg_match_all("/\W(_T[(]'[^']*'[)])/", $return, $r)
-		) {
-			$i = 1;
-			foreach ($r[1] as $t) {
-				$init_lang .= "\n\t\$l$i = $t;";
-				$return = str_replace($t, "\$l$i", $return);
-				$i++;
-			}
-		}
-	}
-
-	// gestion optimale des separateurs et des boucles constantes
-	if (count($boucle->separateur)) {
-		$code_sep = ("'" . str_replace("'", "\'", join('', $boucle->separateur)) . "'");
-	}
-
-	$corps .=
-		((!$boucle->separateur) ?
-			(($constant && !$corps && !$flag_cpt) ? $return :
-				(($return === "''") ? '' :
-					("\n\t\t" . '$t0 .= ' . $return . ";"))) :
-			("\n\t\t\$t1 " .
-				((strpos($return, '$t1.') === 0) ?
-					(".=" . substr($return, 4)) :
-					('= ' . $return)) .
-				";\n\t\t" .
-				'$t0 .= ((strlen($t1) && strlen($t0)) ? ' . $code_sep . " : '') . \$t1;"));
-
-	// Calculer les invalideurs si c'est une boucle non constante et si on
-	// souhaite invalider ces elements
-	if (!$constant and $primary) {
-		include_spip('inc/invalideur');
-		$corps = calcul_invalideurs($corps, $primary,$boucles, $id_boucle);
-	}
-
-	// gerer le compteur de boucle 
-	// avec ou sans son utilisation par les criteres {1/3} {1,4} {n-2,1}...
-
-	if ($boucle->partie or $boucle->cptrows) {
-		$corps = "\n\t\t\$Numrows['$id_boucle']['compteur_boucle']++;"
-			. $boucle->partie
-			. $corps;
-	}
-
-	// depiler la lang de la boucle si besoin
-	$corps .= $fin_lang_select_public;
-
-	// si le corps est une constante, ne pas appeler le serveur N fois!
-
-	if (preg_match(CODE_MONOTONE, str_replace("\\'", '', $corps), $r)) {
-		if (!isset($r[2]) or (!$r[2])) {
-			if (!$boucle->numrows) {
-				return "\n\t\$t0 = '';";
-			} else {
-				$corps = "";
-			}
-		} else {
-			$boucle->numrows = true;
-			$corps = "\n\t\$t0 = str_repeat($corps, \$Numrows['$id_boucle']['total']);";
-		}
-	} else {
-		$corps = "while (\$Pile[\$SP]=\$iter->fetch()) {\n$corps\n	}";
-	}
-
-	$count = '';
-	if (!$boucle->select) {
-		if (!$boucle->numrows or $boucle->limit or $boucle->mode_partie or $boucle->group) {
-			$count = '1';
-		} else {
-			$count = 'count(*)';
-		}
-		$boucles[$id_boucle]->select[] = $count;
-	}
-
-	if ($flag_cpt) {
-		$nums = "\n\t// COMPTEUR\n\t"
-			. "\$Numrows['$id_boucle']['compteur_boucle'] = 0;\n\t";
-	} else {
-		$nums = '';
-	}
-
-	if ($boucle->numrows or $boucle->mode_partie) {
-		$nums .= "\$Numrows['$id_boucle']['total'] = @intval(\$iter->count());"
-			. $boucle->mode_partie
-			. "\n\t";
-	}
-
-	// Ne calculer la requete que maintenant
-	// car ce qui precede appelle index_pile qui influe dessus
-
-	$init = (($init = $boucles[$id_boucle]->doublons)
-			? ("\n\t$init = array();") : '')
-		. calculer_requete_sql($boucles[$id_boucle]);
-
-	$contexte = memoriser_contexte_compil($boucle);
-
-	$a = sprintf(CODE_CORPS_BOUCLE,
-		$init,
-		$boucle->iterateur,
-		"\$command",
-		$contexte,
-		$nums,
-		$init_lang,
-		$corps,
-		$fin_lang,
-		$trace,
-		'BOUCLE' . $id_boucle . ' @ ' . ($boucle->descr['sourcefile'])
-	);
+    $boucle = &$boucles[$id_boucle];
+    $return = $boucle->return;
+    $type_boucle = $boucle->type_requete;
+    $primary = $boucle->primary;
+    $constant = preg_match(CODE_MONOTONE, str_replace("\\'", '', $return));
+    $flag_cpt = $boucle->mode_partie || $boucle->cptrows;
+    $corps = '';
+
+    // faudrait expanser le foreach a la compil, car y en a souvent qu'un 
+    // et puis faire un [] plutot qu'un "','."
+    if ($boucle->doublons) {
+        $corps .= "\n\t\t\tforeach(" . $boucle->doublons . ' as $k) $doublons[$k] .= "," . ' .
+            index_pile($id_boucle, $primary, $boucles)
+            . "; // doublons\n";
+    }
+
+    // La boucle doit-elle selectionner la langue ?
+    // - par defaut, les boucles suivantes le font
+    //    (sauf si forcer_lang==true ou si le titre contient <multi>).
+    // - a moins d'une demande explicite via {!lang_select}
+    if (!$constant && $boucle->lang_select != 'non' &&
+        (($boucle->lang_select == 'oui') ||
+            in_array($type_boucle, array(
+                'articles',
+                'rubriques',
+                'hierarchie',
+                'breves'
+            )))
+    ) {
+        // Memoriser la langue avant la boucle et la restituer apres
+        // afin que le corps de boucle affecte la globale directement
+        $init_lang = "lang_select(\$GLOBALS['spip_lang']);\n\t";
+        $fin_lang = "lang_select();\n\t";
+        $fin_lang_select_public = "\n\t\tlang_select();";
+
+        $corps .=
+            "\n\t\tlang_select_public("
+            . index_pile($id_boucle, 'lang', $boucles)
+            . ", '" . $boucle->lang_select . "'"
+            . (in_array($type_boucle, array(
+                'articles',
+                'rubriques',
+                'hierarchie',
+                'breves'
+            )) ? ', ' . index_pile($id_boucle, 'titre', $boucles) : '')
+            . ');';
+    } else {
+        $init_lang = '';
+        $fin_lang = '';
+        $fin_lang_select_public = '';
+        // sortir les appels au traducteur (invariants de boucle)
+        if (strpos($return, '?php') === false
+            and preg_match_all("/\W(_T[(]'[^']*'[)])/", $return, $r)
+        ) {
+            $i = 1;
+            foreach ($r[1] as $t) {
+                $init_lang .= "\n\t\$l$i = $t;";
+                $return = str_replace($t, "\$l$i", $return);
+                $i++;
+            }
+        }
+    }
+
+    // gestion optimale des separateurs et des boucles constantes
+    if (count($boucle->separateur)) {
+        $code_sep = ("'" . str_replace("'", "\'", join('', $boucle->separateur)) . "'");
+    }
+
+    $corps .=
+        ((!$boucle->separateur) ?
+            (($constant && !$corps && !$flag_cpt) ? $return :
+                (($return === "''") ? '' :
+                    ("\n\t\t" . '$t0 .= ' . $return . ";"))) :
+            ("\n\t\t\$t1 " .
+                ((strpos($return, '$t1.') === 0) ?
+                    (".=" . substr($return, 4)) :
+                    ('= ' . $return)) .
+                ";\n\t\t" .
+                '$t0 .= ((strlen($t1) && strlen($t0)) ? ' . $code_sep . " : '') . \$t1;"));
+
+    // Calculer les invalideurs si c'est une boucle non constante et si on
+    // souhaite invalider ces elements
+    if (!$constant and $primary) {
+        include_spip('inc/invalideur');
+        $corps = calcul_invalideurs($corps, $primary,$boucles, $id_boucle);
+    }
+
+    // gerer le compteur de boucle 
+    // avec ou sans son utilisation par les criteres {1/3} {1,4} {n-2,1}...
+
+    if ($boucle->partie or $boucle->cptrows) {
+        $corps = "\n\t\t\$Numrows['$id_boucle']['compteur_boucle']++;"
+            . $boucle->partie
+            . $corps;
+    }
+
+    // depiler la lang de la boucle si besoin
+    $corps .= $fin_lang_select_public;
+
+    // si le corps est une constante, ne pas appeler le serveur N fois!
+
+    if (preg_match(CODE_MONOTONE, str_replace("\\'", '', $corps), $r)) {
+        if (!isset($r[2]) or (!$r[2])) {
+            if (!$boucle->numrows) {
+                return "\n\t\$t0 = '';";
+            } else {
+                $corps = "";
+            }
+        } else {
+            $boucle->numrows = true;
+            $corps = "\n\t\$t0 = str_repeat($corps, \$Numrows['$id_boucle']['total']);";
+        }
+    } else {
+        $corps = "while (\$Pile[\$SP]=\$iter->fetch()) {\n$corps\n	}";
+    }
+
+    $count = '';
+    if (!$boucle->select) {
+        if (!$boucle->numrows or $boucle->limit or $boucle->mode_partie or $boucle->group) {
+            $count = '1';
+        } else {
+            $count = 'count(*)';
+        }
+        $boucles[$id_boucle]->select[] = $count;
+    }
+
+    if ($flag_cpt) {
+        $nums = "\n\t// COMPTEUR\n\t"
+            . "\$Numrows['$id_boucle']['compteur_boucle'] = 0;\n\t";
+    } else {
+        $nums = '';
+    }
+
+    if ($boucle->numrows or $boucle->mode_partie) {
+        $nums .= "\$Numrows['$id_boucle']['total'] = @intval(\$iter->count());"
+            . $boucle->mode_partie
+            . "\n\t";
+    }
+
+    // Ne calculer la requete que maintenant
+    // car ce qui precede appelle index_pile qui influe dessus
+
+    $init = (($init = $boucles[$id_boucle]->doublons)
+            ? ("\n\t$init = array();") : '')
+        . calculer_requete_sql($boucles[$id_boucle]);
+
+    $contexte = memoriser_contexte_compil($boucle);
+
+    $a = sprintf(CODE_CORPS_BOUCLE,
+        $init,
+        $boucle->iterateur,
+        "\$command",
+        $contexte,
+        $nums,
+        $init_lang,
+        $corps,
+        $fin_lang,
+        $trace,
+        'BOUCLE' . $id_boucle . ' @ ' . ($boucle->descr['sourcefile'])
+    );
 
 #	var_dump($a);exit;
-	return $a;
+    return $a;
 }
 
 
@@ -636,43 +636,43 @@ 
  *     Code PHP compilé définissant les informations de requête
  **/
 function calculer_requete_sql($boucle) {
-	$init = array();
-	$init[] = calculer_dec('table', "'" . $boucle->id_table . "'");
-	$init[] = calculer_dec('id', "'" . $boucle->id_boucle . "'");
-	# En absence de champ c'est un decompte :
-	$init[] = calculer_dec('from', calculer_from($boucle));
-	$init[] = calculer_dec('type', calculer_from_type($boucle));
-	$init[] = calculer_dec('groupby',
-		'array(' . (($g = join("\",\n\t\t\"", $boucle->group)) ? '"' . $g . '"' : '') . ")");
-	$init[] = calculer_dec('select', 'array("' . join("\",\n\t\t\"", $boucle->select) . "\")");
-	$init[] = calculer_dec('orderby', 'array(' . calculer_order($boucle) . ")");
-	$init[] = calculer_dec('where', calculer_dump_array($boucle->where));
-	$init[] = calculer_dec('join', calculer_dump_join($boucle->join));
-	$init[] = calculer_dec('limit',
-		(strpos($boucle->limit, 'intval') === false ?
-			"'" . $boucle->limit . "'"
-			:
-			$boucle->limit));
-	$init[] = calculer_dec('having', calculer_dump_array($boucle->having));
-	$s = $d = "";
-	// l'index 0 de $i indique si l'affectation est statique (contenu)
-	// ou recalculée à chaque passage (vide)
-	foreach ($init as $i) {
-		if (reset($i)) {
-			$s .= "\n\t\t" . end($i);
-		} # statique
-		else {
-			$d .= "\n\t" . end($i);
-		} # dynamique
-	}
-
-	return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
-	. $boucle->in
-	. $boucle->hash
-	. "\n\t" . 'if (!isset($command[\'table\'])) {'
-	. $s
-	. "\n\t}"
-	. $d;
+    $init = array();
+    $init[] = calculer_dec('table', "'" . $boucle->id_table . "'");
+    $init[] = calculer_dec('id', "'" . $boucle->id_boucle . "'");
+    # En absence de champ c'est un decompte :
+    $init[] = calculer_dec('from', calculer_from($boucle));
+    $init[] = calculer_dec('type', calculer_from_type($boucle));
+    $init[] = calculer_dec('groupby',
+        'array(' . (($g = join("\",\n\t\t\"", $boucle->group)) ? '"' . $g . '"' : '') . ")");
+    $init[] = calculer_dec('select', 'array("' . join("\",\n\t\t\"", $boucle->select) . "\")");
+    $init[] = calculer_dec('orderby', 'array(' . calculer_order($boucle) . ")");
+    $init[] = calculer_dec('where', calculer_dump_array($boucle->where));
+    $init[] = calculer_dec('join', calculer_dump_join($boucle->join));
+    $init[] = calculer_dec('limit',
+        (strpos($boucle->limit, 'intval') === false ?
+            "'" . $boucle->limit . "'"
+            :
+            $boucle->limit));
+    $init[] = calculer_dec('having', calculer_dump_array($boucle->having));
+    $s = $d = "";
+    // l'index 0 de $i indique si l'affectation est statique (contenu)
+    // ou recalculée à chaque passage (vide)
+    foreach ($init as $i) {
+        if (reset($i)) {
+            $s .= "\n\t\t" . end($i);
+        } # statique
+        else {
+            $d .= "\n\t" . end($i);
+        } # dynamique
+    }
+
+    return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
+    . $boucle->in
+    . $boucle->hash
+    . "\n\t" . 'if (!isset($command[\'table\'])) {'
+    . $s
+    . "\n\t}"
+    . $d;
 }
 
 /**
@@ -690,13 +690,13 @@ 
  *     qui peut être utilisé pour la production d'un tableau array()
  **/
 function memoriser_contexte_compil($p) {
-	return join(',', array(
-		_q(isset($p->descr['sourcefile']) ? $p->descr['sourcefile'] : ''),
-		_q(isset($p->descr['nom']) ? $p->descr['nom'] : ''),
-		_q(isset($p->id_boucle) ? $p->id_boucle : null),
-		intval($p->ligne),
-		'$GLOBALS[\'spip_lang\']'
-	));
+    return join(',', array(
+        _q(isset($p->descr['sourcefile']) ? $p->descr['sourcefile'] : ''),
+        _q(isset($p->descr['nom']) ? $p->descr['nom'] : ''),
+        _q(isset($p->id_boucle) ? $p->id_boucle : null),
+        intval($p->ligne),
+        '$GLOBALS[\'spip_lang\']'
+    ));
 }
 
 /**
@@ -714,19 +714,19 @@ 
  *     Objet Contexte
  **/
 function reconstruire_contexte_compil($context_compil) {
-	if (!is_array($context_compil)) {
-		return $context_compil;
-	}
-	$p = new Contexte;
-	$p->descr = array(
-		'sourcefile' => $context_compil[0],
-		'nom' => $context_compil[1]
-	);
-	$p->id_boucle = $context_compil[2];
-	$p->ligne = $context_compil[3];
-	$p->lang = $context_compil[4];
-
-	return $p;
+    if (!is_array($context_compil)) {
+        return $context_compil;
+    }
+    $p = new Contexte;
+    $p->descr = array(
+        'sourcefile' => $context_compil[0],
+        'nom' => $context_compil[1]
+    );
+    $p->id_boucle = $context_compil[2];
+    $p->ligne = $context_compil[3];
+    $p->lang = $context_compil[4];
+
+    return $p;
 }
 
 /**
@@ -752,12 +752,12 @@ 
  *    - index 1 : Code de l'affectation
  **/
 function calculer_dec($nom, $val) {
-	$static = 'if (!isset($command[\'' . $nom . '\'])) ';
-	// si une variable apparait dans le calcul de la clause
-	// il faut la re-evaluer a chaque passage
-	if (
-		strpos($val, '$') !== false
-		/*
+    $static = 'if (!isset($command[\'' . $nom . '\'])) ';
+    // si une variable apparait dans le calcul de la clause
+    // il faut la re-evaluer a chaque passage
+    if (
+        strpos($val, '$') !== false
+        /*
 		OR strpos($val, 'sql_') !== false
 		OR (
 			$test = str_replace(array("array(",'\"',"\'"),array("","",""),$val) // supprimer les array( et les echappements de guillemets
@@ -765,11 +765,11 @@ 
 			AND $test = preg_replace(",'[^']*',UimsS","",$test) // supprimer les chaines qui peuvent contenir des fonctions SQL qui ne genent pas
 			AND preg_match(",\w+\s*\(,UimsS",$test,$regs) // tester la presence de fonctions restantes
 		)*/
-	) {
-		$static = "";
-	}
+    ) {
+        $static = "";
+    }
 
-	return array($static, '$command[\'' . $nom . '\'] = ' . $val . ';');
+    return array($static, '$command[\'' . $nom . '\'] = ' . $val . ';');
 }
 
 /**
@@ -789,32 +789,32 @@ 
  *     Expression PHP décrivant un texte ou un tableau
  **/
 function calculer_dump_array($a) {
-	if (!is_array($a)) {
-		return $a;
-	}
-	$res = "";
-	if ($a and $a[0] == "'?'") {
-		return ("(" . calculer_dump_array($a[1]) .
-			" ? " . calculer_dump_array($a[2]) .
-			" : " . calculer_dump_array($a[3]) .
-			")");
-	} else {
-		foreach ($a as $v) {
-			$res .= ", " . calculer_dump_array($v);
-		}
-
-		return "\n\t\t\tarray(" . substr($res, 2) . ')';
-	}
+    if (!is_array($a)) {
+        return $a;
+    }
+    $res = "";
+    if ($a and $a[0] == "'?'") {
+        return ("(" . calculer_dump_array($a[1]) .
+            " ? " . calculer_dump_array($a[2]) .
+            " : " . calculer_dump_array($a[3]) .
+            ")");
+    } else {
+        foreach ($a as $v) {
+            $res .= ", " . calculer_dump_array($v);
+        }
+
+        return "\n\t\t\tarray(" . substr($res, 2) . ')';
+    }
 }
 
 // http://code.spip.net/@calculer_dump_join
 function calculer_dump_join($a) {
-	$res = "";
-	foreach ($a as $k => $v) {
-		$res .= ", '$k' => array(" . implode(',', $v) . ")";
-	}
+    $res = "";
+    foreach ($a as $k => $v) {
+        $res .= ", '$k' => array(" . implode(',', $v) . ")";
+    }
 
-	return 'array(' . substr($res, 2) . ')';
+    return 'array(' . substr($res, 2) . ')';
 }
 
 /**
@@ -826,12 +826,12 @@ 
  *     Code PHP construisant un tableau des alias et noms des tables du FROM
  **/
 function calculer_from(&$boucle) {
-	$res = "";
-	foreach ($boucle->from as $k => $v) {
-		$res .= ",'$k' => '$v'";
-	}
+    $res = "";
+    foreach ($boucle->from as $k => $v) {
+        $res .= ",'$k' => '$v'";
+    }
 
-	return 'array(' . substr($res, 1) . ')';
+    return 'array(' . substr($res, 1) . ')';
 }
 
 /**
@@ -844,30 +844,30 @@ 
  *     Code PHP construisant un tableau des alias et type de jointure du FROM
  **/
 function calculer_from_type(&$boucle) {
-	$res = "";
-	foreach ($boucle->from_type as $k => $v) {
-		$res .= ",'$k' => '$v'";
-	}
+    $res = "";
+    foreach ($boucle->from_type as $k => $v) {
+        $res .= ",'$k' => '$v'";
+    }
 
-	return 'array(' . substr($res, 1) . ')';
+    return 'array(' . substr($res, 1) . ')';
 }
 
 // http://code.spip.net/@calculer_order
 function calculer_order(&$boucle) {
-	if (!$order = $boucle->order
-		and !$order = $boucle->default_order
-	) {
-		$order = array();
-	}
+    if (!$order = $boucle->order
+        and !$order = $boucle->default_order
+    ) {
+        $order = array();
+    }
 
-	/*if (isset($boucle->modificateur['collate'])){
+    /*if (isset($boucle->modificateur['collate'])){
 		$col = "." . $boucle->modificateur['collate'];
 		foreach($order as $k=>$o)
 			if (strpos($order[$k],'COLLATE')===false)
 				$order[$k].= $col;
 	}*/
 
-	return join(', ', $order);
+    return join(', ', $order);
 }
 
 // Production du code PHP a partir de la sequence livree par le phraseur
@@ -877,44 +877,44 @@ 
 
 // http://code.spip.net/@calculer_liste
 function calculer_liste($tableau, $descr, &$boucles, $id_boucle = '') {
-	if (!$tableau) {
-		return "''";
-	}
-	if (!isset($descr['niv'])) {
-		$descr['niv'] = 0;
-	}
-	$codes = compile_cas($tableau, $descr, $boucles, $id_boucle);
-	if ($codes === false) {
-		return false;
-	}
-	$n = count($codes);
-	if (!$n) {
-		return "''";
-	}
-	$tab = str_repeat("\t", $descr['niv']);
-	if (_request('var_mode_affiche') != 'validation') {
-		if ($n == 1) {
-			return $codes[0];
-		} else {
-			$res = '';
-			foreach ($codes as $code) {
-				if (!preg_match("/^'[^']*'$/", $code)
-					or substr($res, -1, 1) !== "'"
-				) {
-					$res .= " .\n$tab$code";
-				} else {
-					$res = substr($res, 0, -1) . substr($code, 1);
-				}
-			}
-
-			return '(' . substr($res, 2 + $descr['niv']) . ')';
-		}
-	} else {
-		$nom = $descr['nom'] . $id_boucle . ($descr['niv'] ? $descr['niv'] : '');
-
-		return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(" . join(" ,\n$tab",
-			$codes) . ")))";
-	}
+    if (!$tableau) {
+        return "''";
+    }
+    if (!isset($descr['niv'])) {
+        $descr['niv'] = 0;
+    }
+    $codes = compile_cas($tableau, $descr, $boucles, $id_boucle);
+    if ($codes === false) {
+        return false;
+    }
+    $n = count($codes);
+    if (!$n) {
+        return "''";
+    }
+    $tab = str_repeat("\t", $descr['niv']);
+    if (_request('var_mode_affiche') != 'validation') {
+        if ($n == 1) {
+            return $codes[0];
+        } else {
+            $res = '';
+            foreach ($codes as $code) {
+                if (!preg_match("/^'[^']*'$/", $code)
+                    or substr($res, -1, 1) !== "'"
+                ) {
+                    $res .= " .\n$tab$code";
+                } else {
+                    $res = substr($res, 0, -1) . substr($code, 1);
+                }
+            }
+
+            return '(' . substr($res, 2 + $descr['niv']) . ')';
+        }
+    } else {
+        $nom = $descr['nom'] . $id_boucle . ($descr['niv'] ? $descr['niv'] : '');
+
+        return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(" . join(" ,\n$tab",
+            $codes) . ")))";
+    }
 }
 
 define('_REGEXP_COND_VIDE_NONVIDE', "/^[(](.*)[?]\s*''\s*:\s*('[^']+')\s*[)]$/");
@@ -924,186 +924,186 @@ 
 // http://code.spip.net/@compile_cas
 function compile_cas($tableau, $descr, &$boucles, $id_boucle) {
 
-	$codes = array();
-	// cas de la boucle recursive
-	if (is_array($id_boucle)) {
-		$id_boucle = $id_boucle[0];
-	}
-	$type = !$id_boucle ? '' : $boucles[$id_boucle]->type_requete;
-	$tab = str_repeat("\t", ++$descr['niv']);
-	$mode = _request('var_mode_affiche');
-	$err_e_c = '';
-	// chaque commentaire introduit dans le code doit commencer
-	// par un caractere distinguant le cas, pour exploitation par debug.
-	foreach ($tableau as $p) {
-
-		switch ($p->type) {
-			// texte seul
-			case 'texte':
-				$code = sandbox_composer_texte($p->texte, $p);
-				$commentaire = strlen($p->texte) . " signes";
-				$avant = '';
-				$apres = '';
-				$altern = "''";
-				break;
-
-			case 'polyglotte':
-				$code = "";
-				foreach ($p->traductions as $k => $v) {
-					$code .= ",'" .
-						str_replace(array("\\", "'"), array("\\\\", "\\'"), $k) .
-						"' => '" .
-						str_replace(array("\\", "'"), array("\\\\", "\\'"), $v) .
-						"'";
-				}
-				$code = "choisir_traduction(array(" .
-					substr($code, 1) .
-					"))";
-				$commentaire = '&';
-				$avant = '';
-				$apres = '';
-				$altern = "''";
-				break;
-
-			// inclure
-			case 'include':
-				$p->descr = $descr;
-				$code = calculer_inclure($p, $boucles, $id_boucle);
-				if ($code === false) {
-					$err_e_c = true;
-					$code = "''";
-				} else {
-					$commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>';
-					$avant = '';
-					$apres = '';
-					$altern = "''";
-				}
-				break;
-
-			// boucle
-			case TYPE_RECURSIF:
-				$nom = $p->id_boucle;
-				$newdescr = $descr;
-				$newdescr['id_mere'] = $nom;
-				$newdescr['niv']++;
-				$avant = calculer_liste($p->avant,
-					$newdescr, $boucles, $id_boucle);
-				$apres = calculer_liste($p->apres,
-					$newdescr, $boucles, $id_boucle);
-				$newdescr['niv']--;
-				$altern = calculer_liste($p->altern,
-					$newdescr, $boucles, $id_boucle);
-				if (($avant === false) or ($apres === false) or ($altern === false)) {
-					$err_e_c = true;
-					$code = "''";
-				} else {
-					$code = 'BOUCLE' .
-						str_replace("-", "_", $nom) . $descr['nom'] .
-						'($Cache, $Pile, $doublons, $Numrows, $SP)';
-					$commentaire = "?$nom";
-					if (!$boucles[$nom]->milieu
-						and $boucles[$nom]->type_requete <> TYPE_RECURSIF
-					) {
-						if ($altern != "''") {
-							$code .= "\n. $altern";
-						}
-						if ($avant <> "''" or $apres <> "''") {
-							spip_log("boucle $nom toujours vide, code superflu dans $descr[sourcefile]");
-						}
-						$avant = $apres = $altern = "''";
-					} else {
-						if ($altern != "''") {
-							$altern = "($altern)";
-						}
-					}
-				}
-				break;
-
-			case 'idiome':
-				$l = array();
-				$code = '';
-				foreach ($p->arg as $k => $v) {
-					$_v = calculer_liste($v, $descr, $boucles, $id_boucle);
-					if ($k) {
-						$l[] = _q($k) . ' => ' . $_v;
-					} else {
-						$code = $_v;
-					}
-				}
-				// Si le module n'est pas fourni, l'expliciter sauf si calculé
-				if ($p->module) {
-					$m = $p->module . ':' . $p->nom_champ;
-				} elseif ($p->nom_champ) {
-					$m = MODULES_IDIOMES . ':' . $p->nom_champ;
-				} else {
-					$m = '';
-				}
-
-				$code = (!$code ? "'$m'" :
-						($m ? "'$m' . $code" :
-							("(strpos(\$x=$code, ':') ? \$x : ('" . MODULES_IDIOMES . ":' . \$x))")))
-					. (!$l ? '' : (", array(" . implode(",\n", $l) . ")"));
-				$code = "_T($code)";
-				if ($p->param) {
-					$p->id_boucle = $id_boucle;
-					$p->boucles = &$boucles;
-					$code = compose_filtres($p, $code);
-				}
-				$commentaire = ":";
-				$avant = '';
-				$apres = '';
-				$altern = "''";
-				break;
-
-			case 'champ':
-
-				// cette structure pourrait etre completee des le phrase' (a faire)
-				$p->id_boucle = $id_boucle;
-				$p->boucles = &$boucles;
-				$p->descr = $descr;
-				#$p->interdire_scripts = true;
-				$p->type_requete = $type;
-
-				$code = calculer_champ($p);
-				$commentaire = '#' . $p->nom_champ . $p->etoile;
-				$avant = calculer_liste($p->avant,
-					$descr, $boucles, $id_boucle);
-				$apres = calculer_liste($p->apres,
-					$descr, $boucles, $id_boucle);
-				$altern = "''";
-				// Si la valeur est destinee a une comparaison a ''
-				// forcer la conversion en une chaine par strval
-				// si ca peut etre autre chose qu'une chaine
-				if (($avant != "''" or $apres != "''")
-					and $code[0] != "'"
+    $codes = array();
+    // cas de la boucle recursive
+    if (is_array($id_boucle)) {
+        $id_boucle = $id_boucle[0];
+    }
+    $type = !$id_boucle ? '' : $boucles[$id_boucle]->type_requete;
+    $tab = str_repeat("\t", ++$descr['niv']);
+    $mode = _request('var_mode_affiche');
+    $err_e_c = '';
+    // chaque commentaire introduit dans le code doit commencer
+    // par un caractere distinguant le cas, pour exploitation par debug.
+    foreach ($tableau as $p) {
+
+        switch ($p->type) {
+            // texte seul
+            case 'texte':
+                $code = sandbox_composer_texte($p->texte, $p);
+                $commentaire = strlen($p->texte) . " signes";
+                $avant = '';
+                $apres = '';
+                $altern = "''";
+                break;
+
+            case 'polyglotte':
+                $code = "";
+                foreach ($p->traductions as $k => $v) {
+                    $code .= ",'" .
+                        str_replace(array("\\", "'"), array("\\\\", "\\'"), $k) .
+                        "' => '" .
+                        str_replace(array("\\", "'"), array("\\\\", "\\'"), $v) .
+                        "'";
+                }
+                $code = "choisir_traduction(array(" .
+                    substr($code, 1) .
+                    "))";
+                $commentaire = '&';
+                $avant = '';
+                $apres = '';
+                $altern = "''";
+                break;
+
+            // inclure
+            case 'include':
+                $p->descr = $descr;
+                $code = calculer_inclure($p, $boucles, $id_boucle);
+                if ($code === false) {
+                    $err_e_c = true;
+                    $code = "''";
+                } else {
+                    $commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>';
+                    $avant = '';
+                    $apres = '';
+                    $altern = "''";
+                }
+                break;
+
+            // boucle
+            case TYPE_RECURSIF:
+                $nom = $p->id_boucle;
+                $newdescr = $descr;
+                $newdescr['id_mere'] = $nom;
+                $newdescr['niv']++;
+                $avant = calculer_liste($p->avant,
+                    $newdescr, $boucles, $id_boucle);
+                $apres = calculer_liste($p->apres,
+                    $newdescr, $boucles, $id_boucle);
+                $newdescr['niv']--;
+                $altern = calculer_liste($p->altern,
+                    $newdescr, $boucles, $id_boucle);
+                if (($avant === false) or ($apres === false) or ($altern === false)) {
+                    $err_e_c = true;
+                    $code = "''";
+                } else {
+                    $code = 'BOUCLE' .
+                        str_replace("-", "_", $nom) . $descr['nom'] .
+                        '($Cache, $Pile, $doublons, $Numrows, $SP)';
+                    $commentaire = "?$nom";
+                    if (!$boucles[$nom]->milieu
+                        and $boucles[$nom]->type_requete <> TYPE_RECURSIF
+                    ) {
+                        if ($altern != "''") {
+                            $code .= "\n. $altern";
+                        }
+                        if ($avant <> "''" or $apres <> "''") {
+                            spip_log("boucle $nom toujours vide, code superflu dans $descr[sourcefile]");
+                        }
+                        $avant = $apres = $altern = "''";
+                    } else {
+                        if ($altern != "''") {
+                            $altern = "($altern)";
+                        }
+                    }
+                }
+                break;
+
+            case 'idiome':
+                $l = array();
+                $code = '';
+                foreach ($p->arg as $k => $v) {
+                    $_v = calculer_liste($v, $descr, $boucles, $id_boucle);
+                    if ($k) {
+                        $l[] = _q($k) . ' => ' . $_v;
+                    } else {
+                        $code = $_v;
+                    }
+                }
+                // Si le module n'est pas fourni, l'expliciter sauf si calculé
+                if ($p->module) {
+                    $m = $p->module . ':' . $p->nom_champ;
+                } elseif ($p->nom_champ) {
+                    $m = MODULES_IDIOMES . ':' . $p->nom_champ;
+                } else {
+                    $m = '';
+                }
+
+                $code = (!$code ? "'$m'" :
+                        ($m ? "'$m' . $code" :
+                            ("(strpos(\$x=$code, ':') ? \$x : ('" . MODULES_IDIOMES . ":' . \$x))")))
+                    . (!$l ? '' : (", array(" . implode(",\n", $l) . ")"));
+                $code = "_T($code)";
+                if ($p->param) {
+                    $p->id_boucle = $id_boucle;
+                    $p->boucles = &$boucles;
+                    $code = compose_filtres($p, $code);
+                }
+                $commentaire = ":";
+                $avant = '';
+                $apres = '';
+                $altern = "''";
+                break;
+
+            case 'champ':
+
+                // cette structure pourrait etre completee des le phrase' (a faire)
+                $p->id_boucle = $id_boucle;
+                $p->boucles = &$boucles;
+                $p->descr = $descr;
+                #$p->interdire_scripts = true;
+                $p->type_requete = $type;
+
+                $code = calculer_champ($p);
+                $commentaire = '#' . $p->nom_champ . $p->etoile;
+                $avant = calculer_liste($p->avant,
+                    $descr, $boucles, $id_boucle);
+                $apres = calculer_liste($p->apres,
+                    $descr, $boucles, $id_boucle);
+                $altern = "''";
+                // Si la valeur est destinee a une comparaison a ''
+                // forcer la conversion en une chaine par strval
+                // si ca peut etre autre chose qu'une chaine
+                if (($avant != "''" or $apres != "''")
+                    and $code[0] != "'"
 #			AND (strpos($code,'interdire_scripts') !== 0)
-					and !preg_match(_REGEXP_COND_VIDE_NONVIDE, $code)
-					and !preg_match(_REGEXP_COND_NONVIDE_VIDE, $code)
-					and !preg_match(_REGEXP_CONCAT_NON_VIDE, $code)
-				) {
-					$code = "strval($code)";
-				}
-				break;
-
-			default:
-				// Erreur de construction de l'arbre de syntaxe abstraite
-				$code = "''";
-				$p->descr = $descr;
-				$err_e_c = _T('zbug_erreur_compilation');
-				erreur_squelette($err_e_c, $p);
-		} // switch
-
-		if ($code != "''") {
-			$code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']);
-			$codes[] = (($mode == 'validation') ?
-				"array($code, '$commentaire', " . $p->ligne . ")"
-				: (($mode == 'code') ?
-					"\n// $commentaire\n$code" :
-					$code));
-		}
-	} // foreach
-
-	return $err_e_c ? false : $codes;
+                    and !preg_match(_REGEXP_COND_VIDE_NONVIDE, $code)
+                    and !preg_match(_REGEXP_COND_NONVIDE_VIDE, $code)
+                    and !preg_match(_REGEXP_CONCAT_NON_VIDE, $code)
+                ) {
+                    $code = "strval($code)";
+                }
+                break;
+
+            default:
+                // Erreur de construction de l'arbre de syntaxe abstraite
+                $code = "''";
+                $p->descr = $descr;
+                $err_e_c = _T('zbug_erreur_compilation');
+                erreur_squelette($err_e_c, $p);
+        } // switch
+
+        if ($code != "''") {
+            $code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']);
+            $codes[] = (($mode == 'validation') ?
+                "array($code, '$commentaire', " . $p->ligne . ")"
+                : (($mode == 'code') ?
+                    "\n// $commentaire\n$code" :
+                    $code));
+        }
+    } // foreach
+
+    return $err_e_c ? false : $codes;
 }
 
 // production d'une expression conditionnelle ((v=EXP) ? (p . v .s) : a)
@@ -1112,56 +1112,56 @@ 
 
 // http://code.spip.net/@compile_retour
 function compile_retour($code, $avant, $apres, $altern, $tab, $n) {
-	if ($avant == "''") {
-		$avant = '';
-	}
-	if ($apres == "''") {
-		$apres = '';
-	}
-	if (!$avant and !$apres and ($altern === "''")) {
-		return $code;
-	}
-
-	if (preg_match(_REGEXP_CONCAT_NON_VIDE, $code)) {
-		$t = $code;
-		$cond = '';
-	} elseif (preg_match(_REGEXP_COND_VIDE_NONVIDE, $code, $r)) {
-		$t = $r[2];
-		$cond = '!' . $r[1];
-	} else {
-		if (preg_match(_REGEXP_COND_NONVIDE_VIDE, $code, $r)) {
-			$t = $r[2];
-			$cond = $r[1];
-		} else {
-			$t = '$t' . $n;
-			$cond = "($t = $code)!==''";
-		}
-	}
-
-	$res = (!$avant ? "" : "$avant . ") .
-		$t .
-		(!$apres ? "" : " . $apres");
-
-	if ($res !== $t) {
-		$res = "($res)";
-	}
-
-	return !$cond ? $res : "($cond ?\n\t$tab$res :\n\t$tab$altern)";
+    if ($avant == "''") {
+        $avant = '';
+    }
+    if ($apres == "''") {
+        $apres = '';
+    }
+    if (!$avant and !$apres and ($altern === "''")) {
+        return $code;
+    }
+
+    if (preg_match(_REGEXP_CONCAT_NON_VIDE, $code)) {
+        $t = $code;
+        $cond = '';
+    } elseif (preg_match(_REGEXP_COND_VIDE_NONVIDE, $code, $r)) {
+        $t = $r[2];
+        $cond = '!' . $r[1];
+    } else {
+        if (preg_match(_REGEXP_COND_NONVIDE_VIDE, $code, $r)) {
+            $t = $r[2];
+            $cond = $r[1];
+        } else {
+            $t = '$t' . $n;
+            $cond = "($t = $code)!==''";
+        }
+    }
+
+    $res = (!$avant ? "" : "$avant . ") .
+        $t .
+        (!$apres ? "" : " . $apres");
+
+    if ($res !== $t) {
+        $res = "($res)";
+    }
+
+    return !$cond ? $res : "($cond ?\n\t$tab$res :\n\t$tab$altern)";
 }
 
 
 function compile_inclure_doublons($lexemes) {
-	foreach ($lexemes as $v) {
-		if ($v->type === 'include' and $v->param) {
-			foreach ($v->param as $r) {
-				if (trim($r[0]) === 'doublons') {
-					return true;
-				}
-			}
-		}
-	}
-
-	return false;
+    foreach ($lexemes as $v) {
+        if ($v->type === 'include' and $v->param) {
+            foreach ($v->param as $r) {
+                if (trim($r[0]) === 'doublons') {
+                    return true;
+                }
+            }
+        }
+    }
+
+    return false;
 }
 
 // Prend en argument le texte d'un squelette, le nom de son fichier d'origine,
@@ -1181,346 +1181,346 @@ 
 
 // http://code.spip.net/@public_compiler_dist
 function public_compiler_dist($squelette, $nom, $gram, $sourcefile, $connect = '') {
-	// Pre-traitement : reperer le charset du squelette, et le convertir
-	// Bonus : supprime le BOM
-	include_spip('inc/charsets');
-	$squelette = transcoder_page($squelette);
-
-	// rendre inertes les echappements de #[](){}<>
-	$i = 0;
-	while (false !== strpos($squelette, $inerte = '-INERTE' . $i)) {
-		$i++;
-	}
-	$squelette = preg_replace_callback(',\\\\([#[()\]{}<>]),',
-		function($a) use ($inerte) {
-			return "$inerte-" . ord($a[1]) . '-';
-		},
-		$squelette,
-		-1,
-		$esc
-	);
-
-	$descr = array(
-		'nom' => $nom,
-		'gram' => $gram,
-		'sourcefile' => $sourcefile,
-		'squelette' => $squelette
-	);
-
-	// Phraser le squelette, selon sa grammaire
-
-	$boucles = array();
-	$f = charger_fonction('phraser_' . $gram, 'public');
-
-	$squelette = $f($squelette, '', $boucles, $descr);
-
-	$boucles = compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect);
-
-	// restituer les echappements
-	if ($esc) {
-		foreach ($boucles as $i => $boucle) {
-			$boucles[$i]->return = preg_replace_callback(
-				",$inerte-(\d+)-,",
-				function($a) {
-					return chr($a[1]);
-				},
-				$boucle->return
-			);
-			$boucles[$i]->descr['squelette'] = preg_replace_callback(
-				",$inerte-(\d+)-,",
-				function($a) {
-					return "\\\\" . chr($a[1]);
-				},
-				$boucle->descr['squelette']
-			);
-		}
-	}
-
-	$debug = ($boucles and defined('_VAR_MODE') and _VAR_MODE == 'debug');
-	if ($debug) {
-		include_spip('public/decompiler');
-		foreach ($boucles as $id => $boucle) {
-			if ($id) {
-				$decomp = "\n/* BOUCLE " .
-					$boucle->type_requete .
-					" " .
-					str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')) .
-					($boucle->debug ? "\n *\n * " . implode("\n * ", $boucle->debug) . "\n" : '') .
-					" */\n";
-			} else {
-				$decomp = ("\n/*\n" .
-					str_replace('*/', '* /', public_decompiler($squelette, $gram))
-					. "\n*/");
-			}
-			$boucles[$id]->return = $decomp . $boucle->return;
-			$GLOBALS['debug_objets']['code'][$nom . $id] = $boucle->return;
-		}
-	}
-
-	return $boucles;
+    // Pre-traitement : reperer le charset du squelette, et le convertir
+    // Bonus : supprime le BOM
+    include_spip('inc/charsets');
+    $squelette = transcoder_page($squelette);
+
+    // rendre inertes les echappements de #[](){}<>
+    $i = 0;
+    while (false !== strpos($squelette, $inerte = '-INERTE' . $i)) {
+        $i++;
+    }
+    $squelette = preg_replace_callback(',\\\\([#[()\]{}<>]),',
+        function($a) use ($inerte) {
+            return "$inerte-" . ord($a[1]) . '-';
+        },
+        $squelette,
+        -1,
+        $esc
+    );
+
+    $descr = array(
+        'nom' => $nom,
+        'gram' => $gram,
+        'sourcefile' => $sourcefile,
+        'squelette' => $squelette
+    );
+
+    // Phraser le squelette, selon sa grammaire
+
+    $boucles = array();
+    $f = charger_fonction('phraser_' . $gram, 'public');
+
+    $squelette = $f($squelette, '', $boucles, $descr);
+
+    $boucles = compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect);
+
+    // restituer les echappements
+    if ($esc) {
+        foreach ($boucles as $i => $boucle) {
+            $boucles[$i]->return = preg_replace_callback(
+                ",$inerte-(\d+)-,",
+                function($a) {
+                    return chr($a[1]);
+                },
+                $boucle->return
+            );
+            $boucles[$i]->descr['squelette'] = preg_replace_callback(
+                ",$inerte-(\d+)-,",
+                function($a) {
+                    return "\\\\" . chr($a[1]);
+                },
+                $boucle->descr['squelette']
+            );
+        }
+    }
+
+    $debug = ($boucles and defined('_VAR_MODE') and _VAR_MODE == 'debug');
+    if ($debug) {
+        include_spip('public/decompiler');
+        foreach ($boucles as $id => $boucle) {
+            if ($id) {
+                $decomp = "\n/* BOUCLE " .
+                    $boucle->type_requete .
+                    " " .
+                    str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')) .
+                    ($boucle->debug ? "\n *\n * " . implode("\n * ", $boucle->debug) . "\n" : '') .
+                    " */\n";
+            } else {
+                $decomp = ("\n/*\n" .
+                    str_replace('*/', '* /', public_decompiler($squelette, $gram))
+                    . "\n*/");
+            }
+            $boucles[$id]->return = $decomp . $boucle->return;
+            $GLOBALS['debug_objets']['code'][$nom . $id] = $boucle->return;
+        }
+    }
+
+    return $boucles;
 }
 
 // Point d'entree pour arbre de syntaxe abstraite fourni en premier argument
 // Autres specifications comme ci-dessus
 
 function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect = '') {
-	static $trouver_table;
-	spip_timer('calcul_skel');
-
-	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
-		$GLOBALS['debug_objets']['squelette'][$nom] = $descr['squelette'];
-		$GLOBALS['debug_objets']['sourcefile'][$nom] = $sourcefile;
-
-		if (!isset($GLOBALS['debug_objets']['principal'])) {
-			$GLOBALS['debug_objets']['principal'] = $nom;
-		}
-	}
-	foreach ($boucles as $id => $boucle) {
-		$GLOBALS['debug_objets']['boucle'][$nom . $id] = $boucle;
-	}
-	$descr['documents'] = compile_inclure_doublons($squelette);
-
-	// Demander la description des tables une fois pour toutes
-	if (!$trouver_table) {
-		$trouver_table = charger_fonction('trouver_table', 'base');
-	}
-
-	// reperer si les doublons sont demandes
-	// pour un inclure ou une boucle document
-	// c'est utile a la fonction champs_traitements
-	foreach ($boucles as $id => $boucle) {
-		if (!($type = $boucle->type_requete)) {
-			continue;
-		}
-		if (!$descr['documents'] and (
-				(($type == 'documents') and $boucle->doublons) or
-				compile_inclure_doublons($boucle->avant) or
-				compile_inclure_doublons($boucle->apres) or
-				compile_inclure_doublons($boucle->milieu) or
-				compile_inclure_doublons($boucle->altern))
-		) {
-			$descr['documents'] = true;
-		}
-		if ($type != TYPE_RECURSIF) {
-			if (!$boucles[$id]->sql_serveur and $connect) {
-				$boucles[$id]->sql_serveur = $connect;
-			}
-
-			// chercher dans les iterateurs du repertoire iterateur/
-			if ($g = charger_fonction(
-				preg_replace('/\W/', '_', $boucle->type_requete), 'iterateur', true)
-			) {
-				$boucles[$id] = $g($boucle);
-
-				// sinon, en cas de requeteur d'un type predefini,
-				// utiliser les informations donnees par le requeteur
-				// cas "php:xx" et "data:xx".
-			} else {
-				if ($boucle->sql_serveur and $requeteur = charger_fonction($boucle->sql_serveur, 'requeteur', true)) {
-					$requeteur($boucles, $boucle, $id);
-
-					// utiliser la description des champs transmis
-				} else {
-					$show = $trouver_table($type, $boucles[$id]->sql_serveur);
-					// si la table n'existe pas avec le connecteur par defaut,
-					// c'est peut etre une table qui necessite son connecteur dedie fourni
-					// permet une ecriture allegee (GEO) -> (geo:GEO)
-					if (!$show
-						and $show = $trouver_table($type, strtolower($type))
-					) {
-						$boucles[$id]->sql_serveur = strtolower($type);
-					}
-					if ($show) {
-						$boucles[$id]->show = $show;
-						// recopie les infos les plus importantes
-						$boucles[$id]->primary = isset($show['key']["PRIMARY KEY"]) ? $show['key']["PRIMARY KEY"] : '';
-						$boucles[$id]->id_table = $x = preg_replace(",^spip_,", "", $show['id_table']);
-						$boucles[$id]->from[$x] = $nom_table = $show['table'];
-						$boucles[$id]->iterateur = 'SQL';
-
-						$boucles[$id]->descr = &$descr;
-						if ((!$boucles[$id]->jointures)
-							and is_array($show['tables_jointures'])
-							and count($x = $show['tables_jointures'])
-						) {
-							$boucles[$id]->jointures = $x;
-						}
-						if ($boucles[$id]->jointures_explicites) {
-							$jointures = preg_split("/\s+/", $boucles[$id]->jointures_explicites);
-							while ($j = array_pop($jointures)) {
-								array_unshift($boucles[$id]->jointures, $j);
-							}
-						}
-					} else {
-						// Pas une erreur si la table est optionnelle
-						if ($boucles[$id]->table_optionnelle) {
-							$boucles[$id]->type_requete = '';
-						} else {
-							$boucles[$id]->type_requete = false;
-							$boucle = $boucles[$id];
-							$x = (!$boucle->sql_serveur ? '' :
-									($boucle->sql_serveur . ":")) .
-								$type;
-							$msg = array(
-								'zbug_table_inconnue',
-								array('table' => $x)
-							);
-							erreur_squelette($msg, $boucle);
-						}
-					}
-				}
-			}
-		}
-	}
-
-	// Commencer par reperer les boucles appelees explicitement 
-	// car elles indexent les arguments de maniere derogatoire
-	foreach ($boucles as $id => $boucle) {
-		if ($boucle->type_requete == TYPE_RECURSIF and $boucle->param) {
-			$boucles[$id]->descr = &$descr;
-			$rec = &$boucles[$boucle->param[0]];
-			if (!$rec) {
-				$msg = array(
-					'zbug_boucle_recursive_undef',
-					array('nom' => $boucle->param[0])
-				);
-				erreur_squelette($msg, $boucle);
-				$boucles[$id]->type_requete = false;
-			} else {
-				$rec->externe = $id;
-				$descr['id_mere'] = $id;
-				$boucles[$id]->return =
-					calculer_liste(array($rec),
-						$descr,
-						$boucles,
-						$boucle->param);
-			}
-		}
-	}
-	foreach ($boucles as $id => $boucle) {
-		$id = strval($id); // attention au type dans index_pile
-		$type = $boucle->type_requete;
-		if ($type and $type != TYPE_RECURSIF) {
-			$res = '';
-			if ($boucle->param) {
-				// retourne un tableau en cas d'erreur
-				$res = calculer_criteres($id, $boucles);
-			}
-			$descr['id_mere'] = $id;
-			$boucles[$id]->return =
-				calculer_liste($boucle->milieu,
-					$descr,
-					$boucles,
-					$id);
-			// Si les criteres se sont mal compiles
-			// ne pas tenter d'assembler le code final
-			// (mais compiler le corps pour detection d'erreurs)
-			if (is_array($res)) {
-				$boucles[$id]->type_requete = false;
-			}
-		}
-	}
-
-	// idem pour la racine
-	$descr['id_mere'] = '';
-	$corps = calculer_liste($squelette, $descr, $boucles);
-
-
-	// Calcul du corps de toutes les fonctions PHP,
-	// en particulier les requetes SQL et TOTAL_BOUCLE
-	// de'terminables seulement maintenant
-
-	foreach ($boucles as $id => $boucle) {
-		$boucle = $boucles[$id] = pipeline('pre_boucle', $boucle);
-		if ($boucle->return === false) {
-			$corps = false;
-			continue;
-		}
-		// appeler la fonction de definition de la boucle
-
-		if ($req = $boucle->type_requete) {
-			// boucle personnalisée ?
-			$table = strtoupper($boucle->type_requete);
-			$serveur = strtolower($boucle->sql_serveur);
-			if (
-				// fonction de boucle avec serveur & table
-				(!$serveur or
-					((!function_exists($f = "boucle_" . $serveur . "_" . $table))
-						and (!function_exists($f = $f . "_dist"))
-					)
-				)
-				// fonction de boucle avec table
-				and (!function_exists($f = "boucle_" . $table))
-				and (!function_exists($f = $f . "_dist"))
-			) {
-				// fonction de boucle standard 
-				if (!function_exists($f = 'boucle_DEFAUT')) {
-					$f = 'boucle_DEFAUT_dist';
-				}
-			}
-
-			$req = "\n\n\tstatic \$command = array();\n\t" .
-				"static \$connect;\n\t" .
-				"\$command['connect'] = \$connect = " .
-				_q($boucle->sql_serveur) .
-				";" .
-				$f($id, $boucles);
-		} else {
-			$req = ("\n\treturn '';");
-		}
-
-		$boucles[$id]->return =
-			"\n\nfunction BOUCLE" . strtr($id, "-", "_") . $nom .
-			'(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {' .
-			$req .
-			"\n}\n";
-	}
-
-	// Au final, si le corps ou un critere au moins s'est mal compile
-	// retourner False, sinon inserer leur decompilation
-	if (is_bool($corps)) {
-		return false;
-	}
-
-	$principal = "\nfunction " . $nom . '($Cache, $Pile, $doublons = array(), $Numrows = array(), $SP = 0) {
+    static $trouver_table;
+    spip_timer('calcul_skel');
+
+    if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
+        $GLOBALS['debug_objets']['squelette'][$nom] = $descr['squelette'];
+        $GLOBALS['debug_objets']['sourcefile'][$nom] = $sourcefile;
+
+        if (!isset($GLOBALS['debug_objets']['principal'])) {
+            $GLOBALS['debug_objets']['principal'] = $nom;
+        }
+    }
+    foreach ($boucles as $id => $boucle) {
+        $GLOBALS['debug_objets']['boucle'][$nom . $id] = $boucle;
+    }
+    $descr['documents'] = compile_inclure_doublons($squelette);
+
+    // Demander la description des tables une fois pour toutes
+    if (!$trouver_table) {
+        $trouver_table = charger_fonction('trouver_table', 'base');
+    }
+
+    // reperer si les doublons sont demandes
+    // pour un inclure ou une boucle document
+    // c'est utile a la fonction champs_traitements
+    foreach ($boucles as $id => $boucle) {
+        if (!($type = $boucle->type_requete)) {
+            continue;
+        }
+        if (!$descr['documents'] and (
+                (($type == 'documents') and $boucle->doublons) or
+                compile_inclure_doublons($boucle->avant) or
+                compile_inclure_doublons($boucle->apres) or
+                compile_inclure_doublons($boucle->milieu) or
+                compile_inclure_doublons($boucle->altern))
+        ) {
+            $descr['documents'] = true;
+        }
+        if ($type != TYPE_RECURSIF) {
+            if (!$boucles[$id]->sql_serveur and $connect) {
+                $boucles[$id]->sql_serveur = $connect;
+            }
+
+            // chercher dans les iterateurs du repertoire iterateur/
+            if ($g = charger_fonction(
+                preg_replace('/\W/', '_', $boucle->type_requete), 'iterateur', true)
+            ) {
+                $boucles[$id] = $g($boucle);
+
+                // sinon, en cas de requeteur d'un type predefini,
+                // utiliser les informations donnees par le requeteur
+                // cas "php:xx" et "data:xx".
+            } else {
+                if ($boucle->sql_serveur and $requeteur = charger_fonction($boucle->sql_serveur, 'requeteur', true)) {
+                    $requeteur($boucles, $boucle, $id);
+
+                    // utiliser la description des champs transmis
+                } else {
+                    $show = $trouver_table($type, $boucles[$id]->sql_serveur);
+                    // si la table n'existe pas avec le connecteur par defaut,
+                    // c'est peut etre une table qui necessite son connecteur dedie fourni
+                    // permet une ecriture allegee (GEO) -> (geo:GEO)
+                    if (!$show
+                        and $show = $trouver_table($type, strtolower($type))
+                    ) {
+                        $boucles[$id]->sql_serveur = strtolower($type);
+                    }
+                    if ($show) {
+                        $boucles[$id]->show = $show;
+                        // recopie les infos les plus importantes
+                        $boucles[$id]->primary = isset($show['key']["PRIMARY KEY"]) ? $show['key']["PRIMARY KEY"] : '';
+                        $boucles[$id]->id_table = $x = preg_replace(",^spip_,", "", $show['id_table']);
+                        $boucles[$id]->from[$x] = $nom_table = $show['table'];
+                        $boucles[$id]->iterateur = 'SQL';
+
+                        $boucles[$id]->descr = &$descr;
+                        if ((!$boucles[$id]->jointures)
+                            and is_array($show['tables_jointures'])
+                            and count($x = $show['tables_jointures'])
+                        ) {
+                            $boucles[$id]->jointures = $x;
+                        }
+                        if ($boucles[$id]->jointures_explicites) {
+                            $jointures = preg_split("/\s+/", $boucles[$id]->jointures_explicites);
+                            while ($j = array_pop($jointures)) {
+                                array_unshift($boucles[$id]->jointures, $j);
+                            }
+                        }
+                    } else {
+                        // Pas une erreur si la table est optionnelle
+                        if ($boucles[$id]->table_optionnelle) {
+                            $boucles[$id]->type_requete = '';
+                        } else {
+                            $boucles[$id]->type_requete = false;
+                            $boucle = $boucles[$id];
+                            $x = (!$boucle->sql_serveur ? '' :
+                                    ($boucle->sql_serveur . ":")) .
+                                $type;
+                            $msg = array(
+                                'zbug_table_inconnue',
+                                array('table' => $x)
+                            );
+                            erreur_squelette($msg, $boucle);
+                        }
+                    }
+                }
+            }
+        }
+    }
+
+    // Commencer par reperer les boucles appelees explicitement 
+    // car elles indexent les arguments de maniere derogatoire
+    foreach ($boucles as $id => $boucle) {
+        if ($boucle->type_requete == TYPE_RECURSIF and $boucle->param) {
+            $boucles[$id]->descr = &$descr;
+            $rec = &$boucles[$boucle->param[0]];
+            if (!$rec) {
+                $msg = array(
+                    'zbug_boucle_recursive_undef',
+                    array('nom' => $boucle->param[0])
+                );
+                erreur_squelette($msg, $boucle);
+                $boucles[$id]->type_requete = false;
+            } else {
+                $rec->externe = $id;
+                $descr['id_mere'] = $id;
+                $boucles[$id]->return =
+                    calculer_liste(array($rec),
+                        $descr,
+                        $boucles,
+                        $boucle->param);
+            }
+        }
+    }
+    foreach ($boucles as $id => $boucle) {
+        $id = strval($id); // attention au type dans index_pile
+        $type = $boucle->type_requete;
+        if ($type and $type != TYPE_RECURSIF) {
+            $res = '';
+            if ($boucle->param) {
+                // retourne un tableau en cas d'erreur
+                $res = calculer_criteres($id, $boucles);
+            }
+            $descr['id_mere'] = $id;
+            $boucles[$id]->return =
+                calculer_liste($boucle->milieu,
+                    $descr,
+                    $boucles,
+                    $id);
+            // Si les criteres se sont mal compiles
+            // ne pas tenter d'assembler le code final
+            // (mais compiler le corps pour detection d'erreurs)
+            if (is_array($res)) {
+                $boucles[$id]->type_requete = false;
+            }
+        }
+    }
+
+    // idem pour la racine
+    $descr['id_mere'] = '';
+    $corps = calculer_liste($squelette, $descr, $boucles);
+
+
+    // Calcul du corps de toutes les fonctions PHP,
+    // en particulier les requetes SQL et TOTAL_BOUCLE
+    // de'terminables seulement maintenant
+
+    foreach ($boucles as $id => $boucle) {
+        $boucle = $boucles[$id] = pipeline('pre_boucle', $boucle);
+        if ($boucle->return === false) {
+            $corps = false;
+            continue;
+        }
+        // appeler la fonction de definition de la boucle
+
+        if ($req = $boucle->type_requete) {
+            // boucle personnalisée ?
+            $table = strtoupper($boucle->type_requete);
+            $serveur = strtolower($boucle->sql_serveur);
+            if (
+                // fonction de boucle avec serveur & table
+                (!$serveur or
+                    ((!function_exists($f = "boucle_" . $serveur . "_" . $table))
+                        and (!function_exists($f = $f . "_dist"))
+                    )
+                )
+                // fonction de boucle avec table
+                and (!function_exists($f = "boucle_" . $table))
+                and (!function_exists($f = $f . "_dist"))
+            ) {
+                // fonction de boucle standard 
+                if (!function_exists($f = 'boucle_DEFAUT')) {
+                    $f = 'boucle_DEFAUT_dist';
+                }
+            }
+
+            $req = "\n\n\tstatic \$command = array();\n\t" .
+                "static \$connect;\n\t" .
+                "\$command['connect'] = \$connect = " .
+                _q($boucle->sql_serveur) .
+                ";" .
+                $f($id, $boucles);
+        } else {
+            $req = ("\n\treturn '';");
+        }
+
+        $boucles[$id]->return =
+            "\n\nfunction BOUCLE" . strtr($id, "-", "_") . $nom .
+            '(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {' .
+            $req .
+            "\n}\n";
+    }
+
+    // Au final, si le corps ou un critere au moins s'est mal compile
+    // retourner False, sinon inserer leur decompilation
+    if (is_bool($corps)) {
+        return false;
+    }
+
+    $principal = "\nfunction " . $nom . '($Cache, $Pile, $doublons = array(), $Numrows = array(), $SP = 0) {
 '
-		// reporter de maniere securisee les doublons inclus
-		. '
+        // reporter de maniere securisee les doublons inclus
+        . '
 	if (isset($Pile[0]["doublons"]) AND is_array($Pile[0]["doublons"]))
 		$doublons = nettoyer_env_doublons($Pile[0]["doublons"]);
 
 	$connect = ' .
-		_q($connect) . ';
+        _q($connect) . ';
 	$page = ' .
-		// ATTENTION, le calcul de l'expression $corps affectera $Cache
-		// c'est pourquoi on l'affecte a la variable auxiliaire $page.
-		// avant de referencer $Cache
-		$corps . ";
+        // ATTENTION, le calcul de l'expression $corps affectera $Cache
+        // c'est pourquoi on l'affecte a la variable auxiliaire $page.
+        // avant de referencer $Cache
+        $corps . ";
 
 	return analyse_resultat_skel(" . var_export($nom, true)
-		. ", \$Cache, \$page, " . var_export($sourcefile, true) . ");
+        . ", \$Cache, \$page, " . var_export($sourcefile, true) . ");
 }";
 
-	$secondes = spip_timer('calcul_skel');
-	spip_log("COMPIL ($secondes) [$sourcefile] $nom.php");
-	// $connect n'est pas sûr : on nettoie
-	$connect = preg_replace(',[^\w],', '', $connect);
+    $secondes = spip_timer('calcul_skel');
+    spip_log("COMPIL ($secondes) [$sourcefile] $nom.php");
+    // $connect n'est pas sûr : on nettoie
+    $connect = preg_replace(',[^\w],', '', $connect);
 
-	// Assimiler la fct principale a une boucle anonyme, pour retourner un resultat simple
-	$code = new Boucle;
-	$code->descr = $descr;
-	$code->return = '
+    // Assimiler la fct principale a une boucle anonyme, pour retourner un resultat simple
+    $code = new Boucle;
+    $code->descr = $descr;
+    $code->return = '
 //
 // Fonction principale du squelette ' .
-		$sourcefile .
-		($connect ? " pour $connect" : '') .
-		(!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") .
-		"\n//\n" .
-		$principal;
+        $sourcefile .
+        ($connect ? " pour $connect" : '') .
+        (!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") .
+        "\n//\n" .
+        $principal;
 
-	$boucles[''] = $code;
+    $boucles[''] = $code;
 
-	return $boucles;
+    return $boucles;
 }
 
 
@@ -1537,18 +1537,18 @@ 
  *
  **/
 function requeteur_php_dist(&$boucles, &$boucle, &$id) {
-	if (class_exists($boucle->type_requete)) {
-		$g = charger_fonction('php', 'iterateur');
-		$boucles[$id] = $g($boucle, $boucle->type_requete);
-	} else {
-		$x = $boucle->type_requete;
-		$boucle->type_requete = false;
-		$msg = array(
-			'zbug_iterateur_inconnu',
-			array('iterateur' => $x)
-		);
-		erreur_squelette($msg, $boucle);
-	}
+    if (class_exists($boucle->type_requete)) {
+        $g = charger_fonction('php', 'iterateur');
+        $boucles[$id] = $g($boucle, $boucle->type_requete);
+    } else {
+        $x = $boucle->type_requete;
+        $boucle->type_requete = false;
+        $msg = array(
+            'zbug_iterateur_inconnu',
+            array('iterateur' => $x)
+        );
+        erreur_squelette($msg, $boucle);
+    }
 }
 
 
@@ -1566,23 +1566,23 @@ 
  *
  **/
 function requeteur_data_dist(&$boucles, &$boucle, &$id) {
-	include_spip('iterateur/data');
-	if ($h = charger_fonction($boucle->type_requete . '_to_array', 'inc', true)) {
-		$g = charger_fonction('data', 'iterateur');
-		$boucles[$id] = $g($boucle);
-		// from[0] stocke le type de data (rss, yql, ...)
-		$boucles[$id]->from[] = $boucle->type_requete;
-
-	} else {
-		$x = $boucle->type_requete;
-		$boucle->type_requete = false;
-		$msg = array(
-			'zbug_requeteur_inconnu',
-			array(
-				'requeteur' => 'data',
-				'type' => $x
-			)
-		);
-		erreur_squelette($msg, $boucle);
-	}
+    include_spip('iterateur/data');
+    if ($h = charger_fonction($boucle->type_requete . '_to_array', 'inc', true)) {
+        $g = charger_fonction('data', 'iterateur');
+        $boucles[$id] = $g($boucle);
+        // from[0] stocke le type de data (rss, yql, ...)
+        $boucles[$id]->from[] = $boucle->type_requete;
+
+    } else {
+        $x = $boucle->type_requete;
+        $boucle->type_requete = false;
+        $msg = array(
+            'zbug_requeteur_inconnu',
+            array(
+                'requeteur' => 'data',
+                'type' => $x
+            )
+        );
+        erreur_squelette($msg, $boucle);
+    }
 }

Spacing +108 added lines, -116 removed lines

@@ -97,7 +97,7 @@ 
 				preg_match(",^([^=]*)(=?)(.*)$,m", $var->texte, $m);
 				$m = array_pad($m, 3, null);
 				$var = $m[1];
-				$auto = false;;
+				$auto = false; ;
 				if ($m[2]) {
 					$v = $m[3];
 					if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) {
@@ -121,7 +121,7 @@ 
 						: calculer_liste($val, $p->descr, $boucles, $id_boucle);
 					if ($var !== 1) {
 						$val = ($echap ? "\'$var\' => ' . argumenter_squelette(" : "'$var' => ")
-							. $val . ($echap ? ") . '" : " ");
+							. $val.($echap ? ") . '" : " ");
 					} else {
 						$val = $echap ? "'.$val.'" : $val;
 					}
@@ -142,7 +142,7 @@ 
 	if (!$lang) {
 		$lang = '$GLOBALS["spip_lang"]';
 	}
-	$l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ") . $lang . ($echap ? ") . '" : " ");
+	$l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ").$lang.($echap ? ") . '" : " ");
 
 	return $l;
 }
@@ -171,7 +171,7 @@ 
 	$_contexte = argumenter_inclure($p->param, false, $p, $boucles, $id_boucle, true, '', true);
 	if (is_string($p->texte)) {
 		$fichier = $p->texte;
-		$code = "\"".str_replace('"','\"',$fichier)."\"";
+		$code = "\"".str_replace('"', '\"', $fichier)."\"";
 
 	} else {
 		$code = calculer_liste($p->texte, $p->descr, $boucles, $id_boucle);
@@ -213,7 +213,7 @@ 
 		return false;
 	} // j'aurais voulu toucher le fond ...
 
-	$contexte = 'array(' . $_contexte . ')';
+	$contexte = 'array('.$_contexte.')';
 
 	if ($env) {
 		$contexte = "array_merge('.var_export(\$Pile[0],1).',$contexte)";
@@ -228,11 +228,11 @@ 
 			$_options[] = $ajax;
 		}
 		$code = " ' . argumenter_squelette($code) . '";
-		$code = "echo " . sprintf(CODE_RECUPERER_FOND, $code, $contexte, implode(',', $_options),
-				"_request(\"connect\")") . ';';
+		$code = "echo ".sprintf(CODE_RECUPERER_FOND, $code, $contexte, implode(',', $_options),
+				"_request(\"connect\")").';';
 	}
 
-	return "\n'<'.'" . "?php " . $code . "\n?'." . "'>'";
+	return "\n'<'.'"."?php ".$code."\n?'."."'>'";
 }
 
 
@@ -312,17 +312,17 @@ 
 					$id = $id_table;
 					$statut = preg_replace(',\W,', '', $s['champ']); // securite
 				}
-				$mstatut = $id . '.' . $statut;
+				$mstatut = $id.'.'.$statut;
 
 				$arg_ignore_previsu = ($ignore_previsu ? ",true" : '');
 				include_spip('public/quete');
 				if (isset($s['post_date']) and $s['post_date']
 					and $GLOBALS['meta']["post_dates"] == 'non'
 				) {
-					$date = $id . '.' . preg_replace(',\W,', '', $s['post_date']); // securite
+					$date = $id.'.'.preg_replace(',\W,', '', $s['post_date']); // securite
 					array_unshift($boucle->where,
 						$echapper ?
-							"\nquete_condition_postdates('$date'," . _q($boucle->sql_serveur) . "$arg_ignore_previsu)"
+							"\nquete_condition_postdates('$date',"._q($boucle->sql_serveur)."$arg_ignore_previsu)"
 							:
 							quete_condition_postdates($date, $boucle->sql_serveur, $ignore_previsu)
 					);
@@ -330,9 +330,9 @@ 
 				array_unshift($boucle->where,
 					$echapper ?
 						"\nquete_condition_statut('$mstatut',"
-						. _q($s['previsu']) . ","
-						. _q($s['publie']) . ","
-						. _q($boucle->sql_serveur) . "$arg_ignore_previsu)"
+						. _q($s['previsu']).","
+						. _q($s['publie']).","
+						. _q($boucle->sql_serveur)."$arg_ignore_previsu)"
 						:
 						quete_condition_statut($mstatut, $s['previsu'], $s['publie'], $boucle->sql_serveur, $ignore_previsu)
 				);
@@ -366,7 +366,7 @@ 
 	if (_request('var_mode_affiche') != 'resultat') {
 		$trace = '';
 	} else {
-		$trace = $boucles[$id_boucle]->descr['nom'] . $id_boucle;
+		$trace = $boucles[$id_boucle]->descr['nom'].$id_boucle;
 		$trace = "if (count(@\$GLOBALS['debug_objets']['resultat']['$trace'])<3)
 	    \$GLOBALS['debug_objets']['resultat']['$trace'][] = \$t0;";
 	}
@@ -401,7 +401,7 @@ 
 	return
 		// Numrows[$nom] peut ne pas être encore defini
 		"\n\t\$save_numrows = (isset(\$Numrows['$nom']) ? \$Numrows['$nom'] : array());"
-		. "\n\t\$t0 = " . $boucles[$id_boucle]->return . ";"
+		. "\n\t\$t0 = ".$boucles[$id_boucle]->return.";"
 		. "\n\t\$Numrows['$nom'] = (\$save_numrows);"
 		. $trace
 		. "\n\treturn \$t0;";
@@ -469,7 +469,7 @@ 
 	// faudrait expanser le foreach a la compil, car y en a souvent qu'un 
 	// et puis faire un [] plutot qu'un "','."
 	if ($boucle->doublons) {
-		$corps .= "\n\t\t\tforeach(" . $boucle->doublons . ' as $k) $doublons[$k] .= "," . ' .
+		$corps .= "\n\t\t\tforeach(".$boucle->doublons.' as $k) $doublons[$k] .= "," . '.
 			index_pile($id_boucle, $primary, $boucles)
 			. "; // doublons\n";
 	}
@@ -496,13 +496,13 @@ 
 		$corps .=
 			"\n\t\tlang_select_public("
 			. index_pile($id_boucle, 'lang', $boucles)
-			. ", '" . $boucle->lang_select . "'"
+			. ", '".$boucle->lang_select."'"
 			. (in_array($type_boucle, array(
 				'articles',
 				'rubriques',
 				'hierarchie',
 				'breves'
-			)) ? ', ' . index_pile($id_boucle, 'titre', $boucles) : '')
+			)) ? ', '.index_pile($id_boucle, 'titre', $boucles) : '')
 			. ');';
 	} else {
 		$init_lang = '';
@@ -523,26 +523,22 @@ 
 
 	// gestion optimale des separateurs et des boucles constantes
 	if (count($boucle->separateur)) {
-		$code_sep = ("'" . str_replace("'", "\'", join('', $boucle->separateur)) . "'");
+		$code_sep = ("'".str_replace("'", "\'", join('', $boucle->separateur))."'");
 	}
 
 	$corps .=
 		((!$boucle->separateur) ?
-			(($constant && !$corps && !$flag_cpt) ? $return :
-				(($return === "''") ? '' :
-					("\n\t\t" . '$t0 .= ' . $return . ";"))) :
-			("\n\t\t\$t1 " .
+			(($constant && !$corps && !$flag_cpt) ? $return : (($return === "''") ? '' : ("\n\t\t".'$t0 .= '.$return.";"))) : ("\n\t\t\$t1 ".
 				((strpos($return, '$t1.') === 0) ?
-					(".=" . substr($return, 4)) :
-					('= ' . $return)) .
-				";\n\t\t" .
-				'$t0 .= ((strlen($t1) && strlen($t0)) ? ' . $code_sep . " : '') . \$t1;"));
+					(".=".substr($return, 4)) : ('= '.$return)).
+				";\n\t\t".
+				'$t0 .= ((strlen($t1) && strlen($t0)) ? '.$code_sep." : '') . \$t1;"));
 
 	// Calculer les invalideurs si c'est une boucle non constante et si on
 	// souhaite invalider ces elements
 	if (!$constant and $primary) {
 		include_spip('inc/invalideur');
-		$corps = calcul_invalideurs($corps, $primary,$boucles, $id_boucle);
+		$corps = calcul_invalideurs($corps, $primary, $boucles, $id_boucle);
 	}
 
 	// gerer le compteur de boucle 
@@ -616,7 +612,7 @@ 
 		$corps,
 		$fin_lang,
 		$trace,
-		'BOUCLE' . $id_boucle . ' @ ' . ($boucle->descr['sourcefile'])
+		'BOUCLE'.$id_boucle.' @ '.($boucle->descr['sourcefile'])
 	);
 
 #	var_dump($a);exit;
@@ -637,20 +633,20 @@ 
  **/
 function calculer_requete_sql($boucle) {
 	$init = array();
-	$init[] = calculer_dec('table', "'" . $boucle->id_table . "'");
-	$init[] = calculer_dec('id', "'" . $boucle->id_boucle . "'");
+	$init[] = calculer_dec('table', "'".$boucle->id_table."'");
+	$init[] = calculer_dec('id', "'".$boucle->id_boucle."'");
 	# En absence de champ c'est un decompte :
 	$init[] = calculer_dec('from', calculer_from($boucle));
 	$init[] = calculer_dec('type', calculer_from_type($boucle));
 	$init[] = calculer_dec('groupby',
-		'array(' . (($g = join("\",\n\t\t\"", $boucle->group)) ? '"' . $g . '"' : '') . ")");
-	$init[] = calculer_dec('select', 'array("' . join("\",\n\t\t\"", $boucle->select) . "\")");
-	$init[] = calculer_dec('orderby', 'array(' . calculer_order($boucle) . ")");
+		'array('.(($g = join("\",\n\t\t\"", $boucle->group)) ? '"'.$g.'"' : '').")");
+	$init[] = calculer_dec('select', 'array("'.join("\",\n\t\t\"", $boucle->select)."\")");
+	$init[] = calculer_dec('orderby', 'array('.calculer_order($boucle).")");
 	$init[] = calculer_dec('where', calculer_dump_array($boucle->where));
 	$init[] = calculer_dec('join', calculer_dump_join($boucle->join));
 	$init[] = calculer_dec('limit',
 		(strpos($boucle->limit, 'intval') === false ?
-			"'" . $boucle->limit . "'"
+			"'".$boucle->limit."'"
 			:
 			$boucle->limit));
 	$init[] = calculer_dec('having', calculer_dump_array($boucle->having));
@@ -659,17 +655,17 @@ 
 	// ou recalculée à chaque passage (vide)
 	foreach ($init as $i) {
 		if (reset($i)) {
-			$s .= "\n\t\t" . end($i);
+			$s .= "\n\t\t".end($i);
 		} # statique
 		else {
-			$d .= "\n\t" . end($i);
+			$d .= "\n\t".end($i);
 		} # dynamique
 	}
 
 	return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
 	. $boucle->in
 	. $boucle->hash
-	. "\n\t" . 'if (!isset($command[\'table\'])) {'
+	. "\n\t".'if (!isset($command[\'table\'])) {'
 	. $s
 	. "\n\t}"
 	. $d;
@@ -752,7 +748,7 @@ 
  *    - index 1 : Code de l'affectation
  **/
 function calculer_dec($nom, $val) {
-	$static = 'if (!isset($command[\'' . $nom . '\'])) ';
+	$static = 'if (!isset($command[\''.$nom.'\'])) ';
 	// si une variable apparait dans le calcul de la clause
 	// il faut la re-evaluer a chaque passage
 	if (
@@ -769,7 +765,7 @@ 
 		$static = "";
 	}
 
-	return array($static, '$command[\'' . $nom . '\'] = ' . $val . ';');
+	return array($static, '$command[\''.$nom.'\'] = '.$val.';');
 }
 
 /**
@@ -794,16 +790,16 @@ 
 	}
 	$res = "";
 	if ($a and $a[0] == "'?'") {
-		return ("(" . calculer_dump_array($a[1]) .
-			" ? " . calculer_dump_array($a[2]) .
-			" : " . calculer_dump_array($a[3]) .
+		return ("(".calculer_dump_array($a[1]).
+			" ? ".calculer_dump_array($a[2]).
+			" : ".calculer_dump_array($a[3]).
 			")");
 	} else {
 		foreach ($a as $v) {
-			$res .= ", " . calculer_dump_array($v);
+			$res .= ", ".calculer_dump_array($v);
 		}
 
-		return "\n\t\t\tarray(" . substr($res, 2) . ')';
+		return "\n\t\t\tarray(".substr($res, 2).')';
 	}
 }
 
@@ -811,10 +807,10 @@ 
 function calculer_dump_join($a) {
 	$res = "";
 	foreach ($a as $k => $v) {
-		$res .= ", '$k' => array(" . implode(',', $v) . ")";
+		$res .= ", '$k' => array(".implode(',', $v).")";
 	}
 
-	return 'array(' . substr($res, 2) . ')';
+	return 'array('.substr($res, 2).')';
 }
 
 /**
@@ -831,7 +827,7 @@ 
 		$res .= ",'$k' => '$v'";
 	}
 
-	return 'array(' . substr($res, 1) . ')';
+	return 'array('.substr($res, 1).')';
 }
 
 /**
@@ -849,7 +845,7 @@ 
 		$res .= ",'$k' => '$v'";
 	}
 
-	return 'array(' . substr($res, 1) . ')';
+	return 'array('.substr($res, 1).')';
 }
 
 // http://code.spip.net/@calculer_order
@@ -903,17 +899,17 @@ 
 				) {
 					$res .= " .\n$tab$code";
 				} else {
-					$res = substr($res, 0, -1) . substr($code, 1);
+					$res = substr($res, 0, -1).substr($code, 1);
 				}
 			}
 
-			return '(' . substr($res, 2 + $descr['niv']) . ')';
+			return '('.substr($res, 2 + $descr['niv']).')';
 		}
 	} else {
-		$nom = $descr['nom'] . $id_boucle . ($descr['niv'] ? $descr['niv'] : '');
+		$nom = $descr['nom'].$id_boucle.($descr['niv'] ? $descr['niv'] : '');
 
-		return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(" . join(" ,\n$tab",
-			$codes) . ")))";
+		return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(".join(" ,\n$tab",
+			$codes).")))";
 	}
 }
 
@@ -941,7 +937,7 @@ 
 			// texte seul
 			case 'texte':
 				$code = sandbox_composer_texte($p->texte, $p);
-				$commentaire = strlen($p->texte) . " signes";
+				$commentaire = strlen($p->texte)." signes";
 				$avant = '';
 				$apres = '';
 				$altern = "''";
@@ -950,14 +946,14 @@ 
 			case 'polyglotte':
 				$code = "";
 				foreach ($p->traductions as $k => $v) {
-					$code .= ",'" .
-						str_replace(array("\\", "'"), array("\\\\", "\\'"), $k) .
-						"' => '" .
-						str_replace(array("\\", "'"), array("\\\\", "\\'"), $v) .
+					$code .= ",'".
+						str_replace(array("\\", "'"), array("\\\\", "\\'"), $k).
+						"' => '".
+						str_replace(array("\\", "'"), array("\\\\", "\\'"), $v).
 						"'";
 				}
-				$code = "choisir_traduction(array(" .
-					substr($code, 1) .
+				$code = "choisir_traduction(array(".
+					substr($code, 1).
 					"))";
 				$commentaire = '&';
 				$avant = '';
@@ -973,7 +969,7 @@ 
 					$err_e_c = true;
 					$code = "''";
 				} else {
-					$commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>';
+					$commentaire = '<INCLURE '.addslashes(str_replace("\n", ' ', $code)).'>';
 					$avant = '';
 					$apres = '';
 					$altern = "''";
@@ -997,8 +993,8 @@ 
 					$err_e_c = true;
 					$code = "''";
 				} else {
-					$code = 'BOUCLE' .
-						str_replace("-", "_", $nom) . $descr['nom'] .
+					$code = 'BOUCLE'.
+						str_replace("-", "_", $nom).$descr['nom'].
 						'($Cache, $Pile, $doublons, $Numrows, $SP)';
 					$commentaire = "?$nom";
 					if (!$boucles[$nom]->milieu
@@ -1025,24 +1021,22 @@ 
 				foreach ($p->arg as $k => $v) {
 					$_v = calculer_liste($v, $descr, $boucles, $id_boucle);
 					if ($k) {
-						$l[] = _q($k) . ' => ' . $_v;
+						$l[] = _q($k).' => '.$_v;
 					} else {
 						$code = $_v;
 					}
 				}
 				// Si le module n'est pas fourni, l'expliciter sauf si calculé
 				if ($p->module) {
-					$m = $p->module . ':' . $p->nom_champ;
+					$m = $p->module.':'.$p->nom_champ;
 				} elseif ($p->nom_champ) {
-					$m = MODULES_IDIOMES . ':' . $p->nom_champ;
+					$m = MODULES_IDIOMES.':'.$p->nom_champ;
 				} else {
 					$m = '';
 				}
 
-				$code = (!$code ? "'$m'" :
-						($m ? "'$m' . $code" :
-							("(strpos(\$x=$code, ':') ? \$x : ('" . MODULES_IDIOMES . ":' . \$x))")))
-					. (!$l ? '' : (", array(" . implode(",\n", $l) . ")"));
+				$code = (!$code ? "'$m'" : ($m ? "'$m' . $code" : ("(strpos(\$x=$code, ':') ? \$x : ('".MODULES_IDIOMES.":' . \$x))")))
+					. (!$l ? '' : (", array(".implode(",\n", $l).")"));
 				$code = "_T($code)";
 				if ($p->param) {
 					$p->id_boucle = $id_boucle;
@@ -1065,7 +1059,7 @@ 
 				$p->type_requete = $type;
 
 				$code = calculer_champ($p);
-				$commentaire = '#' . $p->nom_champ . $p->etoile;
+				$commentaire = '#'.$p->nom_champ.$p->etoile;
 				$avant = calculer_liste($p->avant,
 					$descr, $boucles, $id_boucle);
 				$apres = calculer_liste($p->apres,
@@ -1096,10 +1090,9 @@ 
 		if ($code != "''") {
 			$code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']);
 			$codes[] = (($mode == 'validation') ?
-				"array($code, '$commentaire', " . $p->ligne . ")"
+				"array($code, '$commentaire', ".$p->ligne.")"
 				: (($mode == 'code') ?
-					"\n// $commentaire\n$code" :
-					$code));
+					"\n// $commentaire\n$code" : $code));
 		}
 	} // foreach
 
@@ -1127,19 +1120,19 @@ 
 		$cond = '';
 	} elseif (preg_match(_REGEXP_COND_VIDE_NONVIDE, $code, $r)) {
 		$t = $r[2];
-		$cond = '!' . $r[1];
+		$cond = '!'.$r[1];
 	} else {
 		if (preg_match(_REGEXP_COND_NONVIDE_VIDE, $code, $r)) {
 			$t = $r[2];
 			$cond = $r[1];
 		} else {
-			$t = '$t' . $n;
+			$t = '$t'.$n;
 			$cond = "($t = $code)!==''";
 		}
 	}
 
-	$res = (!$avant ? "" : "$avant . ") .
-		$t .
+	$res = (!$avant ? "" : "$avant . ").
+		$t.
 		(!$apres ? "" : " . $apres");
 
 	if ($res !== $t) {
@@ -1188,12 +1181,12 @@ 
 
 	// rendre inertes les echappements de #[](){}<>
 	$i = 0;
-	while (false !== strpos($squelette, $inerte = '-INERTE' . $i)) {
+	while (false !== strpos($squelette, $inerte = '-INERTE'.$i)) {
 		$i++;
 	}
 	$squelette = preg_replace_callback(',\\\\([#[()\]{}<>]),',
 		function($a) use ($inerte) {
-			return "$inerte-" . ord($a[1]) . '-';
+			return "$inerte-".ord($a[1]).'-';
 		},
 		$squelette,
 		-1,
@@ -1210,7 +1203,7 @@ 
 	// Phraser le squelette, selon sa grammaire
 
 	$boucles = array();
-	$f = charger_fonction('phraser_' . $gram, 'public');
+	$f = charger_fonction('phraser_'.$gram, 'public');
 
 	$squelette = $f($squelette, '', $boucles, $descr);
 
@@ -1229,7 +1222,7 @@ 
 			$boucles[$i]->descr['squelette'] = preg_replace_callback(
 				",$inerte-(\d+)-,",
 				function($a) {
-					return "\\\\" . chr($a[1]);
+					return "\\\\".chr($a[1]);
 				},
 				$boucle->descr['squelette']
 			);
@@ -1241,19 +1234,19 @@ 
 		include_spip('public/decompiler');
 		foreach ($boucles as $id => $boucle) {
 			if ($id) {
-				$decomp = "\n/* BOUCLE " .
-					$boucle->type_requete .
-					" " .
-					str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')) .
-					($boucle->debug ? "\n *\n * " . implode("\n * ", $boucle->debug) . "\n" : '') .
+				$decomp = "\n/* BOUCLE ".
+					$boucle->type_requete.
+					" ".
+					str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')).
+					($boucle->debug ? "\n *\n * ".implode("\n * ", $boucle->debug)."\n" : '').
 					" */\n";
 			} else {
-				$decomp = ("\n/*\n" .
+				$decomp = ("\n/*\n".
 					str_replace('*/', '* /', public_decompiler($squelette, $gram))
 					. "\n*/");
 			}
-			$boucles[$id]->return = $decomp . $boucle->return;
-			$GLOBALS['debug_objets']['code'][$nom . $id] = $boucle->return;
+			$boucles[$id]->return = $decomp.$boucle->return;
+			$GLOBALS['debug_objets']['code'][$nom.$id] = $boucle->return;
 		}
 	}
 
@@ -1276,7 +1269,7 @@ 
 		}
 	}
 	foreach ($boucles as $id => $boucle) {
-		$GLOBALS['debug_objets']['boucle'][$nom . $id] = $boucle;
+		$GLOBALS['debug_objets']['boucle'][$nom.$id] = $boucle;
 	}
 	$descr['documents'] = compile_inclure_doublons($squelette);
 
@@ -1358,8 +1351,7 @@ 
 						} else {
 							$boucles[$id]->type_requete = false;
 							$boucle = $boucles[$id];
-							$x = (!$boucle->sql_serveur ? '' :
-									($boucle->sql_serveur . ":")) .
+							$x = (!$boucle->sql_serveur ? '' : ($boucle->sql_serveur.":")).
 								$type;
 							$msg = array(
 								'zbug_table_inconnue',
@@ -1445,13 +1437,13 @@ 
 			if (
 				// fonction de boucle avec serveur & table
 				(!$serveur or
-					((!function_exists($f = "boucle_" . $serveur . "_" . $table))
-						and (!function_exists($f = $f . "_dist"))
+					((!function_exists($f = "boucle_".$serveur."_".$table))
+						and (!function_exists($f = $f."_dist"))
 					)
 				)
 				// fonction de boucle avec table
-				and (!function_exists($f = "boucle_" . $table))
-				and (!function_exists($f = $f . "_dist"))
+				and (!function_exists($f = "boucle_".$table))
+				and (!function_exists($f = $f."_dist"))
 			) {
 				// fonction de boucle standard 
 				if (!function_exists($f = 'boucle_DEFAUT')) {
@@ -1459,20 +1451,20 @@ 
 				}
 			}
 
-			$req = "\n\n\tstatic \$command = array();\n\t" .
-				"static \$connect;\n\t" .
-				"\$command['connect'] = \$connect = " .
-				_q($boucle->sql_serveur) .
-				";" .
+			$req = "\n\n\tstatic \$command = array();\n\t".
+				"static \$connect;\n\t".
+				"\$command['connect'] = \$connect = ".
+				_q($boucle->sql_serveur).
+				";".
 				$f($id, $boucles);
 		} else {
 			$req = ("\n\treturn '';");
 		}
 
 		$boucles[$id]->return =
-			"\n\nfunction BOUCLE" . strtr($id, "-", "_") . $nom .
-			'(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {' .
-			$req .
+			"\n\nfunction BOUCLE".strtr($id, "-", "_").$nom.
+			'(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {'.
+			$req.
 			"\n}\n";
 	}
 
@@ -1482,7 +1474,7 @@ 
 		return false;
 	}
 
-	$principal = "\nfunction " . $nom . '($Cache, $Pile, $doublons = array(), $Numrows = array(), $SP = 0) {
+	$principal = "\nfunction ".$nom.'($Cache, $Pile, $doublons = array(), $Numrows = array(), $SP = 0) {
 '
 		// reporter de maniere securisee les doublons inclus
 		. '
@@ -1490,15 +1482,15 @@ 
 		$doublons = nettoyer_env_doublons($Pile[0]["doublons"]);
 
 	$connect = ' .
-		_q($connect) . ';
+		_q($connect).';
 	$page = ' .
 		// ATTENTION, le calcul de l'expression $corps affectera $Cache
 		// c'est pourquoi on l'affecte a la variable auxiliaire $page.
 		// avant de referencer $Cache
-		$corps . ";
+		$corps.";
 
 	return analyse_resultat_skel(" . var_export($nom, true)
-		. ", \$Cache, \$page, " . var_export($sourcefile, true) . ");
+		. ", \$Cache, \$page, ".var_export($sourcefile, true).");
 }";
 
 	$secondes = spip_timer('calcul_skel');
@@ -1512,10 +1504,10 @@ 
 	$code->return = '
 //
 // Fonction principale du squelette ' .
-		$sourcefile .
-		($connect ? " pour $connect" : '') .
-		(!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") .
-		"\n//\n" .
+		$sourcefile.
+		($connect ? " pour $connect" : '').
+		(!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes").
+		"\n//\n".
 		$principal;
 
 	$boucles[''] = $code;
@@ -1567,7 +1559,7 @@ 
  **/
 function requeteur_data_dist(&$boucles, &$boucle, &$id) {
 	include_spip('iterateur/data');
-	if ($h = charger_fonction($boucle->type_requete . '_to_array', 'inc', true)) {
+	if ($h = charger_fonction($boucle->type_requete.'_to_array', 'inc', true)) {
 		$g = charger_fonction('data', 'iterateur');
 		$boucles[$id] = $g($boucle);
 		// from[0] stocke le type de data (rss, yql, ...)