spip / SPIP

ecrire/plugins/infos_plugin.php

Doc Comments -2 removed lines

@@ -116,8 +116,6 @@
  * - 'nom' (= id)
  * - 'compatibilite' (= version)
  *
- * @param array $utilise
- * 		Liste des necessite trouvés pour le plugin
  * @return array
  * 		Liste des necessite modifiés.
  */

Indentation +124 added lines, -124 removed lines

@@ -15,90 +15,90 @@ 
 // lecture d'un texte ecrit en pseudo-xml issu d'un fichier plugin.xml
 // et conversion approximative en tableau PHP.
 function plugins_infos_plugin($desc, $plug='', $dir_plugins=_DIR_PLUGINS) {
-	include_spip('inc/xml');
-	$arbre = spip_xml_parse($desc);
-
-	$verifie_conformite = charger_fonction('verifie_conformite','plugins');
-	$verifie_conformite($plug, $arbre, $dir_plugins);
-
-	include_spip('inc/charsets');
-
-	// On renvoie la DTD utilisee
-	$ret['dtd'] = "plugin";
-
-	if (isset($arbre['categorie']))
-		$ret['categorie'] = trim(spip_xml_aplatit($arbre['categorie']));
-	if (isset($arbre['nom']))
-		$ret['nom'] = charset2unicode(spip_xml_aplatit($arbre['nom']));
-	if (isset($arbre['icon']))
-		$ret['logo'] = trim(spip_xml_aplatit($arbre['icon']));
-	if (isset($arbre['auteur']))
-		$ret['auteur'][] = trim(spip_xml_aplatit($arbre['auteur'])); // garder le 1er niveau en tableau mais traiter le multi possible
-	if (isset($arbre['licence']))
-		$ret['licence'][] = trim(spip_xml_aplatit($arbre['licence']));
-	if (isset($arbre['version']))
-		$ret['version'] = trim(spip_xml_aplatit($arbre['version']));
-	if (isset($arbre['version_base']))
-		$ret['schema'] = trim(spip_xml_aplatit($arbre['version_base']));
-	if (isset($arbre['etat']))
-		$ret['etat'] = trim(spip_xml_aplatit($arbre['etat']));
-
-	$ret['description'] = $ret['slogan'] = "";
-	if (isset($arbre['slogan']))
-		$ret['slogan'] = trim(spip_xml_aplatit($arbre['slogan']));
-	if (isset($arbre['description'])){
-		$ret['description'] = trim(spip_xml_aplatit($arbre['description']));
-	}
-
-	if (isset($arbre['lien'])){
-		$ret['documentation'] = trim(join(' ',$arbre['lien']));
-		if ($ret['documentation']) {
-			// le lien de doc doit etre une url et c'est tout
-			if (!preg_match(',^https?://,iS', $ret['documentation']))
-				$ret['documentation'] = "";
-		}
-	}
-
-	if (isset($arbre['options']))
-		$ret['options'] = $arbre['options'];
-	if (isset($arbre['fonctions']))
-		$ret['fonctions'] = $arbre['fonctions'];
-	if (isset($arbre['prefix'][0]))
-		$ret['prefix'] = trim(array_pop($arbre['prefix']));
-	if (isset($arbre['install']))
-		$ret['install'] = $arbre['install'];
-	if (isset($arbre['meta']))
-		$ret['meta'] = trim(spip_xml_aplatit($arbre['meta']));
-
-	$necessite = info_plugin_normalise_necessite($arbre['necessite']);
-	$ret['compatibilite'] = isset($necessite['compatible'])?$necessite['compatible']:'';
-	$ret['necessite'] = $necessite['necessite'];
-	$ret['lib'] = $necessite['lib'];
-	$ret['utilise'] = info_plugin_normalise_utilise($arbre['utilise']);
-	$ret['procure'] = info_plugin_normalise_procure($arbre['procure']);
-	$ret['chemin']  = info_plugin_normalise_chemin($arbre['path']);
-
-	if (isset($arbre['pipeline']))
-		$ret['pipeline'] = $arbre['pipeline'];
-
-	$extraire_boutons = charger_fonction('extraire_boutons','plugins');
-	$les_boutons = $extraire_boutons($arbre);
-	$ret['menu'] = $les_boutons['bouton'];
-	$ret['onglet'] = $les_boutons['onglet'];
-
-	$ret['traduire'] = $arbre['traduire'];
+    include_spip('inc/xml');
+    $arbre = spip_xml_parse($desc);
+
+    $verifie_conformite = charger_fonction('verifie_conformite','plugins');
+    $verifie_conformite($plug, $arbre, $dir_plugins);
+
+    include_spip('inc/charsets');
+
+    // On renvoie la DTD utilisee
+    $ret['dtd'] = "plugin";
+
+    if (isset($arbre['categorie']))
+        $ret['categorie'] = trim(spip_xml_aplatit($arbre['categorie']));
+    if (isset($arbre['nom']))
+        $ret['nom'] = charset2unicode(spip_xml_aplatit($arbre['nom']));
+    if (isset($arbre['icon']))
+        $ret['logo'] = trim(spip_xml_aplatit($arbre['icon']));
+    if (isset($arbre['auteur']))
+        $ret['auteur'][] = trim(spip_xml_aplatit($arbre['auteur'])); // garder le 1er niveau en tableau mais traiter le multi possible
+    if (isset($arbre['licence']))
+        $ret['licence'][] = trim(spip_xml_aplatit($arbre['licence']));
+    if (isset($arbre['version']))
+        $ret['version'] = trim(spip_xml_aplatit($arbre['version']));
+    if (isset($arbre['version_base']))
+        $ret['schema'] = trim(spip_xml_aplatit($arbre['version_base']));
+    if (isset($arbre['etat']))
+        $ret['etat'] = trim(spip_xml_aplatit($arbre['etat']));
+
+    $ret['description'] = $ret['slogan'] = "";
+    if (isset($arbre['slogan']))
+        $ret['slogan'] = trim(spip_xml_aplatit($arbre['slogan']));
+    if (isset($arbre['description'])){
+        $ret['description'] = trim(spip_xml_aplatit($arbre['description']));
+    }
+
+    if (isset($arbre['lien'])){
+        $ret['documentation'] = trim(join(' ',$arbre['lien']));
+        if ($ret['documentation']) {
+            // le lien de doc doit etre une url et c'est tout
+            if (!preg_match(',^https?://,iS', $ret['documentation']))
+                $ret['documentation'] = "";
+        }
+    }
+
+    if (isset($arbre['options']))
+        $ret['options'] = $arbre['options'];
+    if (isset($arbre['fonctions']))
+        $ret['fonctions'] = $arbre['fonctions'];
+    if (isset($arbre['prefix'][0]))
+        $ret['prefix'] = trim(array_pop($arbre['prefix']));
+    if (isset($arbre['install']))
+        $ret['install'] = $arbre['install'];
+    if (isset($arbre['meta']))
+        $ret['meta'] = trim(spip_xml_aplatit($arbre['meta']));
+
+    $necessite = info_plugin_normalise_necessite($arbre['necessite']);
+    $ret['compatibilite'] = isset($necessite['compatible'])?$necessite['compatible']:'';
+    $ret['necessite'] = $necessite['necessite'];
+    $ret['lib'] = $necessite['lib'];
+    $ret['utilise'] = info_plugin_normalise_utilise($arbre['utilise']);
+    $ret['procure'] = info_plugin_normalise_procure($arbre['procure']);
+    $ret['chemin']  = info_plugin_normalise_chemin($arbre['path']);
+
+    if (isset($arbre['pipeline']))
+        $ret['pipeline'] = $arbre['pipeline'];
+
+    $extraire_boutons = charger_fonction('extraire_boutons','plugins');
+    $les_boutons = $extraire_boutons($arbre);
+    $ret['menu'] = $les_boutons['bouton'];
+    $ret['onglet'] = $les_boutons['onglet'];
+
+    $ret['traduire'] = $arbre['traduire'];
 		
-	if (isset($arbre['config']))
-		$ret['config'] = spip_xml_aplatit($arbre['config']);
-	if (isset($arbre['noisette']))
-		$ret['noisette'] = $arbre['noisette'];
+    if (isset($arbre['config']))
+        $ret['config'] = spip_xml_aplatit($arbre['config']);
+    if (isset($arbre['noisette']))
+        $ret['noisette'] = $arbre['noisette'];
 
-	if (isset($arbre['erreur'])) {
-		$ret['erreur'] = $arbre['erreur'];
-		if ($plug) spip_log("infos_plugin $plug " . @join(' ', $arbre['erreur']));
-	}
+    if (isset($arbre['erreur'])) {
+        $ret['erreur'] = $arbre['erreur'];
+        if ($plug) spip_log("infos_plugin $plug " . @join(' ', $arbre['erreur']));
+    }
 
-	return $ret;
+    return $ret;
 }
 
 // Un attribut de nom "id" a une signification particuliere en XML
@@ -122,23 +122,23 @@ 
  * 		Liste des necessite modifiés.
  */
 function info_plugin_normalise_necessite($necessite) {
-	$res = array('necessite' => array(), 'lib' => array());
+    $res = array('necessite' => array(), 'lib' => array());
 
-	if (is_array($necessite)) {
-		foreach($necessite as $need) {
-			$id = $need['id'];
-			$v = isset($need['version']) ? $need['version'] : '';
+    if (is_array($necessite)) {
+        foreach($necessite as $need) {
+            $id = $need['id'];
+            $v = isset($need['version']) ? $need['version'] : '';
 			
-			// Necessite SPIP version x ?
-			if (strtoupper($id)=='SPIP') {
-				$res['compatible'] = $v;
-			} else if (preg_match(',^lib:\s*([^\s]*),i', $id, $r)) {
-				$res['lib'][] = array('nom' => $r[1], 'id' => $r[1], 'lien' => $need['src']);
-			} else $res['necessite'][] = array('id' => $id, 'nom' => $id, 'version' => $v, 'compatibilite' => $v);
-		}
-	}
+            // Necessite SPIP version x ?
+            if (strtoupper($id)=='SPIP') {
+                $res['compatible'] = $v;
+            } else if (preg_match(',^lib:\s*([^\s]*),i', $id, $r)) {
+                $res['lib'][] = array('nom' => $r[1], 'id' => $r[1], 'lien' => $need['src']);
+            } else $res['necessite'][] = array('id' => $id, 'nom' => $id, 'version' => $v, 'compatibilite' => $v);
+        }
+    }
 	
-	return $res;
+    return $res;
 }
 
 /**
@@ -154,16 +154,16 @@ 
  * 		Liste des utilise modifiés.
  */
 function info_plugin_normalise_utilise($utilise) {
-	$res = array();
-
-	if (is_array($utilise)) {
-		foreach($utilise as $need){
-			$id = $need['id'];
-			$v = isset($need['version']) ? $need['version'] : '' ;
-			$res[]= array('nom' => $id, 'id' => $id, 'version' => $v, 'compatibilite' => $v);
-		}
-	}
-	return $res;
+    $res = array();
+
+    if (is_array($utilise)) {
+        foreach($utilise as $need){
+            $id = $need['id'];
+            $v = isset($need['version']) ? $need['version'] : '' ;
+            $res[]= array('nom' => $id, 'id' => $id, 'version' => $v, 'compatibilite' => $v);
+        }
+    }
+    return $res;
 }
 
 /**
@@ -177,16 +177,16 @@ 
  * 		Liste des procure modifiés.
  */
 function info_plugin_normalise_procure($procure) {
-	$res = array();
-
-	if (is_array($procure)) {
-		foreach($procure as $need){
-			$id = $need['id'];
-			$v = $need['version'];
-			$res[]= array('nom' => $id, 'id' => $id, 'version' => $v);
-		}
-	}
-	return $res;
+    $res = array();
+
+    if (is_array($procure)) {
+        foreach($procure as $need){
+            $id = $need['id'];
+            $v = $need['version'];
+            $res[]= array('nom' => $id, 'id' => $id, 'version' => $v);
+        }
+    }
+    return $res;
 }
 
 /**
@@ -200,14 +200,14 @@ 
  * 		Liste des chemins modifiés.
  */
 function info_plugin_normalise_chemin($chemins) {
-	$res = array();
-
-	if (is_array($chemins)) {
-		foreach ($chemins as $c) {
-			$c['path'] = $c['dir'];
-			$res[] = $c;
-		}
-	}
-	return $res;
+    $res = array();
+
+    if (is_array($chemins)) {
+        foreach ($chemins as $c) {
+            $c['path'] = $c['dir'];
+            $res[] = $c;
+        }
+    }
+    return $res;
 }
 ?>

Spacing +15 added lines, -15 removed lines

@@ -14,11 +14,11 @@ 
 
 // lecture d'un texte ecrit en pseudo-xml issu d'un fichier plugin.xml
 // et conversion approximative en tableau PHP.
-function plugins_infos_plugin($desc, $plug='', $dir_plugins=_DIR_PLUGINS) {
+function plugins_infos_plugin($desc, $plug = '', $dir_plugins = _DIR_PLUGINS) {
 	include_spip('inc/xml');
 	$arbre = spip_xml_parse($desc);
 
-	$verifie_conformite = charger_fonction('verifie_conformite','plugins');
+	$verifie_conformite = charger_fonction('verifie_conformite', 'plugins');
 	$verifie_conformite($plug, $arbre, $dir_plugins);
 
 	include_spip('inc/charsets');
@@ -46,12 +46,12 @@ 
 	$ret['description'] = $ret['slogan'] = "";
 	if (isset($arbre['slogan']))
 		$ret['slogan'] = trim(spip_xml_aplatit($arbre['slogan']));
-	if (isset($arbre['description'])){
+	if (isset($arbre['description'])) {
 		$ret['description'] = trim(spip_xml_aplatit($arbre['description']));
 	}
 
-	if (isset($arbre['lien'])){
-		$ret['documentation'] = trim(join(' ',$arbre['lien']));
+	if (isset($arbre['lien'])) {
+		$ret['documentation'] = trim(join(' ', $arbre['lien']));
 		if ($ret['documentation']) {
 			// le lien de doc doit etre une url et c'est tout
 			if (!preg_match(',^https?://,iS', $ret['documentation']))
@@ -71,7 +71,7 @@ 
 		$ret['meta'] = trim(spip_xml_aplatit($arbre['meta']));
 
 	$necessite = info_plugin_normalise_necessite($arbre['necessite']);
-	$ret['compatibilite'] = isset($necessite['compatible'])?$necessite['compatible']:'';
+	$ret['compatibilite'] = isset($necessite['compatible']) ? $necessite['compatible'] : '';
 	$ret['necessite'] = $necessite['necessite'];
 	$ret['lib'] = $necessite['lib'];
 	$ret['utilise'] = info_plugin_normalise_utilise($arbre['utilise']);
@@ -81,7 +81,7 @@ 
 	if (isset($arbre['pipeline']))
 		$ret['pipeline'] = $arbre['pipeline'];
 
-	$extraire_boutons = charger_fonction('extraire_boutons','plugins');
+	$extraire_boutons = charger_fonction('extraire_boutons', 'plugins');
 	$les_boutons = $extraire_boutons($arbre);
 	$ret['menu'] = $les_boutons['bouton'];
 	$ret['onglet'] = $les_boutons['onglet'];
@@ -95,7 +95,7 @@ 
 
 	if (isset($arbre['erreur'])) {
 		$ret['erreur'] = $arbre['erreur'];
-		if ($plug) spip_log("infos_plugin $plug " . @join(' ', $arbre['erreur']));
+		if ($plug) spip_log("infos_plugin $plug ".@join(' ', $arbre['erreur']));
 	}
 
 	return $ret;
@@ -125,12 +125,12 @@ 
 	$res = array('necessite' => array(), 'lib' => array());
 
 	if (is_array($necessite)) {
-		foreach($necessite as $need) {
+		foreach ($necessite as $need) {
 			$id = $need['id'];
 			$v = isset($need['version']) ? $need['version'] : '';
 			
 			// Necessite SPIP version x ?
-			if (strtoupper($id)=='SPIP') {
+			if (strtoupper($id) == 'SPIP') {
 				$res['compatible'] = $v;
 			} else if (preg_match(',^lib:\s*([^\s]*),i', $id, $r)) {
 				$res['lib'][] = array('nom' => $r[1], 'id' => $r[1], 'lien' => $need['src']);
@@ -157,10 +157,10 @@ 
 	$res = array();
 
 	if (is_array($utilise)) {
-		foreach($utilise as $need){
+		foreach ($utilise as $need) {
 			$id = $need['id'];
-			$v = isset($need['version']) ? $need['version'] : '' ;
-			$res[]= array('nom' => $id, 'id' => $id, 'version' => $v, 'compatibilite' => $v);
+			$v = isset($need['version']) ? $need['version'] : '';
+			$res[] = array('nom' => $id, 'id' => $id, 'version' => $v, 'compatibilite' => $v);
 		}
 	}
 	return $res;
@@ -180,10 +180,10 @@ 
 	$res = array();
 
 	if (is_array($procure)) {
-		foreach($procure as $need){
+		foreach ($procure as $need) {
 			$id = $need['id'];
 			$v = $need['version'];
-			$res[]= array('nom' => $id, 'id' => $id, 'version' => $v);
+			$res[] = array('nom' => $id, 'id' => $id, 'version' => $v);
 		}
 	}
 	return $res;

Braces +64 added lines, -39 removed lines

@@ -10,7 +10,9 @@ 
  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
 \***************************************************************************/
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 // lecture d'un texte ecrit en pseudo-xml issu d'un fichier plugin.xml
 // et conversion approximative en tableau PHP.
@@ -26,26 +28,36 @@ 
 	// On renvoie la DTD utilisee
 	$ret['dtd'] = "plugin";
 
-	if (isset($arbre['categorie']))
-		$ret['categorie'] = trim(spip_xml_aplatit($arbre['categorie']));
-	if (isset($arbre['nom']))
-		$ret['nom'] = charset2unicode(spip_xml_aplatit($arbre['nom']));
-	if (isset($arbre['icon']))
-		$ret['logo'] = trim(spip_xml_aplatit($arbre['icon']));
-	if (isset($arbre['auteur']))
-		$ret['auteur'][] = trim(spip_xml_aplatit($arbre['auteur'])); // garder le 1er niveau en tableau mais traiter le multi possible
-	if (isset($arbre['licence']))
-		$ret['licence'][] = trim(spip_xml_aplatit($arbre['licence']));
-	if (isset($arbre['version']))
-		$ret['version'] = trim(spip_xml_aplatit($arbre['version']));
-	if (isset($arbre['version_base']))
-		$ret['schema'] = trim(spip_xml_aplatit($arbre['version_base']));
-	if (isset($arbre['etat']))
-		$ret['etat'] = trim(spip_xml_aplatit($arbre['etat']));
+	if (isset($arbre['categorie'])) {
+			$ret['categorie'] = trim(spip_xml_aplatit($arbre['categorie']));
+	}
+	if (isset($arbre['nom'])) {
+			$ret['nom'] = charset2unicode(spip_xml_aplatit($arbre['nom']));
+	}
+	if (isset($arbre['icon'])) {
+			$ret['logo'] = trim(spip_xml_aplatit($arbre['icon']));
+	}
+	if (isset($arbre['auteur'])) {
+			$ret['auteur'][] = trim(spip_xml_aplatit($arbre['auteur']));
+	}
+	// garder le 1er niveau en tableau mais traiter le multi possible
+	if (isset($arbre['licence'])) {
+			$ret['licence'][] = trim(spip_xml_aplatit($arbre['licence']));
+	}
+	if (isset($arbre['version'])) {
+			$ret['version'] = trim(spip_xml_aplatit($arbre['version']));
+	}
+	if (isset($arbre['version_base'])) {
+			$ret['schema'] = trim(spip_xml_aplatit($arbre['version_base']));
+	}
+	if (isset($arbre['etat'])) {
+			$ret['etat'] = trim(spip_xml_aplatit($arbre['etat']));
+	}
 
 	$ret['description'] = $ret['slogan'] = "";
-	if (isset($arbre['slogan']))
-		$ret['slogan'] = trim(spip_xml_aplatit($arbre['slogan']));
+	if (isset($arbre['slogan'])) {
+			$ret['slogan'] = trim(spip_xml_aplatit($arbre['slogan']));
+	}
 	if (isset($arbre['description'])){
 		$ret['description'] = trim(spip_xml_aplatit($arbre['description']));
 	}
@@ -54,21 +66,27 @@ 
 		$ret['documentation'] = trim(join(' ',$arbre['lien']));
 		if ($ret['documentation']) {
 			// le lien de doc doit etre une url et c'est tout
-			if (!preg_match(',^https?://,iS', $ret['documentation']))
-				$ret['documentation'] = "";
+			if (!preg_match(',^https?://,iS', $ret['documentation'])) {
+							$ret['documentation'] = "";
+			}
 		}
 	}
 
-	if (isset($arbre['options']))
-		$ret['options'] = $arbre['options'];
-	if (isset($arbre['fonctions']))
-		$ret['fonctions'] = $arbre['fonctions'];
-	if (isset($arbre['prefix'][0]))
-		$ret['prefix'] = trim(array_pop($arbre['prefix']));
-	if (isset($arbre['install']))
-		$ret['install'] = $arbre['install'];
-	if (isset($arbre['meta']))
-		$ret['meta'] = trim(spip_xml_aplatit($arbre['meta']));
+	if (isset($arbre['options'])) {
+			$ret['options'] = $arbre['options'];
+	}
+	if (isset($arbre['fonctions'])) {
+			$ret['fonctions'] = $arbre['fonctions'];
+	}
+	if (isset($arbre['prefix'][0])) {
+			$ret['prefix'] = trim(array_pop($arbre['prefix']));
+	}
+	if (isset($arbre['install'])) {
+			$ret['install'] = $arbre['install'];
+	}
+	if (isset($arbre['meta'])) {
+			$ret['meta'] = trim(spip_xml_aplatit($arbre['meta']));
+	}
 
 	$necessite = info_plugin_normalise_necessite($arbre['necessite']);
 	$ret['compatibilite'] = isset($necessite['compatible'])?$necessite['compatible']:'';
@@ -78,8 +96,9 @@ 
 	$ret['procure'] = info_plugin_normalise_procure($arbre['procure']);
 	$ret['chemin']  = info_plugin_normalise_chemin($arbre['path']);
 
-	if (isset($arbre['pipeline']))
-		$ret['pipeline'] = $arbre['pipeline'];
+	if (isset($arbre['pipeline'])) {
+			$ret['pipeline'] = $arbre['pipeline'];
+	}
 
 	$extraire_boutons = charger_fonction('extraire_boutons','plugins');
 	$les_boutons = $extraire_boutons($arbre);
@@ -88,14 +107,18 @@ 
 
 	$ret['traduire'] = $arbre['traduire'];
 		
-	if (isset($arbre['config']))
-		$ret['config'] = spip_xml_aplatit($arbre['config']);
-	if (isset($arbre['noisette']))
-		$ret['noisette'] = $arbre['noisette'];
+	if (isset($arbre['config'])) {
+			$ret['config'] = spip_xml_aplatit($arbre['config']);
+	}
+	if (isset($arbre['noisette'])) {
+			$ret['noisette'] = $arbre['noisette'];
+	}
 
 	if (isset($arbre['erreur'])) {
 		$ret['erreur'] = $arbre['erreur'];
-		if ($plug) spip_log("infos_plugin $plug " . @join(' ', $arbre['erreur']));
+		if ($plug) {
+		    spip_log("infos_plugin $plug " . @join(' ', $arbre['erreur']));
+		}
 	}
 
 	return $ret;
@@ -134,7 +157,9 @@ 
 				$res['compatible'] = $v;
 			} else if (preg_match(',^lib:\s*([^\s]*),i', $id, $r)) {
 				$res['lib'][] = array('nom' => $r[1], 'id' => $r[1], 'lien' => $need['src']);
-			} else $res['necessite'][] = array('id' => $id, 'nom' => $id, 'version' => $v, 'compatibilite' => $v);
+			} else {
+			    $res['necessite'][] = array('id' => $id, 'nom' => $id, 'version' => $v, 'compatibilite' => $v);
+			}
 		}
 	}
 	

ecrire/public/compiler.php

Doc Comments +15 added lines

@@ -57,6 +57,9 @@ 
 
 
 // http://doc.spip.org/@argumenter_inclure
+/**
+ * @param boolean $rejet_filtres
+ */
 function argumenter_inclure($params, $rejet_filtres, $p, &$boucles, $id_boucle, $echap=true, $lang = '', $fond1=false){
 	$l = array();
 	$erreur_p_i_i = '';
@@ -665,6 +668,9 @@ 
 }
 
 // http://doc.spip.org/@calculer_dec
+/**
+ * @param string $nom
+ */
 function calculer_dec($nom, $val)
 {
 	$static = 'if (!isset($command[\''.$nom.'\'])) ';
@@ -712,6 +718,9 @@ 
 }
 
 // http://doc.spip.org/@calculer_from
+/**
+ * @param Boucle $boucle
+ */
 function calculer_from(&$boucle)
 {
   $res = "";
@@ -783,6 +792,9 @@ 
 define('_REGEXP_CONCAT_NON_VIDE', "/^(.*)[.]\s*'[^']+'\s*$/");
 
 // http://doc.spip.org/@compile_cas
+/**
+ * @param string $id_boucle
+ */
 function compile_cas($tableau, $descr, &$boucles, $id_boucle) {
 
         $codes = array();
@@ -960,6 +972,9 @@ 
 // de meme si EXP est de la forme (t ? '' : 'C')
 
 // http://doc.spip.org/@compile_retour
+/**
+ * @param string $tab
+ */
 function compile_retour($code, $avant, $apres, $altern, $tab, $n)
 {
 	if ($avant == "''") $avant = '';

Indentation +942 added lines, -942 removed lines

@@ -58,62 +58,62 @@ 
 
 // http://doc.spip.org/@argumenter_inclure
 function argumenter_inclure($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);
-				$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);
+                $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;
 }
 
 /**
@@ -137,64 +137,64 @@ 
 **/
 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 = 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 = '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?'." . "'>'";
 }
 
 
@@ -212,7 +212,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.
@@ -236,71 +236,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)
+                );
+            }
+        }
+    }
 }
 
 /**
@@ -319,22 +319,22 @@ 
  */
 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);
 }
 
 
@@ -357,14 +357,14 @@ 
  * 		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;";
 }
 
 /**
@@ -417,154 +417,154 @@ 
 **/
 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;"));
+    $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');
-		if (function_exists($i = 'calcul_invalideurs'))
-			$corps = $i($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'])
-	);
+    // 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');
+        if (function_exists($i = 'calcul_invalideurs'))
+            $corps = $i($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;
 }
 
 
@@ -581,38 +581,38 @@ 
 **/
 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 = "";
-	foreach ($init as $i){
-		if (reset($i))
-			$s .= "\n\t\t".end($i);
-		else
-			$d .= "\n\t".end($i);
-	}
-
-	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 = "";
+    foreach ($init as $i){
+        if (reset($i))
+            $s .= "\n\t\t".end($i);
+        else
+            $d .= "\n\t".end($i);
+    }
+
+    return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
+        . $boucle->in 
+        . $boucle->hash
+        . "\n\t".'if (!isset($command[\'table\'])) {'
+        . $s
+        . "\n\t}"
+        . $d;
 }
 
 /**
@@ -630,12 +630,12 @@ 
  *     qui peut être utilisé pour la production d'un tableau array()
 **/
 function memoriser_contexte_compil($p) {
-	return join(',', array(
-		_q($p->descr['sourcefile']),
-		_q($p->descr['nom']),
-		@_q($p->id_boucle),
-		intval($p->ligne),
-		'$GLOBALS[\'spip_lang\']'));
+    return join(',', array(
+        _q($p->descr['sourcefile']),
+        _q($p->descr['nom']),
+        @_q($p->id_boucle),
+        intval($p->ligne),
+        '$GLOBALS[\'spip_lang\']'));
 }
 
 /**
@@ -654,25 +654,25 @@ 
 **/
 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;
 }
 
 // http://doc.spip.org/@calculer_dec
 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
@@ -680,67 +680,67 @@ 
 			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 . ';');
 }
 
 // http://doc.spip.org/@calculer_dump_array
 function calculer_dump_array($a)
 {
-  if (!is_array($a)) return $a ;
-  $res = "";
-  if ($a AND $a[0] == "'?'") 
+    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 {
+        " ? " . 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://doc.spip.org/@calculer_dump_join
 function calculer_dump_join($a)
 {
-  $res = "";
-  foreach($a as $k => $v) 
-		$res .= ", '$k' => array(".implode(',',$v).")";
-  return 'array(' . substr($res,2) . ')';
+    $res = "";
+    foreach($a as $k => $v) 
+        $res .= ", '$k' => array(".implode(',',$v).")";
+    return 'array(' . substr($res,2) . ')';
 }
 
 // http://doc.spip.org/@calculer_from
 function calculer_from(&$boucle)
 {
-  $res = "";
-  foreach($boucle->from as $k => $v) $res .= ",'$k' => '$v'";
-  return 'array(' . substr($res,1) . ')';
+    $res = "";
+    foreach($boucle->from as $k => $v) $res .= ",'$k' => '$v'";
+    return 'array(' . substr($res,1) . ')';
 }
 
 // http://doc.spip.org/@calculer_from_type
 function calculer_from_type(&$boucle)
 {
-  $res = "";
-  foreach($boucle->from_type as $k => $v) $res .= ",'$k' => '$v'";
-  return 'array(' . substr($res,1) . ')';
+    $res = "";
+    foreach($boucle->from_type as $k => $v) $res .= ",'$k' => '$v'";
+    return 'array(' . substr($res,1) . ')';
 }
 
 // http://doc.spip.org/@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
@@ -750,32 +750,32 @@ 
 
 // http://doc.spip.org/@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*[)]$/");
@@ -786,173 +786,173 @@ 
 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 $id");
-					$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]!= "'"
+    // 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 $id");
+                    $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)
@@ -962,41 +962,41 @@ 
 // http://doc.spip.org/@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,
@@ -1016,296 +1016,296 @@ 
 
 // http://doc.spip.org/@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(',\\\\([#[()\]{}<>]),',
-		create_function('$a', "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+)-,", create_function('$a', 'return chr($a[1]);'),
-				$boucle->return);
-			$boucles[$i]->descr['squelette'] = preg_replace_callback(",$inerte-(\d+)-,", create_function('$a', 'return "\\\\".chr($a[1]);'),
-				$boucle->descr['squelette']);
-		}
+    // 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(',\\\\([#[()\]{}<>]),',
+        create_function('$a', "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+)-,", create_function('$a', 'return chr($a[1]);'),
+                $boucle->return);
+            $boucles[$i]->descr['squelette'] = preg_replace_callback(",$inerte-(\d+)-,", create_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')) .
-			    " */\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;
+    $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')) .
+                " */\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
-	// et reperer si les doublons sont demandes
-	// pour un inclure ou une boucle document
-	// c'est utile a la fonction champs_traitements
-	if (!$trouver_table)
-		$trouver_table = charger_fonction('trouver_table', 'base');
-
-	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 = $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
+    // et reperer si les doublons sont demandes
+    // pour un inclure ou une boucle document
+    // c'est utile a la fonction champs_traitements
+    if (!$trouver_table)
+        $trouver_table = charger_fonction('trouver_table', 'base');
+
+    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 = $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;
-
-	$boucles[''] = $code;
-	return $boucles;
+    $sourcefile . 
+    ($connect ? " pour $connect" : '') . 
+    (!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") .
+    "\n//\n" .
+    $principal;
+
+    $boucles[''] = $code;
+    return $boucles;
 }
 
 
@@ -1322,16 +1322,16 @@ 
  * 
 **/
 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);
+    }
 }
 
 
@@ -1349,23 +1349,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;
+    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);
-	}
+    } else {
+        $x = $boucle->type_requete;
+        $boucle->type_requete = false;
+        $msg = array('zbug_requeteur_inconnu',
+                array(
+                'requeteur' => 'data',
+                'type' => $x
+        ));
+        erreur_squelette($msg, $boucle);
+    }
 }
 
 ?>

Switch Indentation +141 added lines, -141 removed lines

@@ -799,147 +799,147 @@
 
 		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 $id");
-					$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);
+		    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 $id");
+					    $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 != "''") {

Spacing +167 added lines, -175 removed lines

@@ -57,15 +57,15 @@ 
 
 
 // http://doc.spip.org/@argumenter_inclure
-function argumenter_inclure($params, $rejet_filtres, $p, &$boucles, $id_boucle, $echap=true, $lang = '', $fond1=false){
+function argumenter_inclure($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) {
+	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) {
+		foreach ($couple as $n => $val) {
 			$var = $val[0];
 			if ($var->type != 'texte') {
 			  if ($n OR $k OR $fond1) {
@@ -76,9 +76,9 @@ 
 			  }
 			  else $l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle);
 			} else {
-				preg_match(",^([^=]*)(=?)(.*)$,m", $var->texte,$m);
+				preg_match(",^([^=]*)(=?)(.*)$,m", $var->texte, $m);
 				$var = $m[1];
-				$auto = false;;
+				$auto = false; ;
 				if ($m[2]) {
 				  $v = $m[3];
 				  if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) $v = $m[1];
@@ -97,8 +97,8 @@ 
 				    ? 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? ") . '":" ");
+				    $val = ($echap ? "\'$var\' => ' . argumenter_squelette(" : "'$var' => ")
+				    . $val.($echap ? ") . '" : " ");
 				  else $val = $echap ? "'.$val.'" : $val;
 				  $l[$var] = $val;
 				}
@@ -111,7 +111,7 @@ 
 	// 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?") . '":" ");
+	$l['lang'] = ($echap ? "\'lang\' => ' . argumenter_squelette(" : "'lang' => ").$lang.($echap ? ") . '" : " ");
 
 	return $l;
 }
@@ -140,7 +140,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);
@@ -158,7 +158,7 @@ 
 
 	if (is_array($_contexte)) {
 		// Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
-		if ($env = (isset($_contexte['env'])|| isset($_contexte['self']))) {
+		if ($env = (isset($_contexte['env']) || isset($_contexte['self']))) {
 			unset($_contexte['env']);
 		}
 
@@ -167,8 +167,8 @@ 
 			$_contexte['doublons'] = "\\'doublons\\' => '.var_export(\$doublons,true).'";
 		}
 
-		if ($ajax = isset($_contexte['ajax'])){
-			$ajax = preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
+		if ($ajax = isset($_contexte['ajax'])) {
+			$ajax = preg_replace(",=>(.*)$,ims", '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
 			unset($_contexte['ajax']);
 		}
 
@@ -177,7 +177,7 @@ 
 	else
 		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)";
@@ -186,15 +186,15 @@ 
 	// 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 	{
+	} 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\")") . ';';
+		$code = "echo ".sprintf(CODE_RECUPERER_FOND, $code, $contexte, implode(',', $_options), "_request(\"connect\")").';';
 	}
 
-	return	"\n'<'.'".	"?php ". $code . "\n?'." . "'>'";
+	return	"\n'<'.'"."?php ".$code."\n?'."."'>'";
 }
 
 
@@ -211,7 +211,7 @@ 
  * @param bool $ignore_previsu
  *     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){
+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
@@ -238,12 +238,12 @@ 
 */
 	$id_table = $boucle->id_table;
 	$show = $boucle->show;
-	if (isset($show['statut']) AND $show['statut']){
-		foreach($show['statut'] as $k=>$s){
+	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) {
+				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;
@@ -252,19 +252,19 @@ 
 			}
 
 			if ($filtrer) {
-				if (is_array($s['champ'])){
-					$statut = preg_replace(',\W,','',array_pop($s['champ'])); // securite
+				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) {
+					foreach ($s['champ'] as $j) {
 						$id = reset($j);
 						$def = $trouver_table($id);
-						$jointures[] = array('',array($id,$def),end($j));
+						$jointures[] = array('', array($id, $def), end($j));
 					}
 					$jointures[0][0] = $id_table;
-					if (!array_search($id, $boucle->from)){
+					if (!array_search($id, $boucle->from)) {
 						include_spip('public/jointures');
 						fabrique_jointures($boucle, $jointures, true, $boucle->show, $id_table, '', $echapper);
 					}
@@ -273,20 +273,20 @@ 
 				}
 				else {
 					$id = $id_table;
-					$statut = preg_replace(',\W,','',$s['champ']); // securite
+					$statut = preg_replace(',\W,', '', $s['champ']); // securite
 				}
-				$mstatut = $id .'.'.$statut;
+				$mstatut = $id.'.'.$statut;
 
-				$arg_ignore_previsu=($ignore_previsu?",true":'');
+				$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
+					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)
+							quete_condition_postdates($date, $boucle->sql_serveur, $ignore_previsu)
 					);
 				}
 				array_unshift($boucle->where,
@@ -296,7 +296,7 @@ 
 							._q($s['publie']).","
 							._q($boucle->sql_serveur)."$arg_ignore_previsu)"
 					:
-						quete_condition_statut($mstatut,$s['previsu'],$s['publie'],$boucle->sql_serveur,$ignore_previsu)
+						quete_condition_statut($mstatut, $s['previsu'], $s['publie'], $boucle->sql_serveur, $ignore_previsu)
 				);
 			}
 		}
@@ -325,10 +325,10 @@ 
 
 	// en mode debug memoriser les premiers passages dans la boucle,
 	// mais pas tous, sinon ca pete.
-	if  (_request('var_mode_affiche') != 'resultat') 
+	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;";
 	}
@@ -361,7 +361,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;";
@@ -421,14 +421,14 @@ 
 	$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;
+	$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] .= "," . ' .
+		$corps .= "\n\t\t\tforeach(".$boucle->doublons.' as $k) $doublons[$k] .= "," . '.
 		index_pile($id_boucle, $primary, $boucles)
 		. "; // doublons\n";
 
@@ -437,7 +437,7 @@ 
 	//    (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')  ||
+	    (($boucle->lang_select == 'oui') ||
 		    in_array($type_boucle, array(
 		    	'articles', 'rubriques', 'hierarchie', 'breves'
 			)))
@@ -465,7 +465,7 @@ 
 		if (strpos($return, '?php') === false
 		AND preg_match_all("/\W(_T[(]'[^']*'[)])/", $return, $r)) {
 			$i = 1;
-			foreach($r[1] as $t) {
+			foreach ($r[1] as $t) {
 				$init_lang .= "\n\t\$l$i = $t;";
 				$return = str_replace($t, "\$l$i", $return);
 				$i++;
@@ -475,19 +475,15 @@ 
 
 	// 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
@@ -510,7 +506,7 @@ 
 
 	// si le corps est une constante, ne pas appeler le serveur N fois!
 
-	if (preg_match(CODE_MONOTONE,str_replace("\\'",'',$corps), $r)) {
+	if (preg_match(CODE_MONOTONE, str_replace("\\'", '', $corps), $r)) {
 		if (!isset($r[2]) OR (!$r[2])) {
 			if (!$boucle->numrows)
 				return "\n\t\$t0 = '';";
@@ -527,7 +523,7 @@ 
 		if (!$boucle->numrows OR $boucle->limit OR $boucle->mode_partie OR $boucle->group)
 			$count = '1';
 		else $count = 'count(*)';
-		$boucles[$id_boucle]->select[]= $count; 
+		$boucles[$id_boucle]->select[] = $count; 
 	}
 
 	if ($flag_cpt)
@@ -560,7 +556,7 @@ 
 		$corps,
 		$fin_lang,
 		$trace,
-		'BOUCLE'.$id_boucle .' @ '.($boucle->descr['sourcefile'])
+		'BOUCLE'.$id_boucle.' @ '.($boucle->descr['sourcefile'])
 	);
 
 #	var_dump($a);exit;
@@ -582,14 +578,14 @@ 
 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('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('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',
@@ -599,7 +595,7 @@ 
 				  $boucle->limit));
 	$init[] = calculer_dec('having', calculer_dump_array($boucle->having));
 	$s = $d = "";
-	foreach ($init as $i){
+	foreach ($init as $i) {
 		if (reset($i))
 			$s .= "\n\t\t".end($i);
 		else
@@ -683,22 +679,22 @@ 
 	)
 		$static = "";
 
-	return array($static,'$command[\''.$nom.'\'] = ' . $val . ';');
+	return array($static, '$command[\''.$nom.'\'] = '.$val.';');
 }
 
 // http://doc.spip.org/@calculer_dump_array
 function calculer_dump_array($a)
 {
-  if (!is_array($a)) return $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]) .
+    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) . ')';
+    foreach ($a as $v) $res .= ", ".calculer_dump_array($v);
+    return "\n\t\t\tarray(".substr($res, 2).')';
   }
 }
 
@@ -706,25 +702,25 @@ 
 function calculer_dump_join($a)
 {
   $res = "";
-  foreach($a as $k => $v) 
-		$res .= ", '$k' => array(".implode(',',$v).")";
-  return 'array(' . substr($res,2) . ')';
+  foreach ($a as $k => $v) 
+		$res .= ", '$k' => array(".implode(',', $v).")";
+  return 'array('.substr($res, 2).')';
 }
 
 // http://doc.spip.org/@calculer_from
 function calculer_from(&$boucle)
 {
   $res = "";
-  foreach($boucle->from as $k => $v) $res .= ",'$k' => '$v'";
-  return 'array(' . substr($res,1) . ')';
+  foreach ($boucle->from as $k => $v) $res .= ",'$k' => '$v'";
+  return 'array('.substr($res, 1).')';
 }
 
 // http://doc.spip.org/@calculer_from_type
 function calculer_from_type(&$boucle)
 {
   $res = "";
-  foreach($boucle->from_type as $k => $v) $res .= ",'$k' => '$v'";
-  return 'array(' . substr($res,1) . ')';
+  foreach ($boucle->from_type as $k => $v) $res .= ",'$k' => '$v'";
+  return 'array('.substr($res, 1).')';
 }
 
 // http://doc.spip.org/@calculer_order
@@ -749,7 +745,7 @@ 
 // (qui sera argument d'un Return ou la partie droite d'une affectation).
 
 // http://doc.spip.org/@calculer_liste
-function calculer_liste($tableau, $descr, &$boucles, $id_boucle='') {
+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);
@@ -758,28 +754,28 @@ 
 	if (!$n) return "''";
 	$tab = str_repeat("\t", $descr['niv']);
 	if (_request('var_mode_affiche') != 'validation') {
-		if ($n==1) 
+		if ($n == 1) 
 			return $codes[0];
 		else {
 			$res = '';
-			foreach($codes as $code) {
+			foreach ($codes as $code) {
 				if (!preg_match("/^'[^']*'$/", $code)
-				OR substr($res,-1,1)!=="'")
-				  $res .=  " .\n$tab$code";
+				OR substr($res, -1, 1) !== "'")
+				  $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']:'');
-	  return "join('', array_map('array_shift', \$GLOBALS['debug_objets']['sequence']['$nom'] = array(" .  join(" ,\n$tab", $codes) . ")))";
+	  $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*[)]$/");
-define('_REGEXP_COND_NONVIDE_VIDE',"/^[(](.*)[?]\s*('[^']+')\s*:\s*''\s*[)]$/");
+define('_REGEXP_COND_VIDE_NONVIDE', "/^[(](.*)[?]\s*''\s*:\s*('[^']+')\s*[)]$/");
+define('_REGEXP_COND_NONVIDE_VIDE', "/^[(](.*)[?]\s*('[^']+')\s*:\s*''\s*[)]$/");
 define('_REGEXP_CONCAT_NON_VIDE', "/^(.*)[.]\s*'[^']+'\s*$/");
 
 // http://doc.spip.org/@compile_cas
@@ -797,31 +793,31 @@ 
 	// par un caractere distinguant le cas, pour exploitation par debug.
 	foreach ($tableau as $p) {
 
-		switch($p->type) {
+		switch ($p->type) {
 		// texte seul
 		case 'texte':
 			$code = sandbox_composer_texte($p->texte, $p);
-			$commentaire= strlen($p->texte) . " signes";
-			$avant='';
-			$apres='';
+			$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) .
+			foreach ($p->traductions as $k => $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='';
-			$apres='';
+			$commentaire = '&';
+			$avant = '';
+			$apres = '';
 			$altern = "''";
 			break;
 
@@ -833,9 +829,9 @@ 
 				$err_e_c = true;
 				$code = "''";
 			} else {
-				$commentaire = '<INCLURE ' . addslashes(str_replace("\n", ' ', $code)) . '>';
-				$avant='';
-				$apres='';
+				$commentaire = '<INCLURE '.addslashes(str_replace("\n", ' ', $code)).'>';
+				$avant = '';
+				$apres = '';
 				$altern = "''";
 			}
 			break;
@@ -857,14 +853,14 @@ 
 				$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";
+				$commentaire = "?$nom";
 				if (!$boucles[$nom]->milieu
 				AND $boucles[$nom]->type_requete <> TYPE_RECURSIF) {
 					if ($altern != "''") $code .= "\n. $altern";
-					if ($avant<>"''" OR $apres<>"''")
+					if ($avant <> "''" OR $apres <> "''")
 					  spip_log("boucle $nom toujours vide, code superflu dans $id");
 					$avant = $apres = $altern = "''";
 				} else if ($altern != "''") $altern = "($altern)";
@@ -877,23 +873,21 @@ 
 			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;
@@ -901,8 +895,8 @@ 
 				$code = compose_filtres($p, $code);
 			}
 			$commentaire = ":";
-			$avant='';
-			$apres='';
+			$avant = '';
+			$apres = '';
 			$altern = "''";
 			break;
 
@@ -916,7 +910,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,
@@ -926,7 +920,7 @@ 
 			// 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 $code[0] != "'"
 #			AND (strpos($code,'interdire_scripts') !== 0)
 			AND !preg_match(_REGEXP_COND_VIDE_NONVIDE, $code)
 			AND !preg_match(_REGEXP_COND_NONVIDE_VIDE, $code)
@@ -944,11 +938,10 @@ 
 
 		if ($code != "''") {
 			$code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']);
-			$codes[]= (($mode == 'validation') ?
-				"array($code, '$commentaire', " . $p->ligne . ")"
+			$codes[] = (($mode == 'validation') ?
+				"array($code, '$commentaire', ".$p->ligne.")"
 				: (($mode == 'code') ?
-				"\n// $commentaire\n$code" :
-				$code));
+				"\n// $commentaire\n$code" : $code));
 		}
 	} // foreach
 
@@ -964,24 +957,24 @@ 
 {
 	if ($avant == "''") $avant = '';
 	if ($apres == "''") $apres = '';
-	if (!$avant AND !$apres AND ($altern==="''")) return $code;
+	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)) {
+	} 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)) {
+		$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) $res = "($res)";
@@ -991,9 +984,9 @@ 
 
 function compile_inclure_doublons($lexemes)
 {
-	foreach($lexemes as $v)
-	  if($v->type === 'include' AND $v->param) 
-	    foreach($v->param as $r) 
+	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;
@@ -1015,7 +1008,7 @@ 
 // En cas d'erreur, elle retournera un tableau des 2 premiers elements seulement
 
 // http://doc.spip.org/@public_compiler_dist
-function public_compiler_dist($squelette, $nom, $gram, $sourcefile, $connect=''){
+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');
@@ -1023,7 +1016,7 @@ 
 
 	// rendre inertes les echappements de #[](){}<>
 	$i = 0;
-	while(false !== strpos($squelette, $inerte = '-INERTE'.$i)) $i++;
+	while (false !== strpos($squelette, $inerte = '-INERTE'.$i)) $i++;
 	$squelette = preg_replace_callback(',\\\\([#[()\]{}<>]),',
 		create_function('$a', "return '$inerte-'.ord(\$a[1]).'-';"), $squelette, -1, $esc);
 
@@ -1035,14 +1028,14 @@ 
 	// 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);
 	$boucles = compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect);
 
 	// restituer les echappements
 	if ($esc)
-		foreach($boucles as $i=>$boucle) {
+		foreach ($boucles as $i=>$boucle) {
 			$boucles[$i]->return = preg_replace_callback(",$inerte-(\d+)-,", create_function('$a', 'return chr($a[1]);'),
 				$boucle->return);
 			$boucles[$i]->descr['squelette'] = preg_replace_callback(",$inerte-(\d+)-,", create_function('$a', 'return "\\\\".chr($a[1]);'),
@@ -1052,17 +1045,17 @@ 
 	$debug = ($boucles AND defined('_VAR_MODE') AND _VAR_MODE == 'debug');
 	if ($debug) {
 		include_spip('public/decompiler');
-		foreach($boucles as $id => $boucle) {
+		foreach ($boucles as $id => $boucle) {
 			if ($id)
-			  $decomp = "\n/* BOUCLE " .
-			    $boucle->type_requete .
-			    " " .
-			    str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')) .
+			  $decomp = "\n/* BOUCLE ".
+			    $boucle->type_requete.
+			    " ".
+			    str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')).
 			    " */\n";
-			else $decomp = ("\n/*\n" . 
+			else $decomp = ("\n/*\n". 
 				 str_replace('*/', '* /', public_decompiler($squelette, $gram)) 
 				 . "\n*/");
-			$boucles[$id]->return = $decomp .$boucle->return; 
+			$boucles[$id]->return = $decomp.$boucle->return; 
 			$GLOBALS['debug_objets']['code'][$nom.$id] = $boucle->return;
 		}
 	}
@@ -1073,7 +1066,7 @@ 
 // 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=''){
+function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect = '') {
 	static $trouver_table;
 	spip_timer('calcul_skel');
 
@@ -1096,7 +1089,7 @@ 
 	if (!$trouver_table)
 		$trouver_table = charger_fonction('trouver_table', 'base');
 
-	foreach($boucles as $id => $boucle) {
+	foreach ($boucles as $id => $boucle) {
 		if (!($type = $boucle->type_requete)) continue;
 		if (!$descr['documents'] AND (
 			(($type == 'documents') AND $boucle->doublons) OR
@@ -1127,14 +1120,14 @@ 
 				// 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))) {
+				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 = $show['key']["PRIMARY KEY"];
-					$boucles[$id]->id_table = $x = preg_replace(",^spip_,","",$show['id_table']);
+					$boucles[$id]->id_table = $x = preg_replace(",^spip_,", "", $show['id_table']);
 					$boucles[$id]->from[$x] = $nom_table = $show['table'];
 					$boucles[$id]->iterateur = 'SQL';
 
@@ -1143,20 +1136,19 @@ 
 					    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);
+					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  {
+					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',
 						             array('table' => $x));
@@ -1169,7 +1161,7 @@ 
 
 	// Commencer par reperer les boucles appelees explicitement 
 	// car elles indexent les arguments de maniere derogatoire
-	foreach($boucles as $id => $boucle) {
+	foreach ($boucles as $id => $boucle) {
 		if ($boucle->type_requete == TYPE_RECURSIF AND $boucle->param) {
 			$boucles[$id]->descr = &$descr;
 			$rec = &$boucles[$boucle->param[0]];
@@ -1189,7 +1181,7 @@ 
 			}
 		}
 	}
-	foreach($boucles as $id => $boucle) { 
+	foreach ($boucles as $id => $boucle) { 
 		$id = strval($id); // attention au type dans index_pile
 		$type = $boucle->type_requete;
 		if ($type AND $type != TYPE_RECURSIF) {
@@ -1223,9 +1215,9 @@ 
 	// en particulier les requetes SQL et TOTAL_BOUCLE
 	// de'terminables seulement maintenant
 
-	foreach($boucles as $id => $boucle) {
+	foreach ($boucles as $id => $boucle) {
 		$boucle = $boucles[$id] = pipeline('pre_boucle', $boucle);
-		if ($boucle->return === false) {$corps = false; continue;}
+		if ($boucle->return === false) {$corps = false; continue; }
 		// appeler la fonction de definition de la boucle
 
 		if ($req = $boucle->type_requete) {
@@ -1242,25 +1234,25 @@ 
 				// 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) .
-				";" .
+			$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";
 	}
 
@@ -1268,7 +1260,7 @@ 
 	// retourner False, sinon inserer leur decompilation
 	if (is_bool($corps)) 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
 .'
@@ -1276,15 +1268,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).");
+	return analyse_resultat_skel(".var_export($nom, true)
+		.", \$Cache, \$page, ".var_export($sourcefile, true).");
 }";
 
 	$secondes = spip_timer('calcul_skel');
@@ -1298,10 +1290,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;
@@ -1350,7 +1342,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, ...)

Braces +198 added lines, -111 removed lines

@@ -17,7 +17,9 @@ 
  * @package SPIP\Compilateur\Compilation
 **/
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 /** Repérer un code ne calculant rien, meme avec commentaire */
 define('CODE_MONOTONE', ",^(\n//[^\n]*\n)?\(?'([^'])*'\)?$,");
@@ -60,11 +62,15 @@ 
 function argumenter_inclure($params, $rejet_filtres, $p, &$boucles, $id_boucle, $echap=true, $lang = '', $fond1=false){
 	$l = array();
 	$erreur_p_i_i = '';
-	if (!is_array($params)) return $l;
+	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;
+		if ($filtre) {
+		    break;
+		}
 		foreach($couple as $n => $val) {
 			$var = $val[0];
 			if ($var->type != 'texte') {
@@ -73,20 +79,25 @@ 
 					 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 $l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle);
 			} else {
 				preg_match(",^([^=]*)(=?)(.*)$,m", $var->texte,$m);
 				$var = $m[1];
 				$auto = false;;
 				if ($m[2]) {
 				  $v = $m[3];
-				  if (preg_match(',^[\'"](.*)[\'"]$,', $v, $m)) $v = $m[1];
+				  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;
+				} else {
+				    $var = 1;
+				}
 
 				if ($var == 'lang') {
 				  $lang = !$auto 
@@ -96,21 +107,29 @@ 
 				  $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' => ")
+				  if ($var !== 1) {
+				  				    $val = ($echap?"\'$var\' => ' . argumenter_squelette(":"'$var' => ")
 				    . $val . ($echap? ") . '":" ");
-				  else $val = $echap ? "'.$val.'" : $val;
+				  } else {
+				      $val = $echap ? "'.$val.'" : $val;
+				  }
 				  $l[$var] = $val;
 				}
 			}
 		}
 	}
-	if ($erreur_p_i_i) return false;
+	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"]';
+	if ($lang === false) {
+	    return $l;
+	}
+	if (!$lang) {
+	    $lang = '$GLOBALS["spip_lang"]';
+	}
 	$l['lang'] = ($echap?"\'lang\' => ' . argumenter_squelette(":"'lang' => ")  . $lang . ($echap?") . '":" ");
 
 	return $l;
@@ -144,9 +163,11 @@ 
 
 	} 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 AND preg_match("/^'([^']*)'/s", $code, $r)) {
+					$fichier = $r[1];
+		} else {
+		    $fichier = '';
+		}
 	}
 	if (!$code OR $code === '""') {
 		$erreur_p_i_i = array('zbug_parametres_inclus_incorrects',
@@ -173,9 +194,10 @@ 
 		}
 
 		$_contexte = join(",\n\t", $_contexte);
+	} else {
+			return false;
 	}
-	else
-		return false; // j'aurais voulu toucher le fond ...
+	// j'aurais voulu toucher le fond ...
 		
 	$contexte = 'array(' . $_contexte  .')';
 
@@ -188,8 +210,9 @@ 
 		$code = sandbox_composer_inclure_php($fichier, $p, $contexte);
 	} else 	{
 		$_options[] = "\"compil\"=>array($compil)";
-		if ($ajax)
-			$_options[] = $ajax;
+		if ($ajax) {
+					$_options[] = $ajax;
+		}
 		$code = " ' . argumenter_squelette($code) . '"; 
 		$code = "echo " . sprintf(CODE_RECUPERER_FOND, $code, $contexte, implode(',',$_options), "_request(\"connect\")") . ';';
 	}
@@ -270,8 +293,7 @@ 
 					}
 					// trouver l'alias de la table d'arrivee qui porte le statut
 					$id = array_search($id, $boucle->from);
-				}
-				else {
+				} else {
 					$id = $id_table;
 					$statut = preg_replace(',\W,','',$s['champ']); // securite
 				}
@@ -325,9 +347,9 @@ 
 
 	// en mode debug memoriser les premiers passages dans la boucle,
 	// mais pas tous, sinon ca pete.
-	if  (_request('var_mode_affiche') != 'resultat') 
-		$trace = '';
-	else {
+	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;";
@@ -427,10 +449,11 @@ 
 
 	// 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] .= "," . ' .
+	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
@@ -456,8 +479,7 @@ 
 				'articles', 'rubriques', 'hierarchie', 'breves'
 				)) ? ', '.index_pile($id_boucle, 'titre', $boucles) : '')
 			. ');';
-	}
-	else {
+	} else {
 		$init_lang = '';
 		$fin_lang = '';
 		$fin_lang_select_public = '';
@@ -474,8 +496,9 @@ 
 	}
 
 	// gestion optimale des separateurs et des boucles constantes
-	if (count($boucle->separateur))
-	  $code_sep = ("'" . str_replace("'","\'",join('',$boucle->separateur)) . "'");
+	if (count($boucle->separateur)) {
+		  $code_sep = ("'" . str_replace("'","\'",join('',$boucle->separateur)) . "'");
+	}
 
 	$corps .= 
 		((!$boucle->separateur) ? 
@@ -493,17 +516,19 @@ 
 	// souhaite invalider ces elements
 	if (!$constant AND $primary) {
 		include_spip('inc/invalideur');
-		if (function_exists($i = 'calcul_invalideurs'))
-			$corps = $i($corps, $primary, $boucles, $id_boucle);
+		if (function_exists($i = 'calcul_invalideurs')) {
+					$corps = $i($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']++;"
+	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;
@@ -512,28 +537,35 @@ 
 
 	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 = "";
+			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	}"; 
+	} 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(*)';
+		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"
+	if ($flag_cpt) {
+			$nums = "\n\t// COMPTEUR\n\t"
 		. "\$Numrows['$id_boucle']['compteur_boucle'] = 0;\n\t";
-	else $nums = '';
+	} else {
+	    $nums = '';
+	}
 
 	if ($boucle->numrows OR $boucle->mode_partie) {
 		$nums .= "\$Numrows['$id_boucle']['total'] = @intval(\$iter->count());"
@@ -600,10 +632,11 @@ 
 	$init[] = calculer_dec('having', calculer_dump_array($boucle->having));
 	$s = $d = "";
 	foreach ($init as $i){
-		if (reset($i))
-			$s .= "\n\t\t".end($i);
-		else
-			$d .= "\n\t".end($i);
+		if (reset($i)) {
+					$s .= "\n\t\t".end($i);
+		} else {
+					$d .= "\n\t".end($i);
+		}
 	}
 
 	return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
@@ -654,7 +687,9 @@ 
 **/
 function reconstruire_contexte_compil($context_compil)
 {
-	if (!is_array($context_compil)) return $context_compil;
+	if (!is_array($context_compil)) {
+	    return $context_compil;
+	}
 	$p = new Contexte;
 	$p->descr = array('sourcefile' => $context_compil[0],
 				  'nom' => $context_compil[1]);
@@ -680,8 +715,9 @@ 
 			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 . ';');
 }
@@ -689,15 +725,19 @@ 
 // http://doc.spip.org/@calculer_dump_array
 function calculer_dump_array($a)
 {
-  if (!is_array($a)) return $a ;
+  if (!is_array($a)) {
+      return $a ;
+  }
   $res = "";
-  if ($a AND $a[0] == "'?'") 
-    return ("(" . calculer_dump_array($a[1]) .
+  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);
+  } else {
+    foreach($a as $v) {
+        $res .= ", " . calculer_dump_array($v);
+    }
     return "\n\t\t\tarray(" . substr($res,2) . ')';
   }
 }
@@ -706,8 +746,9 @@ 
 function calculer_dump_join($a)
 {
   $res = "";
-  foreach($a as $k => $v) 
-		$res .= ", '$k' => array(".implode(',',$v).")";
+  foreach($a as $k => $v) {
+  		$res .= ", '$k' => array(".implode(',',$v).")";
+  }
   return 'array(' . substr($res,2) . ')';
 }
 
@@ -715,7 +756,9 @@ 
 function calculer_from(&$boucle)
 {
   $res = "";
-  foreach($boucle->from as $k => $v) $res .= ",'$k' => '$v'";
+  foreach($boucle->from as $k => $v) {
+      $res .= ",'$k' => '$v'";
+  }
   return 'array(' . substr($res,1) . ')';
 }
 
@@ -723,7 +766,9 @@ 
 function calculer_from_type(&$boucle)
 {
   $res = "";
-  foreach($boucle->from_type as $k => $v) $res .= ",'$k' => '$v'";
+  foreach($boucle->from_type as $k => $v) {
+      $res .= ",'$k' => '$v'";
+  }
   return 'array(' . substr($res,1) . ')';
 }
 
@@ -731,8 +776,9 @@ 
 function calculer_order(&$boucle)
 {
 	if (!$order = $boucle->order
-	AND !$order = $boucle->default_order)
-		$order = array();
+	AND !$order = $boucle->default_order) {
+			$order = array();
+	}
 
 	/*if (isset($boucle->modificateur['collate'])){
 		$col = "." . $boucle->modificateur['collate'];
@@ -750,23 +796,31 @@ 
 
 // http://doc.spip.org/@calculer_liste
 function calculer_liste($tableau, $descr, &$boucles, $id_boucle='') {
-	if (!$tableau) return "''";
-	if (!isset($descr['niv'])) $descr['niv'] = 0;
+	if (!$tableau) {
+	    return "''";
+	}
+	if (!isset($descr['niv'])) {
+	    $descr['niv'] = 0;
+	}
 	$codes = compile_cas($tableau, $descr, $boucles, $id_boucle);
-	if ($codes === false) return false;
+	if ($codes === false) {
+	    return false;
+	}
 	$n = count($codes);
-	if (!$n) return "''";
+	if (!$n) {
+	    return "''";
+	}
 	$tab = str_repeat("\t", $descr['niv']);
 	if (_request('var_mode_affiche') != 'validation') {
-		if ($n==1) 
-			return $codes[0];
-		else {
+		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 {
+				OR substr($res,-1,1)!=="'") {
+								  $res .=  " .\n$tab$code";
+				} else {
 				  $res = substr($res,0,-1) . substr($code,1);
 				}
 			}
@@ -787,8 +841,9 @@ 
 
         $codes = array();
 	// cas de la boucle recursive
-	if (is_array($id_boucle)) 
-	  $id_boucle = $id_boucle[0];
+	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');
@@ -863,11 +918,16 @@ 
 				$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 $id");
+					if ($altern != "''") {
+					    $code .= "\n. $altern";
+					}
+					if ($avant<>"''" OR $apres<>"''") {
+										  spip_log("boucle $nom toujours vide, code superflu dans $id");
+					}
 					$avant = $apres = $altern = "''";
-				} else if ($altern != "''") $altern = "($altern)";
+				} else if ($altern != "''") {
+				    $altern = "($altern)";
+				}
 			}
 			break;
 
@@ -930,8 +990,9 @@ 
 #			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)";
+			AND !preg_match(_REGEXP_CONCAT_NON_VIDE, $code)) {
+							$code = "strval($code)";
+			}
 			break;
 
 		default: 
@@ -962,9 +1023,15 @@ 
 // http://doc.spip.org/@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 ($avant == "''") {
+	    $avant = '';
+	}
+	if ($apres == "''") {
+	    $apres = '';
+	}
+	if (!$avant AND !$apres AND ($altern==="''")) {
+	    return $code;
+	}
 
 	if (preg_match(_REGEXP_CONCAT_NON_VIDE, $code)) {
 		$t = $code;
@@ -984,18 +1051,21 @@ 
 		$t .
 		(!$apres ? "" : " . $apres");
 
-	if ($res !== $t) $res = "($res)";
+	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($lexemes as $v) {
+		  if($v->type === 'include' AND $v->param) 
 	    foreach($v->param as $r) 
 	      if (trim($r[0]) === 'doublons') 
 		return true;
+	}
 	return false;
 }
 
@@ -1023,7 +1093,9 @@ 
 
 	// rendre inertes les echappements de #[](){}<>
 	$i = 0;
-	while(false !== strpos($squelette, $inerte = '-INERTE'.$i)) $i++;
+	while(false !== strpos($squelette, $inerte = '-INERTE'.$i)) {
+	    $i++;
+	}
 	$squelette = preg_replace_callback(',\\\\([#[()\]{}<>]),',
 		create_function('$a', "return '$inerte-'.ord(\$a[1]).'-';"), $squelette, -1, $esc);
 
@@ -1041,10 +1113,11 @@ 
 	$boucles = compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $connect);
 
 	// restituer les echappements
-	if ($esc)
-		foreach($boucles as $i=>$boucle) {
+	if ($esc) {
+			foreach($boucles as $i=>$boucle) {
 			$boucles[$i]->return = preg_replace_callback(",$inerte-(\d+)-,", create_function('$a', 'return chr($a[1]);'),
 				$boucle->return);
+	}
 			$boucles[$i]->descr['squelette'] = preg_replace_callback(",$inerte-(\d+)-,", create_function('$a', 'return "\\\\".chr($a[1]);'),
 				$boucle->descr['squelette']);
 		}
@@ -1053,15 +1126,17 @@ 
 	if ($debug) {
 		include_spip('public/decompiler');
 		foreach($boucles as $id => $boucle) {
-			if ($id)
-			  $decomp = "\n/* BOUCLE " .
+			if ($id) {
+						  $decomp = "\n/* BOUCLE " .
 			    $boucle->type_requete .
 			    " " .
 			    str_replace('*/', '* /', public_decompiler($boucle, $gram, 0, 'criteres')) .
 			    " */\n";
-			else $decomp = ("\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;
 		}
@@ -1081,8 +1156,9 @@ 
 		$GLOBALS['debug_objets']['squelette'][$nom] = $descr['squelette'];
 		$GLOBALS['debug_objets']['sourcefile'][$nom] = $sourcefile;
 
-		if (!isset($GLOBALS['debug_objets']['principal']))
-			$GLOBALS['debug_objets']['principal'] = $nom;
+		if (!isset($GLOBALS['debug_objets']['principal'])) {
+					$GLOBALS['debug_objets']['principal'] = $nom;
+		}
 	}
 	foreach ($boucles as $id => $boucle) {
 		$GLOBALS['debug_objets']['boucle'][$nom.$id] = $boucle;
@@ -1093,21 +1169,26 @@ 
 	// et reperer si les doublons sont demandes
 	// pour un inclure ou une boucle document
 	// c'est utile a la fonction champs_traitements
-	if (!$trouver_table)
-		$trouver_table = charger_fonction('trouver_table', 'base');
+	if (!$trouver_table) {
+			$trouver_table = charger_fonction('trouver_table', 'base');
+	}
 
 	foreach($boucles as $id => $boucle) {
-		if (!($type = $boucle->type_requete)) continue;
+		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;  
+				compile_inclure_doublons($boucle->altern))) {
+					$descr['documents'] = true;
+		}
 		if ($type != TYPE_RECURSIF) {
-			if (!$boucles[$id]->sql_serveur AND $connect)
-				$boucles[$id]->sql_serveur = $connect;
+			if (!$boucles[$id]->sql_serveur AND $connect) {
+							$boucles[$id]->sql_serveur = $connect;
+			}
 
 			// chercher dans les iterateurs du repertoire iterateur/
 			if ($g = charger_fonction(
@@ -1141,18 +1222,20 @@ 
 					$boucles[$id]->descr = &$descr;
 					if ((!$boucles[$id]->jointures)
 					    AND is_array($show['tables_jointures'])
-					        AND count($x = $show['tables_jointures']))
-						$boucles[$id]->jointures = $x;
+					        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);
+						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  {
+					if ($boucles[$id]->table_optionnelle) {
+											$boucles[$id]->type_requete = '';
+					} else  {
 						$boucles[$id]->type_requete = false;
 						$boucle = $boucles[$id];
 						$x = (!$boucle->sql_serveur ? '' :
@@ -1255,7 +1338,9 @@ 
 				_q($boucle->sql_serveur) .
 				";" .
 				$f($id, $boucles);
-		} else $req = ("\n\treturn '';");
+		} else {
+		    $req = ("\n\treturn '';");
+		}
 
 		$boucles[$id]->return = 
 			"\n\nfunction BOUCLE" . strtr($id,"-","_") . $nom .
@@ -1266,7 +1351,9 @@ 
 
 	// 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;
+	if (is_bool($corps)) {
+	    return false;
+	}
 
 	$principal = "\nfunction " . $nom . '($Cache, $Pile, $doublons=array(), $Numrows=array(), $SP=0) {
 '

ecrire/public/criteres.php

Doc Comments +13 added lines

@@ -788,6 +788,9 @@ 
 // Code specifique aux criteres {pagination}, {1,n} {n/m} etc
 //
 
+/**
+ * @param string $mode
+ */
 function calculer_parties(&$boucles, $id_boucle, $debut, $mode){
 	$total_parties = $boucles[$id_boucle]->total_parties;
 
@@ -978,6 +981,9 @@ 
 }
 
 // http://doc.spip.org/@critere_IN_cas
+/**
+ * @param string $crit2
+ */
 function critere_IN_cas($idb, &$boucles, $crit2, $arg, $op, $val, $col){
 	static $num = array();
 	$descr = $boucles[$idb]->descr;
@@ -1473,6 +1479,9 @@ 
 
 
 // http://doc.spip.org/@trouver_champ
+/**
+ * @param string $champ
+ */
 function trouver_champ($champ, $where){
 	if (!is_array($where))
 		return preg_match($champ, $where);
@@ -1680,6 +1689,10 @@ 
 }
 
 // http://doc.spip.org/@calculer_param_date
+/**
+ * @param string $date_compare
+ * @param string $date_orig
+ */
 function calculer_param_date($date_compare, $date_orig){
 	if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)){
 		$init = "'\" . (\$x = $r[1]) . \"'";

Indentation +1307 added lines, -1307 removed lines

@@ -45,15 +45,15 @@ 
  *     AST complété de la gestion du critère
 **/
 function critere_racine_dist($idb, &$boucles, $crit){
-	global $exceptions_des_tables;
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$id_parent = isset($exceptions_des_tables[$boucle->id_table]['id_parent']) ?
-		$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);
+    global $exceptions_des_tables;
+    $not = $crit->not;
+    $boucle = &$boucles[$idb];
+    $id_parent = isset($exceptions_des_tables[$boucle->id_table]['id_parent']) ?
+        $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);
 }
 
 
@@ -74,14 +74,14 @@ 
  *     AST complété de la gestion du critère
 **/
 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);
 }
 
 
@@ -105,72 +105,72 @@ 
  * 		AST complété de la gestion du critère
 **/
 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 = "";
 }
 
 
@@ -195,26 +195,26 @@ 
  *     AST complété de la gestion du critère
 **/
 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;
 }
 
 // {debut_xxx}
 // http://www.spip.net/@debut_
 // http://doc.spip.org/@critere_debut_dist
 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);
 }
 
 // {pagination}
@@ -225,46 +225,46 @@ 
 // http://doc.spip.org/@critere_pagination_dist
 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);
-	}
-	$type = !isset($crit->param[0][1]) ? "'$idb'"
-		: calculer_liste(array($crit->param[0][1]), 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);
+    }
+    $type = !isset($crit->param[0][1]) ? "'$idb'"
+        : calculer_liste(array($crit->param[0][1]), 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;
 }
 
 
@@ -273,22 +273,22 @@ 
 // http://doc.spip.org/@critere_recherche_dist
 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);
-		return;
-	}
+    if (!$boucle->primary OR strpos($boucle->primary, ',')){
+        erreur_squelette(_T('zbug_critere_sur_table_sans_cle_primaire',array('critere'=>'recherche')), $boucle);
+        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' : '').'
@@ -299,20 +299,20 @@ 
 	';
 
 
-	$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:\'\'';
 }
 
 // {traduction}
@@ -321,22 +321,22 @@ 
 //    OR id_article=id_article(precedent)
 // http://doc.spip.org/@critere_traduction_dist
 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)
+                )
+        );
 }
 
 // {origine_traduction}
@@ -344,38 +344,38 @@ 
 // http://www.spip.net/@origine_traduction
 // http://doc.spip.org/@critere_origine_traduction_dist
 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);
 }
 
 // {meme_parent}
 // http://www.spip.net/@meme_parent
 // http://doc.spip.org/@critere_meme_parent_dist
 function critere_meme_parent_dist($idb, &$boucles, $crit){
-	global $exceptions_des_tables;
-	$boucle = &$boucles[$idb];
-	$arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles));
-	$id_parent = isset($exceptions_des_tables[$boucle->id_table]['id_parent']) ?
-		$exceptions_des_tables[$boucle->id_table]['id_parent'] :
-		'id_parent';
-	$mparent = $boucle->id_table.'.'.$id_parent;
-
-	if ($boucle->type_requete=='rubriques' OR isset($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)));
-	}
+    global $exceptions_des_tables;
+    $boucle = &$boucles[$idb];
+    $arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles));
+    $id_parent = isset($exceptions_des_tables[$boucle->id_table]['id_parent']) ?
+        $exceptions_des_tables[$boucle->id_table]['id_parent'] :
+        'id_parent';
+    $mparent = $boucle->id_table.'.'.$id_parent;
+
+    if ($boucle->type_requete=='rubriques' OR isset($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)));
+    }
 }
 
 
@@ -400,249 +400,249 @@ 
 **/
 function critere_branche_dist($idb, &$boucles, $crit){
 
-	$not = $crit->not;
-	$boucle = &$boucles[$idb];
-	$arg = calculer_argument_precedent($idb, 'id_rubrique', $boucles);
-
-	//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];
+    $arg = calculer_argument_precedent($idb, 'id_rubrique', $boucles);
+
+    //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'").')');
 }
 
 // {logo} liste les objets qui ont un logo
 // http://doc.spip.org/@critere_logo_dist
 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;
 }
 
 // c'est la commande SQL "GROUP BY"
 // par exemple <boucle(articles){fusion lang}>
 // http://doc.spip.org/@critere_fusion_dist
 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.' ?')));
 }
 
 // c'est la commande SQL "COLLATE"
 // qui peut etre appliquee sur les order by, group by, where like ...
 // http://doc.spip.org/@critere_collecte_dist
 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))
-			$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))
+            $boucle->order[$n-1] .= " . ".$boucle->modificateur['collate'];
+    } else
+        return (array('zbug_critere_inconnu', array('critere' => $crit->op." ".count($boucles[$idb]->order))));
 }
 
 // http://doc.spip.org/@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 : '')";
 }
 
 // Tri : {par xxxx}
 // http://www.spip.net/@par
 // http://doc.spip.org/@critere_par_dist
 function critere_par_dist($idb, &$boucles, $crit){
-	return critere_parinverse($idb, $boucles, $crit);
+    return critere_parinverse($idb, $boucles, $crit);
 }
 
 // http://doc.spip.org/@critere_parinverse
 function critere_parinverse($idb, &$boucles, $crit, $sens = ''){
-	global $exceptions_des_jointures;
-	$boucle = &$boucles[$idb];
-	if ($crit->not) $sens = $sens ? "" : " . ' DESC'";
-	$collecte = (isset($boucle->modificateur['collecte'])) ? " . ".$boucle->modificateur['collecte'] : "";
-
-	foreach ($crit->param as $tri){
-
-		$order = $fct = ""; // en cas de fonction SQL
-		// tris specifies dynamiquement
-		if ($tri[0]->type!='texte'){
-			// calculer le order dynamique qui verifie les champs
-			$order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens);
-			// et si ce n'est fait, ajouter un champ 'hasard' 
-			// pour supporter 'hasard' comme tri dynamique
-			$par = "rand()";
-			$parha = $par." AS hasard";
-			if (!in_array($parha, $boucle->select))
-				$boucle->select[] = $parha;
-		} else {
-			$par = array_shift($tri);
-			$par = $par->texte;
-			// par multi champ
-			if (preg_match(",^multi[\s]*(.*)$,", $par, $m)){
-				$champ = trim($m[1]);
-				// par multi L1.champ
-				if (strpos($champ, '.')) {
-					$cle = '';
-				// par multi champ (champ sur une autre table)
-				} elseif (!array_key_exists($champ, $boucle->show['field'])){
-					$cle = trouver_jointure_champ($champ, $boucle);
-				// par multi champ (champ dans la table en cours)
-				} else {
-					$cle = $boucle->id_table;
-				}
-				if ($cle) { $cle .= '.'; }
-				$texte = $cle.$champ;
-				$boucle->select[] = "\".sql_multi('".$texte."', \$GLOBALS['spip_lang']).\"";
-				$order = "'multi'";
-				// par num champ(, suite)
-			} else if (preg_match(",^num (.*)$,m", $par, $m)) {
-				$champ = trim($m[1]);
-				// par num L1.champ
-				if (strpos($champ, '.')) {
-					$cle = '';
-				// par num champ (champ sur une autre table)
-				} elseif (!array_key_exists($champ, $boucle->show['field'])){
-					$cle = trouver_jointure_champ($champ, $boucle);
-				// par num champ (champ dans la table en cours)
-				} else {
-					$cle = $boucle->id_table;
-				}
-				if ($cle) { $cle .= '.'; }
-				$texte = '0+'. $cle . $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'";
-			} else {
-				if (!preg_match(",^".CHAMP_SQL_PLUS_FONC.'$,is', $par, $match)){
-					return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
-				} else {
-					if (count($match)>2){
-						$par = substr($match[2], 1, -1);
-						$fct = $match[1];
-					}
-					// par hasard
-					if ($par=='hasard'){
-						$par = "rand()";
-						$boucle->select[] = $par." AS alea";
-						$order = "'alea'";
-					}
-						// par titre_mot ou type_mot voire d'autres
-					else if (isset($exceptions_des_jointures[$par])){
-						list($table, $champ) = $exceptions_des_jointures[$par];
-						$order = critere_par_joint($table, $champ, $boucle, $idb);
-						if (!$order)
-							return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
-					}
-					else if ($par=='date'
-					         AND $desc = $boucle->show
-					             AND $desc['date']
-					){
-						$m = $desc['date'];
-						$order = "'".$boucle->id_table.".".$m."'";
-					}
-						// par champ. Verifier qu'ils sont presents.
-					elseif (preg_match("/^([^,]*)\.(.*)$/", $par, $r)) {
-						// cas du tri sur champ de jointure explicite
-						$t = array_search($r[1], $boucle->from);
-						if (!$t){
-							$t = trouver_jointure_champ($r[2], $boucle, array($r[1]));
-						}
-						if (!$t){
-							return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
-						} else	 $order = "'".$t.'.'.$r[2]."'";
-					} else {
-						$desc = $boucle->show;
-						if ($desc['field'][$par])
-							$par = $boucle->id_table.".".$par;
-						// sinon tant pis, ca doit etre un champ synthetise (cf points)
-						$order = "'$par'";
-					}
-				}
-			}
-		}
-		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;
-	}
+    global $exceptions_des_jointures;
+    $boucle = &$boucles[$idb];
+    if ($crit->not) $sens = $sens ? "" : " . ' DESC'";
+    $collecte = (isset($boucle->modificateur['collecte'])) ? " . ".$boucle->modificateur['collecte'] : "";
+
+    foreach ($crit->param as $tri){
+
+        $order = $fct = ""; // en cas de fonction SQL
+        // tris specifies dynamiquement
+        if ($tri[0]->type!='texte'){
+            // calculer le order dynamique qui verifie les champs
+            $order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens);
+            // et si ce n'est fait, ajouter un champ 'hasard' 
+            // pour supporter 'hasard' comme tri dynamique
+            $par = "rand()";
+            $parha = $par." AS hasard";
+            if (!in_array($parha, $boucle->select))
+                $boucle->select[] = $parha;
+        } else {
+            $par = array_shift($tri);
+            $par = $par->texte;
+            // par multi champ
+            if (preg_match(",^multi[\s]*(.*)$,", $par, $m)){
+                $champ = trim($m[1]);
+                // par multi L1.champ
+                if (strpos($champ, '.')) {
+                    $cle = '';
+                // par multi champ (champ sur une autre table)
+                } elseif (!array_key_exists($champ, $boucle->show['field'])){
+                    $cle = trouver_jointure_champ($champ, $boucle);
+                // par multi champ (champ dans la table en cours)
+                } else {
+                    $cle = $boucle->id_table;
+                }
+                if ($cle) { $cle .= '.'; }
+                $texte = $cle.$champ;
+                $boucle->select[] = "\".sql_multi('".$texte."', \$GLOBALS['spip_lang']).\"";
+                $order = "'multi'";
+                // par num champ(, suite)
+            } else if (preg_match(",^num (.*)$,m", $par, $m)) {
+                $champ = trim($m[1]);
+                // par num L1.champ
+                if (strpos($champ, '.')) {
+                    $cle = '';
+                // par num champ (champ sur une autre table)
+                } elseif (!array_key_exists($champ, $boucle->show['field'])){
+                    $cle = trouver_jointure_champ($champ, $boucle);
+                // par num champ (champ dans la table en cours)
+                } else {
+                    $cle = $boucle->id_table;
+                }
+                if ($cle) { $cle .= '.'; }
+                $texte = '0+'. $cle . $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'";
+            } else {
+                if (!preg_match(",^".CHAMP_SQL_PLUS_FONC.'$,is', $par, $match)){
+                    return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
+                } else {
+                    if (count($match)>2){
+                        $par = substr($match[2], 1, -1);
+                        $fct = $match[1];
+                    }
+                    // par hasard
+                    if ($par=='hasard'){
+                        $par = "rand()";
+                        $boucle->select[] = $par." AS alea";
+                        $order = "'alea'";
+                    }
+                        // par titre_mot ou type_mot voire d'autres
+                    else if (isset($exceptions_des_jointures[$par])){
+                        list($table, $champ) = $exceptions_des_jointures[$par];
+                        $order = critere_par_joint($table, $champ, $boucle, $idb);
+                        if (!$order)
+                            return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
+                    }
+                    else if ($par=='date'
+                             AND $desc = $boucle->show
+                                 AND $desc['date']
+                    ){
+                        $m = $desc['date'];
+                        $order = "'".$boucle->id_table.".".$m."'";
+                    }
+                        // par champ. Verifier qu'ils sont presents.
+                    elseif (preg_match("/^([^,]*)\.(.*)$/", $par, $r)) {
+                        // cas du tri sur champ de jointure explicite
+                        $t = array_search($r[1], $boucle->from);
+                        if (!$t){
+                            $t = trouver_jointure_champ($r[2], $boucle, array($r[1]));
+                        }
+                        if (!$t){
+                            return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
+                        } else	 $order = "'".$t.'.'.$r[2]."'";
+                    } else {
+                        $desc = $boucle->show;
+                        if ($desc['field'][$par])
+                            $par = $boucle->id_table.".".$par;
+                        // sinon tant pis, ca doit etre un champ synthetise (cf points)
+                        $order = "'$par'";
+                    }
+                }
+            }
+        }
+        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;
+    }
 }
 
 // http://doc.spip.org/@critere_par_joint
 function critere_par_joint($table, $champ, &$boucle, $idb){
-	$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."'");
 }
 
 // {inverse}
@@ -651,137 +651,137 @@ 
 // http://doc.spip.org/@critere_inverse_dist
 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://doc.spip.org/@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." ?")));
-
-	$parent = $boucles[$idb]->id_parent;
-
-	// les valeurs $date et $type doivent etre connus a la compilation
-	// autrement dit ne pas etre des champs
-
-	$date = array_shift($params);
-	$date = $date[0]->texte;
-
-	$type = array_shift($params);
-	$type = $type[0]->texte;
-
-	$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"))';
-
-	$boucle = &$boucles[$idb];
-	$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." ?")));
+
+    $parent = $boucles[$idb]->id_parent;
+
+    // les valeurs $date et $type doivent etre connus a la compilation
+    // autrement dit ne pas etre des champs
+
+    $date = array_shift($params);
+    $date = $date[0]->texte;
+
+    $type = array_shift($params);
+    $type = $type[0]->texte;
+
+    $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"))';
+
+    $boucle = &$boucles[$idb];
+    $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
 }
 
 // http://doc.spip.org/@calculer_critere_parties
 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 {
-		$boucle->total_parties = ($a21!='n') ? $a21 : $a22;
-		$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 {
+        $boucle->total_parties = ($a21!='n') ? $a21 : $a22;
+        $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);
+    }
 }
 
 //
@@ -789,77 +789,77 @@ 
 //
 
 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	"
-	                                    .'$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	"
+                                        .'$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;";
 }
 
 // http://doc.spip.org/@calculer_critere_parties_aux
 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);
-		preg_match(',^ *(-([0-9]+))? *$,', $param[1]->texte, $m);
-		return array("intval($a1)", ($m[2] ? $m[2] : 0));
-	} else {
-		preg_match(',^ *(([0-9]+)|n) *(- *([0-9]+)? *)?$,', $param[0]->texte, $m);
-		$a1 = $m[1];
-		if (!@$m[3])
-			return array($a1, 0);
-		elseif ($m[4])
-			return array($a1, $m[4]);
-		else return array($a1,
-		                  calculer_liste(array($param[1]), array(), $boucles[$idb]->id_parent, $boucles));
-	}
+    if ($param[0]->type!='texte'){
+        $a1 = calculer_liste(array($param[0]), array('id_mere' => $idb), $boucles, $boucles[$idb]->id_parent);
+        preg_match(',^ *(-([0-9]+))? *$,', $param[1]->texte, $m);
+        return array("intval($a1)", ($m[2] ? $m[2] : 0));
+    } else {
+        preg_match(',^ *(([0-9]+)|n) *(- *([0-9]+)? *)?$,', $param[0]->texte, $m);
+        $a1 = $m[1];
+        if (!@$m[3])
+            return array($a1, 0);
+        elseif ($m[4])
+            return array($a1, $m[4]);
+        else return array($a1,
+                            calculer_liste(array($param[1]), array(), $boucles[$idb]->id_parent, $boucles));
+    }
 }
 
 
@@ -886,44 +886,44 @@ 
  *     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;
 }
 
 /**
@@ -938,80 +938,80 @@ 
  * @return string
  */
 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)";
+    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)";
 }
 
 // Si on a une liste de valeurs dans #ENV{x}, utiliser la double etoile
 // pour faire par exemple {id_article IN #ENV**{liste_articles}}
 // http://doc.spip.org/@critere_IN_dist
 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://doc.spip.org/@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 rexgexp)
-	// 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 rexgexp)
+    // 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'" : "").")";
 }
 
 /**
@@ -1023,19 +1023,19 @@ 
  * @param <type> $crit
  */
 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"]';
+    $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->cond)
+        $_where = "(($_where) ? ($_where) : '')";
 
-	if ($crit->not)
-		$_where = "array('NOT',$_where)";
+    if ($crit->not)
+        $_where = "array('NOT',$_where)";
 
-	$boucle->where[] = $_where;
+    $boucle->where[] = $_where;
 }
 
 
@@ -1085,27 +1085,27 @@ 
  * @param unknown_type $crit
  */
 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]:$_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]:$_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]:$_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]:$_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){
@@ -1113,264 +1113,264 @@ 
 		\$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
 
 // http://doc.spip.org/@calculer_critere_DEFAUT
 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);
 }
 
 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;
 }
 
 // http://doc.spip.org/@calculer_critere_infixe
 function calculer_critere_infixe($idb, &$boucles, $crit){
 
-	global $table_criteres_infixes;
-	global $exceptions_des_jointures, $exceptions_des_tables;
-
-	$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($exceptions_des_tables[$table][$col]))
-		$col = $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($exceptions_des_jointures[table_objet_sql($table)][$col])
-		AND !isset($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 = '';
-	}
-	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 '';
-	}
-	elseif (@!array_key_exists($col, $desc['field'])
-	         // Champ joker * des iterateurs DATA qui accepte tout
-	         AND @!array_key_exists('*', $desc['field'])
-	) {
-		$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, $table_criteres_infixes)){
-
-		// 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,(isset($desc['field'][$col_vraie])?$desc['field'][$col_vraie]:'int NOT NULL')).'"';
-
-		// sinon expliciter les
-		// sql_quote(truc) en sql_quote(truc,'',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])) {
-			$r = $r[1]
-				.((isset($r[2]) AND $r[2]) ? $r[2] : ",''")
-				.",'".(isset($desc['field'][$col_vraie])?addslashes($desc['field'][$col_vraie]):'int NOT NULL')."'";
-			$val[0] = "sql_quote($r)";
-		}
-	}
-	// 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);
+    global $table_criteres_infixes;
+    global $exceptions_des_jointures, $exceptions_des_tables;
+
+    $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($exceptions_des_tables[$table][$col]))
+        $col = $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($exceptions_des_jointures[table_objet_sql($table)][$col])
+        AND !isset($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 = '';
+    }
+    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 '';
+    }
+    elseif (@!array_key_exists($col, $desc['field'])
+                // Champ joker * des iterateurs DATA qui accepte tout
+             AND @!array_key_exists('*', $desc['field'])
+    ) {
+        $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, $table_criteres_infixes)){
+
+        // 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,(isset($desc['field'][$col_vraie])?$desc['field'][$col_vraie]:'int NOT NULL')).'"';
+
+        // sinon expliciter les
+        // sql_quote(truc) en sql_quote(truc,'',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])) {
+            $r = $r[1]
+                .((isset($r[2]) AND $r[2]) ? $r[2] : ",''")
+                .",'".(isset($desc['field'][$col_vraie])?addslashes($desc['field'][$col_vraie]):'int NOT NULL')."'";
+            $val[0] = "sql_quote($r)";
+        }
+    }
+    // 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);
 }
 
 function calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table){
-	global $exceptions_des_jointures;
-	$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($exceptions_des_jointures[$table_sql])
-	  AND is_array($exceptions_des_jointures[$table_sql])
-	  AND
-			(
-			isset($exceptions_des_jointures[$table_sql][$col])
-			OR
-			isset($exceptions_des_jointures[$table_sql][''])
-			)
-		){
-		$t = $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($exceptions_des_jointures[$col]))
-		list($t, $col) = $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) = trouver_champ_exterieur($col, $boucle->from, $boucle);
-
-	if (count(trouver_champs_decomposes($col, $desc))>1){
-		$col_alias = $col; // id_article devient juste le nom d'origine
-		$e = decompose_champ_id_objet($col);
-		$col = array_shift($e);
-		$where = primary_doublee($e, $table);
-	}
-
-	return array($col, $col_alias, $table, $where, $desc);
+    global $exceptions_des_jointures;
+    $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($exceptions_des_jointures[$table_sql])
+      AND is_array($exceptions_des_jointures[$table_sql])
+      AND
+            (
+            isset($exceptions_des_jointures[$table_sql][$col])
+            OR
+            isset($exceptions_des_jointures[$table_sql][''])
+            )
+        ){
+        $t = $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($exceptions_des_jointures[$col]))
+        list($t, $col) = $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) = trouver_champ_exterieur($col, $boucle->from, $boucle);
+
+    if (count(trouver_champs_decomposes($col, $desc))>1){
+        $col_alias = $col; // id_article devient juste le nom d'origine
+        $e = decompose_champ_id_objet($col);
+        $col = array_shift($e);
+        $where = primary_doublee($e, $table);
+    }
+
+    return array($col, $col_alias, $table, $where, $desc);
 }
 
 // Ne pas appliquer sql_quote lors de la compilation,
@@ -1378,9 +1378,9 @@ 
 
 // http://doc.spip.org/@primary_doublee
 function primary_doublee($decompose, $table){
-	$e1 = reset($decompose);
-	$e2 = "sql_quote('".end($decompose)."')";
-	return array("'='", "'$table.".$e1."'", $e2);
+    $e1 = reset($decompose);
+    $e2 = "sql_quote('".end($decompose)."')";
+    return array("'='", "'$table.".$e1."'", $e2);
 }
 
 /**
@@ -1403,43 +1403,43 @@ 
  * @return mixed|string
  */
 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)){
-			$t = array_search($arrivee[0], $boucle->from);
-			// transformer eventuellement id_xx en (id_objet,objet)
-			$cols = trouver_champs_decomposes($col, $arrivee[1]);
-			if ($t){
-				$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;
-			}
-			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)){
+            $t = array_search($arrivee[0], $boucle->from);
+            // transformer eventuellement id_xx en (id_objet,objet)
+            $cols = trouver_champs_decomposes($col, $arrivee[1]);
+            if ($t){
+                $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;
+            }
+            if ($res = calculer_jointure($boucle, array($boucle->id_table, $desc), $arrivee, $cols, $cond, 1)) {
+                return $res;
+            }
+        }
+    }
+    return '';
 
 }
 
@@ -1455,33 +1455,33 @@ 
  * @return string
  */
 function calculer_lien_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false){
-	$primary_arrivee = id_table_objet($checkarrivee);
+    $primary_arrivee = id_table_objet($checkarrivee);
 
-	$intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee."_liens");
-	$arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
+    $intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee."_liens");
+    $arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
 
-	if (!$intermediaire OR !$arrivee) return '';
+    if (!$intermediaire OR !$arrivee) return '';
 
-	$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;
+    $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;
 }
 
 
 // http://doc.spip.org/@trouver_champ
 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;
+    }
 }
 
 
@@ -1489,227 +1489,227 @@ 
 
 // http://doc.spip.org/@calculer_critere_infixe_ops
 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, 'char'); // toujours quoter en char ici
-			}
-	}
-
-	$fct = $args_sql = '';
-	// fonction SQL ?
-	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, 'char'); // toujours quoter en char ici
+            }
+    }
+
+    $fct = $args_sql = '';
+    // fonction SQL ?
+    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://doc.spip.org/@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;
 }
 
 // http://doc.spip.org/@calculer_critere_infixe_date
 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);
 }
 
 // http://doc.spip.org/@calculer_param_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
-		"LEAST((UNIX_TIMESTAMP(".
-		$init.
-		")-UNIX_TIMESTAMP(".
-		$date_orig.
-		"))/86400,\n\tTO_DAYS(".
-		$date_compare.
-		")-TO_DAYS(".
-		$date_orig.
-		"),\n\tDAYOFMONTH(".
-		$date_compare.
-		")-DAYOFMONTH(".
-		$date_orig.
-		")+30.4368*(MONTH(".
-		$date_compare.
-		")-MONTH(".
-		$date_orig.
-		"))+365.2422*(YEAR(".
-		$date_compare.
-		")-YEAR(".
-		$date_orig.
-		")))";
+    if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)){
+        $init = "'\" . (\$x = $r[1]) . \"'";
+        $date_compare = '\'$x\'';
+    }
+    else
+        $init = $date_compare;
+
+    return
+        "LEAST((UNIX_TIMESTAMP(".
+        $init.
+        ")-UNIX_TIMESTAMP(".
+        $date_orig.
+        "))/86400,\n\tTO_DAYS(".
+        $date_compare.
+        ")-TO_DAYS(".
+        $date_orig.
+        "),\n\tDAYOFMONTH(".
+        $date_compare.
+        ")-DAYOFMONTH(".
+        $date_orig.
+        ")+30.4368*(MONTH(".
+        $date_compare.
+        ")-MONTH(".
+        $date_orig.
+        "))+365.2422*(YEAR(".
+        $date_compare.
+        ")-YEAR(".
+        $date_orig.
+        ")))";
 }
 
 /**
@@ -1719,17 +1719,17 @@ 
  * @param object $crit
  */
 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";
 }
 
@@ -1741,8 +1741,8 @@ 
  * @param object $crit
  */
 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).';';
 }
@@ -1755,8 +1755,8 @@ 
  * @param object $crit
  */
 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).';';
 }
 
@@ -1770,12 +1770,12 @@ 
  * @param object $crit
  */
 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).';';
-	}
+    }
 }
 
 /**
@@ -1787,11 +1787,11 @@ 
  * @param object $crit
  */
 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";
+    }
 }
 
 /**
@@ -1803,11 +1803,11 @@ 
  * @param object $crit
  */
 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";
+    }
 }
 
 /**
@@ -1819,11 +1819,11 @@ 
  * @param object $crit
  */
 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).';';
-	}
+    }
 }
 
 
@@ -1835,20 +1835,20 @@ 
  * @param object $crit
  */
 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;';
+    }
 }
 
 /**
@@ -1860,8 +1860,8 @@ 
  * @param object $crit
  */
 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\';';
 }
@@ -1878,28 +1878,28 @@ 
  * @param Object $crit
  */
 function critere_noeud_dist($idb, &$boucles, $crit){
-	global $exceptions_des_tables;
-	$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);
-		return;
-	}
-	$table = $boucle->type_requete;
-	$table_sql = table_objet_sql(objet_type($table));
-
-	$id_parent = isset($exceptions_des_tables[$boucle->id_table]['id_parent']) ?
-		$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);
-
-	$boucle->where[] = $where;
+    global $exceptions_des_tables;
+    $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);
+        return;
+    }
+    $table = $boucle->type_requete;
+    $table_sql = table_objet_sql(objet_type($table));
+
+    $id_parent = isset($exceptions_des_tables[$boucle->id_table]['id_parent']) ?
+        $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);
+
+    $boucle->where[] = $where;
 }
 
 /**
@@ -1913,10 +1913,10 @@ 
  * @param Object $crit
  */
 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;
 }
 
 ?>

Braces +313 added lines, -200 removed lines

@@ -16,7 +16,9 @@ 
  * @package SPIP\Compilateur\Criteres
 **/
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 /**
  * Une Regexp repérant une chaine produite par le compilateur,
@@ -78,8 +80,9 @@ 
 	$boucle = &$boucles[$idb];
 	$id = $boucle->primary;
 
-	if ($not OR !$id)
-		return (array('zbug_critere_inconnu', array('critere' => $not.$crit->op)));
+	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);
 }
@@ -195,8 +198,12 @@ 
  *     AST complété de la gestion du critère
 **/
 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';
+	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;
 }
@@ -214,8 +221,10 @@ 
 		                        '"]) . ",'.
 		                        $deux.
 		                        '"';
-	} else calculer_critere_DEFAUT_dist($idb, $boucles, $crit);
-}
+	} else {
+	    calculer_critere_DEFAUT_dist($idb, $boucles, $crit);
+	}
+	}
 
 // {pagination}
 // {pagination 20}
@@ -263,9 +272,10 @@ 
 	if ($boucle->primary
 	    AND !preg_match('/[,\s]/', $boucle->primary)
 	        AND !in_array($t, $boucle->select)
-	)
-		$boucle->select[] = $t;
-}
+	) {
+			$boucle->select[] = $t;
+	}
+	}
 
 
 // {recherche} ou {recherche susan}
@@ -280,10 +290,11 @@ 
 		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 .= '
@@ -300,8 +311,10 @@ 
 
 
 	$t = $boucle->id_table.'.'.$boucle->primary;
-	if (!in_array($t, $boucles[$idb]->select))
-		$boucle->select[] = $t; # pour postgres, neuneu ici
+	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){
@@ -417,8 +430,9 @@ 
 			$champ = array_shift($decompose);
 			$boucle->where[] = array("'='", _q($cle.".".reset($decompose)), '"'.sql_quote(end($decompose)).'"');
 		}
+	} else {
+	    $cle = $boucle->id_table;
 	}
-	else $cle = $boucle->id_table;
 
 	$c = "sql_in('$cle".".$champ', calcul_branche_in($arg)"
 	     .($not ? ", 'NOT'" : '').")";
@@ -437,13 +451,16 @@ 
 	     $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;
+	}
+	}
 
 // c'est la commande SQL "GROUP BY"
 // par exemple <boucle(articles){fusion lang}>
@@ -456,7 +473,9 @@ 
 			if (preg_match("/^(.*)\.(.*)$/", $t, $r)){
 				$t = table_objet_sql($r[1]);
 				$t = array_search($t, $boucles[$idb]->from);
-				if ($t) $t .= '.'.$r[2];
+				if ($t) {
+				    $t .= '.'.$r[2];
+				}
 			}
 		} else {
 			$t = '".'
@@ -466,11 +485,13 @@ 
 	}
 	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 (!in_array($t, $boucles[$idb]->select)) {
+					$boucles[$idb]->select[] = $t;
+		}
+	} else {
+			return (array('zbug_critere_inconnu', array('critere' => $crit->op.' ?')));
+	}
+	}
 
 // c'est la commande SQL "COLLATE"
 // qui peut etre appliquee sur les order by, group by, where like ...
@@ -481,11 +502,13 @@ 
 		$boucle = $boucles[$idb];
 		$boucle->modificateur['collate'] = "($_coll ?' COLLATE '.$_coll:'')";
 		$n = count($boucle->order);
-		if ($n && (strpos($boucle->order[$n-1], 'COLLATE')===false))
-			$boucle->order[$n-1] .= " . ".$boucle->modificateur['collate'];
-	} else
-		return (array('zbug_critere_inconnu', array('critere' => $crit->op." ".count($boucles[$idb]->order))));
-}
+		if ($n && (strpos($boucle->order[$n-1], 'COLLATE')===false)) {
+					$boucle->order[$n-1] .= " . ".$boucle->modificateur['collate'];
+		}
+	} else {
+			return (array('zbug_critere_inconnu', array('critere' => $crit->op." ".count($boucles[$idb]->order))));
+	}
+	}
 
 // http://doc.spip.org/@calculer_critere_arg_dynamique
 function calculer_critere_arg_dynamique($idb, &$boucles, $crit, $suffix = ''){
@@ -498,7 +521,9 @@ 
 		$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))";
+	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 : '')";
 }
@@ -514,7 +539,9 @@ 
 function critere_parinverse($idb, &$boucles, $crit, $sens = ''){
 	global $exceptions_des_jointures;
 	$boucle = &$boucles[$idb];
-	if ($crit->not) $sens = $sens ? "" : " . ' DESC'";
+	if ($crit->not) {
+	    $sens = $sens ? "" : " . ' DESC'";
+	}
 	$collecte = (isset($boucle->modificateur['collecte'])) ? " . ".$boucle->modificateur['collecte'] : "";
 
 	foreach ($crit->param as $tri){
@@ -528,8 +555,9 @@ 
 			// pour supporter 'hasard' comme tri dynamique
 			$par = "rand()";
 			$parha = $par." AS hasard";
-			if (!in_array($parha, $boucle->select))
-				$boucle->select[] = $parha;
+			if (!in_array($parha, $boucle->select)) {
+							$boucle->select[] = $parha;
+			}
 		} else {
 			$par = array_shift($tri);
 			$par = $par->texte;
@@ -566,8 +594,9 @@ 
 				if ($cle) { $cle .= '.'; }
 				$texte = '0+'. $cle . $champ;
 				$suite = calculer_liste($tri, array(), $boucles, $boucle->id_parent);
-				if ($suite!=="''")
-					$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')"." . \"";
+				if ($suite!=="''") {
+									$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')"." . \"";
+				}
 				$as = 'num'.($boucle->order ? count($boucle->order) : "");
 				$boucle->select[] = $texte." AS $as";
 				$order = "'$as'";
@@ -589,10 +618,10 @@ 
 					else if (isset($exceptions_des_jointures[$par])){
 						list($table, $champ) = $exceptions_des_jointures[$par];
 						$order = critere_par_joint($table, $champ, $boucle, $idb);
-						if (!$order)
-							return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
-					}
-					else if ($par=='date'
+						if (!$order) {
+													return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
+						}
+					} else if ($par=='date'
 					         AND $desc = $boucle->show
 					             AND $desc['date']
 					){
@@ -608,11 +637,14 @@ 
 						}
 						if (!$t){
 							return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
-						} else	 $order = "'".$t.'.'.$r[2]."'";
+						} else {
+						    $order = "'".$t.'.'.$r[2]."'";
+						}
 					} else {
 						$desc = $boucle->show;
-						if ($desc['field'][$par])
-							$par = $boucle->id_table.".".$par;
+						if ($desc['field'][$par]) {
+													$par = $boucle->id_table.".".$par;
+						}
 						// sinon tant pis, ca doit etre un champ synthetise (cf points)
 						$order = "'$par'";
 					}
@@ -624,16 +656,21 @@ 
 			if (strpos($t, '.') AND !in_array($t, $boucle->select)){
 				$boucle->select[] = $t;
 			}
-		} else $sens = '';
+		} else {
+		    $sens = '';
+		}
 
 		if ($fct){
-			if (preg_match("/^\s*'(.*)'\s*$/", $order, $r))
-				$order = "'$fct(".$r[1].")'";
-			else $order = "'$fct(' . $order . ')'";
+			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];
+		if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
+					$t = $r[1].$r[2];
+		}
 		$boucle->order[] = $t;
 	}
 }
@@ -641,7 +678,9 @@ 
 // http://doc.spip.org/@critere_par_joint
 function critere_par_joint($table, $champ, &$boucle, $idb){
 	$t = array_search($table, $boucle->from);
-	if (!$t) $t = trouver_jointure_champ($champ, $boucle);
+	if (!$t) {
+	    $t = trouver_jointure_champ($champ, $boucle);
+	}
 	return !$t ? '' : ("'".$t.'.'.$champ."'");
 }
 
@@ -653,9 +692,9 @@ 
 
 	$boucle = &$boucles[$idb];
 	// Classement par ordre inverse
-	if ($crit->not)
-		critere_parinverse($idb, $boucles, $crit);
-	else
+	if ($crit->not) {
+			critere_parinverse($idb, $boucles, $crit);
+	} else
 	{
 		$order = "' DESC'";
 		// Classement par ordre inverse fonction eventuelle de #ENV{...}
@@ -666,14 +705,16 @@ 
 
 		$n = count($boucle->order);
 		if (!$n){
-			if (isset($boucle->default_order[0]))
-				$boucle->default_order[0] .= ' . " DESC"';
-			else
-				$boucle->default_order[] = ' DESC';
+			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];
+			if (preg_match("/^(.*)'\s*\.\s*'([^']*')$/", $t, $r)) {
+							$t = $r[1].$r[2];
+			}
 			$boucle->order[$n-1] = $t;
 		}
 	}
@@ -683,8 +724,9 @@ 
 function critere_agenda_dist($idb, &$boucles, $crit){
 	$params = $crit->param;
 
-	if (count($params)<1)
-		return (array('zbug_critere_inconnu', array('critere' => $crit->op." ?")));
+	if (count($params)<1) {
+			return (array('zbug_critere_inconnu', array('critere' => $crit->op." ?")));
+	}
 
 	$parent = $boucles[$idb]->id_parent;
 
@@ -731,26 +773,27 @@ 
 	$date = $boucle->id_table.".$date";
 
 	$quote_end = ",'".$boucle->sql_serveur."','text'";
-	if ($type=='jour')
-		$boucle->where[] = array("'='", "'DATE_FORMAT($date, \'%Y%m%d\')'",
+	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\')'",
+	} elseif ($type=='mois') {
+			$boucle->where[] = array("'='", "'DATE_FORMAT($date, \'%Y%m\')'",
 		                         ("sql_quote($annee . $mois$quote_end)"));
-	elseif ($type=='semaine')
-		$boucle->where[] = array("'AND'",
+	} 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'",
+	} 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
 }
 
@@ -766,8 +809,7 @@ 
 
 	if (($op==',') && (is_numeric($a11) && (is_numeric($a21)))){
 		$boucle->limit = $a11.','.$a21;
-	}
-	else {
+	} else {
 		$boucle->total_parties = ($a21!='n') ? $a21 : $a22;
 		$partie = ($a11!='n') ? $a11 : $a12;
 		$mode = (($op=='/') ? '/' :
@@ -778,9 +820,9 @@ 
 				(is_numeric($a11)?"'$a11'":$a11)
 				.".','."
 				.(is_numeric($a21)?"'$a21'":$a21);
+		} else {
+					calculer_parties($boucles, $idb, $partie, $mode);
 		}
-		else
-			calculer_parties($boucles, $idb, $partie, $mode);
 	}
 }
 
@@ -803,7 +845,9 @@ 
 		$debut = !$pmoins1 ? 0 : "ceil(($nombre_boucle * $pmoins1)/$totpos);";
 	} else {
 		// cas {n-1,x}
-		if ($op1=='-') $debut = "$nombre_boucle - $debut;";
+		if ($op1=='-') {
+		    $debut = "$nombre_boucle - $debut;";
+		}
 
 		// cas {x,n-1}
 		if ($op2=='-'){
@@ -853,12 +897,14 @@ 
 	} else {
 		preg_match(',^ *(([0-9]+)|n) *(- *([0-9]+)? *)?$,', $param[0]->texte, $m);
 		$a1 = $m[1];
-		if (!@$m[3])
-			return array($a1, 0);
-		elseif ($m[4])
-			return array($a1, $m[4]);
-		else return array($a1,
+		if (!@$m[3]) {
+					return array($a1, 0);
+		} elseif ($m[4]) {
+					return array($a1, $m[4]);
+		} else {
+		    return array($a1,
 		                  calculer_liste(array($param[1]), array(), $boucles[$idb]->id_parent, $boucles));
+		}
 	}
 }
 
@@ -893,7 +939,9 @@ 
 
 	$defaut = charger_fonction('DEFAUT', 'calculer_critere');
 	// s'il y avait une erreur de syntaxe, propager cette info
-	if (!is_array($boucle->criteres)) return array();
+	if (!is_array($boucle->criteres)) {
+	    return array();
+	}
 
 	foreach ($boucle->criteres as $crit){
 		$critere = $crit->op;
@@ -938,11 +986,12 @@ 
  * @return string
  */
 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)";
-}
+	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)";
+	}
+	}
 
 // Si on a une liste de valeurs dans #ENV{x}, utiliser la double etoile
 // pour faire par exemple {id_article IN #ENV**{liste_articles}}
@@ -961,21 +1010,26 @@ 
 	if ($crit->cond){
 		$pred = calculer_argument_precedent($idb, $col, $boucles);
 		$where = array("'?'", $pred, $where, "''");
-		if ($where_complement) // condition annexe du type "AND (objet='article')"
+		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))
+	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
+	} 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')"
+	if ($where_complement) {
+	    // condition annexe du type "AND (objet='article')"
 		$boucles[$idb]->where[] = $where_complement;
-}
+	}
+	}
 
 // http://doc.spip.org/@critere_IN_cas
 function critere_IN_cas($idb, &$boucles, $crit2, $arg, $op, $val, $col){
@@ -988,10 +1042,11 @@ 
 	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]).";";
+			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},
@@ -1024,16 +1079,19 @@ 
  */
 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 (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->cond) {
+			$_where = "(($_where) ? ($_where) : '')";
+	}
 
-	if ($crit->not)
-		$_where = "array('NOT',$_where)";
+	if ($crit->not) {
+			$_where = "array('NOT',$_where)";
+	}
 
 	$boucle->where[] = $_where;
 }
@@ -1122,8 +1180,9 @@ 
 // http://doc.spip.org/@calculer_critere_DEFAUT
 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);
+	if (($crit->op==",") OR ($crit->op=='/')) {
+			return calculer_critere_parties($idb, $boucles, $crit);
+	}
 
 	$r = calculer_critere_infixe($idb, $boucles, $crit);
 	if (!$r){
@@ -1131,8 +1190,10 @@ 
 	#	if (!$crit->cond) {
 			return (array('zbug_critere_inconnu', array('critere' => $crit->op)));
 	#	}
-	} else calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r);
-}
+	} else {
+	    calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r);
+	}
+	}
 
 function calculer_critere_DEFAUT_args($idb, &$boucles, $crit, $args){
 	list($arg, $op, $val, $col, $where_complement) = $args;
@@ -1141,14 +1202,17 @@ 
 
 	// inserer la negation (cf !...)
 
-	if ($crit->not) $where = array("'NOT'", $where);
-	if ($crit->exclus)
-		if (!preg_match(",^L[0-9]+[.],", $arg))
+	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
+	} 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,
@@ -1160,19 +1224,24 @@ 
 			}
 		}
 
-		if ($op=='=' AND !$crit->not)
-			$where = array("'?'", "(is_array($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')"
+		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')"
+	if ($where_complement) {
+	    // condition annexe du type "AND (objet='article')"
 		$boucles[$idb]->where[] = $where_complement;
-}
+	}
+	}
 
 // http://doc.spip.org/@calculer_critere_infixe
 function calculer_critere_infixe($idb, &$boucles, $crit){
@@ -1193,13 +1262,15 @@ 
 	$where_complement = false;
 
 	// Cas particulier : id_enfant => utiliser la colonne id_objet
-	if ($col=='id_enfant')
-		$col = $boucle->primary;
+	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($exceptions_des_tables[$table][$col]))
-		$col = $exceptions_des_tables[$table][$col];
+	  AND isset($exceptions_des_tables[$table][$col])) {
+			$col = $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))){
@@ -1221,28 +1292,30 @@ 
 	else if ($c = calculer_critere_infixe_date($idb, $boucles, $col)){
 		list($col,$col_vraie) = $c;
 		$table = '';
-	}
-	else if (preg_match('/^(.*)\.(.*)$/', $col, $r)){
+	} 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 {
+		  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 '';
-	}
-	elseif (@!array_key_exists($col, $desc['field'])
+		if (!$table) {
+		    return '';
+		}
+	} elseif (@!array_key_exists($col, $desc['field'])
 	         // Champ joker * des iterateurs DATA qui accepte tout
 	         AND @!array_key_exists('*', $desc['field'])
 	) {
 		$r = calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table);
-		if (!$r) return '';
+		if (!$r) {
+		    return '';
+		}
 		list($col, $col_alias, $table, $where_complement, $desc) = $r;
 	}
 
@@ -1256,8 +1329,9 @@ 
 
 		// 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,(isset($desc['field'][$col_vraie])?$desc['field'][$col_vraie]:'int NOT NULL')).'"';
+		if (preg_match(",^\\A(\s*//.*?$\s*)?\"'(-?\d+)'\"\\z,ms", $val[0], $r)) {
+					$val[0] = $r[1].'"'.sql_quote($r[2],$boucle->sql_serveur,(isset($desc['field'][$col_vraie])?$desc['field'][$col_vraie]:'int NOT NULL')).'"';
+		}
 
 		// sinon expliciter les
 		// sql_quote(truc) en sql_quote(truc,'',type)
@@ -1279,8 +1353,9 @@ 
 	// 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;
+		if ($col_alias!=$col_vraie) {
+					$boucles[$idb]->modificateur['criteres'][$col_alias] = true;
+		}
 	}
 
 	// ajout pour le cas special d'une condition sur le champ statut:
@@ -1288,17 +1363,25 @@ 
 	// 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;
+	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;
+		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)";
+	if ($fct) {
+	    $arg = "$fct($arg$args_sql)";
+	}
 
 	return array($arg, $op, $val, $col_alias, $where_complement);
 }
@@ -1324,22 +1407,23 @@ 
 		$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) {
+		if (count($index)==3) {
+					list($t, $col, $calculer_critere_externe) = $index;
+		} elseif (count($index)==2) {
 			list($t, $col) = $t[$col];
-		}
-		elseif (count($index)==1) {
+		} elseif (count($index)==1) {
 			list($calculer_critere_externe) = $index;
 			$t = $table;
+		} else {
+					$t = '';
 		}
-		else
-			$t = ''; // jointure non declaree. La trouver.
+		// jointure non declaree. La trouver.
+	} elseif (isset($exceptions_des_jointures[$col])) {
+			list($t, $col) = $exceptions_des_jointures[$col];
+	} else {
+			$t = '';
 	}
-	elseif (isset($exceptions_des_jointures[$col]))
-		list($t, $col) = $exceptions_des_jointures[$col];
-	else
-		$t = ''; // jointure non declaree. La trouver.
+	// jointure non declaree. La trouver.
 
 	// ici on construit le from pour fournir $col en piochant dans les jointures
 
@@ -1358,7 +1442,9 @@ 
 		$table = $calculer_critere_externe($boucle, $boucle->jointures, $col, $desc, ($crit->cond OR $op!='='), $t);
 	}
 
-	if (!$table) return '';
+	if (!$table) {
+	    return '';
+	}
 
 	// il ne reste plus qu'a trouver le champ dans les from
 	list($nom, $desc) = trouver_champ_exterieur($col, $boucle->from, $boucle);
@@ -1425,14 +1511,19 @@ 
 				$joindre = false;
 				foreach ($cols as $col){
 					$c = '/\b'.$t.".$col".'\b/';
-					if (trouver_champ($c, $boucle->where)) $joindre = true;
-					else {
+					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 (trouver_champ($c, $boucle->select)) {
+						    $joindre = true;
+						}
 					}
 				}
-				if (!$joindre) return $t;
+				if (!$joindre) {
+				    return $t;
+				}
 			}
 			if ($res = calculer_jointure($boucle, array($boucle->id_table, $desc), $arrivee, $cols, $cond, 1)) {
 				return $res;
@@ -1460,7 +1551,9 @@ 
 	$intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee."_liens");
 	$arrivee = trouver_champ_exterieur($col, $joints, $boucle, $checkarrivee);
 
-	if (!$intermediaire OR !$arrivee) return '';
+	if (!$intermediaire OR !$arrivee) {
+	    return '';
+	}
 
 	$res = fabrique_jointures($boucle,
 	                          array(
@@ -1474,11 +1567,13 @@ 
 
 // http://doc.spip.org/@trouver_champ
 function trouver_champ($champ, $where){
-	if (!is_array($where))
-		return preg_match($champ, $where);
-	else {
+	if (!is_array($where)) {
+			return preg_match($champ, $where);
+	} else {
 		foreach ($where as $clause){
-			if (trouver_champ($champ, $clause)) return true;
+			if (trouver_champ($champ, $clause)) {
+			    return true;
+			}
 		}
 		return false;
 	}
@@ -1493,11 +1588,13 @@ 
 	if (count($crit->param)==0){
 		$op = '=';
 		$col = $val = $crit->op;
-		if (preg_match('/^(.*)\.(.*)$/', $col, $r)) $val = $r[2];
+		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 {
+		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
@@ -1506,13 +1603,11 @@ 
 				$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'){
+			} 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")){
+			} 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."'])";
@@ -1526,7 +1621,9 @@ 
 		// le phraseur impose que le premier param soit du texte
 		$params = $crit->param;
 		$op = $crit->op;
-		if ($op=='==') $op = 'REGEXP';
+		if ($op=='==') {
+		    $op = 'REGEXP';
+		}
 		$col = array_shift($params);
 		$col = $col[0]->texte;
 
@@ -1546,11 +1643,16 @@ 
 		                         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){
+		} 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, 'char'); // toujours quoter en char ici
+		}
+				if (strcasecmp($op,'IN')==0) {
+				    $val[] = $a;
+				} else {
+				    $val[] = kwote($a, $boucles[$idb]->sql_serveur, 'char');
+				}
+				// toujours quoter en char ici
 			}
 	}
 
@@ -1583,8 +1685,9 @@ 
 	$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;
+	   && (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];
@@ -1592,9 +1695,9 @@ 
 	$params[$k][$j]->texte = substr($last->texte, 0, $n-1);
 	$newp = array();
 	foreach ($params as $v){
-		if ($v[0]->type!='texte')
-			$newp[] = $v;
-		else {
+		if ($v[0]->type!='texte') {
+					$newp[] = $v;
+		} else {
 			foreach (explode(',', $v[0]->texte) as $x){
 				$t = new Texte;
 				$t->texte = $x;
@@ -1607,27 +1710,35 @@ 
 
 // http://doc.spip.org/@calculer_critere_infixe_date
 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 '';
+	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(isset($table['field'][$col])) {
+	    return '';
+	}
 
-	if (!$table['date'] && !isset($GLOBALS['table_date'][$table['id_table']])) 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);
+		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';
+	} else
+		if (isset($regs[2]) AND $rel = $regs[2]) {
+		    $pred = 'date';
+		}
 
 	$date_compare = "\"' . normaliser_date(".
 	                calculer_argument_precedent($idb, $pred, $boucles).
@@ -1684,9 +1795,9 @@ 
 	if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)){
 		$init = "'\" . (\$x = $r[1]) . \"'";
 		$date_compare = '\'$x\'';
+	} else {
+			$init = $date_compare;
 	}
-	else
-		$init = $date_compare;
 
 	return
 		"LEAST((UNIX_TIMESTAMP(".
@@ -1722,9 +1833,10 @@ 
 	$boucle = &$boucles[$idb];
 
 	$args = array();
-	foreach ($crit->param as &$param)
-		array_push($args,
+	foreach ($crit->param as &$param) {
+			array_push($args,
 		           calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent));
+	}
 
 	$boucle->hash .= '
 	$command[\'sourcemode\'] = '.array_shift($args).";\n";
@@ -1896,8 +2008,9 @@ 
 
 	$in = "IN";
 	$where = array("'IN'", "'$boucle->id_table."."$primary'", "'('.sql_get_select('$id_parent', '$table_sql').')'");
-	if ($not)
-		$where = array("'NOT'", $where);
+	if ($not) {
+			$where = array("'NOT'", $where);
+	}
 
 	$boucle->where[] = $where;
 }

Spacing +223 added lines, -231 removed lines

@@ -44,13 +44,12 @@ 
  * @return
  *     AST complété de la gestion du critère
 **/
-function critere_racine_dist($idb, &$boucles, $crit){
+function critere_racine_dist($idb, &$boucles, $crit) {
 	global $exceptions_des_tables;
 	$not = $crit->not;
 	$boucle = &$boucles[$idb];
 	$id_parent = isset($exceptions_des_tables[$boucle->id_table]['id_parent']) ?
-		$exceptions_des_tables[$boucle->id_table]['id_parent'] :
-		'id_parent';
+		$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);
@@ -73,7 +72,7 @@ 
  * @return
  *     AST complété de la gestion du critère
 **/
-function critere_exclus_dist($idb, &$boucles, $crit){
+function critere_exclus_dist($idb, &$boucles, $crit) {
 	$not = $crit->not;
 	$boucle = &$boucles[$idb];
 	$id = $boucle->primary;
@@ -104,24 +103,24 @@ 
  * @return
  * 		AST complété de la gestion du critère
 **/
-function critere_doublons_dist($idb, &$boucles, $crit){
+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, ',')){
+	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. "'";
+	$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)
@@ -136,10 +135,10 @@ 
 	$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)]";
@@ -147,23 +146,23 @@ 
 	// 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) {
+		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
@@ -194,9 +193,9 @@ 
  * @return
  *     AST complété de la gestion du critère
 **/
-function critere_lang_select_dist($idb, &$boucles, $crit){
+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';
+	if ($crit->not) $param = ($param == 'oui') ? 'non' : 'oui';
 	$boucle = &$boucles[$idb];
 	$boucle->lang_select = $param;
 }
@@ -204,11 +203,11 @@ 
 // {debut_xxx}
 // http://www.spip.net/@debut_
 // http://doc.spip.org/@critere_debut_dist
-function critere_debut_dist($idb, &$boucles, $crit){
+function critere_debut_dist($idb, &$boucles, $crit) {
 	list($un, $deux) = $crit->param;
 	$un = $un[0]->texte;
 	$deux = $deux[0]->texte;
-	if ($deux){
+	if ($deux) {
 		$boucles[$idb]->limit = 'intval($Pile[0]["debut'.
 		                        $un.
 		                        '"]) . ",'.
@@ -223,14 +222,14 @@ 
 // {pagination 20 #ENV{truc,chose}} pour utiliser la variable debut_#ENV{truc,chose}
 // http://www.spip.net/@pagination
 // http://doc.spip.org/@critere_pagination_dist
-function critere_pagination_dist($idb, &$boucles, $crit){
+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)){
+	if (!preg_match(_CODE_QUOTE, $pas, $r)) {
 		$pas = "((\$a = intval($pas)) ? \$a : 10)";
 	} else {
 		$r = intval($r[2]);
@@ -238,7 +237,7 @@ 
 	}
 	$type = !isset($crit->param[0][1]) ? "'$idb'"
 		: calculer_liste(array($crit->param[0][1]), array(), $boucles, $boucle->id_parent);
-	$debut = ($type[0]!=="'") ? "'debut'.$type"
+	$debut = ($type[0] !== "'") ? "'debut'.$type"
 		: ("'debut".substr($type, 1));
 
 	$boucle->modificateur['debut_nom'] = $type;
@@ -252,7 +251,7 @@ 
 		."\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+');
@@ -271,12 +270,12 @@ 
 // {recherche} ou {recherche susan}
 // http://www.spip.net/@recherche
 // http://doc.spip.org/@critere_recherche_dist
-function critere_recherche_dist($idb, &$boucles, $crit){
+function critere_recherche_dist($idb, &$boucles, $crit) {
 
 	$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;
 	}
 
@@ -304,7 +303,7 @@ 
 		$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){
+	if (!$boucle->sql_serveur) {
 		$boucle->join['resultats'] = array("'".$boucle->id_table."'", "'id'", "'".$boucle->primary."'");
 		$boucle->from['resultats'] = 'spip_resultats';
 	}
@@ -320,7 +319,7 @@ 
 //   (id_trad>0 AND id_trad=id_trad(precedent))
 //    OR id_article=id_article(precedent)
 // http://doc.spip.org/@critere_traduction_dist
-function critere_traduction_dist($idb, &$boucles, $crit){
+function critere_traduction_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$prim = $boucle->primary;
 	$table = $boucle->id_table;
@@ -343,7 +342,7 @@ 
 //   (id_trad>0 AND id_article=id_trad) OR (id_trad=0)
 // http://www.spip.net/@origine_traduction
 // http://doc.spip.org/@critere_origine_traduction_dist
-function critere_origine_traduction_dist($idb, &$boucles, $crit){
+function critere_origine_traduction_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$prim = $boucle->primary;
 	$table = $boucle->id_table;
@@ -359,16 +358,15 @@ 
 // {meme_parent}
 // http://www.spip.net/@meme_parent
 // http://doc.spip.org/@critere_meme_parent_dist
-function critere_meme_parent_dist($idb, &$boucles, $crit){
+function critere_meme_parent_dist($idb, &$boucles, $crit) {
 	global $exceptions_des_tables;
 	$boucle = &$boucles[$idb];
 	$arg = kwote(calculer_argument_precedent($idb, 'id_parent', $boucles));
 	$id_parent = isset($exceptions_des_tables[$boucle->id_table]['id_parent']) ?
-		$exceptions_des_tables[$boucle->id_table]['id_parent'] :
-		'id_parent';
+		$exceptions_des_tables[$boucle->id_table]['id_parent'] : 'id_parent';
 	$mparent = $boucle->id_table.'.'.$id_parent;
 
-	if ($boucle->type_requete=='rubriques' OR isset($exceptions_des_tables[$boucle->id_table]['id_parent'])){
+	if ($boucle->type_requete == 'rubriques' OR isset($exceptions_des_tables[$boucle->id_table]['id_parent'])) {
 		$boucle->where[] = array("'='", "'$mparent'", $arg);
 
 	}
@@ -398,7 +396,7 @@ 
  * 		AST complété de la condition where au niveau de la boucle,
  * 		restreignant celle ci aux rubriques de la branche
 **/
-function critere_branche_dist($idb, &$boucles, $crit){
+function critere_branche_dist($idb, &$boucles, $crit) {
 
 	$not = $crit->not;
 	$boucle = &$boucles[$idb];
@@ -408,11 +406,11 @@ 
 	$champ = "id_rubrique";
 	$desc = $boucle->show;
 	//Seulement si necessaire
-	if (!array_key_exists($champ, $desc['field'])){
+	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){
+		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)).'"');
@@ -422,13 +420,12 @@ 
 
 	$c = "sql_in('$cle".".$champ', calcul_branche_in($arg)"
 	     .($not ? ", 'NOT'" : '').")";
-	$boucle->where[] = !$crit->cond ? $c :
-		("($arg ? $c : ".($not ? "'0=1'" : "'1=1'").')');
+	$boucle->where[] = !$crit->cond ? $c : ("($arg ? $c : ".($not ? "'0=1'" : "'1=1'").')');
 }
 
 // {logo} liste les objets qui ont un logo
 // http://doc.spip.org/@critere_logo_dist
-function critere_logo_dist($idb, &$boucles, $crit){
+function critere_logo_dist($idb, &$boucles, $crit) {
 
 	$not = $crit->not;
 	$boucle = &$boucles[$idb];
@@ -448,12 +445,12 @@ 
 // c'est la commande SQL "GROUP BY"
 // par exemple <boucle(articles){fusion lang}>
 // http://doc.spip.org/@critere_fusion_dist
-function critere_fusion_dist($idb, &$boucles, $crit){
-	if ($t = isset($crit->param[0])){
+function critere_fusion_dist($idb, &$boucles, $crit) {
+	if ($t = isset($crit->param[0])) {
 		$t = $crit->param[0];
-		if ($t[0]->type=='texte'){
+		if ($t[0]->type == 'texte') {
 			$t = $t[0]->texte;
-			if (preg_match("/^(.*)\.(.*)$/", $t, $r)){
+			if (preg_match("/^(.*)\.(.*)$/", $t, $r)) {
 				$t = table_objet_sql($r[1]);
 				$t = array_search($t, $boucles[$idb]->from);
 				if ($t) $t .= '.'.$r[2];
@@ -464,7 +461,7 @@ 
 			     .'."';
 		}
 	}
-	if ($t){
+	if ($t) {
 		$boucles[$idb]->group[] = $t;
 		if (!in_array($t, $boucles[$idb]->select))
 			$boucles[$idb]->select[] = $t;
@@ -475,25 +472,25 @@ 
 // c'est la commande SQL "COLLATE"
 // qui peut etre appliquee sur les order by, group by, where like ...
 // http://doc.spip.org/@critere_collecte_dist
-function critere_collecte_dist($idb, &$boucles, $crit){
-	if (isset($crit->param[0])){
+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))
-			$boucle->order[$n-1] .= " . ".$boucle->modificateur['collate'];
+		if ($n && (strpos($boucle->order[$n - 1], 'COLLATE') === false))
+			$boucle->order[$n - 1] .= " . ".$boucle->modificateur['collate'];
 	} else
 		return (array('zbug_critere_inconnu', array('critere' => $crit->op." ".count($boucles[$idb]->order))));
 }
 
 // http://doc.spip.org/@calculer_critere_arg_dynamique
-function calculer_critere_arg_dynamique($idb, &$boucles, $crit, $suffix = ''){
+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 = (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.");";
@@ -506,22 +503,22 @@ 
 // Tri : {par xxxx}
 // http://www.spip.net/@par
 // http://doc.spip.org/@critere_par_dist
-function critere_par_dist($idb, &$boucles, $crit){
+function critere_par_dist($idb, &$boucles, $crit) {
 	return critere_parinverse($idb, $boucles, $crit);
 }
 
 // http://doc.spip.org/@critere_parinverse
-function critere_parinverse($idb, &$boucles, $crit, $sens = ''){
+function critere_parinverse($idb, &$boucles, $crit, $sens = '') {
 	global $exceptions_des_jointures;
 	$boucle = &$boucles[$idb];
 	if ($crit->not) $sens = $sens ? "" : " . ' DESC'";
 	$collecte = (isset($boucle->modificateur['collecte'])) ? " . ".$boucle->modificateur['collecte'] : "";
 
-	foreach ($crit->param as $tri){
+	foreach ($crit->param as $tri) {
 
 		$order = $fct = ""; // en cas de fonction SQL
 		// tris specifies dynamiquement
-		if ($tri[0]->type!='texte'){
+		if ($tri[0]->type != 'texte') {
 			// calculer le order dynamique qui verifie les champs
 			$order = calculer_critere_arg_dynamique($idb, $boucles, $tri, $sens);
 			// et si ce n'est fait, ajouter un champ 'hasard' 
@@ -534,13 +531,13 @@ 
 			$par = array_shift($tri);
 			$par = $par->texte;
 			// par multi champ
-			if (preg_match(",^multi[\s]*(.*)$,", $par, $m)){
+			if (preg_match(",^multi[\s]*(.*)$,", $par, $m)) {
 				$champ = trim($m[1]);
 				// par multi L1.champ
 				if (strpos($champ, '.')) {
 					$cle = '';
 				// par multi champ (champ sur une autre table)
-				} elseif (!array_key_exists($champ, $boucle->show['field'])){
+				} elseif (!array_key_exists($champ, $boucle->show['field'])) {
 					$cle = trouver_jointure_champ($champ, $boucle);
 				// par multi champ (champ dans la table en cours)
 				} else {
@@ -557,45 +554,45 @@ 
 				if (strpos($champ, '.')) {
 					$cle = '';
 				// par num champ (champ sur une autre table)
-				} elseif (!array_key_exists($champ, $boucle->show['field'])){
+				} elseif (!array_key_exists($champ, $boucle->show['field'])) {
 					$cle = trouver_jointure_champ($champ, $boucle);
 				// par num champ (champ dans la table en cours)
 				} else {
 					$cle = $boucle->id_table;
 				}
 				if ($cle) { $cle .= '.'; }
-				$texte = '0+'. $cle . $champ;
+				$texte = '0+'.$cle.$champ;
 				$suite = calculer_liste($tri, array(), $boucles, $boucle->id_parent);
-				if ($suite!=="''")
+				if ($suite !== "''")
 					$texte = "\" . ((\$x = $suite) ? ('$texte' . \$x) : '0')"." . \"";
 				$as = 'num'.($boucle->order ? count($boucle->order) : "");
 				$boucle->select[] = $texte." AS $as";
 				$order = "'$as'";
 			} else {
-				if (!preg_match(",^".CHAMP_SQL_PLUS_FONC.'$,is', $par, $match)){
+				if (!preg_match(",^".CHAMP_SQL_PLUS_FONC.'$,is', $par, $match)) {
 					return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
 				} else {
-					if (count($match)>2){
+					if (count($match) > 2) {
 						$par = substr($match[2], 1, -1);
 						$fct = $match[1];
 					}
 					// par hasard
-					if ($par=='hasard'){
+					if ($par == 'hasard') {
 						$par = "rand()";
 						$boucle->select[] = $par." AS alea";
 						$order = "'alea'";
 					}
 						// par titre_mot ou type_mot voire d'autres
-					else if (isset($exceptions_des_jointures[$par])){
+					else if (isset($exceptions_des_jointures[$par])) {
 						list($table, $champ) = $exceptions_des_jointures[$par];
 						$order = critere_par_joint($table, $champ, $boucle, $idb);
 						if (!$order)
 							return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
 					}
-					else if ($par=='date'
+					else if ($par == 'date'
 					         AND $desc = $boucle->show
 					             AND $desc['date']
-					){
+					) {
 						$m = $desc['date'];
 						$order = "'".$boucle->id_table.".".$m."'";
 					}
@@ -603,10 +600,10 @@ 
 					elseif (preg_match("/^([^,]*)\.(.*)$/", $par, $r)) {
 						// cas du tri sur champ de jointure explicite
 						$t = array_search($r[1], $boucle->from);
-						if (!$t){
+						if (!$t) {
 							$t = trouver_jointure_champ($r[2], $boucle, array($r[1]));
 						}
-						if (!$t){
+						if (!$t) {
 							return (array('zbug_critere_inconnu', array('critere' => $crit->op." $par")));
 						} else	 $order = "'".$t.'.'.$r[2]."'";
 					} else {
@@ -619,14 +616,14 @@ 
 				}
 			}
 		}
-		if (preg_match('/^\'([^"]*)\'$/', $order, $m)){
+		if (preg_match('/^\'([^"]*)\'$/', $order, $m)) {
 			$t = $m[1];
-			if (strpos($t, '.') AND !in_array($t, $boucle->select)){
+			if (strpos($t, '.') AND !in_array($t, $boucle->select)) {
 				$boucle->select[] = $t;
 			}
 		} else $sens = '';
 
-		if ($fct){
+		if ($fct) {
 			if (preg_match("/^\s*'(.*)'\s*$/", $order, $r))
 				$order = "'$fct(".$r[1].")'";
 			else $order = "'$fct(' . $order . ')'";
@@ -639,7 +636,7 @@ 
 }
 
 // http://doc.spip.org/@critere_par_joint
-function critere_par_joint($table, $champ, &$boucle, $idb){
+function critere_par_joint($table, $champ, &$boucle, $idb) {
 	$t = array_search($table, $boucle->from);
 	if (!$t) $t = trouver_jointure_champ($champ, $boucle);
 	return !$t ? '' : ("'".$t.'.'.$champ."'");
@@ -649,7 +646,7 @@ 
 // http://www.spip.net/@inverse
 
 // http://doc.spip.org/@critere_inverse_dist
-function critere_inverse_dist($idb, &$boucles, $crit){
+function critere_inverse_dist($idb, &$boucles, $crit) {
 
 	$boucle = &$boucles[$idb];
 	// Classement par ordre inverse
@@ -659,31 +656,31 @@ 
 	{
 		$order = "' DESC'";
 		// Classement par ordre inverse fonction eventuelle de #ENV{...}
-		if (isset($crit->param[0])){
+		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 (!$n) {
 			if (isset($boucle->default_order[0]))
 				$boucle->default_order[0] .= ' . " DESC"';
 			else
 				$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];
-			$boucle->order[$n-1] = $t;
+			$boucle->order[$n - 1] = $t;
 		}
 	}
 }
 
 // http://doc.spip.org/@critere_agenda_dist
-function critere_agenda_dist($idb, &$boucles, $crit){
+function critere_agenda_dist($idb, &$boucles, $crit) {
 	$params = $crit->param;
 
-	if (count($params)<1)
+	if (count($params) < 1)
 		return (array('zbug_critere_inconnu', array('critere' => $crit->op." ?")));
 
 	$parent = $boucles[$idb]->id_parent;
@@ -731,13 +728,13 @@ 
 	$date = $boucle->id_table.".$date";
 
 	$quote_end = ",'".$boucle->sql_serveur."','text'";
-	if ($type=='jour')
+	if ($type == 'jour')
 		$boucle->where[] = array("'='", "'DATE_FORMAT($date, \'%Y%m%d\')'",
 		                         ("sql_quote($annee . $mois . $jour$quote_end)"));
-	elseif ($type=='mois')
+	elseif ($type == 'mois')
 		$boucle->where[] = array("'='", "'DATE_FORMAT($date, \'%Y%m\')'",
 		                         ("sql_quote($annee . $mois$quote_end)"));
-	elseif ($type=='semaine')
+	elseif ($type == 'semaine')
 		$boucle->where[] = array("'AND'",
 		                         array("'>='",
 		                               "'DATE_FORMAT($date, \'%Y%m%d\')'",
@@ -745,7 +742,7 @@ 
 		                         array("'<='",
 		                               "'DATE_FORMAT($date, \'%Y%m%d\')'",
 		                               ("date_fin_semaine($annee, $mois, $jour)")));
-	elseif (count($crit->param)>2)
+	elseif (count($crit->param) > 2)
 		$boucle->where[] = array("'AND'",
 		                         array("'>='",
 		                               "'DATE_FORMAT($date, \'%Y%m%d\')'",
@@ -755,7 +752,7 @@ 
 }
 
 // http://doc.spip.org/@calculer_critere_parties
-function calculer_critere_parties($idb, &$boucles, $crit){
+function calculer_critere_parties($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$a1 = $crit->param[0];
 	$a2 = $crit->param[1];
@@ -764,20 +761,19 @@ 
 	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)))){
+	if (($op == ',') && (is_numeric($a11) && (is_numeric($a21)))) {
 		$boucle->limit = $a11.','.$a21;
 	}
 	else {
-		$boucle->total_parties = ($a21!='n') ? $a21 : $a22;
-		$partie = ($a11!='n') ? $a11 : $a12;
-		$mode = (($op=='/') ? '/' :
-			(($a11=='n') ? '-' : '+').(($a21=='n') ? '-' : '+'));
+		$boucle->total_parties = ($a21 != 'n') ? $a21 : $a22;
+		$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==','){
+		if ($a11 !== 'n' AND $a21 !== 'n' AND $mode == "++" AND $op == ',') {
 			$boucle->limit =
-				(is_numeric($a11)?"'$a11'":$a11)
+				(is_numeric($a11) ? "'$a11'" : $a11)
 				.".','."
-				.(is_numeric($a21)?"'$a21'":$a21);
+				.(is_numeric($a21) ? "'$a21'" : $a21);
 		}
 		else
 			calculer_parties($boucles, $idb, $partie, $mode);
@@ -788,38 +784,35 @@ 
 // Code specifique aux criteres {pagination}, {1,n} {n/m} etc
 //
 
-function calculer_parties(&$boucles, $id_boucle, $debut, $mode){
+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)";
+	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;";
+		if ($op1 == '-') $debut = "$nombre_boucle - $debut;";
 
 		// cas {x,n-1}
-		if ($op2=='-'){
+		if ($op2 == '-') {
 			$fin = '$debut_boucle + '.$nombre_boucle.' - '
-			       .(is_numeric($total_parties) ? ($total_parties+1) :
-					($total_parties.' - 1'));
+			       .(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
-		if ($op1=='p'){
+		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)";
@@ -845,8 +838,8 @@ 
 }
 
 // http://doc.spip.org/@calculer_critere_parties_aux
-function calculer_critere_parties_aux($idb, &$boucles, $param){
-	if ($param[0]->type!='texte'){
+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);
 		preg_match(',^ *(-([0-9]+))? *$,', $param[1]->texte, $m);
 		return array("intval($a1)", ($m[2] ? $m[2] : 0));
@@ -885,7 +878,7 @@ 
  *     string : Chaine vide sans erreur
  *     array : Erreur sur un des critères
 **/
-function calculer_criteres($idb, &$boucles){
+function calculer_criteres($idb, &$boucles) {
 	$msg = '';
 	$boucle = $boucles[$idb];
 	$table = strtoupper($boucle->type_requete);
@@ -895,7 +888,7 @@ 
 	// s'il y avait une erreur de syntaxe, propager cette info
 	if (!is_array($boucle->criteres)) return array();
 
-	foreach ($boucle->criteres as $crit){
+	foreach ($boucle->criteres as $crit) {
 		$critere = $crit->op;
 		// critere personnalise ?
 		if (
@@ -910,7 +903,7 @@ 
 			    AND (!function_exists($f = $f."_dist"))
 			        AND (!function_exists($f = "critere_".$critere))
 			            AND (!function_exists($f = $f."_dist"))
-		){
+		) {
 			// fonction critere standard 
 			$f = $defaut;
 		}
@@ -918,7 +911,7 @@ 
 		$res = $f($idb, $boucles, $crit);
 
 		// Gestion centralisee des erreurs pour pouvoir propager
-		if (is_array($res)){
+		if (is_array($res)) {
 			$msg = $res;
 			erreur_squelette($msg, $boucle);
 		}
@@ -937,9 +930,9 @@ 
  * @param string $type
  * @return string
  */
-function kwote($lisp, $serveur='', $type=''){
+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)";
 }
@@ -947,9 +940,9 @@ 
 // Si on a une liste de valeurs dans #ENV{x}, utiliser la double etoile
 // pour faire par exemple {id_article IN #ENV**{liste_articles}}
 // http://doc.spip.org/@critere_IN_dist
-function critere_IN_dist($idb, &$boucles, $crit){
+function critere_IN_dist($idb, &$boucles, $crit) {
 	$r = calculer_critere_infixe($idb, $boucles, $crit);
-	if (!$r){
+	if (!$r) {
 		return (array('zbug_critere_inconnu', array('critere' => $crit->op." ?")));
 	}
 	list($arg, $op, $val, $col, $where_complement) = $r;
@@ -958,7 +951,7 @@ 
 
 	//	inserer la condition; exemple: {id_mot ?IN (66, 62, 64)}
 	$where = $in;
-	if ($crit->cond){
+	if ($crit->cond) {
 		$pred = calculer_argument_precedent($idb, $col, $boucles);
 		$where = array("'?'", $pred, $where, "''");
 		if ($where_complement) // condition annexe du type "AND (objet='article')"
@@ -978,15 +971,15 @@ 
 }
 
 // http://doc.spip.org/@critere_IN_cas
-function critere_IN_cas($idb, &$boucles, $crit2, $arg, $op, $val, $col){
+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)){
+	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];";
@@ -1007,11 +1000,11 @@ 
 	// avec une ecriture de type FIELD qui degrade les performances (du meme ordre qu'un rexgexp)
 	// 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){
+	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'" : "").")";
+	return "sql_in('$arg',sql_quote($var)".($crit2 == 'NOT' ? ",'NOT'" : "").")";
 }
 
 /**
@@ -1022,7 +1015,7 @@ 
  * @param <type> $boucles
  * @param <type> $crit
  */
-function critere_where_dist($idb, &$boucles, $crit){
+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);
@@ -1084,7 +1077,7 @@ 
  * @param unknown_type $boucles
  * @param unknown_type $crit
  */
-function critere_tri_dist($idb, &$boucles, $crit){
+function critere_tri_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 
 	// definition du champ par defaut
@@ -1120,13 +1113,13 @@ 
 # Criteres de comparaison
 
 // http://doc.spip.org/@calculer_critere_DEFAUT
-function calculer_critere_DEFAUT_dist($idb, &$boucles, $crit){
+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=='/'))
+	if (($crit->op == ",") OR ($crit->op == '/'))
 		return calculer_critere_parties($idb, $boucles, $crit);
 
 	$r = calculer_critere_infixe($idb, $boucles, $crit);
-	if (!$r){
+	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)));
@@ -1134,7 +1127,7 @@ 
 	} else calculer_critere_DEFAUT_args($idb, $boucles, $crit, $r);
 }
 
-function calculer_critere_DEFAUT_args($idb, &$boucles, $crit, $args){
+function calculer_critere_DEFAUT_args($idb, &$boucles, $crit, $args) {
 	list($arg, $op, $val, $col, $where_complement) = $args;
 
 	$where = array("'$op'", "'$arg'", $val[0]);
@@ -1152,15 +1145,15 @@ 
 
 	// inserer la condition (cf {lang?})
 	// traiter a part la date, elle est mise d'office par SPIP,
-	if ($crit->cond){
+	if ($crit->cond) {
 		$pred = calculer_argument_precedent($idb, $col, $boucles);
-		if ($col=="date" OR $col=="date_redac"){
-			if ($pred=="\$Pile[0]['".$col."']"){
+		if ($col == "date" OR $col == "date_redac") {
+			if ($pred == "\$Pile[0]['".$col."']") {
 				$pred = "(\$Pile[0]['{$col}_default']?'':$pred)";
 			}
 		}
 
-		if ($op=='=' AND !$crit->not)
+		if ($op == '=' AND !$crit->not)
 			$where = array("'?'", "(is_array($pred))",
 			               critere_IN_cas($idb, $boucles, 'COND', $arg, $op, array($pred), $col),
 			               $where);
@@ -1175,7 +1168,7 @@ 
 }
 
 // http://doc.spip.org/@calculer_critere_infixe
-function calculer_critere_infixe($idb, &$boucles, $crit){
+function calculer_critere_infixe($idb, &$boucles, $crit) {
 
 	global $table_criteres_infixes;
 	global $exceptions_des_jointures, $exceptions_des_tables;
@@ -1193,16 +1186,16 @@ 
 	$where_complement = false;
 
 	// Cas particulier : id_enfant => utiliser la colonne id_objet
-	if ($col=='id_enfant')
+	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'))
+	if (in_array($col, array('id_parent', 'id_secteur'))
 	  AND isset($exceptions_des_tables[$table][$col]))
 		$col = $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))){
+	else if (($col == 'id_secteur') AND ($critere_secteur = charger_fonction("critere_secteur_$type", "public", true))) {
 		$table = $critere_secteur($idb, $boucles, $val, $crit);
 	}
 
@@ -1211,28 +1204,28 @@ 
 	else if (
 		!isset($exceptions_des_jointures[table_objet_sql($table)][$col])
 		AND !isset($exceptions_des_jointures[$col])
-		    AND count(trouver_champs_decomposes($col, $desc))>1
-	){
+		    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;
+	else if ($c = calculer_critere_infixe_date($idb, $boucles, $col)) {
+		list($col, $col_vraie) = $c;
 		$table = '';
 	}
-	else if (preg_match('/^(.*)\.(.*)$/', $col, $r)){
+	else if (preg_match('/^(.*)\.(.*)$/', $col, $r)) {
 		list(, $table, $col) = $r;
 		$col_alias = $col;
 
-		$trouver_table = charger_fonction('trouver_table','base');
+		$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))
+		  AND $cle = array_search($desc['table'], $boucle->from))
 			$table = $cle;
 		else {
-			$table = trouver_jointure_champ($col, $boucle, array($table), ($crit->cond OR $op!='='));
+			$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 '';
@@ -1246,18 +1239,18 @@ 
 		list($col, $col_alias, $table, $where_complement, $desc) = $r;
 	}
 
-	$col_vraie = ($col_vraie?$col_vraie:$col);
+	$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, $table_criteres_infixes)){
+	if ($op == '=' OR in_array($op, $table_criteres_infixes)) {
 
 		// 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,(isset($desc['field'][$col_vraie])?$desc['field'][$col_vraie]:'int NOT NULL')).'"';
+			$val[0] = $r[1].'"'.sql_quote($r[2], $boucle->sql_serveur, (isset($desc['field'][$col_vraie]) ? $desc['field'][$col_vraie] : 'int NOT NULL')).'"';
 
 		// sinon expliciter les
 		// sql_quote(truc) en sql_quote(truc,'',type)
@@ -1270,16 +1263,16 @@ 
 		  AND (!isset($r[3]) OR !$r[3])) {
 			$r = $r[1]
 				.((isset($r[2]) AND $r[2]) ? $r[2] : ",''")
-				.",'".(isset($desc['field'][$col_vraie])?addslashes($desc['field'][$col_vraie]):'int NOT NULL')."'";
+				.",'".(isset($desc['field'][$col_vraie]) ?addslashes($desc['field'][$col_vraie]) : 'int NOT NULL')."'";
 			$val[0] = "sql_quote($r)";
 		}
 	}
 	// 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){
+	if ($table === $boucle->id_table) {
 		$boucles[$idb]->modificateur['criteres'][$col_vraie] = true;
-		if ($col_alias!=$col_vraie)
+		if ($col_alias != $col_vraie)
 			$boucles[$idb]->modificateur['criteres'][$col_alias] = true;
 	}
 
@@ -1288,11 +1281,11 @@ 
 	// 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;
+	if ($col == 'statut') $boucles[$idb]->statut = true;
 
 	// inserer le nom de la table SQL devant le nom du champ
-	if ($table){
-		if ($col[0]=="`")
+	if ($table) {
+		if ($col[0] == "`")
 			$arg = "$table.".substr($col, 1, -1);
 		else $arg = "$table.$col";
 	} else $arg = $col;
@@ -1303,7 +1296,7 @@ 
 	return array($arg, $op, $val, $col_alias, $where_complement);
 }
 
-function calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table){
+function calculer_critere_infixe_externe($boucle, $crit, $op, $desc, $col, $col_alias, $table) {
 	global $exceptions_des_jointures;
 	$where = '';
 
@@ -1319,17 +1312,17 @@ 
 			OR
 			isset($exceptions_des_jointures[$table_sql][''])
 			)
-		){
+		) {
 		$t = $exceptions_des_jointures[$table_sql];
 		$index = isset($t[$col])
 			? $t[$col] : (isset($t['']) ? $t[''] : array());
 
-		if (count($index)==3)
+		if (count($index) == 3)
 			list($t, $col, $calculer_critere_externe) = $index;
-		elseif (count($index)==2) {
+		elseif (count($index) == 2) {
 			list($t, $col) = $t[$col];
 		}
-		elseif (count($index)==1) {
+		elseif (count($index) == 1) {
 			list($calculer_critere_externe) = $index;
 			$t = $table;
 		}
@@ -1348,14 +1341,14 @@ 
 	// <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){
+	if ($boucle->jointures_explicites) {
 		$jointures_explicites = explode(' ', $boucle->jointures_explicites);
-		$table = $calculer_critere_externe($boucle, $jointures_explicites, $col, $desc, ($crit->cond OR $op!='='), $t);
+		$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);
+		$table = $calculer_critere_externe($boucle, $boucle->jointures, $col, $desc, ($crit->cond OR $op != '='), $t);
 	}
 
 	if (!$table) return '';
@@ -1363,7 +1356,7 @@ 
 	// il ne reste plus qu'a trouver le champ dans les from
 	list($nom, $desc) = trouver_champ_exterieur($col, $boucle->from, $boucle);
 
-	if (count(trouver_champs_decomposes($col, $desc))>1){
+	if (count(trouver_champs_decomposes($col, $desc)) > 1) {
 		$col_alias = $col; // id_article devient juste le nom d'origine
 		$e = decompose_champ_id_objet($col);
 		$col = array_shift($e);
@@ -1377,7 +1370,7 @@ 
 // car on ne connait pas le serveur SQL, donc s'il faut \' ou ''
 
 // http://doc.spip.org/@primary_doublee
-function primary_doublee($decompose, $table){
+function primary_doublee($decompose, $table) {
 	$e1 = reset($decompose);
 	$e2 = "sql_quote('".end($decompose)."')";
 	return array("'='", "'$table.".$e1."'", $e2);
@@ -1402,7 +1395,7 @@ 
  * @param bool|string $checkarrivee
  * @return mixed|string
  */
-function calculer_critere_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false){
+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
@@ -1411,19 +1404,19 @@ 
 		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)){
+	foreach ($joints as $joint) {
+		if ($arrivee = trouver_champ_exterieur($col, array($joint), $boucle, $checkarrivee)) {
 			$t = array_search($arrivee[0], $boucle->from);
 			// transformer eventuellement id_xx en (id_objet,objet)
 			$cols = trouver_champs_decomposes($col, $arrivee[1]);
-			if ($t){
+			if ($t) {
 				$joindre = false;
-				foreach ($cols as $col){
+				foreach ($cols as $col) {
 					$c = '/\b'.$t.".$col".'\b/';
 					if (trouver_champ($c, $boucle->where)) $joindre = true;
 					else {
@@ -1454,7 +1447,7 @@ 
  * @param bool $checkarrivee
  * @return string
  */
-function calculer_lien_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false){
+function calculer_lien_externe_init(&$boucle, $joints, $col, $desc, $cond, $checkarrivee = false) {
 	$primary_arrivee = id_table_objet($checkarrivee);
 
 	$intermediaire = trouver_champ_exterieur($primary_arrivee, $joints, $boucle, $checkarrivee."_liens");
@@ -1473,11 +1466,11 @@ 
 
 
 // http://doc.spip.org/@trouver_champ
-function trouver_champ($champ, $where){
+function trouver_champ($champ, $where) {
 	if (!is_array($where))
 		return preg_match($champ, $where);
 	else {
-		foreach ($where as $clause){
+		foreach ($where as $clause) {
 			if (trouver_champ($champ, $clause)) return true;
 		}
 		return false;
@@ -1488,18 +1481,18 @@ 
 // determine l'operateur et les operandes
 
 // http://doc.spip.org/@calculer_critere_infixe_ops
-function calculer_critere_infixe_ops($idb, &$boucles, $crit){
+function calculer_critere_infixe_ops($idb, &$boucles, $crit) {
 	// cas d'une valeur comparee a elle-meme ou son referent
-	if (count($crit->param)==0){
+	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')
+		if ($val == 'lang')
 			$val = array(kwote('$GLOBALS[\'spip_lang\']'));
 		else {
 			$defaut = null;
-			if ($val=='id_parent') {
+			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
@@ -1507,12 +1500,12 @@ 
 				// mais si pas de boucle superieure, prendre id_parent dans l'env
 				$defaut = "\$Pile[0]['id_parent']";
 			}
-			elseif ($val=='id_enfant'){
+			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")){
+			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."'])";
@@ -1526,7 +1519,7 @@ 
 		// le phraseur impose que le premier param soit du texte
 		$params = $crit->param;
 		$op = $crit->op;
-		if ($op=='==') $op = 'REGEXP';
+		if ($op == '==') $op = 'REGEXP';
 		$col = array_shift($params);
 		$col = $col[0]->texte;
 
@@ -1537,30 +1530,30 @@ 
 		// 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'
-		){
+		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){
+			foreach ((($op != 'IN') ? $params : calculer_vieux_in($params)) as $p) {
 				$a = calculer_liste($p, $desc, $boucles, $parent);
-				if (strcasecmp($op,'IN')==0) $val[] = $a;
+				if (strcasecmp($op, 'IN') == 0) $val[] = $a;
 				else $val[] = kwote($a, $boucles[$idb]->sql_serveur, 'char'); // toujours quoter en char ici
 			}
 	}
 
 	$fct = $args_sql = '';
 	// fonction SQL ?
-	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];
-		if (preg_match('/^(\S*)(\s+AS\s+.*)$/i', $col, $m)){
+		if (preg_match('/^(\S*)(\s+AS\s+.*)$/i', $col, $m)) {
 			$col = $m[1];
 			$args_sql = $m[2];
 		}
@@ -1574,28 +1567,28 @@ 
 // compatibilite ancienne version
 
 // http://doc.spip.org/@calculer_vieux_in
-function calculer_vieux_in($params){
+function calculer_vieux_in($params) {
 	$deb = $params[0][0];
-	$k = count($params)-1;
+	$k = count($params) - 1;
 	$last = $params[$k];
-	$j = count($last)-1;
+	$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]==')')))
+	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);
+	$params[$k][$j]->texte = substr($last->texte, 0, $n - 1);
 	$newp = array();
-	foreach ($params as $v){
-		if ($v[0]->type!='texte')
+	foreach ($params as $v) {
+		if ($v[0]->type != 'texte')
 			$newp[] = $v;
 		else {
-			foreach (explode(',', $v[0]->texte) as $x){
+			foreach (explode(',', $v[0]->texte) as $x) {
 				$t = new Texte;
 				$t->texte = $x;
 				$newp[] = array($t);
@@ -1606,17 +1599,17 @@ 
 }
 
 // http://doc.spip.org/@calculer_critere_infixe_date
-function calculer_critere_infixe_date($idb, &$boucles, $col){
+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 (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'];
+	$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]){
+	if (isset($regs[3]) AND $suite = $regs[3]) {
 		# Recherche de l'existence du champ date_xxxx,
 		# si oui choisir ce champ, sinon choisir xxxx
 
@@ -1654,34 +1647,34 @@ 
 			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_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_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_vraie = ""; // comparer a un int (par defaut)
 			break;
 	}
-	return array($col,$col_vraie);
+	return array($col, $col_vraie);
 }
 
 // http://doc.spip.org/@calculer_param_date
-function calculer_param_date($date_compare, $date_orig){
-	if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)){
+function calculer_param_date($date_compare, $date_orig) {
+	if (preg_match(",'\" *\.(.*)\. *\"',", $date_compare, $r)) {
 		$init = "'\" . (\$x = $r[1]) . \"'";
 		$date_compare = '\'$x\'';
 	}
@@ -1718,7 +1711,7 @@ 
  * @param object $boucles
  * @param object $crit
  */
-function critere_DATA_source_dist($idb, &$boucles, $crit){
+function critere_DATA_source_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 
 	$args = array();
@@ -1740,7 +1733,7 @@ 
  * @param object $boucles
  * @param object $crit
  */
-function critere_DATA_datasource_dist($idb, &$boucles, $crit){
+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).');
@@ -1754,7 +1747,7 @@ 
  * @param object $boucles
  * @param object $crit
  */
-function critere_DATA_datacache_dist($idb, &$boucles, $crit){
+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).';';
@@ -1769,10 +1762,10 @@ 
  * @param object $boucles
  * @param object $crit
  */
-function critere_php_args_dist($idb, &$boucles, $crit){
+function critere_php_args_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$boucle->hash .= '$command[\'args\']=array();';
-	foreach ($crit->param as $param){
+	foreach ($crit->param as $param) {
 		$boucle->hash .= '
 			$command[\'args\'][] = '.calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent).';';
 	}
@@ -1786,10 +1779,10 @@ 
  * @param object $boucles
  * @param object $crit
  */
-function critere_DATA_liste_dist($idb, &$boucles, $crit){
+function critere_DATA_liste_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$boucle->hash .= "\n\t".'$command[\'liste\'] = array();'."\n";
-	foreach ($crit->param as $param){
+	foreach ($crit->param as $param) {
 		$boucle->hash .= "\t".'$command[\'liste\'][] = '.calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent).";\n";
 	}
 }
@@ -1802,10 +1795,10 @@ 
  * @param object $boucles
  * @param object $crit
  */
-function critere_DATA_enum_dist($idb, &$boucles, $crit){
+function critere_DATA_enum_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
 	$boucle->hash .= "\n\t".'$command[\'enum\'] = array();'."\n";
-	foreach ($crit->param as $param){
+	foreach ($crit->param as $param) {
 		$boucle->hash .= "\t".'$command[\'enum\'][] = '.calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent).";\n";
 	}
 }
@@ -1818,9 +1811,9 @@ 
  * @param object $boucles
  * @param object $crit
  */
-function critere_DATA_datapath_dist($idb, &$boucles, $crit){
+function critere_DATA_datapath_dist($idb, &$boucles, $crit) {
 	$boucle = &$boucles[$idb];
-	foreach ($crit->param as $param){
+	foreach ($crit->param as $param) {
 		$boucle->hash .= '
 			$command[\'datapath\'][] = '.calculer_liste($param, array(), $boucles, $boucles[$idb]->id_parent).';';
 	}
@@ -1834,16 +1827,16 @@ 
  * @param object $boucles
  * @param object $crit
  */
-function critere_si_dist($idb, &$boucles, $crit){
+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){
+	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 {
@@ -1859,7 +1852,7 @@ 
  * @param object $boucles
  * @param object $crit
  */
-function critere_POUR_tableau_dist($idb, &$boucles, $crit){
+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).');
@@ -1877,13 +1870,13 @@ 
  * @param array $boucles
  * @param Object $crit
  */
-function critere_noeud_dist($idb, &$boucles, $crit){
+function critere_noeud_dist($idb, &$boucles, $crit) {
 	global $exceptions_des_tables;
 	$not = $crit->not;
 	$boucle = &$boucles[$idb];
 	$primary = $boucle->primary;
 
-	if (!$primary OR strpos($primary, ',')){
+	if (!$primary OR strpos($primary, ',')) {
 		erreur_squelette(_T('zbug_doublon_sur_table_sans_cle_primaire'), $boucle);
 		return;
 	}
@@ -1891,8 +1884,7 @@ 
 	$table_sql = table_objet_sql(objet_type($table));
 
 	$id_parent = isset($exceptions_des_tables[$boucle->id_table]['id_parent']) ?
-		$exceptions_des_tables[$boucle->id_table]['id_parent'] :
-		'id_parent';
+		$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').')'");
@@ -1912,7 +1904,7 @@ 
  * @param array $boucles
  * @param Object $crit
  */
-function critere_feuille_dist($idb, &$boucles, $crit){
+function critere_feuille_dist($idb, &$boucles, $crit) {
 	$not = $crit->not;
 	$crit->not = $not ? false : true;
 	critere_noeud_dist($idb, $boucles, $crit);

ecrire/public/debusquer.php

Doc Comments +10 added lines

@@ -374,6 +374,10 @@ 
 }
 
 // http://doc.spip.org/@reference_boucle_debug
+/**
+ * @param string $nom
+ * @param string $self
+ */
 function reference_boucle_debug($n, $nom, $self){
 	list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
 
@@ -459,6 +463,9 @@ 
 
 // l'environnement graphique du debuggueur 
 
+/**
+ * @param null|string $self
+ */
 function debusquer_squelette($fonc, $mode, $self){
 	global $debug_objets;
 
@@ -745,6 +752,9 @@ 
 }
 
 // http://doc.spip.org/@debusquer_entete
+/**
+ * @param string $corps
+ */
 function debusquer_entete($titre, $corps){
 	global $debug_objets;
 	include_spip('balise/formulaire_admin');

Indentation +615 added lines, -615 removed lines

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

Spacing +151 added lines, -154 removed lines

@@ -63,7 +63,7 @@ 
  * @return null|string
  *     - string si $message à false.
 **/
-function public_debusquer_dist($message = '', $lieu = '', $opt = array()){
+function public_debusquer_dist($message = '', $lieu = '', $opt = array()) {
 	global $visiteur_session;
 	global $debug_objets;
 	static $tableau_des_erreurs = array();
@@ -80,7 +80,7 @@ 
 	}
 
 	// Erreur ou appel final ?
-	if ($message){
+	if ($message) {
 		$message = debusquer_compose_message($message);
 		$tableau_des_erreurs[] = array($message, $lieu);
 		set_request('var_mode', 'debug');
@@ -89,7 +89,7 @@ 
 		if (is_object($lieu) AND (!isset($lieu->code) OR !$lieu->code))
 			$lieu->code = "''";
 		// forcer l'appel au debusqueur en cas de boucles infernales
-		$urgence = (_DEBUG_MAX_SQUELETTE_ERREURS AND count($tableau_des_erreurs)>_DEBUG_MAX_SQUELETTE_ERREURS);
+		$urgence = (_DEBUG_MAX_SQUELETTE_ERREURS AND count($tableau_des_erreurs) > _DEBUG_MAX_SQUELETTE_ERREURS);
 		if (!$urgence) return;
 	}
 	if (empty($debug_objets['principal']))
@@ -108,7 +108,7 @@ 
 	if (ob_get_length()
 		AND
 		!in_array('ob_gzhandler', ob_get_status())
-	){
+	) {
 		ob_end_clean();
 	}
 
@@ -126,15 +126,15 @@ 
 	if ($tableau_des_erreurs) http_status(503);
 
 	http_no_cache();
-	if (isset($_GET['var_profile'])){
+	if (isset($_GET['var_profile'])) {
 		$titre = parametre_url($GLOBALS['REQUEST_URI'], 'var_profile', '');
 		$titre = parametre_url($titre, 'var_mode', '');
 	}
 	else {
 		if (!$fonc) $fonc = $debug_objets['principal'];
-		$titre = !$mode ? $fonc : ($mode . ' ' . $debug_objets['sourcefile'][$fonc]);
+		$titre = !$mode ? $fonc : ($mode.' '.$debug_objets['sourcefile'][$fonc]);
 	}
-	if ($message===false){
+	if ($message === false) {
 		lang_select();
 		return debusquer_entete($titre, $res);
 	}
@@ -143,11 +143,11 @@ 
 	exit;
 }
 
-function debusquer_compose_message($msg){
-	if (is_array($msg)){
+function debusquer_compose_message($msg) {
+	if (is_array($msg)) {
 		// si c'est un texte, c'est une traduction a faire, mais
 		// sqlite renvoit aussi des erreurs alpha num (mais avec 3 arguments)
-		if (!is_numeric($msg[0]) AND count($msg)==2) {
+		if (!is_numeric($msg[0]) AND count($msg) == 2) {
 			// message avec argument: instancier
 			$msg = _T($msg[0], $msg[1], 'spip-debug-arg');
 		} else {
@@ -157,17 +157,17 @@ 
 	}
 	// FIXME: le fond n'est pas la si on n'est pas dans un squelette
 	// cela dit, ca serait bien d'indiquer tout de meme d'ou vient l'erreur
-	$fond = isset($GLOBALS['fond']) ? $GLOBALS['fond']  : "";
+	$fond = isset($GLOBALS['fond']) ? $GLOBALS['fond'] : "";
 	// une erreur critique sort $message en array
 	$debug = is_array($msg) ? $msg[1] : $msg;
-	spip_log("Debug: " . $debug . " (" . $fond . ")");
+	spip_log("Debug: ".$debug." (".$fond.")");
 	return $msg;
 }
 
-function debusquer_bandeau($erreurs){
+function debusquer_bandeau($erreurs) {
 
-	if (!empty($erreurs)){
-		$n = array(count($erreurs) . ' ' . _T('zbug_erreur_squelette'));
+	if (!empty($erreurs)) {
+		$n = array(count($erreurs).' '._T('zbug_erreur_squelette'));
 		return debusquer_navigation($erreurs, $n);
 	}
 	elseif (!empty($GLOBALS['tableau_des_temps'])) {
@@ -179,17 +179,17 @@ 
 		return '';
 }
 
-function debusquer_contexte($env){
+function debusquer_contexte($env) {
 
 	if (is_array($env_tab = @unserialize($env))) $env = $env_tab;
 
 	if (!$env) return '';
 	$res = "";
-	foreach ($env as $nom => $valeur){
+	foreach ($env as $nom => $valeur) {
 		if (is_array($valeur))
-			$valeur = '(' . count($valeur) . ' items) [' . join(',', $valeur) . ']';
-		$res .= "\n<tr><td><strong>" . nl2br(entites_html($nom))
-			. "</strong></td><td>:&nbsp;" . nl2br(entites_html($valeur))
+			$valeur = '('.count($valeur).' items) ['.join(',', $valeur).']';
+		$res .= "\n<tr><td><strong>".nl2br(entites_html($nom))
+			. "</strong></td><td>:&nbsp;".nl2br(entites_html($valeur))
 			. "</td></tr>\n";
 	}
 
@@ -199,32 +199,32 @@ 
 // Affichage du tableau des erreurs ou des temps de calcul
 // Cliquer sur les numeros en premiere colonne permet de voir le code
 
-function debusquer_navigation($tableau, $caption = array(), $id = 'debug-nav'){
+function debusquer_navigation($tableau, $caption = array(), $id = 'debug-nav') {
 
-	if (_request('exec')=='valider_xml') return '';
+	if (_request('exec') == 'valider_xml') return '';
 	$GLOBALS['bouton_admin_debug'] = true;
 	$res = '';
 	$href = quote_amp(parametre_url($GLOBALS['REQUEST_URI'], 'var_mode', 'debug'));
-	foreach ($tableau as $i => $err){
+	foreach ($tableau as $i => $err) {
 		$boucle = $ligne = $skel = '';
 		list($msg, $lieu) = $err;
-		if (is_object($lieu)){
+		if (is_object($lieu)) {
 			$ligne = $lieu->ligne;
 			$boucle = $lieu->id_boucle ? $lieu->id_boucle : '';
-			if (isset($lieu->descr['nom'])){
+			if (isset($lieu->descr['nom'])) {
 				$nom_code = $lieu->descr['nom'];
 				$skel = $lieu->descr['sourcefile'];
 				$h2 = parametre_url($href, 'var_mode_objet', $nom_code);
-				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette') . '#L' . $ligne;
+				$h3 = parametre_url($h2, 'var_mode_affiche', 'squelette').'#L'.$ligne;
 				$skel = "<a href='$h3'><b>$skel</b></a>";
-				if ($boucle){
-					$h3 = parametre_url($h2 . $boucle, 'var_mode_affiche', 'boucle');
+				if ($boucle) {
+					$h3 = parametre_url($h2.$boucle, 'var_mode_affiche', 'boucle');
 					$boucle = "<a href='$h3'><b>$boucle</b></a>";
 				}
 			}
 		}
 
-		$j = ($i+1);
+		$j = ($i + 1);
 		$res .= "<tr id='req$j'><td style='text-align: right'>"
 			. $j
 			. "&nbsp;</td><td style='text-align: left'>"
@@ -278,22 +278,22 @@ 
  * 		Retourne le texte de l'erreur a afficher
  * 		ou un tableau si l'erreur est critique
 **/
-function debusquer_requete($message){
+function debusquer_requete($message) {
 	list($errno, $msg, $query) = $message;
 
 	// FIXME: ces écritures mélangent divers syntaxe des moteurs SQL
 	// il serait plus prudent certainement d'avoir une fonction d'analyse par moteur
-	if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)){
+	if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)) {
 		$errno = $regs[2];
 	}
-	elseif (is_numeric($errno) and ($errno==1030 OR $errno<=1026)
+	elseif (is_numeric($errno) and ($errno == 1030 OR $errno <= 1026)
 		AND preg_match(',[^[:alnum:]]([0-9]+)[^[:alnum:]],', $msg, $regs)
 	) {
 		$errno = $regs[1];
 	}
 
 	// Erreur systeme
-	if (is_numeric($errno) and $errno>0 AND $errno<200){
+	if (is_numeric($errno) and $errno > 0 AND $errno < 200) {
 		$retour = "<tt><br /><br /><blink>"
 			. _T('info_erreur_systeme', array('errsys' => $errno))
 			. "</blink><br />\n<b>"
@@ -305,7 +305,7 @@ 
 	}
 
 	// Requete erronee
-	$err = "<b>" . _T('avis_erreur_mysql') . " $errno</b><br /><tt>\n"
+	$err = "<b>"._T('avis_erreur_mysql')." $errno</b><br /><tt>\n"
 		. spip_htmlspecialchars($msg)
 		. "\n<br /><span style='color: red'><b>"
 		. spip_htmlspecialchars($query)
@@ -318,17 +318,17 @@ 
 
 
 // http://doc.spip.org/@trouve_boucle_debug
-function trouve_boucle_debug($n, $nom, $debut = 0, $boucle = ""){
+function trouve_boucle_debug($n, $nom, $debut = 0, $boucle = "") {
 	global $debug_objets;
 
-	$id = $nom . $boucle;
-	if (is_array($debug_objets['sequence'][$id])){
-		foreach ($debug_objets['sequence'][$id] as $v){
+	$id = $nom.$boucle;
+	if (is_array($debug_objets['sequence'][$id])) {
+		foreach ($debug_objets['sequence'][$id] as $v) {
 
 			if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r))
 				$y = substr_count($v[0], "\n");
 			else {
-				if ($v[1][0]=='#')
+				if ($v[1][0] == '#')
 					// balise dynamique
 					$incl = $debug_objets['resultat'][$v[2]];
 				else
@@ -338,82 +338,79 @@ 
 					+substr_count($r[1], "\n")
 					+substr_count($r[3], "\n");
 			}
-			if ($n<=($y+$debut)){
-				if ($v[1][0]=='?')
+			if ($n <= ($y + $debut)) {
+				if ($v[1][0] == '?')
 					return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
-				elseif ($v[1][0]=='!') {
+				elseif ($v[1][0] == '!') {
 					if ($incl = trouve_squelette_inclus($v[1]))
 						return trouve_boucle_debug($n, $incl, $debut);
 				}
-				return array($nom, $boucle, $v[2]-1+$n-$debut);
+				return array($nom, $boucle, $v[2] - 1 + $n - $debut);
 			}
 			$debut += $y;
 		}
 	}
-	return array($nom, $boucle, $n-$debut);
+	return array($nom, $boucle, $n - $debut);
 }
 
 // http://doc.spip.org/@trouve_squelette_inclus
-function trouve_squelette_inclus($script){
+function trouve_squelette_inclus($script) {
 	global $debug_objets;
 	preg_match('/include\(.(.*).php3?.\);/', $script, $reg);
 	// si le script X.php n'est pas ecrire/public.php
 	// on suppose qu'il prend le squelette X.html (pas sur, mais y a pas mieux)
-	if ($reg[1]=='ecrire/public')
+	if ($reg[1] == 'ecrire/public')
 		// si c'est bien ecrire/public on cherche le param 'fond'
 		if (!preg_match("/'fond' => '([^']*)'/", $script, $reg))
 			// a defaut on cherche le param 'page'
 			if (!preg_match("/'param' => '([^']*)'/", $script, $reg))
 				$reg[1] = "inconnu";
-	$incl = ',' . $reg[1] . '[.]\w$,';
+	$incl = ','.$reg[1].'[.]\w$,';
 
-	foreach ($debug_objets['sourcefile'] as $k => $v){
+	foreach ($debug_objets['sourcefile'] as $k => $v) {
 		if (preg_match($incl, $v)) return $k;
 	}
 	return "";
 }
 
 // http://doc.spip.org/@reference_boucle_debug
-function reference_boucle_debug($n, $nom, $self){
+function reference_boucle_debug($n, $nom, $self) {
 	list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
 
 	if (!$boucle)
-		return !$ligne ? "" :
-			(" (" .
-				(($nom!=$skel) ? _T('squelette_inclus_ligne') :
-					_T('squelette_ligne')) .
+		return !$ligne ? "" : (" (".
+				(($nom != $skel) ? _T('squelette_inclus_ligne') : _T('squelette_ligne')).
 				" <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
 	else {
 		$self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
 
-		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
-			" (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
+		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" : " (boucle $boucle ligne\n<a href='$self&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)";
 	}
 }
 
 // affiche un texte avec numero de ligne et ancre.
 
 // http://doc.spip.org/@ancre_texte
-function ancre_texte($texte, $fautifs = array(), $nocpt = false){
+function ancre_texte($texte, $fautifs = array(), $nocpt = false) {
 
 	$var_mode_ligne = _request('var_mode_ligne');
 	if ($var_mode_ligne) $fautifs[] = array($var_mode_ligne);
 	$res = '';
 
 	$s = highlight_string($texte, true);
-	if (substr($s, 0, 6)=='<code>'){
+	if (substr($s, 0, 6) == '<code>') {
 		$s = substr($s, 6);
 		$res = '<code>';
 	}
 
 	$s = preg_replace(',<(\w[^<>]*)>([^<]*)<br />([^<]*)</\1>,',
-		'<\1>\2</\1><br />' . "\n" . '<\1>\3</\1>',
+		'<\1>\2</\1><br />'."\n".'<\1>\3</\1>',
 		$s);
 
 
 	$tableau = explode("<br />", $s);
 
-	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: " . ($nocpt ? 'hidden' : 'visible') . ";%s' href='#T%s' title=\"%s\">%0" . strval(@strlen(count($tableau))) . "d</a></span> %s<br />\n";
+	$format = "<span style='float:left;display:block;width:50px;height:1px'><a id='L%d' style='background-color: white; visibility: ".($nocpt ? 'hidden' : 'visible').";%s' href='#T%s' title=\"%s\">%0".strval(@strlen(count($tableau)))."d</a></span> %s<br />\n";
 
 	$format10 = str_replace('white', 'lightgrey', $format);
 	$formaterr = "color: red;";
@@ -421,14 +418,14 @@ 
 	$flignes = array();
 	$loc = array(0, 0);
 	foreach ($fautifs as $lc)
-		if (is_array($lc)){
+		if (is_array($lc)) {
 			$l = array_shift($lc);
 			$flignes[$l] = $lc;
 		} else $flignes[$lc] = $loc;
 
 	$ancre = md5($texte);
-	foreach ($tableau as $ligne){
-		if (isset($flignes[$i])){
+	foreach ($tableau as $ligne) {
+		if (isset($flignes[$i])) {
 			$ligne = str_replace('&nbsp;', ' ', $ligne);
 			$indexmesg = $flignes[$i][1];
 			$err = textebrut($flignes[$i][2]);
@@ -442,7 +439,7 @@ 
 			$indexmesg = $ancre;
 			$err = $bg = '';
 		}
-		$res .= sprintf((($i%10) ? $format : $format10), $i, $bg, $indexmesg, $err, $i, $ligne);
+		$res .= sprintf((($i % 10) ? $format : $format10), $i, $bg, $indexmesg, $err, $i, $ligne);
 		$i++;
 	}
 
@@ -454,31 +451,31 @@ 
 		. '" style="cursor: pointer;">'
 		. ($nocpt ? '' : _T('info_numero_abbreviation'))
 		. "</div>
-	" . $res . "</div>\n";
+	" . $res."</div>\n";
 }
 
 // l'environnement graphique du debuggueur 
 
-function debusquer_squelette($fonc, $mode, $self){
+function debusquer_squelette($fonc, $mode, $self) {
 	global $debug_objets;
 
-	if ($mode!=='validation'){
-		if (isset($debug_objets['sourcefile']) and $debug_objets['sourcefile']){
+	if ($mode !== 'validation') {
+		if (isset($debug_objets['sourcefile']) and $debug_objets['sourcefile']) {
 			$res = "<div id='spip-boucles'>\n"
 				. debusquer_navigation_squelettes($self)
 				. "</div>";
 		}
 		else
 			$res = '';
-		if ($fonc){
+		if ($fonc) {
 			$id = " id='$fonc'";
-			if (!empty($GLOBALS['debug_objets'][$mode][$fonc])){
+			if (!empty($GLOBALS['debug_objets'][$mode][$fonc])) {
 				list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
 				$texte .= $res2;
 			}
-			elseif (!empty($debug_objets[$mode][$fonc . 'tout'])) {
-				$legend = _T('zbug_' . $mode);
-				$texte = $debug_objets[$mode][$fonc . 'tout'];
+			elseif (!empty($debug_objets[$mode][$fonc.'tout'])) {
+				$legend = _T('zbug_'.$mode);
+				$texte = $debug_objets[$mode][$fonc.'tout'];
 				$texte = ancre_texte($texte, array('', ''));
 			}
 		}
@@ -490,17 +487,17 @@ 
 	}
 	else {
 		$valider = charger_fonction('valider', 'xml');
-		$val = $valider($debug_objets['validation'][$fonc . 'tout']);
+		$val = $valider($debug_objets['validation'][$fonc.'tout']);
 		// Si erreur, signaler leur nombre dans le formulaire admin
 		$debug_objets['validation'] = $val->err ? count($val->err) : '';
 		list($texte, $err) = emboite_texte($val, $fonc, $self);
-		if ($err===false)
+		if ($err === false)
 			$err = _T('impossible');
-		elseif ($err===true)
+		elseif ($err === true)
 			$err = _T('correcte');
 		else
 			$err = ": $err";
-		$legend = _T('validation') . ' ' . $err;
+		$legend = _T('validation').' '.$err;
 		$res = $id = '';
 	}
 	return !trim($texte) ? '' : (
@@ -516,16 +513,16 @@ 
 
 
 // http://doc.spip.org/@emboite_texte
-function emboite_texte($res, $fonc = '', $self = ''){
+function emboite_texte($res, $fonc = '', $self = '') {
 	$errs = $res->err;
-	$texte = $res->entete . ($errs ? '' : $res->page);
+	$texte = $res->entete.($errs ? '' : $res->page);
 
 	if (!$texte and !$errs)
 		return array(ancre_texte('', array('', '')), false);
 	if (!$errs)
 		return array(ancre_texte($texte, array('', '')), true);
 
-	if (!isset($GLOBALS['debug_objets'])){
+	if (!isset($GLOBALS['debug_objets'])) {
 
 		$colors = array('#e0e0f0', '#f8f8ff');
 		$encore = count_occ($errs);
@@ -546,7 +543,7 @@ 
 
 		$i = 0;
 		$style = "style='text-align: right; padding-right: 5px'";
-		foreach ($errs as $r){
+		foreach ($errs as $r) {
 			$i++;
 			list($msg, $ligne, $col) = $r;
 			#spip_log("$r = list($msg, $ligne, $col");
@@ -556,7 +553,7 @@ 
 				$encore2[$msg] = $ref = 1;
 			}
 			$err .= "<tr  style='background-color: "
-				. $colors[$i%2]
+				. $colors[$i % 2]
 				. "'><td $style><a href='#debut_err'>"
 				. $i
 				. "</a></td><td $style>"
@@ -573,7 +570,7 @@ 
 		$err = "<h2 style='text-align: center'>"
 			. $i
 			. "<a href='#fin_err'>"
-			. " " . _T('erreur_texte')
+			. " "._T('erreur_texte')
 			. "</a></h2><table id='debut_err' style='width: 100%'>"
 			. $err
 			. " </table><a id='fin_err'></a>";
@@ -583,17 +580,17 @@ 
 		list($msg, $fermant, $ouvrant) = $errs[0];
 		$rf = reference_boucle_debug($fermant, $fonc, $self);
 		$ro = reference_boucle_debug($ouvrant, $fonc, $self);
-		$err = $msg .
-			"<a href='#L" . $fermant . "'>$fermant</a>$rf<br />" .
-			"<a href='#L" . $ouvrant . "'>$ouvrant</a>$ro";
+		$err = $msg.
+			"<a href='#L".$fermant."'>$fermant</a>$rf<br />".
+			"<a href='#L".$ouvrant."'>$ouvrant</a>$ro";
 		return array(ancre_texte($texte, array(array($ouvrant), array($fermant))), $err);
 	}
 }
 
 // http://doc.spip.org/@count_occ
-function count_occ($regs){
+function count_occ($regs) {
 	$encore = array();
-	foreach ($regs as $r){
+	foreach ($regs as $r) {
 		if (isset($encore[$r[0]]))
 			$encore[$r[0]]++;
 		else
@@ -602,14 +599,14 @@ 
 	return $encore;
 }
 
-function debusquer_navigation_squelettes($self){
+function debusquer_navigation_squelettes($self) {
 	global $debug_objets, $spip_lang_right;
 
 	$res = '';
 	$boucles = !empty($debug_objets['boucle']) ? $debug_objets['boucle'] : '';
 	$contexte = $debug_objets['contexte'];
 	$t_skel = _T('squelette');
-	foreach ($debug_objets['sourcefile'] as $nom => $sourcefile){
+	foreach ($debug_objets['sourcefile'] as $nom => $sourcefile) {
 		$self2 = parametre_url($self, 'var_mode_objet', $nom);
 		$nav = !$boucles ? '' : debusquer_navigation_boucles($boucles, $nom, $self, $sourcefile);
 		$temps = !isset($debug_objets['profile'][$sourcefile]) ? '' : _T('zbug_profile', array('time' => $debug_objets['profile'][$sourcefile]));
@@ -637,67 +634,67 @@ 
 	return $res;
 }
 
-function debusquer_navigation_boucles($boucles, $nom_skel, $self, $nom_source){
+function debusquer_navigation_boucles($boucles, $nom_skel, $self, $nom_source) {
 	$i = 0;
 	$res = '';
 	$var_mode_objet = _request('var_mode_objet');
 	$gram = preg_match('/[.](\w+)$/', $nom_source, $r) ? $r[1] : '';
 
-	foreach ($boucles as $objet => $boucle){
-		if (substr($objet, 0, strlen($nom_skel))==$nom_skel){
+	foreach ($boucles as $objet => $boucle) {
+		if (substr($objet, 0, strlen($nom_skel)) == $nom_skel) {
 			$i++;
 			$nom = $boucle->id_boucle;
 			$req = $boucle->type_requete;
 			$crit = public_decompiler($boucle, $gram, 0, 'criteres');
-			$self2 = $self . "&amp;var_mode_objet=" . $objet;
-
-			$res .= "\n<tr style='background-color: " .
-				($i%2 ? '#e0e0f0' : '#f8f8ff') .
-				"'><td  align='right'>$i</td><td>\n" .
-				"<a  class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=boucle#f_$nom_skel'>" .
-				_T('zbug_boucle') .
-				"</a></td><td>\n<a class='debug_link_boucle' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=resultat#f_$nom_skel'>" .
-				_T('zbug_resultat') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				$self2 .
-				"&amp;var_mode_affiche=code#f_$nom_skel'>" .
-				_T('zbug_code') .
-				"</a></td><td>\n<a class='debug_link_resultat' href='" .
-				str_replace('var_mode=', 'var_profile=', $self2) .
-				"'>" .
-				_T('zbug_calcul') .
-				"</a></td><td>\n" .
-				(($var_mode_objet==$objet) ? "<b>$nom</b>" : $nom) .
-				"</td><td>\n" .
-				$req .
-				"</td><td>\n" .
-				spip_htmlspecialchars($crit) .
+			$self2 = $self."&amp;var_mode_objet=".$objet;
+
+			$res .= "\n<tr style='background-color: ".
+				($i % 2 ? '#e0e0f0' : '#f8f8ff').
+				"'><td  align='right'>$i</td><td>\n".
+				"<a  class='debug_link_boucle' href='".
+				$self2.
+				"&amp;var_mode_affiche=boucle#f_$nom_skel'>".
+				_T('zbug_boucle').
+				"</a></td><td>\n<a class='debug_link_boucle' href='".
+				$self2.
+				"&amp;var_mode_affiche=resultat#f_$nom_skel'>".
+				_T('zbug_resultat').
+				"</a></td><td>\n<a class='debug_link_resultat' href='".
+				$self2.
+				"&amp;var_mode_affiche=code#f_$nom_skel'>".
+				_T('zbug_code').
+				"</a></td><td>\n<a class='debug_link_resultat' href='".
+				str_replace('var_mode=', 'var_profile=', $self2).
+				"'>".
+				_T('zbug_calcul').
+				"</a></td><td>\n".
+				(($var_mode_objet == $objet) ? "<b>$nom</b>" : $nom).
+				"</td><td>\n".
+				$req.
+				"</td><td>\n".
+				spip_htmlspecialchars($crit).
 				"</td></tr>";
 		}
 	}
 	return $res;
 }
 
-function debusquer_source($objet, $affiche){
+function debusquer_source($objet, $affiche) {
 	$quoi = $GLOBALS['debug_objets'][$affiche][$objet];
 	$nom = $GLOBALS['debug_objets']['boucle'][$objet]->id_boucle;
 	$res2 = "";
 
-	if ($affiche=='resultat'){
+	if ($affiche == 'resultat') {
 		$legend = $nom;
 		$req = $GLOBALS['debug_objets']['requete'][$objet];
-		if (function_exists('traite_query')){
+		if (function_exists('traite_query')) {
 			$c = strtolower(_request('connect'));
 			$c = $GLOBALS['connexions'][$c ? $c : 0]['prefixe'];
 			$req = traite_query($req, '', $c);
 		}
 		//  permettre le copier/coller facile
 		// $res = ancre_texte($req, array(), true);
-		$res = "<div id='T" . md5($req) . "'>\n<pre>\n" . $req . "</pre>\n</div>\n";
+		$res = "<div id='T".md5($req)."'>\n<pre>\n".$req."</pre>\n</div>\n";
 		//  formatage et affichage des resultats bruts de la requete
 		$ress_req = spip_query($req);
 		$brut_sql = '';
@@ -705,38 +702,38 @@ 
 		//  eviter l'affichage de milliers de lignes
 		//  personnalisation possible dans mes_options
 		$max_aff = defined('_MAX_DEBUG_AFF') ? _MAX_DEBUG_AFF : 50;
-		while ($retours_sql = sql_fetch($ress_req)){
-			if ($num<=$max_aff){
-				$brut_sql .= "<h3>" . ($num==1 ? $num . " sur " . sql_count($ress_req) : $num) . "</h3>";
+		while ($retours_sql = sql_fetch($ress_req)) {
+			if ($num <= $max_aff) {
+				$brut_sql .= "<h3>".($num == 1 ? $num." sur ".sql_count($ress_req) : $num)."</h3>";
 				$brut_sql .= "<p>";
-				foreach ($retours_sql as $key => $val){
-					$brut_sql .= "<strong>" . $key . "</strong> => " . spip_htmlspecialchars(couper($val, 150)) . "<br />\n";
+				foreach ($retours_sql as $key => $val) {
+					$brut_sql .= "<strong>".$key."</strong> => ".spip_htmlspecialchars(couper($val, 150))."<br />\n";
 				}
 				$brut_sql .= "</p>";
 			}
 			$num++;
 		}
 		$res2 = interdire_scripts($brut_sql);
-		foreach ($quoi as $view){
+		foreach ($quoi as $view) {
 			//  ne pas afficher les $contexte_inclus
 			$view = preg_replace(",<\?php.+\?[>],Uims", "", $view);
-			if ($view){
-				$res2 .= "\n<br /><fieldset>" . interdire_scripts($view) . "</fieldset>";
+			if ($view) {
+				$res2 .= "\n<br /><fieldset>".interdire_scripts($view)."</fieldset>";
 			}
 		}
 
 	}
-	elseif ($affiche=='code'){
+	elseif ($affiche == 'code') {
 		$legend = $nom;
-		$res = ancre_texte("<" . "?php\n" . $quoi . "\n?" . ">");
+		$res = ancre_texte("<"."?php\n".$quoi."\n?".">");
 	}
-	elseif ($affiche=='boucle'){
-		$legend = _T('zbug_boucle') . ' ' . $nom;
+	elseif ($affiche == 'boucle') {
+		$legend = _T('zbug_boucle').' '.$nom;
 		// Le compilateur prefixe le nom des boucles par l'extension du fichier source.
 		$gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
 		$res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
 	}
-	elseif ($affiche=='squelette'){
+	elseif ($affiche == 'squelette') {
 		$legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
 		$res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
 	}
@@ -745,30 +742,30 @@ 
 }
 
 // http://doc.spip.org/@debusquer_entete
-function debusquer_entete($titre, $corps){
+function debusquer_entete($titre, $corps) {
 	global $debug_objets;
 	include_spip('balise/formulaire_admin');
 	include_spip('public/assembler'); // pour inclure_balise_dynamique
 	include_spip('inc/texte'); // pour corriger_typo
 
-	return _DOCTYPE_ECRIRE .
-		html_lang_attributes() .
-		"<head>\n<title>" .
-		('SPIP ' . $GLOBALS['spip_version_affichee'] . ' ' .
-			_T('admin_debug') . ' ' . $titre . ' (' .
-			supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))) .
-		")</title>\n" .
-		"<meta http-equiv='Content-Type' content='text/html" .
-		(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '') .
-		"' />\n" .
+	return _DOCTYPE_ECRIRE.
+		html_lang_attributes().
+		"<head>\n<title>".
+		('SPIP '.$GLOBALS['spip_version_affichee'].' '.
+			_T('admin_debug').' '.$titre.' ('.
+			supprimer_tags(corriger_typo($GLOBALS['meta']['nom_site']))).
+		")</title>\n".
+		"<meta http-equiv='Content-Type' content='text/html".
+		(($c = $GLOBALS['meta']['charset']) ? "; charset=$c" : '').
+		"' />\n".
 		http_script('', 'jquery.js')
-		. "<link rel='stylesheet' href='" . url_absolue(find_in_path('spip_admin.css'))
-		. "' type='text/css' />" .
-		"</head>\n" .
-		"<body style='margin:0 10px;'>\n" .
-		"<div id='spip-debug-header'>" .
-		$corps .
-		inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $debug_objets), false) .
+		. "<link rel='stylesheet' href='".url_absolue(find_in_path('spip_admin.css'))
+		. "' type='text/css' />".
+		"</head>\n".
+		"<body style='margin:0 10px;'>\n".
+		"<div id='spip-debug-header'>".
+		$corps.
+		inclure_balise_dynamique(balise_FORMULAIRE_ADMIN_dyn('spip-admin-float', $debug_objets), false).
 		'</div></body></html>';
 }
 

Braces +108 added lines, -82 removed lines

@@ -10,7 +10,9 @@ 
  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
 \***************************************************************************/
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 include_spip('public/decompiler');
 include_spip('inc/filtres_mini');
@@ -86,17 +88,23 @@ 
 		set_request('var_mode', 'debug');
 		$GLOBALS['bouton_admin_debug'] = true;
 		// Permettre a la compil de continuer
-		if (is_object($lieu) AND (!isset($lieu->code) OR !$lieu->code))
-			$lieu->code = "''";
+		if (is_object($lieu) AND (!isset($lieu->code) OR !$lieu->code)) {
+					$lieu->code = "''";
+		}
 		// forcer l'appel au debusqueur en cas de boucles infernales
 		$urgence = (_DEBUG_MAX_SQUELETTE_ERREURS AND count($tableau_des_erreurs)>_DEBUG_MAX_SQUELETTE_ERREURS);
-		if (!$urgence) return;
+		if (!$urgence) {
+		    return;
+		}
+	}
+	if (empty($debug_objets['principal'])) {
+			$debug_objets['principal'] = $GLOBALS['fond'];
 	}
-	if (empty($debug_objets['principal']))
-		$debug_objets['principal'] = $GLOBALS['fond'];
 
 	include_spip('inc/autoriser');
-	if (!autoriser('debug')) return;
+	if (!autoriser('debug')) {
+	    return;
+	}
 	include_spip('inc/headers');
 	include_spip('inc/filtres');
 
@@ -122,24 +130,29 @@ 
 		. '<br />'
 		. debusquer_squelette($fonc, $mode, $self);
 
-	if (!_DIR_RESTREINT OR headers_sent()) return $res;
-	if ($tableau_des_erreurs) http_status(503);
+	if (!_DIR_RESTREINT OR headers_sent()) {
+	    return $res;
+	}
+	if ($tableau_des_erreurs) {
+	    http_status(503);
+	}
 
 	http_no_cache();
 	if (isset($_GET['var_profile'])){
 		$titre = parametre_url($GLOBALS['REQUEST_URI'], 'var_profile', '');
 		$titre = parametre_url($titre, 'var_mode', '');
-	}
-	else {
-		if (!$fonc) $fonc = $debug_objets['principal'];
+	} else {
+		if (!$fonc) {
+		    $fonc = $debug_objets['principal'];
+		}
 		$titre = !$mode ? $fonc : ($mode . ' ' . $debug_objets['sourcefile'][$fonc]);
 	}
 	if ($message===false){
 		lang_select();
 		return debusquer_entete($titre, $res);
+	} else {
+			echo debusquer_entete($titre, $res);
 	}
-	else
-		echo debusquer_entete($titre, $res);
 	exit;
 }
 
@@ -169,25 +182,29 @@ 
 	if (!empty($erreurs)){
 		$n = array(count($erreurs) . ' ' . _T('zbug_erreur_squelette'));
 		return debusquer_navigation($erreurs, $n);
-	}
-	elseif (!empty($GLOBALS['tableau_des_temps'])) {
+	} elseif (!empty($GLOBALS['tableau_des_temps'])) {
 		include_spip('public/tracer');
 		list($temps, $nav) = chrono_requete($GLOBALS['tableau_des_temps']);
 		return debusquer_navigation($temps, $nav, 'debug-profile');
+	} else {
+			return '';
+	}
 	}
-	else
-		return '';
-}
 
 function debusquer_contexte($env){
 
-	if (is_array($env_tab = @unserialize($env))) $env = $env_tab;
+	if (is_array($env_tab = @unserialize($env))) {
+	    $env = $env_tab;
+	}
 
-	if (!$env) return '';
+	if (!$env) {
+	    return '';
+	}
 	$res = "";
 	foreach ($env as $nom => $valeur){
-		if (is_array($valeur))
-			$valeur = '(' . count($valeur) . ' items) [' . join(',', $valeur) . ']';
+		if (is_array($valeur)) {
+					$valeur = '(' . count($valeur) . ' items) [' . join(',', $valeur) . ']';
+		}
 		$res .= "\n<tr><td><strong>" . nl2br(entites_html($nom))
 			. "</strong></td><td>:&nbsp;" . nl2br(entites_html($valeur))
 			. "</td></tr>\n";
@@ -201,7 +218,9 @@ 
 
 function debusquer_navigation($tableau, $caption = array(), $id = 'debug-nav'){
 
-	if (_request('exec')=='valider_xml') return '';
+	if (_request('exec')=='valider_xml') {
+	    return '';
+	}
 	$GLOBALS['bouton_admin_debug'] = true;
 	$res = '';
 	$href = quote_amp(parametre_url($GLOBALS['REQUEST_URI'], 'var_mode', 'debug'));
@@ -285,8 +304,7 @@ 
 	// il serait plus prudent certainement d'avoir une fonction d'analyse par moteur
 	if (preg_match(',err(no|code):?[[:space:]]*([0-9]+),i', $msg, $regs)){
 		$errno = $regs[2];
-	}
-	elseif (is_numeric($errno) and ($errno==1030 OR $errno<=1026)
+	} elseif (is_numeric($errno) and ($errno==1030 OR $errno<=1026)
 		AND preg_match(',[^[:alnum:]]([0-9]+)[^[:alnum:]],', $msg, $regs)
 	) {
 		$errno = $regs[1];
@@ -325,25 +343,27 @@ 
 	if (is_array($debug_objets['sequence'][$id])){
 		foreach ($debug_objets['sequence'][$id] as $v){
 
-			if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r))
-				$y = substr_count($v[0], "\n");
-			else {
-				if ($v[1][0]=='#')
-					// balise dynamique
+			if (!preg_match('/^(.*)(<\?.*\?>)(.*)$/s', $v[0], $r)) {
+							$y = substr_count($v[0], "\n");
+			} else {
+				if ($v[1][0]=='#') {
+									// balise dynamique
 					$incl = $debug_objets['resultat'][$v[2]];
-				else
-					// inclusion
+				} else {
+									// inclusion
 					$incl = $debug_objets['squelette'][trouve_squelette_inclus($v[0])];
+				}
 				$y = substr_count($incl, "\n")
 					+substr_count($r[1], "\n")
 					+substr_count($r[3], "\n");
 			}
 			if ($n<=($y+$debut)){
-				if ($v[1][0]=='?')
-					return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
-				elseif ($v[1][0]=='!') {
-					if ($incl = trouve_squelette_inclus($v[1]))
-						return trouve_boucle_debug($n, $incl, $debut);
+				if ($v[1][0]=='?') {
+									return trouve_boucle_debug($n, $nom, $debut, substr($v[1], 1));
+				} elseif ($v[1][0]=='!') {
+					if ($incl = trouve_squelette_inclus($v[1])) {
+											return trouve_boucle_debug($n, $incl, $debut);
+					}
 				}
 				return array($nom, $boucle, $v[2]-1+$n-$debut);
 			}
@@ -359,16 +379,19 @@ 
 	preg_match('/include\(.(.*).php3?.\);/', $script, $reg);
 	// si le script X.php n'est pas ecrire/public.php
 	// on suppose qu'il prend le squelette X.html (pas sur, mais y a pas mieux)
-	if ($reg[1]=='ecrire/public')
-		// si c'est bien ecrire/public on cherche le param 'fond'
+	if ($reg[1]=='ecrire/public') {
+			// si c'est bien ecrire/public on cherche le param 'fond'
 		if (!preg_match("/'fond' => '([^']*)'/", $script, $reg))
 			// a defaut on cherche le param 'page'
 			if (!preg_match("/'param' => '([^']*)'/", $script, $reg))
 				$reg[1] = "inconnu";
+	}
 	$incl = ',' . $reg[1] . '[.]\w$,';
 
 	foreach ($debug_objets['sourcefile'] as $k => $v){
-		if (preg_match($incl, $v)) return $k;
+		if (preg_match($incl, $v)) {
+		    return $k;
+		}
 	}
 	return "";
 }
@@ -377,13 +400,13 @@ 
 function reference_boucle_debug($n, $nom, $self){
 	list($skel, $boucle, $ligne) = trouve_boucle_debug($n, $nom);
 
-	if (!$boucle)
-		return !$ligne ? "" :
+	if (!$boucle) {
+			return !$ligne ? "" :
 			(" (" .
 				(($nom!=$skel) ? _T('squelette_inclus_ligne') :
 					_T('squelette_ligne')) .
 				" <a href='$self&amp;var_mode_objet=$skel&amp;var_mode_affiche=squelette&amp;var_mode_ligne=$ligne#L$ligne'>$ligne</a>)");
-	else {
+	} else {
 		$self .= "&amp;var_mode_objet=$skel$boucle&amp;var_mode_affiche=boucle";
 
 		return !$ligne ? " (boucle\n<a href='$self#$skel$boucle'>$boucle</a>)" :
@@ -397,7 +420,9 @@ 
 function ancre_texte($texte, $fautifs = array(), $nocpt = false){
 
 	$var_mode_ligne = _request('var_mode_ligne');
-	if ($var_mode_ligne) $fautifs[] = array($var_mode_ligne);
+	if ($var_mode_ligne) {
+	    $fautifs[] = array($var_mode_ligne);
+	}
 	$res = '';
 
 	$s = highlight_string($texte, true);
@@ -420,11 +445,14 @@ 
 	$i = 1;
 	$flignes = array();
 	$loc = array(0, 0);
-	foreach ($fautifs as $lc)
-		if (is_array($lc)){
+	foreach ($fautifs as $lc) {
+			if (is_array($lc)){
 			$l = array_shift($lc);
+	}
 			$flignes[$l] = $lc;
-		} else $flignes[$lc] = $loc;
+		} else {
+		    $flignes[$lc] = $loc;
+		}
 
 	$ancre = md5($texte);
 	foreach ($tableau as $ligne){
@@ -467,39 +495,38 @@ 
 			$res = "<div id='spip-boucles'>\n"
 				. debusquer_navigation_squelettes($self)
 				. "</div>";
+		} else {
+					$res = '';
 		}
-		else
-			$res = '';
 		if ($fonc){
 			$id = " id='$fonc'";
 			if (!empty($GLOBALS['debug_objets'][$mode][$fonc])){
 				list($legend, $texte, $res2) = debusquer_source($fonc, $mode);
 				$texte .= $res2;
-			}
-			elseif (!empty($debug_objets[$mode][$fonc . 'tout'])) {
+			} elseif (!empty($debug_objets[$mode][$fonc . 'tout'])) {
 				$legend = _T('zbug_' . $mode);
 				$texte = $debug_objets[$mode][$fonc . 'tout'];
 				$texte = ancre_texte($texte, array('', ''));
 			}
-		}
-		else
-			return strlen(trim($res))
+		} else {
+					return strlen(trim($res))
 			? "<img src='".chemin_image('compat-16.png')."' alt='afficher-masquer le debug' id='spip-debug-toggle' onclick=\"var x = document.getElementById('spip-debug'); (x.style.display == '' ? x.style.display = 'none' : x.style.display = '');\" /><div id='spip-debug'>$res</div>"
 			// cas de l'appel sur erreur: montre la page
 			: $GLOBALS['debug_objets']['resultat']['tout'];
-	}
-	else {
+		}
+	} else {
 		$valider = charger_fonction('valider', 'xml');
 		$val = $valider($debug_objets['validation'][$fonc . 'tout']);
 		// Si erreur, signaler leur nombre dans le formulaire admin
 		$debug_objets['validation'] = $val->err ? count($val->err) : '';
 		list($texte, $err) = emboite_texte($val, $fonc, $self);
-		if ($err===false)
-			$err = _T('impossible');
-		elseif ($err===true)
-			$err = _T('correcte');
-		else
-			$err = ": $err";
+		if ($err===false) {
+					$err = _T('impossible');
+		} elseif ($err===true) {
+					$err = _T('correcte');
+		} else {
+					$err = ": $err";
+		}
 		$legend = _T('validation') . ' ' . $err;
 		$res = $id = '';
 	}
@@ -520,10 +547,12 @@ 
 	$errs = $res->err;
 	$texte = $res->entete . ($errs ? '' : $res->page);
 
-	if (!$texte and !$errs)
-		return array(ancre_texte('', array('', '')), false);
-	if (!$errs)
-		return array(ancre_texte($texte, array('', '')), true);
+	if (!$texte and !$errs) {
+			return array(ancre_texte('', array('', '')), false);
+	}
+	if (!$errs) {
+			return array(ancre_texte($texte, array('', '')), true);
+	}
 
 	if (!isset($GLOBALS['debug_objets'])){
 
@@ -550,9 +579,9 @@ 
 			$i++;
 			list($msg, $ligne, $col) = $r;
 			#spip_log("$r = list($msg, $ligne, $col");
-			if (isset($encore2[$msg]))
-				$ref = ++$encore2[$msg];
-			else {
+			if (isset($encore2[$msg])) {
+							$ref = ++$encore2[$msg];
+			} else {
 				$encore2[$msg] = $ref = 1;
 			}
 			$err .= "<tr  style='background-color: "
@@ -578,8 +607,7 @@ 
 			. $err
 			. " </table><a id='fin_err'></a>";
 		return array(ancre_texte($texte, $fautifs), $err);
-	}
-	else {
+	} else {
 		list($msg, $fermant, $ouvrant) = $errs[0];
 		$rf = reference_boucle_debug($fermant, $fonc, $self);
 		$ro = reference_boucle_debug($ouvrant, $fonc, $self);
@@ -594,10 +622,11 @@ 
 function count_occ($regs){
 	$encore = array();
 	foreach ($regs as $r){
-		if (isset($encore[$r[0]]))
-			$encore[$r[0]]++;
-		else
-			$encore[$r[0]] = 1;
+		if (isset($encore[$r[0]])) {
+					$encore[$r[0]]++;
+		} else {
+					$encore[$r[0]] = 1;
+		}
 	}
 	return $encore;
 }
@@ -725,18 +754,15 @@ 
 			}
 		}
 
-	}
-	elseif ($affiche=='code'){
+	} elseif ($affiche=='code'){
 		$legend = $nom;
 		$res = ancre_texte("<" . "?php\n" . $quoi . "\n?" . ">");
-	}
-	elseif ($affiche=='boucle'){
+	} elseif ($affiche=='boucle'){
 		$legend = _T('zbug_boucle') . ' ' . $nom;
 		// Le compilateur prefixe le nom des boucles par l'extension du fichier source.
 		$gram = preg_match('/^([^_]+)_/', $objet, $r) ? $r[1] : '';
 		$res = ancre_texte(public_decompiler($quoi, $gram, 0, 'boucle'));
-	}
-	elseif ($affiche=='squelette'){
+	} elseif ($affiche=='squelette'){
 		$legend = $GLOBALS['debug_objets']['sourcefile'][$objet];
 		$res = ancre_texte($GLOBALS['debug_objets']['squelette'][$objet]);
 	}

ecrire/public/references.php

Doc Comments +17 added lines

@@ -130,6 +130,10 @@ 
 }
 
 // http://doc.spip.org/@index_tables_en_pile
+/**
+ * @param string $nom_champ
+ * @param boolean $joker
+ */
 function index_tables_en_pile($idb, $nom_champ, &$boucles, &$joker) {
 	global $exceptions_des_tables;
 
@@ -568,6 +572,9 @@ 
 
 // Filtres et,ou,oui,non,sinon,xou,xor,and,or,not,yes
 // et comparateurs
+/**
+ * @param string $arg
+ */
 function filtre_logique($fonc, $code, $arg)
 {
 	global $table_criteres_infixes;
@@ -591,6 +598,9 @@ 
 }
 
 // http://doc.spip.org/@compose_filtres_args
+/**
+ * @param string $sep
+ */
 function compose_filtres_args($p, $args, $sep)
 {
 	$arglist = "";
@@ -607,6 +617,9 @@ 
 // ET chez sa maman
 // 
 // http://doc.spip.org/@calculer_argument_precedent
+/**
+ * @param string $defaut
+ */
 function calculer_argument_precedent($idb, $nom_champ, &$boucles, $defaut=null) {
 
 	// si recursif, forcer l'extraction du champ SQL mais ignorer le code
@@ -631,6 +644,10 @@ 
 //
 
 // http://doc.spip.org/@rindex_pile
+/**
+ * @param string $champ
+ * @param string $motif
+ */
 function rindex_pile($p, $champ, $motif) 
 {
 	$n = 0;

Indentation +397 added lines, -397 removed lines

@@ -29,17 +29,17 @@ 
  */
 function index_boucle($p){
 
-	$idb = $p->id_boucle;
-	$explicite = $p->nom_boucle;
+    $idb = $p->id_boucle;
+    $explicite = $p->nom_boucle;
 
-	if (strlen($explicite)) {
-		// Recherche d'un champ dans un etage superieur
-	  while (($idb !== $explicite) && ($idb !=='')) {
-			$idb = $p->boucles[$idb]->id_parent;
-		}
-	}
+    if (strlen($explicite)) {
+        // Recherche d'un champ dans un etage superieur
+        while (($idb !== $explicite) && ($idb !=='')) {
+            $idb = $p->boucles[$idb]->id_parent;
+        }
+    }
 
-	return $idb;
+    return $idb;
 }
 
 /**
@@ -65,52 +65,52 @@ 
  * @return string
  */
 function index_pile($idb, $nom_champ, &$boucles, $explicite='', $defaut=null, $remonte_pile=true) {
-	if (!is_string($defaut))
-		$defaut = '@$Pile[0][\''. strtolower($nom_champ) . '\']';
-
-	$i = 0;
-	if (strlen($explicite)) {
-		// Recherche d'un champ dans un etage superieur
-	  while (($idb !== $explicite) && ($idb !=='')) {
-			#	spip_log("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
-			$i++;
-			$idb = $boucles[$idb]->id_parent;
-		}
-	}
-
-	#	spip_log("Cherche: $nom_champ a partir de '$idb'");
-	$nom_champ = strtolower($nom_champ);
-	$conditionnel = array();
-	// attention: entre la boucle nommee 0, "" et le tableau vide,
-	// il y a incoherences qu'il vaut mieux eviter
-	while (isset($boucles[$idb])) {
-		$joker = true;
-		list ($t, $c) = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
-		if ($t) {
-			if (!in_array($t, $boucles[$idb]->select)) {
-				$boucles[$idb]->select[] = $t;
-			}
-			$champ = '$Pile[$SP' . ($i ? "-$i" : "") . '][\'' . $c . '\']';
-			if (!$joker)
-				return index_compose($conditionnel,$champ);
-
-			$conditionnel[] = "isset($champ)?$champ";
-		}
-
-		if ($remonte_pile){
-			#	spip_log("On remonte vers $i");
-			// Sinon on remonte d'un cran
-			$idb = $boucles[$idb]->id_parent;
-			$i++;
-		}
-		else
-			$idb = null;
-	}
-
-	#	spip_log("Pas vu $nom_champ");
-	// esperons qu'il y sera
-	// on qu'on a fourni une valeur par "defaut" plus pertinent
-	return index_compose($conditionnel,$defaut);
+    if (!is_string($defaut))
+        $defaut = '@$Pile[0][\''. strtolower($nom_champ) . '\']';
+
+    $i = 0;
+    if (strlen($explicite)) {
+        // Recherche d'un champ dans un etage superieur
+        while (($idb !== $explicite) && ($idb !=='')) {
+            #	spip_log("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
+            $i++;
+            $idb = $boucles[$idb]->id_parent;
+        }
+    }
+
+    #	spip_log("Cherche: $nom_champ a partir de '$idb'");
+    $nom_champ = strtolower($nom_champ);
+    $conditionnel = array();
+    // attention: entre la boucle nommee 0, "" et le tableau vide,
+    // il y a incoherences qu'il vaut mieux eviter
+    while (isset($boucles[$idb])) {
+        $joker = true;
+        list ($t, $c) = index_tables_en_pile($idb, $nom_champ, $boucles, $joker);
+        if ($t) {
+            if (!in_array($t, $boucles[$idb]->select)) {
+                $boucles[$idb]->select[] = $t;
+            }
+            $champ = '$Pile[$SP' . ($i ? "-$i" : "") . '][\'' . $c . '\']';
+            if (!$joker)
+                return index_compose($conditionnel,$champ);
+
+            $conditionnel[] = "isset($champ)?$champ";
+        }
+
+        if ($remonte_pile){
+            #	spip_log("On remonte vers $i");
+            // Sinon on remonte d'un cran
+            $idb = $boucles[$idb]->id_parent;
+            $i++;
+        }
+        else
+            $idb = null;
+    }
+
+    #	spip_log("Pas vu $nom_champ");
+    // esperons qu'il y sera
+    // on qu'on a fourni une valeur par "defaut" plus pertinent
+    return index_compose($conditionnel,$defaut);
 }
 
 /**
@@ -123,59 +123,59 @@ 
  * @return string
  */
 function index_compose($conditionnel,$defaut){
-	while ($c = array_pop($conditionnel))
-		// si on passe defaut = '', ne pas générer d'erreur de compilation.
-		$defaut = "($c:(".($defaut?$defaut:"''")."))";
-	return $defaut;
+    while ($c = array_pop($conditionnel))
+        // si on passe defaut = '', ne pas générer d'erreur de compilation.
+        $defaut = "($c:(".($defaut?$defaut:"''")."))";
+    return $defaut;
 }
 
 // http://doc.spip.org/@index_tables_en_pile
 function index_tables_en_pile($idb, $nom_champ, &$boucles, &$joker) {
-	global $exceptions_des_tables;
-
-	$r = $boucles[$idb]->type_requete;
-
-	if ($r == 'boucle') return array();
-	if (!$r) {
-		$joker = false; // indiquer a l'appelant
-		# continuer pour chercher l'erreur suivante
-		return  array("'#" . $r . ':' . $nom_champ . "'",'');
-	}
-
-	$desc = $boucles[$idb]->show;
-	$excep = isset($exceptions_des_tables[$r]) ? $exceptions_des_tables[$r] : '';
-	if ($excep)
-		$excep = isset($excep[$nom_champ]) ? $excep[$nom_champ] : '';
-	if ($excep) {
-		$joker = false; // indiquer a l'appelant
-	  return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
-	}
-	else {
-		if (isset($desc['field'][$nom_champ])) {
-			$t = $boucles[$idb]->id_table;
-			$joker = false; // indiquer a l'appelant
-			return array("$t.$nom_champ", $nom_champ);
-		}
-		// Champ joker * des iterateurs DATA qui accepte tout
-		elseif (/*$joker AND */isset($desc['field']['*'])) {
-			$joker = true; // indiquer a l'appelant
-			return array($nom_champ, $nom_champ);
-		}
-		else {
-			$joker = false; // indiquer a l'appelant
-		  if ($boucles[$idb]->jointures_explicites) {
-		    $t = trouver_champ_exterieur($nom_champ, 
-						 $boucles[$idb]->jointures,
-						 $boucles[$idb]);
-		    if ($t) 
-					return index_exception($boucles[$idb],
-					       $desc,
-					       $nom_champ,
-					       array($t[1]['id_table'], $nom_champ));
-		  }
-			return array('','');
-		}
-	}
+    global $exceptions_des_tables;
+
+    $r = $boucles[$idb]->type_requete;
+
+    if ($r == 'boucle') return array();
+    if (!$r) {
+        $joker = false; // indiquer a l'appelant
+        # continuer pour chercher l'erreur suivante
+        return  array("'#" . $r . ':' . $nom_champ . "'",'');
+    }
+
+    $desc = $boucles[$idb]->show;
+    $excep = isset($exceptions_des_tables[$r]) ? $exceptions_des_tables[$r] : '';
+    if ($excep)
+        $excep = isset($excep[$nom_champ]) ? $excep[$nom_champ] : '';
+    if ($excep) {
+        $joker = false; // indiquer a l'appelant
+        return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
+    }
+    else {
+        if (isset($desc['field'][$nom_champ])) {
+            $t = $boucles[$idb]->id_table;
+            $joker = false; // indiquer a l'appelant
+            return array("$t.$nom_champ", $nom_champ);
+        }
+        // Champ joker * des iterateurs DATA qui accepte tout
+        elseif (/*$joker AND */isset($desc['field']['*'])) {
+            $joker = true; // indiquer a l'appelant
+            return array($nom_champ, $nom_champ);
+        }
+        else {
+            $joker = false; // indiquer a l'appelant
+            if ($boucles[$idb]->jointures_explicites) {
+            $t = trouver_champ_exterieur($nom_champ, 
+                            $boucles[$idb]->jointures,
+                            $boucles[$idb]);
+            if ($t) 
+                    return index_exception($boucles[$idb],
+                            $desc,
+                            $nom_champ,
+                            array($t[1]['id_table'], $nom_champ));
+            }
+            return array('','');
+        }
+    }
 }
 
 // Reference a une entite SPIP alias d'un champ SQL
@@ -185,44 +185,44 @@ 
 // http://doc.spip.org/@index_exception
 function index_exception(&$boucle, $desc, $nom_champ, $excep)
 {
-	static $trouver_table;
-	if (!$trouver_table)
-		$trouver_table = charger_fonction('trouver_table', 'base');
-
-	if (is_array($excep)) {
-		// permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
-		$t = NULL;
-		if (count($excep)==3){
-			$index_exception_derogatoire = array_pop($excep);
-			$t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
-		}
-		if ($t == NULL) {
-			list($e, $x) = $excep;	#PHP4 affecte de gauche a droite
-			$excep = $x;		#PHP5 de droite a gauche !
-			$j = $trouver_table($e, $boucle->sql_serveur);
-			if (!$j) return array('','');
-			$e = $j['table'];
-			if (!$t = array_search($e, $boucle->from)) {
-				$k = $j['key']['PRIMARY KEY'];
-				if (strpos($k,',')) {
-					$l = (preg_split('/\s*,\s*/', $k));
-					$k = $desc['key']['PRIMARY KEY'];
-					if (!in_array($k, $l)) {
-						spip_log("jointure impossible $e " . join(',', $l));
-						return array('','');
-					}
-				}
-				$k = array($boucle->id_table, array($e), $k);
-				fabrique_jointures($boucle, array($k));
-				$t = array_search($e, $boucle->from);
-			}
-		}
-	}
-	else $t = $boucle->id_table;
-	// demander a SQL de gerer le synonyme
-	// ca permet que excep soit dynamique (Cedric, 2/3/06)
-	if ($excep != $nom_champ) $excep .= ' AS '. $nom_champ;
-	return array("$t.$excep", $nom_champ);
+    static $trouver_table;
+    if (!$trouver_table)
+        $trouver_table = charger_fonction('trouver_table', 'base');
+
+    if (is_array($excep)) {
+        // permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
+        $t = NULL;
+        if (count($excep)==3){
+            $index_exception_derogatoire = array_pop($excep);
+            $t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
+        }
+        if ($t == NULL) {
+            list($e, $x) = $excep;	#PHP4 affecte de gauche a droite
+            $excep = $x;		#PHP5 de droite a gauche !
+            $j = $trouver_table($e, $boucle->sql_serveur);
+            if (!$j) return array('','');
+            $e = $j['table'];
+            if (!$t = array_search($e, $boucle->from)) {
+                $k = $j['key']['PRIMARY KEY'];
+                if (strpos($k,',')) {
+                    $l = (preg_split('/\s*,\s*/', $k));
+                    $k = $desc['key']['PRIMARY KEY'];
+                    if (!in_array($k, $l)) {
+                        spip_log("jointure impossible $e " . join(',', $l));
+                        return array('','');
+                    }
+                }
+                $k = array($boucle->id_table, array($e), $k);
+                fabrique_jointures($boucle, array($k));
+                $t = array_search($e, $boucle->from);
+            }
+        }
+    }
+    else $t = $boucle->id_table;
+    // demander a SQL de gerer le synonyme
+    // ca permet que excep soit dynamique (Cedric, 2/3/06)
+    if ($excep != $nom_champ) $excep .= ' AS '. $nom_champ;
+    return array("$t.$excep", $nom_champ);
 }
 
 /**
@@ -241,15 +241,15 @@ 
  * @return string
  */
 function champ_sql($champ, $p, $defaut = null, $remonte_pile = true) {
-	return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle, $defaut, $remonte_pile);
+    return index_pile($p->id_boucle, $champ, $p->boucles, $p->nom_boucle, $defaut, $remonte_pile);
 }
 
 // cette fonction sert d'API pour demander une balise Spip avec filtres
 
 // http://doc.spip.org/@calculer_champ
 function calculer_champ($p) {
-	$p = calculer_balise($p->nom_champ, $p);
-	return applique_filtres($p);
+    $p = calculer_balise($p->nom_champ, $p);
+    return applique_filtres($p);
 }
 
 // Cette fonction sert d'API pour demander une balise SPIP sans filtres.
@@ -264,57 +264,57 @@ 
 // http://doc.spip.org/@calculer_balise
 function calculer_balise($nom, $p) {
 
-	// S'agit-t-il d'une balise_XXXX[_dist]() ?
-	if ($f = charger_fonction($nom, 'balise', true)) {
-		$p->balise_calculee = true;
-		$res = $f($p);
-		if ($res !== NULL)
-			return $res;
-	}
-
-	// Certaines des balises comportant un _ sont generiques
-	if ($f = strpos($nom, '_')
-	AND $f = charger_fonction(substr($nom,0,$f+1), 'balise', true)) {
-		$res = $f($p);
-		if ($res !== NULL)
-			return $res;
-	}
-
-	$f = charger_fonction('DEFAUT', 'calculer_balise');
-
-	return $f($nom, $p);
+    // S'agit-t-il d'une balise_XXXX[_dist]() ?
+    if ($f = charger_fonction($nom, 'balise', true)) {
+        $p->balise_calculee = true;
+        $res = $f($p);
+        if ($res !== NULL)
+            return $res;
+    }
+
+    // Certaines des balises comportant un _ sont generiques
+    if ($f = strpos($nom, '_')
+    AND $f = charger_fonction(substr($nom,0,$f+1), 'balise', true)) {
+        $res = $f($p);
+        if ($res !== NULL)
+            return $res;
+    }
+
+    $f = charger_fonction('DEFAUT', 'calculer_balise');
+
+    return $f($nom, $p);
 }
 
 function calculer_balise_DEFAUT_dist($nom, $p) {
 
-	// ca pourrait etre un champ SQL homonyme,
-	$p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);
-
-	// compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
-	// il faut recracher {...} quand ce n'est finalement pas des args
-	if ($p->fonctions AND (!$p->fonctions[0][0]) AND $p->fonctions[0][1]) {
-		$code = addslashes($p->fonctions[0][1]);
-		$p->code .= " . '$code'";
-	}
-
-	// ne pas passer le filtre securite sur les id_xxx
-	if (strpos($nom, 'ID_') === 0)
-		$p->interdire_scripts = false;
-
-	// Compatibilite ascendante avec les couleurs html (#FEFEFE) :
-	// SI le champ SQL n'est pas trouve
-	// ET si la balise a une forme de couleur
-	// ET s'il n'y a ni filtre ni etoile
-	// ALORS retourner la couleur.
-	// Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]
-	if (preg_match("/^[A-F]{1,6}$/i", $nom)
-	AND !$p->etoile
-	AND !$p->fonctions) {
-		$p->code = "'#$nom'";
-		$p->interdire_scripts = false;
-	}
-
-	return $p;
+    // ca pourrait etre un champ SQL homonyme,
+    $p->code = index_pile($p->id_boucle, $nom, $p->boucles, $p->nom_boucle);
+
+    // compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
+    // il faut recracher {...} quand ce n'est finalement pas des args
+    if ($p->fonctions AND (!$p->fonctions[0][0]) AND $p->fonctions[0][1]) {
+        $code = addslashes($p->fonctions[0][1]);
+        $p->code .= " . '$code'";
+    }
+
+    // ne pas passer le filtre securite sur les id_xxx
+    if (strpos($nom, 'ID_') === 0)
+        $p->interdire_scripts = false;
+
+    // Compatibilite ascendante avec les couleurs html (#FEFEFE) :
+    // SI le champ SQL n'est pas trouve
+    // ET si la balise a une forme de couleur
+    // ET s'il n'y a ni filtre ni etoile
+    // ALORS retourner la couleur.
+    // Ca permet si l'on veut vraiment de recuperer [(#ACCEDE*)]
+    if (preg_match("/^[A-F]{1,6}$/i", $nom)
+    AND !$p->etoile
+    AND !$p->fonctions) {
+        $p->code = "'#$nom'";
+        $p->interdire_scripts = false;
+    }
+
+    return $p;
 }
 
 
@@ -334,32 +334,32 @@ 
 // http://doc.spip.org/@calculer_balise_dynamique
 function calculer_balise_dynamique($p, $nom, $l, $supp=array()) {
 
-	if (!balise_distante_interdite($p)) {
-		$p->code = "''";
-		return $p;
-	}
-	// compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
-	// il faut recracher {...} quand ce n'est finalement pas des args
-	if ($p->fonctions AND (!$p->fonctions[0][0]) AND $p->fonctions[0][1]) {
-		$p->fonctions = null;
-	}
-
-	if ($p->param AND ($c = $p->param[0])) {
-		// liste d'arguments commence toujours par la chaine vide
-		array_shift($c);
-		// construire la liste d'arguments comme pour un filtre
-		$param = compose_filtres_args($p, $c, ',');
-	} else	$param = "";
-	$collecte = collecter_balise_dynamique($l, $p, $nom);
-
-	$p->code = sprintf(CODE_EXECUTER_BALISE, $nom,
-		join(',', $collecte),
-		($collecte ? $param : substr($param,1)), # virer la virgule
-		memoriser_contexte_compil($p),
-		(!$supp ? '' : (', ' . join(',', $supp))));
-
-	$p->interdire_scripts = false;
-	return $p;
+    if (!balise_distante_interdite($p)) {
+        $p->code = "''";
+        return $p;
+    }
+    // compatibilite: depuis qu'on accepte #BALISE{ses_args} sans [(...)] autour
+    // il faut recracher {...} quand ce n'est finalement pas des args
+    if ($p->fonctions AND (!$p->fonctions[0][0]) AND $p->fonctions[0][1]) {
+        $p->fonctions = null;
+    }
+
+    if ($p->param AND ($c = $p->param[0])) {
+        // liste d'arguments commence toujours par la chaine vide
+        array_shift($c);
+        // construire la liste d'arguments comme pour un filtre
+        $param = compose_filtres_args($p, $c, ',');
+    } else	$param = "";
+    $collecte = collecter_balise_dynamique($l, $p, $nom);
+
+    $p->code = sprintf(CODE_EXECUTER_BALISE, $nom,
+        join(',', $collecte),
+        ($collecte ? $param : substr($param,1)), # virer la virgule
+        memoriser_contexte_compil($p),
+        (!$supp ? '' : (', ' . join(',', $supp))));
+
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // Construction du tableau des arguments d'une balise dynamique.
@@ -370,9 +370,9 @@ 
 
 // http://doc.spip.org/@collecter_balise_dynamique
 function collecter_balise_dynamique($l, &$p, $nom) {
-	$args = array();
-	foreach($l as $c) { $x = calculer_balise($c, $p); $args[] = $x->code;}
-	return $args;
+    $args = array();
+    foreach($l as $c) { $x = calculer_balise($c, $p); $args[] = $x->code;}
+    return $args;
 }
 
 
@@ -389,17 +389,17 @@ 
  *     Nom de la connexion
 **/
 function trouver_nom_serveur_distant($p) {
-	$nom = $p->id_boucle;
-	if ($nom
-		AND isset($p->boucles[$nom])) {
-		$s = $p->boucles[$nom]->sql_serveur;
-		if (strlen($s)
-			AND strlen($serveur = strtolower($s))
-			AND !in_array($serveur,$GLOBALS['exception_des_connect'])) {
-				return $serveur;
-		}
-	}
-	return "";
+    $nom = $p->id_boucle;
+    if ($nom
+        AND isset($p->boucles[$nom])) {
+        $s = $p->boucles[$nom]->sql_serveur;
+        if (strlen($s)
+            AND strlen($serveur = strtolower($s))
+            AND !in_array($serveur,$GLOBALS['exception_des_connect'])) {
+                return $serveur;
+        }
+    }
+    return "";
 }
 
 
@@ -422,13 +422,13 @@ 
  *     - false : La balise est interdite car le serveur est distant
 **/
 function balise_distante_interdite($p) {
-	$nom = $p->id_boucle;
+    $nom = $p->id_boucle;
 
-	if ($nom AND trouver_nom_serveur_distant($p)) {
-		spip_log( $nom .':' . $p->nom_champ .' '._T('zbug_distant_interdit'));
-		return false;
-	}
-	return true;
+    if ($nom AND trouver_nom_serveur_distant($p)) {
+        spip_log( $nom .':' . $p->nom_champ .' '._T('zbug_distant_interdit'));
+        return false;
+    }
+    return true;
 }
 
 
@@ -438,63 +438,63 @@ 
 //
 // http://doc.spip.org/@champs_traitements
 function champs_traitements ($p) {
-	global $table_des_traitements;
-
-	if (isset($table_des_traitements[$p->nom_champ]))
-		$ps = $table_des_traitements[$p->nom_champ];
-	else {
-		// quand on utilise un traitement catch-all *
-		// celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
-		// leur propre securite
-		if (!$p->balise_calculee)
-			$ps = $table_des_traitements['*'];
-		else
-			$ps = false;
-	}
-
-	if (is_array($ps)) {
-		// Recuperer le type de boucle (articles, DATA) et la table SQL sur laquelle elle porte
-		$idb = index_boucle($p);
-		// mais on peut aussi etre hors boucle. Se mefier.
-		$type_requete = isset($p->boucles[$idb]->type_requete) ? $p->boucles[$idb]->type_requete : false;
-		$table_sql = isset($p->boucles[$idb]->show['table_sql'])?$p->boucles[$idb]->show['table_sql']:false;
-
-		// le traitement peut n'etre defini que pour une table en particulier "spip_articles"
-		if ($table_sql AND isset($ps[$table_sql]))
-			$ps = $ps[$table_sql];
-		// ou pour une boucle en particulier "DATA","articles"
-		elseif ($type_requete AND isset($ps[$type_requete]))
-			$ps = $ps[$type_requete];
-		// ou pour indiferrement quelle que soit la boucle
-		elseif(isset($ps[0]))
-			$ps = $ps[0];
-		else
-			$ps=false;
-	}
-
-	if (!$ps) return $p->code;
-
-	// Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
-	// ou si in INCLURE contient {doublons}
-	// on insere une fonction de remplissage du tableau des doublons 
-	// dans les filtres propre() ou typo()
-	// (qui traitent les raccourcis <docXX> referencant les docs)
-
-	if (isset($p->descr['documents']) 
-	AND 
-	  $p->descr['documents']
-	AND (
-		(strpos($ps,'propre') !== false)
-		OR
-		(strpos($ps,'typo') !== false)
-	))
-		$ps = 'traiter_doublons_documents($doublons, '.$ps.')';
-
-	// La protection des champs par |safehtml est assuree par les extensions
-	// dans la declaration des traitements des champs sensibles
-
-	// Remplacer enfin le placeholder %s par le vrai code de la balise
-	return str_replace('%s', $p->code, $ps);
+    global $table_des_traitements;
+
+    if (isset($table_des_traitements[$p->nom_champ]))
+        $ps = $table_des_traitements[$p->nom_champ];
+    else {
+        // quand on utilise un traitement catch-all *
+        // celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
+        // leur propre securite
+        if (!$p->balise_calculee)
+            $ps = $table_des_traitements['*'];
+        else
+            $ps = false;
+    }
+
+    if (is_array($ps)) {
+        // Recuperer le type de boucle (articles, DATA) et la table SQL sur laquelle elle porte
+        $idb = index_boucle($p);
+        // mais on peut aussi etre hors boucle. Se mefier.
+        $type_requete = isset($p->boucles[$idb]->type_requete) ? $p->boucles[$idb]->type_requete : false;
+        $table_sql = isset($p->boucles[$idb]->show['table_sql'])?$p->boucles[$idb]->show['table_sql']:false;
+
+        // le traitement peut n'etre defini que pour une table en particulier "spip_articles"
+        if ($table_sql AND isset($ps[$table_sql]))
+            $ps = $ps[$table_sql];
+        // ou pour une boucle en particulier "DATA","articles"
+        elseif ($type_requete AND isset($ps[$type_requete]))
+            $ps = $ps[$type_requete];
+        // ou pour indiferrement quelle que soit la boucle
+        elseif(isset($ps[0]))
+            $ps = $ps[0];
+        else
+            $ps=false;
+    }
+
+    if (!$ps) return $p->code;
+
+    // Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
+    // ou si in INCLURE contient {doublons}
+    // on insere une fonction de remplissage du tableau des doublons 
+    // dans les filtres propre() ou typo()
+    // (qui traitent les raccourcis <docXX> referencant les docs)
+
+    if (isset($p->descr['documents']) 
+    AND 
+      $p->descr['documents']
+    AND (
+        (strpos($ps,'propre') !== false)
+        OR
+        (strpos($ps,'typo') !== false)
+    ))
+        $ps = 'traiter_doublons_documents($doublons, '.$ps.')';
+
+    // La protection des champs par |safehtml est assuree par les extensions
+    // dans la declaration des traitements des champs sensibles
+
+    // Remplacer enfin le placeholder %s par le vrai code de la balise
+    return str_replace('%s', $p->code, $ps);
 }
 
 
@@ -507,98 +507,98 @@ 
 // http://doc.spip.org/@applique_filtres
 function applique_filtres($p) {
 
-	// Traitements standards (cf. supra)
-	if ($p->etoile == '')
-		$code = champs_traitements($p);
-	else
-		$code = $p->code;
+    // Traitements standards (cf. supra)
+    if ($p->etoile == '')
+        $code = champs_traitements($p);
+    else
+        $code = $p->code;
 
-	// Appliquer les filtres perso
-	if ($p->param)
-		$code = compose_filtres($p, $code);
+    // Appliquer les filtres perso
+    if ($p->param)
+        $code = compose_filtres($p, $code);
 
-	// S'il y a un lien avec la session, ajouter un code qui levera
-	// un drapeau dans la structure d'invalidation $Cache
-	if (isset($p->descr['session']))
-		$code = "invalideur_session(\$Cache, $code)";
+    // S'il y a un lien avec la session, ajouter un code qui levera
+    // un drapeau dans la structure d'invalidation $Cache
+    if (isset($p->descr['session']))
+        $code = "invalideur_session(\$Cache, $code)";
 
-	$code = sandbox_composer_interdire_scripts($code, $p);
-	return $code;
+    $code = sandbox_composer_interdire_scripts($code, $p);
+    return $code;
 }
 
 // Cf. function pipeline dans ecrire/inc_utils.php
 // http://doc.spip.org/@compose_filtres
 function compose_filtres(&$p, $code) {
 
-	$image_miette = false;
-	foreach($p->param as $filtre) {
-		$fonc = array_shift($filtre);
-		if (!$fonc) continue; // normalement qu'au premier tour.
-		$is_filtre_image = ((substr($fonc,0,6)=='image_') AND $fonc!='image_graver');
-		if ($image_miette AND !$is_filtre_image){
-	// il faut graver maintenant car apres le filtre en cours
-	// on est pas sur d'avoir encore le nom du fichier dans le pipe
-			$code = "filtrer('image_graver', $code)";
-			$image_miette = false;
-		}
-		// recuperer les arguments du filtre, 
-		// a separer par "," ou ":" dans le cas du filtre "?{a,b}"
-		if ($fonc !== '?') {
-			$sep = ',';
-		} else {$sep = ':';
-			// |?{a,b} *doit* avoir exactement 2 arguments ; on les force
-			if (count($filtre) != 2)
-				$filtre = array(isset($filtre[0])?$filtre[0]:"", isset($filtre[1])?$filtre[1]:"");
-		}
-		$arglist = compose_filtres_args($p, $filtre, $sep);
-		$logique = filtre_logique($fonc, $code, substr($arglist,1));
-		if ($logique)
-			$code = $logique;
-		else {
-			$code = sandbox_composer_filtre($fonc,$code,$arglist,$p);
-			if ($is_filtre_image) $image_miette = true;
-		}
-	}
-	// ramasser les images intermediaires inutiles et graver l'image finale
-	if ($image_miette)
-		$code = "filtrer('image_graver',$code)";
-
-	return $code;
+    $image_miette = false;
+    foreach($p->param as $filtre) {
+        $fonc = array_shift($filtre);
+        if (!$fonc) continue; // normalement qu'au premier tour.
+        $is_filtre_image = ((substr($fonc,0,6)=='image_') AND $fonc!='image_graver');
+        if ($image_miette AND !$is_filtre_image){
+    // il faut graver maintenant car apres le filtre en cours
+    // on est pas sur d'avoir encore le nom du fichier dans le pipe
+            $code = "filtrer('image_graver', $code)";
+            $image_miette = false;
+        }
+        // recuperer les arguments du filtre, 
+        // a separer par "," ou ":" dans le cas du filtre "?{a,b}"
+        if ($fonc !== '?') {
+            $sep = ',';
+        } else {$sep = ':';
+            // |?{a,b} *doit* avoir exactement 2 arguments ; on les force
+            if (count($filtre) != 2)
+                $filtre = array(isset($filtre[0])?$filtre[0]:"", isset($filtre[1])?$filtre[1]:"");
+        }
+        $arglist = compose_filtres_args($p, $filtre, $sep);
+        $logique = filtre_logique($fonc, $code, substr($arglist,1));
+        if ($logique)
+            $code = $logique;
+        else {
+            $code = sandbox_composer_filtre($fonc,$code,$arglist,$p);
+            if ($is_filtre_image) $image_miette = true;
+        }
+    }
+    // ramasser les images intermediaires inutiles et graver l'image finale
+    if ($image_miette)
+        $code = "filtrer('image_graver',$code)";
+
+    return $code;
 }
 
 // Filtres et,ou,oui,non,sinon,xou,xor,and,or,not,yes
 // et comparateurs
 function filtre_logique($fonc, $code, $arg)
 {
-	global $table_criteres_infixes;
-	switch (true) {
-		case in_array($fonc, $table_criteres_infixes):
-			return "($code $fonc $arg)";
-		case ($fonc == 'and') OR ($fonc == 'et'):
-			return "((($code) AND ($arg)) ?' ' :'')";
-		case ($fonc == 'or') OR ($fonc == 'ou'):
-			return "((($code) OR ($arg)) ?' ' :'')";
-		case ($fonc == 'xor') OR ($fonc == 'xou'):
-			return "((($code) XOR ($arg)) ?' ' :'')";
-		case ($fonc == 'sinon'):
-			return "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)";
-		case ($fonc == 'not') OR ($fonc == 'non'):
-			return "(($code) ?'' :' ')";
-		case ($fonc == 'yes') OR ($fonc == 'oui'):
-			return "(($code) ?' ' :'')";
-	}
-	return '';
+    global $table_criteres_infixes;
+    switch (true) {
+        case in_array($fonc, $table_criteres_infixes):
+            return "($code $fonc $arg)";
+        case ($fonc == 'and') OR ($fonc == 'et'):
+            return "((($code) AND ($arg)) ?' ' :'')";
+        case ($fonc == 'or') OR ($fonc == 'ou'):
+            return "((($code) OR ($arg)) ?' ' :'')";
+        case ($fonc == 'xor') OR ($fonc == 'xou'):
+            return "((($code) XOR ($arg)) ?' ' :'')";
+        case ($fonc == 'sinon'):
+            return "(((\$a = $code) OR (is_string(\$a) AND strlen(\$a))) ? \$a : $arg)";
+        case ($fonc == 'not') OR ($fonc == 'non'):
+            return "(($code) ?'' :' ')";
+        case ($fonc == 'yes') OR ($fonc == 'oui'):
+            return "(($code) ?' ' :'')";
+    }
+    return '';
 }
 
 // http://doc.spip.org/@compose_filtres_args
 function compose_filtres_args($p, $args, $sep)
 {
-	$arglist = "";
-	foreach ($args as $arg) {
-		$arglist .= $sep . 
-		  calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
-	}
-	return $arglist;
+    $arglist = "";
+    foreach ($args as $arg) {
+        $arglist .= $sep . 
+            calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
+    }
+    return $arglist;
 }
 
 //
@@ -609,15 +609,15 @@ 
 // http://doc.spip.org/@calculer_argument_precedent
 function calculer_argument_precedent($idb, $nom_champ, &$boucles, $defaut=null) {
 
-	// si recursif, forcer l'extraction du champ SQL mais ignorer le code
-	if ($boucles[$idb]->externe) {
-		index_pile ($idb, $nom_champ, $boucles,'', $defaut);
-		// retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
-		// on ignore le defaut fourni dans ce cas
-		$defaut = "@\$Pile[\$SP]['$nom_champ']";
-	}
+    // si recursif, forcer l'extraction du champ SQL mais ignorer le code
+    if ($boucles[$idb]->externe) {
+        index_pile ($idb, $nom_champ, $boucles,'', $defaut);
+        // retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
+        // on ignore le defaut fourni dans ce cas
+        $defaut = "@\$Pile[\$SP]['$nom_champ']";
+    }
 
-	return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles,'', $defaut);
+    return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles,'', $defaut);
 }
 
 //
@@ -633,28 +633,28 @@ 
 // http://doc.spip.org/@rindex_pile
 function rindex_pile($p, $champ, $motif) 
 {
-	$n = 0;
-	$b = $p->id_boucle;
-	$p->code = '';
-	while ($b != '') {
-		foreach($p->boucles[$b]->criteres as $critere) {
-			if ($critere->op == $motif) {
-				$p->code = '$Pile[$SP' . (($n==0) ? "" : "-$n") .
-					"]['$champ']";
-				$b = '';
-				break 2;
-			}
-		}
-		$n++;
-		$b = $p->boucles[$b]->id_parent;
-	}
-
-	// si on est hors d'une boucle de {recherche}, cette balise est vide
-	if (!$p->code)
-		$p->code = "''";
-
-	$p->interdire_scripts = false;
-	return $p;
+    $n = 0;
+    $b = $p->id_boucle;
+    $p->code = '';
+    while ($b != '') {
+        foreach($p->boucles[$b]->criteres as $critere) {
+            if ($critere->op == $motif) {
+                $p->code = '$Pile[$SP' . (($n==0) ? "" : "-$n") .
+                    "]['$champ']";
+                $b = '';
+                break 2;
+            }
+        }
+        $n++;
+        $b = $p->boucles[$b]->id_parent;
+    }
+
+    // si on est hors d'une boucle de {recherche}, cette balise est vide
+    if (!$p->code)
+        $p->code = "''";
+
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 ?>

Spacing +46 added lines, -46 removed lines

@@ -27,14 +27,14 @@ 
  * @param Object $p
  * @return string
  */
-function index_boucle($p){
+function index_boucle($p) {
 
 	$idb = $p->id_boucle;
 	$explicite = $p->nom_boucle;
 
 	if (strlen($explicite)) {
 		// Recherche d'un champ dans un etage superieur
-	  while (($idb !== $explicite) && ($idb !=='')) {
+	  while (($idb !== $explicite) && ($idb !== '')) {
 			$idb = $p->boucles[$idb]->id_parent;
 		}
 	}
@@ -64,14 +64,14 @@ 
  *   permettre de remonter la pile des boucles ou non (dans ce cas on ne cherche que ds la 1ere boucle englobante)
  * @return string
  */
-function index_pile($idb, $nom_champ, &$boucles, $explicite='', $defaut=null, $remonte_pile=true) {
+function index_pile($idb, $nom_champ, &$boucles, $explicite = '', $defaut = null, $remonte_pile = true) {
 	if (!is_string($defaut))
-		$defaut = '@$Pile[0][\''. strtolower($nom_champ) . '\']';
+		$defaut = '@$Pile[0][\''.strtolower($nom_champ).'\']';
 
 	$i = 0;
 	if (strlen($explicite)) {
 		// Recherche d'un champ dans un etage superieur
-	  while (($idb !== $explicite) && ($idb !=='')) {
+	  while (($idb !== $explicite) && ($idb !== '')) {
 			#	spip_log("Cherchexpl: $nom_champ '$explicite' '$idb' '$i'");
 			$i++;
 			$idb = $boucles[$idb]->id_parent;
@@ -90,14 +90,14 @@ 
 			if (!in_array($t, $boucles[$idb]->select)) {
 				$boucles[$idb]->select[] = $t;
 			}
-			$champ = '$Pile[$SP' . ($i ? "-$i" : "") . '][\'' . $c . '\']';
+			$champ = '$Pile[$SP'.($i ? "-$i" : "").'][\''.$c.'\']';
 			if (!$joker)
-				return index_compose($conditionnel,$champ);
+				return index_compose($conditionnel, $champ);
 
 			$conditionnel[] = "isset($champ)?$champ";
 		}
 
-		if ($remonte_pile){
+		if ($remonte_pile) {
 			#	spip_log("On remonte vers $i");
 			// Sinon on remonte d'un cran
 			$idb = $boucles[$idb]->id_parent;
@@ -110,7 +110,7 @@ 
 	#	spip_log("Pas vu $nom_champ");
 	// esperons qu'il y sera
 	// on qu'on a fourni une valeur par "defaut" plus pertinent
-	return index_compose($conditionnel,$defaut);
+	return index_compose($conditionnel, $defaut);
 }
 
 /**
@@ -122,10 +122,10 @@ 
  * @param string $defaut
  * @return string
  */
-function index_compose($conditionnel,$defaut){
+function index_compose($conditionnel, $defaut) {
 	while ($c = array_pop($conditionnel))
 		// si on passe defaut = '', ne pas générer d'erreur de compilation.
-		$defaut = "($c:(".($defaut?$defaut:"''")."))";
+		$defaut = "($c:(".($defaut ? $defaut : "''")."))";
 	return $defaut;
 }
 
@@ -139,7 +139,7 @@ 
 	if (!$r) {
 		$joker = false; // indiquer a l'appelant
 		# continuer pour chercher l'erreur suivante
-		return  array("'#" . $r . ':' . $nom_champ . "'",'');
+		return  array("'#".$r.':'.$nom_champ."'", '');
 	}
 
 	$desc = $boucles[$idb]->show;
@@ -173,7 +173,7 @@ 
 					       $nom_champ,
 					       array($t[1]['id_table'], $nom_champ));
 		  }
-			return array('','');
+			return array('', '');
 		}
 	}
 }
@@ -192,24 +192,24 @@ 
 	if (is_array($excep)) {
 		// permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
 		$t = NULL;
-		if (count($excep)==3){
+		if (count($excep) == 3) {
 			$index_exception_derogatoire = array_pop($excep);
 			$t = $index_exception_derogatoire($boucle, $desc, $nom_champ, $excep);
 		}
 		if ($t == NULL) {
-			list($e, $x) = $excep;	#PHP4 affecte de gauche a droite
-			$excep = $x;		#PHP5 de droite a gauche !
+			list($e, $x) = $excep; #PHP4 affecte de gauche a droite
+			$excep = $x; #PHP5 de droite a gauche !
 			$j = $trouver_table($e, $boucle->sql_serveur);
-			if (!$j) return array('','');
+			if (!$j) return array('', '');
 			$e = $j['table'];
 			if (!$t = array_search($e, $boucle->from)) {
 				$k = $j['key']['PRIMARY KEY'];
-				if (strpos($k,',')) {
+				if (strpos($k, ',')) {
 					$l = (preg_split('/\s*,\s*/', $k));
 					$k = $desc['key']['PRIMARY KEY'];
 					if (!in_array($k, $l)) {
-						spip_log("jointure impossible $e " . join(',', $l));
-						return array('','');
+						spip_log("jointure impossible $e ".join(',', $l));
+						return array('', '');
 					}
 				}
 				$k = array($boucle->id_table, array($e), $k);
@@ -221,7 +221,7 @@ 
 	else $t = $boucle->id_table;
 	// demander a SQL de gerer le synonyme
 	// ca permet que excep soit dynamique (Cedric, 2/3/06)
-	if ($excep != $nom_champ) $excep .= ' AS '. $nom_champ;
+	if ($excep != $nom_champ) $excep .= ' AS '.$nom_champ;
 	return array("$t.$excep", $nom_champ);
 }
 
@@ -274,7 +274,7 @@ 
 
 	// Certaines des balises comportant un _ sont generiques
 	if ($f = strpos($nom, '_')
-	AND $f = charger_fonction(substr($nom,0,$f+1), 'balise', true)) {
+	AND $f = charger_fonction(substr($nom, 0, $f + 1), 'balise', true)) {
 		$res = $f($p);
 		if ($res !== NULL)
 			return $res;
@@ -332,7 +332,7 @@ 
 	array(%s%s))");
 
 // http://doc.spip.org/@calculer_balise_dynamique
-function calculer_balise_dynamique($p, $nom, $l, $supp=array()) {
+function calculer_balise_dynamique($p, $nom, $l, $supp = array()) {
 
 	if (!balise_distante_interdite($p)) {
 		$p->code = "''";
@@ -354,9 +354,9 @@ 
 
 	$p->code = sprintf(CODE_EXECUTER_BALISE, $nom,
 		join(',', $collecte),
-		($collecte ? $param : substr($param,1)), # virer la virgule
+		($collecte ? $param : substr($param, 1)), # virer la virgule
 		memoriser_contexte_compil($p),
-		(!$supp ? '' : (', ' . join(',', $supp))));
+		(!$supp ? '' : (', '.join(',', $supp))));
 
 	$p->interdire_scripts = false;
 	return $p;
@@ -371,7 +371,7 @@ 
 // http://doc.spip.org/@collecter_balise_dynamique
 function collecter_balise_dynamique($l, &$p, $nom) {
 	$args = array();
-	foreach($l as $c) { $x = calculer_balise($c, $p); $args[] = $x->code;}
+	foreach ($l as $c) { $x = calculer_balise($c, $p); $args[] = $x->code; }
 	return $args;
 }
 
@@ -395,7 +395,7 @@ 
 		$s = $p->boucles[$nom]->sql_serveur;
 		if (strlen($s)
 			AND strlen($serveur = strtolower($s))
-			AND !in_array($serveur,$GLOBALS['exception_des_connect'])) {
+			AND !in_array($serveur, $GLOBALS['exception_des_connect'])) {
 				return $serveur;
 		}
 	}
@@ -425,7 +425,7 @@ 
 	$nom = $p->id_boucle;
 
 	if ($nom AND trouver_nom_serveur_distant($p)) {
-		spip_log( $nom .':' . $p->nom_champ .' '._T('zbug_distant_interdit'));
+		spip_log($nom.':'.$p->nom_champ.' '._T('zbug_distant_interdit'));
 		return false;
 	}
 	return true;
@@ -437,7 +437,7 @@ 
 // definis par $table_des_traitements, cf. ecrire/public/interfaces
 //
 // http://doc.spip.org/@champs_traitements
-function champs_traitements ($p) {
+function champs_traitements($p) {
 	global $table_des_traitements;
 
 	if (isset($table_des_traitements[$p->nom_champ]))
@@ -457,7 +457,7 @@ 
 		$idb = index_boucle($p);
 		// mais on peut aussi etre hors boucle. Se mefier.
 		$type_requete = isset($p->boucles[$idb]->type_requete) ? $p->boucles[$idb]->type_requete : false;
-		$table_sql = isset($p->boucles[$idb]->show['table_sql'])?$p->boucles[$idb]->show['table_sql']:false;
+		$table_sql = isset($p->boucles[$idb]->show['table_sql']) ? $p->boucles[$idb]->show['table_sql'] : false;
 
 		// le traitement peut n'etre defini que pour une table en particulier "spip_articles"
 		if ($table_sql AND isset($ps[$table_sql]))
@@ -466,10 +466,10 @@ 
 		elseif ($type_requete AND isset($ps[$type_requete]))
 			$ps = $ps[$type_requete];
 		// ou pour indiferrement quelle que soit la boucle
-		elseif(isset($ps[0]))
+		elseif (isset($ps[0]))
 			$ps = $ps[0];
 		else
-			$ps=false;
+			$ps = false;
 	}
 
 	if (!$ps) return $p->code;
@@ -484,9 +484,9 @@ 
 	AND 
 	  $p->descr['documents']
 	AND (
-		(strpos($ps,'propre') !== false)
+		(strpos($ps, 'propre') !== false)
 		OR
-		(strpos($ps,'typo') !== false)
+		(strpos($ps, 'typo') !== false)
 	))
 		$ps = 'traiter_doublons_documents($doublons, '.$ps.')';
 
@@ -531,11 +531,11 @@ 
 function compose_filtres(&$p, $code) {
 
 	$image_miette = false;
-	foreach($p->param as $filtre) {
+	foreach ($p->param as $filtre) {
 		$fonc = array_shift($filtre);
 		if (!$fonc) continue; // normalement qu'au premier tour.
-		$is_filtre_image = ((substr($fonc,0,6)=='image_') AND $fonc!='image_graver');
-		if ($image_miette AND !$is_filtre_image){
+		$is_filtre_image = ((substr($fonc, 0, 6) == 'image_') AND $fonc != 'image_graver');
+		if ($image_miette AND !$is_filtre_image) {
 	// il faut graver maintenant car apres le filtre en cours
 	// on est pas sur d'avoir encore le nom du fichier dans le pipe
 			$code = "filtrer('image_graver', $code)";
@@ -548,14 +548,14 @@ 
 		} else {$sep = ':';
 			// |?{a,b} *doit* avoir exactement 2 arguments ; on les force
 			if (count($filtre) != 2)
-				$filtre = array(isset($filtre[0])?$filtre[0]:"", isset($filtre[1])?$filtre[1]:"");
+				$filtre = array(isset($filtre[0]) ? $filtre[0] : "", isset($filtre[1]) ? $filtre[1] : "");
 		}
 		$arglist = compose_filtres_args($p, $filtre, $sep);
-		$logique = filtre_logique($fonc, $code, substr($arglist,1));
+		$logique = filtre_logique($fonc, $code, substr($arglist, 1));
 		if ($logique)
 			$code = $logique;
 		else {
-			$code = sandbox_composer_filtre($fonc,$code,$arglist,$p);
+			$code = sandbox_composer_filtre($fonc, $code, $arglist, $p);
 			if ($is_filtre_image) $image_miette = true;
 		}
 	}
@@ -595,7 +595,7 @@ 
 {
 	$arglist = "";
 	foreach ($args as $arg) {
-		$arglist .= $sep . 
+		$arglist .= $sep. 
 		  calculer_liste($arg, $p->descr, $p->boucles, $p->id_boucle);
 	}
 	return $arglist;
@@ -607,17 +607,17 @@ 
 // ET chez sa maman
 // 
 // http://doc.spip.org/@calculer_argument_precedent
-function calculer_argument_precedent($idb, $nom_champ, &$boucles, $defaut=null) {
+function calculer_argument_precedent($idb, $nom_champ, &$boucles, $defaut = null) {
 
 	// si recursif, forcer l'extraction du champ SQL mais ignorer le code
 	if ($boucles[$idb]->externe) {
-		index_pile ($idb, $nom_champ, $boucles,'', $defaut);
+		index_pile($idb, $nom_champ, $boucles, '', $defaut);
 		// retourner $Pile[$SP] et pas $Pile[0] si recursion en 1ere boucle
 		// on ignore le defaut fourni dans ce cas
 		$defaut = "@\$Pile[\$SP]['$nom_champ']";
 	}
 
-	return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles,'', $defaut);
+	return index_pile($boucles[$idb]->id_parent, $nom_champ, $boucles, '', $defaut);
 }
 
 //
@@ -637,9 +637,9 @@ 
 	$b = $p->id_boucle;
 	$p->code = '';
 	while ($b != '') {
-		foreach($p->boucles[$b]->criteres as $critere) {
+		foreach ($p->boucles[$b]->criteres as $critere) {
 			if ($critere->op == $motif) {
-				$p->code = '$Pile[$SP' . (($n==0) ? "" : "-$n") .
+				$p->code = '$Pile[$SP'.(($n == 0) ? "" : "-$n").
 					"]['$champ']";
 				$b = '';
 				break 2;

Braces +103 added lines, -67 removed lines

@@ -13,7 +13,9 @@ 
 // fonctions de recherche et de reservation
 // dans l'arborescence des boucles
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 /**
  * Retrouver l'index de la boucle dans le cas ou une reference explicite est demandee
@@ -65,8 +67,9 @@ 
  * @return string
  */
 function index_pile($idb, $nom_champ, &$boucles, $explicite='', $defaut=null, $remonte_pile=true) {
-	if (!is_string($defaut))
-		$defaut = '@$Pile[0][\''. strtolower($nom_champ) . '\']';
+	if (!is_string($defaut)) {
+			$defaut = '@$Pile[0][\''. strtolower($nom_champ) . '\']';
+	}
 
 	$i = 0;
 	if (strlen($explicite)) {
@@ -91,8 +94,9 @@ 
 				$boucles[$idb]->select[] = $t;
 			}
 			$champ = '$Pile[$SP' . ($i ? "-$i" : "") . '][\'' . $c . '\']';
-			if (!$joker)
-				return index_compose($conditionnel,$champ);
+			if (!$joker) {
+							return index_compose($conditionnel,$champ);
+			}
 
 			$conditionnel[] = "isset($champ)?$champ";
 		}
@@ -102,9 +106,9 @@ 
 			// Sinon on remonte d'un cran
 			$idb = $boucles[$idb]->id_parent;
 			$i++;
+		} else {
+					$idb = null;
 		}
-		else
-			$idb = null;
 	}
 
 	#	spip_log("Pas vu $nom_champ");
@@ -123,9 +127,10 @@ 
  * @return string
  */
 function index_compose($conditionnel,$defaut){
-	while ($c = array_pop($conditionnel))
-		// si on passe defaut = '', ne pas générer d'erreur de compilation.
+	while ($c = array_pop($conditionnel)) {
+			// si on passe defaut = '', ne pas générer d'erreur de compilation.
 		$defaut = "($c:(".($defaut?$defaut:"''")."))";
+	}
 	return $defaut;
 }
 
@@ -135,7 +140,9 @@ 
 
 	$r = $boucles[$idb]->type_requete;
 
-	if ($r == 'boucle') return array();
+	if ($r == 'boucle') {
+	    return array();
+	}
 	if (!$r) {
 		$joker = false; // indiquer a l'appelant
 		# continuer pour chercher l'erreur suivante
@@ -144,13 +151,13 @@ 
 
 	$desc = $boucles[$idb]->show;
 	$excep = isset($exceptions_des_tables[$r]) ? $exceptions_des_tables[$r] : '';
-	if ($excep)
-		$excep = isset($excep[$nom_champ]) ? $excep[$nom_champ] : '';
+	if ($excep) {
+			$excep = isset($excep[$nom_champ]) ? $excep[$nom_champ] : '';
+	}
 	if ($excep) {
 		$joker = false; // indiquer a l'appelant
 	  return index_exception($boucles[$idb], $desc, $nom_champ, $excep);
-	}
-	else {
+	} else {
 		if (isset($desc['field'][$nom_champ])) {
 			$t = $boucles[$idb]->id_table;
 			$joker = false; // indiquer a l'appelant
@@ -160,18 +167,18 @@ 
 		elseif (/*$joker AND */isset($desc['field']['*'])) {
 			$joker = true; // indiquer a l'appelant
 			return array($nom_champ, $nom_champ);
-		}
-		else {
+		} else {
 			$joker = false; // indiquer a l'appelant
 		  if ($boucles[$idb]->jointures_explicites) {
 		    $t = trouver_champ_exterieur($nom_champ, 
 						 $boucles[$idb]->jointures,
 						 $boucles[$idb]);
-		    if ($t) 
-					return index_exception($boucles[$idb],
+		    if ($t) {
+		    					return index_exception($boucles[$idb],
 					       $desc,
 					       $nom_champ,
 					       array($t[1]['id_table'], $nom_champ));
+		    }
 		  }
 			return array('','');
 		}
@@ -186,8 +193,9 @@ 
 function index_exception(&$boucle, $desc, $nom_champ, $excep)
 {
 	static $trouver_table;
-	if (!$trouver_table)
-		$trouver_table = charger_fonction('trouver_table', 'base');
+	if (!$trouver_table) {
+			$trouver_table = charger_fonction('trouver_table', 'base');
+	}
 
 	if (is_array($excep)) {
 		// permettre aux plugins de gerer eux meme des jointures derogatoire ingerables
@@ -200,7 +208,9 @@ 
 			list($e, $x) = $excep;	#PHP4 affecte de gauche a droite
 			$excep = $x;		#PHP5 de droite a gauche !
 			$j = $trouver_table($e, $boucle->sql_serveur);
-			if (!$j) return array('','');
+			if (!$j) {
+			    return array('','');
+			}
 			$e = $j['table'];
 			if (!$t = array_search($e, $boucle->from)) {
 				$k = $j['key']['PRIMARY KEY'];
@@ -217,11 +227,14 @@ 
 				$t = array_search($e, $boucle->from);
 			}
 		}
+	} else {
+	    $t = $boucle->id_table;
 	}
-	else $t = $boucle->id_table;
 	// demander a SQL de gerer le synonyme
 	// ca permet que excep soit dynamique (Cedric, 2/3/06)
-	if ($excep != $nom_champ) $excep .= ' AS '. $nom_champ;
+	if ($excep != $nom_champ) {
+	    $excep .= ' AS '. $nom_champ;
+	}
 	return array("$t.$excep", $nom_champ);
 }
 
@@ -268,16 +281,18 @@ 
 	if ($f = charger_fonction($nom, 'balise', true)) {
 		$p->balise_calculee = true;
 		$res = $f($p);
-		if ($res !== NULL)
-			return $res;
+		if ($res !== NULL) {
+					return $res;
+		}
 	}
 
 	// Certaines des balises comportant un _ sont generiques
 	if ($f = strpos($nom, '_')
 	AND $f = charger_fonction(substr($nom,0,$f+1), 'balise', true)) {
 		$res = $f($p);
-		if ($res !== NULL)
-			return $res;
+		if ($res !== NULL) {
+					return $res;
+		}
 	}
 
 	$f = charger_fonction('DEFAUT', 'calculer_balise');
@@ -298,8 +313,9 @@ 
 	}
 
 	// ne pas passer le filtre securite sur les id_xxx
-	if (strpos($nom, 'ID_') === 0)
-		$p->interdire_scripts = false;
+	if (strpos($nom, 'ID_') === 0) {
+			$p->interdire_scripts = false;
+	}
 
 	// Compatibilite ascendante avec les couleurs html (#FEFEFE) :
 	// SI le champ SQL n'est pas trouve
@@ -349,7 +365,9 @@ 
 		array_shift($c);
 		// construire la liste d'arguments comme pour un filtre
 		$param = compose_filtres_args($p, $c, ',');
-	} else	$param = "";
+	} else {
+	    $param = "";
+	}
 	$collecte = collecter_balise_dynamique($l, $p, $nom);
 
 	$p->code = sprintf(CODE_EXECUTER_BALISE, $nom,
@@ -440,16 +458,17 @@ 
 function champs_traitements ($p) {
 	global $table_des_traitements;
 
-	if (isset($table_des_traitements[$p->nom_champ]))
-		$ps = $table_des_traitements[$p->nom_champ];
-	else {
+	if (isset($table_des_traitements[$p->nom_champ])) {
+			$ps = $table_des_traitements[$p->nom_champ];
+	} else {
 		// quand on utilise un traitement catch-all *
 		// celui-ci ne s'applique pas sur les balises calculees qui peuvent gerer
 		// leur propre securite
-		if (!$p->balise_calculee)
-			$ps = $table_des_traitements['*'];
-		else
-			$ps = false;
+		if (!$p->balise_calculee) {
+					$ps = $table_des_traitements['*'];
+		} else {
+					$ps = false;
+		}
 	}
 
 	if (is_array($ps)) {
@@ -460,19 +479,24 @@ 
 		$table_sql = isset($p->boucles[$idb]->show['table_sql'])?$p->boucles[$idb]->show['table_sql']:false;
 
 		// le traitement peut n'etre defini que pour une table en particulier "spip_articles"
-		if ($table_sql AND isset($ps[$table_sql]))
-			$ps = $ps[$table_sql];
+		if ($table_sql AND isset($ps[$table_sql])) {
+					$ps = $ps[$table_sql];
+		}
 		// ou pour une boucle en particulier "DATA","articles"
-		elseif ($type_requete AND isset($ps[$type_requete]))
-			$ps = $ps[$type_requete];
+		elseif ($type_requete AND isset($ps[$type_requete])) {
+					$ps = $ps[$type_requete];
+		}
 		// ou pour indiferrement quelle que soit la boucle
-		elseif(isset($ps[0]))
-			$ps = $ps[0];
-		else
-			$ps=false;
+		elseif(isset($ps[0])) {
+					$ps = $ps[0];
+		} else {
+					$ps=false;
+		}
 	}
 
-	if (!$ps) return $p->code;
+	if (!$ps) {
+	    return $p->code;
+	}
 
 	// Si une boucle DOCUMENTS{doublons} est presente dans le squelette,
 	// ou si in INCLURE contient {doublons}
@@ -487,8 +511,9 @@ 
 		(strpos($ps,'propre') !== false)
 		OR
 		(strpos($ps,'typo') !== false)
-	))
-		$ps = 'traiter_doublons_documents($doublons, '.$ps.')';
+	)) {
+			$ps = 'traiter_doublons_documents($doublons, '.$ps.')';
+	}
 
 	// La protection des champs par |safehtml est assuree par les extensions
 	// dans la declaration des traitements des champs sensibles
@@ -508,19 +533,22 @@ 
 function applique_filtres($p) {
 
 	// Traitements standards (cf. supra)
-	if ($p->etoile == '')
-		$code = champs_traitements($p);
-	else
-		$code = $p->code;
+	if ($p->etoile == '') {
+			$code = champs_traitements($p);
+	} else {
+			$code = $p->code;
+	}
 
 	// Appliquer les filtres perso
-	if ($p->param)
-		$code = compose_filtres($p, $code);
+	if ($p->param) {
+			$code = compose_filtres($p, $code);
+	}
 
 	// S'il y a un lien avec la session, ajouter un code qui levera
 	// un drapeau dans la structure d'invalidation $Cache
-	if (isset($p->descr['session']))
-		$code = "invalideur_session(\$Cache, $code)";
+	if (isset($p->descr['session'])) {
+			$code = "invalideur_session(\$Cache, $code)";
+	}
 
 	$code = sandbox_composer_interdire_scripts($code, $p);
 	return $code;
@@ -533,7 +561,10 @@ 
 	$image_miette = false;
 	foreach($p->param as $filtre) {
 		$fonc = array_shift($filtre);
-		if (!$fonc) continue; // normalement qu'au premier tour.
+		if (!$fonc) {
+		    continue;
+		}
+		// normalement qu'au premier tour.
 		$is_filtre_image = ((substr($fonc,0,6)=='image_') AND $fonc!='image_graver');
 		if ($image_miette AND !$is_filtre_image){
 	// il faut graver maintenant car apres le filtre en cours
@@ -547,21 +578,25 @@ 
 			$sep = ',';
 		} else {$sep = ':';
 			// |?{a,b} *doit* avoir exactement 2 arguments ; on les force
-			if (count($filtre) != 2)
-				$filtre = array(isset($filtre[0])?$filtre[0]:"", isset($filtre[1])?$filtre[1]:"");
+			if (count($filtre) != 2) {
+							$filtre = array(isset($filtre[0])?$filtre[0]:"", isset($filtre[1])?$filtre[1]:"");
+			}
 		}
 		$arglist = compose_filtres_args($p, $filtre, $sep);
 		$logique = filtre_logique($fonc, $code, substr($arglist,1));
-		if ($logique)
-			$code = $logique;
-		else {
+		if ($logique) {
+					$code = $logique;
+		} else {
 			$code = sandbox_composer_filtre($fonc,$code,$arglist,$p);
-			if ($is_filtre_image) $image_miette = true;
+			if ($is_filtre_image) {
+			    $image_miette = true;
+			}
 		}
 	}
 	// ramasser les images intermediaires inutiles et graver l'image finale
-	if ($image_miette)
-		$code = "filtrer('image_graver',$code)";
+	if ($image_miette) {
+			$code = "filtrer('image_graver',$code)";
+	}
 
 	return $code;
 }
@@ -650,8 +685,9 @@ 
 	}
 
 	// si on est hors d'une boucle de {recherche}, cette balise est vide
-	if (!$p->code)
-		$p->code = "''";
+	if (!$p->code) {
+			$p->code = "''";
+	}
 
 	$p->interdire_scripts = false;
 	return $p;

ecrire/public/sandbox.php

Doc Comments +1 added lines, -3 removed lines

@@ -20,8 +20,6 @@ 
  * dans les squelette
  *
  * @param string $texte
- * @param string $code
- * @param string $arglist
  * @param Object $p
  * @return string
  */
@@ -85,7 +83,7 @@ 
  * Composer le code d'inclusion PHP
  *
  * @param string $fichier
- * @param Object $p
+ * @param Inclure $p
  * @param array $_contexte
  * @return string
  */

Indentation +82 added lines, -82 removed lines

@@ -26,8 +26,8 @@ 
  * @return string
  */
 function sandbox_composer_texte($texte, &$p){
-	$code = "'".str_replace(array("\\","'"),array("\\\\","\\'"), $texte)."'";
-	return $code;
+    $code = "'".str_replace(array("\\","'"),array("\\\\","\\'"), $texte)."'";
+    return $code;
 }
 
 
@@ -41,33 +41,33 @@ 
  * @return string
  */
 function sandbox_composer_filtre($fonc, $code, $arglist, &$p){
-	if (isset($GLOBALS['spip_matrice'][$fonc])) {
-		$code = "filtrer('$fonc',$code$arglist)";
-	}
-
-	// le filtre est defini sous forme de fonction ou de methode
-	// par ex. dans inc_texte, inc_filtres ou mes_fonctions
-	elseif ($f = chercher_filtre($fonc)) {
-		// cas particulier : le filtre |set doit acceder a la $Pile
-		// proto: filtre_set(&$Pile, $val, $args...)
-		if (strpbrk($f, ':')) { // Class::method
-			$refl = new ReflectionMethod($f);
-		} else {
-			$refl = new ReflectionFunction($f);
-		}
-		$refs = $refl->getParameters();
-		if (isset($refs[0]) AND $refs[0]->name == 'Pile') {
-			$code = "$f(\$Pile,$code$arglist)";
-		}
-		else {
-			$code = "$f($code$arglist)";
-		}
-	}
-	// le filtre n'existe pas,
-	// on le notifie
-	else erreur_squelette(array('zbug_erreur_filtre', array('filtre'=>  texte_script($fonc))), $p);
-
-	return $code;
+    if (isset($GLOBALS['spip_matrice'][$fonc])) {
+        $code = "filtrer('$fonc',$code$arglist)";
+    }
+
+    // le filtre est defini sous forme de fonction ou de methode
+    // par ex. dans inc_texte, inc_filtres ou mes_fonctions
+    elseif ($f = chercher_filtre($fonc)) {
+        // cas particulier : le filtre |set doit acceder a la $Pile
+        // proto: filtre_set(&$Pile, $val, $args...)
+        if (strpbrk($f, ':')) { // Class::method
+            $refl = new ReflectionMethod($f);
+        } else {
+            $refl = new ReflectionFunction($f);
+        }
+        $refs = $refl->getParameters();
+        if (isset($refs[0]) AND $refs[0]->name == 'Pile') {
+            $code = "$f(\$Pile,$code$arglist)";
+        }
+        else {
+            $code = "$f($code$arglist)";
+        }
+    }
+    // le filtre n'existe pas,
+    // on le notifie
+    else erreur_squelette(array('zbug_erreur_filtre', array('filtre'=>  texte_script($fonc))), $p);
+
+    return $code;
 }
 
 // Calculer un <INCLURE(xx.php)>
@@ -90,13 +90,13 @@ 
  * @return string
  */
 function sandbox_composer_inclure_php($fichier, &$p, $_contexte){
-	$compil = texte_script(memoriser_contexte_compil($p));
-	// si inexistant, on essaiera a l'execution
-	if ($path = find_in_path($fichier))
-		$path = "\"$path\"";
-	else $path = "find_in_path(\"$fichier\")";
+    $compil = texte_script(memoriser_contexte_compil($p));
+    // si inexistant, on essaiera a l'execution
+    if ($path = find_in_path($fichier))
+        $path = "\"$path\"";
+    else $path = "find_in_path(\"$fichier\")";
 
-	return sprintf(CODE_INCLURE_SCRIPT, $path, $fichier, $compil, $_contexte);
+    return sprintf(CODE_INCLURE_SCRIPT, $path, $fichier, $compil, $_contexte);
 }
 
 /**
@@ -107,17 +107,17 @@ 
  * @return string
  */
 function sandbox_composer_interdire_scripts($code, &$p){
-	// Securite
-	if ($p->interdire_scripts
-	AND $p->etoile != '**') {
-		if (!preg_match("/^sinon[(](.*),'([^']*)'[)]$/", $code, $r))
-			$code = "interdire_scripts($code)";
-		else {
-			$code = interdire_scripts($r[2]);
-			$code = "sinon(interdire_scripts($r[1]),'$code')";
-		}
-	}
-	return $code;
+    // Securite
+    if ($p->interdire_scripts
+    AND $p->etoile != '**') {
+        if (!preg_match("/^sinon[(](.*),'([^']*)'[)]$/", $code, $r))
+            $code = "interdire_scripts($code)";
+        else {
+            $code = interdire_scripts($r[2]);
+            $code = "sinon(interdire_scripts($r[1]),'$code')";
+        }
+    }
+    return $code;
 }
 
 
@@ -133,45 +133,45 @@ 
  * @return mixed|string
  */
 function sandbox_filtrer_squelette($skel, $corps, $filtres){
-	$series_filtres = func_get_args();
-	array_shift($series_filtres);// skel
-	array_shift($series_filtres);// corps
-
-	// proteger les <INCLUDE> et tous les morceaux de php licites
-	if ($skel['process_ins'] == 'php')
-		$corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS','echapper_php_callback', $corps);
-
-	// recuperer les couples de remplacement
-	$replace = echapper_php_callback();
-
-	foreach($series_filtres as $filtres){
-		if (count($filtres))
-			foreach ($filtres as $filtre) {
-				if ($filtre AND $f = chercher_filtre($filtre))
-					$corps = $f($corps);
-			}
-	}
-
-	// restaurer les echappements
-	return str_replace($replace[0],$replace[1],$corps);
+    $series_filtres = func_get_args();
+    array_shift($series_filtres);// skel
+    array_shift($series_filtres);// corps
+
+    // proteger les <INCLUDE> et tous les morceaux de php licites
+    if ($skel['process_ins'] == 'php')
+        $corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS','echapper_php_callback', $corps);
+
+    // recuperer les couples de remplacement
+    $replace = echapper_php_callback();
+
+    foreach($series_filtres as $filtres){
+        if (count($filtres))
+            foreach ($filtres as $filtre) {
+                if ($filtre AND $f = chercher_filtre($filtre))
+                    $corps = $f($corps);
+            }
+    }
+
+    // restaurer les echappements
+    return str_replace($replace[0],$replace[1],$corps);
 }
 
 
 // http://doc.spip.org/@echapper_php_callback
 function echapper_php_callback($r=null) {
-	static $src = array();
-	static $dst = array();
-
-	// si on recoit un tableau, on est en mode echappement
-	// on enregistre le code a echapper dans dst, et le code echappe dans src
-	if (is_array($r)) {
-		$dst[] = $r[0];
-		return $src[] = '___'.md5($r[0]).'___';
-	}
-
-	// si on recoit pas un tableau, on renvoit les couples de substitution
-	// et on RAZ les remplacements
-	$r = array($src,$dst);
-	$src = $dst = array();
-	return $r;
+    static $src = array();
+    static $dst = array();
+
+    // si on recoit un tableau, on est en mode echappement
+    // on enregistre le code a echapper dans dst, et le code echappe dans src
+    if (is_array($r)) {
+        $dst[] = $r[0];
+        return $src[] = '___'.md5($r[0]).'___';
+    }
+
+    // si on recoit pas un tableau, on renvoit les couples de substitution
+    // et on RAZ les remplacements
+    $r = array($src,$dst);
+    $src = $dst = array();
+    return $r;
 }

Spacing +13 added lines, -13 removed lines

@@ -25,8 +25,8 @@ 
  * @param Object $p
  * @return string
  */
-function sandbox_composer_texte($texte, &$p){
-	$code = "'".str_replace(array("\\","'"),array("\\\\","\\'"), $texte)."'";
+function sandbox_composer_texte($texte, &$p) {
+	$code = "'".str_replace(array("\\", "'"), array("\\\\", "\\'"), $texte)."'";
 	return $code;
 }
 
@@ -40,7 +40,7 @@ 
  * @param Object $p
  * @return string
  */
-function sandbox_composer_filtre($fonc, $code, $arglist, &$p){
+function sandbox_composer_filtre($fonc, $code, $arglist, &$p) {
 	if (isset($GLOBALS['spip_matrice'][$fonc])) {
 		$code = "filtrer('$fonc',$code$arglist)";
 	}
@@ -89,7 +89,7 @@ 
  * @param array $_contexte
  * @return string
  */
-function sandbox_composer_inclure_php($fichier, &$p, $_contexte){
+function sandbox_composer_inclure_php($fichier, &$p, $_contexte) {
 	$compil = texte_script(memoriser_contexte_compil($p));
 	// si inexistant, on essaiera a l'execution
 	if ($path = find_in_path($fichier))
@@ -106,7 +106,7 @@ 
  * @param Object $p
  * @return string
  */
-function sandbox_composer_interdire_scripts($code, &$p){
+function sandbox_composer_interdire_scripts($code, &$p) {
 	// Securite
 	if ($p->interdire_scripts
 	AND $p->etoile != '**') {
@@ -132,19 +132,19 @@ 
  * @param array ...
  * @return mixed|string
  */
-function sandbox_filtrer_squelette($skel, $corps, $filtres){
+function sandbox_filtrer_squelette($skel, $corps, $filtres) {
 	$series_filtres = func_get_args();
-	array_shift($series_filtres);// skel
-	array_shift($series_filtres);// corps
+	array_shift($series_filtres); // skel
+	array_shift($series_filtres); // corps
 
 	// proteger les <INCLUDE> et tous les morceaux de php licites
 	if ($skel['process_ins'] == 'php')
-		$corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS','echapper_php_callback', $corps);
+		$corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS', 'echapper_php_callback', $corps);
 
 	// recuperer les couples de remplacement
 	$replace = echapper_php_callback();
 
-	foreach($series_filtres as $filtres){
+	foreach ($series_filtres as $filtres) {
 		if (count($filtres))
 			foreach ($filtres as $filtre) {
 				if ($filtre AND $f = chercher_filtre($filtre))
@@ -153,12 +153,12 @@ 
 	}
 
 	// restaurer les echappements
-	return str_replace($replace[0],$replace[1],$corps);
+	return str_replace($replace[0], $replace[1], $corps);
 }
 
 
 // http://doc.spip.org/@echapper_php_callback
-function echapper_php_callback($r=null) {
+function echapper_php_callback($r = null) {
 	static $src = array();
 	static $dst = array();
 
@@ -171,7 +171,7 @@ 
 
 	// si on recoit pas un tableau, on renvoit les couples de substitution
 	// et on RAZ les remplacements
-	$r = array($src,$dst);
+	$r = array($src, $dst);
 	$src = $dst = array();
 	return $r;
 }

Braces +21 added lines, -14 removed lines

@@ -11,7 +11,9 @@ 
 \***************************************************************************/
 
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 /**
  * Composer le code d'execution d'un texte
@@ -58,14 +60,15 @@ 
 		$refs = $refl->getParameters();
 		if (isset($refs[0]) AND $refs[0]->name == 'Pile') {
 			$code = "$f(\$Pile,$code$arglist)";
-		}
-		else {
+		} else {
 			$code = "$f($code$arglist)";
 		}
 	}
 	// le filtre n'existe pas,
 	// on le notifie
-	else erreur_squelette(array('zbug_erreur_filtre', array('filtre'=>  texte_script($fonc))), $p);
+	else {
+	    erreur_squelette(array('zbug_erreur_filtre', array('filtre'=>  texte_script($fonc))), $p);
+	}
 
 	return $code;
 }
@@ -92,9 +95,11 @@ 
 function sandbox_composer_inclure_php($fichier, &$p, $_contexte){
 	$compil = texte_script(memoriser_contexte_compil($p));
 	// si inexistant, on essaiera a l'execution
-	if ($path = find_in_path($fichier))
-		$path = "\"$path\"";
-	else $path = "find_in_path(\"$fichier\")";
+	if ($path = find_in_path($fichier)) {
+			$path = "\"$path\"";
+	} else {
+	    $path = "find_in_path(\"$fichier\")";
+	}
 
 	return sprintf(CODE_INCLURE_SCRIPT, $path, $fichier, $compil, $_contexte);
 }
@@ -110,9 +115,9 @@ 
 	// Securite
 	if ($p->interdire_scripts
 	AND $p->etoile != '**') {
-		if (!preg_match("/^sinon[(](.*),'([^']*)'[)]$/", $code, $r))
-			$code = "interdire_scripts($code)";
-		else {
+		if (!preg_match("/^sinon[(](.*),'([^']*)'[)]$/", $code, $r)) {
+					$code = "interdire_scripts($code)";
+		} else {
 			$code = interdire_scripts($r[2]);
 			$code = "sinon(interdire_scripts($r[1]),'$code')";
 		}
@@ -138,17 +143,19 @@ 
 	array_shift($series_filtres);// corps
 
 	// proteger les <INCLUDE> et tous les morceaux de php licites
-	if ($skel['process_ins'] == 'php')
-		$corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS','echapper_php_callback', $corps);
+	if ($skel['process_ins'] == 'php') {
+			$corps = preg_replace_callback(',<[?](\s|php|=).*[?]>,UimsS','echapper_php_callback', $corps);
+	}
 
 	// recuperer les couples de remplacement
 	$replace = echapper_php_callback();
 
 	foreach($series_filtres as $filtres){
-		if (count($filtres))
-			foreach ($filtres as $filtre) {
+		if (count($filtres)) {
+					foreach ($filtres as $filtre) {
 				if ($filtre AND $f = chercher_filtre($filtre))
 					$corps = $f($corps);
+		}
 			}
 	}
 

ecrire/public/styliser.php

Doc Comments -1 removed lines

@@ -26,7 +26,6 @@
  * @param array $contexte
  * @param string $lang
  * @param string $connect
- * @param string $ext
  * @return array
  *
  * http://doc.spip.org/@public_styliser_dist

Indentation +101 added lines, -101 removed lines

@@ -32,74 +32,74 @@ 
  * http://doc.spip.org/@public_styliser_dist
  */
 function public_styliser_dist($fond, $contexte, $lang='', $connect='') {
-	static $styliser_par_z;
+    static $styliser_par_z;
 
-	// s'assurer que le fond est licite
-	// car il peut etre construit a partir d'une variable d'environnement
-	if (strpos($fond,"../")!==false OR strncmp($fond,'/',1)==0)
-		$fond = "404";
+    // s'assurer que le fond est licite
+    // car il peut etre construit a partir d'une variable d'environnement
+    if (strpos($fond,"../")!==false OR strncmp($fond,'/',1)==0)
+        $fond = "404";
   
-	// Choisir entre $fond-dist.html, $fond=7.html, etc?
-	$id_rubrique = 0;
-	// Chercher le fond qui va servir de squelette
-	if ($r = quete_rubrique_fond($contexte))
-		list($id_rubrique, $lang) = $r;
-
-	// trouver un squelette du nom demande
-	// ne rien dire si on ne trouve pas, 
-	// c'est l'appelant qui sait comment gerer la situation
-	// ou les plugins qui feront mieux dans le pipeline
-	$squelette = trouver_fond($fond,"",true);
-	$ext = $squelette['extension'];
-
-	$flux = array(
-		'args' => array(
-			'id_rubrique' => $id_rubrique,
-			'ext' => $ext,
-			'fond' => $fond,
-			'lang' => $lang,
-			'contexte' => $contexte, // le style d'un objet peut dependre de lui meme
-			'connect' => $connect
-		),
-		'data' => $squelette['fond'],
-	);
-
-	if (test_espace_prive() OR defined('_ZPIP')) {
-		if (!$styliser_par_z)
-			$styliser_par_z = charger_fonction('styliser_par_z','public');
-		$flux = $styliser_par_z($flux);
-	}
-
-	$flux = styliser_par_objets($flux);
-
-	// pipeline styliser
-	$squelette = pipeline('styliser', $flux);
-
-	return array($squelette, $ext, $ext, "$squelette.$ext");
+    // Choisir entre $fond-dist.html, $fond=7.html, etc?
+    $id_rubrique = 0;
+    // Chercher le fond qui va servir de squelette
+    if ($r = quete_rubrique_fond($contexte))
+        list($id_rubrique, $lang) = $r;
+
+    // trouver un squelette du nom demande
+    // ne rien dire si on ne trouve pas, 
+    // c'est l'appelant qui sait comment gerer la situation
+    // ou les plugins qui feront mieux dans le pipeline
+    $squelette = trouver_fond($fond,"",true);
+    $ext = $squelette['extension'];
+
+    $flux = array(
+        'args' => array(
+            'id_rubrique' => $id_rubrique,
+            'ext' => $ext,
+            'fond' => $fond,
+            'lang' => $lang,
+            'contexte' => $contexte, // le style d'un objet peut dependre de lui meme
+            'connect' => $connect
+        ),
+        'data' => $squelette['fond'],
+    );
+
+    if (test_espace_prive() OR defined('_ZPIP')) {
+        if (!$styliser_par_z)
+            $styliser_par_z = charger_fonction('styliser_par_z','public');
+        $flux = $styliser_par_z($flux);
+    }
+
+    $flux = styliser_par_objets($flux);
+
+    // pipeline styliser
+    $squelette = pipeline('styliser', $flux);
+
+    return array($squelette, $ext, $ext, "$squelette.$ext");
 }
 
 function styliser_par_objets($flux){
-	if (test_espace_prive()
-		AND !$squelette = $flux['data']
-	  AND strncmp($flux['args']['fond'],'prive/objets/',13)==0
-	  AND $echafauder = charger_fonction('echafauder','prive',true)) {
-		if (strncmp($flux['args']['fond'],'prive/objets/liste/',19)==0){
-			$table = table_objet(substr($flux['args']['fond'],19));
-			$table_sql = table_objet_sql($table);
-			$objets = lister_tables_objets_sql();
-			if (isset($objets[$table_sql]))
-				$flux['data'] = $echafauder($table,$table,$table_sql,"prive/objets/liste/objets",$flux['args']['ext']);
-		}
-		if (strncmp($flux['args']['fond'],'prive/objets/contenu/',21)==0){
-			$type = substr($flux['args']['fond'],21);
-			$table = table_objet($type);
-			$table_sql = table_objet_sql($table);
-			$objets = lister_tables_objets_sql();
-			if (isset($objets[$table_sql]))
-				$flux['data'] = $echafauder($type,$table,$table_sql,"prive/objets/contenu/objet",$flux['args']['ext']);
-		}
-	}
-	return $flux;
+    if (test_espace_prive()
+        AND !$squelette = $flux['data']
+      AND strncmp($flux['args']['fond'],'prive/objets/',13)==0
+      AND $echafauder = charger_fonction('echafauder','prive',true)) {
+        if (strncmp($flux['args']['fond'],'prive/objets/liste/',19)==0){
+            $table = table_objet(substr($flux['args']['fond'],19));
+            $table_sql = table_objet_sql($table);
+            $objets = lister_tables_objets_sql();
+            if (isset($objets[$table_sql]))
+                $flux['data'] = $echafauder($table,$table,$table_sql,"prive/objets/liste/objets",$flux['args']['ext']);
+        }
+        if (strncmp($flux['args']['fond'],'prive/objets/contenu/',21)==0){
+            $type = substr($flux['args']['fond'],21);
+            $table = table_objet($type);
+            $table_sql = table_objet_sql($table);
+            $objets = lister_tables_objets_sql();
+            if (isset($objets[$table_sql]))
+                $flux['data'] = $echafauder($type,$table,$table_sql,"prive/objets/contenu/objet",$flux['args']['ext']);
+        }
+    }
+    return $flux;
 }
 
 /**
@@ -117,43 +117,43 @@ 
  * @return array
  */
 function quete_rubrique_fond($contexte) {
-	static $liste_objets = null;
-	static $quete = array();
-	if (is_null($liste_objets)) {
-		$liste_objets = array();
-		include_spip('inc/urls');
-		include_spip('public/quete');
-		$l = urls_liste_objets(false);
-		// placer la rubrique en tete des objets
-		$l = array_diff($l,array('rubrique'));
-		array_unshift($l, 'rubrique');
-		foreach($l as $objet){
-			$id = id_table_objet($objet);
-			if (!isset($liste_objets[$id]))
-				$liste_objets[$id] = objet_type($objet,false);
-		}
-	}
-	$c = array_intersect_key($contexte,$liste_objets);
-	if (!count($c)) return false;
-
-	$c = array_map('intval',$c);
-	$s = serialize($c);
-	if (isset($quete[$s]))
-		return $quete[$s];
-
-	if (isset($c['id_rubrique']) AND $r = $c['id_rubrique']){
-		unset($c['id_rubrique']);
-		$c = array('id_rubrique'=>$r) + $c;
-	}
-
-	foreach($c as $_id=>$id) {
-		if ($id
-		  AND $row = quete_parent_lang(table_objet_sql($liste_objets[$_id]),$id)) {
-			$lang = isset($row['lang']) ? $row['lang'] : '';
-			if ($_id=='id_rubrique' OR (isset($row['id_rubrique']) AND $id=$row['id_rubrique']))
-				return $quete[$s] = array ($id, $lang);
-		}
-	}
-	return $quete[$s] = false;
+    static $liste_objets = null;
+    static $quete = array();
+    if (is_null($liste_objets)) {
+        $liste_objets = array();
+        include_spip('inc/urls');
+        include_spip('public/quete');
+        $l = urls_liste_objets(false);
+        // placer la rubrique en tete des objets
+        $l = array_diff($l,array('rubrique'));
+        array_unshift($l, 'rubrique');
+        foreach($l as $objet){
+            $id = id_table_objet($objet);
+            if (!isset($liste_objets[$id]))
+                $liste_objets[$id] = objet_type($objet,false);
+        }
+    }
+    $c = array_intersect_key($contexte,$liste_objets);
+    if (!count($c)) return false;
+
+    $c = array_map('intval',$c);
+    $s = serialize($c);
+    if (isset($quete[$s]))
+        return $quete[$s];
+
+    if (isset($c['id_rubrique']) AND $r = $c['id_rubrique']){
+        unset($c['id_rubrique']);
+        $c = array('id_rubrique'=>$r) + $c;
+    }
+
+    foreach($c as $_id=>$id) {
+        if ($id
+          AND $row = quete_parent_lang(table_objet_sql($liste_objets[$_id]),$id)) {
+            $lang = isset($row['lang']) ? $row['lang'] : '';
+            if ($_id=='id_rubrique' OR (isset($row['id_rubrique']) AND $id=$row['id_rubrique']))
+                return $quete[$s] = array ($id, $lang);
+        }
+    }
+    return $quete[$s] = false;
 }
 ?>

Spacing +23 added lines, -23 removed lines

@@ -31,12 +31,12 @@ 
  *
  * http://doc.spip.org/@public_styliser_dist
  */
-function public_styliser_dist($fond, $contexte, $lang='', $connect='') {
+function public_styliser_dist($fond, $contexte, $lang = '', $connect = '') {
 	static $styliser_par_z;
 
 	// s'assurer que le fond est licite
 	// car il peut etre construit a partir d'une variable d'environnement
-	if (strpos($fond,"../")!==false OR strncmp($fond,'/',1)==0)
+	if (strpos($fond, "../") !== false OR strncmp($fond, '/', 1) == 0)
 		$fond = "404";
   
 	// Choisir entre $fond-dist.html, $fond=7.html, etc?
@@ -49,7 +49,7 @@ 
 	// ne rien dire si on ne trouve pas, 
 	// c'est l'appelant qui sait comment gerer la situation
 	// ou les plugins qui feront mieux dans le pipeline
-	$squelette = trouver_fond($fond,"",true);
+	$squelette = trouver_fond($fond, "", true);
 	$ext = $squelette['extension'];
 
 	$flux = array(
@@ -66,7 +66,7 @@ 
 
 	if (test_espace_prive() OR defined('_ZPIP')) {
 		if (!$styliser_par_z)
-			$styliser_par_z = charger_fonction('styliser_par_z','public');
+			$styliser_par_z = charger_fonction('styliser_par_z', 'public');
 		$flux = $styliser_par_z($flux);
 	}
 
@@ -78,25 +78,25 @@ 
 	return array($squelette, $ext, $ext, "$squelette.$ext");
 }
 
-function styliser_par_objets($flux){
+function styliser_par_objets($flux) {
 	if (test_espace_prive()
 		AND !$squelette = $flux['data']
-	  AND strncmp($flux['args']['fond'],'prive/objets/',13)==0
-	  AND $echafauder = charger_fonction('echafauder','prive',true)) {
-		if (strncmp($flux['args']['fond'],'prive/objets/liste/',19)==0){
-			$table = table_objet(substr($flux['args']['fond'],19));
+	  AND strncmp($flux['args']['fond'], 'prive/objets/', 13) == 0
+	  AND $echafauder = charger_fonction('echafauder', 'prive', true)) {
+		if (strncmp($flux['args']['fond'], 'prive/objets/liste/', 19) == 0) {
+			$table = table_objet(substr($flux['args']['fond'], 19));
 			$table_sql = table_objet_sql($table);
 			$objets = lister_tables_objets_sql();
 			if (isset($objets[$table_sql]))
-				$flux['data'] = $echafauder($table,$table,$table_sql,"prive/objets/liste/objets",$flux['args']['ext']);
+				$flux['data'] = $echafauder($table, $table, $table_sql, "prive/objets/liste/objets", $flux['args']['ext']);
 		}
-		if (strncmp($flux['args']['fond'],'prive/objets/contenu/',21)==0){
-			$type = substr($flux['args']['fond'],21);
+		if (strncmp($flux['args']['fond'], 'prive/objets/contenu/', 21) == 0) {
+			$type = substr($flux['args']['fond'], 21);
 			$table = table_objet($type);
 			$table_sql = table_objet_sql($table);
 			$objets = lister_tables_objets_sql();
 			if (isset($objets[$table_sql]))
-				$flux['data'] = $echafauder($type,$table,$table_sql,"prive/objets/contenu/objet",$flux['args']['ext']);
+				$flux['data'] = $echafauder($type, $table, $table_sql, "prive/objets/contenu/objet", $flux['args']['ext']);
 		}
 	}
 	return $flux;
@@ -125,33 +125,33 @@ 
 		include_spip('public/quete');
 		$l = urls_liste_objets(false);
 		// placer la rubrique en tete des objets
-		$l = array_diff($l,array('rubrique'));
+		$l = array_diff($l, array('rubrique'));
 		array_unshift($l, 'rubrique');
-		foreach($l as $objet){
+		foreach ($l as $objet) {
 			$id = id_table_objet($objet);
 			if (!isset($liste_objets[$id]))
-				$liste_objets[$id] = objet_type($objet,false);
+				$liste_objets[$id] = objet_type($objet, false);
 		}
 	}
-	$c = array_intersect_key($contexte,$liste_objets);
+	$c = array_intersect_key($contexte, $liste_objets);
 	if (!count($c)) return false;
 
-	$c = array_map('intval',$c);
+	$c = array_map('intval', $c);
 	$s = serialize($c);
 	if (isset($quete[$s]))
 		return $quete[$s];
 
-	if (isset($c['id_rubrique']) AND $r = $c['id_rubrique']){
+	if (isset($c['id_rubrique']) AND $r = $c['id_rubrique']) {
 		unset($c['id_rubrique']);
 		$c = array('id_rubrique'=>$r) + $c;
 	}
 
-	foreach($c as $_id=>$id) {
+	foreach ($c as $_id=>$id) {
 		if ($id
-		  AND $row = quete_parent_lang(table_objet_sql($liste_objets[$_id]),$id)) {
+		  AND $row = quete_parent_lang(table_objet_sql($liste_objets[$_id]), $id)) {
 			$lang = isset($row['lang']) ? $row['lang'] : '';
-			if ($_id=='id_rubrique' OR (isset($row['id_rubrique']) AND $id=$row['id_rubrique']))
-				return $quete[$s] = array ($id, $lang);
+			if ($_id == 'id_rubrique' OR (isset($row['id_rubrique']) AND $id = $row['id_rubrique']))
+				return $quete[$s] = array($id, $lang);
 		}
 	}
 	return $quete[$s] = false;

Braces +30 added lines, -18 removed lines

@@ -11,7 +11,9 @@ 
 \***************************************************************************/
 
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 // Ce fichier doit imperativement definir la fonction ci-dessous:
 
@@ -36,14 +38,16 @@ 
 
 	// s'assurer que le fond est licite
 	// car il peut etre construit a partir d'une variable d'environnement
-	if (strpos($fond,"../")!==false OR strncmp($fond,'/',1)==0)
-		$fond = "404";
+	if (strpos($fond,"../")!==false OR strncmp($fond,'/',1)==0) {
+			$fond = "404";
+	}
   
 	// Choisir entre $fond-dist.html, $fond=7.html, etc?
 	$id_rubrique = 0;
 	// Chercher le fond qui va servir de squelette
-	if ($r = quete_rubrique_fond($contexte))
-		list($id_rubrique, $lang) = $r;
+	if ($r = quete_rubrique_fond($contexte)) {
+			list($id_rubrique, $lang) = $r;
+	}
 
 	// trouver un squelette du nom demande
 	// ne rien dire si on ne trouve pas, 
@@ -65,8 +69,9 @@ 
 	);
 
 	if (test_espace_prive() OR defined('_ZPIP')) {
-		if (!$styliser_par_z)
-			$styliser_par_z = charger_fonction('styliser_par_z','public');
+		if (!$styliser_par_z) {
+					$styliser_par_z = charger_fonction('styliser_par_z','public');
+		}
 		$flux = $styliser_par_z($flux);
 	}
 
@@ -87,16 +92,18 @@ 
 			$table = table_objet(substr($flux['args']['fond'],19));
 			$table_sql = table_objet_sql($table);
 			$objets = lister_tables_objets_sql();
-			if (isset($objets[$table_sql]))
-				$flux['data'] = $echafauder($table,$table,$table_sql,"prive/objets/liste/objets",$flux['args']['ext']);
+			if (isset($objets[$table_sql])) {
+							$flux['data'] = $echafauder($table,$table,$table_sql,"prive/objets/liste/objets",$flux['args']['ext']);
+			}
 		}
 		if (strncmp($flux['args']['fond'],'prive/objets/contenu/',21)==0){
 			$type = substr($flux['args']['fond'],21);
 			$table = table_objet($type);
 			$table_sql = table_objet_sql($table);
 			$objets = lister_tables_objets_sql();
-			if (isset($objets[$table_sql]))
-				$flux['data'] = $echafauder($type,$table,$table_sql,"prive/objets/contenu/objet",$flux['args']['ext']);
+			if (isset($objets[$table_sql])) {
+							$flux['data'] = $echafauder($type,$table,$table_sql,"prive/objets/contenu/objet",$flux['args']['ext']);
+			}
 		}
 	}
 	return $flux;
@@ -129,17 +136,21 @@ 
 		array_unshift($l, 'rubrique');
 		foreach($l as $objet){
 			$id = id_table_objet($objet);
-			if (!isset($liste_objets[$id]))
-				$liste_objets[$id] = objet_type($objet,false);
+			if (!isset($liste_objets[$id])) {
+							$liste_objets[$id] = objet_type($objet,false);
+			}
 		}
 	}
 	$c = array_intersect_key($contexte,$liste_objets);
-	if (!count($c)) return false;
+	if (!count($c)) {
+	    return false;
+	}
 
 	$c = array_map('intval',$c);
 	$s = serialize($c);
-	if (isset($quete[$s]))
-		return $quete[$s];
+	if (isset($quete[$s])) {
+			return $quete[$s];
+	}
 
 	if (isset($c['id_rubrique']) AND $r = $c['id_rubrique']){
 		unset($c['id_rubrique']);
@@ -150,8 +161,9 @@ 
 		if ($id
 		  AND $row = quete_parent_lang(table_objet_sql($liste_objets[$_id]),$id)) {
 			$lang = isset($row['lang']) ? $row['lang'] : '';
-			if ($_id=='id_rubrique' OR (isset($row['id_rubrique']) AND $id=$row['id_rubrique']))
-				return $quete[$s] = array ($id, $lang);
+			if ($_id=='id_rubrique' OR (isset($row['id_rubrique']) AND $id=$row['id_rubrique'])) {
+							return $quete[$s] = array ($id, $lang);
+			}
 		}
 	}
 	return $quete[$s] = false;

ecrire/public/styliser_par_z.php

Doc Comments +1 added lines, -3 removed lines

@@ -201,7 +201,7 @@ 
  * @param string $type
  * @param string $ext
  * @param bool $echafauder
- * @return mixed
+ * @return string|boolean
  */
 function z_contenu_disponible($prefix_path,$z_contenu,$type,$ext,$echafauder=true){
 	if ($d = z_trouver_bloc($prefix_path,$z_contenu,$type,$ext))
@@ -295,10 +295,8 @@ 
  * tous les squelettes d'echafaudage du prive sont en fait explicites dans prive/echafaudage
  * on ne fait qu'un mini squelette d'inclusion pour reecrire les variables d'env
  *
- * @param string $type
  * @param string $table
  * @param string $table_sql
- * @param array $desc
  * @param string $ext
  * @return string
  */

Indentation +245 added lines, -245 removed lines

@@ -20,164 +20,164 @@ 
  * @return array
  */
 function public_styliser_par_z_dist($flux){
-	static $prefix_path=null;
-	static $prefix_length;
-	static $z_blocs;
-	static $apl_constant;
-	static $page;
-	static $disponible = array();
-	static $echafauder;
-	static $prepend = "";
+    static $prefix_path=null;
+    static $prefix_length;
+    static $z_blocs;
+    static $apl_constant;
+    static $page;
+    static $disponible = array();
+    static $echafauder;
+    static $prepend = "";
 
-	if (!isset($prefix_path)) {
-		$z_blocs = z_blocs(test_espace_prive());
-		if (test_espace_prive ()){
-			$prefix_path = "prive/squelettes/";
-			$prefix_length = strlen($prefix_path);
-			$apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
-			$page = 'exec';
-			$echafauder = charger_fonction('echafauder','prive',true);
-			define('_ZCORE_EXCLURE_PATH','');
-		}
-		else {
-			$prefix_path = "";
-			$prefix_length = 0;
-			$apl_constant = '_Z_AJAX_PARALLEL_LOAD';
-			$page = _SPIP_PAGE;
-			$echafauder = charger_fonction('echafauder','public',true);
-			define('_ZCORE_EXCLURE_PATH','\bprive|\bsquelettes-dist'.(defined('_DIR_PLUGIN_DIST')?'|\b'.rtrim(_DIR_PLUGIN_DIST,'/'):''));
-		}
-	  $prepend = (defined('_Z_PREPEND_PATH')?_Z_PREPEND_PATH:"");
-	}
-	$z_contenu = reset($z_blocs); // contenu par defaut
+    if (!isset($prefix_path)) {
+        $z_blocs = z_blocs(test_espace_prive());
+        if (test_espace_prive ()){
+            $prefix_path = "prive/squelettes/";
+            $prefix_length = strlen($prefix_path);
+            $apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
+            $page = 'exec';
+            $echafauder = charger_fonction('echafauder','prive',true);
+            define('_ZCORE_EXCLURE_PATH','');
+        }
+        else {
+            $prefix_path = "";
+            $prefix_length = 0;
+            $apl_constant = '_Z_AJAX_PARALLEL_LOAD';
+            $page = _SPIP_PAGE;
+            $echafauder = charger_fonction('echafauder','public',true);
+            define('_ZCORE_EXCLURE_PATH','\bprive|\bsquelettes-dist'.(defined('_DIR_PLUGIN_DIST')?'|\b'.rtrim(_DIR_PLUGIN_DIST,'/'):''));
+        }
+        $prepend = (defined('_Z_PREPEND_PATH')?_Z_PREPEND_PATH:"");
+    }
+    $z_contenu = reset($z_blocs); // contenu par defaut
 
-	$fond = $flux['args']['fond'];
+    $fond = $flux['args']['fond'];
 
-	if ($prepend OR strncmp($fond,$prefix_path,$prefix_length)==0) {
-		$fond = substr($fond, $prefix_length);
-		$squelette = $flux['data'];
-		$ext = $flux['args']['ext'];
-		// Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
-		if (defined('_Z_AJAX_PARALLEL_LOAD_OK')
-			AND $dir = explode('/',$fond)
-			AND count($dir)==2 // pas un sous repertoire
-			AND $dir = reset($dir)
-			AND in_array($dir,$z_blocs) // verifier deja qu'on est dans un bloc Z
-			AND defined($apl_constant)
-			AND in_array($dir,explode(',',constant($apl_constant))) // et dans un demande en APL
-			AND $pipe = z_trouver_bloc($prefix_path.$prepend,$dir,'z_apl',$ext) // et qui contient le squelette APL
-			){
-			$flux['data'] = $pipe;
-			return $flux;
-		}
+    if ($prepend OR strncmp($fond,$prefix_path,$prefix_length)==0) {
+        $fond = substr($fond, $prefix_length);
+        $squelette = $flux['data'];
+        $ext = $flux['args']['ext'];
+        // Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
+        if (defined('_Z_AJAX_PARALLEL_LOAD_OK')
+            AND $dir = explode('/',$fond)
+            AND count($dir)==2 // pas un sous repertoire
+            AND $dir = reset($dir)
+            AND in_array($dir,$z_blocs) // verifier deja qu'on est dans un bloc Z
+            AND defined($apl_constant)
+            AND in_array($dir,explode(',',constant($apl_constant))) // et dans un demande en APL
+            AND $pipe = z_trouver_bloc($prefix_path.$prepend,$dir,'z_apl',$ext) // et qui contient le squelette APL
+            ){
+            $flux['data'] = $pipe;
+            return $flux;
+        }
 
-		// surcharger aussi les squelettes venant de squelettes-dist/
-		if ($squelette AND !z_fond_valide($squelette)){
-			$squelette = "";
-		  $echafauder = "";
-		}
-	  if ($prepend){
-		  $squelette = substr(find_in_path($prefix_path.$prepend."$fond.$ext"), 0, - strlen(".$ext"));
-	    if ($squelette)
-		    $flux['data'] = $squelette;
-	  }
+        // surcharger aussi les squelettes venant de squelettes-dist/
+        if ($squelette AND !z_fond_valide($squelette)){
+            $squelette = "";
+            $echafauder = "";
+        }
+        if ($prepend){
+            $squelette = substr(find_in_path($prefix_path.$prepend."$fond.$ext"), 0, - strlen(".$ext"));
+        if ($squelette)
+            $flux['data'] = $squelette;
+        }
 
-		// gerer les squelettes non trouves
-		// -> router vers les /dist.html
-		// ou scaffolding ou page automatique les contenus
-		if (!$squelette){
+        // gerer les squelettes non trouves
+        // -> router vers les /dist.html
+        // ou scaffolding ou page automatique les contenus
+        if (!$squelette){
 
-			// si on est sur un ?page=XX non trouve
-			if ($flux['args']['contexte'][$page] == $fond 
-				OR $flux['args']['contexte']['type-page'] == $fond
-				OR ($fond=='sommaire' AND !$flux['args']['contexte'][$page])) {
+            // si on est sur un ?page=XX non trouve
+            if ($flux['args']['contexte'][$page] == $fond 
+                OR $flux['args']['contexte']['type-page'] == $fond
+                OR ($fond=='sommaire' AND !$flux['args']['contexte'][$page])) {
 
-				// si on est sur un ?page=XX non trouve
-				// se brancher sur contenu/xx si il existe
-				// ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
-				if (!isset($disponible[$fond]))
-					$disponible[$fond] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$fond,$ext,$echafauder);
+                // si on est sur un ?page=XX non trouve
+                // se brancher sur contenu/xx si il existe
+                // ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
+                if (!isset($disponible[$fond]))
+                    $disponible[$fond] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$fond,$ext,$echafauder);
 
-				if ($disponible[$fond])
-					$flux['data'] = substr(find_in_path($prefix_path."page.$ext"), 0, - strlen(".$ext"));
-			}
+                if ($disponible[$fond])
+                    $flux['data'] = substr(find_in_path($prefix_path."page.$ext"), 0, - strlen(".$ext"));
+            }
 
-			// echafaudage :
-			// si c'est un fond de contenu d'un objet en base
-			// generer un fond automatique a la volee pour les webmestres
-			elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu)+1)==0){
-				$type = substr($fond,strlen($z_contenu)+1);
-				if (($type=='page') AND isset($flux['args']['contexte'][$page]))
-					$type = $flux['args']['contexte'][$page];
-				if (!isset($disponible[$type]))
-					$disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
-				if (is_string($disponible[$type])) {
-					$flux['data'] = $disponible[$type];
-				}
-				elseif ($echafauder
-					AND include_spip('inc/autoriser')
-					AND isset($GLOBALS['visiteur_session']['statut']) // performance
-					AND autoriser('echafauder',$type)
-					AND $is = $disponible[$type]
-					AND is_array($is)) {
-					$flux['data'] = $echafauder($type,$is[0],$is[1],$is[2],$ext);
-				}
-				else{
-					$flux['data'] = ($disponible['404'] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,'404',$ext,$echafauder));
-				}
-			}
+            // echafaudage :
+            // si c'est un fond de contenu d'un objet en base
+            // generer un fond automatique a la volee pour les webmestres
+            elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu)+1)==0){
+                $type = substr($fond,strlen($z_contenu)+1);
+                if (($type=='page') AND isset($flux['args']['contexte'][$page]))
+                    $type = $flux['args']['contexte'][$page];
+                if (!isset($disponible[$type]))
+                    $disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
+                if (is_string($disponible[$type])) {
+                    $flux['data'] = $disponible[$type];
+                }
+                elseif ($echafauder
+                    AND include_spip('inc/autoriser')
+                    AND isset($GLOBALS['visiteur_session']['statut']) // performance
+                    AND autoriser('echafauder',$type)
+                    AND $is = $disponible[$type]
+                    AND is_array($is)) {
+                    $flux['data'] = $echafauder($type,$is[0],$is[1],$is[2],$ext);
+                }
+                else{
+                    $flux['data'] = ($disponible['404'] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,'404',$ext,$echafauder));
+                }
+            }
 
-			// sinon, si on demande un fond non trouve dans un des autres blocs
-			// et si il y a bien un contenu correspondant ou echafaudable
-			// se rabbatre sur le dist.html du bloc concerne
-			else{
-				if ( $dir = explode('/',$fond)
-					AND $dir = reset($dir)
-					AND $dir !== $z_contenu
-					AND in_array($dir,$z_blocs)){
-					$type = substr($fond,strlen("$dir/"));
-					if (($type=='page') AND isset($flux['args']['contexte'][$page]))
-						$type = $flux['args']['contexte'][$page];
-					if ($type!=='page' AND !isset($disponible[$type]))
-						$disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
-					if ($type=='page' OR $disponible[$type])
-						$flux['data'] = z_trouver_bloc($prefix_path.$prepend,$dir,'dist',$ext);
-				}
-			}
-			$squelette = $flux['data'];
-		}
-		// layout specifiques par type et compositions :
-		// body-article.html
-		// body-sommaire.html
-		// pour des raisons de perfo, les declinaisons doivent etre dans le
-		// meme dossier que body.html
-		if ($fond=='body' AND substr($squelette,-strlen($fond))==$fond){
-			if (isset($flux['args']['contexte']['type-page'])
-				AND (
-					(isset($flux['args']['contexte']['composition'])
-					AND file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']."-".$flux['args']['contexte']['composition']).".$ext"))
-					OR
-					file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']).".$ext")
-					))
-				$flux['data'] = $f;
-		}
-		elseif ($fond=='structure' 
-			AND z_sanitize_var_zajax()
-			AND $f = find_in_path($prefix_path.$prepend.'ajax'.".$ext")) {
-			$flux['data'] = substr($f,0,-strlen(".$ext"));
-		}
-		// chercher le fond correspondant a la composition
-		elseif (isset($flux['args']['contexte']['composition'])
-			AND (basename($fond)=='page' OR ($squelette AND substr($squelette,-strlen($fond))==$fond))
-			AND $dir = substr($fond,$prefix_length)
-			AND $dir = explode('/',$dir)
-			AND $dir = reset($dir)
-			AND in_array($dir,$z_blocs)
-			AND $f=find_in_path($prefix_path.$prepend.$fond."-".$flux['args']['contexte']['composition'].".$ext")){
-			$flux['data'] = substr($f,0,-strlen(".$ext"));
-		}
-	}
-	return $flux;
+            // sinon, si on demande un fond non trouve dans un des autres blocs
+            // et si il y a bien un contenu correspondant ou echafaudable
+            // se rabbatre sur le dist.html du bloc concerne
+            else{
+                if ( $dir = explode('/',$fond)
+                    AND $dir = reset($dir)
+                    AND $dir !== $z_contenu
+                    AND in_array($dir,$z_blocs)){
+                    $type = substr($fond,strlen("$dir/"));
+                    if (($type=='page') AND isset($flux['args']['contexte'][$page]))
+                        $type = $flux['args']['contexte'][$page];
+                    if ($type!=='page' AND !isset($disponible[$type]))
+                        $disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
+                    if ($type=='page' OR $disponible[$type])
+                        $flux['data'] = z_trouver_bloc($prefix_path.$prepend,$dir,'dist',$ext);
+                }
+            }
+            $squelette = $flux['data'];
+        }
+        // layout specifiques par type et compositions :
+        // body-article.html
+        // body-sommaire.html
+        // pour des raisons de perfo, les declinaisons doivent etre dans le
+        // meme dossier que body.html
+        if ($fond=='body' AND substr($squelette,-strlen($fond))==$fond){
+            if (isset($flux['args']['contexte']['type-page'])
+                AND (
+                    (isset($flux['args']['contexte']['composition'])
+                    AND file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']."-".$flux['args']['contexte']['composition']).".$ext"))
+                    OR
+                    file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']).".$ext")
+                    ))
+                $flux['data'] = $f;
+        }
+        elseif ($fond=='structure' 
+            AND z_sanitize_var_zajax()
+            AND $f = find_in_path($prefix_path.$prepend.'ajax'.".$ext")) {
+            $flux['data'] = substr($f,0,-strlen(".$ext"));
+        }
+        // chercher le fond correspondant a la composition
+        elseif (isset($flux['args']['contexte']['composition'])
+            AND (basename($fond)=='page' OR ($squelette AND substr($squelette,-strlen($fond))==$fond))
+            AND $dir = substr($fond,$prefix_length)
+            AND $dir = explode('/',$dir)
+            AND $dir = reset($dir)
+            AND in_array($dir,$z_blocs)
+            AND $f=find_in_path($prefix_path.$prepend.$fond."-".$flux['args']['contexte']['composition'].".$ext")){
+            $flux['data'] = substr($f,0,-strlen(".$ext"));
+        }
+    }
+    return $flux;
 }
 
 /**
@@ -187,9 +187,9 @@ 
  * @return array
  */
 function z_blocs($espace_prive=false) {
-	if ($espace_prive)
-		return (isset($GLOBALS['z_blocs_ecrire'])?$GLOBALS['z_blocs_ecrire']:array('contenu','navigation','extra','head','hierarchie','top'));
-	return (isset($GLOBALS['z_blocs'])?$GLOBALS['z_blocs']:array('contenu'));
+    if ($espace_prive)
+        return (isset($GLOBALS['z_blocs_ecrire'])?$GLOBALS['z_blocs_ecrire']:array('contenu','navigation','extra','head','hierarchie','top'));
+    return (isset($GLOBALS['z_blocs'])?$GLOBALS['z_blocs']:array('contenu'));
 }
 
 /**
@@ -204,16 +204,16 @@ 
  * @return mixed
  */
 function z_contenu_disponible($prefix_path,$z_contenu,$type,$ext,$echafauder=true){
-	if ($d = z_trouver_bloc($prefix_path,$z_contenu,$type,$ext))
-		return $d;
-	return $echafauder?z_echafaudable($type):false;
+    if ($d = z_trouver_bloc($prefix_path,$z_contenu,$type,$ext))
+        return $d;
+    return $echafauder?z_echafaudable($type):false;
 }
 
 function z_fond_valide($squelette){
-	if (!_ZCORE_EXCLURE_PATH
-		OR !preg_match(',('._ZCORE_EXCLURE_PATH.')/,',$squelette))
-		return true;
-  return false;
+    if (!_ZCORE_EXCLURE_PATH
+        OR !preg_match(',('._ZCORE_EXCLURE_PATH.')/,',$squelette))
+        return true;
+    return false;
 }
 
 /**
@@ -233,13 +233,13 @@ 
  * @return string
  */
 function z_trouver_bloc($prefix_path,$bloc,$fond,$ext){
-	if (
-		(defined('_ZCORE_BLOC_PREFIX_SKEL') AND $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") AND z_fond_valide($f))
-		OR ($f = find_in_path("$prefix_path$bloc/$fond.$ext") AND z_fond_valide($f))
-		){
-		return substr($f, 0, - strlen(".$ext"));
-	}
-	return "";
+    if (
+        (defined('_ZCORE_BLOC_PREFIX_SKEL') AND $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") AND z_fond_valide($f))
+        OR ($f = find_in_path("$prefix_path$bloc/$fond.$ext") AND z_fond_valide($f))
+        ){
+        return substr($f, 0, - strlen(".$ext"));
+    }
+    return "";
 }
 /**
  * Tester si un type est echafaudable
@@ -250,43 +250,43 @@ 
  * @return bool
  */
 function z_echafaudable($type){
-	static $pages = null;
-	static $echafaudable = array();
-	if (isset($echafaudable[$type]))
-		return $echafaudable[$type];
-	if (preg_match(',[^\w],',$type))
-		return $echafaudable[$type] = false;
+    static $pages = null;
+    static $echafaudable = array();
+    if (isset($echafaudable[$type]))
+        return $echafaudable[$type];
+    if (preg_match(',[^\w],',$type))
+        return $echafaudable[$type] = false;
 
-	if (test_espace_prive()){
-		if (!function_exists('trouver_objet_exec'))
-			include_spip('inc/pipelines_ecrire');
-		if ($e=trouver_objet_exec($type)){
-			return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$e);
-		}
-		else {
-			// peut etre c'est un exec=types qui liste tous les objets "type"
-			if (($t=objet_type($type,false))!==$type
-			  AND $e=trouver_objet_exec($t)){
-				return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$t);
-			}
-		}
-	}
-	else {
-		if (is_null($pages)) {
-			$pages = array();
-			$liste = lister_tables_objets_sql();
-			foreach($liste as $t=>$d)
-				if ($d['page']) $pages[$d['page']] = array($d['table_objet'],$t);
-		}
-		if (!isset($pages[$type]))
-			return $echafaudable[$type] = false;
-		if (count($pages[$type])==2){
-			$trouver_table = charger_fonction('trouver_table','base');
-			$pages[$type][] = $trouver_table(reset($pages[$type]));
-		}
-		return $echafaudable[$type] = $pages[$type];
-	}
-	return $echafaudable[$type] = false;
+    if (test_espace_prive()){
+        if (!function_exists('trouver_objet_exec'))
+            include_spip('inc/pipelines_ecrire');
+        if ($e=trouver_objet_exec($type)){
+            return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$e);
+        }
+        else {
+            // peut etre c'est un exec=types qui liste tous les objets "type"
+            if (($t=objet_type($type,false))!==$type
+              AND $e=trouver_objet_exec($t)){
+                return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$t);
+            }
+        }
+    }
+    else {
+        if (is_null($pages)) {
+            $pages = array();
+            $liste = lister_tables_objets_sql();
+            foreach($liste as $t=>$d)
+                if ($d['page']) $pages[$d['page']] = array($d['table_objet'],$t);
+        }
+        if (!isset($pages[$type]))
+            return $echafaudable[$type] = false;
+        if (count($pages[$type])==2){
+            $trouver_table = charger_fonction('trouver_table','base');
+            $pages[$type][] = $trouver_table(reset($pages[$type]));
+        }
+        return $echafaudable[$type] = $pages[$type];
+    }
+    return $echafaudable[$type] = false;
 }
 
 
@@ -303,45 +303,45 @@ 
  * @return string
  */
 function prive_echafauder_dist($exec,$table,$table_sql,$desc_exec,$ext){
-	$scaffold = "";
+    $scaffold = "";
 
-	// page objet ou objet_edit
-	if (is_array($desc_exec)) {
-		$type = $desc_exec['type'];
-		$primary = $desc_exec['id_table_objet'];
+    // page objet ou objet_edit
+    if (is_array($desc_exec)) {
+        $type = $desc_exec['type'];
+        $primary = $desc_exec['id_table_objet'];
 
-		if ($desc_exec['edition']===false)
-			$fond = "objet";
-		else {
-			$trouver_table = charger_fonction('trouver_table','base');
-			$desc = $trouver_table($table_sql);
-			if (isset($desc['field']['id_rubrique']))
-				$fond = 'objet_edit';
-			else
-				$fond = 'objet_edit.sans_rubrique';
-		}
-		$dir = z_blocs(test_espace_prive());
-		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/".$fond.",objet=".$type.",id_objet=#".strtoupper($primary).",env}>";
-	}
-	// page objets
-	elseif($type = $desc_exec AND strpos($type,"/")===false){
-		$dir = z_blocs(test_espace_prive());
-		$dir = reset($dir);
-		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=".$type.",env} />";
-	}
-	// morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
-	// et objet et tire de $table
-	elseif($fond = $desc_exec){
-		$dir = md5(dirname($fond));
-		$scaffold = "<INCLURE{fond=$fond,objet=".objet_type($table).",env} />";
-	}
+        if ($desc_exec['edition']===false)
+            $fond = "objet";
+        else {
+            $trouver_table = charger_fonction('trouver_table','base');
+            $desc = $trouver_table($table_sql);
+            if (isset($desc['field']['id_rubrique']))
+                $fond = 'objet_edit';
+            else
+                $fond = 'objet_edit.sans_rubrique';
+        }
+        $dir = z_blocs(test_espace_prive());
+        $dir = reset($dir);
+        $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/".$fond.",objet=".$type.",id_objet=#".strtoupper($primary).",env}>";
+    }
+    // page objets
+    elseif($type = $desc_exec AND strpos($type,"/")===false){
+        $dir = z_blocs(test_espace_prive());
+        $dir = reset($dir);
+        $scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=".$type.",env} />";
+    }
+    // morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
+    // et objet et tire de $table
+    elseif($fond = $desc_exec){
+        $dir = md5(dirname($fond));
+        $scaffold = "<INCLURE{fond=$fond,objet=".objet_type($table).",env} />";
+    }
 
-	$base_dir = sous_repertoire(_DIR_CACHE,"scaffold",false);
-	$base_dir = sous_repertoire($base_dir,$dir,false);
-	$f = $base_dir."$exec";
-	ecrire_fichier("$f.$ext",$scaffold);
-	return $f;
+    $base_dir = sous_repertoire(_DIR_CACHE,"scaffold",false);
+    $base_dir = sous_repertoire($base_dir,$dir,false);
+    $f = $base_dir."$exec";
+    ecrire_fichier("$f.$ext",$scaffold);
+    return $f;
 }
 
 /**
@@ -349,13 +349,13 @@ 
  * @return bool|string
  */
 function z_sanitize_var_zajax(){
-	$z_ajax = _request('var_zajax');
-	if (!$z_ajax) return false;
-	if (!$z_blocs = z_blocs(test_espace_prive())
-	  OR !in_array($z_ajax,$z_blocs)) {
-		set_request('var_zajax'); // enlever cette demande incongrue
-		$z_ajax = false;
-	}
-	return $z_ajax;
+    $z_ajax = _request('var_zajax');
+    if (!$z_ajax) return false;
+    if (!$z_blocs = z_blocs(test_espace_prive())
+      OR !in_array($z_ajax,$z_blocs)) {
+        set_request('var_zajax'); // enlever cette demande incongrue
+        $z_ajax = false;
+    }
+    return $z_ajax;
 }
 ?>

Braces +71 added lines, -55 removed lines

@@ -11,7 +11,9 @@ 
 \***************************************************************************/
 
 
-if (!defined("_ECRIRE_INC_VERSION")) return;
+if (!defined("_ECRIRE_INC_VERSION")) {
+    return;
+}
 
 /**
  * Fonction Page automatique a partir de contenu/xx
@@ -38,8 +40,7 @@ 
 			$page = 'exec';
 			$echafauder = charger_fonction('echafauder','prive',true);
 			define('_ZCORE_EXCLURE_PATH','');
-		}
-		else {
+		} else {
 			$prefix_path = "";
 			$prefix_length = 0;
 			$apl_constant = '_Z_AJAX_PARALLEL_LOAD';
@@ -78,8 +79,9 @@ 
 		}
 	  if ($prepend){
 		  $squelette = substr(find_in_path($prefix_path.$prepend."$fond.$ext"), 0, - strlen(".$ext"));
-	    if ($squelette)
-		    $flux['data'] = $squelette;
+	    if ($squelette) {
+	    		    $flux['data'] = $squelette;
+	    }
 	  }
 
 		// gerer les squelettes non trouves
@@ -95,11 +97,13 @@ 
 				// si on est sur un ?page=XX non trouve
 				// se brancher sur contenu/xx si il existe
 				// ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
-				if (!isset($disponible[$fond]))
-					$disponible[$fond] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$fond,$ext,$echafauder);
+				if (!isset($disponible[$fond])) {
+									$disponible[$fond] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$fond,$ext,$echafauder);
+				}
 
-				if ($disponible[$fond])
-					$flux['data'] = substr(find_in_path($prefix_path."page.$ext"), 0, - strlen(".$ext"));
+				if ($disponible[$fond]) {
+									$flux['data'] = substr(find_in_path($prefix_path."page.$ext"), 0, - strlen(".$ext"));
+				}
 			}
 
 			// echafaudage :
@@ -107,22 +111,22 @@ 
 			// generer un fond automatique a la volee pour les webmestres
 			elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu)+1)==0){
 				$type = substr($fond,strlen($z_contenu)+1);
-				if (($type=='page') AND isset($flux['args']['contexte'][$page]))
-					$type = $flux['args']['contexte'][$page];
-				if (!isset($disponible[$type]))
-					$disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
+				if (($type=='page') AND isset($flux['args']['contexte'][$page])) {
+									$type = $flux['args']['contexte'][$page];
+				}
+				if (!isset($disponible[$type])) {
+									$disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
+				}
 				if (is_string($disponible[$type])) {
 					$flux['data'] = $disponible[$type];
-				}
-				elseif ($echafauder
+				} elseif ($echafauder
 					AND include_spip('inc/autoriser')
 					AND isset($GLOBALS['visiteur_session']['statut']) // performance
 					AND autoriser('echafauder',$type)
 					AND $is = $disponible[$type]
 					AND is_array($is)) {
 					$flux['data'] = $echafauder($type,$is[0],$is[1],$is[2],$ext);
-				}
-				else{
+				} else{
 					$flux['data'] = ($disponible['404'] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,'404',$ext,$echafauder));
 				}
 			}
@@ -136,12 +140,15 @@ 
 					AND $dir !== $z_contenu
 					AND in_array($dir,$z_blocs)){
 					$type = substr($fond,strlen("$dir/"));
-					if (($type=='page') AND isset($flux['args']['contexte'][$page]))
-						$type = $flux['args']['contexte'][$page];
-					if ($type!=='page' AND !isset($disponible[$type]))
-						$disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
-					if ($type=='page' OR $disponible[$type])
-						$flux['data'] = z_trouver_bloc($prefix_path.$prepend,$dir,'dist',$ext);
+					if (($type=='page') AND isset($flux['args']['contexte'][$page])) {
+											$type = $flux['args']['contexte'][$page];
+					}
+					if ($type!=='page' AND !isset($disponible[$type])) {
+											$disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
+					}
+					if ($type=='page' OR $disponible[$type]) {
+											$flux['data'] = z_trouver_bloc($prefix_path.$prepend,$dir,'dist',$ext);
+					}
 				}
 			}
 			$squelette = $flux['data'];
@@ -158,10 +165,10 @@ 
 					AND file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']."-".$flux['args']['contexte']['composition']).".$ext"))
 					OR
 					file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']).".$ext")
-					))
-				$flux['data'] = $f;
-		}
-		elseif ($fond=='structure' 
+					)) {
+							$flux['data'] = $f;
+			}
+		} elseif ($fond=='structure' 
 			AND z_sanitize_var_zajax()
 			AND $f = find_in_path($prefix_path.$prepend.'ajax'.".$ext")) {
 			$flux['data'] = substr($f,0,-strlen(".$ext"));
@@ -187,8 +194,9 @@ 
  * @return array
  */
 function z_blocs($espace_prive=false) {
-	if ($espace_prive)
-		return (isset($GLOBALS['z_blocs_ecrire'])?$GLOBALS['z_blocs_ecrire']:array('contenu','navigation','extra','head','hierarchie','top'));
+	if ($espace_prive) {
+			return (isset($GLOBALS['z_blocs_ecrire'])?$GLOBALS['z_blocs_ecrire']:array('contenu','navigation','extra','head','hierarchie','top'));
+	}
 	return (isset($GLOBALS['z_blocs'])?$GLOBALS['z_blocs']:array('contenu'));
 }
 
@@ -204,15 +212,17 @@ 
  * @return mixed
  */
 function z_contenu_disponible($prefix_path,$z_contenu,$type,$ext,$echafauder=true){
-	if ($d = z_trouver_bloc($prefix_path,$z_contenu,$type,$ext))
-		return $d;
+	if ($d = z_trouver_bloc($prefix_path,$z_contenu,$type,$ext)) {
+			return $d;
+	}
 	return $echafauder?z_echafaudable($type):false;
 }
 
 function z_fond_valide($squelette){
 	if (!_ZCORE_EXCLURE_PATH
-		OR !preg_match(',('._ZCORE_EXCLURE_PATH.')/,',$squelette))
-		return true;
+		OR !preg_match(',('._ZCORE_EXCLURE_PATH.')/,',$squelette)) {
+			return true;
+	}
   return false;
 }
 
@@ -252,34 +262,37 @@ 
 function z_echafaudable($type){
 	static $pages = null;
 	static $echafaudable = array();
-	if (isset($echafaudable[$type]))
-		return $echafaudable[$type];
-	if (preg_match(',[^\w],',$type))
-		return $echafaudable[$type] = false;
+	if (isset($echafaudable[$type])) {
+			return $echafaudable[$type];
+	}
+	if (preg_match(',[^\w],',$type)) {
+			return $echafaudable[$type] = false;
+	}
 
 	if (test_espace_prive()){
-		if (!function_exists('trouver_objet_exec'))
-			include_spip('inc/pipelines_ecrire');
+		if (!function_exists('trouver_objet_exec')) {
+					include_spip('inc/pipelines_ecrire');
+		}
 		if ($e=trouver_objet_exec($type)){
 			return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$e);
-		}
-		else {
+		} else {
 			// peut etre c'est un exec=types qui liste tous les objets "type"
 			if (($t=objet_type($type,false))!==$type
 			  AND $e=trouver_objet_exec($t)){
 				return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$t);
 			}
 		}
-	}
-	else {
+	} else {
 		if (is_null($pages)) {
 			$pages = array();
 			$liste = lister_tables_objets_sql();
-			foreach($liste as $t=>$d)
-				if ($d['page']) $pages[$d['page']] = array($d['table_objet'],$t);
+			foreach($liste as $t=>$d) {
+							if ($d['page']) $pages[$d['page']] = array($d['table_objet'],$t);
+			}
+		}
+		if (!isset($pages[$type])) {
+					return $echafaudable[$type] = false;
 		}
-		if (!isset($pages[$type]))
-			return $echafaudable[$type] = false;
 		if (count($pages[$type])==2){
 			$trouver_table = charger_fonction('trouver_table','base');
 			$pages[$type][] = $trouver_table(reset($pages[$type]));
@@ -310,15 +323,16 @@ 
 		$type = $desc_exec['type'];
 		$primary = $desc_exec['id_table_objet'];
 
-		if ($desc_exec['edition']===false)
-			$fond = "objet";
-		else {
+		if ($desc_exec['edition']===false) {
+					$fond = "objet";
+		} else {
 			$trouver_table = charger_fonction('trouver_table','base');
 			$desc = $trouver_table($table_sql);
-			if (isset($desc['field']['id_rubrique']))
-				$fond = 'objet_edit';
-			else
-				$fond = 'objet_edit.sans_rubrique';
+			if (isset($desc['field']['id_rubrique'])) {
+							$fond = 'objet_edit';
+			} else {
+							$fond = 'objet_edit.sans_rubrique';
+			}
 		}
 		$dir = z_blocs(test_espace_prive());
 		$dir = reset($dir);
@@ -350,7 +364,9 @@ 
  */
 function z_sanitize_var_zajax(){
 	$z_ajax = _request('var_zajax');
-	if (!$z_ajax) return false;
+	if (!$z_ajax) {
+	    return false;
+	}
 	if (!$z_blocs = z_blocs(test_espace_prive())
 	  OR !in_array($z_ajax,$z_blocs)) {
 		set_request('var_zajax'); // enlever cette demande incongrue

Spacing +80 added lines, -80 removed lines

@@ -19,8 +19,8 @@ 
  * @param array $flux
  * @return array
  */
-function public_styliser_par_z_dist($flux){
-	static $prefix_path=null;
+function public_styliser_par_z_dist($flux) {
+	static $prefix_path = null;
 	static $prefix_length;
 	static $z_blocs;
 	static $apl_constant;
@@ -31,52 +31,52 @@ 
 
 	if (!isset($prefix_path)) {
 		$z_blocs = z_blocs(test_espace_prive());
-		if (test_espace_prive ()){
+		if (test_espace_prive()) {
 			$prefix_path = "prive/squelettes/";
 			$prefix_length = strlen($prefix_path);
 			$apl_constant = '_ECRIRE_AJAX_PARALLEL_LOAD';
 			$page = 'exec';
-			$echafauder = charger_fonction('echafauder','prive',true);
-			define('_ZCORE_EXCLURE_PATH','');
+			$echafauder = charger_fonction('echafauder', 'prive', true);
+			define('_ZCORE_EXCLURE_PATH', '');
 		}
 		else {
 			$prefix_path = "";
 			$prefix_length = 0;
 			$apl_constant = '_Z_AJAX_PARALLEL_LOAD';
 			$page = _SPIP_PAGE;
-			$echafauder = charger_fonction('echafauder','public',true);
-			define('_ZCORE_EXCLURE_PATH','\bprive|\bsquelettes-dist'.(defined('_DIR_PLUGIN_DIST')?'|\b'.rtrim(_DIR_PLUGIN_DIST,'/'):''));
+			$echafauder = charger_fonction('echafauder', 'public', true);
+			define('_ZCORE_EXCLURE_PATH', '\bprive|\bsquelettes-dist'.(defined('_DIR_PLUGIN_DIST') ? '|\b'.rtrim(_DIR_PLUGIN_DIST, '/') : ''));
 		}
-	  $prepend = (defined('_Z_PREPEND_PATH')?_Z_PREPEND_PATH:"");
+	  $prepend = (defined('_Z_PREPEND_PATH') ?_Z_PREPEND_PATH:"");
 	}
 	$z_contenu = reset($z_blocs); // contenu par defaut
 
 	$fond = $flux['args']['fond'];
 
-	if ($prepend OR strncmp($fond,$prefix_path,$prefix_length)==0) {
+	if ($prepend OR strncmp($fond, $prefix_path, $prefix_length) == 0) {
 		$fond = substr($fond, $prefix_length);
 		$squelette = $flux['data'];
 		$ext = $flux['args']['ext'];
 		// Ajax Parallel loading : ne pas calculer le bloc, mais renvoyer un js qui le loadera en ajax
 		if (defined('_Z_AJAX_PARALLEL_LOAD_OK')
-			AND $dir = explode('/',$fond)
-			AND count($dir)==2 // pas un sous repertoire
+			AND $dir = explode('/', $fond)
+			AND count($dir) == 2 // pas un sous repertoire
 			AND $dir = reset($dir)
-			AND in_array($dir,$z_blocs) // verifier deja qu'on est dans un bloc Z
+			AND in_array($dir, $z_blocs) // verifier deja qu'on est dans un bloc Z
 			AND defined($apl_constant)
-			AND in_array($dir,explode(',',constant($apl_constant))) // et dans un demande en APL
-			AND $pipe = z_trouver_bloc($prefix_path.$prepend,$dir,'z_apl',$ext) // et qui contient le squelette APL
-			){
+			AND in_array($dir, explode(',', constant($apl_constant))) // et dans un demande en APL
+			AND $pipe = z_trouver_bloc($prefix_path.$prepend, $dir, 'z_apl', $ext) // et qui contient le squelette APL
+			) {
 			$flux['data'] = $pipe;
 			return $flux;
 		}
 
 		// surcharger aussi les squelettes venant de squelettes-dist/
-		if ($squelette AND !z_fond_valide($squelette)){
+		if ($squelette AND !z_fond_valide($squelette)) {
 			$squelette = "";
 		  $echafauder = "";
 		}
-	  if ($prepend){
+	  if ($prepend) {
 		  $squelette = substr(find_in_path($prefix_path.$prepend."$fond.$ext"), 0, - strlen(".$ext"));
 	    if ($squelette)
 		    $flux['data'] = $squelette;
@@ -85,18 +85,18 @@ 
 		// gerer les squelettes non trouves
 		// -> router vers les /dist.html
 		// ou scaffolding ou page automatique les contenus
-		if (!$squelette){
+		if (!$squelette) {
 
 			// si on est sur un ?page=XX non trouve
 			if ($flux['args']['contexte'][$page] == $fond 
 				OR $flux['args']['contexte']['type-page'] == $fond
-				OR ($fond=='sommaire' AND !$flux['args']['contexte'][$page])) {
+				OR ($fond == 'sommaire' AND !$flux['args']['contexte'][$page])) {
 
 				// si on est sur un ?page=XX non trouve
 				// se brancher sur contenu/xx si il existe
 				// ou si c'est un objet spip, associe a une table, utiliser le fond homonyme
 				if (!isset($disponible[$fond]))
-					$disponible[$fond] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$fond,$ext,$echafauder);
+					$disponible[$fond] = z_contenu_disponible($prefix_path.$prepend, $z_contenu, $fond, $ext, $echafauder);
 
 				if ($disponible[$fond])
 					$flux['data'] = substr(find_in_path($prefix_path."page.$ext"), 0, - strlen(".$ext"));
@@ -105,43 +105,43 @@ 
 			// echafaudage :
 			// si c'est un fond de contenu d'un objet en base
 			// generer un fond automatique a la volee pour les webmestres
-			elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu)+1)==0){
-				$type = substr($fond,strlen($z_contenu)+1);
-				if (($type=='page') AND isset($flux['args']['contexte'][$page]))
+			elseif (strncmp($fond, "$z_contenu/", strlen($z_contenu) + 1) == 0) {
+				$type = substr($fond, strlen($z_contenu) + 1);
+				if (($type == 'page') AND isset($flux['args']['contexte'][$page]))
 					$type = $flux['args']['contexte'][$page];
 				if (!isset($disponible[$type]))
-					$disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
+					$disponible[$type] = z_contenu_disponible($prefix_path.$prepend, $z_contenu, $type, $ext, $echafauder);
 				if (is_string($disponible[$type])) {
 					$flux['data'] = $disponible[$type];
 				}
 				elseif ($echafauder
 					AND include_spip('inc/autoriser')
 					AND isset($GLOBALS['visiteur_session']['statut']) // performance
-					AND autoriser('echafauder',$type)
+					AND autoriser('echafauder', $type)
 					AND $is = $disponible[$type]
 					AND is_array($is)) {
-					$flux['data'] = $echafauder($type,$is[0],$is[1],$is[2],$ext);
+					$flux['data'] = $echafauder($type, $is[0], $is[1], $is[2], $ext);
 				}
-				else{
-					$flux['data'] = ($disponible['404'] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,'404',$ext,$echafauder));
+				else {
+					$flux['data'] = ($disponible['404'] = z_contenu_disponible($prefix_path.$prepend, $z_contenu, '404', $ext, $echafauder));
 				}
 			}
 
 			// sinon, si on demande un fond non trouve dans un des autres blocs
 			// et si il y a bien un contenu correspondant ou echafaudable
 			// se rabbatre sur le dist.html du bloc concerne
-			else{
-				if ( $dir = explode('/',$fond)
+			else {
+				if ($dir = explode('/', $fond)
 					AND $dir = reset($dir)
 					AND $dir !== $z_contenu
-					AND in_array($dir,$z_blocs)){
-					$type = substr($fond,strlen("$dir/"));
-					if (($type=='page') AND isset($flux['args']['contexte'][$page]))
+					AND in_array($dir, $z_blocs)) {
+					$type = substr($fond, strlen("$dir/"));
+					if (($type == 'page') AND isset($flux['args']['contexte'][$page]))
 						$type = $flux['args']['contexte'][$page];
-					if ($type!=='page' AND !isset($disponible[$type]))
-						$disponible[$type] = z_contenu_disponible($prefix_path.$prepend,$z_contenu,$type,$ext,$echafauder);
-					if ($type=='page' OR $disponible[$type])
-						$flux['data'] = z_trouver_bloc($prefix_path.$prepend,$dir,'dist',$ext);
+					if ($type !== 'page' AND !isset($disponible[$type]))
+						$disponible[$type] = z_contenu_disponible($prefix_path.$prepend, $z_contenu, $type, $ext, $echafauder);
+					if ($type == 'page' OR $disponible[$type])
+						$flux['data'] = z_trouver_bloc($prefix_path.$prepend, $dir, 'dist', $ext);
 				}
 			}
 			$squelette = $flux['data'];
@@ -151,30 +151,30 @@ 
 		// body-sommaire.html
 		// pour des raisons de perfo, les declinaisons doivent etre dans le
 		// meme dossier que body.html
-		if ($fond=='body' AND substr($squelette,-strlen($fond))==$fond){
+		if ($fond == 'body' AND substr($squelette, -strlen($fond)) == $fond) {
 			if (isset($flux['args']['contexte']['type-page'])
 				AND (
 					(isset($flux['args']['contexte']['composition'])
-					AND file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']."-".$flux['args']['contexte']['composition']).".$ext"))
+					AND file_exists(($f = $squelette."-".$flux['args']['contexte']['type-page']."-".$flux['args']['contexte']['composition']).".$ext"))
 					OR
-					file_exists(($f=$squelette."-".$flux['args']['contexte']['type-page']).".$ext")
+					file_exists(($f = $squelette."-".$flux['args']['contexte']['type-page']).".$ext")
 					))
 				$flux['data'] = $f;
 		}
-		elseif ($fond=='structure' 
+		elseif ($fond == 'structure' 
 			AND z_sanitize_var_zajax()
 			AND $f = find_in_path($prefix_path.$prepend.'ajax'.".$ext")) {
-			$flux['data'] = substr($f,0,-strlen(".$ext"));
+			$flux['data'] = substr($f, 0, -strlen(".$ext"));
 		}
 		// chercher le fond correspondant a la composition
 		elseif (isset($flux['args']['contexte']['composition'])
-			AND (basename($fond)=='page' OR ($squelette AND substr($squelette,-strlen($fond))==$fond))
-			AND $dir = substr($fond,$prefix_length)
-			AND $dir = explode('/',$dir)
+			AND (basename($fond) == 'page' OR ($squelette AND substr($squelette, -strlen($fond)) == $fond))
+			AND $dir = substr($fond, $prefix_length)
+			AND $dir = explode('/', $dir)
 			AND $dir = reset($dir)
-			AND in_array($dir,$z_blocs)
-			AND $f=find_in_path($prefix_path.$prepend.$fond."-".$flux['args']['contexte']['composition'].".$ext")){
-			$flux['data'] = substr($f,0,-strlen(".$ext"));
+			AND in_array($dir, $z_blocs)
+			AND $f = find_in_path($prefix_path.$prepend.$fond."-".$flux['args']['contexte']['composition'].".$ext")) {
+			$flux['data'] = substr($f, 0, -strlen(".$ext"));
 		}
 	}
 	return $flux;
@@ -186,10 +186,10 @@ 
  * @param bool $espace_prive
  * @return array
  */
-function z_blocs($espace_prive=false) {
+function z_blocs($espace_prive = false) {
 	if ($espace_prive)
-		return (isset($GLOBALS['z_blocs_ecrire'])?$GLOBALS['z_blocs_ecrire']:array('contenu','navigation','extra','head','hierarchie','top'));
-	return (isset($GLOBALS['z_blocs'])?$GLOBALS['z_blocs']:array('contenu'));
+		return (isset($GLOBALS['z_blocs_ecrire']) ? $GLOBALS['z_blocs_ecrire'] : array('contenu', 'navigation', 'extra', 'head', 'hierarchie', 'top'));
+	return (isset($GLOBALS['z_blocs']) ? $GLOBALS['z_blocs'] : array('contenu'));
 }
 
 /**
@@ -203,15 +203,15 @@ 
  * @param bool $echafauder
  * @return mixed
  */
-function z_contenu_disponible($prefix_path,$z_contenu,$type,$ext,$echafauder=true){
-	if ($d = z_trouver_bloc($prefix_path,$z_contenu,$type,$ext))
+function z_contenu_disponible($prefix_path, $z_contenu, $type, $ext, $echafauder = true) {
+	if ($d = z_trouver_bloc($prefix_path, $z_contenu, $type, $ext))
 		return $d;
-	return $echafauder?z_echafaudable($type):false;
+	return $echafauder ?z_echafaudable($type) : false;
 }
 
-function z_fond_valide($squelette){
+function z_fond_valide($squelette) {
 	if (!_ZCORE_EXCLURE_PATH
-		OR !preg_match(',('._ZCORE_EXCLURE_PATH.')/,',$squelette))
+		OR !preg_match(',('._ZCORE_EXCLURE_PATH.')/,', $squelette))
 		return true;
   return false;
 }
@@ -232,11 +232,11 @@ 
  *	extension du squelette
  * @return string
  */
-function z_trouver_bloc($prefix_path,$bloc,$fond,$ext){
+function z_trouver_bloc($prefix_path, $bloc, $fond, $ext) {
 	if (
 		(defined('_ZCORE_BLOC_PREFIX_SKEL') AND $f = find_in_path("$prefix_path$bloc/$bloc.$fond.$ext") AND z_fond_valide($f))
 		OR ($f = find_in_path("$prefix_path$bloc/$fond.$ext") AND z_fond_valide($f))
-		){
+		) {
 		return substr($f, 0, - strlen(".$ext"));
 	}
 	return "";
@@ -249,25 +249,25 @@ 
  * @param string $type
  * @return bool
  */
-function z_echafaudable($type){
+function z_echafaudable($type) {
 	static $pages = null;
 	static $echafaudable = array();
 	if (isset($echafaudable[$type]))
 		return $echafaudable[$type];
-	if (preg_match(',[^\w],',$type))
+	if (preg_match(',[^\w],', $type))
 		return $echafaudable[$type] = false;
 
-	if (test_espace_prive()){
+	if (test_espace_prive()) {
 		if (!function_exists('trouver_objet_exec'))
 			include_spip('inc/pipelines_ecrire');
-		if ($e=trouver_objet_exec($type)){
-			return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$e);
+		if ($e = trouver_objet_exec($type)) {
+			return $echafaudable[$type] = array($e['table'], $e['table_objet_sql'], $e);
 		}
 		else {
 			// peut etre c'est un exec=types qui liste tous les objets "type"
-			if (($t=objet_type($type,false))!==$type
-			  AND $e=trouver_objet_exec($t)){
-				return $echafaudable[$type] = array($e['table'],$e['table_objet_sql'],$t);
+			if (($t = objet_type($type, false)) !== $type
+			  AND $e = trouver_objet_exec($t)) {
+				return $echafaudable[$type] = array($e['table'], $e['table_objet_sql'], $t);
 			}
 		}
 	}
@@ -275,13 +275,13 @@ 
 		if (is_null($pages)) {
 			$pages = array();
 			$liste = lister_tables_objets_sql();
-			foreach($liste as $t=>$d)
-				if ($d['page']) $pages[$d['page']] = array($d['table_objet'],$t);
+			foreach ($liste as $t=>$d)
+				if ($d['page']) $pages[$d['page']] = array($d['table_objet'], $t);
 		}
 		if (!isset($pages[$type]))
 			return $echafaudable[$type] = false;
-		if (count($pages[$type])==2){
-			$trouver_table = charger_fonction('trouver_table','base');
+		if (count($pages[$type]) == 2) {
+			$trouver_table = charger_fonction('trouver_table', 'base');
 			$pages[$type][] = $trouver_table(reset($pages[$type]));
 		}
 		return $echafaudable[$type] = $pages[$type];
@@ -302,7 +302,7 @@ 
  * @param string $ext
  * @return string
  */
-function prive_echafauder_dist($exec,$table,$table_sql,$desc_exec,$ext){
+function prive_echafauder_dist($exec, $table, $table_sql, $desc_exec, $ext) {
 	$scaffold = "";
 
 	// page objet ou objet_edit
@@ -310,10 +310,10 @@ 
 		$type = $desc_exec['type'];
 		$primary = $desc_exec['id_table_objet'];
 
-		if ($desc_exec['edition']===false)
+		if ($desc_exec['edition'] === false)
 			$fond = "objet";
 		else {
-			$trouver_table = charger_fonction('trouver_table','base');
+			$trouver_table = charger_fonction('trouver_table', 'base');
 			$desc = $trouver_table($table_sql);
 			if (isset($desc['field']['id_rubrique']))
 				$fond = 'objet_edit';
@@ -325,22 +325,22 @@ 
 		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/".$fond.",objet=".$type.",id_objet=#".strtoupper($primary).",env}>";
 	}
 	// page objets
-	elseif($type = $desc_exec AND strpos($type,"/")===false){
+	elseif ($type = $desc_exec AND strpos($type, "/") === false) {
 		$dir = z_blocs(test_espace_prive());
 		$dir = reset($dir);
 		$scaffold = "<INCLURE{fond=prive/echafaudage/$dir/objets,objet=".$type.",env} />";
 	}
 	// morceau d'objet : on fournit le fond de sibstitution dans $desc_exec
 	// et objet et tire de $table
-	elseif($fond = $desc_exec){
+	elseif ($fond = $desc_exec) {
 		$dir = md5(dirname($fond));
 		$scaffold = "<INCLURE{fond=$fond,objet=".objet_type($table).",env} />";
 	}
 
-	$base_dir = sous_repertoire(_DIR_CACHE,"scaffold",false);
-	$base_dir = sous_repertoire($base_dir,$dir,false);
+	$base_dir = sous_repertoire(_DIR_CACHE, "scaffold", false);
+	$base_dir = sous_repertoire($base_dir, $dir, false);
 	$f = $base_dir."$exec";
-	ecrire_fichier("$f.$ext",$scaffold);
+	ecrire_fichier("$f.$ext", $scaffold);
 	return $f;
 }
 
@@ -348,11 +348,11 @@ 
  * Recuperer et verifier var_zajax si demande dans l'url
  * @return bool|string
  */
-function z_sanitize_var_zajax(){
+function z_sanitize_var_zajax() {
 	$z_ajax = _request('var_zajax');
 	if (!$z_ajax) return false;
 	if (!$z_blocs = z_blocs(test_espace_prive())
-	  OR !in_array($z_ajax,$z_blocs)) {
+	  OR !in_array($z_ajax, $z_blocs)) {
 		set_request('var_zajax'); // enlever cette demande incongrue
 		$z_ajax = false;
 	}

ecrire/req/pg.php

Doc Comments +29 added lines, -4 removed lines

@@ -120,6 +120,11 @@ 
 
 // Par ou ca passe une fois les traductions faites
 // http://doc.spip.org/@spip_pg_trace_query
+/**
+ * @param string $query
+ *
+ * @return resource
+ */
 function spip_pg_trace_query($query, $serveur='')
 {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
@@ -255,6 +260,9 @@ 
 }
 	      
 // http://doc.spip.org/@spip_pg_alter_change
+/**
+ * @param string $arg
+ */
 function spip_pg_alter_change($table, $arg, $serveur='',$requeter=true)
 {
 	if (!preg_match('/^`?(\w+)`?\s+`?(\w+)`?\s+(.*?)\s*(DEFAULT .*?)?(NOT\s+NULL)?\s*(DEFAULT .*?)?$/i',$arg, $r)) {
@@ -373,7 +381,7 @@ 
  * 
  * @param string $nom : nom de l'index
  * @param string $table : table sql de l'index
- * @param string/array $champs : liste de champs sur lesquels s'applique l'index
+ * @param string $champs : liste de champs sur lesquels s'applique l'index
  * @param string $serveur : nom de la connexion sql utilisee
  * @param bool $requeter : true pour executer la requete ou false pour retourner le texte de la requete
  * 
@@ -424,8 +432,6 @@ 
 /**
  * Selectionne une base de donnees
  *
- * @param string $nom
- * 		Nom de la base a utiliser
  * @param string $serveur
  * 		Nom du connecteur
  * @param bool $requeter
@@ -519,6 +525,9 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_orderby
+/**
+ * @param string $order
+ */
 function spip_pg_orderby($order, $select)
 {
 	$res = array();
@@ -680,6 +689,9 @@ 
 }
 
 // http://doc.spip.org/@calculer_pg_where
+/**
+ * @param string $v
+ */
 function calculer_pg_where($v)
 {
 	if (!is_array($v))
@@ -703,6 +715,9 @@ 
 
 
 // http://doc.spip.org/@calculer_pg_expression
+/**
+ * @param string $expression
+ */
 function calculer_pg_expression($expression, $v, $join = 'AND'){
 	if (empty($v))
 		return '';
@@ -749,6 +764,9 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_fetch
+/**
+ * @param resource $res
+ */
 function spip_pg_fetch($res, $t='', $serveur='',$requeter=true) {
 
 	if ($res) $res = pg_fetch_array($res, NULL, PGSQL_ASSOC);
@@ -805,6 +823,10 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_insert
+/**
+ * @param string $champs
+ * @param string $valeurs
+ */
 function spip_pg_insert($table, $champs, $valeurs, $desc=array(), $serveur='',$requeter=true) {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
@@ -1115,6 +1137,9 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_error
+/**
+ * @param string $serveur
+ */
 function spip_pg_error($query='', $serveur, $requeter=true) {
 	$link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
 	$s = $link ? pg_last_error($link) : pg_last_error();
@@ -1158,7 +1183,7 @@ 
  * @param bool $requeter
  *     true pour éxecuter la requête
  *     false pour retourner le texte de la requête.
- * @return ressource
+ * @return resource
  *     Ressource à utiliser avec sql_fetch()
 **/
 function spip_pg_showbase($match, $serveur='',$requeter=true)

Indentation +913 added lines, -913 removed lines

@@ -30,114 +30,114 @@ 
 
 // http://doc.spip.org/@req_pg_dist
 function req_pg_dist($addr, $port, $login, $pass, $db='', $prefixe='') {
-	static $last_connect = array();
-	if (!charger_php_extension('pgsql')) return false;
+    static $last_connect = array();
+    if (!charger_php_extension('pgsql')) return false;
 	
-	// si provient de selectdb
-	if (empty($addr) && empty($port) && empty($login) && empty($pass)){
-		foreach (array('addr','port','login','pass','prefixe') as $a){
-			$$a = $last_connect[$a];
-		}
-	}
-	@list($host, $p) = explode(';', $addr);
-	if ($p >0) $port = " port=$p" ; else $port = '';
-	$erreurs = array();
-	if ($db) {
-		@$link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
-	} elseif (!@$link = pg_connect("host=$host$port user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
-			$erreurs[] = pg_last_error();
-	    if (@$link = pg_connect("host=$host$port dbname=$login user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
-	      $db = $login;
-	    } else {
-		    $erreurs[] = pg_last_error();
-	      $db = _DEFAULT_DB;
-	      $link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
-	    }
-	}
-	if (!$link) {
-		$erreurs[] = pg_last_error();
-		foreach($erreurs as $e)
-			spip_log('Echec pg_connect. Erreur : ' . $e,'pg.'._LOG_HS);
-		return false;
-	}
-
-	if ($link)
-		$last_connect = array (
-			'addr' => $addr,
-			'port' => $port,
-			'login' => $login,
-			'pass' => $pass,
-			'db' => $db,
-			'prefixe' => $prefixe,
-		);
+    // si provient de selectdb
+    if (empty($addr) && empty($port) && empty($login) && empty($pass)){
+        foreach (array('addr','port','login','pass','prefixe') as $a){
+            $$a = $last_connect[$a];
+        }
+    }
+    @list($host, $p) = explode(';', $addr);
+    if ($p >0) $port = " port=$p" ; else $port = '';
+    $erreurs = array();
+    if ($db) {
+        @$link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
+    } elseif (!@$link = pg_connect("host=$host$port user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
+            $erreurs[] = pg_last_error();
+        if (@$link = pg_connect("host=$host$port dbname=$login user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW)) {
+            $db = $login;
+        } else {
+            $erreurs[] = pg_last_error();
+            $db = _DEFAULT_DB;
+            $link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
+        }
+    }
+    if (!$link) {
+        $erreurs[] = pg_last_error();
+        foreach($erreurs as $e)
+            spip_log('Echec pg_connect. Erreur : ' . $e,'pg.'._LOG_HS);
+        return false;
+    }
+
+    if ($link)
+        $last_connect = array (
+            'addr' => $addr,
+            'port' => $port,
+            'login' => $login,
+            'pass' => $pass,
+            'db' => $db,
+            'prefixe' => $prefixe,
+        );
 		
-	spip_log("Connexion vers $host, base $db, prefixe $prefixe " . ($link ? 'operationnelle' : 'impossible'),'pg.'._LOG_DEBUG);
+    spip_log("Connexion vers $host, base $db, prefixe $prefixe " . ($link ? 'operationnelle' : 'impossible'),'pg.'._LOG_DEBUG);
 
-	return !$link ? false : array(
-		'db' => $db,
-		'prefixe' => $prefixe ? $prefixe : $db,
-		'link' => $link,
-		);
+    return !$link ? false : array(
+        'db' => $db,
+        'prefixe' => $prefixe ? $prefixe : $db,
+        'link' => $link,
+        );
 }
 
 $GLOBALS['spip_pg_functions_1'] = array(
-		'alter' => 'spip_pg_alter',
-		'count' => 'spip_pg_count',
-		'countsel' => 'spip_pg_countsel',
-		'create' => 'spip_pg_create',
-		'create_base' => 'spip_pg_create_base',
-		'create_view' => 'spip_pg_create_view',
-		'date_proche' => 'spip_pg_date_proche',
-		'delete' => 'spip_pg_delete',
-		'drop_table' => 'spip_pg_drop_table',
-		'drop_view' => 'spip_pg_drop_view',
-		'errno' => 'spip_pg_errno',
-		'error' => 'spip_pg_error',
-		'explain' => 'spip_pg_explain',
-		'fetch' => 'spip_pg_fetch',
-		'seek' => 'spip_pg_seek',
-		'free' => 'spip_pg_free',
-		'hex' => 'spip_pg_hex',
-		'in' => 'spip_pg_in',
-		'insert' => 'spip_pg_insert',
-		'insertq' => 'spip_pg_insertq',
-		'insertq_multi' => 'spip_pg_insertq_multi',
-		'listdbs' => 'spip_pg_listdbs',
-		'multi' => 'spip_pg_multi',
-		'optimize' => 'spip_pg_optimize',
-		'query' => 'spip_pg_query',
-		'quote' => 'spip_pg_quote',
-		'replace' => 'spip_pg_replace',
-		'replace_multi' => 'spip_pg_replace_multi',
-		'select' => 'spip_pg_select',
-		'selectdb' => 'spip_pg_selectdb',
-		'set_connect_charset' => 'spip_pg_set_connect_charset',
-		'showbase' => 'spip_pg_showbase',
-		'showtable' => 'spip_pg_showtable',
-		'update' => 'spip_pg_update',
-		'updateq' => 'spip_pg_updateq',
-		);
+        'alter' => 'spip_pg_alter',
+        'count' => 'spip_pg_count',
+        'countsel' => 'spip_pg_countsel',
+        'create' => 'spip_pg_create',
+        'create_base' => 'spip_pg_create_base',
+        'create_view' => 'spip_pg_create_view',
+        'date_proche' => 'spip_pg_date_proche',
+        'delete' => 'spip_pg_delete',
+        'drop_table' => 'spip_pg_drop_table',
+        'drop_view' => 'spip_pg_drop_view',
+        'errno' => 'spip_pg_errno',
+        'error' => 'spip_pg_error',
+        'explain' => 'spip_pg_explain',
+        'fetch' => 'spip_pg_fetch',
+        'seek' => 'spip_pg_seek',
+        'free' => 'spip_pg_free',
+        'hex' => 'spip_pg_hex',
+        'in' => 'spip_pg_in',
+        'insert' => 'spip_pg_insert',
+        'insertq' => 'spip_pg_insertq',
+        'insertq_multi' => 'spip_pg_insertq_multi',
+        'listdbs' => 'spip_pg_listdbs',
+        'multi' => 'spip_pg_multi',
+        'optimize' => 'spip_pg_optimize',
+        'query' => 'spip_pg_query',
+        'quote' => 'spip_pg_quote',
+        'replace' => 'spip_pg_replace',
+        'replace_multi' => 'spip_pg_replace_multi',
+        'select' => 'spip_pg_select',
+        'selectdb' => 'spip_pg_selectdb',
+        'set_connect_charset' => 'spip_pg_set_connect_charset',
+        'showbase' => 'spip_pg_showbase',
+        'showtable' => 'spip_pg_showtable',
+        'update' => 'spip_pg_update',
+        'updateq' => 'spip_pg_updateq',
+        );
 
 // Par ou ca passe une fois les traductions faites
 // http://doc.spip.org/@spip_pg_trace_query
 function spip_pg_trace_query($query, $serveur='')
 {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	if (isset($_GET['var_profile'])) {
-		include_spip('public/tracer');
-		$t = trace_query_start();
-	} else $t = 0 ;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    if (isset($_GET['var_profile'])) {
+        include_spip('public/tracer');
+        $t = trace_query_start();
+    } else $t = 0 ;
  
-	$connexion['last'] = $query;
-	$r = spip_pg_query_simple($link, $query);
+    $connexion['last'] = $query;
+    $r = spip_pg_query_simple($link, $query);
 
-	if ($e = spip_pg_errno($serveur))	// Log de l'erreur eventuelle
-		$e .= spip_pg_error($query, $serveur); // et du fautif
-	return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
+    if ($e = spip_pg_errno($serveur))	// Log de l'erreur eventuelle
+        $e .= spip_pg_error($query, $serveur); // et du fautif
+    return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
 }
 
 // Fonction de requete generale quand on est sur que c'est SQL standard.
@@ -146,26 +146,26 @@ 
 // http://doc.spip.org/@spip_pg_query
 function spip_pg_query($query, $serveur='',$requeter=true)
 {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
 
-	if (preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
-		$suite = strstr($query, $regs[0]);
-		$query = substr($query, 0, -strlen($suite));
-	} else $suite ='';
-	$query = preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', $query) . $suite;
+    if (preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
+        $suite = strstr($query, $regs[0]);
+        $query = substr($query, 0, -strlen($suite));
+    } else $suite ='';
+    $query = preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', $query) . $suite;
 
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) return $query;
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) return $query;
 
-	return spip_pg_trace_query($query, $serveur);
+    return spip_pg_trace_query($query, $serveur);
 }
 
 function spip_pg_query_simple($link, $query){
-	#spip_log(var_export($query,true), 'pg.'._LOG_DEBUG);
-	return pg_query($link, $query);
+    #spip_log(var_export($query,true), 'pg.'._LOG_DEBUG);
+    return pg_query($link, $query);
 }
 
 /*
@@ -177,176 +177,176 @@ 
  * de requetes showtable intempestives
  */
 function spip_pg_ajouter_champs_timestamp($table, $couples, $desc='', $serveur=''){
-	static $tables = array();
+    static $tables = array();
 	
-	if (!isset($tables[$table])){
+    if (!isset($tables[$table])){
 		
-		if (!$desc){
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$desc = $trouver_table($table, $serveur);
-			// si pas de description, on ne fait rien, ou on die() ?
-			if (!$desc) return $couples;
-		}
+        if (!$desc){
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $desc = $trouver_table($table, $serveur);
+            // si pas de description, on ne fait rien, ou on die() ?
+            if (!$desc) return $couples;
+        }
 		
-		// recherche des champs avec simplement 'TIMESTAMP'
-		// cependant, il faudra peut etre etendre
-		// avec la gestion de DEFAULT et ON UPDATE
-		// mais ceux-ci ne sont pas utilises dans le core
-		$tables[$table] = array();
-		foreach ($desc['field'] as $k=>$v){
-			$v = strtolower(ltrim($v));
-			// ne pas ajouter de timestamp now() si un default est specifie
-			if (strpos($v, 'timestamp')===0 AND strpos($v, 'default')===false)
-				$tables[$table][] = $k;
-		}
-	}
+        // recherche des champs avec simplement 'TIMESTAMP'
+        // cependant, il faudra peut etre etendre
+        // avec la gestion de DEFAULT et ON UPDATE
+        // mais ceux-ci ne sont pas utilises dans le core
+        $tables[$table] = array();
+        foreach ($desc['field'] as $k=>$v){
+            $v = strtolower(ltrim($v));
+            // ne pas ajouter de timestamp now() si un default est specifie
+            if (strpos($v, 'timestamp')===0 AND strpos($v, 'default')===false)
+                $tables[$table][] = $k;
+        }
+    }
 	
-	// ajout des champs type 'timestamp' absents
-	foreach ($tables[$table] as $maj){
-		if (!array_key_exists($maj, $couples))
-			$couples[$maj] = "NOW()";	
-	}
-	return $couples;
+    // ajout des champs type 'timestamp' absents
+    foreach ($tables[$table] as $maj){
+        if (!array_key_exists($maj, $couples))
+            $couples[$maj] = "NOW()";	
+    }
+    return $couples;
 }
  	
 	
 // Alter en PG ne traite pas les index
 // http://doc.spip.org/@spip_pg_alter
 function spip_pg_alter($query, $serveur='',$requeter=true) {
-	// il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
-	// tout en cassant en deux alter distincts "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"... 
-	// ou revoir l'api de sql_alter en creant un 
-	// sql_alter_table($table,array($actions));
-	if (!preg_match("/\s*((\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is", $query, $regs)){
-		spip_log("$query mal comprise", 'pg.'._LOG_ERREUR);
-		return false;
-	}
-	$debut = $regs[1];
-	$table = $regs[3];
-	$suite = $regs[4];
-	$todo = explode(',', $suite);
-	// on remet les morceaux dechires ensembles... que c'est laid !
-	$todo2 = array(); $i=0;
-	$ouverte = false;
-	while ($do = array_shift($todo)) {
-		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . "," . $do : $do;
-		$o=(false!==strpos($do,"("));
-		$f=(false!==strpos($do,")"));
-		if ($o AND !$f) $ouverte=true;
-		elseif ($f) $ouverte=false;
-		if (!$ouverte) $i++;
-	}
-	$todo=$todo2;
-	$query = $debut.' '.array_shift($todo);
-
-	if (!preg_match('/^\s*(IGNORE\s*)?TABLE\s+(\w+)\s+(ADD|DROP|CHANGE|MODIFY|RENAME)\s*(.*)$/is', $query, $r)) {
-	  spip_log("$query incompris", 'pg.'._LOG_ERREUR);
-	} else {
-	  if ($r[1]) spip_log("j'ignore IGNORE dans $query", 'pg.'._LOG_AVERTISSEMENT);
-	  $f = 'spip_pg_alter_' . strtolower($r[3]);
-	  if (function_exists($f))
-	    $f($r[2], $r[4], $serveur, $requeter);
-	  else spip_log("$query non prevu", 'pg.'._LOG_ERREUR);
-	}
-	// Alter a plusieurs args. Faudrait optimiser.
-	if ($todo)
-	  spip_pg_alter("TABLE $table " . join(',',$todo));
+    // il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
+    // tout en cassant en deux alter distincts "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"... 
+    // ou revoir l'api de sql_alter en creant un 
+    // sql_alter_table($table,array($actions));
+    if (!preg_match("/\s*((\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is", $query, $regs)){
+        spip_log("$query mal comprise", 'pg.'._LOG_ERREUR);
+        return false;
+    }
+    $debut = $regs[1];
+    $table = $regs[3];
+    $suite = $regs[4];
+    $todo = explode(',', $suite);
+    // on remet les morceaux dechires ensembles... que c'est laid !
+    $todo2 = array(); $i=0;
+    $ouverte = false;
+    while ($do = array_shift($todo)) {
+        $todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . "," . $do : $do;
+        $o=(false!==strpos($do,"("));
+        $f=(false!==strpos($do,")"));
+        if ($o AND !$f) $ouverte=true;
+        elseif ($f) $ouverte=false;
+        if (!$ouverte) $i++;
+    }
+    $todo=$todo2;
+    $query = $debut.' '.array_shift($todo);
+
+    if (!preg_match('/^\s*(IGNORE\s*)?TABLE\s+(\w+)\s+(ADD|DROP|CHANGE|MODIFY|RENAME)\s*(.*)$/is', $query, $r)) {
+        spip_log("$query incompris", 'pg.'._LOG_ERREUR);
+    } else {
+        if ($r[1]) spip_log("j'ignore IGNORE dans $query", 'pg.'._LOG_AVERTISSEMENT);
+        $f = 'spip_pg_alter_' . strtolower($r[3]);
+        if (function_exists($f))
+        $f($r[2], $r[4], $serveur, $requeter);
+        else spip_log("$query non prevu", 'pg.'._LOG_ERREUR);
+    }
+    // Alter a plusieurs args. Faudrait optimiser.
+    if ($todo)
+        spip_pg_alter("TABLE $table " . join(',',$todo));
 
 }
 	      
 // http://doc.spip.org/@spip_pg_alter_change
 function spip_pg_alter_change($table, $arg, $serveur='',$requeter=true)
 {
-	if (!preg_match('/^`?(\w+)`?\s+`?(\w+)`?\s+(.*?)\s*(DEFAULT .*?)?(NOT\s+NULL)?\s*(DEFAULT .*?)?$/i',$arg, $r)) {
-	  spip_log("alter change: $arg  incompris", 'pg.'._LOG_ERREUR);
-	} else {
-	  list(,$old, $new, $type, $default, $null, $def2) = $r;
-	  $actions = array("ALTER $old TYPE " . mysql2pg_type($type));
-	  if ($null)
-	    $actions[]= "ALTER $old SET NOT NULL";
-	  else
-	    $actions[]= "ALTER $old DROP NOT NULL";
-
-	  if ($d = ($default ? $default : $def2))
-	    $actions[]= "ALTER $old SET $d";
-	  else
-	    $actions[]= "ALTER $old DROP DEFAULT";
-
-	  spip_pg_query("ALTER TABLE $table " . join(', ', $actions));
-
-	  if ($old != $new)
-	    spip_pg_query("ALTER TABLE $table RENAME $old TO $new", $serveur);
-	}
+    if (!preg_match('/^`?(\w+)`?\s+`?(\w+)`?\s+(.*?)\s*(DEFAULT .*?)?(NOT\s+NULL)?\s*(DEFAULT .*?)?$/i',$arg, $r)) {
+        spip_log("alter change: $arg  incompris", 'pg.'._LOG_ERREUR);
+    } else {
+        list(,$old, $new, $type, $default, $null, $def2) = $r;
+        $actions = array("ALTER $old TYPE " . mysql2pg_type($type));
+        if ($null)
+        $actions[]= "ALTER $old SET NOT NULL";
+        else
+        $actions[]= "ALTER $old DROP NOT NULL";
+
+        if ($d = ($default ? $default : $def2))
+        $actions[]= "ALTER $old SET $d";
+        else
+        $actions[]= "ALTER $old DROP DEFAULT";
+
+        spip_pg_query("ALTER TABLE $table " . join(', ', $actions));
+
+        if ($old != $new)
+        spip_pg_query("ALTER TABLE $table RENAME $old TO $new", $serveur);
+    }
 }
 
 // http://doc.spip.org/@spip_pg_alter_add
 function spip_pg_alter_add($table, $arg, $serveur='',$requeter=true) {
-	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*(.*)$/', $arg, $r)) {
-		spip_log("alter add $arg  incompris", 'pg.'._LOG_ERREUR);
-		return NULL;
-	}
-	if (!$r[1] OR $r[1]=='COLUMN') {
-		preg_match('/`?(\w+)`?(.*)/',$r[2], $m);
-		if (preg_match('/^(.*)(BEFORE|AFTER|FIRST)(.*)$/is', $m[2], $n)) {
-			$m[2]=$n[1];
-		}
-		return spip_pg_query("ALTER TABLE $table ADD " . $m[1] . ' ' . mysql2pg_type($m[2]),  $serveur, $requeter);
-	} elseif ($r[1][0] == 'P') {
-		// la primary peut etre sur plusieurs champs
-		$r[2] = trim(str_replace('`','',$r[2]));
-		$m = ($r[2][0]=='(') ? substr($r[2],1,-1) : $r[2];
-		return spip_pg_query("ALTER TABLE $table ADD CONSTRAINT $table" .'_pkey PRIMARY KEY (' . $m . ')', $serveur, $requeter);
-	} else {
-		preg_match('/([^\s,]*)\s*(.*)?/',$r[2], $m);
-		// peut etre "(colonne)" ou "nom_index (colonnes)"
-		// bug potentiel si qqn met "(colonne, colonne)"
-		//
-		// nom_index (colonnes)
-		if ($m[2]) {
-			$colonnes = substr($m[2],1,-1);
-			$nom_index = $m[1];
-		}
-		else {
-			// (colonne)
-			if ($m[1][0] == "(") {
-				$colonnes = substr($m[1],1,-1);
-				if (false!==strpos(",",$colonnes)) {
-					spip_log(_LOG_GRAVITE_ERREUR,"PG : Erreur, impossible de creer un index sur plusieurs colonnes"
-						." sans qu'il ait de nom ($table, ($colonnes))", 'pg');	
-				} else {
-					$nom_index = $colonnes;
-				}
-			}
-			// nom_index
-			else {
-				$nom_index = $colonnes = $m[1];
-			}
-		}
-		return spip_pg_create_index($nom_index, $table, $colonnes, $serveur, $requeter);
-	}
+    if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*(.*)$/', $arg, $r)) {
+        spip_log("alter add $arg  incompris", 'pg.'._LOG_ERREUR);
+        return NULL;
+    }
+    if (!$r[1] OR $r[1]=='COLUMN') {
+        preg_match('/`?(\w+)`?(.*)/',$r[2], $m);
+        if (preg_match('/^(.*)(BEFORE|AFTER|FIRST)(.*)$/is', $m[2], $n)) {
+            $m[2]=$n[1];
+        }
+        return spip_pg_query("ALTER TABLE $table ADD " . $m[1] . ' ' . mysql2pg_type($m[2]),  $serveur, $requeter);
+    } elseif ($r[1][0] == 'P') {
+        // la primary peut etre sur plusieurs champs
+        $r[2] = trim(str_replace('`','',$r[2]));
+        $m = ($r[2][0]=='(') ? substr($r[2],1,-1) : $r[2];
+        return spip_pg_query("ALTER TABLE $table ADD CONSTRAINT $table" .'_pkey PRIMARY KEY (' . $m . ')', $serveur, $requeter);
+    } else {
+        preg_match('/([^\s,]*)\s*(.*)?/',$r[2], $m);
+        // peut etre "(colonne)" ou "nom_index (colonnes)"
+        // bug potentiel si qqn met "(colonne, colonne)"
+        //
+        // nom_index (colonnes)
+        if ($m[2]) {
+            $colonnes = substr($m[2],1,-1);
+            $nom_index = $m[1];
+        }
+        else {
+            // (colonne)
+            if ($m[1][0] == "(") {
+                $colonnes = substr($m[1],1,-1);
+                if (false!==strpos(",",$colonnes)) {
+                    spip_log(_LOG_GRAVITE_ERREUR,"PG : Erreur, impossible de creer un index sur plusieurs colonnes"
+                        ." sans qu'il ait de nom ($table, ($colonnes))", 'pg');	
+                } else {
+                    $nom_index = $colonnes;
+                }
+            }
+            // nom_index
+            else {
+                $nom_index = $colonnes = $m[1];
+            }
+        }
+        return spip_pg_create_index($nom_index, $table, $colonnes, $serveur, $requeter);
+    }
 }
 
 // http://doc.spip.org/@spip_pg_alter_drop
 function spip_pg_alter_drop($table, $arg, $serveur='',$requeter=true) {
-	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*`?(\w*)`?/', $arg, $r))
-	  spip_log("alter drop: $arg  incompris", 'pg.'._LOG_ERREUR);
-	else {
-	    if (!$r[1] OR $r[1]=='COLUMN')
-	      return spip_pg_query("ALTER TABLE $table DROP " . $r[2],  $serveur);
-	    elseif ($r[1][0] == 'P')
-	      return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table" . '_pkey', $serveur);
-	    else {
-		return spip_pg_query("DROP INDEX " . $table . '_' . $r[2],  $serveur);
-	    }
-	}
+    if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*`?(\w*)`?/', $arg, $r))
+        spip_log("alter drop: $arg  incompris", 'pg.'._LOG_ERREUR);
+    else {
+        if (!$r[1] OR $r[1]=='COLUMN')
+            return spip_pg_query("ALTER TABLE $table DROP " . $r[2],  $serveur);
+        elseif ($r[1][0] == 'P')
+            return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table" . '_pkey', $serveur);
+        else {
+        return spip_pg_query("DROP INDEX " . $table . '_' . $r[2],  $serveur);
+        }
+    }
 }
 
 function spip_pg_alter_modify($table, $arg, $serveur='',$requeter=true) {
-	if (!preg_match('/^`?(\w+)`?\s+(.*)$/',$arg, $r)) {
-		spip_log("alter modify: $arg  incompris", 'pg.'._LOG_ERREUR);
-	} else {
-		return spip_pg_alter_change($table, $r[1].' '.$arg, $serveur='',$requeter=true);
-	}
+    if (!preg_match('/^`?(\w+)`?\s+(.*)$/',$arg, $r)) {
+        spip_log("alter modify: $arg  incompris", 'pg.'._LOG_ERREUR);
+    } else {
+        return spip_pg_alter_change($table, $r[1].' '.$arg, $serveur='',$requeter=true);
+    }
 }
 
 // attention (en pg) : 
@@ -354,17 +354,17 @@ 
 // - alter table A rename X to Y = changer le nom de la colonne X en Y 
 // pour l'instant, traiter simplement RENAME TO X
 function spip_pg_alter_rename($table, $arg, $serveur='',$requeter=true) {
-	$rename="";
-	// si TO, mais pas au debut
-	if (!stripos($arg,'TO ')){
-		$rename=$arg;
-	}
-	elseif (preg_match('/^(TO)\s*`?(\w*)`?/', $arg, $r)) {
-		$rename=$r[2];
-	} else {
-		spip_log("alter rename: $arg  incompris", 'pg.'._LOG_ERREUR);
-	}
-	return $rename?spip_pg_query("ALTER TABLE $table RENAME TO $rename"):false;
+    $rename="";
+    // si TO, mais pas au debut
+    if (!stripos($arg,'TO ')){
+        $rename=$arg;
+    }
+    elseif (preg_match('/^(TO)\s*`?(\w*)`?/', $arg, $r)) {
+        $rename=$r[2];
+    } else {
+        spip_log("alter rename: $arg  incompris", 'pg.'._LOG_ERREUR);
+    }
+    return $rename?spip_pg_query("ALTER TABLE $table RENAME TO $rename"):false;
 }
 
 
@@ -380,44 +380,44 @@ 
  * @return bool ou requete
  */
 function spip_pg_create_index($nom, $table, $champs, $serveur='', $requeter=true) {
-	if (!($nom OR $table OR $champs)) {
-		spip_log("Champ manquant pour creer un index pg ($nom, $table, (".@join(',',$champs)."))",'pg.'._LOG_ERREUR);
-		return false;
-	}
+    if (!($nom OR $table OR $champs)) {
+        spip_log("Champ manquant pour creer un index pg ($nom, $table, (".@join(',',$champs)."))",'pg.'._LOG_ERREUR);
+        return false;
+    }
 	
-	$nom = str_replace("`","",$nom);
-	$champs = str_replace("`","",$champs);
+    $nom = str_replace("`","",$nom);
+    $champs = str_replace("`","",$champs);
 	
-	// PG ne differentie pas noms des index en fonction des tables
-	// il faut donc creer des noms uniques d'index pour une base pg
-	$nom = $table.'_'.$nom;
-	// enlever d'eventuelles parentheses deja presentes sur champs
-	if (!is_array($champs)){
-		 if ($champs[0]=="(") $champs = substr($champs,1,-1);
-		 $champs = array($champs);
-	}
-	$query = "CREATE INDEX $nom ON $table (" . join(',',$champs) . ")";
-	if (!$requeter) return $query;
-	$res = spip_pg_query($query, $serveur, $requeter);
-	return $res;
+    // PG ne differentie pas noms des index en fonction des tables
+    // il faut donc creer des noms uniques d'index pour une base pg
+    $nom = $table.'_'.$nom;
+    // enlever d'eventuelles parentheses deja presentes sur champs
+    if (!is_array($champs)){
+            if ($champs[0]=="(") $champs = substr($champs,1,-1);
+            $champs = array($champs);
+    }
+    $query = "CREATE INDEX $nom ON $table (" . join(',',$champs) . ")";
+    if (!$requeter) return $query;
+    $res = spip_pg_query($query, $serveur, $requeter);
+    return $res;
 }
 
 
 // http://doc.spip.org/@spip_pg_explain
 function spip_pg_explain($query, $serveur='',$requeter=true){
-	if (strpos(ltrim($query), 'SELECT') !== 0) return array();
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	if (preg_match('/\s(SET|VALUES|WHERE)\s/i', $query, $regs)) {
-		$suite = strstr($query, $regs[0]);
-		$query = substr($query, 0, -strlen($suite));
-	} else $suite ='';
-	$query = 'EXPLAIN ' . preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', $query) . $suite;
-
-	if (!$requeter) return $query;
-	$r = spip_pg_query_simple($link,$query);
-	return spip_pg_fetch($r, NULL, $serveur);
+    if (strpos(ltrim($query), 'SELECT') !== 0) return array();
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    if (preg_match('/\s(SET|VALUES|WHERE)\s/i', $query, $regs)) {
+        $suite = strstr($query, $regs[0]);
+        $query = substr($query, 0, -strlen($suite));
+    } else $suite ='';
+    $query = 'EXPLAIN ' . preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', $query) . $suite;
+
+    if (!$requeter) return $query;
+    $r = spip_pg_query_simple($link,$query);
+    return spip_pg_fetch($r, NULL, $serveur);
 }
 
 
@@ -436,76 +436,76 @@ 
  * 		False en cas d'erreur.
 **/
 function spip_pg_selectdb($db, $serveur='',$requeter=true) {
-	// se connecter a la base indiquee
-	// avec les identifiants connus
-	$index = $serveur ? strtolower($serveur) : 0;
-
-	if ($link = spip_connect_db('', '', '', '', $db, 'pg', '', '')){
-		if (($db==$link['db']) && $GLOBALS['connexions'][$index] = $link)
-			return $db;
-	} else
-		return false;
+    // se connecter a la base indiquee
+    // avec les identifiants connus
+    $index = $serveur ? strtolower($serveur) : 0;
+
+    if ($link = spip_connect_db('', '', '', '', $db, 'pg', '', '')){
+        if (($db==$link['db']) && $GLOBALS['connexions'][$index] = $link)
+            return $db;
+    } else
+        return false;
 }
 
 // Qu'une seule base pour le moment
 
 // http://doc.spip.org/@spip_pg_listdbs
 function spip_pg_listdbs($serveur) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$dbs = array();
-	$res = spip_pg_query_simple($link, "select * From pg_database");
-	while ($row = pg_fetch_array($res, NULL, PGSQL_NUM))
-		$dbs[] = reset($row);
-
-	return $dbs;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $dbs = array();
+    $res = spip_pg_query_simple($link, "select * From pg_database");
+    while ($row = pg_fetch_array($res, NULL, PGSQL_NUM))
+        $dbs[] = reset($row);
+
+    return $dbs;
 }
 
 // http://doc.spip.org/@spip_pg_select
 function spip_pg_select($select, $from, $where='',
-			$groupby=array(), $orderby='', $limit='',
-                           $having='', $serveur='',$requeter=true){
-
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	$limit = preg_match("/^\s*(([0-9]+),)?\s*([0-9]+)\s*$/", $limit,$limatch);
-	if ($limit) {
-		$offset = $limatch[2];
-		$count = $limatch[3];
-	}
-
-	$select = spip_pg_frommysql($select);
-
-	// si pas de tri explicitement demande, le GROUP BY ne
-	// contient que la clef primaire.
-	// lui ajouter alors le champ de tri par defaut
-	if (preg_match("/FIELD\(([a-z]+\.[a-z]+),/i", $orderby[0], $groupbyplus)) {
-		$groupby[] = $groupbyplus[1];
-	}
-
-	$orderby = spip_pg_orderby($orderby, $select);
-
-	if ($having) {
-	  if (is_array($having))
-	    $having = join("\n\tAND ", array_map('calculer_pg_where', $having));
-	}
-	$from =  spip_pg_from($from, $prefixe);
-	$query =  "SELECT ". $select
-	  . (!$from ? '' : "\nFROM $from")
-	  . (!$where ? '' : ("\nWHERE " . (!is_array($where) ? calculer_pg_where($where) : (join("\n\tAND ", array_map('calculer_pg_where', $where))))))
-	  . spip_pg_groupby($groupby, $from, $select)
-	  . (!$having ? '' : "\nHAVING $having")
-	  . ($orderby ? ("\nORDER BY $orderby") :'')
-	  . (!$limit ? '' : (" LIMIT $count" . (!$offset ? '' : " OFFSET $offset")));
-
-	// renvoyer la requete inerte si demandee
-	if ($requeter === false) return $query;
+            $groupby=array(), $orderby='', $limit='',
+                            $having='', $serveur='',$requeter=true){
+
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    $limit = preg_match("/^\s*(([0-9]+),)?\s*([0-9]+)\s*$/", $limit,$limatch);
+    if ($limit) {
+        $offset = $limatch[2];
+        $count = $limatch[3];
+    }
+
+    $select = spip_pg_frommysql($select);
+
+    // si pas de tri explicitement demande, le GROUP BY ne
+    // contient que la clef primaire.
+    // lui ajouter alors le champ de tri par defaut
+    if (preg_match("/FIELD\(([a-z]+\.[a-z]+),/i", $orderby[0], $groupbyplus)) {
+        $groupby[] = $groupbyplus[1];
+    }
+
+    $orderby = spip_pg_orderby($orderby, $select);
+
+    if ($having) {
+        if (is_array($having))
+        $having = join("\n\tAND ", array_map('calculer_pg_where', $having));
+    }
+    $from =  spip_pg_from($from, $prefixe);
+    $query =  "SELECT ". $select
+        . (!$from ? '' : "\nFROM $from")
+        . (!$where ? '' : ("\nWHERE " . (!is_array($where) ? calculer_pg_where($where) : (join("\n\tAND ", array_map('calculer_pg_where', $where))))))
+        . spip_pg_groupby($groupby, $from, $select)
+        . (!$having ? '' : "\nHAVING $having")
+        . ($orderby ? ("\nORDER BY $orderby") :'')
+        . (!$limit ? '' : (" LIMIT $count" . (!$offset ? '' : " OFFSET $offset")));
+
+    // renvoyer la requete inerte si demandee
+    if ($requeter === false) return $query;
 	
-	$r = spip_pg_trace_query($query, $serveur);
-	return $r ? $r : $query;;
+    $r = spip_pg_trace_query($query, $serveur);
+    return $r ? $r : $query;;
 }
 
 // Le traitement des prefixes de table dans un Select se limite au FROM
@@ -514,23 +514,23 @@ 
 // http://doc.spip.org/@spip_pg_from
 function spip_pg_from($from, $prefixe)
 {
-	if (is_array($from)) $from = spip_pg_select_as($from);
-	return !$prefixe ? $from : preg_replace('/(\b)spip_/','\1'.$prefixe.'_', $from);
+    if (is_array($from)) $from = spip_pg_select_as($from);
+    return !$prefixe ? $from : preg_replace('/(\b)spip_/','\1'.$prefixe.'_', $from);
 }
 
 // http://doc.spip.org/@spip_pg_orderby
 function spip_pg_orderby($order, $select)
 {
-	$res = array();
-	$arg = (is_array($order) ?  $order : preg_split('/\s*,\s*/',$order));
+    $res = array();
+    $arg = (is_array($order) ?  $order : preg_split('/\s*,\s*/',$order));
 
-	foreach($arg as $v) {
-		if (preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+' . $v .'/', $select, $m)) {
+    foreach($arg as $v) {
+        if (preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+' . $v .'/', $select, $m)) {
 
-		  $res[] = $m[1];
-		} else $res[]=$v;
-	}
-	return spip_pg_frommysql(join(',',$res));
+            $res[] = $m[1];
+        } else $res[]=$v;
+    }
+    return spip_pg_frommysql(join(',',$res));
 }
 
 // Conversion a l'arrach' des jointures MySQL en jointures PG
@@ -540,47 +540,47 @@ 
 // http://doc.spip.org/@spip_pg_groupby
 function spip_pg_groupby($groupby, $from, $select)
 {
-	$join = strpos($from, ",");
-	// ismplifier avant de decouper
-	if (is_string($select))
-		// fct SQL sur colonne et constante apostrophee ==> la colonne
-		$select = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/','\\1', $select);
-
-	if ($join OR $groupby) $join = is_array($select) ? $select : explode(", ", $select);
-	if ($join) {
-		// enlever les 0 as points, '', ...
-		foreach($join as $k=>$v){
-			$v = str_replace('DISTINCT ','',$v);
-			// fct SQL sur colonne et constante apostrophee ==> la colonne
-			$v = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/','\\1', $v);
-			$v = preg_replace('/CAST\(\s*([^(),\' ]*\s+)as\s*\w+\)/','\\1', $v);
-			// resultat d'agregat ne sont pas a mettre dans le groupby
-			$v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)(\s*AS\s+\w+)\s*,?/i','', $v);
-			// idem sans AS (fetch numerique)
-			$v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)\s*,?/i','', $v);
-			// des AS simples : on garde le cote droit du AS
-			$v = preg_replace('/^.*\sAS\s+(\w+)\s*$/i','\\1', $v);
-			// ne reste plus que les vrais colonnes, ou des constantes a virer
-			if (preg_match(',^[\'"],',$v) OR is_numeric($v))
-				unset($join[$k]);
-			else
-				$join[$k] = trim($v);
-		}
-		$join = array_diff($join,array(''));
-		$join = implode(',',$join);
-	}
-	if (is_array($groupby)) $groupby = join(',',$groupby);
-	if ($join) $groupby = $groupby ? "$groupby, $join" : $join;
-	if (!$groupby) return '';
-
-	$groupby = spip_pg_frommysql($groupby);
-	// Ne pas mettre dans le Group-By des valeurs numeriques
-	// issue de prepare_recherche
-	$groupby = preg_replace('/^\s*\d+\s+AS\s+\w+\s*,?\s*/i','', $groupby);
-	$groupby = preg_replace('/,\s*\d+\s+AS\s+\w+\s*/i','', $groupby);
-	$groupby = preg_replace('/\s+AS\s+\w+\s*/i','', $groupby);
-
-	return "\nGROUP BY $groupby"; 
+    $join = strpos($from, ",");
+    // ismplifier avant de decouper
+    if (is_string($select))
+        // fct SQL sur colonne et constante apostrophee ==> la colonne
+        $select = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/','\\1', $select);
+
+    if ($join OR $groupby) $join = is_array($select) ? $select : explode(", ", $select);
+    if ($join) {
+        // enlever les 0 as points, '', ...
+        foreach($join as $k=>$v){
+            $v = str_replace('DISTINCT ','',$v);
+            // fct SQL sur colonne et constante apostrophee ==> la colonne
+            $v = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/','\\1', $v);
+            $v = preg_replace('/CAST\(\s*([^(),\' ]*\s+)as\s*\w+\)/','\\1', $v);
+            // resultat d'agregat ne sont pas a mettre dans le groupby
+            $v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)(\s*AS\s+\w+)\s*,?/i','', $v);
+            // idem sans AS (fetch numerique)
+            $v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)\s*,?/i','', $v);
+            // des AS simples : on garde le cote droit du AS
+            $v = preg_replace('/^.*\sAS\s+(\w+)\s*$/i','\\1', $v);
+            // ne reste plus que les vrais colonnes, ou des constantes a virer
+            if (preg_match(',^[\'"],',$v) OR is_numeric($v))
+                unset($join[$k]);
+            else
+                $join[$k] = trim($v);
+        }
+        $join = array_diff($join,array(''));
+        $join = implode(',',$join);
+    }
+    if (is_array($groupby)) $groupby = join(',',$groupby);
+    if ($join) $groupby = $groupby ? "$groupby, $join" : $join;
+    if (!$groupby) return '';
+
+    $groupby = spip_pg_frommysql($groupby);
+    // Ne pas mettre dans le Group-By des valeurs numeriques
+    // issue de prepare_recherche
+    $groupby = preg_replace('/^\s*\d+\s+AS\s+\w+\s*,?\s*/i','', $groupby);
+    $groupby = preg_replace('/,\s*\d+\s+AS\s+\w+\s*/i','', $groupby);
+    $groupby = preg_replace('/\s+AS\s+\w+\s*/i','', $groupby);
+
+    return "\nGROUP BY $groupby"; 
 }
 
 // Conversion des operateurs MySQL en PG
@@ -593,270 +593,270 @@ 
 // http://doc.spip.org/@spip_pg_frommysql
 function spip_pg_frommysql($arg)
 {
-	if (is_array($arg)) $arg = join(", ", $arg);
+    if (is_array($arg)) $arg = join(", ", $arg);
 
-	$res = spip_pg_fromfield($arg);
+    $res = spip_pg_fromfield($arg);
 
-	$res = preg_replace('/\brand[(][)]/i','random()', $res);
+    $res = preg_replace('/\brand[(][)]/i','random()', $res);
 
-	$res = preg_replace('/\b0\.0[+]([a-zA-Z0-9_.]+)\s*/',
-			    'CAST(substring(\1, \'^ *[0-9.]+\') as float)',
-			    $res);
-	$res = preg_replace('/\b0[+]([a-zA-Z0-9_.]+)\s*/',
-			    'CAST(substring(\1, \'^ *[0-9]+\') as int)',
-			    $res);
-	$res = preg_replace('/\bconv[(]([^,]*)[^)]*[)]/i',
-			    'CAST(substring(\1, \'^ *[0-9]+\') as int)',
-			    $res);
+    $res = preg_replace('/\b0\.0[+]([a-zA-Z0-9_.]+)\s*/',
+                'CAST(substring(\1, \'^ *[0-9.]+\') as float)',
+                $res);
+    $res = preg_replace('/\b0[+]([a-zA-Z0-9_.]+)\s*/',
+                'CAST(substring(\1, \'^ *[0-9]+\') as int)',
+                $res);
+    $res = preg_replace('/\bconv[(]([^,]*)[^)]*[)]/i',
+                'CAST(substring(\1, \'^ *[0-9]+\') as int)',
+                $res);
 
-	$res = preg_replace('/UNIX_TIMESTAMP\s*[(]\s*[)]/',
-			    ' EXTRACT(epoch FROM NOW())', $res);
+    $res = preg_replace('/UNIX_TIMESTAMP\s*[(]\s*[)]/',
+                ' EXTRACT(epoch FROM NOW())', $res);
 	
-	// la fonction md5(integer) n'est pas connu en pg
-	// il faut donc forcer les types en text (cas de md5(id_article))
-	$res = preg_replace('/md5\s*[(]([^)]*)[)]/i',
-			    'MD5(CAST(\1 AS text))', $res);
+    // la fonction md5(integer) n'est pas connu en pg
+    // il faut donc forcer les types en text (cas de md5(id_article))
+    $res = preg_replace('/md5\s*[(]([^)]*)[)]/i',
+                'MD5(CAST(\1 AS text))', $res);
 
-	$res = preg_replace('/UNIX_TIMESTAMP\s*[(]([^)]*)[)]/',
-			    ' EXTRACT(epoch FROM \1)', $res);
+    $res = preg_replace('/UNIX_TIMESTAMP\s*[(]([^)]*)[)]/',
+                ' EXTRACT(epoch FROM \1)', $res);
 
-	$res = preg_replace('/\bDAYOFMONTH\s*[(]([^()]*([(][^()]*[)][^()]*)*[^)]*)[)]/',
-			    ' EXTRACT(day FROM \1)',
-			    $res);
+    $res = preg_replace('/\bDAYOFMONTH\s*[(]([^()]*([(][^()]*[)][^()]*)*[^)]*)[)]/',
+                ' EXTRACT(day FROM \1)',
+                $res);
 
-	$res = preg_replace('/\bMONTH\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
-			    ' EXTRACT(month FROM \1)',
-			    $res);
+    $res = preg_replace('/\bMONTH\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
+                ' EXTRACT(month FROM \1)',
+                $res);
 
-	$res = preg_replace('/\bYEAR\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
-			    ' EXTRACT(year FROM \1)',
-			    $res);
+    $res = preg_replace('/\bYEAR\s*[(]([^()]*([(][^)]*[)][^()]*)*[^)]*)[)]/',
+                ' EXTRACT(year FROM \1)',
+                $res);
 
-	$res = preg_replace('/TO_DAYS\s*[(]([^()]*([(][^)]*[)][()]*)*)[)]/',
-			    ' EXTRACT(day FROM \1 - \'0001-01-01\')',
-			    $res);
+    $res = preg_replace('/TO_DAYS\s*[(]([^()]*([(][^)]*[)][()]*)*)[)]/',
+                ' EXTRACT(day FROM \1 - \'0001-01-01\')',
+                $res);
 
-	$res = preg_replace("/(EXTRACT[(][^ ]* FROM *)\"([^\"]*)\"/", '\1\'\2\'', $res);
+    $res = preg_replace("/(EXTRACT[(][^ ]* FROM *)\"([^\"]*)\"/", '\1\'\2\'', $res);
 
-	$res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m%d\'[)]/', 'to_char(\1, \'YYYYMMDD\')', $res);
+    $res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m%d\'[)]/', 'to_char(\1, \'YYYYMMDD\')', $res);
 
-	$res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m\'[)]/', 'to_char(\1, \'YYYYMM\')', $res);
+    $res = preg_replace('/DATE_FORMAT\s*[(]([^,]*),\s*\'%Y%m\'[)]/', 'to_char(\1, \'YYYYMM\')', $res);
 
-	$res = preg_replace('/DATE_SUB\s*[(]([^,]*),/', '(\1 -', $res);
-	$res = preg_replace('/DATE_ADD\s*[(]([^,]*),/', '(\1 +', $res);
-	$res = preg_replace('/INTERVAL\s+(\d+\s+\w+)/', 'INTERVAL \'\1\'', $res);
-	$res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\s+\d+:\d+(:\d+)\')/', '\1 timestamp \2', $res);
-	$res = preg_replace('/(\'\d+-\d+-\d+\s+\d+:\d+:\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
+    $res = preg_replace('/DATE_SUB\s*[(]([^,]*),/', '(\1 -', $res);
+    $res = preg_replace('/DATE_ADD\s*[(]([^,]*),/', '(\1 +', $res);
+    $res = preg_replace('/INTERVAL\s+(\d+\s+\w+)/', 'INTERVAL \'\1\'', $res);
+    $res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\s+\d+:\d+(:\d+)\')/', '\1 timestamp \2', $res);
+    $res = preg_replace('/(\'\d+-\d+-\d+\s+\d+:\d+:\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
 
-	$res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\')/', '\1 timestamp \2', $res);
-	$res = preg_replace('/(\'\d+-\d+-\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
+    $res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\')/', '\1 timestamp \2', $res);
+    $res = preg_replace('/(\'\d+-\d+-\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
 
-	$res = preg_replace('/(timestamp .\d+)-00-/','\1-01-', $res);
-	$res = preg_replace('/(timestamp .\d+-\d+)-00/','\1-01',$res);
+    $res = preg_replace('/(timestamp .\d+)-00-/','\1-01-', $res);
+    $res = preg_replace('/(timestamp .\d+-\d+)-00/','\1-01',$res);
 # correct en theorie mais produit des debordements arithmetiques
 #	$res = preg_replace("/(EXTRACT[(][^ ]* FROM *)(timestamp *'[^']*' *[+-] *timestamp *'[^']*') *[)]/", '\2', $res);
-	$res = preg_replace("/(EXTRACT[(][^ ]* FROM *)('[^']*')/", '\1 timestamp \2', $res);
-	$res = preg_replace("/\sLIKE\s+/", ' ILIKE ', $res);
-	return str_replace('REGEXP', '~', $res);
+    $res = preg_replace("/(EXTRACT[(][^ ]* FROM *)('[^']*')/", '\1 timestamp \2', $res);
+    $res = preg_replace("/\sLIKE\s+/", ' ILIKE ', $res);
+    return str_replace('REGEXP', '~', $res);
 }
 
 // http://doc.spip.org/@spip_pg_fromfield
 function spip_pg_fromfield($arg)
 {
-	while(preg_match('/^(.*?)FIELD\s*\(([^,]*)((,[^,)]*)*)\)/', $arg, $m)) {
-
-		preg_match_all('/,([^,]*)/', $m[3], $r, PREG_PATTERN_ORDER);
-		$res = '';
-		$n=0;
-		$index = $m[2];
-		foreach($r[1] as $v) {
-			$n++;
-			$res .= "\nwhen $index=$v then $n";
-		}
-		$arg = $m[1] . "case $res else 0 end "
-		  . substr($arg,strlen($m[0]));
-	}
-	return $arg;
+    while(preg_match('/^(.*?)FIELD\s*\(([^,]*)((,[^,)]*)*)\)/', $arg, $m)) {
+
+        preg_match_all('/,([^,]*)/', $m[3], $r, PREG_PATTERN_ORDER);
+        $res = '';
+        $n=0;
+        $index = $m[2];
+        foreach($r[1] as $v) {
+            $n++;
+            $res .= "\nwhen $index=$v then $n";
+        }
+        $arg = $m[1] . "case $res else 0 end "
+            . substr($arg,strlen($m[0]));
+    }
+    return $arg;
 }
 
 // http://doc.spip.org/@calculer_pg_where
 function calculer_pg_where($v)
 {
-	if (!is_array($v))
-		return spip_pg_frommysql($v);
-
-	$op = str_replace('REGEXP', '~', array_shift($v));
-	if (!($n=count($v)))
-		return $op;
-	else {
-		$arg = calculer_pg_where(array_shift($v));
-		if ($n==1) {
-			  return "$op($arg)";
-		} else {
-			$arg2 = calculer_pg_where(array_shift($v));
-			if ($n==2) {
-				return "($arg $op $arg2)";
-			} else return "($arg $op ($arg2) : $v[0])";
-		}
-	}
+    if (!is_array($v))
+        return spip_pg_frommysql($v);
+
+    $op = str_replace('REGEXP', '~', array_shift($v));
+    if (!($n=count($v)))
+        return $op;
+    else {
+        $arg = calculer_pg_where(array_shift($v));
+        if ($n==1) {
+                return "$op($arg)";
+        } else {
+            $arg2 = calculer_pg_where(array_shift($v));
+            if ($n==2) {
+                return "($arg $op $arg2)";
+            } else return "($arg $op ($arg2) : $v[0])";
+        }
+    }
 }
 
 
 // http://doc.spip.org/@calculer_pg_expression
 function calculer_pg_expression($expression, $v, $join = 'AND'){
-	if (empty($v))
-		return '';
+    if (empty($v))
+        return '';
 	
-	$exp = "\n$expression ";
+    $exp = "\n$expression ";
 	
-	if (!is_array($v)) $v = array($v);
+    if (!is_array($v)) $v = array($v);
 	
-	if (strtoupper($join) === 'AND')
-			return $exp . join("\n\t$join ", array_map('calculer_pg_where', $v));
-		else
-			return $exp . join($join, $v);
+    if (strtoupper($join) === 'AND')
+            return $exp . join("\n\t$join ", array_map('calculer_pg_where', $v));
+        else
+            return $exp . join($join, $v);
 }
 
 // http://doc.spip.org/@spip_pg_select_as
 function spip_pg_select_as($args)
 {
-	$argsas = "";
-	foreach($args as $k => $v) {
-		if (substr($k,-1)=='@') {
-			// c'est une jointure qui se refere au from precedent
-			// pas de virgule
-		  $argsas .= '  ' . $v ;
-		}
-		else {
-			$as = '';
-			//  spip_log("$k : $v", _LOG_DEBUG);
-			if (!is_numeric($k)) {
-				if (preg_match('/\.(.*)$/', $k, $r))
-					$v = $k;
-				elseif ($v != $k) {
-					$p = strpos($v, " ");
-					if ($p)
-					  $v = substr($v,0,$p) . " AS $k" . substr($v,$p);
-					else  $as = " AS $k"; 
-				}
-			}
-			// spip_log("subs $k : $v avec $as", _LOG_DEBUG);
-			// if (strpos($v, 'JOIN') === false)  $argsas .= ', ';
-			$argsas .= ', '. $v . $as; 
-		}
-	}
-	return substr($argsas,2);
+    $argsas = "";
+    foreach($args as $k => $v) {
+        if (substr($k,-1)=='@') {
+            // c'est une jointure qui se refere au from precedent
+            // pas de virgule
+            $argsas .= '  ' . $v ;
+        }
+        else {
+            $as = '';
+            //  spip_log("$k : $v", _LOG_DEBUG);
+            if (!is_numeric($k)) {
+                if (preg_match('/\.(.*)$/', $k, $r))
+                    $v = $k;
+                elseif ($v != $k) {
+                    $p = strpos($v, " ");
+                    if ($p)
+                        $v = substr($v,0,$p) . " AS $k" . substr($v,$p);
+                    else  $as = " AS $k"; 
+                }
+            }
+            // spip_log("subs $k : $v avec $as", _LOG_DEBUG);
+            // if (strpos($v, 'JOIN') === false)  $argsas .= ', ';
+            $argsas .= ', '. $v . $as; 
+        }
+    }
+    return substr($argsas,2);
 }
 
 // http://doc.spip.org/@spip_pg_fetch
 function spip_pg_fetch($res, $t='', $serveur='',$requeter=true) {
 
-	if ($res) $res = pg_fetch_array($res, NULL, PGSQL_ASSOC);
-	return $res;
+    if ($res) $res = pg_fetch_array($res, NULL, PGSQL_ASSOC);
+    return $res;
 }
 
 function spip_pg_seek($r, $row_number, $serveur='',$requeter=true) {
-	if ($r) return pg_result_seek($r,$row_number);
+    if ($r) return pg_result_seek($r,$row_number);
 }
 
 
 // http://doc.spip.org/@spip_pg_countsel
 function spip_pg_countsel($from = array(), $where = array(), $groupby=array(),
-			  $having = array(), $serveur='',$requeter=true) 
+                $having = array(), $serveur='',$requeter=true) 
 {
-	$c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
-	$r = spip_pg_select("COUNT($c)", $from, $where,'', '', '', $having, $serveur, $requeter);
-	if (!$requeter) return $r;
-	if (!is_resource($r)) return 0;
-	list($c) = pg_fetch_array($r, NULL, PGSQL_NUM);
-	return $c;
+    $c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
+    $r = spip_pg_select("COUNT($c)", $from, $where,'', '', '', $having, $serveur, $requeter);
+    if (!$requeter) return $r;
+    if (!is_resource($r)) return 0;
+    list($c) = pg_fetch_array($r, NULL, PGSQL_NUM);
+    return $c;
 }
 
 // http://doc.spip.org/@spip_pg_count
 function spip_pg_count($res, $serveur='',$requeter=true) {
-	return !$res ? 0 : pg_numrows($res);
+    return !$res ? 0 : pg_numrows($res);
 }
   
 // http://doc.spip.org/@spip_pg_free
 function spip_pg_free($res, $serveur='',$requeter=true) {
-  // rien a faire en postgres
+    // rien a faire en postgres
 }
 
 // http://doc.spip.org/@spip_pg_delete
 function spip_pg_delete($table, $where='', $serveur='',$requeter=true) {
 
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-	if ($prefixe) $table = preg_replace('/^spip/', $prefixe, $table);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+    if ($prefixe) $table = preg_replace('/^spip/', $prefixe, $table);
 	
-	$query = calculer_pg_expression('DELETE FROM', $table, ',')
-			. calculer_pg_expression('WHERE', $where, 'AND');
+    $query = calculer_pg_expression('DELETE FROM', $table, ',')
+            . calculer_pg_expression('WHERE', $where, 'AND');
 			
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) return $query;
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) return $query;
 	
-	$res = spip_pg_trace_query($query, $serveur);
-	if ($res)
-		return pg_affected_rows($res);
-	else
-		return false;
+    $res = spip_pg_trace_query($query, $serveur);
+    if ($res)
+        return pg_affected_rows($res);
+    else
+        return false;
 }
 
 // http://doc.spip.org/@spip_pg_insert
 function spip_pg_insert($table, $champs, $valeurs, $desc=array(), $serveur='',$requeter=true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	if (!$desc) $desc = description_table($table, $serveur);
-	$seq = spip_pg_sequence($table,true);
-	// si pas de cle primaire dans l'insertion, renvoyer curval
-	if (!preg_match(",\b$seq\b,",$champs)){
-		$seq = spip_pg_sequence($table);
-		if ($prefixe)
-			$seq = preg_replace('/^spip/', $prefixe, $seq);
-		$seq = "currval('$seq')";
-	}
-
-
-	if ($prefixe) {
-		$table = preg_replace('/^spip/', $prefixe, $table);
-	}
-	$ret = !$seq ? '' : (" RETURNING $seq");
-	$ins = (strlen($champs)<3)
-	  ? " DEFAULT VALUES"
-	  : "$champs VALUES $valeurs";
-	$q ="INSERT INTO $table $ins $ret";
-	if (!$requeter) return $q;
-	$connexion['last'] = $q;
-	$r = spip_pg_query_simple($link, $q);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    if (!$desc) $desc = description_table($table, $serveur);
+    $seq = spip_pg_sequence($table,true);
+    // si pas de cle primaire dans l'insertion, renvoyer curval
+    if (!preg_match(",\b$seq\b,",$champs)){
+        $seq = spip_pg_sequence($table);
+        if ($prefixe)
+            $seq = preg_replace('/^spip/', $prefixe, $seq);
+        $seq = "currval('$seq')";
+    }
+
+
+    if ($prefixe) {
+        $table = preg_replace('/^spip/', $prefixe, $table);
+    }
+    $ret = !$seq ? '' : (" RETURNING $seq");
+    $ins = (strlen($champs)<3)
+      ? " DEFAULT VALUES"
+      : "$champs VALUES $valeurs";
+    $q ="INSERT INTO $table $ins $ret";
+    if (!$requeter) return $q;
+    $connexion['last'] = $q;
+    $r = spip_pg_query_simple($link, $q);
 #	spip_log($q,'pg.'._LOG_DEBUG);
-	if ($r) {
-		if (!$ret) return 0;
-		if ($r2 = pg_fetch_array($r, NULL, PGSQL_NUM))
-			return $r2[0];
-	}
-	return false;
+    if ($r) {
+        if (!$ret) return 0;
+        if ($r2 = pg_fetch_array($r, NULL, PGSQL_NUM))
+            return $r2[0];
+    }
+    return false;
 }
 
 // http://doc.spip.org/@spip_pg_insertq
 function spip_pg_insertq($table, $couples=array(), $desc=array(), $serveur='',$requeter=true) {
 
-	if (!$desc) $desc = description_table($table, $serveur);
-	if (!$desc) die("$table insertion sans description");
-	$fields =  $desc['field'];
+    if (!$desc) $desc = description_table($table, $serveur);
+    if (!$desc) die("$table insertion sans description");
+    $fields =  $desc['field'];
 	
-	foreach ($couples as $champ => $val) {
-		$couples[$champ]=  spip_pg_cite($val, $fields[$champ]);
-	}
+    foreach ($couples as $champ => $val) {
+        $couples[$champ]=  spip_pg_cite($val, $fields[$champ]);
+    }
 
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
 	
-	return spip_pg_insert($table, "(".join(',',array_keys($couples)).")", "(".join(',', $couples).")", $desc, $serveur, $requeter);
+    return spip_pg_insert($table, "(".join(',',array_keys($couples)).")", "(".join(',', $couples).")", $desc, $serveur, $requeter);
 }
 
 
@@ -864,148 +864,148 @@ 
 // http://doc.spip.org/@spip_pg_insertq_multi
 function spip_pg_insertq_multi($table, $tab_couples=array(), $desc=array(), $serveur='',$requeter=true) {
 
-	if (!$desc) $desc = description_table($table, $serveur);
-	if (!$desc) die("$table insertion sans description");
-	$fields =  isset($desc['field'])?$desc['field']:array();
+    if (!$desc) $desc = description_table($table, $serveur);
+    if (!$desc) die("$table insertion sans description");
+    $fields =  isset($desc['field'])?$desc['field']:array();
 	
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	// une premiere fois pour ajouter maj dans les cles
-	$c = isset($tab_couples[0]) ? $tab_couples[0] : array();
-	$les_cles = spip_pg_ajouter_champs_timestamp($table, $c, $desc, $serveur);
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    // une premiere fois pour ajouter maj dans les cles
+    $c = isset($tab_couples[0]) ? $tab_couples[0] : array();
+    $les_cles = spip_pg_ajouter_champs_timestamp($table, $c, $desc, $serveur);
 	
-	$cles = "(" . join(',',array_keys($les_cles)). ')';
-	$valeurs = array();
-	foreach ($tab_couples as $couples) {
-		foreach ($couples as $champ => $val){
-			$couples[$champ]= spip_pg_cite($val, $fields[$champ]);
-		}
-		// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-		$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+    $cles = "(" . join(',',array_keys($les_cles)). ')';
+    $valeurs = array();
+    foreach ($tab_couples as $couples) {
+        foreach ($couples as $champ => $val){
+            $couples[$champ]= spip_pg_cite($val, $fields[$champ]);
+        }
+        // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+        $couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
 		
-		$valeurs[] = '(' .join(',', $couples) . ')';
-	}
-	$valeurs = implode(', ',$valeurs);
+        $valeurs[] = '(' .join(',', $couples) . ')';
+    }
+    $valeurs = implode(', ',$valeurs);
 	
-	return	spip_pg_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
+    return	spip_pg_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
 }
 
 
 // http://doc.spip.org/@spip_pg_update
 function spip_pg_update($table, $couples, $where='', $desc='', $serveur='',$requeter=true) {
 
-	if (!$couples) return;
-	$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-	if ($prefixe) $table = preg_replace('/^spip/', $prefixe, $table);
+    if (!$couples) return;
+    $connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+    if ($prefixe) $table = preg_replace('/^spip/', $prefixe, $table);
 
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
 
-	$set = array();
-	foreach ($couples as $champ => $val) {
-		$set[] = $champ . '=' . $val; 
-	}
+    $set = array();
+    foreach ($couples as $champ => $val) {
+        $set[] = $champ . '=' . $val; 
+    }
 
-	$query = calculer_pg_expression('UPDATE', $table, ',')
-		. calculer_pg_expression('SET', $set, ',')
-		. calculer_pg_expression('WHERE', $where, 'AND');
+    $query = calculer_pg_expression('UPDATE', $table, ',')
+        . calculer_pg_expression('SET', $set, ',')
+        . calculer_pg_expression('WHERE', $where, 'AND');
 		
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) return $query;
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) return $query;
 	
-	return spip_pg_trace_query($query, $serveur);
+    return spip_pg_trace_query($query, $serveur);
 }
 
 // idem, mais les valeurs sont des constantes a mettre entre apostrophes
 // sauf les expressions de date lorsqu'il s'agit de fonctions SQL (NOW etc)
 // http://doc.spip.org/@spip_pg_updateq
 function spip_pg_updateq($table, $couples, $where='', $desc=array(), $serveur='',$requeter=true) {
-	if (!$couples) return;
-	if (!$desc) $desc = description_table($table, $serveur);
-	$fields = $desc['field'];
-	foreach ($couples as $k => $val) {
-		$couples[$k] = spip_pg_cite($val, $fields[$k]);
-	}
-
-	return spip_pg_update($table, $couples, $where, $desc, $serveur, $requeter);
+    if (!$couples) return;
+    if (!$desc) $desc = description_table($table, $serveur);
+    $fields = $desc['field'];
+    foreach ($couples as $k => $val) {
+        $couples[$k] = spip_pg_cite($val, $fields[$k]);
+    }
+
+    return spip_pg_update($table, $couples, $where, $desc, $serveur, $requeter);
 }
 
 
 // http://doc.spip.org/@spip_pg_replace
 function spip_pg_replace($table, $values, $desc, $serveur='',$requeter=true) {
-	if (!$values) {spip_log("replace vide $table",'pg.'._LOG_AVERTISSEMENT); return 0;}
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	if (!$desc) $desc = description_table($table, $serveur);
-	if (!$desc) die("$table insertion sans description");
-	$prim = $desc['key']['PRIMARY KEY'];
-	$ids = preg_split('/,\s*/', $prim);
-	$noprims = $prims = array();
-	foreach($values as $k=>$v) {
-		$values[$k] = $v = spip_pg_cite($v, $desc['field'][$k]);
-
-		if (!in_array($k, $ids))
-			$noprims[$k]= "$k=$v";
-		else $prims[$k]= "$k=$v";
-	}
-
-	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
-	$values = spip_pg_ajouter_champs_timestamp($table, $values, $desc, $serveur);
+    if (!$values) {spip_log("replace vide $table",'pg.'._LOG_AVERTISSEMENT); return 0;}
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    if (!$desc) $desc = description_table($table, $serveur);
+    if (!$desc) die("$table insertion sans description");
+    $prim = $desc['key']['PRIMARY KEY'];
+    $ids = preg_split('/,\s*/', $prim);
+    $noprims = $prims = array();
+    foreach($values as $k=>$v) {
+        $values[$k] = $v = spip_pg_cite($v, $desc['field'][$k]);
+
+        if (!in_array($k, $ids))
+            $noprims[$k]= "$k=$v";
+        else $prims[$k]= "$k=$v";
+    }
+
+    // recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
+    $values = spip_pg_ajouter_champs_timestamp($table, $values, $desc, $serveur);
 	
-	$where = join(' AND ', $prims);
-	if (!$where) {
-		return spip_pg_insert($table, "(".join(',',array_keys($values)).")", "(".join(',', $values).")", $desc, $serveur);
-	}
-	$couples = join(',', $noprims);
-
-	$seq = spip_pg_sequence($table);
-	if ($prefixe) {
-		$table = preg_replace('/^spip/', $prefixe, $table);
-		$seq = preg_replace('/^spip/', $prefixe, $seq);
-	}
-
-	$connexion['last'] = $q = "UPDATE $table SET $couples WHERE $where";
-	if ($couples) {
-	  $couples = spip_pg_query_simple($link, $q);
+    $where = join(' AND ', $prims);
+    if (!$where) {
+        return spip_pg_insert($table, "(".join(',',array_keys($values)).")", "(".join(',', $values).")", $desc, $serveur);
+    }
+    $couples = join(',', $noprims);
+
+    $seq = spip_pg_sequence($table);
+    if ($prefixe) {
+        $table = preg_replace('/^spip/', $prefixe, $table);
+        $seq = preg_replace('/^spip/', $prefixe, $seq);
+    }
+
+    $connexion['last'] = $q = "UPDATE $table SET $couples WHERE $where";
+    if ($couples) {
+        $couples = spip_pg_query_simple($link, $q);
 #	  spip_log($q,'pg.'._LOG_DEBUG);
-	  if (!$couples) return false;
-	  $couples = pg_affected_rows($couples);
-	}
-	if (!$couples) {
-		$ret = !$seq ? '' :
-		  (" RETURNING nextval('$seq') < $prim");
-		$connexion['last'] = $q = "INSERT INTO $table (" . join(',',array_keys($values)) . ') VALUES (' .join(',', $values) . ")$ret";
-		$couples = spip_pg_query_simple($link, $q);
-	    if (!$couples) {
-		return false;
-	    } elseif ($ret) {
-	      $r = pg_fetch_array($couples, NULL, PGSQL_NUM);
-	      if ($r[0]) {
-		$connexion['last'] = $q = "SELECT setval('$seq', $prim) from $table";
-		// Le code de SPIP met parfois la sequence a 0 (dans l'import)
-		// MySQL n'en dit rien, on fait pareil pour PG
-		$r = @pg_query($link, $q);
-	      }
-	    }
-	}
-
-	return $couples;
+        if (!$couples) return false;
+        $couples = pg_affected_rows($couples);
+    }
+    if (!$couples) {
+        $ret = !$seq ? '' :
+          (" RETURNING nextval('$seq') < $prim");
+        $connexion['last'] = $q = "INSERT INTO $table (" . join(',',array_keys($values)) . ') VALUES (' .join(',', $values) . ")$ret";
+        $couples = spip_pg_query_simple($link, $q);
+        if (!$couples) {
+        return false;
+        } elseif ($ret) {
+            $r = pg_fetch_array($couples, NULL, PGSQL_NUM);
+            if ($r[0]) {
+        $connexion['last'] = $q = "SELECT setval('$seq', $prim) from $table";
+        // Le code de SPIP met parfois la sequence a 0 (dans l'import)
+        // MySQL n'en dit rien, on fait pareil pour PG
+        $r = @pg_query($link, $q);
+            }
+        }
+    }
+
+    return $couples;
 }
 
 
 // http://doc.spip.org/@spip_pg_replace_multi
 function spip_pg_replace_multi($table, $tab_couples, $desc=array(), $serveur='',$requeter=true) {
-	// boucler pour traiter chaque requete independemment
-	foreach ($tab_couples as $couples){
-		$retour = spip_pg_replace($table, $couples, $desc, $serveur,$requeter);
-	}
-	// renvoie le dernier id 
-	return $retour; 
+    // boucler pour traiter chaque requete independemment
+    foreach ($tab_couples as $couples){
+        $retour = spip_pg_replace($table, $couples, $desc, $serveur,$requeter);
+    }
+    // renvoie le dernier id 
+    return $retour; 
 }
 
 
@@ -1016,15 +1016,15 @@ 
 // http://doc.spip.org/@spip_pg_sequence
 function spip_pg_sequence($table,$raw=false)
 {
-	global $tables_principales;
-	include_spip('base/serial');
-	if (!isset($tables_principales[$table])) return false;
-	$desc = $tables_principales[$table];
-	$prim = @$desc['key']['PRIMARY KEY'];
-	if (!preg_match('/^\w+$/', $prim)
-	OR strpos($desc['field'][$prim], 'int') === false)
-		return '';
-	else  {	return $raw?$prim:$table . '_' . $prim . "_seq";}
+    global $tables_principales;
+    include_spip('base/serial');
+    if (!isset($tables_principales[$table])) return false;
+    $desc = $tables_principales[$table];
+    $prim = @$desc['key']['PRIMARY KEY'];
+    if (!preg_match('/^\w+$/', $prim)
+    OR strpos($desc['field'][$prim], 'int') === false)
+        return '';
+    else  {	return $raw?$prim:$table . '_' . $prim . "_seq";}
 }
 
 // Explicite les conversions de Mysql d'une valeur $v de type $t
@@ -1032,60 +1032,60 @@ 
 
 // http://doc.spip.org/@spip_pg_cite
 function spip_pg_cite($v, $t){
-	if(is_null($v)) return 'NULL'; // null php se traduit en NULL SQL
-
-	if (sql_test_date($t)) {
-		if ($v AND (strpos("0123456789", $v[0]) === false))
-			return spip_pg_frommysql($v);
-		else {
-			if (strncmp($v,'0000',4)==0)
-				$v = "0001" . substr($v,4);
-			if (strpos($v, "-00-00") === 4)
-				$v = substr($v,0,4)."-01-01".substr($v,10);
-			return "timestamp '$v'";
-		}
-	}
-	elseif (!sql_test_int($t))
-		return   ("'" . pg_escape_string($v) . "'");
-	elseif (is_numeric($v) OR (strpos($v, 'CAST(') === 0))
-		return $v;
-	elseif ($v[0]== '0' AND $v[1]!=='x' AND  ctype_xdigit(substr($v,1)))
-		return  substr($v,1);
-	else {
-		spip_log("Warning: '$v'  n'est pas de type $t", 'pg.'._LOG_AVERTISSEMENT);
-		return intval($v);
-	}
+    if(is_null($v)) return 'NULL'; // null php se traduit en NULL SQL
+
+    if (sql_test_date($t)) {
+        if ($v AND (strpos("0123456789", $v[0]) === false))
+            return spip_pg_frommysql($v);
+        else {
+            if (strncmp($v,'0000',4)==0)
+                $v = "0001" . substr($v,4);
+            if (strpos($v, "-00-00") === 4)
+                $v = substr($v,0,4)."-01-01".substr($v,10);
+            return "timestamp '$v'";
+        }
+    }
+    elseif (!sql_test_int($t))
+        return   ("'" . pg_escape_string($v) . "'");
+    elseif (is_numeric($v) OR (strpos($v, 'CAST(') === 0))
+        return $v;
+    elseif ($v[0]== '0' AND $v[1]!=='x' AND  ctype_xdigit(substr($v,1)))
+        return  substr($v,1);
+    else {
+        spip_log("Warning: '$v'  n'est pas de type $t", 'pg.'._LOG_AVERTISSEMENT);
+        return intval($v);
+    }
 }
 
 // http://doc.spip.org/@spip_pg_hex
 function spip_pg_hex($v)
 {
-	return "CAST(x'" . $v . "' as bigint)";
+    return "CAST(x'" . $v . "' as bigint)";
 }
 
 function spip_pg_quote($v, $type='')
 {
-	if (!is_array($v))
-		return spip_pg_cite($v,$type);
-	// si c'est un tableau, le parcourir en propageant le type
-	foreach($v as $k=>$r)
-		$v[$k] = spip_pg_quote($r, $type);
-	return join(",", $v);
+    if (!is_array($v))
+        return spip_pg_cite($v,$type);
+    // si c'est un tableau, le parcourir en propageant le type
+    foreach($v as $k=>$r)
+        $v[$k] = spip_pg_quote($r, $type);
+    return join(",", $v);
 }
 
 function spip_pg_date_proche($champ, $interval, $unite)
 {
-	return '('
-	. $champ
+    return '('
+    . $champ
         . (($interval <= 0) ? '>' : '<')
         . (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
-	. '('
-	. sql_quote(date('Y-m-d H:i:s'))
-	. ', INTERVAL '
-	. (($interval > 0) ? $interval : (0-$interval))
-	. ' '
-	. $unite
-	. '))';
+    . '('
+    . sql_quote(date('Y-m-d H:i:s'))
+    . ', INTERVAL '
+    . (($interval > 0) ? $interval : (0-$interval))
+    . ' '
+    . $unite
+    . '))';
 }
 
 // http://doc.spip.org/@spip_pg_in
@@ -1093,59 +1093,59 @@ 
 //
 // IN (...) souvent limite a 255  elements, d'ou cette fonction assistante
 //
-	// s'il n'y a pas de valeur, eviter de produire un IN vide: PG rale.
-	if (!$valeurs) return $not ? '0=0' : '0=1';
-	if (strpos($valeurs, "CAST(x'") !== false)
-		return "($val=" . join("OR $val=", explode(',',$valeurs)).')';
-	$n = $i = 0;
-	$in_sql ="";
-	while ($n = strpos($valeurs, ',', $n+1)) {
-	  if ((++$i) >= 255) {
-			$in_sql .= "($val $not IN (" .
-			  substr($valeurs, 0, $n) .
-			  "))\n" .
-			  ($not ? "AND\t" : "OR\t");
-			$valeurs = substr($valeurs, $n+1);
-			$i = $n = 0;
-		}
-	}
-	$in_sql .= "($val $not IN ($valeurs))";
-
-	return "($in_sql)";
+    // s'il n'y a pas de valeur, eviter de produire un IN vide: PG rale.
+    if (!$valeurs) return $not ? '0=0' : '0=1';
+    if (strpos($valeurs, "CAST(x'") !== false)
+        return "($val=" . join("OR $val=", explode(',',$valeurs)).')';
+    $n = $i = 0;
+    $in_sql ="";
+    while ($n = strpos($valeurs, ',', $n+1)) {
+        if ((++$i) >= 255) {
+            $in_sql .= "($val $not IN (" .
+                substr($valeurs, 0, $n) .
+                "))\n" .
+                ($not ? "AND\t" : "OR\t");
+            $valeurs = substr($valeurs, $n+1);
+            $i = $n = 0;
+        }
+    }
+    $in_sql .= "($val $not IN ($valeurs))";
+
+    return "($in_sql)";
 }
 
 // http://doc.spip.org/@spip_pg_error
 function spip_pg_error($query='', $serveur, $requeter=true) {
-	$link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
-	$s = $link ? pg_last_error($link) : pg_last_error();
-	if ($s) {
-		$s = str_replace('ERROR', 'errcode: 1000 ', $s);
-		spip_log("$s - $query", 'pg.'._LOG_ERREUR);
-	}
-	return $s;
+    $link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
+    $s = $link ? pg_last_error($link) : pg_last_error();
+    if ($s) {
+        $s = str_replace('ERROR', 'errcode: 1000 ', $s);
+        spip_log("$s - $query", 'pg.'._LOG_ERREUR);
+    }
+    return $s;
 }
 
 // http://doc.spip.org/@spip_pg_errno
 function spip_pg_errno($serveur='') {
-  // il faudrait avoir la derniere ressource retournee et utiliser
-  // http://fr2.php.net/manual/fr/function.pg-result-error.php
-	return 0;
+    // il faudrait avoir la derniere ressource retournee et utiliser
+    // http://fr2.php.net/manual/fr/function.pg-result-error.php
+    return 0;
 }
 
 // http://doc.spip.org/@spip_pg_drop_table
 function spip_pg_drop_table($table, $exist='', $serveur='',$requeter=true)
 {
-	if ($exist) $exist =" IF EXISTS";
-	if (spip_pg_query("DROP TABLE$exist $table", $serveur, $requeter))
-		return true;
-	else return false;
+    if ($exist) $exist =" IF EXISTS";
+    if (spip_pg_query("DROP TABLE$exist $table", $serveur, $requeter))
+        return true;
+    else return false;
 }
 
 // supprime une vue 
 // http://doc.spip.org/@spip_pg_drop_view
 function spip_pg_drop_view($view, $exist='', $serveur='',$requeter=true) {
-	if ($exist) $exist =" IF EXISTS";
-	return spip_pg_query("DROP VIEW$exist $view", $serveur, $requeter);
+    if ($exist) $exist =" IF EXISTS";
+    return spip_pg_query("DROP VIEW$exist $view", $serveur, $requeter);
 }
 
 /**
@@ -1163,39 +1163,39 @@ 
 **/
 function spip_pg_showbase($match, $serveur='',$requeter=true)
 {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$connexion['last'] = $q = "SELECT tablename FROM pg_tables WHERE tablename ILIKE "._q($match);
-	return spip_pg_query_simple($link, $q);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $connexion['last'] = $q = "SELECT tablename FROM pg_tables WHERE tablename ILIKE "._q($match);
+    return spip_pg_query_simple($link, $q);
 }
 
 // http://doc.spip.org/@spip_pg_showtable
 function spip_pg_showtable($nom_table, $serveur='',$requeter=true)
 {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$connexion['last'] = $q = "SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE " . _q($nom_table);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $connexion['last'] = $q = "SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE " . _q($nom_table);
 
-	$res = spip_pg_query_simple($link, $q);
-	if (!$res) return false;
+    $res = spip_pg_query_simple($link, $q);
+    if (!$res) return false;
 	
-	// etrangement, $res peut ne rien contenir, mais arriver ici...
-	// il faut en tenir compte dans le return
-	$fields = array();
-	while($field = pg_fetch_array($res, NULL, PGSQL_NUM)) {
-		$fields[$field[0]] = $field[2] . (!$field[1] ? '' : (" DEFAULT " . $field[1]));
-	}
-	$connexion['last'] = $q = "SELECT indexdef FROM pg_indexes WHERE tablename ILIKE " . _q($nom_table);
-	$res = spip_pg_query_simple($link, $q);
-	$keys = array();
-	while($index = pg_fetch_array($res, NULL, PGSQL_NUM)) {
-		if (preg_match('/CREATE\s+(UNIQUE\s+)?INDEX\s([^\s]+).*\((.*)\)$/', $index[0],$r)) {
-			$nom = str_replace($nom_table.'_','',$r[2]);
-			$keys[($r[1] ? "PRIMARY KEY" : ("KEY " . $nom))] = $r[3];
-		}
-	}
-
-	return count($fields) ? array('field' => $fields, 'key' => $keys) : false;
+    // etrangement, $res peut ne rien contenir, mais arriver ici...
+    // il faut en tenir compte dans le return
+    $fields = array();
+    while($field = pg_fetch_array($res, NULL, PGSQL_NUM)) {
+        $fields[$field[0]] = $field[2] . (!$field[1] ? '' : (" DEFAULT " . $field[1]));
+    }
+    $connexion['last'] = $q = "SELECT indexdef FROM pg_indexes WHERE tablename ILIKE " . _q($nom_table);
+    $res = spip_pg_query_simple($link, $q);
+    $keys = array();
+    while($index = pg_fetch_array($res, NULL, PGSQL_NUM)) {
+        if (preg_match('/CREATE\s+(UNIQUE\s+)?INDEX\s([^\s]+).*\((.*)\)$/', $index[0],$r)) {
+            $nom = str_replace($nom_table.'_','',$r[2]);
+            $keys[($r[1] ? "PRIMARY KEY" : ("KEY " . $nom))] = $r[3];
+        }
+    }
+
+    return count($fields) ? array('field' => $fields, 'key' => $keys) : false;
 }
 
 // Fonction de creation d'une table SQL nommee $nom
@@ -1207,104 +1207,104 @@ 
 // http://doc.spip.org/@spip_pg_create
 function spip_pg_create($nom, $champs, $cles, $autoinc=false, $temporary=false, $serveur='',$requeter=true) {
 
-	$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-	if ($prefixe) $nom = preg_replace('/^spip/', $prefixe, $nom);
-	$query = $prim = $prim_name = $v = $s = $p='';
-	$keys = array();
-
-	// certains plugins declarent les tables  (permet leur inclusion dans le dump)
-	// sans les renseigner (laisse le compilo recuperer la description)
-	if (!is_array($champs) || !is_array($cles)) 
-		return;
-
-	foreach($cles as $k => $v) {
-		if (strpos($k, "KEY ") === 0) {
-		  $n = str_replace('`','',$k);	
-		  $v = str_replace('`','"',$v);	
-		  $i = $nom . preg_replace("/KEY +/", '_',$n);
-		  if ($k != $n) $i = "\"$i\"";
-		  $keys[] = "CREATE INDEX $i ON $nom ($v);";
-		} 
-		elseif (strpos($k, "UNIQUE ") === 0) {
-			$k = preg_replace("/^UNIQUE +/", '',$k);
-			$prim .= "$s\n\t\tCONSTRAINT " . str_replace('`','"',$k) ." UNIQUE ($v)";
-		}
-		else {
-			$prim .= "$s\n\t\t" . str_replace('`','"',$k) ." ($v)";
-		}
-		if ($k == "PRIMARY KEY")
-			$prim_name = $v;
-		$s = ",";
-	}
-	$s = '';
+    $connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+    if ($prefixe) $nom = preg_replace('/^spip/', $prefixe, $nom);
+    $query = $prim = $prim_name = $v = $s = $p='';
+    $keys = array();
+
+    // certains plugins declarent les tables  (permet leur inclusion dans le dump)
+    // sans les renseigner (laisse le compilo recuperer la description)
+    if (!is_array($champs) || !is_array($cles)) 
+        return;
+
+    foreach($cles as $k => $v) {
+        if (strpos($k, "KEY ") === 0) {
+            $n = str_replace('`','',$k);	
+            $v = str_replace('`','"',$v);	
+            $i = $nom . preg_replace("/KEY +/", '_',$n);
+            if ($k != $n) $i = "\"$i\"";
+            $keys[] = "CREATE INDEX $i ON $nom ($v);";
+        } 
+        elseif (strpos($k, "UNIQUE ") === 0) {
+            $k = preg_replace("/^UNIQUE +/", '',$k);
+            $prim .= "$s\n\t\tCONSTRAINT " . str_replace('`','"',$k) ." UNIQUE ($v)";
+        }
+        else {
+            $prim .= "$s\n\t\t" . str_replace('`','"',$k) ." ($v)";
+        }
+        if ($k == "PRIMARY KEY")
+            $prim_name = $v;
+        $s = ",";
+    }
+    $s = '';
 	
-	$character_set = "";
-	if (@$GLOBALS['meta']['charset_sql_base'])
-		$character_set .= " CHARACTER SET ".$GLOBALS['meta']['charset_sql_base'];
-	if (@$GLOBALS['meta']['charset_collation_sql_base'])
-		$character_set .= " COLLATE ".$GLOBALS['meta']['charset_collation_sql_base'];
-
-	foreach($champs as $k => $v) {
-		$k = str_replace('`','"',$k);
-		if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i',$v,$defs)){
-			if (preg_match(',(char|text),i',$defs[1]) AND !preg_match(',binary,i',$defs[1]) ){
-				$v = $defs[1] . $character_set . ' ' . substr($v,strlen($defs[1]));
-			}
-		}
-
-		$query .= "$s\n\t\t$k "
-			. (($autoinc && ($prim_name == $k) && preg_match(',\b(big|small|medium|tiny)?int\b,i', $v))
-				? " bigserial"
-			   : mysql2pg_type($v)
-			);
-		$s = ",";
-	}
-	$temporary = $temporary ? 'TEMPORARY':'';
-
-	// En l'absence de "if not exists" en PG, on neutralise les erreurs
-
-	$q = "CREATE $temporary TABLE $nom ($query" . ($prim ? ",$prim" : '') . ")".
-	($character_set?" DEFAULT $character_set":"")
-	."\n";
-
-	if (!$requeter) return $q;
-	$connexion['last'] = $q;
-	$r = @pg_query($link, $q);
-
-	if (!$r)
-		spip_log("Impossible de creer cette table: $q",'pg.'._LOG_ERREUR);
-	else {
-		foreach($keys as $index) {pg_query($link, $index);}
-	} 
-	return $r;
+    $character_set = "";
+    if (@$GLOBALS['meta']['charset_sql_base'])
+        $character_set .= " CHARACTER SET ".$GLOBALS['meta']['charset_sql_base'];
+    if (@$GLOBALS['meta']['charset_collation_sql_base'])
+        $character_set .= " COLLATE ".$GLOBALS['meta']['charset_collation_sql_base'];
+
+    foreach($champs as $k => $v) {
+        $k = str_replace('`','"',$k);
+        if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i',$v,$defs)){
+            if (preg_match(',(char|text),i',$defs[1]) AND !preg_match(',binary,i',$defs[1]) ){
+                $v = $defs[1] . $character_set . ' ' . substr($v,strlen($defs[1]));
+            }
+        }
+
+        $query .= "$s\n\t\t$k "
+            . (($autoinc && ($prim_name == $k) && preg_match(',\b(big|small|medium|tiny)?int\b,i', $v))
+                ? " bigserial"
+               : mysql2pg_type($v)
+            );
+        $s = ",";
+    }
+    $temporary = $temporary ? 'TEMPORARY':'';
+
+    // En l'absence de "if not exists" en PG, on neutralise les erreurs
+
+    $q = "CREATE $temporary TABLE $nom ($query" . ($prim ? ",$prim" : '') . ")".
+    ($character_set?" DEFAULT $character_set":"")
+    ."\n";
+
+    if (!$requeter) return $q;
+    $connexion['last'] = $q;
+    $r = @pg_query($link, $q);
+
+    if (!$r)
+        spip_log("Impossible de creer cette table: $q",'pg.'._LOG_ERREUR);
+    else {
+        foreach($keys as $index) {pg_query($link, $index);}
+    } 
+    return $r;
 }
 
 
 function spip_pg_create_base($nom, $serveur='',$requeter=true) {
-  return spip_pg_query("CREATE DATABASE $nom", $serveur, $requeter);
+    return spip_pg_query("CREATE DATABASE $nom", $serveur, $requeter);
 }
 
 // Fonction de creation d'une vue SQL nommee $nom
 // http://doc.spip.org/@spip_pg_create_view
 function spip_pg_create_view($nom, $query_select, $serveur='',$requeter=true) {
-	if (!$query_select) return false;
-	// vue deja presente
-	if (sql_showtable($nom, false, $serveur)) {
-		if ($requeter) spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)",'pg.'._LOG_ERREUR);
-		return false;
-	}
+    if (!$query_select) return false;
+    // vue deja presente
+    if (sql_showtable($nom, false, $serveur)) {
+        if ($requeter) spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)",'pg.'._LOG_ERREUR);
+        return false;
+    }
 	
-	$query = "CREATE VIEW $nom AS ". $query_select;
-	return spip_pg_query($query, $serveur, $requeter);
+    $query = "CREATE VIEW $nom AS ". $query_select;
+    return spip_pg_query($query, $serveur, $requeter);
 }
 
 
 // http://doc.spip.org/@spip_pg_set_connect_charset
 function spip_pg_set_connect_charset($charset, $serveur='',$requeter=true){
-	spip_log("changement de charset sql a ecrire en PG",'pg.'._LOG_ERREUR);
+    spip_log("changement de charset sql a ecrire en PG",'pg.'._LOG_ERREUR);
 }
 
 
@@ -1318,7 +1318,7 @@ 
 **/
 // http://doc.spip.org/@spip_sqlite_optimize
 function spip_pg_optimize($table, $serveur='',$requeter=true){
-	return spip_pg_query("VACUUM ". $table, $serveur, $requeter);
+    return spip_pg_query("VACUUM ". $table, $serveur, $requeter);
 }
 
 // Selectionner la sous-chaine dans $objet
@@ -1326,12 +1326,12 @@ 
 
 // http://doc.spip.org/@spip_pg_multi
 function spip_pg_multi ($objet, $lang) {
-	$r = "regexp_replace("
-	  . $objet
-	  . ",'<multi>.*[[]"
-	  . $lang
-	  . "[]]([^[]*).*</multi>', E'\\\\1') AS multi";
-	return $r;
+    $r = "regexp_replace("
+        . $objet
+        . ",'<multi>.*[[]"
+        . $lang
+        . "[]]([^[]*).*</multi>', E'\\\\1') AS multi";
+    return $r;
 }
 
 // Palanquee d'idiosyncrasies MySQL dans les creations de table
@@ -1339,34 +1339,34 @@ 
 
 // http://doc.spip.org/@mysql2pg_type
 function mysql2pg_type($v){
-	$remplace = array(
-		'/auto_increment/i' => '', // non reconnu
-		'/bigint/i' => 'bigint',
-		'/mediumint/i' => 'mediumint',
-		'/smallint/i'=> 'smallint',
-		"/tinyint/i" => 'int',
-		'/int\s*[(]\s*\d+\s*[)]/i' => 'int',
-		"/longtext/i" => 'text',
-		"/mediumtext/i" => 'text',
-		"/tinytext/i" => 'text',
-		"/longblob/i" => 'text',
-		"/0000-00-00/" =>'0001-01-01',
-		"/datetime/i" => 'timestamp',
-		"/unsigned/i" => '',
-		"/double/i" => 'double precision',
-		'/VARCHAR\((\d+)\)\s+BINARY/i' => 'varchar(\1)',
-		"/ENUM *[(][^)]*[)]/i" => "varchar(255)",
-		'/(timestamp .* )ON .*$/is' => '\\1',
-	);
+    $remplace = array(
+        '/auto_increment/i' => '', // non reconnu
+        '/bigint/i' => 'bigint',
+        '/mediumint/i' => 'mediumint',
+        '/smallint/i'=> 'smallint',
+        "/tinyint/i" => 'int',
+        '/int\s*[(]\s*\d+\s*[)]/i' => 'int',
+        "/longtext/i" => 'text',
+        "/mediumtext/i" => 'text',
+        "/tinytext/i" => 'text',
+        "/longblob/i" => 'text',
+        "/0000-00-00/" =>'0001-01-01',
+        "/datetime/i" => 'timestamp',
+        "/unsigned/i" => '',
+        "/double/i" => 'double precision',
+        '/VARCHAR\((\d+)\)\s+BINARY/i' => 'varchar(\1)',
+        "/ENUM *[(][^)]*[)]/i" => "varchar(255)",
+        '/(timestamp .* )ON .*$/is' => '\\1',
+    );
 	
-  return preg_replace(array_keys($remplace),array_values($remplace),$v);
+    return preg_replace(array_keys($remplace),array_values($remplace),$v);
 }
 
 // Renvoie false si on n'a pas les fonctions pg (pour l'install)
 // http://doc.spip.org/@spip_versions_pg
 function spip_versions_pg(){
-	charger_php_extension('pgsql');
-	return function_exists('pg_connect');	
+    charger_php_extension('pgsql');
+    return function_exists('pg_connect');	
 }
 
 ?>

Braces +339 added lines, -187 removed lines

@@ -17,7 +17,9 @@ 
  * @package SPIP\SQL\PostgreSQL
  */
  
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 define('_DEFAULT_DB', 'spip');
 
@@ -31,7 +33,9 @@ 
 // http://doc.spip.org/@req_pg_dist
 function req_pg_dist($addr, $port, $login, $pass, $db='', $prefixe='') {
 	static $last_connect = array();
-	if (!charger_php_extension('pgsql')) return false;
+	if (!charger_php_extension('pgsql')) {
+	    return false;
+	}
 	
 	// si provient de selectdb
 	if (empty($addr) && empty($port) && empty($login) && empty($pass)){
@@ -40,7 +44,11 @@ 
 		}
 	}
 	@list($host, $p) = explode(';', $addr);
-	if ($p >0) $port = " port=$p" ; else $port = '';
+	if ($p >0) {
+	    $port = " port=$p" ;
+	} else {
+	    $port = '';
+	}
 	$erreurs = array();
 	if ($db) {
 		@$link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
@@ -56,13 +64,14 @@ 
 	}
 	if (!$link) {
 		$erreurs[] = pg_last_error();
-		foreach($erreurs as $e)
-			spip_log('Echec pg_connect. Erreur : ' . $e,'pg.'._LOG_HS);
+		foreach($erreurs as $e) {
+					spip_log('Echec pg_connect. Erreur : ' . $e,'pg.'._LOG_HS);
+		}
 		return false;
 	}
 
-	if ($link)
-		$last_connect = array (
+	if ($link) {
+			$last_connect = array (
 			'addr' => $addr,
 			'port' => $port,
 			'login' => $login,
@@ -70,6 +79,7 @@ 
 			'db' => $db,
 			'prefixe' => $prefixe,
 		);
+	}
 		
 	spip_log("Connexion vers $host, base $db, prefixe $prefixe " . ($link ? 'operationnelle' : 'impossible'),'pg.'._LOG_DEBUG);
 
@@ -130,13 +140,18 @@ 
 	if (isset($_GET['var_profile'])) {
 		include_spip('public/tracer');
 		$t = trace_query_start();
-	} else $t = 0 ;
+	} else {
+	    $t = 0 ;
+	}
  
 	$connexion['last'] = $query;
 	$r = spip_pg_query_simple($link, $query);
 
-	if ($e = spip_pg_errno($serveur))	// Log de l'erreur eventuelle
-		$e .= spip_pg_error($query, $serveur); // et du fautif
+	if ($e = spip_pg_errno($serveur)) {
+	    // Log de l'erreur eventuelle
+		$e .= spip_pg_error($query, $serveur);
+	}
+	// et du fautif
 	return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
 }
 
@@ -154,11 +169,15 @@ 
 	if (preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
 		$suite = strstr($query, $regs[0]);
 		$query = substr($query, 0, -strlen($suite));
-	} else $suite ='';
+	} else {
+	    $suite ='';
+	}
 	$query = preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', $query) . $suite;
 
 	// renvoyer la requete inerte si demandee
-	if (!$requeter) return $query;
+	if (!$requeter) {
+	    return $query;
+	}
 
 	return spip_pg_trace_query($query, $serveur);
 }
@@ -185,7 +204,9 @@ 
 			$trouver_table = charger_fonction('trouver_table', 'base');
 			$desc = $trouver_table($table, $serveur);
 			// si pas de description, on ne fait rien, ou on die() ?
-			if (!$desc) return $couples;
+			if (!$desc) {
+			    return $couples;
+			}
 		}
 		
 		// recherche des champs avec simplement 'TIMESTAMP'
@@ -196,15 +217,17 @@ 
 		foreach ($desc['field'] as $k=>$v){
 			$v = strtolower(ltrim($v));
 			// ne pas ajouter de timestamp now() si un default est specifie
-			if (strpos($v, 'timestamp')===0 AND strpos($v, 'default')===false)
-				$tables[$table][] = $k;
+			if (strpos($v, 'timestamp')===0 AND strpos($v, 'default')===false) {
+							$tables[$table][] = $k;
+			}
 		}
 	}
 	
 	// ajout des champs type 'timestamp' absents
 	foreach ($tables[$table] as $maj){
-		if (!array_key_exists($maj, $couples))
-			$couples[$maj] = "NOW()";	
+		if (!array_key_exists($maj, $couples)) {
+					$couples[$maj] = "NOW()";
+		}
 	}
 	return $couples;
 }
@@ -232,9 +255,14 @@ 
 		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . "," . $do : $do;
 		$o=(false!==strpos($do,"("));
 		$f=(false!==strpos($do,")"));
-		if ($o AND !$f) $ouverte=true;
-		elseif ($f) $ouverte=false;
-		if (!$ouverte) $i++;
+		if ($o AND !$f) {
+		    $ouverte=true;
+		} elseif ($f) {
+		    $ouverte=false;
+		}
+		if (!$ouverte) {
+		    $i++;
+		}
 	}
 	$todo=$todo2;
 	$query = $debut.' '.array_shift($todo);
@@ -242,15 +270,20 @@ 
 	if (!preg_match('/^\s*(IGNORE\s*)?TABLE\s+(\w+)\s+(ADD|DROP|CHANGE|MODIFY|RENAME)\s*(.*)$/is', $query, $r)) {
 	  spip_log("$query incompris", 'pg.'._LOG_ERREUR);
 	} else {
-	  if ($r[1]) spip_log("j'ignore IGNORE dans $query", 'pg.'._LOG_AVERTISSEMENT);
+	  if ($r[1]) {
+	      spip_log("j'ignore IGNORE dans $query", 'pg.'._LOG_AVERTISSEMENT);
+	  }
 	  $f = 'spip_pg_alter_' . strtolower($r[3]);
-	  if (function_exists($f))
-	    $f($r[2], $r[4], $serveur, $requeter);
-	  else spip_log("$query non prevu", 'pg.'._LOG_ERREUR);
+	  if (function_exists($f)) {
+	  	    $f($r[2], $r[4], $serveur, $requeter);
+	  } else {
+	      spip_log("$query non prevu", 'pg.'._LOG_ERREUR);
+	  }
 	}
 	// Alter a plusieurs args. Faudrait optimiser.
-	if ($todo)
-	  spip_pg_alter("TABLE $table " . join(',',$todo));
+	if ($todo) {
+		  spip_pg_alter("TABLE $table " . join(',',$todo));
+	}
 
 }
 	      
@@ -262,20 +295,23 @@ 
 	} else {
 	  list(,$old, $new, $type, $default, $null, $def2) = $r;
 	  $actions = array("ALTER $old TYPE " . mysql2pg_type($type));
-	  if ($null)
-	    $actions[]= "ALTER $old SET NOT NULL";
-	  else
-	    $actions[]= "ALTER $old DROP NOT NULL";
-
-	  if ($d = ($default ? $default : $def2))
-	    $actions[]= "ALTER $old SET $d";
-	  else
-	    $actions[]= "ALTER $old DROP DEFAULT";
+	  if ($null) {
+	  	    $actions[]= "ALTER $old SET NOT NULL";
+	  } else {
+	  	    $actions[]= "ALTER $old DROP NOT NULL";
+	  }
+
+	  if ($d = ($default ? $default : $def2)) {
+	  	    $actions[]= "ALTER $old SET $d";
+	  } else {
+	  	    $actions[]= "ALTER $old DROP DEFAULT";
+	  }
 
 	  spip_pg_query("ALTER TABLE $table " . join(', ', $actions));
 
-	  if ($old != $new)
-	    spip_pg_query("ALTER TABLE $table RENAME $old TO $new", $serveur);
+	  if ($old != $new) {
+	  	    spip_pg_query("ALTER TABLE $table RENAME $old TO $new", $serveur);
+	  }
 	}
 }
 
@@ -305,8 +341,7 @@ 
 		if ($m[2]) {
 			$colonnes = substr($m[2],1,-1);
 			$nom_index = $m[1];
-		}
-		else {
+		} else {
 			// (colonne)
 			if ($m[1][0] == "(") {
 				$colonnes = substr($m[1],1,-1);
@@ -328,14 +363,14 @@ 
 
 // http://doc.spip.org/@spip_pg_alter_drop
 function spip_pg_alter_drop($table, $arg, $serveur='',$requeter=true) {
-	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*`?(\w*)`?/', $arg, $r))
-	  spip_log("alter drop: $arg  incompris", 'pg.'._LOG_ERREUR);
-	else {
-	    if (!$r[1] OR $r[1]=='COLUMN')
-	      return spip_pg_query("ALTER TABLE $table DROP " . $r[2],  $serveur);
-	    elseif ($r[1][0] == 'P')
-	      return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table" . '_pkey', $serveur);
-	    else {
+	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*`?(\w*)`?/', $arg, $r)) {
+		  spip_log("alter drop: $arg  incompris", 'pg.'._LOG_ERREUR);
+	} else {
+	    if (!$r[1] OR $r[1]=='COLUMN') {
+	    	      return spip_pg_query("ALTER TABLE $table DROP " . $r[2],  $serveur);
+	    } elseif ($r[1][0] == 'P') {
+	    	      return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table" . '_pkey', $serveur);
+	    } else {
 		return spip_pg_query("DROP INDEX " . $table . '_' . $r[2],  $serveur);
 	    }
 	}
@@ -358,8 +393,7 @@ 
 	// si TO, mais pas au debut
 	if (!stripos($arg,'TO ')){
 		$rename=$arg;
-	}
-	elseif (preg_match('/^(TO)\s*`?(\w*)`?/', $arg, $r)) {
+	} elseif (preg_match('/^(TO)\s*`?(\w*)`?/', $arg, $r)) {
 		$rename=$r[2];
 	} else {
 		spip_log("alter rename: $arg  incompris", 'pg.'._LOG_ERREUR);
@@ -393,11 +427,15 @@ 
 	$nom = $table.'_'.$nom;
 	// enlever d'eventuelles parentheses deja presentes sur champs
 	if (!is_array($champs)){
-		 if ($champs[0]=="(") $champs = substr($champs,1,-1);
+		 if ($champs[0]=="(") {
+		     $champs = substr($champs,1,-1);
+		 }
 		 $champs = array($champs);
 	}
 	$query = "CREATE INDEX $nom ON $table (" . join(',',$champs) . ")";
-	if (!$requeter) return $query;
+	if (!$requeter) {
+	    return $query;
+	}
 	$res = spip_pg_query($query, $serveur, $requeter);
 	return $res;
 }
@@ -405,17 +443,23 @@ 
 
 // http://doc.spip.org/@spip_pg_explain
 function spip_pg_explain($query, $serveur='',$requeter=true){
-	if (strpos(ltrim($query), 'SELECT') !== 0) return array();
+	if (strpos(ltrim($query), 'SELECT') !== 0) {
+	    return array();
+	}
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
 	$link = $connexion['link'];
 	if (preg_match('/\s(SET|VALUES|WHERE)\s/i', $query, $regs)) {
 		$suite = strstr($query, $regs[0]);
 		$query = substr($query, 0, -strlen($suite));
-	} else $suite ='';
+	} else {
+	    $suite ='';
+	}
 	$query = 'EXPLAIN ' . preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', $query) . $suite;
 
-	if (!$requeter) return $query;
+	if (!$requeter) {
+	    return $query;
+	}
 	$r = spip_pg_query_simple($link,$query);
 	return spip_pg_fetch($r, NULL, $serveur);
 }
@@ -441,11 +485,13 @@ 
 	$index = $serveur ? strtolower($serveur) : 0;
 
 	if ($link = spip_connect_db('', '', '', '', $db, 'pg', '', '')){
-		if (($db==$link['db']) && $GLOBALS['connexions'][$index] = $link)
-			return $db;
-	} else
-		return false;
-}
+		if (($db==$link['db']) && $GLOBALS['connexions'][$index] = $link) {
+					return $db;
+		}
+	} else {
+			return false;
+	}
+	}
 
 // Qu'une seule base pour le moment
 
@@ -455,8 +501,9 @@ 
 	$link = $connexion['link'];
 	$dbs = array();
 	$res = spip_pg_query_simple($link, "select * From pg_database");
-	while ($row = pg_fetch_array($res, NULL, PGSQL_NUM))
-		$dbs[] = reset($row);
+	while ($row = pg_fetch_array($res, NULL, PGSQL_NUM)) {
+			$dbs[] = reset($row);
+	}
 
 	return $dbs;
 }
@@ -489,8 +536,9 @@ 
 	$orderby = spip_pg_orderby($orderby, $select);
 
 	if ($having) {
-	  if (is_array($having))
-	    $having = join("\n\tAND ", array_map('calculer_pg_where', $having));
+	  if (is_array($having)) {
+	  	    $having = join("\n\tAND ", array_map('calculer_pg_where', $having));
+	  }
 	}
 	$from =  spip_pg_from($from, $prefixe);
 	$query =  "SELECT ". $select
@@ -502,7 +550,9 @@ 
 	  . (!$limit ? '' : (" LIMIT $count" . (!$offset ? '' : " OFFSET $offset")));
 
 	// renvoyer la requete inerte si demandee
-	if ($requeter === false) return $query;
+	if ($requeter === false) {
+	    return $query;
+	}
 	
 	$r = spip_pg_trace_query($query, $serveur);
 	return $r ? $r : $query;;
@@ -514,7 +564,9 @@ 
 // http://doc.spip.org/@spip_pg_from
 function spip_pg_from($from, $prefixe)
 {
-	if (is_array($from)) $from = spip_pg_select_as($from);
+	if (is_array($from)) {
+	    $from = spip_pg_select_as($from);
+	}
 	return !$prefixe ? $from : preg_replace('/(\b)spip_/','\1'.$prefixe.'_', $from);
 }
 
@@ -528,7 +580,9 @@ 
 		if (preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+' . $v .'/', $select, $m)) {
 
 		  $res[] = $m[1];
-		} else $res[]=$v;
+		} else {
+		    $res[]=$v;
+		}
 	}
 	return spip_pg_frommysql(join(',',$res));
 }
@@ -542,11 +596,14 @@ 
 {
 	$join = strpos($from, ",");
 	// ismplifier avant de decouper
-	if (is_string($select))
-		// fct SQL sur colonne et constante apostrophee ==> la colonne
+	if (is_string($select)) {
+			// fct SQL sur colonne et constante apostrophee ==> la colonne
 		$select = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/','\\1', $select);
+	}
 
-	if ($join OR $groupby) $join = is_array($select) ? $select : explode(", ", $select);
+	if ($join OR $groupby) {
+	    $join = is_array($select) ? $select : explode(", ", $select);
+	}
 	if ($join) {
 		// enlever les 0 as points, '', ...
 		foreach($join as $k=>$v){
@@ -561,17 +618,24 @@ 
 			// des AS simples : on garde le cote droit du AS
 			$v = preg_replace('/^.*\sAS\s+(\w+)\s*$/i','\\1', $v);
 			// ne reste plus que les vrais colonnes, ou des constantes a virer
-			if (preg_match(',^[\'"],',$v) OR is_numeric($v))
-				unset($join[$k]);
-			else
-				$join[$k] = trim($v);
+			if (preg_match(',^[\'"],',$v) OR is_numeric($v)) {
+							unset($join[$k]);
+			} else {
+							$join[$k] = trim($v);
+			}
 		}
 		$join = array_diff($join,array(''));
 		$join = implode(',',$join);
 	}
-	if (is_array($groupby)) $groupby = join(',',$groupby);
-	if ($join) $groupby = $groupby ? "$groupby, $join" : $join;
-	if (!$groupby) return '';
+	if (is_array($groupby)) {
+	    $groupby = join(',',$groupby);
+	}
+	if ($join) {
+	    $groupby = $groupby ? "$groupby, $join" : $join;
+	}
+	if (!$groupby) {
+	    return '';
+	}
 
 	$groupby = spip_pg_frommysql($groupby);
 	// Ne pas mettre dans le Group-By des valeurs numeriques
@@ -593,7 +657,9 @@ 
 // http://doc.spip.org/@spip_pg_frommysql
 function spip_pg_frommysql($arg)
 {
-	if (is_array($arg)) $arg = join(", ", $arg);
+	if (is_array($arg)) {
+	    $arg = join(", ", $arg);
+	}
 
 	$res = spip_pg_fromfield($arg);
 
@@ -682,13 +748,14 @@ 
 // http://doc.spip.org/@calculer_pg_where
 function calculer_pg_where($v)
 {
-	if (!is_array($v))
-		return spip_pg_frommysql($v);
+	if (!is_array($v)) {
+			return spip_pg_frommysql($v);
+	}
 
 	$op = str_replace('REGEXP', '~', array_shift($v));
-	if (!($n=count($v)))
-		return $op;
-	else {
+	if (!($n=count($v))) {
+			return $op;
+	} else {
 		$arg = calculer_pg_where(array_shift($v));
 		if ($n==1) {
 			  return "$op($arg)";
@@ -696,7 +763,9 @@ 
 			$arg2 = calculer_pg_where(array_shift($v));
 			if ($n==2) {
 				return "($arg $op $arg2)";
-			} else return "($arg $op ($arg2) : $v[0])";
+			} else {
+			    return "($arg $op ($arg2) : $v[0])";
+			}
 		}
 	}
 }
@@ -704,18 +773,22 @@ 
 
 // http://doc.spip.org/@calculer_pg_expression
 function calculer_pg_expression($expression, $v, $join = 'AND'){
-	if (empty($v))
-		return '';
+	if (empty($v)) {
+			return '';
+	}
 	
 	$exp = "\n$expression ";
 	
-	if (!is_array($v)) $v = array($v);
+	if (!is_array($v)) {
+	    $v = array($v);
+	}
 	
-	if (strtoupper($join) === 'AND')
-			return $exp . join("\n\t$join ", array_map('calculer_pg_where', $v));
-		else
-			return $exp . join($join, $v);
-}
+	if (strtoupper($join) === 'AND') {
+				return $exp . join("\n\t$join ", array_map('calculer_pg_where', $v));
+	} else {
+					return $exp . join($join, $v);
+		}
+		}
 
 // http://doc.spip.org/@spip_pg_select_as
 function spip_pg_select_as($args)
@@ -726,18 +799,19 @@ 
 			// c'est une jointure qui se refere au from precedent
 			// pas de virgule
 		  $argsas .= '  ' . $v ;
-		}
-		else {
+		} else {
 			$as = '';
 			//  spip_log("$k : $v", _LOG_DEBUG);
 			if (!is_numeric($k)) {
-				if (preg_match('/\.(.*)$/', $k, $r))
-					$v = $k;
-				elseif ($v != $k) {
+				if (preg_match('/\.(.*)$/', $k, $r)) {
+									$v = $k;
+				} elseif ($v != $k) {
 					$p = strpos($v, " ");
-					if ($p)
-					  $v = substr($v,0,$p) . " AS $k" . substr($v,$p);
-					else  $as = " AS $k"; 
+					if ($p) {
+										  $v = substr($v,0,$p) . " AS $k" . substr($v,$p);
+					} else {
+					    $as = " AS $k";
+					}
 				}
 			}
 			// spip_log("subs $k : $v avec $as", _LOG_DEBUG);
@@ -751,13 +825,17 @@ 
 // http://doc.spip.org/@spip_pg_fetch
 function spip_pg_fetch($res, $t='', $serveur='',$requeter=true) {
 
-	if ($res) $res = pg_fetch_array($res, NULL, PGSQL_ASSOC);
+	if ($res) {
+	    $res = pg_fetch_array($res, NULL, PGSQL_ASSOC);
+	}
 	return $res;
 }
 
 function spip_pg_seek($r, $row_number, $serveur='',$requeter=true) {
-	if ($r) return pg_result_seek($r,$row_number);
-}
+	if ($r) {
+	    return pg_result_seek($r,$row_number);
+	}
+	}
 
 
 // http://doc.spip.org/@spip_pg_countsel
@@ -766,8 +844,12 @@ 
 {
 	$c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
 	$r = spip_pg_select("COUNT($c)", $from, $where,'', '', '', $having, $serveur, $requeter);
-	if (!$requeter) return $r;
-	if (!is_resource($r)) return 0;
+	if (!$requeter) {
+	    return $r;
+	}
+	if (!is_resource($r)) {
+	    return 0;
+	}
 	list($c) = pg_fetch_array($r, NULL, PGSQL_NUM);
 	return $c;
 }
@@ -789,20 +871,25 @@ 
 	$prefixe = $connexion['prefixe'];
 	$link = $connexion['link'];
 	$db = $connexion['db'];
-	if ($prefixe) $table = preg_replace('/^spip/', $prefixe, $table);
+	if ($prefixe) {
+	    $table = preg_replace('/^spip/', $prefixe, $table);
+	}
 	
 	$query = calculer_pg_expression('DELETE FROM', $table, ',')
 			. calculer_pg_expression('WHERE', $where, 'AND');
 			
 	// renvoyer la requete inerte si demandee
-	if (!$requeter) return $query;
+	if (!$requeter) {
+	    return $query;
+	}
 	
 	$res = spip_pg_trace_query($query, $serveur);
-	if ($res)
-		return pg_affected_rows($res);
-	else
-		return false;
-}
+	if ($res) {
+			return pg_affected_rows($res);
+	} else {
+			return false;
+	}
+	}
 
 // http://doc.spip.org/@spip_pg_insert
 function spip_pg_insert($table, $champs, $valeurs, $desc=array(), $serveur='',$requeter=true) {
@@ -811,13 +898,16 @@ 
 	$link = $connexion['link'];
 	$db = $connexion['db'];
 
-	if (!$desc) $desc = description_table($table, $serveur);
+	if (!$desc) {
+	    $desc = description_table($table, $serveur);
+	}
 	$seq = spip_pg_sequence($table,true);
 	// si pas de cle primaire dans l'insertion, renvoyer curval
 	if (!preg_match(",\b$seq\b,",$champs)){
 		$seq = spip_pg_sequence($table);
-		if ($prefixe)
-			$seq = preg_replace('/^spip/', $prefixe, $seq);
+		if ($prefixe) {
+					$seq = preg_replace('/^spip/', $prefixe, $seq);
+		}
 		$seq = "currval('$seq')";
 	}
 
@@ -830,14 +920,19 @@ 
 	  ? " DEFAULT VALUES"
 	  : "$champs VALUES $valeurs";
 	$q ="INSERT INTO $table $ins $ret";
-	if (!$requeter) return $q;
+	if (!$requeter) {
+	    return $q;
+	}
 	$connexion['last'] = $q;
 	$r = spip_pg_query_simple($link, $q);
 #	spip_log($q,'pg.'._LOG_DEBUG);
 	if ($r) {
-		if (!$ret) return 0;
-		if ($r2 = pg_fetch_array($r, NULL, PGSQL_NUM))
-			return $r2[0];
+		if (!$ret) {
+		    return 0;
+		}
+		if ($r2 = pg_fetch_array($r, NULL, PGSQL_NUM)) {
+					return $r2[0];
+		}
 	}
 	return false;
 }
@@ -845,8 +940,12 @@ 
 // http://doc.spip.org/@spip_pg_insertq
 function spip_pg_insertq($table, $couples=array(), $desc=array(), $serveur='',$requeter=true) {
 
-	if (!$desc) $desc = description_table($table, $serveur);
-	if (!$desc) die("$table insertion sans description");
+	if (!$desc) {
+	    $desc = description_table($table, $serveur);
+	}
+	if (!$desc) {
+	    die("$table insertion sans description");
+	}
 	$fields =  $desc['field'];
 	
 	foreach ($couples as $champ => $val) {
@@ -864,8 +963,12 @@ 
 // http://doc.spip.org/@spip_pg_insertq_multi
 function spip_pg_insertq_multi($table, $tab_couples=array(), $desc=array(), $serveur='',$requeter=true) {
 
-	if (!$desc) $desc = description_table($table, $serveur);
-	if (!$desc) die("$table insertion sans description");
+	if (!$desc) {
+	    $desc = description_table($table, $serveur);
+	}
+	if (!$desc) {
+	    die("$table insertion sans description");
+	}
 	$fields =  isset($desc['field'])?$desc['field']:array();
 	
 	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
@@ -893,12 +996,16 @@ 
 // http://doc.spip.org/@spip_pg_update
 function spip_pg_update($table, $couples, $where='', $desc='', $serveur='',$requeter=true) {
 
-	if (!$couples) return;
+	if (!$couples) {
+	    return;
+	}
 	$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
 	$link = $connexion['link'];
 	$db = $connexion['db'];
-	if ($prefixe) $table = preg_replace('/^spip/', $prefixe, $table);
+	if ($prefixe) {
+	    $table = preg_replace('/^spip/', $prefixe, $table);
+	}
 
 	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
 	$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
@@ -913,7 +1020,9 @@ 
 		. calculer_pg_expression('WHERE', $where, 'AND');
 		
 	// renvoyer la requete inerte si demandee
-	if (!$requeter) return $query;
+	if (!$requeter) {
+	    return $query;
+	}
 	
 	return spip_pg_trace_query($query, $serveur);
 }
@@ -922,8 +1031,12 @@ 
 // sauf les expressions de date lorsqu'il s'agit de fonctions SQL (NOW etc)
 // http://doc.spip.org/@spip_pg_updateq
 function spip_pg_updateq($table, $couples, $where='', $desc=array(), $serveur='',$requeter=true) {
-	if (!$couples) return;
-	if (!$desc) $desc = description_table($table, $serveur);
+	if (!$couples) {
+	    return;
+	}
+	if (!$desc) {
+	    $desc = description_table($table, $serveur);
+	}
 	$fields = $desc['field'];
 	foreach ($couples as $k => $val) {
 		$couples[$k] = spip_pg_cite($val, $fields[$k]);
@@ -941,17 +1054,23 @@ 
 	$link = $connexion['link'];
 	$db = $connexion['db'];
 
-	if (!$desc) $desc = description_table($table, $serveur);
-	if (!$desc) die("$table insertion sans description");
+	if (!$desc) {
+	    $desc = description_table($table, $serveur);
+	}
+	if (!$desc) {
+	    die("$table insertion sans description");
+	}
 	$prim = $desc['key']['PRIMARY KEY'];
 	$ids = preg_split('/,\s*/', $prim);
 	$noprims = $prims = array();
 	foreach($values as $k=>$v) {
 		$values[$k] = $v = spip_pg_cite($v, $desc['field'][$k]);
 
-		if (!in_array($k, $ids))
-			$noprims[$k]= "$k=$v";
-		else $prims[$k]= "$k=$v";
+		if (!in_array($k, $ids)) {
+					$noprims[$k]= "$k=$v";
+		} else {
+		    $prims[$k]= "$k=$v";
+		}
 	}
 
 	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
@@ -973,7 +1092,9 @@ 
 	if ($couples) {
 	  $couples = spip_pg_query_simple($link, $q);
 #	  spip_log($q,'pg.'._LOG_DEBUG);
-	  if (!$couples) return false;
+	  if (!$couples) {
+	      return false;
+	  }
 	  $couples = pg_affected_rows($couples);
 	}
 	if (!$couples) {
@@ -1018,13 +1139,15 @@ 
 {
 	global $tables_principales;
 	include_spip('base/serial');
-	if (!isset($tables_principales[$table])) return false;
+	if (!isset($tables_principales[$table])) {
+	    return false;
+	}
 	$desc = $tables_principales[$table];
 	$prim = @$desc['key']['PRIMARY KEY'];
 	if (!preg_match('/^\w+$/', $prim)
-	OR strpos($desc['field'][$prim], 'int') === false)
-		return '';
-	else  {	return $raw?$prim:$table . '_' . $prim . "_seq";}
+	OR strpos($desc['field'][$prim], 'int') === false) {
+			return '';
+	} else  {	return $raw?$prim:$table . '_' . $prim . "_seq";}
 }
 
 // Explicite les conversions de Mysql d'une valeur $v de type $t
@@ -1032,26 +1155,30 @@ 
 
 // http://doc.spip.org/@spip_pg_cite
 function spip_pg_cite($v, $t){
-	if(is_null($v)) return 'NULL'; // null php se traduit en NULL SQL
+	if(is_null($v)) {
+	    return 'NULL';
+	}
+	// null php se traduit en NULL SQL
 
 	if (sql_test_date($t)) {
-		if ($v AND (strpos("0123456789", $v[0]) === false))
-			return spip_pg_frommysql($v);
-		else {
-			if (strncmp($v,'0000',4)==0)
-				$v = "0001" . substr($v,4);
-			if (strpos($v, "-00-00") === 4)
-				$v = substr($v,0,4)."-01-01".substr($v,10);
+		if ($v AND (strpos("0123456789", $v[0]) === false)) {
+					return spip_pg_frommysql($v);
+		} else {
+			if (strncmp($v,'0000',4)==0) {
+							$v = "0001" . substr($v,4);
+			}
+			if (strpos($v, "-00-00") === 4) {
+							$v = substr($v,0,4)."-01-01".substr($v,10);
+			}
 			return "timestamp '$v'";
 		}
-	}
-	elseif (!sql_test_int($t))
-		return   ("'" . pg_escape_string($v) . "'");
-	elseif (is_numeric($v) OR (strpos($v, 'CAST(') === 0))
-		return $v;
-	elseif ($v[0]== '0' AND $v[1]!=='x' AND  ctype_xdigit(substr($v,1)))
-		return  substr($v,1);
-	else {
+	} elseif (!sql_test_int($t)) {
+			return   ("'" . pg_escape_string($v) . "'");
+	} elseif (is_numeric($v) OR (strpos($v, 'CAST(') === 0)) {
+			return $v;
+	} elseif ($v[0]== '0' AND $v[1]!=='x' AND  ctype_xdigit(substr($v,1))) {
+			return  substr($v,1);
+	} else {
 		spip_log("Warning: '$v'  n'est pas de type $t", 'pg.'._LOG_AVERTISSEMENT);
 		return intval($v);
 	}
@@ -1065,11 +1192,13 @@ 
 
 function spip_pg_quote($v, $type='')
 {
-	if (!is_array($v))
-		return spip_pg_cite($v,$type);
+	if (!is_array($v)) {
+			return spip_pg_cite($v,$type);
+	}
 	// si c'est un tableau, le parcourir en propageant le type
-	foreach($v as $k=>$r)
-		$v[$k] = spip_pg_quote($r, $type);
+	foreach($v as $k=>$r) {
+			$v[$k] = spip_pg_quote($r, $type);
+	}
 	return join(",", $v);
 }
 
@@ -1094,9 +1223,12 @@ 
 // IN (...) souvent limite a 255  elements, d'ou cette fonction assistante
 //
 	// s'il n'y a pas de valeur, eviter de produire un IN vide: PG rale.
-	if (!$valeurs) return $not ? '0=0' : '0=1';
-	if (strpos($valeurs, "CAST(x'") !== false)
-		return "($val=" . join("OR $val=", explode(',',$valeurs)).')';
+	if (!$valeurs) {
+	    return $not ? '0=0' : '0=1';
+	}
+	if (strpos($valeurs, "CAST(x'") !== false) {
+			return "($val=" . join("OR $val=", explode(',',$valeurs)).')';
+	}
 	$n = $i = 0;
 	$in_sql ="";
 	while ($n = strpos($valeurs, ',', $n+1)) {
@@ -1135,16 +1267,22 @@ 
 // http://doc.spip.org/@spip_pg_drop_table
 function spip_pg_drop_table($table, $exist='', $serveur='',$requeter=true)
 {
-	if ($exist) $exist =" IF EXISTS";
-	if (spip_pg_query("DROP TABLE$exist $table", $serveur, $requeter))
-		return true;
-	else return false;
-}
+	if ($exist) {
+	    $exist =" IF EXISTS";
+	}
+	if (spip_pg_query("DROP TABLE$exist $table", $serveur, $requeter)) {
+			return true;
+	} else {
+	    return false;
+	}
+	}
 
 // supprime une vue 
 // http://doc.spip.org/@spip_pg_drop_view
 function spip_pg_drop_view($view, $exist='', $serveur='',$requeter=true) {
-	if ($exist) $exist =" IF EXISTS";
+	if ($exist) {
+	    $exist =" IF EXISTS";
+	}
 	return spip_pg_query("DROP VIEW$exist $view", $serveur, $requeter);
 }
 
@@ -1177,7 +1315,9 @@ 
 	$connexion['last'] = $q = "SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE " . _q($nom_table);
 
 	$res = spip_pg_query_simple($link, $q);
-	if (!$res) return false;
+	if (!$res) {
+	    return false;
+	}
 	
 	// etrangement, $res peut ne rien contenir, mais arriver ici...
 	// il faut en tenir compte dans le return
@@ -1211,41 +1351,47 @@ 
 	$prefixe = $connexion['prefixe'];
 	$link = $connexion['link'];
 	$db = $connexion['db'];
-	if ($prefixe) $nom = preg_replace('/^spip/', $prefixe, $nom);
+	if ($prefixe) {
+	    $nom = preg_replace('/^spip/', $prefixe, $nom);
+	}
 	$query = $prim = $prim_name = $v = $s = $p='';
 	$keys = array();
 
 	// certains plugins declarent les tables  (permet leur inclusion dans le dump)
 	// sans les renseigner (laisse le compilo recuperer la description)
-	if (!is_array($champs) || !is_array($cles)) 
-		return;
+	if (!is_array($champs) || !is_array($cles)) {
+			return;
+	}
 
 	foreach($cles as $k => $v) {
 		if (strpos($k, "KEY ") === 0) {
 		  $n = str_replace('`','',$k);	
 		  $v = str_replace('`','"',$v);	
 		  $i = $nom . preg_replace("/KEY +/", '_',$n);
-		  if ($k != $n) $i = "\"$i\"";
+		  if ($k != $n) {
+		      $i = "\"$i\"";
+		  }
 		  $keys[] = "CREATE INDEX $i ON $nom ($v);";
-		} 
-		elseif (strpos($k, "UNIQUE ") === 0) {
+		} elseif (strpos($k, "UNIQUE ") === 0) {
 			$k = preg_replace("/^UNIQUE +/", '',$k);
 			$prim .= "$s\n\t\tCONSTRAINT " . str_replace('`','"',$k) ." UNIQUE ($v)";
-		}
-		else {
+		} else {
 			$prim .= "$s\n\t\t" . str_replace('`','"',$k) ." ($v)";
 		}
-		if ($k == "PRIMARY KEY")
-			$prim_name = $v;
+		if ($k == "PRIMARY KEY") {
+					$prim_name = $v;
+		}
 		$s = ",";
 	}
 	$s = '';
 	
 	$character_set = "";
-	if (@$GLOBALS['meta']['charset_sql_base'])
-		$character_set .= " CHARACTER SET ".$GLOBALS['meta']['charset_sql_base'];
-	if (@$GLOBALS['meta']['charset_collation_sql_base'])
-		$character_set .= " COLLATE ".$GLOBALS['meta']['charset_collation_sql_base'];
+	if (@$GLOBALS['meta']['charset_sql_base']) {
+			$character_set .= " CHARACTER SET ".$GLOBALS['meta']['charset_sql_base'];
+	}
+	if (@$GLOBALS['meta']['charset_collation_sql_base']) {
+			$character_set .= " COLLATE ".$GLOBALS['meta']['charset_collation_sql_base'];
+	}
 
 	foreach($champs as $k => $v) {
 		$k = str_replace('`','"',$k);
@@ -1270,13 +1416,15 @@ 
 	($character_set?" DEFAULT $character_set":"")
 	."\n";
 
-	if (!$requeter) return $q;
+	if (!$requeter) {
+	    return $q;
+	}
 	$connexion['last'] = $q;
 	$r = @pg_query($link, $q);
 
-	if (!$r)
-		spip_log("Impossible de creer cette table: $q",'pg.'._LOG_ERREUR);
-	else {
+	if (!$r) {
+			spip_log("Impossible de creer cette table: $q",'pg.'._LOG_ERREUR);
+	} else {
 		foreach($keys as $index) {pg_query($link, $index);}
 	} 
 	return $r;
@@ -1290,10 +1438,14 @@ 
 // Fonction de creation d'une vue SQL nommee $nom
 // http://doc.spip.org/@spip_pg_create_view
 function spip_pg_create_view($nom, $query_select, $serveur='',$requeter=true) {
-	if (!$query_select) return false;
+	if (!$query_select) {
+	    return false;
+	}
 	// vue deja presente
 	if (sql_showtable($nom, false, $serveur)) {
-		if ($requeter) spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)",'pg.'._LOG_ERREUR);
+		if ($requeter) {
+		    spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)",'pg.'._LOG_ERREUR);
+		}
 		return false;
 	}
 	

Spacing +241 added lines, -242 removed lines

@@ -29,18 +29,18 @@ 
 // si ca ne marche toujours pas, echec.
 
 // http://doc.spip.org/@req_pg_dist
-function req_pg_dist($addr, $port, $login, $pass, $db='', $prefixe='') {
+function req_pg_dist($addr, $port, $login, $pass, $db = '', $prefixe = '') {
 	static $last_connect = array();
 	if (!charger_php_extension('pgsql')) return false;
 	
 	// si provient de selectdb
-	if (empty($addr) && empty($port) && empty($login) && empty($pass)){
-		foreach (array('addr','port','login','pass','prefixe') as $a){
+	if (empty($addr) && empty($port) && empty($login) && empty($pass)) {
+		foreach (array('addr', 'port', 'login', 'pass', 'prefixe') as $a) {
 			$$a = $last_connect[$a];
 		}
 	}
 	@list($host, $p) = explode(';', $addr);
-	if ($p >0) $port = " port=$p" ; else $port = '';
+	if ($p > 0) $port = " port=$p"; else $port = '';
 	$erreurs = array();
 	if ($db) {
 		@$link = pg_connect("host=$host$port dbname=$db user=$login password='$pass'", PGSQL_CONNECT_FORCE_NEW);
@@ -56,13 +56,13 @@ 
 	}
 	if (!$link) {
 		$erreurs[] = pg_last_error();
-		foreach($erreurs as $e)
-			spip_log('Echec pg_connect. Erreur : ' . $e,'pg.'._LOG_HS);
+		foreach ($erreurs as $e)
+			spip_log('Echec pg_connect. Erreur : '.$e, 'pg.'._LOG_HS);
 		return false;
 	}
 
 	if ($link)
-		$last_connect = array (
+		$last_connect = array(
 			'addr' => $addr,
 			'port' => $port,
 			'login' => $login,
@@ -71,7 +71,7 @@ 
 			'prefixe' => $prefixe,
 		);
 		
-	spip_log("Connexion vers $host, base $db, prefixe $prefixe " . ($link ? 'operationnelle' : 'impossible'),'pg.'._LOG_DEBUG);
+	spip_log("Connexion vers $host, base $db, prefixe $prefixe ".($link ? 'operationnelle' : 'impossible'), 'pg.'._LOG_DEBUG);
 
 	return !$link ? false : array(
 		'db' => $db,
@@ -120,7 +120,7 @@ 
 
 // Par ou ca passe une fois les traductions faites
 // http://doc.spip.org/@spip_pg_trace_query
-function spip_pg_trace_query($query, $serveur='')
+function spip_pg_trace_query($query, $serveur = '')
 {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
@@ -130,7 +130,7 @@ 
 	if (isset($_GET['var_profile'])) {
 		include_spip('public/tracer');
 		$t = trace_query_start();
-	} else $t = 0 ;
+	} else $t = 0;
  
 	$connexion['last'] = $query;
 	$r = spip_pg_query_simple($link, $query);
@@ -144,7 +144,7 @@ 
 // Elle change juste le noms des tables ($table_prefix) dans le FROM etc
 
 // http://doc.spip.org/@spip_pg_query
-function spip_pg_query($query, $serveur='',$requeter=true)
+function spip_pg_query($query, $serveur = '', $requeter = true)
 {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
@@ -154,8 +154,8 @@ 
 	if (preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
 		$suite = strstr($query, $regs[0]);
 		$query = substr($query, 0, -strlen($suite));
-	} else $suite ='';
-	$query = preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', $query) . $suite;
+	} else $suite = '';
+	$query = preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', $query).$suite;
 
 	// renvoyer la requete inerte si demandee
 	if (!$requeter) return $query;
@@ -163,7 +163,7 @@ 
 	return spip_pg_trace_query($query, $serveur);
 }
 
-function spip_pg_query_simple($link, $query){
+function spip_pg_query_simple($link, $query) {
 	#spip_log(var_export($query,true), 'pg.'._LOG_DEBUG);
 	return pg_query($link, $query);
 }
@@ -176,12 +176,12 @@ 
  * stocke le resultat pour ne pas faire 
  * de requetes showtable intempestives
  */
-function spip_pg_ajouter_champs_timestamp($table, $couples, $desc='', $serveur=''){
+function spip_pg_ajouter_champs_timestamp($table, $couples, $desc = '', $serveur = '') {
 	static $tables = array();
 	
-	if (!isset($tables[$table])){
+	if (!isset($tables[$table])) {
 		
-		if (!$desc){
+		if (!$desc) {
 			$trouver_table = charger_fonction('trouver_table', 'base');
 			$desc = $trouver_table($table, $serveur);
 			// si pas de description, on ne fait rien, ou on die() ?
@@ -193,16 +193,16 @@ 
 		// avec la gestion de DEFAULT et ON UPDATE
 		// mais ceux-ci ne sont pas utilises dans le core
 		$tables[$table] = array();
-		foreach ($desc['field'] as $k=>$v){
+		foreach ($desc['field'] as $k=>$v) {
 			$v = strtolower(ltrim($v));
 			// ne pas ajouter de timestamp now() si un default est specifie
-			if (strpos($v, 'timestamp')===0 AND strpos($v, 'default')===false)
+			if (strpos($v, 'timestamp') === 0 AND strpos($v, 'default') === false)
 				$tables[$table][] = $k;
 		}
 	}
 	
 	// ajout des champs type 'timestamp' absents
-	foreach ($tables[$table] as $maj){
+	foreach ($tables[$table] as $maj) {
 		if (!array_key_exists($maj, $couples))
 			$couples[$maj] = "NOW()";	
 	}
@@ -212,12 +212,12 @@ 
 	
 // Alter en PG ne traite pas les index
 // http://doc.spip.org/@spip_pg_alter
-function spip_pg_alter($query, $serveur='',$requeter=true) {
+function spip_pg_alter($query, $serveur = '', $requeter = true) {
 	// il faudrait une regexp pour eviter de spliter ADD PRIMARY KEY (colA, colB)
 	// tout en cassant en deux alter distincts "ADD PRIMARY KEY (colA, colB), ADD INDEX (chose)"... 
 	// ou revoir l'api de sql_alter en creant un 
 	// sql_alter_table($table,array($actions));
-	if (!preg_match("/\s*((\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is", $query, $regs)){
+	if (!preg_match("/\s*((\s*IGNORE)?\s*TABLE\s*([^\s]*))\s*(.*)?/is", $query, $regs)) {
 		spip_log("$query mal comprise", 'pg.'._LOG_ERREUR);
 		return false;
 	}
@@ -226,53 +226,53 @@ 
 	$suite = $regs[4];
 	$todo = explode(',', $suite);
 	// on remet les morceaux dechires ensembles... que c'est laid !
-	$todo2 = array(); $i=0;
+	$todo2 = array(); $i = 0;
 	$ouverte = false;
 	while ($do = array_shift($todo)) {
-		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i] . "," . $do : $do;
-		$o=(false!==strpos($do,"("));
-		$f=(false!==strpos($do,")"));
-		if ($o AND !$f) $ouverte=true;
-		elseif ($f) $ouverte=false;
+		$todo2[$i] = isset($todo2[$i]) ? $todo2[$i].",".$do : $do;
+		$o = (false !== strpos($do, "("));
+		$f = (false !== strpos($do, ")"));
+		if ($o AND !$f) $ouverte = true;
+		elseif ($f) $ouverte = false;
 		if (!$ouverte) $i++;
 	}
-	$todo=$todo2;
+	$todo = $todo2;
 	$query = $debut.' '.array_shift($todo);
 
 	if (!preg_match('/^\s*(IGNORE\s*)?TABLE\s+(\w+)\s+(ADD|DROP|CHANGE|MODIFY|RENAME)\s*(.*)$/is', $query, $r)) {
 	  spip_log("$query incompris", 'pg.'._LOG_ERREUR);
 	} else {
 	  if ($r[1]) spip_log("j'ignore IGNORE dans $query", 'pg.'._LOG_AVERTISSEMENT);
-	  $f = 'spip_pg_alter_' . strtolower($r[3]);
+	  $f = 'spip_pg_alter_'.strtolower($r[3]);
 	  if (function_exists($f))
 	    $f($r[2], $r[4], $serveur, $requeter);
 	  else spip_log("$query non prevu", 'pg.'._LOG_ERREUR);
 	}
 	// Alter a plusieurs args. Faudrait optimiser.
 	if ($todo)
-	  spip_pg_alter("TABLE $table " . join(',',$todo));
+	  spip_pg_alter("TABLE $table ".join(',', $todo));
 
 }
 	      
 // http://doc.spip.org/@spip_pg_alter_change
-function spip_pg_alter_change($table, $arg, $serveur='',$requeter=true)
+function spip_pg_alter_change($table, $arg, $serveur = '', $requeter = true)
 {
-	if (!preg_match('/^`?(\w+)`?\s+`?(\w+)`?\s+(.*?)\s*(DEFAULT .*?)?(NOT\s+NULL)?\s*(DEFAULT .*?)?$/i',$arg, $r)) {
+	if (!preg_match('/^`?(\w+)`?\s+`?(\w+)`?\s+(.*?)\s*(DEFAULT .*?)?(NOT\s+NULL)?\s*(DEFAULT .*?)?$/i', $arg, $r)) {
 	  spip_log("alter change: $arg  incompris", 'pg.'._LOG_ERREUR);
 	} else {
 	  list(,$old, $new, $type, $default, $null, $def2) = $r;
-	  $actions = array("ALTER $old TYPE " . mysql2pg_type($type));
+	  $actions = array("ALTER $old TYPE ".mysql2pg_type($type));
 	  if ($null)
-	    $actions[]= "ALTER $old SET NOT NULL";
+	    $actions[] = "ALTER $old SET NOT NULL";
 	  else
-	    $actions[]= "ALTER $old DROP NOT NULL";
+	    $actions[] = "ALTER $old DROP NOT NULL";
 
 	  if ($d = ($default ? $default : $def2))
-	    $actions[]= "ALTER $old SET $d";
+	    $actions[] = "ALTER $old SET $d";
 	  else
-	    $actions[]= "ALTER $old DROP DEFAULT";
+	    $actions[] = "ALTER $old DROP DEFAULT";
 
-	  spip_pg_query("ALTER TABLE $table " . join(', ', $actions));
+	  spip_pg_query("ALTER TABLE $table ".join(', ', $actions));
 
 	  if ($old != $new)
 	    spip_pg_query("ALTER TABLE $table RENAME $old TO $new", $serveur);
@@ -280,38 +280,38 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_alter_add
-function spip_pg_alter_add($table, $arg, $serveur='',$requeter=true) {
+function spip_pg_alter_add($table, $arg, $serveur = '', $requeter = true) {
 	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*(.*)$/', $arg, $r)) {
 		spip_log("alter add $arg  incompris", 'pg.'._LOG_ERREUR);
 		return NULL;
 	}
-	if (!$r[1] OR $r[1]=='COLUMN') {
-		preg_match('/`?(\w+)`?(.*)/',$r[2], $m);
+	if (!$r[1] OR $r[1] == 'COLUMN') {
+		preg_match('/`?(\w+)`?(.*)/', $r[2], $m);
 		if (preg_match('/^(.*)(BEFORE|AFTER|FIRST)(.*)$/is', $m[2], $n)) {
-			$m[2]=$n[1];
+			$m[2] = $n[1];
 		}
-		return spip_pg_query("ALTER TABLE $table ADD " . $m[1] . ' ' . mysql2pg_type($m[2]),  $serveur, $requeter);
+		return spip_pg_query("ALTER TABLE $table ADD ".$m[1].' '.mysql2pg_type($m[2]), $serveur, $requeter);
 	} elseif ($r[1][0] == 'P') {
 		// la primary peut etre sur plusieurs champs
-		$r[2] = trim(str_replace('`','',$r[2]));
-		$m = ($r[2][0]=='(') ? substr($r[2],1,-1) : $r[2];
-		return spip_pg_query("ALTER TABLE $table ADD CONSTRAINT $table" .'_pkey PRIMARY KEY (' . $m . ')', $serveur, $requeter);
+		$r[2] = trim(str_replace('`', '', $r[2]));
+		$m = ($r[2][0] == '(') ? substr($r[2], 1, -1) : $r[2];
+		return spip_pg_query("ALTER TABLE $table ADD CONSTRAINT $table".'_pkey PRIMARY KEY ('.$m.')', $serveur, $requeter);
 	} else {
-		preg_match('/([^\s,]*)\s*(.*)?/',$r[2], $m);
+		preg_match('/([^\s,]*)\s*(.*)?/', $r[2], $m);
 		// peut etre "(colonne)" ou "nom_index (colonnes)"
 		// bug potentiel si qqn met "(colonne, colonne)"
 		//
 		// nom_index (colonnes)
 		if ($m[2]) {
-			$colonnes = substr($m[2],1,-1);
+			$colonnes = substr($m[2], 1, -1);
 			$nom_index = $m[1];
 		}
 		else {
 			// (colonne)
 			if ($m[1][0] == "(") {
-				$colonnes = substr($m[1],1,-1);
-				if (false!==strpos(",",$colonnes)) {
-					spip_log(_LOG_GRAVITE_ERREUR,"PG : Erreur, impossible de creer un index sur plusieurs colonnes"
+				$colonnes = substr($m[1], 1, -1);
+				if (false !== strpos(",", $colonnes)) {
+					spip_log(_LOG_GRAVITE_ERREUR, "PG : Erreur, impossible de creer un index sur plusieurs colonnes"
 						." sans qu'il ait de nom ($table, ($colonnes))", 'pg');	
 				} else {
 					$nom_index = $colonnes;
@@ -327,25 +327,25 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_alter_drop
-function spip_pg_alter_drop($table, $arg, $serveur='',$requeter=true) {
+function spip_pg_alter_drop($table, $arg, $serveur = '', $requeter = true) {
 	if (!preg_match('/^(COLUMN|INDEX|KEY|PRIMARY\s+KEY|)\s*`?(\w*)`?/', $arg, $r))
 	  spip_log("alter drop: $arg  incompris", 'pg.'._LOG_ERREUR);
 	else {
-	    if (!$r[1] OR $r[1]=='COLUMN')
-	      return spip_pg_query("ALTER TABLE $table DROP " . $r[2],  $serveur);
+	    if (!$r[1] OR $r[1] == 'COLUMN')
+	      return spip_pg_query("ALTER TABLE $table DROP ".$r[2], $serveur);
 	    elseif ($r[1][0] == 'P')
-	      return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table" . '_pkey', $serveur);
+	      return spip_pg_query("ALTER TABLE $table DROP CONSTRAINT $table".'_pkey', $serveur);
 	    else {
-		return spip_pg_query("DROP INDEX " . $table . '_' . $r[2],  $serveur);
+		return spip_pg_query("DROP INDEX ".$table.'_'.$r[2], $serveur);
 	    }
 	}
 }
 
-function spip_pg_alter_modify($table, $arg, $serveur='',$requeter=true) {
-	if (!preg_match('/^`?(\w+)`?\s+(.*)$/',$arg, $r)) {
+function spip_pg_alter_modify($table, $arg, $serveur = '', $requeter = true) {
+	if (!preg_match('/^`?(\w+)`?\s+(.*)$/', $arg, $r)) {
 		spip_log("alter modify: $arg  incompris", 'pg.'._LOG_ERREUR);
 	} else {
-		return spip_pg_alter_change($table, $r[1].' '.$arg, $serveur='',$requeter=true);
+		return spip_pg_alter_change($table, $r[1].' '.$arg, $serveur = '', $requeter = true);
 	}
 }
 
@@ -353,18 +353,18 @@ 
 // - alter table A rename to X = changer le nom de la table
 // - alter table A rename X to Y = changer le nom de la colonne X en Y 
 // pour l'instant, traiter simplement RENAME TO X
-function spip_pg_alter_rename($table, $arg, $serveur='',$requeter=true) {
-	$rename="";
+function spip_pg_alter_rename($table, $arg, $serveur = '', $requeter = true) {
+	$rename = "";
 	// si TO, mais pas au debut
-	if (!stripos($arg,'TO ')){
-		$rename=$arg;
+	if (!stripos($arg, 'TO ')) {
+		$rename = $arg;
 	}
 	elseif (preg_match('/^(TO)\s*`?(\w*)`?/', $arg, $r)) {
-		$rename=$r[2];
+		$rename = $r[2];
 	} else {
 		spip_log("alter rename: $arg  incompris", 'pg.'._LOG_ERREUR);
 	}
-	return $rename?spip_pg_query("ALTER TABLE $table RENAME TO $rename"):false;
+	return $rename ?spip_pg_query("ALTER TABLE $table RENAME TO $rename") : false;
 }
 
 
@@ -379,24 +379,24 @@ 
  * 
  * @return bool ou requete
  */
-function spip_pg_create_index($nom, $table, $champs, $serveur='', $requeter=true) {
+function spip_pg_create_index($nom, $table, $champs, $serveur = '', $requeter = true) {
 	if (!($nom OR $table OR $champs)) {
-		spip_log("Champ manquant pour creer un index pg ($nom, $table, (".@join(',',$champs)."))",'pg.'._LOG_ERREUR);
+		spip_log("Champ manquant pour creer un index pg ($nom, $table, (".@join(',', $champs)."))", 'pg.'._LOG_ERREUR);
 		return false;
 	}
 	
-	$nom = str_replace("`","",$nom);
-	$champs = str_replace("`","",$champs);
+	$nom = str_replace("`", "", $nom);
+	$champs = str_replace("`", "", $champs);
 	
 	// PG ne differentie pas noms des index en fonction des tables
 	// il faut donc creer des noms uniques d'index pour une base pg
 	$nom = $table.'_'.$nom;
 	// enlever d'eventuelles parentheses deja presentes sur champs
-	if (!is_array($champs)){
-		 if ($champs[0]=="(") $champs = substr($champs,1,-1);
+	if (!is_array($champs)) {
+		 if ($champs[0] == "(") $champs = substr($champs, 1, -1);
 		 $champs = array($champs);
 	}
-	$query = "CREATE INDEX $nom ON $table (" . join(',',$champs) . ")";
+	$query = "CREATE INDEX $nom ON $table (".join(',', $champs).")";
 	if (!$requeter) return $query;
 	$res = spip_pg_query($query, $serveur, $requeter);
 	return $res;
@@ -404,7 +404,7 @@ 
 
 
 // http://doc.spip.org/@spip_pg_explain
-function spip_pg_explain($query, $serveur='',$requeter=true){
+function spip_pg_explain($query, $serveur = '', $requeter = true) {
 	if (strpos(ltrim($query), 'SELECT') !== 0) return array();
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
@@ -412,11 +412,11 @@ 
 	if (preg_match('/\s(SET|VALUES|WHERE)\s/i', $query, $regs)) {
 		$suite = strstr($query, $regs[0]);
 		$query = substr($query, 0, -strlen($suite));
-	} else $suite ='';
-	$query = 'EXPLAIN ' . preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', $query) . $suite;
+	} else $suite = '';
+	$query = 'EXPLAIN '.preg_replace('/([,\s])spip_/', '\1'.$prefixe.'_', $query).$suite;
 
 	if (!$requeter) return $query;
-	$r = spip_pg_query_simple($link,$query);
+	$r = spip_pg_query_simple($link, $query);
 	return spip_pg_fetch($r, NULL, $serveur);
 }
 
@@ -435,13 +435,13 @@ 
  * 		Nom de la base en cas de success.
  * 		False en cas d'erreur.
 **/
-function spip_pg_selectdb($db, $serveur='',$requeter=true) {
+function spip_pg_selectdb($db, $serveur = '', $requeter = true) {
 	// se connecter a la base indiquee
 	// avec les identifiants connus
 	$index = $serveur ? strtolower($serveur) : 0;
 
-	if ($link = spip_connect_db('', '', '', '', $db, 'pg', '', '')){
-		if (($db==$link['db']) && $GLOBALS['connexions'][$index] = $link)
+	if ($link = spip_connect_db('', '', '', '', $db, 'pg', '', '')) {
+		if (($db == $link['db']) && $GLOBALS['connexions'][$index] = $link)
 			return $db;
 	} else
 		return false;
@@ -462,16 +462,16 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_select
-function spip_pg_select($select, $from, $where='',
-			$groupby=array(), $orderby='', $limit='',
-                           $having='', $serveur='',$requeter=true){
+function spip_pg_select($select, $from, $where = '',
+			$groupby = array(), $orderby = '', $limit = '',
+                           $having = '', $serveur = '', $requeter = true) {
 
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
 	$link = $connexion['link'];
 	$db = $connexion['db'];
 
-	$limit = preg_match("/^\s*(([0-9]+),)?\s*([0-9]+)\s*$/", $limit,$limatch);
+	$limit = preg_match("/^\s*(([0-9]+),)?\s*([0-9]+)\s*$/", $limit, $limatch);
 	if ($limit) {
 		$offset = $limatch[2];
 		$count = $limatch[3];
@@ -492,20 +492,20 @@ 
 	  if (is_array($having))
 	    $having = join("\n\tAND ", array_map('calculer_pg_where', $having));
 	}
-	$from =  spip_pg_from($from, $prefixe);
-	$query =  "SELECT ". $select
+	$from = spip_pg_from($from, $prefixe);
+	$query = "SELECT ".$select
 	  . (!$from ? '' : "\nFROM $from")
-	  . (!$where ? '' : ("\nWHERE " . (!is_array($where) ? calculer_pg_where($where) : (join("\n\tAND ", array_map('calculer_pg_where', $where))))))
+	  . (!$where ? '' : ("\nWHERE ".(!is_array($where) ? calculer_pg_where($where) : (join("\n\tAND ", array_map('calculer_pg_where', $where))))))
 	  . spip_pg_groupby($groupby, $from, $select)
 	  . (!$having ? '' : "\nHAVING $having")
-	  . ($orderby ? ("\nORDER BY $orderby") :'')
-	  . (!$limit ? '' : (" LIMIT $count" . (!$offset ? '' : " OFFSET $offset")));
+	  . ($orderby ? ("\nORDER BY $orderby") : '')
+	  . (!$limit ? '' : (" LIMIT $count".(!$offset ? '' : " OFFSET $offset")));
 
 	// renvoyer la requete inerte si demandee
 	if ($requeter === false) return $query;
 	
 	$r = spip_pg_trace_query($query, $serveur);
-	return $r ? $r : $query;;
+	return $r ? $r : $query; ;
 }
 
 // Le traitement des prefixes de table dans un Select se limite au FROM
@@ -515,22 +515,22 @@ 
 function spip_pg_from($from, $prefixe)
 {
 	if (is_array($from)) $from = spip_pg_select_as($from);
-	return !$prefixe ? $from : preg_replace('/(\b)spip_/','\1'.$prefixe.'_', $from);
+	return !$prefixe ? $from : preg_replace('/(\b)spip_/', '\1'.$prefixe.'_', $from);
 }
 
 // http://doc.spip.org/@spip_pg_orderby
 function spip_pg_orderby($order, $select)
 {
 	$res = array();
-	$arg = (is_array($order) ?  $order : preg_split('/\s*,\s*/',$order));
+	$arg = (is_array($order) ? $order : preg_split('/\s*,\s*/', $order));
 
-	foreach($arg as $v) {
-		if (preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+' . $v .'/', $select, $m)) {
+	foreach ($arg as $v) {
+		if (preg_match('/(case\s+.*?else\s+0\s+end)\s*AS\s+'.$v.'/', $select, $m)) {
 
 		  $res[] = $m[1];
-		} else $res[]=$v;
+		} else $res[] = $v;
 	}
-	return spip_pg_frommysql(join(',',$res));
+	return spip_pg_frommysql(join(',', $res));
 }
 
 // Conversion a l'arrach' des jointures MySQL en jointures PG
@@ -544,41 +544,41 @@ 
 	// ismplifier avant de decouper
 	if (is_string($select))
 		// fct SQL sur colonne et constante apostrophee ==> la colonne
-		$select = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/','\\1', $select);
+		$select = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/', '\\1', $select);
 
 	if ($join OR $groupby) $join = is_array($select) ? $select : explode(", ", $select);
 	if ($join) {
 		// enlever les 0 as points, '', ...
-		foreach($join as $k=>$v){
-			$v = str_replace('DISTINCT ','',$v);
+		foreach ($join as $k=>$v) {
+			$v = str_replace('DISTINCT ', '', $v);
 			// fct SQL sur colonne et constante apostrophee ==> la colonne
-			$v = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/','\\1', $v);
-			$v = preg_replace('/CAST\(\s*([^(),\' ]*\s+)as\s*\w+\)/','\\1', $v);
+			$v = preg_replace('/\w+\(\s*([^(),\']*),\s*\'[^\']*\'[^)]*\)/', '\\1', $v);
+			$v = preg_replace('/CAST\(\s*([^(),\' ]*\s+)as\s*\w+\)/', '\\1', $v);
 			// resultat d'agregat ne sont pas a mettre dans le groupby
-			$v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)(\s*AS\s+\w+)\s*,?/i','', $v);
+			$v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)(\s*AS\s+\w+)\s*,?/i', '', $v);
 			// idem sans AS (fetch numerique)
-			$v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)\s*,?/i','', $v);
+			$v = preg_replace('/(SUM|COUNT|MAX|MIN|UPPER)\([^)]+\)\s*,?/i', '', $v);
 			// des AS simples : on garde le cote droit du AS
-			$v = preg_replace('/^.*\sAS\s+(\w+)\s*$/i','\\1', $v);
+			$v = preg_replace('/^.*\sAS\s+(\w+)\s*$/i', '\\1', $v);
 			// ne reste plus que les vrais colonnes, ou des constantes a virer
-			if (preg_match(',^[\'"],',$v) OR is_numeric($v))
+			if (preg_match(',^[\'"],', $v) OR is_numeric($v))
 				unset($join[$k]);
 			else
 				$join[$k] = trim($v);
 		}
-		$join = array_diff($join,array(''));
-		$join = implode(',',$join);
+		$join = array_diff($join, array(''));
+		$join = implode(',', $join);
 	}
-	if (is_array($groupby)) $groupby = join(',',$groupby);
+	if (is_array($groupby)) $groupby = join(',', $groupby);
 	if ($join) $groupby = $groupby ? "$groupby, $join" : $join;
 	if (!$groupby) return '';
 
 	$groupby = spip_pg_frommysql($groupby);
 	// Ne pas mettre dans le Group-By des valeurs numeriques
 	// issue de prepare_recherche
-	$groupby = preg_replace('/^\s*\d+\s+AS\s+\w+\s*,?\s*/i','', $groupby);
-	$groupby = preg_replace('/,\s*\d+\s+AS\s+\w+\s*/i','', $groupby);
-	$groupby = preg_replace('/\s+AS\s+\w+\s*/i','', $groupby);
+	$groupby = preg_replace('/^\s*\d+\s+AS\s+\w+\s*,?\s*/i', '', $groupby);
+	$groupby = preg_replace('/,\s*\d+\s+AS\s+\w+\s*/i', '', $groupby);
+	$groupby = preg_replace('/\s+AS\s+\w+\s*/i', '', $groupby);
 
 	return "\nGROUP BY $groupby"; 
 }
@@ -597,7 +597,7 @@ 
 
 	$res = spip_pg_fromfield($arg);
 
-	$res = preg_replace('/\brand[(][)]/i','random()', $res);
+	$res = preg_replace('/\brand[(][)]/i', 'random()', $res);
 
 	$res = preg_replace('/\b0\.0[+]([a-zA-Z0-9_.]+)\s*/',
 			    'CAST(substring(\1, \'^ *[0-9.]+\') as float)',
@@ -651,8 +651,8 @@ 
 	$res = preg_replace('/([+<>-]=?)\s*(\'\d+-\d+-\d+\')/', '\1 timestamp \2', $res);
 	$res = preg_replace('/(\'\d+-\d+-\d+\')\s*([+<>-]=?)/', 'timestamp \1 \2', $res);
 
-	$res = preg_replace('/(timestamp .\d+)-00-/','\1-01-', $res);
-	$res = preg_replace('/(timestamp .\d+-\d+)-00/','\1-01',$res);
+	$res = preg_replace('/(timestamp .\d+)-00-/', '\1-01-', $res);
+	$res = preg_replace('/(timestamp .\d+-\d+)-00/', '\1-01', $res);
 # correct en theorie mais produit des debordements arithmetiques
 #	$res = preg_replace("/(EXTRACT[(][^ ]* FROM *)(timestamp *'[^']*' *[+-] *timestamp *'[^']*') *[)]/", '\2', $res);
 	$res = preg_replace("/(EXTRACT[(][^ ]* FROM *)('[^']*')/", '\1 timestamp \2', $res);
@@ -663,18 +663,18 @@ 
 // http://doc.spip.org/@spip_pg_fromfield
 function spip_pg_fromfield($arg)
 {
-	while(preg_match('/^(.*?)FIELD\s*\(([^,]*)((,[^,)]*)*)\)/', $arg, $m)) {
+	while (preg_match('/^(.*?)FIELD\s*\(([^,]*)((,[^,)]*)*)\)/', $arg, $m)) {
 
 		preg_match_all('/,([^,]*)/', $m[3], $r, PREG_PATTERN_ORDER);
 		$res = '';
-		$n=0;
+		$n = 0;
 		$index = $m[2];
-		foreach($r[1] as $v) {
+		foreach ($r[1] as $v) {
 			$n++;
 			$res .= "\nwhen $index=$v then $n";
 		}
-		$arg = $m[1] . "case $res else 0 end "
-		  . substr($arg,strlen($m[0]));
+		$arg = $m[1]."case $res else 0 end "
+		  . substr($arg, strlen($m[0]));
 	}
 	return $arg;
 }
@@ -686,15 +686,15 @@ 
 		return spip_pg_frommysql($v);
 
 	$op = str_replace('REGEXP', '~', array_shift($v));
-	if (!($n=count($v)))
+	if (!($n = count($v)))
 		return $op;
 	else {
 		$arg = calculer_pg_where(array_shift($v));
-		if ($n==1) {
+		if ($n == 1) {
 			  return "$op($arg)";
 		} else {
 			$arg2 = calculer_pg_where(array_shift($v));
-			if ($n==2) {
+			if ($n == 2) {
 				return "($arg $op $arg2)";
 			} else return "($arg $op ($arg2) : $v[0])";
 		}
@@ -703,7 +703,7 @@ 
 
 
 // http://doc.spip.org/@calculer_pg_expression
-function calculer_pg_expression($expression, $v, $join = 'AND'){
+function calculer_pg_expression($expression, $v, $join = 'AND') {
 	if (empty($v))
 		return '';
 	
@@ -712,20 +712,20 @@ 
 	if (!is_array($v)) $v = array($v);
 	
 	if (strtoupper($join) === 'AND')
-			return $exp . join("\n\t$join ", array_map('calculer_pg_where', $v));
+			return $exp.join("\n\t$join ", array_map('calculer_pg_where', $v));
 		else
-			return $exp . join($join, $v);
+			return $exp.join($join, $v);
 }
 
 // http://doc.spip.org/@spip_pg_select_as
 function spip_pg_select_as($args)
 {
 	$argsas = "";
-	foreach($args as $k => $v) {
-		if (substr($k,-1)=='@') {
+	foreach ($args as $k => $v) {
+		if (substr($k, -1) == '@') {
 			// c'est une jointure qui se refere au from precedent
 			// pas de virgule
-		  $argsas .= '  ' . $v ;
+		  $argsas .= '  '.$v;
 		}
 		else {
 			$as = '';
@@ -736,36 +736,36 @@ 
 				elseif ($v != $k) {
 					$p = strpos($v, " ");
 					if ($p)
-					  $v = substr($v,0,$p) . " AS $k" . substr($v,$p);
+					  $v = substr($v, 0, $p)." AS $k".substr($v, $p);
 					else  $as = " AS $k"; 
 				}
 			}
 			// spip_log("subs $k : $v avec $as", _LOG_DEBUG);
 			// if (strpos($v, 'JOIN') === false)  $argsas .= ', ';
-			$argsas .= ', '. $v . $as; 
+			$argsas .= ', '.$v.$as; 
 		}
 	}
-	return substr($argsas,2);
+	return substr($argsas, 2);
 }
 
 // http://doc.spip.org/@spip_pg_fetch
-function spip_pg_fetch($res, $t='', $serveur='',$requeter=true) {
+function spip_pg_fetch($res, $t = '', $serveur = '', $requeter = true) {
 
 	if ($res) $res = pg_fetch_array($res, NULL, PGSQL_ASSOC);
 	return $res;
 }
 
-function spip_pg_seek($r, $row_number, $serveur='',$requeter=true) {
-	if ($r) return pg_result_seek($r,$row_number);
+function spip_pg_seek($r, $row_number, $serveur = '', $requeter = true) {
+	if ($r) return pg_result_seek($r, $row_number);
 }
 
 
 // http://doc.spip.org/@spip_pg_countsel
-function spip_pg_countsel($from = array(), $where = array(), $groupby=array(),
-			  $having = array(), $serveur='',$requeter=true) 
+function spip_pg_countsel($from = array(), $where = array(), $groupby = array(),
+			  $having = array(), $serveur = '', $requeter = true) 
 {
-	$c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
-	$r = spip_pg_select("COUNT($c)", $from, $where,'', '', '', $having, $serveur, $requeter);
+	$c = !$groupby ? '*' : ('DISTINCT '.(is_string($groupby) ? $groupby : join(',', $groupby)));
+	$r = spip_pg_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
 	if (!$requeter) return $r;
 	if (!is_resource($r)) return 0;
 	list($c) = pg_fetch_array($r, NULL, PGSQL_NUM);
@@ -773,17 +773,17 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_count
-function spip_pg_count($res, $serveur='',$requeter=true) {
+function spip_pg_count($res, $serveur = '', $requeter = true) {
 	return !$res ? 0 : pg_numrows($res);
 }
   
 // http://doc.spip.org/@spip_pg_free
-function spip_pg_free($res, $serveur='',$requeter=true) {
+function spip_pg_free($res, $serveur = '', $requeter = true) {
   // rien a faire en postgres
 }
 
 // http://doc.spip.org/@spip_pg_delete
-function spip_pg_delete($table, $where='', $serveur='',$requeter=true) {
+function spip_pg_delete($table, $where = '', $serveur = '', $requeter = true) {
 
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
@@ -805,16 +805,16 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_insert
-function spip_pg_insert($table, $champs, $valeurs, $desc=array(), $serveur='',$requeter=true) {
+function spip_pg_insert($table, $champs, $valeurs, $desc = array(), $serveur = '', $requeter = true) {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
 	$link = $connexion['link'];
 	$db = $connexion['db'];
 
 	if (!$desc) $desc = description_table($table, $serveur);
-	$seq = spip_pg_sequence($table,true);
+	$seq = spip_pg_sequence($table, true);
 	// si pas de cle primaire dans l'insertion, renvoyer curval
-	if (!preg_match(",\b$seq\b,",$champs)){
+	if (!preg_match(",\b$seq\b,", $champs)) {
 		$seq = spip_pg_sequence($table);
 		if ($prefixe)
 			$seq = preg_replace('/^spip/', $prefixe, $seq);
@@ -826,10 +826,10 @@ 
 		$table = preg_replace('/^spip/', $prefixe, $table);
 	}
 	$ret = !$seq ? '' : (" RETURNING $seq");
-	$ins = (strlen($champs)<3)
+	$ins = (strlen($champs) < 3)
 	  ? " DEFAULT VALUES"
 	  : "$champs VALUES $valeurs";
-	$q ="INSERT INTO $table $ins $ret";
+	$q = "INSERT INTO $table $ins $ret";
 	if (!$requeter) return $q;
 	$connexion['last'] = $q;
 	$r = spip_pg_query_simple($link, $q);
@@ -843,55 +843,55 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_insertq
-function spip_pg_insertq($table, $couples=array(), $desc=array(), $serveur='',$requeter=true) {
+function spip_pg_insertq($table, $couples = array(), $desc = array(), $serveur = '', $requeter = true) {
 
 	if (!$desc) $desc = description_table($table, $serveur);
 	if (!$desc) die("$table insertion sans description");
-	$fields =  $desc['field'];
+	$fields = $desc['field'];
 	
 	foreach ($couples as $champ => $val) {
-		$couples[$champ]=  spip_pg_cite($val, $fields[$champ]);
+		$couples[$champ] = spip_pg_cite($val, $fields[$champ]);
 	}
 
 	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
 	$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
 	
-	return spip_pg_insert($table, "(".join(',',array_keys($couples)).")", "(".join(',', $couples).")", $desc, $serveur, $requeter);
+	return spip_pg_insert($table, "(".join(',', array_keys($couples)).")", "(".join(',', $couples).")", $desc, $serveur, $requeter);
 }
 
 
 
 // http://doc.spip.org/@spip_pg_insertq_multi
-function spip_pg_insertq_multi($table, $tab_couples=array(), $desc=array(), $serveur='',$requeter=true) {
+function spip_pg_insertq_multi($table, $tab_couples = array(), $desc = array(), $serveur = '', $requeter = true) {
 
 	if (!$desc) $desc = description_table($table, $serveur);
 	if (!$desc) die("$table insertion sans description");
-	$fields =  isset($desc['field'])?$desc['field']:array();
+	$fields = isset($desc['field']) ? $desc['field'] : array();
 	
 	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
 	// une premiere fois pour ajouter maj dans les cles
 	$c = isset($tab_couples[0]) ? $tab_couples[0] : array();
 	$les_cles = spip_pg_ajouter_champs_timestamp($table, $c, $desc, $serveur);
 	
-	$cles = "(" . join(',',array_keys($les_cles)). ')';
+	$cles = "(".join(',', array_keys($les_cles)).')';
 	$valeurs = array();
 	foreach ($tab_couples as $couples) {
-		foreach ($couples as $champ => $val){
-			$couples[$champ]= spip_pg_cite($val, $fields[$champ]);
+		foreach ($couples as $champ => $val) {
+			$couples[$champ] = spip_pg_cite($val, $fields[$champ]);
 		}
 		// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
 		$couples = spip_pg_ajouter_champs_timestamp($table, $couples, $desc, $serveur);
 		
-		$valeurs[] = '(' .join(',', $couples) . ')';
+		$valeurs[] = '('.join(',', $couples).')';
 	}
-	$valeurs = implode(', ',$valeurs);
+	$valeurs = implode(', ', $valeurs);
 	
 	return	spip_pg_insert($table, $cles, $valeurs, $desc, $serveur, $requeter);
 }
 
 
 // http://doc.spip.org/@spip_pg_update
-function spip_pg_update($table, $couples, $where='', $desc='', $serveur='',$requeter=true) {
+function spip_pg_update($table, $couples, $where = '', $desc = '', $serveur = '', $requeter = true) {
 
 	if (!$couples) return;
 	$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
@@ -905,7 +905,7 @@ 
 
 	$set = array();
 	foreach ($couples as $champ => $val) {
-		$set[] = $champ . '=' . $val; 
+		$set[] = $champ.'='.$val; 
 	}
 
 	$query = calculer_pg_expression('UPDATE', $table, ',')
@@ -921,7 +921,7 @@ 
 // idem, mais les valeurs sont des constantes a mettre entre apostrophes
 // sauf les expressions de date lorsqu'il s'agit de fonctions SQL (NOW etc)
 // http://doc.spip.org/@spip_pg_updateq
-function spip_pg_updateq($table, $couples, $where='', $desc=array(), $serveur='',$requeter=true) {
+function spip_pg_updateq($table, $couples, $where = '', $desc = array(), $serveur = '', $requeter = true) {
 	if (!$couples) return;
 	if (!$desc) $desc = description_table($table, $serveur);
 	$fields = $desc['field'];
@@ -934,8 +934,8 @@ 
 
 
 // http://doc.spip.org/@spip_pg_replace
-function spip_pg_replace($table, $values, $desc, $serveur='',$requeter=true) {
-	if (!$values) {spip_log("replace vide $table",'pg.'._LOG_AVERTISSEMENT); return 0;}
+function spip_pg_replace($table, $values, $desc, $serveur = '', $requeter = true) {
+	if (!$values) {spip_log("replace vide $table", 'pg.'._LOG_AVERTISSEMENT); return 0; }
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
 	$link = $connexion['link'];
@@ -946,12 +946,12 @@ 
 	$prim = $desc['key']['PRIMARY KEY'];
 	$ids = preg_split('/,\s*/', $prim);
 	$noprims = $prims = array();
-	foreach($values as $k=>$v) {
+	foreach ($values as $k=>$v) {
 		$values[$k] = $v = spip_pg_cite($v, $desc['field'][$k]);
 
 		if (!in_array($k, $ids))
-			$noprims[$k]= "$k=$v";
-		else $prims[$k]= "$k=$v";
+			$noprims[$k] = "$k=$v";
+		else $prims[$k] = "$k=$v";
 	}
 
 	// recherche de champs 'timestamp' pour mise a jour auto de ceux-ci
@@ -959,7 +959,7 @@ 
 	
 	$where = join(' AND ', $prims);
 	if (!$where) {
-		return spip_pg_insert($table, "(".join(',',array_keys($values)).")", "(".join(',', $values).")", $desc, $serveur);
+		return spip_pg_insert($table, "(".join(',', array_keys($values)).")", "(".join(',', $values).")", $desc, $serveur);
 	}
 	$couples = join(',', $noprims);
 
@@ -977,9 +977,8 @@ 
 	  $couples = pg_affected_rows($couples);
 	}
 	if (!$couples) {
-		$ret = !$seq ? '' :
-		  (" RETURNING nextval('$seq') < $prim");
-		$connexion['last'] = $q = "INSERT INTO $table (" . join(',',array_keys($values)) . ') VALUES (' .join(',', $values) . ")$ret";
+		$ret = !$seq ? '' : (" RETURNING nextval('$seq') < $prim");
+		$connexion['last'] = $q = "INSERT INTO $table (".join(',', array_keys($values)).') VALUES ('.join(',', $values).")$ret";
 		$couples = spip_pg_query_simple($link, $q);
 	    if (!$couples) {
 		return false;
@@ -999,10 +998,10 @@ 
 
 
 // http://doc.spip.org/@spip_pg_replace_multi
-function spip_pg_replace_multi($table, $tab_couples, $desc=array(), $serveur='',$requeter=true) {
+function spip_pg_replace_multi($table, $tab_couples, $desc = array(), $serveur = '', $requeter = true) {
 	// boucler pour traiter chaque requete independemment
-	foreach ($tab_couples as $couples){
-		$retour = spip_pg_replace($table, $couples, $desc, $serveur,$requeter);
+	foreach ($tab_couples as $couples) {
+		$retour = spip_pg_replace($table, $couples, $desc, $serveur, $requeter);
 	}
 	// renvoie le dernier id 
 	return $retour; 
@@ -1014,7 +1013,7 @@ 
 // Pas extensible pour le moment,
 
 // http://doc.spip.org/@spip_pg_sequence
-function spip_pg_sequence($table,$raw=false)
+function spip_pg_sequence($table, $raw = false)
 {
 	global $tables_principales;
 	include_spip('base/serial');
@@ -1024,33 +1023,33 @@ 
 	if (!preg_match('/^\w+$/', $prim)
 	OR strpos($desc['field'][$prim], 'int') === false)
 		return '';
-	else  {	return $raw?$prim:$table . '_' . $prim . "_seq";}
+	else {	return $raw ? $prim : $table.'_'.$prim."_seq"; }
 }
 
 // Explicite les conversions de Mysql d'une valeur $v de type $t
 // Dans le cas d'un champ date, pas d'apostrophe, c'est une syntaxe ad hoc
 
 // http://doc.spip.org/@spip_pg_cite
-function spip_pg_cite($v, $t){
-	if(is_null($v)) return 'NULL'; // null php se traduit en NULL SQL
+function spip_pg_cite($v, $t) {
+	if (is_null($v)) return 'NULL'; // null php se traduit en NULL SQL
 
 	if (sql_test_date($t)) {
 		if ($v AND (strpos("0123456789", $v[0]) === false))
 			return spip_pg_frommysql($v);
 		else {
-			if (strncmp($v,'0000',4)==0)
-				$v = "0001" . substr($v,4);
+			if (strncmp($v, '0000', 4) == 0)
+				$v = "0001".substr($v, 4);
 			if (strpos($v, "-00-00") === 4)
-				$v = substr($v,0,4)."-01-01".substr($v,10);
+				$v = substr($v, 0, 4)."-01-01".substr($v, 10);
 			return "timestamp '$v'";
 		}
 	}
 	elseif (!sql_test_int($t))
-		return   ("'" . pg_escape_string($v) . "'");
+		return   ("'".pg_escape_string($v)."'");
 	elseif (is_numeric($v) OR (strpos($v, 'CAST(') === 0))
 		return $v;
-	elseif ($v[0]== '0' AND $v[1]!=='x' AND  ctype_xdigit(substr($v,1)))
-		return  substr($v,1);
+	elseif ($v[0] == '0' AND $v[1] !== 'x' AND ctype_xdigit(substr($v, 1)))
+		return  substr($v, 1);
 	else {
 		spip_log("Warning: '$v'  n'est pas de type $t", 'pg.'._LOG_AVERTISSEMENT);
 		return intval($v);
@@ -1060,15 +1059,15 @@ 
 // http://doc.spip.org/@spip_pg_hex
 function spip_pg_hex($v)
 {
-	return "CAST(x'" . $v . "' as bigint)";
+	return "CAST(x'".$v."' as bigint)";
 }
 
-function spip_pg_quote($v, $type='')
+function spip_pg_quote($v, $type = '')
 {
 	if (!is_array($v))
-		return spip_pg_cite($v,$type);
+		return spip_pg_cite($v, $type);
 	// si c'est un tableau, le parcourir en propageant le type
-	foreach($v as $k=>$r)
+	foreach ($v as $k=>$r)
 		$v[$k] = spip_pg_quote($r, $type);
 	return join(",", $v);
 }
@@ -1082,30 +1081,30 @@ 
 	. '('
 	. sql_quote(date('Y-m-d H:i:s'))
 	. ', INTERVAL '
-	. (($interval > 0) ? $interval : (0-$interval))
+	. (($interval > 0) ? $interval : (0 - $interval))
 	. ' '
 	. $unite
 	. '))';
 }
 
 // http://doc.spip.org/@spip_pg_in
-function spip_pg_in($val, $valeurs, $not='', $serveur) {
+function spip_pg_in($val, $valeurs, $not = '', $serveur) {
 //
 // IN (...) souvent limite a 255  elements, d'ou cette fonction assistante
 //
 	// s'il n'y a pas de valeur, eviter de produire un IN vide: PG rale.
 	if (!$valeurs) return $not ? '0=0' : '0=1';
 	if (strpos($valeurs, "CAST(x'") !== false)
-		return "($val=" . join("OR $val=", explode(',',$valeurs)).')';
+		return "($val=".join("OR $val=", explode(',', $valeurs)).')';
 	$n = $i = 0;
-	$in_sql ="";
-	while ($n = strpos($valeurs, ',', $n+1)) {
+	$in_sql = "";
+	while ($n = strpos($valeurs, ',', $n + 1)) {
 	  if ((++$i) >= 255) {
-			$in_sql .= "($val $not IN (" .
-			  substr($valeurs, 0, $n) .
-			  "))\n" .
+			$in_sql .= "($val $not IN (".
+			  substr($valeurs, 0, $n).
+			  "))\n".
 			  ($not ? "AND\t" : "OR\t");
-			$valeurs = substr($valeurs, $n+1);
+			$valeurs = substr($valeurs, $n + 1);
 			$i = $n = 0;
 		}
 	}
@@ -1115,7 +1114,7 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_error
-function spip_pg_error($query='', $serveur, $requeter=true) {
+function spip_pg_error($query = '', $serveur, $requeter = true) {
 	$link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
 	$s = $link ? pg_last_error($link) : pg_last_error();
 	if ($s) {
@@ -1126,16 +1125,16 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_errno
-function spip_pg_errno($serveur='') {
+function spip_pg_errno($serveur = '') {
   // il faudrait avoir la derniere ressource retournee et utiliser
   // http://fr2.php.net/manual/fr/function.pg-result-error.php
 	return 0;
 }
 
 // http://doc.spip.org/@spip_pg_drop_table
-function spip_pg_drop_table($table, $exist='', $serveur='',$requeter=true)
+function spip_pg_drop_table($table, $exist = '', $serveur = '', $requeter = true)
 {
-	if ($exist) $exist =" IF EXISTS";
+	if ($exist) $exist = " IF EXISTS";
 	if (spip_pg_query("DROP TABLE$exist $table", $serveur, $requeter))
 		return true;
 	else return false;
@@ -1143,8 +1142,8 @@ 
 
 // supprime une vue 
 // http://doc.spip.org/@spip_pg_drop_view
-function spip_pg_drop_view($view, $exist='', $serveur='',$requeter=true) {
-	if ($exist) $exist =" IF EXISTS";
+function spip_pg_drop_view($view, $exist = '', $serveur = '', $requeter = true) {
+	if ($exist) $exist = " IF EXISTS";
 	return spip_pg_query("DROP VIEW$exist $view", $serveur, $requeter);
 }
 
@@ -1161,7 +1160,7 @@ 
  * @return ressource
  *     Ressource à utiliser avec sql_fetch()
 **/
-function spip_pg_showbase($match, $serveur='',$requeter=true)
+function spip_pg_showbase($match, $serveur = '', $requeter = true)
 {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$link = $connexion['link'];
@@ -1170,11 +1169,11 @@ 
 }
 
 // http://doc.spip.org/@spip_pg_showtable
-function spip_pg_showtable($nom_table, $serveur='',$requeter=true)
+function spip_pg_showtable($nom_table, $serveur = '', $requeter = true)
 {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$link = $connexion['link'];
-	$connexion['last'] = $q = "SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE " . _q($nom_table);
+	$connexion['last'] = $q = "SELECT column_name, column_default, data_type FROM information_schema.columns WHERE table_name ILIKE "._q($nom_table);
 
 	$res = spip_pg_query_simple($link, $q);
 	if (!$res) return false;
@@ -1182,16 +1181,16 @@ 
 	// etrangement, $res peut ne rien contenir, mais arriver ici...
 	// il faut en tenir compte dans le return
 	$fields = array();
-	while($field = pg_fetch_array($res, NULL, PGSQL_NUM)) {
-		$fields[$field[0]] = $field[2] . (!$field[1] ? '' : (" DEFAULT " . $field[1]));
+	while ($field = pg_fetch_array($res, NULL, PGSQL_NUM)) {
+		$fields[$field[0]] = $field[2].(!$field[1] ? '' : (" DEFAULT ".$field[1]));
 	}
-	$connexion['last'] = $q = "SELECT indexdef FROM pg_indexes WHERE tablename ILIKE " . _q($nom_table);
+	$connexion['last'] = $q = "SELECT indexdef FROM pg_indexes WHERE tablename ILIKE "._q($nom_table);
 	$res = spip_pg_query_simple($link, $q);
 	$keys = array();
-	while($index = pg_fetch_array($res, NULL, PGSQL_NUM)) {
-		if (preg_match('/CREATE\s+(UNIQUE\s+)?INDEX\s([^\s]+).*\((.*)\)$/', $index[0],$r)) {
-			$nom = str_replace($nom_table.'_','',$r[2]);
-			$keys[($r[1] ? "PRIMARY KEY" : ("KEY " . $nom))] = $r[3];
+	while ($index = pg_fetch_array($res, NULL, PGSQL_NUM)) {
+		if (preg_match('/CREATE\s+(UNIQUE\s+)?INDEX\s([^\s]+).*\((.*)\)$/', $index[0], $r)) {
+			$nom = str_replace($nom_table.'_', '', $r[2]);
+			$keys[($r[1] ? "PRIMARY KEY" : ("KEY ".$nom))] = $r[3];
 		}
 	}
 
@@ -1205,14 +1204,14 @@ 
 // si $autoinc, c'est une auto-increment (i.e. serial) sur la Primary Key
 // Le nom des index est prefixe par celui de la table pour eviter les conflits
 // http://doc.spip.org/@spip_pg_create
-function spip_pg_create($nom, $champs, $cles, $autoinc=false, $temporary=false, $serveur='',$requeter=true) {
+function spip_pg_create($nom, $champs, $cles, $autoinc = false, $temporary = false, $serveur = '', $requeter = true) {
 
 	$connexion = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$prefixe = $connexion['prefixe'];
 	$link = $connexion['link'];
 	$db = $connexion['db'];
 	if ($prefixe) $nom = preg_replace('/^spip/', $prefixe, $nom);
-	$query = $prim = $prim_name = $v = $s = $p='';
+	$query = $prim = $prim_name = $v = $s = $p = '';
 	$keys = array();
 
 	// certains plugins declarent les tables  (permet leur inclusion dans le dump)
@@ -1220,20 +1219,20 @@ 
 	if (!is_array($champs) || !is_array($cles)) 
 		return;
 
-	foreach($cles as $k => $v) {
+	foreach ($cles as $k => $v) {
 		if (strpos($k, "KEY ") === 0) {
-		  $n = str_replace('`','',$k);	
-		  $v = str_replace('`','"',$v);	
-		  $i = $nom . preg_replace("/KEY +/", '_',$n);
+		  $n = str_replace('`', '', $k);	
+		  $v = str_replace('`', '"', $v);	
+		  $i = $nom.preg_replace("/KEY +/", '_', $n);
 		  if ($k != $n) $i = "\"$i\"";
 		  $keys[] = "CREATE INDEX $i ON $nom ($v);";
 		} 
 		elseif (strpos($k, "UNIQUE ") === 0) {
-			$k = preg_replace("/^UNIQUE +/", '',$k);
-			$prim .= "$s\n\t\tCONSTRAINT " . str_replace('`','"',$k) ." UNIQUE ($v)";
+			$k = preg_replace("/^UNIQUE +/", '', $k);
+			$prim .= "$s\n\t\tCONSTRAINT ".str_replace('`', '"', $k)." UNIQUE ($v)";
 		}
 		else {
-			$prim .= "$s\n\t\t" . str_replace('`','"',$k) ." ($v)";
+			$prim .= "$s\n\t\t".str_replace('`', '"', $k)." ($v)";
 		}
 		if ($k == "PRIMARY KEY")
 			$prim_name = $v;
@@ -1247,11 +1246,11 @@ 
 	if (@$GLOBALS['meta']['charset_collation_sql_base'])
 		$character_set .= " COLLATE ".$GLOBALS['meta']['charset_collation_sql_base'];
 
-	foreach($champs as $k => $v) {
-		$k = str_replace('`','"',$k);
-		if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i',$v,$defs)){
-			if (preg_match(',(char|text),i',$defs[1]) AND !preg_match(',binary,i',$defs[1]) ){
-				$v = $defs[1] . $character_set . ' ' . substr($v,strlen($defs[1]));
+	foreach ($champs as $k => $v) {
+		$k = str_replace('`', '"', $k);
+		if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i', $v, $defs)) {
+			if (preg_match(',(char|text),i', $defs[1]) AND !preg_match(',binary,i', $defs[1])) {
+				$v = $defs[1].$character_set.' '.substr($v, strlen($defs[1]));
 			}
 		}
 
@@ -1262,12 +1261,12 @@ 
 			);
 		$s = ",";
 	}
-	$temporary = $temporary ? 'TEMPORARY':'';
+	$temporary = $temporary ? 'TEMPORARY' : '';
 
 	// En l'absence de "if not exists" en PG, on neutralise les erreurs
 
-	$q = "CREATE $temporary TABLE $nom ($query" . ($prim ? ",$prim" : '') . ")".
-	($character_set?" DEFAULT $character_set":"")
+	$q = "CREATE $temporary TABLE $nom ($query".($prim ? ",$prim" : '').")".
+	($character_set ? " DEFAULT $character_set" : "")
 	."\n";
 
 	if (!$requeter) return $q;
@@ -1275,36 +1274,36 @@ 
 	$r = @pg_query($link, $q);
 
 	if (!$r)
-		spip_log("Impossible de creer cette table: $q",'pg.'._LOG_ERREUR);
+		spip_log("Impossible de creer cette table: $q", 'pg.'._LOG_ERREUR);
 	else {
-		foreach($keys as $index) {pg_query($link, $index);}
+		foreach ($keys as $index) {pg_query($link, $index); }
 	} 
 	return $r;
 }
 
 
-function spip_pg_create_base($nom, $serveur='',$requeter=true) {
+function spip_pg_create_base($nom, $serveur = '', $requeter = true) {
   return spip_pg_query("CREATE DATABASE $nom", $serveur, $requeter);
 }
 
 // Fonction de creation d'une vue SQL nommee $nom
 // http://doc.spip.org/@spip_pg_create_view
-function spip_pg_create_view($nom, $query_select, $serveur='',$requeter=true) {
+function spip_pg_create_view($nom, $query_select, $serveur = '', $requeter = true) {
 	if (!$query_select) return false;
 	// vue deja presente
 	if (sql_showtable($nom, false, $serveur)) {
-		if ($requeter) spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)",'pg.'._LOG_ERREUR);
+		if ($requeter) spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", 'pg.'._LOG_ERREUR);
 		return false;
 	}
 	
-	$query = "CREATE VIEW $nom AS ". $query_select;
+	$query = "CREATE VIEW $nom AS ".$query_select;
 	return spip_pg_query($query, $serveur, $requeter);
 }
 
 
 // http://doc.spip.org/@spip_pg_set_connect_charset
-function spip_pg_set_connect_charset($charset, $serveur='',$requeter=true){
-	spip_log("changement de charset sql a ecrire en PG",'pg.'._LOG_ERREUR);
+function spip_pg_set_connect_charset($charset, $serveur = '', $requeter = true) {
+	spip_log("changement de charset sql a ecrire en PG", 'pg.'._LOG_ERREUR);
 }
 
 
@@ -1317,15 +1316,15 @@ 
  * @return bool|string true / false / requete
 **/
 // http://doc.spip.org/@spip_sqlite_optimize
-function spip_pg_optimize($table, $serveur='',$requeter=true){
-	return spip_pg_query("VACUUM ". $table, $serveur, $requeter);
+function spip_pg_optimize($table, $serveur = '', $requeter = true) {
+	return spip_pg_query("VACUUM ".$table, $serveur, $requeter);
 }
 
 // Selectionner la sous-chaine dans $objet
 // correspondant a $lang. Cf balise Multi de Spip
 
 // http://doc.spip.org/@spip_pg_multi
-function spip_pg_multi ($objet, $lang) {
+function spip_pg_multi($objet, $lang) {
 	$r = "regexp_replace("
 	  . $objet
 	  . ",'<multi>.*[[]"
@@ -1338,7 +1337,7 @@ 
 // A completer par les autres, mais essayer de reduire en amont.
 
 // http://doc.spip.org/@mysql2pg_type
-function mysql2pg_type($v){
+function mysql2pg_type($v) {
 	$remplace = array(
 		'/auto_increment/i' => '', // non reconnu
 		'/bigint/i' => 'bigint',
@@ -1359,12 +1358,12 @@ 
 		'/(timestamp .* )ON .*$/is' => '\\1',
 	);
 	
-  return preg_replace(array_keys($remplace),array_values($remplace),$v);
+  return preg_replace(array_keys($remplace), array_values($remplace), $v);
 }
 
 // Renvoie false si on n'a pas les fonctions pg (pour l'install)
 // http://doc.spip.org/@spip_versions_pg
-function spip_versions_pg(){
+function spip_versions_pg() {
 	charger_php_extension('pgsql');
 	return function_exists('pg_connect');	
 }