X-Git-Url: http://git.cyclocoop.org/?p=velocampus%2Fweb%2Fwww.git;a=blobdiff_plain;f=www%2Fecrire%2Fpublic%2Fcompiler.php;h=a576c1a1981f3c581f4785067f98338da8dae534;hp=da13d9faf3d87a5c3d2d784a031ae06377b28066;hb=e99f0878011913365e49b30d90e496c24c301393;hpb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed

diff --git a/www/ecrire/public/compiler.php b/www/ecrire/public/compiler.php
index da13d9f..a576c1a 100644
--- a/www/ecrire/public/compiler.php
+++ b/www/ecrire/public/compiler.php
@@ -3,7 +3,7 @@
 /***************************************************************************\
  *  SPIP, Systeme de publication pour l'internet                           *
  *                                                                         *
- *  Copyright (c) 2001-2011                                                *
+ *  Copyright (c) 2001-2014                                                *
  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
  *                                                                         *
  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
@@ -51,49 +51,50 @@ include_spip('public/jointures');
 
 
 // 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) {
-	// la liste d'arguments d'inclusion peut se terminer par un filtre
+	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) {
-				$erreur_p_i_i = array('zbug_parametres_inclus_incorrects',
-					 array('param' => $var->nom_champ));
-				erreur_squelette($erreur_p_i_i, $p);
-			  } else $l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle);
-			  break;
+			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);
+				} else $l[1] = calculer_liste($val, $p->descr, $boucles, $id_boucle);
+				break;
 			} else {
-				preg_match(",^([^=]*)(=?)(.*)$,", $var->texte,$m);
+				preg_match(",^([^=]*)(=?)(.*)$,", $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;
+				$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;
+					$auto = true;
 				} else $var = 1;
 
-				if ($var == 'lang') {
-				  $lang = !$auto 
-				    ? calculer_liste($val, $p->descr, $boucles, $id_boucle)
-				    : '$GLOBALS["spip_lang"]';
+				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;
+					$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;
 				}
 			}
 		}
@@ -102,9 +103,9 @@ function argumenter_inclure($params, $rejet_filtres, $p, &$boucles, $id_boucle,
 	// 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===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;
 }
@@ -123,10 +124,10 @@ else erreur_squelette(array("fichier_introuvable", array("fichier" => "%s")), ar
 define('CODE_RECUPERER_FOND', 'recuperer_fond(%s, %s, array(%s), %s)');
 
 // http://doc.spip.org/@calculer_inclure
-function calculer_inclure($p, &$boucles, $id_boucle) {
+function calculer_inclure($p, &$boucles, $id_boucle){
 
 	$_contexte = argumenter_inclure($p->param, false, $p, $boucles, $id_boucle, true, '', true);
-	if (is_string($p->texte)) {
+	if (is_string($p->texte)){
 		$fichier = $p->texte;
 		$code = "\"$fichier\"";
 
@@ -136,22 +137,22 @@ function calculer_inclure($p, &$boucles, $id_boucle) {
 			$fichier = $r[1];
 		else $fichier = '';
 	}
-	if (!$code OR $code === '""') {
+	if (!$code OR $code==='""'){
 		$erreur_p_i_i = array('zbug_parametres_inclus_incorrects',
-					 array('param' => $code));
+			array('param' => $code));
 		erreur_squelette($erreur_p_i_i, $p);
 		return false;
 	}
 	$compil = texte_script(memoriser_contexte_compil($p));
 
-	if (is_array($_contexte)) {
+	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']);
 		}
 
 		// noter les doublons dans l'appel a public.php
-		if (isset($_contexte['doublons'])) {
+		if (isset($_contexte['doublons'])){
 			$_contexte['doublons'] = "\\'doublons\\' => '.var_export(\$doublons,true).'";
 		}
 
@@ -162,30 +163,30 @@ function calculer_inclure($p, &$boucles, $id_boucle) {
 	}
 	else
 		return false; // j'aurais voulu toucher le fond ...
-		
-	$contexte = 'array(' . $_contexte  .')';
 
-	if ($env) {
+	$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 (preg_match('/^.+[.]php$/s', $fichier)) {
+	if (preg_match('/^.+[.]php$/s', $fichier)){
 		// si inexistant, on essaiera a l'execution
 		if ($path = find_in_path($fichier))
 			$path = "\"$path\"";
 		else $path = "find_in_path(\"$fichier\")";
 
 		$code = sprintf(CODE_INCLURE_SCRIPT, $path, $fichier, $compil);
-	} else 	{
+	} else {
 		$_options[] = "\"compil\"=>array($compil)";
 		if ($ajax)
 			$_options[] = "\"ajax\"=>true";
-		$code = " ' . argumenter_squelette($code) . '"; 
-		$code = "echo " . sprintf(CODE_RECUPERER_FOND, $code, $contexte, implode(',',$_options), "_request(\"connect\")") . ';';
+		$code = " ' . argumenter_squelette($code) . '";
+		$code = "echo " . sprintf(CODE_RECUPERER_FOND, $code, $contexte, implode(',', $_options), "_request(\"connect\")") . ';';
 	}
 
-	return	"\n'<'.'".	"?php ". $code . "\n?'." . "'>'";
+	return "\n'<'.'" . "?php " . $code . "\n?'." . "'>'";
 }
 
 //
@@ -195,22 +196,22 @@ function calculer_inclure($p, &$boucles, $id_boucle) {
 // et on insere le code d'envoi au debusqueur du resultat de la fonction.
 
 // http://doc.spip.org/@calculer_boucle
-function calculer_boucle($id_boucle, &$boucles) {
+function calculer_boucle($id_boucle, &$boucles){
 
 	$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') 
+	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 == 'boucle')
-	? calculer_boucle_rec($id_boucle, $boucles, $trace) 
-	: calculer_boucle_nonrec($id_boucle, $boucles, $trace);
+	return ($boucles[$id_boucle]->type_requete=='boucle')
+		? calculer_boucle_rec($id_boucle, $boucles, $trace)
+		: calculer_boucle_nonrec($id_boucle, $boucles, $trace);
 }
 
 // compil d'une boucle recursive. 
@@ -218,13 +219,13 @@ function calculer_boucle($id_boucle, &$boucles) {
 // reference, car par definition un tel passage ne les sauvegarde pas
 
 // http://doc.spip.org/@calculer_boucle_rec
-function calculer_boucle_rec($id_boucle, &$boucles, $trace) {
+function calculer_boucle_rec($id_boucle, &$boucles, $trace){
 	$nom = $boucles[$id_boucle]->param[0];
 	return "\n\t\$save_numrows = (\$Numrows['$nom']);"
-	. "\n\t\$t0 = " . $boucles[$id_boucle]->return . ";"
-	. "\n\t\$Numrows['$nom'] = (\$save_numrows);"
-	. $trace
-	. "\n\treturn \$t0;";
+		. "\n\t\$t0 = " . $boucles[$id_boucle]->return . ";"
+		. "\n\t\$Numrows['$nom'] = (\$save_numrows);"
+		. $trace
+		. "\n\treturn \$t0;";
 }
 
 // Compilation d'une boucle non recursive. 
@@ -253,55 +254,56 @@ define('CODE_CORPS_BOUCLE', '%s
 );
 
 // http://doc.spip.org/@calculer_boucle_nonrec
-function calculer_boucle_nonrec($id_boucle, &$boucles, $trace) {
+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;
+	$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";
+			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'
+	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";
 
-		$corps .= 
+		$corps .=
 			"\n\t\tlang_select_public("
-			. index_pile($id_boucle, 'lang', $boucles)
-			. ", '".$boucle->lang_select."'"
-			. (in_array($type_boucle, array(
+				. index_pile($id_boucle, 'lang', $boucles)
+				. ", '" . $boucle->lang_select . "'"
+				. (in_array($type_boucle, array(
 				'articles', 'rubriques', 'hierarchie', 'breves'
-				)) ? ', '.index_pile($id_boucle, 'titre', $boucles) : '')
-			. ');';
+			)) ? ', ' . index_pile($id_boucle, 'titre', $boucles) : '')
+				. ');';
 	}
 	else {
 		$init_lang = '';
 		$fin_lang = '';
 		// sortir les appels au traducteur (invariants de boucle)
-		if (strpos($return, '?php') === false
-		AND preg_match_all("/\W(_T[(]'[^']*'[)])/", $return, $r)) {
+		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++;
@@ -311,23 +313,23 @@ function calculer_boucle_nonrec($id_boucle, &$boucles, $trace) {
 
 	// 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) ? 
+	$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 .= (($t1 && $t0) ? ' . $code_sep . " : '') . \$t1;"));
-     
+				(($return==="''") ? '' :
+					("\n\t\t" . '$t0 .= ' . $return . ";"))) :
+			("\n\t\t\$t1 " .
+				((strpos($return, '$t1.')===0) ?
+					(".=" . substr($return, 4)) :
+					('= ' . $return)) .
+				";\n\t\t" .
+				'$t0 .= (($t1 && $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) {
+	if (!$constant AND $primary){
 		include_spip('inc/invalideur');
 		if (function_exists($i = 'calcul_invalideurs'))
 			$corps = $i($corps, $primary, $boucles, $id_boucle);
@@ -338,16 +340,16 @@ function calculer_boucle_nonrec($id_boucle, &$boucles, $trace) {
 
 	if ($boucle->partie OR $boucle->cptrows)
 		$corps = "\n\t\t\$Numrows['$id_boucle']['compteur_boucle']++;"
-		. $boucle->partie 
-		. $corps;
+			. $boucle->partie
+			. $corps;
 
 	$serveur = !$boucle->sql_serveur ? ''
 		: (', ' . _q($boucle->sql_serveur));
 
 	// 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 (preg_match(CODE_MONOTONE, str_replace("\\'", '', $corps), $r)){
+		if (!isset($r[2]) OR (!$r[2])){
 			if (!$boucle->numrows)
 				return "\n\t\$t0 = '';";
 			else
@@ -356,36 +358,37 @@ function calculer_boucle_nonrec($id_boucle, &$boucles, $trace) {
 			$boucle->numrows = true;
 			$corps = "\n\t\$t0 = str_repeat($corps, \$Numrows['$id_boucle']['total']);";
 		}
-	} else $corps = "while (\$Pile[\$SP] = @sql_fetch(\$result$serveur)) {\n$corps\n	}"; 
+	} else $corps = "while (\$Pile[\$SP] = @sql_fetch(\$result$serveur)) {\n$corps\n	}";
 
 	$count = '';
-	if (!$boucle->select) {
+	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; 
+		$boucles[$id_boucle]->select[] = $count;
 	}
 
 	if ($flag_cpt)
 		$nums = "\n\t// COMPTEUR\n\t"
-		. "\$Numrows['$id_boucle']['compteur_boucle'] = 0;\n\t";
+			. "\$Numrows['$id_boucle']['compteur_boucle'] = 0;\n\t";
 	else $nums = '';
 
-	if ($boucle->numrows OR $boucle->mode_partie) {
-		if ($count == 'count(*)')
-			$count = "array_shift(sql_fetch(\$result$serveur))";
-		else $count = "sql_count(\$result$serveur)";
+	if ($boucle->numrows OR $boucle->mode_partie){
+		if ($count=='count(*)')
+			$count = "(\$cc=sql_fetch(\$result$serveur))?array_shift(\$cc):0";
+		else
+			$count = "sql_count(\$result$serveur)";
 		$nums .= "\$Numrows['$id_boucle']['total'] = @intval($count);"
-		. $boucle->mode_partie
-		. "\n\t";
+			. $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]);
+		? ("\n\t$init = array();") : '')
+		. calculer_requete_sql($boucles[$id_boucle]);
 
 	$contexte = memoriser_contexte_compil($boucle);
 
@@ -394,28 +397,27 @@ function calculer_boucle_nonrec($id_boucle, &$boucles, $trace) {
 
 
 // http://doc.spip.org/@calculer_requete_sql
-function calculer_requete_sql($boucle)
-{
+function calculer_requete_sql($boucle){
 	return ($boucle->hierarchie ? "\n\t$boucle->hierarchie" : '')
-	  . $boucle->in 
-	  . $boucle->hash 
-	  . calculer_dec('$table',  "'" . $boucle->id_table ."'")
-	  . calculer_dec('$id', "'" . $boucle->id_boucle ."'")
+		. $boucle->in
+		. $boucle->hash
+		. calculer_dec('$table', "'" . $boucle->id_table . "'")
+		. calculer_dec('$id', "'" . $boucle->id_boucle . "'")
 		# En absence de champ c'est un decompte : 
-	  . calculer_dec('$from',  calculer_from($boucle))
-	  . calculer_dec('$type', calculer_from_type($boucle))
-	  . calculer_dec('$groupby', 'array(' . (($g=join("\",\n\t\t\"",$boucle->group))?'"'.$g.'"':'') . ")")
-	  . calculer_dec('$select', 'array("' . join("\",\n\t\t\"", $boucle->select).  "\")")
-	  . calculer_dec('$orderby', 'array(' . calculer_order($boucle) .	")")
-	  . calculer_dec('$where', calculer_dump_array($boucle->where))
-	  . calculer_dec('$join', calculer_dump_join($boucle->join))
-	  . calculer_dec('$limit', (strpos($boucle->limit, 'intval') === false ?
-				    "'".$boucle->limit."'" :
-				    $boucle->limit))
-	  . calculer_dec('$having', calculer_dump_array($boucle->having));
+		. calculer_dec('$from', calculer_from($boucle))
+		. calculer_dec('$type', calculer_from_type($boucle))
+		. calculer_dec('$groupby', 'array(' . (($g = join("\",\n\t\t\"", $boucle->group)) ? '"' . $g . '"' : '') . ")")
+		. calculer_dec('$select', 'array("' . join("\",\n\t\t\"", $boucle->select) . "\")")
+		. calculer_dec('$orderby', 'array(' . calculer_order($boucle) . ")")
+		. calculer_dec('$where', calculer_dump_array($boucle->where))
+		. calculer_dec('$join', calculer_dump_join($boucle->join))
+		. calculer_dec('$limit', (strpos($boucle->limit, 'intval')===false ?
+			"'" . $boucle->limit . "'" :
+			$boucle->limit))
+		. calculer_dec('$having', calculer_dump_array($boucle->having));
 }
 
-function memoriser_contexte_compil($p) {
+function memoriser_contexte_compil($p){
 	return join(',', array(
 		_q($p->descr['sourcefile']),
 		_q($p->descr['nom']),
@@ -424,13 +426,12 @@ function memoriser_contexte_compil($p) {
 		'$GLOBALS[\'spip_lang\']'));
 }
 
-function reconstruire_contexte_compil($context_compil)
-{
+function reconstruire_contexte_compil($context_compil){
 	if (!is_array($context_compil)) return $context_compil;
 	include_spip('public/interfaces');
 	$p = new Contexte;
 	$p->descr = array('sourcefile' => $context_compil[0],
-				  'nom' => $context_compil[1]);
+		'nom' => $context_compil[1]);
 	$p->id_boucle = $context_compil[2];
 	$p->ligne = $context_compil[3];
 	$p->lang = $context_compil[4];
@@ -438,70 +439,65 @@ function reconstruire_contexte_compil($context_compil)
 }
 
 // http://doc.spip.org/@calculer_dec
-function calculer_dec($nom, $val)
-{
+function calculer_dec($nom, $val){
 	$static = "static ";
-  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
-    	AND strpos($test,"(")!==FALSE // si pas de parenthese ouvrante, pas de fonction, on peut sortir
-    	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 = "";
-  }
-  return "\n\t" . $static . $nom . ' = ' . $val . ';';
+	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
+			AND strpos($test, "(")!==FALSE // si pas de parenthese ouvrante, pas de fonction, on peut sortir
+			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 = "";
+	}
+	return "\n\t" . $static . $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] == "'?'") 
-    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) . ')';
-  }
+function calculer_dump_array($a){
+	if (!is_array($a)) return $a;
+	$res = "";
+	if ($a AND $a[0]=="'?'")
+		return ("(" . calculer_dump_array($a[1]) .
+			" ? " . calculer_dump_array($a[2]) .
+			" : " . calculer_dump_array($a[3]) .
+			")");
+	else {
+		foreach ($a as $v) $res .= ", " . calculer_dump_array($v);
+		return "\n\t\t\tarray(" . substr($res, 2) . ')';
+	}
 }
 
 // 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) . ')';
+function calculer_dump_join($a){
+	$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) . ')';
+function calculer_from(&$boucle){
+	$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) . ')';
+function calculer_from_type(&$boucle){
+	$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)
-{
+function calculer_order(&$boucle){
 	if (!$order = $boucle->order
-	AND !$order = $boucle->default_order)
+		AND !$order = $boucle->default_order
+	)
 		$order = array();
 
 	/*if (isset($boucle->modificateur['collate'])){
@@ -519,190 +515,208 @@ function calculer_order(&$boucle)
 // (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);
-	if ($codes === false) return false;
+	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) 
+	if (_request('var_mode_affiche')!='validation'){
+		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
-function compile_cas($tableau, $descr, &$boucles, $id_boucle) {
+function compile_cas($tableau, $descr, &$boucles, $id_boucle){
 
-        $codes = array();
+	$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');
 	$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 = "'".str_replace(array("\\","'"),array("\\\\","\\'"), $p->texte)."'";
-
-			$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='';
+	foreach ($tableau as $p){
+
+		switch ($p->type) {
+			// texte seul
+			case 'texte':
+				$code = "'" . str_replace(array("\\", "'"), array("\\\\", "\\'"), $p->texte) . "'";
+
+				$commentaire = strlen($p->texte) . " signes";
+				$avant = '';
+				$apres = '';
 				$altern = "''";
-			}
-			break;
-
-		// boucle
-		case 'boucle':
-			$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 <> 'boucle') {
-					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;
+				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 'boucle':
+				$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<>'boucle'
+					){
+						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 calcule
+				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 'idiome':
-			$l = array();
-			foreach ($p->arg as $k => $v) {
-			  if ($k) $l[]= _q($k).' => '.calculer_liste($v,$descr,$boucles,$id_boucle);
-			}
-			$l = !$l ? '' : (", array(".implode(",\n",$l).")");
-			$code = "_T('" . $p->module . ":" .$p->nom_champ . "'$l)";
-			if ($p->param) {
+			case 'champ':
+
+				// cette structure pourrait etre completee des le phrase' (a faire)
 				$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]!= "'"
+				$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 = array('zbug_erreur_compilation');
-			erreur_squelette($err_e_c, $p);
+						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 = array('zbug_erreur_compilation');
+				erreur_squelette($err_e_c, $p);
 		} // switch
 
-		if ($code != "''") {
+		if ($code!="''"){
 			$code = compile_retour($code, $avant, $apres, $altern, $tab, $descr['niv']);
-			$codes[]= (($mode == 'validation') ?
+			$codes[] = (($mode=='validation') ?
 				"array($code, '$commentaire', " . $p->ligne . ")"
-				: (($mode == 'code') ?
-				"\n// $commentaire\n$code" :
-				$code));
+				: (($mode=='code') ?
+					"\n// $commentaire\n$code" :
+					$code));
 		}
 	} // foreach
 
@@ -714,19 +728,18 @@ function compile_cas($tableau, $descr, &$boucles, $id_boucle) {
 // de meme si EXP est de la forme (t ? '' : 'C')
 
 // http://doc.spip.org/@compile_retour
-function compile_retour($code, $avant, $apres, $altern, $tab, $n)
-{
-	if ($avant == "''") $avant = '';
-	if ($apres == "''") $apres = '';
+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)) {
+	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 {
@@ -734,22 +747,21 @@ function compile_retour($code, $avant, $apres, $altern, $tab, $n)
 		$cond = "($t = $code)!==''";
 	}
 
-	$res = (!$avant ? "" : "$avant . ") . 
+	$res = (!$avant ? "" : "$avant . ") .
 		$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($v->param as $r) 
-	      if (trim($r[0]) === 'doublons') 
-		return true;
+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;
 }
 
@@ -769,16 +781,16 @@ function compile_inclure_doublons($lexemes)
 // 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');
 	$squelette = transcoder_page($squelette);
 
 	$descr = array('nom' => $nom,
-			'gram' => $gram,
-			'sourcefile' => $sourcefile,
-			'squelette' => $squelette);
+		'gram' => $gram,
+		'sourcefile' => $sourcefile,
+		'squelette' => $squelette);
 
 	// Phraser le squelette, selon sa grammaire
 
@@ -793,20 +805,20 @@ function public_compiler_dist($squelette, $nom, $gram, $sourcefile, $connect='')
 // 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 = ''){
 	global $tables_jointures;
 	static $trouver_table;
 	spip_timer('calcul_skel');
 
-	if (isset($GLOBALS['var_mode']) AND $GLOBALS['var_mode'] == 'debug') {
+	if (isset($GLOBALS['var_mode']) AND $GLOBALS['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;
+	foreach ($boucles as $id => $boucle){
+		$GLOBALS['debug_objets']['boucle'][$nom . $id] = $boucle;
 	}
 	$descr['documents'] = compile_inclure_doublons($squelette);
 
@@ -817,25 +829,26 @@ function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $co
 	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
+			(($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 != 'boucle') {
+				compile_inclure_doublons($boucle->altern))
+		)
+			$descr['documents'] = true;
+		if ($type!='boucle'){
 			if (!$boucles[$id]->sql_serveur AND $connect)
 				$boucles[$id]->sql_serveur = $connect;
 			$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)))
+			if (!$show AND $show = $trouver_table($type, strtolower($type)))
 				$boucles[$id]->sql_serveur = strtolower($type);
-			if ($show) {
+			if ($show){
 				$boucles[$id]->show = $show;
 				// recopie les infos les plus importantes
 				$boucles[$id]->primary = $show['key']["PRIMARY KEY"];
@@ -844,26 +857,27 @@ function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $co
 
 				$boucles[$id]->descr = &$descr;
 				if ((!$boucles[$id]->jointures)
-				AND (isset($tables_jointures[$nom_table])) 
-				AND is_array($x = $tables_jointures[$nom_table]))
+					AND (isset($tables_jointures[$nom_table]))
+						AND is_array($x = $tables_jointures[$nom_table])
+				)
 					$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);
+					$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 . ":")) .
-					  $type;
+						($boucle->sql_serveur . ":")) .
+						$type;
 					$msg = array('zbug_table_inconnue',
-							array('table' => $x));
+						array('table' => $x));
 					erreur_squelette($msg, $boucle);
 				}
 			}
@@ -872,11 +886,11 @@ function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $co
 
 	// Commencer par reperer les boucles appelees explicitement 
 	// car elles indexent les arguments de maniere derogatoire
-	foreach($boucles as $id => $boucle) { 
-		if ($boucle->type_requete == 'boucle' AND $boucle->param) {
+	foreach ($boucles as $id => $boucle){
+		if ($boucle->type_requete=='boucle' AND $boucle->param){
 			$boucles[$id]->descr = &$descr;
 			$rec = &$boucles[$boucle->param[0]];
-			if (!$rec) {
+			if (!$rec){
 				$msg = array('zbug_boucle_recursive_undef',
 					array('nom' => $boucle->param[0]));
 				erreur_squelette($msg, $boucle);
@@ -885,24 +899,24 @@ function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $co
 				$rec->externe = $id;
 				$descr['id_mere'] = $id;
 				$boucles[$id]->return =
-						calculer_liste(array($rec),
-							 $descr,
-							 $boucles,
-							 $boucle->param);
+					calculer_liste(array($rec),
+						$descr,
+						$boucles,
+						$boucle->param);
 			}
 		}
 	}
-	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 != 'boucle') {
+		if ($type AND $type!='boucle'){
 			$crit = !$boucle->param ? true : calculer_criteres($id, $boucles);
 			$descr['id_mere'] = $id;
 			$boucles[$id]->return =
-			  calculer_liste($boucle->milieu,
-					 $descr,
-					 $boucles,
-					 $id);
+				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)
@@ -916,7 +930,7 @@ function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $co
 	$corps = calculer_liste($squelette, $descr, $boucles);
 	$debug = (isset($GLOBALS['var_mode']) AND $GLOBALS['var_mode']=='debug');
 
-	if ($debug) {
+	if ($debug){
 		include_spip('public/decompiler');
 		include_spip('public/format_' . _EXTENSION_SQUELETTES);
 	}
@@ -924,15 +938,15 @@ function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $co
 	// 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) continue;
+		if ($boucle->return===false) continue;
 		// appeler la fonction de definition de la boucle
 
-		if ($req = $boucle->type_requete) {
-			$f = 'boucle_'.strtoupper($req);
-		// si pas de definition perso, definition spip
-			if (!function_exists($f)) $f = $f.'_dist';
+		if ($req = $boucle->type_requete){
+			$f = 'boucle_' . strtoupper($req);
+			// si pas de definition perso, definition spip
+			if (!function_exists($f)) $f = $f . '_dist';
 			// laquelle a une definition par defaut
 			if (!function_exists($f)) $f = 'boucle_DEFAUT';
 			if (!function_exists($f)) $f = 'boucle_DEFAUT_dist';
@@ -942,27 +956,27 @@ function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $co
 				$f($id, $boucles);
 		} else $req = ("\n\treturn '';");
 
-		$boucles[$id]->return = 
-			"function BOUCLE" . strtr($id,"-","_") . $nom .
-			'(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {' .
-			$req .
-			"\n}\n\n";
+		$boucles[$id]->return =
+			"function BOUCLE" . strtr($id, "-", "_") . $nom .
+				'(&$Cache, &$Pile, &$doublons, &$Numrows, $SP) {' .
+				$req .
+				"\n}\n\n";
 
 		if ($debug)
-			$GLOBALS['debug_objets']['code'][$nom.$id] = $boucles[$id]->return;
+			$GLOBALS['debug_objets']['code'][$nom . $id] = $boucles[$id]->return;
 	}
 
 	// 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;
-	foreach($boucles as $id => $boucle) {
-		if ($boucle->return === false) return false;
+	foreach ($boucles as $id => $boucle){
+		if ($boucle->return===false) return false;
 		$boucle->return = "\n\n/* BOUCLE " .
 			$boucle->type_requete .
 			" " .
-			(!$debug ? '' : 
-			str_replace('*/', '* /', 
-				decompiler_criteres($boucle->param, 
+			(!$debug ? '' :
+				str_replace('*/', '* /',
+					decompiler_criteres($boucle->param,
 						$boucle->criteres))) .
 			" */\n\n " .
 			$boucle->return;
@@ -970,39 +984,41 @@ function compiler_squelette($squelette, $boucles, $nom, $descr, $sourcefile, $co
 
 	$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, c'est plus 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//" .
-	(!$debug ? '' : ("\n/*\n" . 
-			str_replace('*/', '* /', public_decompiler($squelette)) 
-				      . "\n*/")) . "
+// Fonction principale du squelette ' .
+		$sourcefile .
+		($connect ? " pour $connect" : '') .
+		(!CODE_COMMENTE ? '' : "\n// Temps de compilation total: $secondes") .
+		"\n//" .
+		(!$debug ? '' : ("\n/*\n" .
+			str_replace('*/', '* /', public_decompiler($squelette))
+			. "\n*/")) . "
 
 function " . $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).");
+	return analyse_resultat_skel(" . var_export($nom, true)
+		. ", \$Cache, \$page, " . var_export($sourcefile, true) . ");
 }";
 
 	$boucles[''] = $code;