spip / SPIP

ecrire/public/decompiler.php

Indentation +138 added lines, -138 removed lines

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

Spacing +54 added lines, -56 removed lines

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

Braces +46 added lines, -21 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;
+}
 
 // Decompilation de l'arbre de syntaxe abstraite d'un squelette SPIP
 
@@ -26,10 +28,12 @@ 
 	$type .= ($struct->type_requete ? $struct->type_requete :
 			    $struct->table_optionnelle);
 
-	if ($struct->jointures_explicites)
-	  $type .= " " . $struct->jointures_explicites;
-	if ($struct->table_optionnelle)
-	  $type .= "?";
+	if ($struct->jointures_explicites) {
+		  $type .= " " . $struct->jointures_explicites;
+	}
+	if ($struct->table_optionnelle) {
+		  $type .= "?";
+	}
 	// Revoir le cas de la boucle recursive
 
 	$crit = $struct->param;
@@ -88,8 +92,9 @@ 
 	$apres = decompiler_($struct->apres, $fmt, $prof);
 	$args = $filtres = '';
 	if ($p = $struct->param) {
-		if ($p[0][0]==='')
-		  $args = decompiler_liste(array(array_shift($p)), $fmt, $prof);
+		if ($p[0][0]==='') {
+				  $args = decompiler_liste(array(array_shift($p)), $fmt, $prof);
+		}
 		$filtres = decompiler_liste($p, $fmt, $prof);
 	}
 	$f = 'format_champ_' . $fmt;
@@ -97,7 +102,9 @@ 
 }
 
 function decompiler_liste($sources, $fmt='', $prof=0) {
-	if (!is_array($sources)) return '';
+	if (!is_array($sources)) {
+	    return '';
+	}
 	$f = 'format_liste_' . $fmt;
 	$res = '';
 	foreach($sources as $arg) {
@@ -110,11 +117,15 @@ 
 			if ((count($v) == 1) 
 			AND $v[0]->type=='texte'
 			AND (strlen($v[0]->apres) == 1)
-			AND $v[0]->apres == $v[0]->avant)
-			  $args[]= $v[0]->avant . $v[0]->texte . $v[0]->apres;
-			else $args[]= decompiler_($v, $fmt, 0-$prof);
+			AND $v[0]->apres == $v[0]->avant) {
+						  $args[]= $v[0]->avant . $v[0]->texte . $v[0]->apres;
+			} else {
+			    $args[]= decompiler_($v, $fmt, 0-$prof);
+			}
+		}
+		if (($r!=='') OR $args) {
+		    $res .= $f($r, $args, $prof);
 		}
-		if (($r!=='') OR $args) $res .= $f($r, $args, $prof);
 	}
 	return $res;
 }
@@ -125,26 +136,33 @@ 
 // - les champs sont implicitement etendus (crochets implicites mais interdits)
 function decompiler_criteres($boucle, $fmt='', $prof=0) {
 	$sources = $boucle->param;
-	if (!is_array($sources)) return '';
+	if (!is_array($sources)) {
+	    return '';
+	}
 	$res = '';
 	$f = 'format_critere_' . $fmt;
 	foreach($sources as $crit) {
-		if (!is_array($crit)) continue; // boucle recursive
+		if (!is_array($crit)) {
+		    continue;
+		}
+		// boucle recursive
 		array_shift($crit);
 		$args = array();
 		foreach($crit as $i => $v) {
 		  if ((count($v) == 1) 
 		      AND $v[0]->type=='texte'
-		      AND $v[0]->apres)
-		    $args[]= array(array('texte', ( $v[0]->apres . $v[0]->texte . $v[0]->apres)));
-		  else {
+		      AND $v[0]->apres) {
+		  		    $args[]= array(array('texte', ( $v[0]->apres . $v[0]->texte . $v[0]->apres)));
+		  } else {
 		    $res2 = array();
 		    foreach($v as $k => $p) {
 			if (isset($p->type)
 			AND function_exists($d = 'decompiler_' . $p->type)) {
 				$r = $d($p, $fmt, (0-$prof), @$v[$k+1]);
 				$res2[]= array($p->type, $r);
-			} else spip_log("critere $i / $k mal forme");
+			} else {
+			    spip_log("critere $i / $k mal forme");
+			}
 		    }
 		    $args[]= $res2;
 		  }
@@ -157,11 +175,16 @@ 
 
 function decompiler_($liste, $fmt='', $prof=0)
 {
-	if (!is_array($liste))  return '';
+	if (!is_array($liste)) {
+	    return '';
+	}
 	$prof2 = ($prof < 0) ? ($prof-1) : ($prof+1);
 	$contenu = array();
 	foreach($liste as $k => $p) {
-	    if (!isset($p->type)) continue; #??????
+	    if (!isset($p->type)) {
+	        continue;
+	    }
+	    #??????
 	    $d = 'decompiler_' . $p->type;
 	    $next = isset($liste[$k+1]) ? $liste[$k+1] : false;
 	  // Forcer le champ etendu si son source (pas les reecritures)
@@ -192,7 +215,9 @@ 
 
 function public_decompiler($liste, $fmt='', $prof=0, $quoi='') 
 {
-	if (!include_spip('public/format_' . $fmt)) return "'$fmt'?";
+	if (!include_spip('public/format_' . $fmt)) {
+	    return "'$fmt'?";
+	}
 	$f = 'decompiler_' . $quoi;
 	return $f($liste, $fmt, $prof);
 }

ecrire/public/evaluer_page.php

Indentation +60 added lines, -60 removed lines

@@ -31,70 +31,70 @@
 // Cas d'une page contenant du PHP :
 if ($page['process_ins'] != 'html') {
 
-	/**
-	 * Teste si on a déjà évalué du PHP
-	 * 
-	 * Inclure inc/lang la première fois pour définir spip_lang
-	 * si ça n'a pas encore été fait.
-	 */
-	if (!defined('_EVALUER_PAGE_PHP')) {
-		define('_EVALUER_PAGE_PHP', true);
-		include_spip('inc/lang');
-	}
+    /**
+     * Teste si on a déjà évalué du PHP
+     * 
+     * Inclure inc/lang la première fois pour définir spip_lang
+     * si ça n'a pas encore été fait.
+     */
+    if (!defined('_EVALUER_PAGE_PHP')) {
+        define('_EVALUER_PAGE_PHP', true);
+        include_spip('inc/lang');
+    }
 
-	// restaurer l'etat des notes avant calcul
-	if (isset($page['notes'])
-		AND $page['notes']
-		AND $notes = charger_fonction("notes","inc",true)){
-		$notes($page['notes'],'restaurer_etat');
-	}
-	ob_start();
-	if (strpos($page['texte'],'?xml')!==false)
-		$page['texte'] = str_replace('<'.'?xml', "<\1?xml", $page['texte']);
+    // restaurer l'etat des notes avant calcul
+    if (isset($page['notes'])
+        AND $page['notes']
+        AND $notes = charger_fonction("notes","inc",true)){
+        $notes($page['notes'],'restaurer_etat');
+    }
+    ob_start();
+    if (strpos($page['texte'],'?xml')!==false)
+        $page['texte'] = str_replace('<'.'?xml', "<\1?xml", $page['texte']);
 
-	try {
-		$res = eval('?' . '>' . $page['texte']);
-		// error catching 5.2<=PHP<7
-		if ($res === false
-		  and function_exists('error_get_last')
-		  and ($erreur = error_get_last()) ) {
-			$code = $page['texte'];
-			$GLOBALS['numero_ligne_php'] = 1;
-			if (!function_exists('numerote_ligne_php')){
-				function numerote_ligne_php($match){
-					$GLOBALS['numero_ligne_php']++;
-					return "\n/*".str_pad($GLOBALS['numero_ligne_php'],3,"0",STR_PAD_LEFT)."*/";
-				}
-			}
-			$code = "/*001*/".preg_replace_callback(",\n,","numerote_ligne_php",$code);
-			$code = trim(highlight_string($code,true));
-			erreur_squelette("L".$erreur['line'].": ".$erreur['message']."<br />".$code,array($page['source'],'',$erreur['file'],'',$GLOBALS['spip_lang']));
-			$page['texte'] = "<!-- Erreur -->";
-		}
-		else {
-			$page['texte'] = ob_get_contents();
-		}
-	}
-	catch (Exception $e){
-		$code = $page['texte'];
-		$GLOBALS['numero_ligne_php'] = 1;
-		if (!function_exists('numerote_ligne_php')){
-			function numerote_ligne_php($match){
-				$GLOBALS['numero_ligne_php']++;
-				return "\n/*".str_pad($GLOBALS['numero_ligne_php'],3,"0",STR_PAD_LEFT)."*/";
-			}
-		}
-		$code = "/*001*/".preg_replace_callback(",\n,","numerote_ligne_php",$code);
-		$code = trim(highlight_string($code,true));
-		erreur_squelette("L".$e->getLine().": ".$e->getMessage()."<br />".$code,array($page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']));
-		$page['texte'] = "<!-- Erreur -->";
-	}
-	ob_end_clean();
+    try {
+        $res = eval('?' . '>' . $page['texte']);
+        // error catching 5.2<=PHP<7
+        if ($res === false
+          and function_exists('error_get_last')
+          and ($erreur = error_get_last()) ) {
+            $code = $page['texte'];
+            $GLOBALS['numero_ligne_php'] = 1;
+            if (!function_exists('numerote_ligne_php')){
+                function numerote_ligne_php($match){
+                    $GLOBALS['numero_ligne_php']++;
+                    return "\n/*".str_pad($GLOBALS['numero_ligne_php'],3,"0",STR_PAD_LEFT)."*/";
+                }
+            }
+            $code = "/*001*/".preg_replace_callback(",\n,","numerote_ligne_php",$code);
+            $code = trim(highlight_string($code,true));
+            erreur_squelette("L".$erreur['line'].": ".$erreur['message']."<br />".$code,array($page['source'],'',$erreur['file'],'',$GLOBALS['spip_lang']));
+            $page['texte'] = "<!-- Erreur -->";
+        }
+        else {
+            $page['texte'] = ob_get_contents();
+        }
+    }
+    catch (Exception $e){
+        $code = $page['texte'];
+        $GLOBALS['numero_ligne_php'] = 1;
+        if (!function_exists('numerote_ligne_php')){
+            function numerote_ligne_php($match){
+                $GLOBALS['numero_ligne_php']++;
+                return "\n/*".str_pad($GLOBALS['numero_ligne_php'],3,"0",STR_PAD_LEFT)."*/";
+            }
+        }
+        $code = "/*001*/".preg_replace_callback(",\n,","numerote_ligne_php",$code);
+        $code = trim(highlight_string($code,true));
+        erreur_squelette("L".$e->getLine().": ".$e->getMessage()."<br />".$code,array($page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']));
+        $page['texte'] = "<!-- Erreur -->";
+    }
+    ob_end_clean();
 
-	$page['process_ins'] = 'html';
+    $page['process_ins'] = 'html';
 
-	if (strpos($page['texte'],'?xml')!==false)
-		$page['texte'] = str_replace("<\1?xml", '<'.'?xml', $page['texte']);
+    if (strpos($page['texte'],'?xml')!==false)
+        $page['texte'] = str_replace("<\1?xml", '<'.'?xml', $page['texte']);
 }
 
 page_base_href($page['texte']);

Spacing +19 added lines, -19 removed lines

@@ -45,55 +45,55 @@
 	// restaurer l'etat des notes avant calcul
 	if (isset($page['notes'])
 		AND $page['notes']
-		AND $notes = charger_fonction("notes","inc",true)){
-		$notes($page['notes'],'restaurer_etat');
+		AND $notes = charger_fonction("notes", "inc", true)) {
+		$notes($page['notes'], 'restaurer_etat');
 	}
 	ob_start();
-	if (strpos($page['texte'],'?xml')!==false)
+	if (strpos($page['texte'], '?xml') !== false)
 		$page['texte'] = str_replace('<'.'?xml', "<\1?xml", $page['texte']);
 
 	try {
-		$res = eval('?' . '>' . $page['texte']);
+		$res = eval('?'.'>'.$page['texte']);
 		// error catching 5.2<=PHP<7
 		if ($res === false
 		  and function_exists('error_get_last')
-		  and ($erreur = error_get_last()) ) {
+		  and ($erreur = error_get_last())) {
 			$code = $page['texte'];
 			$GLOBALS['numero_ligne_php'] = 1;
-			if (!function_exists('numerote_ligne_php')){
-				function numerote_ligne_php($match){
+			if (!function_exists('numerote_ligne_php')) {
+				function numerote_ligne_php($match) {
 					$GLOBALS['numero_ligne_php']++;
-					return "\n/*".str_pad($GLOBALS['numero_ligne_php'],3,"0",STR_PAD_LEFT)."*/";
+					return "\n/*".str_pad($GLOBALS['numero_ligne_php'], 3, "0", STR_PAD_LEFT)."*/";
 				}
 			}
-			$code = "/*001*/".preg_replace_callback(",\n,","numerote_ligne_php",$code);
-			$code = trim(highlight_string($code,true));
-			erreur_squelette("L".$erreur['line'].": ".$erreur['message']."<br />".$code,array($page['source'],'',$erreur['file'],'',$GLOBALS['spip_lang']));
+			$code = "/*001*/".preg_replace_callback(",\n,", "numerote_ligne_php", $code);
+			$code = trim(highlight_string($code, true));
+			erreur_squelette("L".$erreur['line'].": ".$erreur['message']."<br />".$code, array($page['source'], '', $erreur['file'], '', $GLOBALS['spip_lang']));
 			$page['texte'] = "<!-- Erreur -->";
 		}
 		else {
 			$page['texte'] = ob_get_contents();
 		}
 	}
-	catch (Exception $e){
+	catch (Exception $e) {
 		$code = $page['texte'];
 		$GLOBALS['numero_ligne_php'] = 1;
-		if (!function_exists('numerote_ligne_php')){
-			function numerote_ligne_php($match){
+		if (!function_exists('numerote_ligne_php')) {
+			function numerote_ligne_php($match) {
 				$GLOBALS['numero_ligne_php']++;
-				return "\n/*".str_pad($GLOBALS['numero_ligne_php'],3,"0",STR_PAD_LEFT)."*/";
+				return "\n/*".str_pad($GLOBALS['numero_ligne_php'], 3, "0", STR_PAD_LEFT)."*/";
 			}
 		}
-		$code = "/*001*/".preg_replace_callback(",\n,","numerote_ligne_php",$code);
-		$code = trim(highlight_string($code,true));
-		erreur_squelette("L".$e->getLine().": ".$e->getMessage()."<br />".$code,array($page['source'],'',$e->getFile(),'',$GLOBALS['spip_lang']));
+		$code = "/*001*/".preg_replace_callback(",\n,", "numerote_ligne_php", $code);
+		$code = trim(highlight_string($code, true));
+		erreur_squelette("L".$e->getLine().": ".$e->getMessage()."<br />".$code, array($page['source'], '', $e->getFile(), '', $GLOBALS['spip_lang']));
 		$page['texte'] = "<!-- Erreur -->";
 	}
 	ob_end_clean();
 
 	$page['process_ins'] = 'html';
 
-	if (strpos($page['texte'],'?xml')!==false)
+	if (strpos($page['texte'], '?xml') !== false)
 		$page['texte'] = str_replace("<\1?xml", '<'.'?xml', $page['texte']);
 }
 

Braces +12 added lines, -10 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;
+}
 
 /**
  * Evaluer la page produite par un squelette
@@ -49,8 +51,9 @@ 
 		$notes($page['notes'],'restaurer_etat');
 	}
 	ob_start();
-	if (strpos($page['texte'],'?xml')!==false)
-		$page['texte'] = str_replace('<'.'?xml', "<\1?xml", $page['texte']);
+	if (strpos($page['texte'],'?xml')!==false) {
+			$page['texte'] = str_replace('<'.'?xml', "<\1?xml", $page['texte']);
+	}
 
 	try {
 		$res = eval('?' . '>' . $page['texte']);
@@ -70,12 +73,10 @@ 
 			$code = trim(highlight_string($code,true));
 			erreur_squelette("L".$erreur['line'].": ".$erreur['message']."<br />".$code,array($page['source'],'',$erreur['file'],'',$GLOBALS['spip_lang']));
 			$page['texte'] = "<!-- Erreur -->";
-		}
-		else {
+		} else {
 			$page['texte'] = ob_get_contents();
 		}
-	}
-	catch (Exception $e){
+	} catch (Exception $e){
 		$code = $page['texte'];
 		$GLOBALS['numero_ligne_php'] = 1;
 		if (!function_exists('numerote_ligne_php')){
@@ -93,8 +94,9 @@ 
 
 	$page['process_ins'] = 'html';
 
-	if (strpos($page['texte'],'?xml')!==false)
-		$page['texte'] = str_replace("<\1?xml", '<'.'?xml', $page['texte']);
-}
+	if (strpos($page['texte'],'?xml')!==false) {
+			$page['texte'] = str_replace("<\1?xml", '<'.'?xml', $page['texte']);
+	}
+	}
 
 page_base_href($page['texte']);

ecrire/public/format_html.php

Indentation +67 added lines, -67 removed lines

@@ -14,109 +14,109 @@
 
 function format_boucle_html ($avant, $nom, $type, $crit, $corps, $apres, $altern, $prof)
 {
-	$avant = $avant ? "<B$nom>$avant" : "";
-	$apres = $apres ? "$apres</B$nom>" : "";
-	$altern = $altern ? "$altern<//B$nom>" : "";
-	if (!$corps) $corps = " />"; else $corps = ">$corps</BOUCLE$nom>";
-	return "$avant<BOUCLE$nom($type)$crit$corps$apres$altern";
+    $avant = $avant ? "<B$nom>$avant" : "";
+    $apres = $apres ? "$apres</B$nom>" : "";
+    $altern = $altern ? "$altern<//B$nom>" : "";
+    if (!$corps) $corps = " />"; else $corps = ">$corps</BOUCLE$nom>";
+    return "$avant<BOUCLE$nom($type)$crit$corps$apres$altern";
 }
 
 function format_inclure_html ($file, $args, $prof)
 {
-	if (strpos($file, '#')===false)
-	 	$t = $file ? ("(" . $file . ")") : "" ;
-	else {
-		$t = "{fond=" . $file . '}';
-	}
-	$args = !$args ? '' : ("{" . join(", ",$args) . "}");
-	return ("<INCLURE" . $t . $args  . ">");
+    if (strpos($file, '#')===false)
+            $t = $file ? ("(" . $file . ")") : "" ;
+    else {
+        $t = "{fond=" . $file . '}';
+    }
+    $args = !$args ? '' : ("{" . join(", ",$args) . "}");
+    return ("<INCLURE" . $t . $args  . ">");
 }
 
 function format_polyglotte_html ($args, $prof)
 {
-	$contenu = array(); 
-	foreach($args as $l=>$t)
-		$contenu[]= ($l ? "[$l]" : '') . $t;
-	return ("<multi>" . join(" ", $contenu) . "</multi>");
+    $contenu = array(); 
+    foreach($args as $l=>$t)
+        $contenu[]= ($l ? "[$l]" : '') . $t;
+    return ("<multi>" . join(" ", $contenu) . "</multi>");
 }
 
 function format_idiome_html ($nom, $module, $args, $filtres, $prof)
 {
-	foreach ($args as $k => $v) $args[$k] = "$k=$v";
-	$args = (!$args ? '' : ('{' . join(',', $args) . '}'));
-	return ("<:" . ($module ? "$module:" : "") . $nom . $args . $filtres . ":>");
+    foreach ($args as $k => $v) $args[$k] = "$k=$v";
+    $args = (!$args ? '' : ('{' . join(',', $args) . '}'));
+    return ("<:" . ($module ? "$module:" : "") . $nom . $args . $filtres . ":>");
 }
 
 function format_champ_html ($nom, $boucle, $etoile, $avant, $apres, $args, $filtres, $prof)
 {
-	$nom = "#"
-	. ($boucle ? ($boucle . ":") : "")
-	. $nom
-	. $etoile
-	. $args
-	. $filtres;
+    $nom = "#"
+    . ($boucle ? ($boucle . ":") : "")
+    . $nom
+    . $etoile
+    . $args
+    . $filtres;
 
-	// Determiner si c'est un champ etendu, 
+    // Determiner si c'est un champ etendu, 
 
-	$s = ($avant OR $apres OR $filtres
-	      OR (strpos($args, '(#') !==false));
+    $s = ($avant OR $apres OR $filtres
+          OR (strpos($args, '(#') !==false));
 
-	return ($s ? "[$avant($nom)$apres]" : $nom);
+    return ($s ? "[$avant($nom)$apres]" : $nom);
 }
 
 function format_critere_html ($critere)
 {
-	foreach ($critere as $k => $crit) {
-		$crit_s = '';
-		foreach ($crit as $operande) {
-			list($type, $valeur) = $operande;
-			if ($type == 'champ' AND $valeur[0]=='[') {
-			  $valeur = substr($valeur,1,-1);
-			  if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur))
-				$valeur = substr($valeur,1,-1);
-			}
-			$crit_s .= $valeur;
-		}
-		$critere[$k] = $crit_s;
-	}
-	return (!$critere ? "" : ("{" . join(",", $critere) . "}"));
+    foreach ($critere as $k => $crit) {
+        $crit_s = '';
+        foreach ($crit as $operande) {
+            list($type, $valeur) = $operande;
+            if ($type == 'champ' AND $valeur[0]=='[') {
+                $valeur = substr($valeur,1,-1);
+                if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur))
+                $valeur = substr($valeur,1,-1);
+            }
+            $crit_s .= $valeur;
+        }
+        $critere[$k] = $crit_s;
+    }
+    return (!$critere ? "" : ("{" . join(",", $critere) . "}"));
 }
 
 function format_liste_html ($fonc, $args, $prof)
 {
-	return ((($fonc!=='') ? "|$fonc" : $fonc)
-	. (!$args ? "" : ("{" . join(",", $args) . "}")));
+    return ((($fonc!=='') ? "|$fonc" : $fonc)
+    . (!$args ? "" : ("{" . join(",", $args) . "}")));
 }
 
 // Concatenation sans separateur: verifier qu'on ne cree pas de faux lexemes
 function format_suite_html ($args)
 {
-	for($i=0; $i < count($args)-1; $i++) {
-		list($texte, $type) = $args[$i];
-		list($texte2, $type2) = $args[$i+1];
-		if (!$texte OR !$texte2) continue; 
-		$c1 = substr($texte,-1);
-		if ($type2 !== 'texte') {
-		  // si un texte se termine par ( et est suivi d'un champ
-		  // ou assimiles, forcer la notation pleine
-			if ($c1 == '(' AND substr($texte2,0,1) == '#')
-				$args[$i+1][0] = '[(' . $texte2 . ')]';
-		} else {
-			if ($type == 'texte') continue;
-			// si un champ ou assimiles est suivi d'un texte
-			// et si celui-ci commence par un caractere de champ
-			// forcer la notation pleine
-			if (($c1 == '}' AND substr(ltrim($texte2),0,1) == '|')
-			OR (preg_match('/[\w\d_*]/', $c1) AND preg_match('/^[\w\d_*{|]/', $texte2)))
-				$args[$i][0] = '[(' . $texte . ')]';
-		}
-	}
-	return join("", array_map('array_shift', $args));
+    for($i=0; $i < count($args)-1; $i++) {
+        list($texte, $type) = $args[$i];
+        list($texte2, $type2) = $args[$i+1];
+        if (!$texte OR !$texte2) continue; 
+        $c1 = substr($texte,-1);
+        if ($type2 !== 'texte') {
+            // si un texte se termine par ( et est suivi d'un champ
+            // ou assimiles, forcer la notation pleine
+            if ($c1 == '(' AND substr($texte2,0,1) == '#')
+                $args[$i+1][0] = '[(' . $texte2 . ')]';
+        } else {
+            if ($type == 'texte') continue;
+            // si un champ ou assimiles est suivi d'un texte
+            // et si celui-ci commence par un caractere de champ
+            // forcer la notation pleine
+            if (($c1 == '}' AND substr(ltrim($texte2),0,1) == '|')
+            OR (preg_match('/[\w\d_*]/', $c1) AND preg_match('/^[\w\d_*{|]/', $texte2)))
+                $args[$i][0] = '[(' . $texte . ')]';
+        }
+    }
+    return join("", array_map('array_shift', $args));
 }
 
 function format_texte_html ($texte)
 {
-	return $texte;
+    return $texte;
 }
 
 ?>

Spacing +34 added lines, -34 removed lines

@@ -12,7 +12,7 @@ 
 
 if (!defined('_ECRIRE_INC_VERSION')) return;
 
-function format_boucle_html ($avant, $nom, $type, $crit, $corps, $apres, $altern, $prof)
+function format_boucle_html($avant, $nom, $type, $crit, $corps, $apres, $altern, $prof)
 {
 	$avant = $avant ? "<B$nom>$avant" : "";
 	$apres = $apres ? "$apres</B$nom>" : "";
@@ -21,36 +21,36 @@ 
 	return "$avant<BOUCLE$nom($type)$crit$corps$apres$altern";
 }
 
-function format_inclure_html ($file, $args, $prof)
+function format_inclure_html($file, $args, $prof)
 {
-	if (strpos($file, '#')===false)
-	 	$t = $file ? ("(" . $file . ")") : "" ;
+	if (strpos($file, '#') === false)
+	 	$t = $file ? ("(".$file.")") : "";
 	else {
-		$t = "{fond=" . $file . '}';
+		$t = "{fond=".$file.'}';
 	}
-	$args = !$args ? '' : ("{" . join(", ",$args) . "}");
-	return ("<INCLURE" . $t . $args  . ">");
+	$args = !$args ? '' : ("{".join(", ", $args)."}");
+	return ("<INCLURE".$t.$args.">");
 }
 
-function format_polyglotte_html ($args, $prof)
+function format_polyglotte_html($args, $prof)
 {
 	$contenu = array(); 
-	foreach($args as $l=>$t)
-		$contenu[]= ($l ? "[$l]" : '') . $t;
-	return ("<multi>" . join(" ", $contenu) . "</multi>");
+	foreach ($args as $l=>$t)
+		$contenu[] = ($l ? "[$l]" : '').$t;
+	return ("<multi>".join(" ", $contenu)."</multi>");
 }
 
-function format_idiome_html ($nom, $module, $args, $filtres, $prof)
+function format_idiome_html($nom, $module, $args, $filtres, $prof)
 {
 	foreach ($args as $k => $v) $args[$k] = "$k=$v";
-	$args = (!$args ? '' : ('{' . join(',', $args) . '}'));
-	return ("<:" . ($module ? "$module:" : "") . $nom . $args . $filtres . ":>");
+	$args = (!$args ? '' : ('{'.join(',', $args).'}'));
+	return ("<:".($module ? "$module:" : "").$nom.$args.$filtres.":>");
 }
 
-function format_champ_html ($nom, $boucle, $etoile, $avant, $apres, $args, $filtres, $prof)
+function format_champ_html($nom, $boucle, $etoile, $avant, $apres, $args, $filtres, $prof)
 {
 	$nom = "#"
-	. ($boucle ? ($boucle . ":") : "")
+	. ($boucle ? ($boucle.":") : "")
 	. $nom
 	. $etoile
 	. $args
@@ -59,62 +59,62 @@ 
 	// Determiner si c'est un champ etendu, 
 
 	$s = ($avant OR $apres OR $filtres
-	      OR (strpos($args, '(#') !==false));
+	      OR (strpos($args, '(#') !== false));
 
 	return ($s ? "[$avant($nom)$apres]" : $nom);
 }
 
-function format_critere_html ($critere)
+function format_critere_html($critere)
 {
 	foreach ($critere as $k => $crit) {
 		$crit_s = '';
 		foreach ($crit as $operande) {
 			list($type, $valeur) = $operande;
-			if ($type == 'champ' AND $valeur[0]=='[') {
-			  $valeur = substr($valeur,1,-1);
+			if ($type == 'champ' AND $valeur[0] == '[') {
+			  $valeur = substr($valeur, 1, -1);
 			  if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur))
-				$valeur = substr($valeur,1,-1);
+				$valeur = substr($valeur, 1, -1);
 			}
 			$crit_s .= $valeur;
 		}
 		$critere[$k] = $crit_s;
 	}
-	return (!$critere ? "" : ("{" . join(",", $critere) . "}"));
+	return (!$critere ? "" : ("{".join(",", $critere)."}"));
 }
 
-function format_liste_html ($fonc, $args, $prof)
+function format_liste_html($fonc, $args, $prof)
 {
-	return ((($fonc!=='') ? "|$fonc" : $fonc)
-	. (!$args ? "" : ("{" . join(",", $args) . "}")));
+	return ((($fonc !== '') ? "|$fonc" : $fonc)
+	. (!$args ? "" : ("{".join(",", $args)."}")));
 }
 
 // Concatenation sans separateur: verifier qu'on ne cree pas de faux lexemes
-function format_suite_html ($args)
+function format_suite_html($args)
 {
-	for($i=0; $i < count($args)-1; $i++) {
+	for ($i = 0; $i < count($args) - 1; $i++) {
 		list($texte, $type) = $args[$i];
-		list($texte2, $type2) = $args[$i+1];
+		list($texte2, $type2) = $args[$i + 1];
 		if (!$texte OR !$texte2) continue; 
-		$c1 = substr($texte,-1);
+		$c1 = substr($texte, -1);
 		if ($type2 !== 'texte') {
 		  // si un texte se termine par ( et est suivi d'un champ
 		  // ou assimiles, forcer la notation pleine
-			if ($c1 == '(' AND substr($texte2,0,1) == '#')
-				$args[$i+1][0] = '[(' . $texte2 . ')]';
+			if ($c1 == '(' AND substr($texte2, 0, 1) == '#')
+				$args[$i + 1][0] = '[('.$texte2.')]';
 		} else {
 			if ($type == 'texte') continue;
 			// si un champ ou assimiles est suivi d'un texte
 			// et si celui-ci commence par un caractere de champ
 			// forcer la notation pleine
-			if (($c1 == '}' AND substr(ltrim($texte2),0,1) == '|')
+			if (($c1 == '}' AND substr(ltrim($texte2), 0, 1) == '|')
 			OR (preg_match('/[\w\d_*]/', $c1) AND preg_match('/^[\w\d_*{|]/', $texte2)))
-				$args[$i][0] = '[(' . $texte . ')]';
+				$args[$i][0] = '[('.$texte.')]';
 		}
 	}
 	return join("", array_map('array_shift', $args));
 }
 
-function format_texte_html ($texte)
+function format_texte_html($texte)
 {
 	return $texte;
 }

Braces +32 added lines, -16 removed lines

@@ -10,22 +10,28 @@ 
  *  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;
+}
 
 function format_boucle_html ($avant, $nom, $type, $crit, $corps, $apres, $altern, $prof)
 {
 	$avant = $avant ? "<B$nom>$avant" : "";
 	$apres = $apres ? "$apres</B$nom>" : "";
 	$altern = $altern ? "$altern<//B$nom>" : "";
-	if (!$corps) $corps = " />"; else $corps = ">$corps</BOUCLE$nom>";
+	if (!$corps) {
+	    $corps = " />";
+	} else {
+	    $corps = ">$corps</BOUCLE$nom>";
+	}
 	return "$avant<BOUCLE$nom($type)$crit$corps$apres$altern";
 }
 
 function format_inclure_html ($file, $args, $prof)
 {
-	if (strpos($file, '#')===false)
-	 	$t = $file ? ("(" . $file . ")") : "" ;
-	else {
+	if (strpos($file, '#')===false) {
+		 	$t = $file ? ("(" . $file . ")") : "" ;
+	} else {
 		$t = "{fond=" . $file . '}';
 	}
 	$args = !$args ? '' : ("{" . join(", ",$args) . "}");
@@ -35,14 +41,17 @@ 
 function format_polyglotte_html ($args, $prof)
 {
 	$contenu = array(); 
-	foreach($args as $l=>$t)
-		$contenu[]= ($l ? "[$l]" : '') . $t;
+	foreach($args as $l=>$t) {
+			$contenu[]= ($l ? "[$l]" : '') . $t;
+	}
 	return ("<multi>" . join(" ", $contenu) . "</multi>");
 }
 
 function format_idiome_html ($nom, $module, $args, $filtres, $prof)
 {
-	foreach ($args as $k => $v) $args[$k] = "$k=$v";
+	foreach ($args as $k => $v) {
+	    $args[$k] = "$k=$v";
+	}
 	$args = (!$args ? '' : ('{' . join(',', $args) . '}'));
 	return ("<:" . ($module ? "$module:" : "") . $nom . $args . $filtres . ":>");
 }
@@ -72,8 +81,9 @@ 
 			list($type, $valeur) = $operande;
 			if ($type == 'champ' AND $valeur[0]=='[') {
 			  $valeur = substr($valeur,1,-1);
-			  if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur))
-				$valeur = substr($valeur,1,-1);
+			  if (preg_match(',^[(](#[^|]*)[)]$,sS', $valeur)) {
+			  				$valeur = substr($valeur,1,-1);
+			  }
 			}
 			$crit_s .= $valeur;
 		}
@@ -94,21 +104,27 @@ 
 	for($i=0; $i < count($args)-1; $i++) {
 		list($texte, $type) = $args[$i];
 		list($texte2, $type2) = $args[$i+1];
-		if (!$texte OR !$texte2) continue; 
+		if (!$texte OR !$texte2) {
+		    continue;
+		}
 		$c1 = substr($texte,-1);
 		if ($type2 !== 'texte') {
 		  // si un texte se termine par ( et est suivi d'un champ
 		  // ou assimiles, forcer la notation pleine
-			if ($c1 == '(' AND substr($texte2,0,1) == '#')
-				$args[$i+1][0] = '[(' . $texte2 . ')]';
+			if ($c1 == '(' AND substr($texte2,0,1) == '#') {
+							$args[$i+1][0] = '[(' . $texte2 . ')]';
+			}
 		} else {
-			if ($type == 'texte') continue;
+			if ($type == 'texte') {
+			    continue;
+			}
 			// si un champ ou assimiles est suivi d'un texte
 			// et si celui-ci commence par un caractere de champ
 			// forcer la notation pleine
 			if (($c1 == '}' AND substr(ltrim($texte2),0,1) == '|')
-			OR (preg_match('/[\w\d_*]/', $c1) AND preg_match('/^[\w\d_*{|]/', $texte2)))
-				$args[$i][0] = '[(' . $texte . ')]';
+			OR (preg_match('/[\w\d_*]/', $c1) AND preg_match('/^[\w\d_*{|]/', $texte2))) {
+							$args[$i][0] = '[(' . $texte . ')]';
+			}
 		}
 	}
 	return join("", array_map('array_shift', $args));

ecrire/public/aiguiller.php

Indentation +214 added lines, -214 removed lines

@@ -13,127 +13,127 @@ 
 if (!defined('_ECRIRE_INC_VERSION')) return;
 
 function securiser_redirect_action($redirect) {
-	if ((tester_url_absolue($redirect) or preg_match(',^\w+:,',trim($redirect)))
-		and !defined('_AUTORISER_ACTION_ABS_REDIRECT')) {
-		// si l'url est une url du site, on la laisse passer sans rien faire
-		// c'est encore le plus simple
-		$base = $GLOBALS['meta']['adresse_site']."/";
-		if (strlen($base) AND strncmp($redirect,$base,strlen($base))==0)
-			return $redirect;
-		$base = url_de_base();
-		if (strlen($base) AND strncmp($redirect,$base,strlen($base))==0)
-			return $redirect;
-		return "";
-	}
-	return $redirect;
+    if ((tester_url_absolue($redirect) or preg_match(',^\w+:,',trim($redirect)))
+        and !defined('_AUTORISER_ACTION_ABS_REDIRECT')) {
+        // si l'url est une url du site, on la laisse passer sans rien faire
+        // c'est encore le plus simple
+        $base = $GLOBALS['meta']['adresse_site']."/";
+        if (strlen($base) AND strncmp($redirect,$base,strlen($base))==0)
+            return $redirect;
+        $base = url_de_base();
+        if (strlen($base) AND strncmp($redirect,$base,strlen($base))==0)
+            return $redirect;
+        return "";
+    }
+    return $redirect;
 }
 
 // http://doc.spip.org/@traiter_appels_actions
 function traiter_appels_actions(){
-	// cas de l'appel qui renvoie une redirection (302) ou rien (204)
-	if ($action = _request('action')) {
-		include_spip('base/abstract_sql'); // chargement systematique pour les actions
-		include_spip('inc/autoriser');
-		include_spip('inc/headers');
-		include_spip('inc/actions');
-		// des actions peuvent appeler _T
-		if (!isset($GLOBALS['spip_lang'])) {
-			include_spip('inc/lang');
-			utiliser_langue_visiteur();
-		}
-		// si l'action est provoque par un hit {ajax}
-		// il faut transmettre l'env ajax au redirect
-		// on le met avant dans la query string au cas ou l'action fait elle meme sa redirection
-		if (($v=_request('var_ajax'))
-		  AND ($v!=='form')
-		  AND ($args = _request('var_ajax_env'))
-		  AND ($url = _request('redirect'))){
-			$url = parametre_url($url,'var_ajax',$v,'&');
-			$url = parametre_url($url,'var_ajax_env',$args,'&');
-			set_request('redirect',$url);
-		}
-		else if(_request('redirect')){
-			set_request('redirect',securiser_redirect_action(_request('redirect')));
-		}
-		$var_f = charger_fonction($action, 'action');
-		$var_f();
-		if (!isset($GLOBALS['redirect'])) {
-			$GLOBALS['redirect'] = _request('redirect');
-			if ($_SERVER['REQUEST_METHOD'] == 'POST')
-				$GLOBALS['redirect'] = urldecode($GLOBALS['redirect']);
-			$GLOBALS['redirect'] = securiser_redirect_action($GLOBALS['redirect']);
-		}
-		if ($url = $GLOBALS['redirect']) {
-			// si l'action est provoque par un hit {ajax}
-			// il faut transmettre l'env ajax au redirect 
-			// qui a pu etre defini par l'action
-			if (($v=_request('var_ajax'))
-			  AND ($v!=='form')
-			  AND ($args = _request('var_ajax_env'))) {
-				$url = parametre_url($url,'var_ajax',$v,'&');
-				$url = parametre_url($url,'var_ajax_env',$args,'&');
-				// passer l'ancre en variable pour pouvoir la gerer cote serveur
-				$url = preg_replace(',#([^#&?]+)$,',"&var_ajax_ancre=\\1",$url);
-			}
-			$url = str_replace('&','&',$url); // les redirections se font en &, pas en en &
-			redirige_par_entete($url);
-		}
-		if (!headers_sent()
-			AND !ob_get_length())
-				http_status(204); // No Content
-		return true;
-	}
-	return false;
+    // cas de l'appel qui renvoie une redirection (302) ou rien (204)
+    if ($action = _request('action')) {
+        include_spip('base/abstract_sql'); // chargement systematique pour les actions
+        include_spip('inc/autoriser');
+        include_spip('inc/headers');
+        include_spip('inc/actions');
+        // des actions peuvent appeler _T
+        if (!isset($GLOBALS['spip_lang'])) {
+            include_spip('inc/lang');
+            utiliser_langue_visiteur();
+        }
+        // si l'action est provoque par un hit {ajax}
+        // il faut transmettre l'env ajax au redirect
+        // on le met avant dans la query string au cas ou l'action fait elle meme sa redirection
+        if (($v=_request('var_ajax'))
+          AND ($v!=='form')
+          AND ($args = _request('var_ajax_env'))
+          AND ($url = _request('redirect'))){
+            $url = parametre_url($url,'var_ajax',$v,'&');
+            $url = parametre_url($url,'var_ajax_env',$args,'&');
+            set_request('redirect',$url);
+        }
+        else if(_request('redirect')){
+            set_request('redirect',securiser_redirect_action(_request('redirect')));
+        }
+        $var_f = charger_fonction($action, 'action');
+        $var_f();
+        if (!isset($GLOBALS['redirect'])) {
+            $GLOBALS['redirect'] = _request('redirect');
+            if ($_SERVER['REQUEST_METHOD'] == 'POST')
+                $GLOBALS['redirect'] = urldecode($GLOBALS['redirect']);
+            $GLOBALS['redirect'] = securiser_redirect_action($GLOBALS['redirect']);
+        }
+        if ($url = $GLOBALS['redirect']) {
+            // si l'action est provoque par un hit {ajax}
+            // il faut transmettre l'env ajax au redirect 
+            // qui a pu etre defini par l'action
+            if (($v=_request('var_ajax'))
+              AND ($v!=='form')
+              AND ($args = _request('var_ajax_env'))) {
+                $url = parametre_url($url,'var_ajax',$v,'&');
+                $url = parametre_url($url,'var_ajax_env',$args,'&');
+                // passer l'ancre en variable pour pouvoir la gerer cote serveur
+                $url = preg_replace(',#([^#&?]+)$,',"&var_ajax_ancre=\\1",$url);
+            }
+            $url = str_replace('&','&',$url); // les redirections se font en &, pas en en &
+            redirige_par_entete($url);
+        }
+        if (!headers_sent()
+            AND !ob_get_length())
+                http_status(204); // No Content
+        return true;
+    }
+    return false;
 }
 
 
 // http://doc.spip.org/@refuser_traiter_formulaire_ajax
 function refuser_traiter_formulaire_ajax(){
-	if ($v=_request('var_ajax')
-	  AND $v=='form'
-		AND $form = _request('formulaire_action')
-		AND $args = _request('formulaire_action_args')
-		AND decoder_contexte_ajax($args,$form)!==false) {
-		// on est bien dans le contexte de traitement d'un formulaire en ajax
-		// mais traiter ne veut pas
-		// on le dit a la page qui va resumbit
-		// sans ajax
-		include_spip('inc/actions');
-		ajax_retour('noajax',false);
-		exit;
-	}
+    if ($v=_request('var_ajax')
+      AND $v=='form'
+        AND $form = _request('formulaire_action')
+        AND $args = _request('formulaire_action_args')
+        AND decoder_contexte_ajax($args,$form)!==false) {
+        // on est bien dans le contexte de traitement d'un formulaire en ajax
+        // mais traiter ne veut pas
+        // on le dit a la page qui va resumbit
+        // sans ajax
+        include_spip('inc/actions');
+        ajax_retour('noajax',false);
+        exit;
+    }
 }
 
 // http://doc.spip.org/@traiter_appels_inclusions_ajax
 function traiter_appels_inclusions_ajax(){
-	// traiter les appels de bloc ajax (ex: pagination)
-	if ($v = _request('var_ajax')
-	AND $v !== 'form'
-	AND $args = _request('var_ajax_env')) {
-		include_spip('inc/filtres');
-		include_spip('inc/actions');
-		if ($args = decoder_contexte_ajax($args)
-		AND $fond = $args['fond']) {
-			include_spip('public/assembler');
-			$contexte = calculer_contexte();
-			$contexte = array_merge($args, $contexte);
-			$page = recuperer_fond($fond,$contexte,array('trim'=>false));
-			$texte = $page;
-			if ($ancre = _request('var_ajax_ancre')){
-				// pas n'importe quoi quand meme dans la variable !
-				$ancre = str_replace(array('<','"',"'"),array('&lt;','&quot;',''),$ancre);
-				$texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>".$texte;
-			}
-		}
-		else {
-			include_spip('inc/headers');
-			http_status(403);
-			$texte = _L('signature ajax bloc incorrecte');
-		}
-		ajax_retour($texte, false);
-		return true; // on a fini le hit
-	}
-	return false;	
+    // traiter les appels de bloc ajax (ex: pagination)
+    if ($v = _request('var_ajax')
+    AND $v !== 'form'
+    AND $args = _request('var_ajax_env')) {
+        include_spip('inc/filtres');
+        include_spip('inc/actions');
+        if ($args = decoder_contexte_ajax($args)
+        AND $fond = $args['fond']) {
+            include_spip('public/assembler');
+            $contexte = calculer_contexte();
+            $contexte = array_merge($args, $contexte);
+            $page = recuperer_fond($fond,$contexte,array('trim'=>false));
+            $texte = $page;
+            if ($ancre = _request('var_ajax_ancre')){
+                // pas n'importe quoi quand meme dans la variable !
+                $ancre = str_replace(array('<','"',"'"),array('&lt;','&quot;',''),$ancre);
+                $texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>".$texte;
+            }
+        }
+        else {
+            include_spip('inc/headers');
+            http_status(403);
+            $texte = _L('signature ajax bloc incorrecte');
+        }
+        ajax_retour($texte, false);
+        return true; // on a fini le hit
+    }
+    return false;	
 }
 
 // au 1er appel, traite les formulaires dynamiques charger/verifier/traiter
@@ -142,119 +142,119 @@ 
 
 // http://doc.spip.org/@traiter_formulaires_dynamiques
 function traiter_formulaires_dynamiques($get=false){
-	static $post = array();
-	static $done = false;
+    static $post = array();
+    static $done = false;
 
-	if ($get) return $post; 
-	if ($done) return false;
-	$done = true;
+    if ($get) return $post; 
+    if ($done) return false;
+    $done = true;
 
-	if (!($form = _request('formulaire_action')
-	AND $args = _request('formulaire_action_args')))
-		return false; // le hit peut continuer normalement
+    if (!($form = _request('formulaire_action')
+    AND $args = _request('formulaire_action_args')))
+        return false; // le hit peut continuer normalement
 
-	include_spip('inc/filtres');
-	if (($args = decoder_contexte_ajax($args,$form))===false) {
-		spip_log("signature ajax form incorrecte : $form");
-		return false; // continuons le hit comme si de rien etait
-	} else {
-		include_spip('inc/lang');
-		// sauvegarder la lang en cours
-		$old_lang = $GLOBALS['spip_lang'];
-		// changer la langue avec celle qui a cours dans le formulaire
-		// on la depile de $args car c'est un argument implicite masque	
-		changer_langue(array_shift($args));
+    include_spip('inc/filtres');
+    if (($args = decoder_contexte_ajax($args,$form))===false) {
+        spip_log("signature ajax form incorrecte : $form");
+        return false; // continuons le hit comme si de rien etait
+    } else {
+        include_spip('inc/lang');
+        // sauvegarder la lang en cours
+        $old_lang = $GLOBALS['spip_lang'];
+        // changer la langue avec celle qui a cours dans le formulaire
+        // on la depile de $args car c'est un argument implicite masque	
+        changer_langue(array_shift($args));
 			
 
-		// inclure mes_fonctions et autres filtres avant verifier/traiter
-		include_spip('public/parametrer');
-		$verifier = charger_fonction("verifier","formulaires/$form/",true);
-		$post["erreurs_$form"] = pipeline(
-				  'formulaire_verifier',
-					array(
-						'args'=>array('form'=>$form,'args'=>$args),
-						'data'=>$verifier?call_user_func_array($verifier,$args):array())
-					);
-		// si on ne demandait qu'une verif json
-		if (_request('formulaire_action_verifier_json')){
-			include_spip('inc/json');
-			include_spip('inc/actions');
-			ajax_retour(json_encode($post["erreurs_$form"]),'text/plain');
-			return true; // on a fini le hit
-		}
-		$retour = "";
-		if ((count($post["erreurs_$form"])==0)){
-			$rev = "";
-			if ($traiter = charger_fonction("traiter","formulaires/$form/",true))
-				$rev = call_user_func_array($traiter,$args);
+        // inclure mes_fonctions et autres filtres avant verifier/traiter
+        include_spip('public/parametrer');
+        $verifier = charger_fonction("verifier","formulaires/$form/",true);
+        $post["erreurs_$form"] = pipeline(
+                    'formulaire_verifier',
+                    array(
+                        'args'=>array('form'=>$form,'args'=>$args),
+                        'data'=>$verifier?call_user_func_array($verifier,$args):array())
+                    );
+        // si on ne demandait qu'une verif json
+        if (_request('formulaire_action_verifier_json')){
+            include_spip('inc/json');
+            include_spip('inc/actions');
+            ajax_retour(json_encode($post["erreurs_$form"]),'text/plain');
+            return true; // on a fini le hit
+        }
+        $retour = "";
+        if ((count($post["erreurs_$form"])==0)){
+            $rev = "";
+            if ($traiter = charger_fonction("traiter","formulaires/$form/",true))
+                $rev = call_user_func_array($traiter,$args);
 
-			$rev = pipeline(
-				  'formulaire_traiter',
-					array(
-						'args'=>array('form'=>$form,'args'=>$args),
-						'data'=>$rev)
-					);
-			// le retour de traiter peut avoir 3 formats
-			// - simple message texte
-			// - tableau a deux entrees ($editable,$message)
-			// - tableau explicite ('editable'=>$editable,'message_ok'=>$message,'redirect'=>$redirect,'id_xx'=>$id_xx)
-			// le dernier format est celui conseille car il permet le pipelinage, en particulier
-			// en y passant l'id de l'objet cree/modifie
-			// si message_erreur est present, on considere que le traitement a echoue
-			// cas du message texte simple
-			if (!is_array($rev)){
-				$post["message_ok_$form"] = $rev;
-			}
-			// cas du tableau deux valeurs simple (ancien format, deconseille)
-			elseif (count($rev)==2 
-			  AND !array_key_exists('message_ok',$rev)
-			  AND !array_key_exists('message_erreur',$rev)
-			  AND !array_key_exists('redirect',$rev)) {
-				$post["editable_$form"] = reset($rev);
-				$post["message_ok_$form"] = end($rev);
-			}
-			// cas du tableau explicite (conseille)
-			else {
-				// verifier si traiter n'a pas echoue avec une erreur :
-				if (isset($rev['message_erreur'])) {
-					$post["erreurs_$form"]["message_erreur"] = $rev['message_erreur'];
+            $rev = pipeline(
+                    'formulaire_traiter',
+                    array(
+                        'args'=>array('form'=>$form,'args'=>$args),
+                        'data'=>$rev)
+                    );
+            // le retour de traiter peut avoir 3 formats
+            // - simple message texte
+            // - tableau a deux entrees ($editable,$message)
+            // - tableau explicite ('editable'=>$editable,'message_ok'=>$message,'redirect'=>$redirect,'id_xx'=>$id_xx)
+            // le dernier format est celui conseille car il permet le pipelinage, en particulier
+            // en y passant l'id de l'objet cree/modifie
+            // si message_erreur est present, on considere que le traitement a echoue
+            // cas du message texte simple
+            if (!is_array($rev)){
+                $post["message_ok_$form"] = $rev;
+            }
+            // cas du tableau deux valeurs simple (ancien format, deconseille)
+            elseif (count($rev)==2 
+              AND !array_key_exists('message_ok',$rev)
+              AND !array_key_exists('message_erreur',$rev)
+              AND !array_key_exists('redirect',$rev)) {
+                $post["editable_$form"] = reset($rev);
+                $post["message_ok_$form"] = end($rev);
+            }
+            // cas du tableau explicite (conseille)
+            else {
+                // verifier si traiter n'a pas echoue avec une erreur :
+                if (isset($rev['message_erreur'])) {
+                    $post["erreurs_$form"]["message_erreur"] = $rev['message_erreur'];
 					
-				}
-				else {
-					// sinon faire ce qu'il faut :
-					if (isset($rev['message_ok']))
-						$post["message_ok_$form"] = $rev['message_ok'];
-					if (isset($rev['editable']))
-						$post["editable_$form"] = $rev['editable'];
-					// si une redirection est demandee, appeler redirigae_formulaire qui choisira
-					// le bon mode de redirection (302 et on ne revient pas ici, ou javascript et on continue)
-					if (isset($rev['redirect']) AND $rev['redirect']){
-						include_spip('inc/headers');
-						list($masque,$message) = redirige_formulaire($rev['redirect'], '','ajaxform');
-						$post["message_ok_$form"] .= $message;
-						$retour .= $masque;
-					}
-				}
-			}
-		}
-		// si le formulaire a ete soumis en ajax, on le renvoie direct !
-		if (_request('var_ajax')){
-			if (find_in_path('formulaire_.php','balise/',true)) {
-				include_spip('inc/actions');
-				include_spip('public/assembler');
-				array_unshift($args,$form);
-				$retour .= inclure_balise_dynamique(call_user_func_array('balise_formulaire__dyn',$args),false);
-				// on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
-				// sans cela le formulaire n'est pas actif apres le hit ajax
-				$retour = "<br class='bugajaxie' style='display:none;'/>".$retour;
-				ajax_retour($retour,false);
-				return true; // on a fini le hit
-			}
-		}
-		// restaurer la lang en cours
-		changer_langue($old_lang);
-	}
-	return false; // le hit peut continuer normalement
+                }
+                else {
+                    // sinon faire ce qu'il faut :
+                    if (isset($rev['message_ok']))
+                        $post["message_ok_$form"] = $rev['message_ok'];
+                    if (isset($rev['editable']))
+                        $post["editable_$form"] = $rev['editable'];
+                    // si une redirection est demandee, appeler redirigae_formulaire qui choisira
+                    // le bon mode de redirection (302 et on ne revient pas ici, ou javascript et on continue)
+                    if (isset($rev['redirect']) AND $rev['redirect']){
+                        include_spip('inc/headers');
+                        list($masque,$message) = redirige_formulaire($rev['redirect'], '','ajaxform');
+                        $post["message_ok_$form"] .= $message;
+                        $retour .= $masque;
+                    }
+                }
+            }
+        }
+        // si le formulaire a ete soumis en ajax, on le renvoie direct !
+        if (_request('var_ajax')){
+            if (find_in_path('formulaire_.php','balise/',true)) {
+                include_spip('inc/actions');
+                include_spip('public/assembler');
+                array_unshift($args,$form);
+                $retour .= inclure_balise_dynamique(call_user_func_array('balise_formulaire__dyn',$args),false);
+                // on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
+                // sans cela le formulaire n'est pas actif apres le hit ajax
+                $retour = "<br class='bugajaxie' style='display:none;'/>".$retour;
+                ajax_retour($retour,false);
+                return true; // on a fini le hit
+            }
+        }
+        // restaurer la lang en cours
+        changer_langue($old_lang);
+    }
+    return false; // le hit peut continuer normalement
 }
 
 ?>

Spacing +50 added lines, -50 removed lines

@@ -13,15 +13,15 @@ 
 if (!defined('_ECRIRE_INC_VERSION')) return;
 
 function securiser_redirect_action($redirect) {
-	if ((tester_url_absolue($redirect) or preg_match(',^\w+:,',trim($redirect)))
+	if ((tester_url_absolue($redirect) or preg_match(',^\w+:,', trim($redirect)))
 		and !defined('_AUTORISER_ACTION_ABS_REDIRECT')) {
 		// si l'url est une url du site, on la laisse passer sans rien faire
 		// c'est encore le plus simple
 		$base = $GLOBALS['meta']['adresse_site']."/";
-		if (strlen($base) AND strncmp($redirect,$base,strlen($base))==0)
+		if (strlen($base) AND strncmp($redirect, $base, strlen($base)) == 0)
 			return $redirect;
 		$base = url_de_base();
-		if (strlen($base) AND strncmp($redirect,$base,strlen($base))==0)
+		if (strlen($base) AND strncmp($redirect, $base, strlen($base)) == 0)
 			return $redirect;
 		return "";
 	}
@@ -29,7 +29,7 @@ 
 }
 
 // http://doc.spip.org/@traiter_appels_actions
-function traiter_appels_actions(){
+function traiter_appels_actions() {
 	// cas de l'appel qui renvoie une redirection (302) ou rien (204)
 	if ($action = _request('action')) {
 		include_spip('base/abstract_sql'); // chargement systematique pour les actions
@@ -44,16 +44,16 @@ 
 		// si l'action est provoque par un hit {ajax}
 		// il faut transmettre l'env ajax au redirect
 		// on le met avant dans la query string au cas ou l'action fait elle meme sa redirection
-		if (($v=_request('var_ajax'))
-		  AND ($v!=='form')
+		if (($v = _request('var_ajax'))
+		  AND ($v !== 'form')
 		  AND ($args = _request('var_ajax_env'))
-		  AND ($url = _request('redirect'))){
-			$url = parametre_url($url,'var_ajax',$v,'&');
-			$url = parametre_url($url,'var_ajax_env',$args,'&');
-			set_request('redirect',$url);
+		  AND ($url = _request('redirect'))) {
+			$url = parametre_url($url, 'var_ajax', $v, '&');
+			$url = parametre_url($url, 'var_ajax_env', $args, '&');
+			set_request('redirect', $url);
 		}
-		else if(_request('redirect')){
-			set_request('redirect',securiser_redirect_action(_request('redirect')));
+		else if (_request('redirect')) {
+			set_request('redirect', securiser_redirect_action(_request('redirect')));
 		}
 		$var_f = charger_fonction($action, 'action');
 		$var_f();
@@ -67,15 +67,15 @@ 
 			// si l'action est provoque par un hit {ajax}
 			// il faut transmettre l'env ajax au redirect 
 			// qui a pu etre defini par l'action
-			if (($v=_request('var_ajax'))
-			  AND ($v!=='form')
+			if (($v = _request('var_ajax'))
+			  AND ($v !== 'form')
 			  AND ($args = _request('var_ajax_env'))) {
-				$url = parametre_url($url,'var_ajax',$v,'&');
-				$url = parametre_url($url,'var_ajax_env',$args,'&');
+				$url = parametre_url($url, 'var_ajax', $v, '&');
+				$url = parametre_url($url, 'var_ajax_env', $args, '&');
 				// passer l'ancre en variable pour pouvoir la gerer cote serveur
-				$url = preg_replace(',#([^#&?]+)$,',"&var_ajax_ancre=\\1",$url);
+				$url = preg_replace(',#([^#&?]+)$,', "&var_ajax_ancre=\\1", $url);
 			}
-			$url = str_replace('&','&',$url); // les redirections se font en &, pas en en &
+			$url = str_replace('&', '&', $url); // les redirections se font en &, pas en en &
 			redirige_par_entete($url);
 		}
 		if (!headers_sent()
@@ -88,24 +88,24 @@ 
 
 
 // http://doc.spip.org/@refuser_traiter_formulaire_ajax
-function refuser_traiter_formulaire_ajax(){
-	if ($v=_request('var_ajax')
-	  AND $v=='form'
+function refuser_traiter_formulaire_ajax() {
+	if ($v = _request('var_ajax')
+	  AND $v == 'form'
 		AND $form = _request('formulaire_action')
 		AND $args = _request('formulaire_action_args')
-		AND decoder_contexte_ajax($args,$form)!==false) {
+		AND decoder_contexte_ajax($args, $form) !== false) {
 		// on est bien dans le contexte de traitement d'un formulaire en ajax
 		// mais traiter ne veut pas
 		// on le dit a la page qui va resumbit
 		// sans ajax
 		include_spip('inc/actions');
-		ajax_retour('noajax',false);
+		ajax_retour('noajax', false);
 		exit;
 	}
 }
 
 // http://doc.spip.org/@traiter_appels_inclusions_ajax
-function traiter_appels_inclusions_ajax(){
+function traiter_appels_inclusions_ajax() {
 	// traiter les appels de bloc ajax (ex: pagination)
 	if ($v = _request('var_ajax')
 	AND $v !== 'form'
@@ -117,11 +117,11 @@ 
 			include_spip('public/assembler');
 			$contexte = calculer_contexte();
 			$contexte = array_merge($args, $contexte);
-			$page = recuperer_fond($fond,$contexte,array('trim'=>false));
+			$page = recuperer_fond($fond, $contexte, array('trim'=>false));
 			$texte = $page;
-			if ($ancre = _request('var_ajax_ancre')){
+			if ($ancre = _request('var_ajax_ancre')) {
 				// pas n'importe quoi quand meme dans la variable !
-				$ancre = str_replace(array('<','"',"'"),array('&lt;','&quot;',''),$ancre);
+				$ancre = str_replace(array('<', '"', "'"), array('&lt;', '&quot;', ''), $ancre);
 				$texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>".$texte;
 			}
 		}
@@ -141,7 +141,7 @@ 
 // Le 1er renvoie True si il faut faire exit a la sortie
 
 // http://doc.spip.org/@traiter_formulaires_dynamiques
-function traiter_formulaires_dynamiques($get=false){
+function traiter_formulaires_dynamiques($get = false) {
 	static $post = array();
 	static $done = false;
 
@@ -154,7 +154,7 @@ 
 		return false; // le hit peut continuer normalement
 
 	include_spip('inc/filtres');
-	if (($args = decoder_contexte_ajax($args,$form))===false) {
+	if (($args = decoder_contexte_ajax($args, $form)) === false) {
 		spip_log("signature ajax form incorrecte : $form");
 		return false; // continuons le hit comme si de rien etait
 	} else {
@@ -168,30 +168,30 @@ 
 
 		// inclure mes_fonctions et autres filtres avant verifier/traiter
 		include_spip('public/parametrer');
-		$verifier = charger_fonction("verifier","formulaires/$form/",true);
+		$verifier = charger_fonction("verifier", "formulaires/$form/", true);
 		$post["erreurs_$form"] = pipeline(
 				  'formulaire_verifier',
 					array(
-						'args'=>array('form'=>$form,'args'=>$args),
-						'data'=>$verifier?call_user_func_array($verifier,$args):array())
+						'args'=>array('form'=>$form, 'args'=>$args),
+						'data'=>$verifier ? call_user_func_array($verifier, $args) : array())
 					);
 		// si on ne demandait qu'une verif json
-		if (_request('formulaire_action_verifier_json')){
+		if (_request('formulaire_action_verifier_json')) {
 			include_spip('inc/json');
 			include_spip('inc/actions');
-			ajax_retour(json_encode($post["erreurs_$form"]),'text/plain');
+			ajax_retour(json_encode($post["erreurs_$form"]), 'text/plain');
 			return true; // on a fini le hit
 		}
 		$retour = "";
-		if ((count($post["erreurs_$form"])==0)){
+		if ((count($post["erreurs_$form"]) == 0)) {
 			$rev = "";
-			if ($traiter = charger_fonction("traiter","formulaires/$form/",true))
-				$rev = call_user_func_array($traiter,$args);
+			if ($traiter = charger_fonction("traiter", "formulaires/$form/", true))
+				$rev = call_user_func_array($traiter, $args);
 
 			$rev = pipeline(
 				  'formulaire_traiter',
 					array(
-						'args'=>array('form'=>$form,'args'=>$args),
+						'args'=>array('form'=>$form, 'args'=>$args),
 						'data'=>$rev)
 					);
 			// le retour de traiter peut avoir 3 formats
@@ -202,14 +202,14 @@ 
 			// en y passant l'id de l'objet cree/modifie
 			// si message_erreur est present, on considere que le traitement a echoue
 			// cas du message texte simple
-			if (!is_array($rev)){
+			if (!is_array($rev)) {
 				$post["message_ok_$form"] = $rev;
 			}
 			// cas du tableau deux valeurs simple (ancien format, deconseille)
-			elseif (count($rev)==2 
-			  AND !array_key_exists('message_ok',$rev)
-			  AND !array_key_exists('message_erreur',$rev)
-			  AND !array_key_exists('redirect',$rev)) {
+			elseif (count($rev) == 2 
+			  AND !array_key_exists('message_ok', $rev)
+			  AND !array_key_exists('message_erreur', $rev)
+			  AND !array_key_exists('redirect', $rev)) {
 				$post["editable_$form"] = reset($rev);
 				$post["message_ok_$form"] = end($rev);
 			}
@@ -228,9 +228,9 @@ 
 						$post["editable_$form"] = $rev['editable'];
 					// si une redirection est demandee, appeler redirigae_formulaire qui choisira
 					// le bon mode de redirection (302 et on ne revient pas ici, ou javascript et on continue)
-					if (isset($rev['redirect']) AND $rev['redirect']){
+					if (isset($rev['redirect']) AND $rev['redirect']) {
 						include_spip('inc/headers');
-						list($masque,$message) = redirige_formulaire($rev['redirect'], '','ajaxform');
+						list($masque, $message) = redirige_formulaire($rev['redirect'], '', 'ajaxform');
 						$post["message_ok_$form"] .= $message;
 						$retour .= $masque;
 					}
@@ -238,16 +238,16 @@ 
 			}
 		}
 		// si le formulaire a ete soumis en ajax, on le renvoie direct !
-		if (_request('var_ajax')){
-			if (find_in_path('formulaire_.php','balise/',true)) {
+		if (_request('var_ajax')) {
+			if (find_in_path('formulaire_.php', 'balise/', true)) {
 				include_spip('inc/actions');
 				include_spip('public/assembler');
-				array_unshift($args,$form);
-				$retour .= inclure_balise_dynamique(call_user_func_array('balise_formulaire__dyn',$args),false);
+				array_unshift($args, $form);
+				$retour .= inclure_balise_dynamique(call_user_func_array('balise_formulaire__dyn', $args), false);
 				// on ajoute un br en display none en tete du retour ajax pour regler un bug dans IE6/7
 				// sans cela le formulaire n'est pas actif apres le hit ajax
 				$retour = "<br class='bugajaxie' style='display:none;'/>".$retour;
-				ajax_retour($retour,false);
+				ajax_retour($retour, false);
 				return true; // on a fini le hit
 			}
 		}

Braces +38 added lines, -25 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;
+}
 
 function securiser_redirect_action($redirect) {
 	if ((tester_url_absolue($redirect) or preg_match(',^\w+:,',trim($redirect)))
@@ -18,11 +20,13 @@ 
 		// si l'url est une url du site, on la laisse passer sans rien faire
 		// c'est encore le plus simple
 		$base = $GLOBALS['meta']['adresse_site']."/";
-		if (strlen($base) AND strncmp($redirect,$base,strlen($base))==0)
-			return $redirect;
+		if (strlen($base) AND strncmp($redirect,$base,strlen($base))==0) {
+					return $redirect;
+		}
 		$base = url_de_base();
-		if (strlen($base) AND strncmp($redirect,$base,strlen($base))==0)
-			return $redirect;
+		if (strlen($base) AND strncmp($redirect,$base,strlen($base))==0) {
+					return $redirect;
+		}
 		return "";
 	}
 	return $redirect;
@@ -51,16 +55,16 @@ 
 			$url = parametre_url($url,'var_ajax',$v,'&');
 			$url = parametre_url($url,'var_ajax_env',$args,'&');
 			set_request('redirect',$url);
-		}
-		else if(_request('redirect')){
+		} else if(_request('redirect')){
 			set_request('redirect',securiser_redirect_action(_request('redirect')));
 		}
 		$var_f = charger_fonction($action, 'action');
 		$var_f();
 		if (!isset($GLOBALS['redirect'])) {
 			$GLOBALS['redirect'] = _request('redirect');
-			if ($_SERVER['REQUEST_METHOD'] == 'POST')
-				$GLOBALS['redirect'] = urldecode($GLOBALS['redirect']);
+			if ($_SERVER['REQUEST_METHOD'] == 'POST') {
+							$GLOBALS['redirect'] = urldecode($GLOBALS['redirect']);
+			}
 			$GLOBALS['redirect'] = securiser_redirect_action($GLOBALS['redirect']);
 		}
 		if ($url = $GLOBALS['redirect']) {
@@ -79,8 +83,10 @@ 
 			redirige_par_entete($url);
 		}
 		if (!headers_sent()
-			AND !ob_get_length())
-				http_status(204); // No Content
+			AND !ob_get_length()) {
+						http_status(204);
+		}
+		// No Content
 		return true;
 	}
 	return false;
@@ -124,8 +130,7 @@ 
 				$ancre = str_replace(array('<','"',"'"),array('&lt;','&quot;',''),$ancre);
 				$texte = "<a href='#$ancre' name='ajax_ancre' style='display:none;'>anchor</a>".$texte;
 			}
-		}
-		else {
+		} else {
 			include_spip('inc/headers');
 			http_status(403);
 			$texte = _L('signature ajax bloc incorrecte');
@@ -145,13 +150,19 @@ 
 	static $post = array();
 	static $done = false;
 
-	if ($get) return $post; 
-	if ($done) return false;
+	if ($get) {
+	    return $post;
+	}
+	if ($done) {
+	    return false;
+	}
 	$done = true;
 
 	if (!($form = _request('formulaire_action')
-	AND $args = _request('formulaire_action_args')))
-		return false; // le hit peut continuer normalement
+	AND $args = _request('formulaire_action_args'))) {
+			return false;
+	}
+	// le hit peut continuer normalement
 
 	include_spip('inc/filtres');
 	if (($args = decoder_contexte_ajax($args,$form))===false) {
@@ -185,8 +196,9 @@ 
 		$retour = "";
 		if ((count($post["erreurs_$form"])==0)){
 			$rev = "";
-			if ($traiter = charger_fonction("traiter","formulaires/$form/",true))
-				$rev = call_user_func_array($traiter,$args);
+			if ($traiter = charger_fonction("traiter","formulaires/$form/",true)) {
+							$rev = call_user_func_array($traiter,$args);
+			}
 
 			$rev = pipeline(
 				  'formulaire_traiter',
@@ -219,13 +231,14 @@ 
 				if (isset($rev['message_erreur'])) {
 					$post["erreurs_$form"]["message_erreur"] = $rev['message_erreur'];
 					
-				}
-				else {
+				} else {
 					// sinon faire ce qu'il faut :
-					if (isset($rev['message_ok']))
-						$post["message_ok_$form"] = $rev['message_ok'];
-					if (isset($rev['editable']))
-						$post["editable_$form"] = $rev['editable'];
+					if (isset($rev['message_ok'])) {
+											$post["message_ok_$form"] = $rev['message_ok'];
+					}
+					if (isset($rev['editable'])) {
+											$post["editable_$form"] = $rev['editable'];
+					}
 					// si une redirection est demandee, appeler redirigae_formulaire qui choisira
 					// le bon mode de redirection (302 et on ne revient pas ici, ou javascript et on continue)
 					if (isset($rev['redirect']) AND $rev['redirect']){

ecrire/public/boucles.php

Indentation +26 added lines, -26 removed lines

@@ -22,7 +22,7 @@ 
 //
 // http://doc.spip.org/@boucle_DEFAUT_dist
 function boucle_DEFAUT_dist($id_boucle, &$boucles) {
-	return calculer_boucle($id_boucle, $boucles); 
+    return calculer_boucle($id_boucle, $boucles); 
 }
 
 
@@ -32,7 +32,7 @@ 
 // http://doc.spip.org/@boucle_BOUCLE_dist
 function boucle_BOUCLE_dist($id_boucle, &$boucles) {
 
-	return calculer_boucle($id_boucle, $boucles); 
+    return calculer_boucle($id_boucle, $boucles); 
 }
 
 
@@ -41,30 +41,30 @@ 
 //
 // http://doc.spip.org/@boucle_HIERARCHIE_dist
 function boucle_HIERARCHIE_dist($id_boucle, &$boucles) {
-	$boucle = &$boucles[$id_boucle];
-	$id_table = $boucle->id_table . ".id_rubrique";
-
-	// Si la boucle mere est une boucle RUBRIQUES il faut ignorer la feuille
-	// sauf en presence du critere {tout} (vu par phraser_html)
-	// ou {id_article} qui positionne aussi le {tout}
-
-	$boucle->hierarchie = 'if (!($id_rubrique = intval('
-	. calculer_argument_precedent($boucle->id_boucle, 'id_rubrique', $boucles)
-	. ")))\n\t\treturn '';\n\t"
-	. "include_spip('inc/rubriques');\n\t"
-	. '$hierarchie = calcul_hierarchie_in($id_rubrique,'
-	. (isset($boucle->modificateur['tout']) ? 'true':'false')
-	. ");\n\t"
-	. 'if (!$hierarchie) return "";'."\n\t";
-
-	$boucle->where[]= array("'IN'", "'$id_table'", '"($hierarchie)"');
-
-	$order = "FIELD($id_table, \$hierarchie)";
-	if (!isset($boucle->default_order[0]) OR $boucle->default_order[0] != " DESC")
-		$boucle->default_order[] = "\"$order\"";
-	else
-		$boucle->default_order[0] = "\"$order DESC\"";
-	return calculer_boucle($id_boucle, $boucles); 
+    $boucle = &$boucles[$id_boucle];
+    $id_table = $boucle->id_table . ".id_rubrique";
+
+    // Si la boucle mere est une boucle RUBRIQUES il faut ignorer la feuille
+    // sauf en presence du critere {tout} (vu par phraser_html)
+    // ou {id_article} qui positionne aussi le {tout}
+
+    $boucle->hierarchie = 'if (!($id_rubrique = intval('
+    . calculer_argument_precedent($boucle->id_boucle, 'id_rubrique', $boucles)
+    . ")))\n\t\treturn '';\n\t"
+    . "include_spip('inc/rubriques');\n\t"
+    . '$hierarchie = calcul_hierarchie_in($id_rubrique,'
+    . (isset($boucle->modificateur['tout']) ? 'true':'false')
+    . ");\n\t"
+    . 'if (!$hierarchie) return "";'."\n\t";
+
+    $boucle->where[]= array("'IN'", "'$id_table'", '"($hierarchie)"');
+
+    $order = "FIELD($id_table, \$hierarchie)";
+    if (!isset($boucle->default_order[0]) OR $boucle->default_order[0] != " DESC")
+        $boucle->default_order[] = "\"$order\"";
+    else
+        $boucle->default_order[0] = "\"$order DESC\"";
+    return calculer_boucle($id_boucle, $boucles); 
 }
 
 

Spacing +3 added lines, -3 removed lines

@@ -42,7 +42,7 @@ 
 // http://doc.spip.org/@boucle_HIERARCHIE_dist
 function boucle_HIERARCHIE_dist($id_boucle, &$boucles) {
 	$boucle = &$boucles[$id_boucle];
-	$id_table = $boucle->id_table . ".id_rubrique";
+	$id_table = $boucle->id_table.".id_rubrique";
 
 	// Si la boucle mere est une boucle RUBRIQUES il faut ignorer la feuille
 	// sauf en presence du critere {tout} (vu par phraser_html)
@@ -53,11 +53,11 @@ 
 	. ")))\n\t\treturn '';\n\t"
 	. "include_spip('inc/rubriques');\n\t"
 	. '$hierarchie = calcul_hierarchie_in($id_rubrique,'
-	. (isset($boucle->modificateur['tout']) ? 'true':'false')
+	. (isset($boucle->modificateur['tout']) ? 'true' : 'false')
 	. ");\n\t"
 	. 'if (!$hierarchie) return "";'."\n\t";
 
-	$boucle->where[]= array("'IN'", "'$id_table'", '"($hierarchie)"');
+	$boucle->where[] = array("'IN'", "'$id_table'", '"($hierarchie)"');
 
 	$order = "FIELD($id_table, \$hierarchie)";
 	if (!isset($boucle->default_order[0]) OR $boucle->default_order[0] != " DESC")

Braces +8 added lines, -5 removed lines

@@ -15,7 +15,9 @@ 
 // Ce fichier definit les boucles standard de SPIP
 //
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 //
 // Boucle standard, sans condition rajoutee
@@ -60,10 +62,11 @@ 
 	$boucle->where[]= array("'IN'", "'$id_table'", '"($hierarchie)"');
 
 	$order = "FIELD($id_table, \$hierarchie)";
-	if (!isset($boucle->default_order[0]) OR $boucle->default_order[0] != " DESC")
-		$boucle->default_order[] = "\"$order\"";
-	else
-		$boucle->default_order[0] = "\"$order DESC\"";
+	if (!isset($boucle->default_order[0]) OR $boucle->default_order[0] != " DESC") {
+			$boucle->default_order[] = "\"$order\"";
+	} else {
+			$boucle->default_order[0] = "\"$order DESC\"";
+	}
 	return calculer_boucle($id_boucle, $boucles); 
 }
 

ecrire/public/assembler.php

Indentation +460 added lines, -460 removed lines

@@ -22,132 +22,132 @@ 
 // http://doc.spip.org/@assembler
 function assembler($fond, $connect='') {
 
-	// flag_preserver est modifie ici, et utilise en globale
-	// use_cache sert a informer le bouton d'admin pr savoir s'il met un *
-	// contexte est utilise en globale dans le formulaire d'admin
-	global $flag_preserver, $use_cache, $contexte;
-
-	$contexte = calculer_contexte();
-	$page = array('contexte_implicite'=>calculer_contexte_implicite());
-	$page['contexte_implicite']['cache'] = $fond . preg_replace(',\.[a-zA-Z0-9]*$,', '', preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI']));
-	// Cette fonction est utilisee deux fois
-	$cacher = charger_fonction('cacher', 'public', true);
-	// Les quatre derniers parametres sont modifies par la fonction:
-	// emplacement, validite, et, s'il est valide, contenu & age
-	if ($cacher)
-		$res = $cacher($GLOBALS['contexte'], $use_cache, $chemin_cache, $page, $lastmodified);
-	else
-		$use_cache = -1;
-	// Si un resultat est retourne, c'est un message d'impossibilite
-	if ($res) {return array('texte' => $res);}
-
-	if (!$chemin_cache || !$lastmodified) $lastmodified = time();
-
-	$headers_only = ($_SERVER['REQUEST_METHOD'] == 'HEAD');
-	$calculer_page = true;
-
-	// Pour les pages non-dynamiques (indiquees par #CACHE{duree,cache-client})
-	// une perennite valide a meme reponse qu'une requete HEAD (par defaut les
-	// pages sont dynamiques)
-	if (isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
-	AND (!defined('_VAR_MODE') OR !_VAR_MODE)
-	AND $chemin_cache
-	AND isset($page['entetes'])
-	AND isset($page['entetes']['Cache-Control'])
-	AND strstr($page['entetes']['Cache-Control'],'max-age=')
-	AND !strstr($_SERVER['SERVER_SOFTWARE'],'IIS/')
-	) {
-		$since = preg_replace('/;.*/', '',
-			$_SERVER['HTTP_IF_MODIFIED_SINCE']);
-		$since = str_replace('GMT', '', $since);
-		if (trim($since) == gmdate("D, d M Y H:i:s", $lastmodified)) {
-			$page['status'] = 304;
-			$headers_only = true;
-			$calculer_page = false;
-		}
-	}
-
-	// Si requete HEAD ou Last-modified compatible, ignorer le texte
-	// et pas de content-type (pour contrer le bouton admin de inc-public)
-	if (!$calculer_page) {
-		$page['texte'] = "";
-	} else {
-		// si la page est prise dans le cache
-		if (!$use_cache)  {
-			// Informer les boutons d'admin du contexte
-			// (fourni par urls_decoder_url ci-dessous lors de la mise en cache)
-			$contexte = $page['contexte'];
-
-			// vider les globales url propres qui ne doivent plus etre utilisees en cas
-			// d'inversion url => objet
-			// plus necessaire si on utilise bien la fonction urls_decoder_url
-			#unset($_SERVER['REDIRECT_url_propre']);
-			#unset($_ENV['url_propre']);
-		}
-		else {
-			// Compat ascendante :
-			// 1. $contexte est global
-			// (a evacuer car urls_decoder_url gere ce probleme ?)
-			// et calculer la page
-			if (!test_espace_prive()) {
-				include_spip('inc/urls');
-				list($fond,$contexte,$url_redirect) = urls_decoder_url(nettoyer_uri(),$fond,$contexte,true);
-			}
-			// squelette par defaut
-			if (!strlen($fond))
-				$fond = 'sommaire';
-
-			// produire la page : peut mettre a jour $lastmodified
-			$produire_page = charger_fonction('produire_page','public');
-			$page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, NULL, $page, $lastmodified, $connect);
-			if ($page === '') {
-				$erreur = _T('info_erreur_squelette2',
-					array('fichier'=>spip_htmlspecialchars($fond).'.'._EXTENSION_SQUELETTES));
-				erreur_squelette($erreur);
-				// eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
-				$page = array('texte' => '', 'erreur' => $erreur);
-			}
-		}
-
-		if ($page AND $chemin_cache) $page['cache'] = $chemin_cache;
-
-		auto_content_type($page);
-
-		$flag_preserver |=  headers_sent();
-
-		// Definir les entetes si ce n'est fait 
-		if (!$flag_preserver) {
-			if ($GLOBALS['flag_ob']) {
-				// Si la page est vide, produire l'erreur 404 ou message d'erreur pour les inclusions
-				if (trim($page['texte']) === ''
-				AND _VAR_MODE != 'debug'
-				AND !isset($page['entetes']['Location']) // cette page realise une redirection, donc pas d'erreur
-				) {
-					$contexte['fond_erreur'] = $fond;
-				  $page = message_page_indisponible($page, $contexte);
-				}
-				// pas de cache client en mode 'observation'
-				if (defined('_VAR_MODE') AND _VAR_MODE) {
-					$page['entetes']["Cache-Control"]= "no-cache,must-revalidate";
-					$page['entetes']["Pragma"] = "no-cache";
-				}
-			}
-		}
-	}
-
-	// Entete Last-Modified:
-	// eviter d'etre incoherent en envoyant un lastmodified identique
-	// a celui qu'on a refuse d'honorer plus haut (cf. #655)
-	if ($lastmodified
-	AND !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
-	AND !isset($page['entetes']["Last-Modified"]))
-		$page['entetes']["Last-Modified"]=gmdate("D, d M Y H:i:s", $lastmodified)." GMT";
-
-	// fermer la connexion apres les headers si requete HEAD
-	if ($headers_only)
-		$page['entetes']["Connection"] = "close";
-
-	return $page;
+    // flag_preserver est modifie ici, et utilise en globale
+    // use_cache sert a informer le bouton d'admin pr savoir s'il met un *
+    // contexte est utilise en globale dans le formulaire d'admin
+    global $flag_preserver, $use_cache, $contexte;
+
+    $contexte = calculer_contexte();
+    $page = array('contexte_implicite'=>calculer_contexte_implicite());
+    $page['contexte_implicite']['cache'] = $fond . preg_replace(',\.[a-zA-Z0-9]*$,', '', preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI']));
+    // Cette fonction est utilisee deux fois
+    $cacher = charger_fonction('cacher', 'public', true);
+    // Les quatre derniers parametres sont modifies par la fonction:
+    // emplacement, validite, et, s'il est valide, contenu & age
+    if ($cacher)
+        $res = $cacher($GLOBALS['contexte'], $use_cache, $chemin_cache, $page, $lastmodified);
+    else
+        $use_cache = -1;
+    // Si un resultat est retourne, c'est un message d'impossibilite
+    if ($res) {return array('texte' => $res);}
+
+    if (!$chemin_cache || !$lastmodified) $lastmodified = time();
+
+    $headers_only = ($_SERVER['REQUEST_METHOD'] == 'HEAD');
+    $calculer_page = true;
+
+    // Pour les pages non-dynamiques (indiquees par #CACHE{duree,cache-client})
+    // une perennite valide a meme reponse qu'une requete HEAD (par defaut les
+    // pages sont dynamiques)
+    if (isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
+    AND (!defined('_VAR_MODE') OR !_VAR_MODE)
+    AND $chemin_cache
+    AND isset($page['entetes'])
+    AND isset($page['entetes']['Cache-Control'])
+    AND strstr($page['entetes']['Cache-Control'],'max-age=')
+    AND !strstr($_SERVER['SERVER_SOFTWARE'],'IIS/')
+    ) {
+        $since = preg_replace('/;.*/', '',
+            $_SERVER['HTTP_IF_MODIFIED_SINCE']);
+        $since = str_replace('GMT', '', $since);
+        if (trim($since) == gmdate("D, d M Y H:i:s", $lastmodified)) {
+            $page['status'] = 304;
+            $headers_only = true;
+            $calculer_page = false;
+        }
+    }
+
+    // Si requete HEAD ou Last-modified compatible, ignorer le texte
+    // et pas de content-type (pour contrer le bouton admin de inc-public)
+    if (!$calculer_page) {
+        $page['texte'] = "";
+    } else {
+        // si la page est prise dans le cache
+        if (!$use_cache)  {
+            // Informer les boutons d'admin du contexte
+            // (fourni par urls_decoder_url ci-dessous lors de la mise en cache)
+            $contexte = $page['contexte'];
+
+            // vider les globales url propres qui ne doivent plus etre utilisees en cas
+            // d'inversion url => objet
+            // plus necessaire si on utilise bien la fonction urls_decoder_url
+            #unset($_SERVER['REDIRECT_url_propre']);
+            #unset($_ENV['url_propre']);
+        }
+        else {
+            // Compat ascendante :
+            // 1. $contexte est global
+            // (a evacuer car urls_decoder_url gere ce probleme ?)
+            // et calculer la page
+            if (!test_espace_prive()) {
+                include_spip('inc/urls');
+                list($fond,$contexte,$url_redirect) = urls_decoder_url(nettoyer_uri(),$fond,$contexte,true);
+            }
+            // squelette par defaut
+            if (!strlen($fond))
+                $fond = 'sommaire';
+
+            // produire la page : peut mettre a jour $lastmodified
+            $produire_page = charger_fonction('produire_page','public');
+            $page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, NULL, $page, $lastmodified, $connect);
+            if ($page === '') {
+                $erreur = _T('info_erreur_squelette2',
+                    array('fichier'=>spip_htmlspecialchars($fond).'.'._EXTENSION_SQUELETTES));
+                erreur_squelette($erreur);
+                // eviter des erreurs strictes ensuite sur $page['cle'] en PHP >= 5.4
+                $page = array('texte' => '', 'erreur' => $erreur);
+            }
+        }
+
+        if ($page AND $chemin_cache) $page['cache'] = $chemin_cache;
+
+        auto_content_type($page);
+
+        $flag_preserver |=  headers_sent();
+
+        // Definir les entetes si ce n'est fait 
+        if (!$flag_preserver) {
+            if ($GLOBALS['flag_ob']) {
+                // Si la page est vide, produire l'erreur 404 ou message d'erreur pour les inclusions
+                if (trim($page['texte']) === ''
+                AND _VAR_MODE != 'debug'
+                AND !isset($page['entetes']['Location']) // cette page realise une redirection, donc pas d'erreur
+                ) {
+                    $contexte['fond_erreur'] = $fond;
+                    $page = message_page_indisponible($page, $contexte);
+                }
+                // pas de cache client en mode 'observation'
+                if (defined('_VAR_MODE') AND _VAR_MODE) {
+                    $page['entetes']["Cache-Control"]= "no-cache,must-revalidate";
+                    $page['entetes']["Pragma"] = "no-cache";
+                }
+            }
+        }
+    }
+
+    // Entete Last-Modified:
+    // eviter d'etre incoherent en envoyant un lastmodified identique
+    // a celui qu'on a refuse d'honorer plus haut (cf. #655)
+    if ($lastmodified
+    AND !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
+    AND !isset($page['entetes']["Last-Modified"]))
+        $page['entetes']["Last-Modified"]=gmdate("D, d M Y H:i:s", $lastmodified)." GMT";
+
+    // fermer la connexion apres les headers si requete HEAD
+    if ($headers_only)
+        $page['entetes']["Connection"] = "close";
+
+    return $page;
 }
 
 //
@@ -160,17 +160,17 @@ 
 // http://doc.spip.org/@calculer_contexte
 function calculer_contexte() {
 
-	$contexte = array();
-	foreach($_GET as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES,$var))
-			$contexte[$var] = $val;
-	}
-	foreach($_POST as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES,$var))
-			$contexte[$var] = $val;
-	}
-
-	return $contexte;
+    $contexte = array();
+    foreach($_GET as $var => $val) {
+        if (!preg_match(_CONTEXTE_IGNORE_VARIABLES,$var))
+            $contexte[$var] = $val;
+    }
+    foreach($_POST as $var => $val) {
+        if (!preg_match(_CONTEXTE_IGNORE_VARIABLES,$var))
+            $contexte[$var] = $val;
+    }
+
+    return $contexte;
 }
 
 /**
@@ -181,20 +181,20 @@ 
  * @return array
  */
 function calculer_contexte_implicite(){
-	static $notes = null;
-	if (is_null($notes))
-		$notes = charger_fonction('notes','inc',true);
-	$contexte_implicite = array(
-		'squelettes' => $GLOBALS['dossier_squelettes'], // devrait etre 'chemin' => $GLOBALS['path_sig'], ?
-		'host' => $_SERVER['HTTP_HOST'],
-		'https' => (isset($_SERVER['HTTPS']) ? $_SERVER['HTTPS'] : ''),
-		'espace' => test_espace_prive(),
-		'marqueur' => (isset($GLOBALS['marqueur']) ?  $GLOBALS['marqueur'] : ''),
-		'marqueur_skel' => (isset($GLOBALS['marqueur_skel']) ?  $GLOBALS['marqueur_skel'] : ''),
-		'notes' => $notes?$notes('','contexter_cache'):'',
-		'spip_version_code' => $GLOBALS['spip_version_code'],
-	);
-	return $contexte_implicite;
+    static $notes = null;
+    if (is_null($notes))
+        $notes = charger_fonction('notes','inc',true);
+    $contexte_implicite = array(
+        'squelettes' => $GLOBALS['dossier_squelettes'], // devrait etre 'chemin' => $GLOBALS['path_sig'], ?
+        'host' => $_SERVER['HTTP_HOST'],
+        'https' => (isset($_SERVER['HTTPS']) ? $_SERVER['HTTPS'] : ''),
+        'espace' => test_espace_prive(),
+        'marqueur' => (isset($GLOBALS['marqueur']) ?  $GLOBALS['marqueur'] : ''),
+        'marqueur_skel' => (isset($GLOBALS['marqueur_skel']) ?  $GLOBALS['marqueur_skel'] : ''),
+        'notes' => $notes?$notes('','contexter_cache'):'',
+        'spip_version_code' => $GLOBALS['spip_version_code'],
+    );
+    return $contexte_implicite;
 }
 
 //
@@ -204,47 +204,47 @@ 
 // http://doc.spip.org/@auto_content_type
 function auto_content_type($page)
 {
-	global $flag_preserver;
-	if (!isset($flag_preserver))
-	  {
-	    $flag_preserver = ($page && preg_match("/header\s*\(\s*.content\-type:/isx",$page['texte']) || (isset($page['entetes']['Content-Type'])));
-	  }
+    global $flag_preserver;
+    if (!isset($flag_preserver))
+        {
+        $flag_preserver = ($page && preg_match("/header\s*\(\s*.content\-type:/isx",$page['texte']) || (isset($page['entetes']['Content-Type'])));
+        }
 }
 
 // http://doc.spip.org/@inclure_page
 function inclure_page($fond, $contexte, $connect='') {
-	static $cacher, $produire_page;
-	global $lastmodified;
-
-	// enlever le fond de contexte inclus car sinon il prend la main
-	// dans les sous inclusions -> boucle infinie d'inclusion identique
-	// (cette precaution n'est probablement plus utile)
-	unset($contexte['fond']);
-	$page = array('contexte_implicite'=>calculer_contexte_implicite());
-	$page['contexte_implicite']['cache'] = $fond;
-	if (is_null($cacher))
-		$cacher = charger_fonction('cacher', 'public', true);
-	// Les quatre derniers parametres sont modifies par la fonction:
-	// emplacement, validite, et, s'il est valide, contenu & age
-	if ($cacher)
-		$res = $cacher($contexte, $use_cache, $chemin_cache, $page, $lastinclude);
-	else
-		$use_cache = -1;
-	// $res = message d'erreur : on sort de la
-	if ($res) {return array('texte' => $res);}
-
-	// Si use_cache ne vaut pas 0, la page doit etre calculee
-	// produire la page : peut mettre a jour $lastinclude
-	// le contexte_cache envoye a cacher() a ete conserve et est passe a produire
-	if ($use_cache) {
-		if (is_null($produire_page))
-			$produire_page = charger_fonction('produire_page','public');
-		$page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, $contexte, $page, $lastinclude, $connect);
-	}
-	// dans tous les cas, mettre a jour $lastmodified
-	$lastmodified = max($lastmodified, $lastinclude);
-
-	return $page;
+    static $cacher, $produire_page;
+    global $lastmodified;
+
+    // enlever le fond de contexte inclus car sinon il prend la main
+    // dans les sous inclusions -> boucle infinie d'inclusion identique
+    // (cette precaution n'est probablement plus utile)
+    unset($contexte['fond']);
+    $page = array('contexte_implicite'=>calculer_contexte_implicite());
+    $page['contexte_implicite']['cache'] = $fond;
+    if (is_null($cacher))
+        $cacher = charger_fonction('cacher', 'public', true);
+    // Les quatre derniers parametres sont modifies par la fonction:
+    // emplacement, validite, et, s'il est valide, contenu & age
+    if ($cacher)
+        $res = $cacher($contexte, $use_cache, $chemin_cache, $page, $lastinclude);
+    else
+        $use_cache = -1;
+    // $res = message d'erreur : on sort de la
+    if ($res) {return array('texte' => $res);}
+
+    // Si use_cache ne vaut pas 0, la page doit etre calculee
+    // produire la page : peut mettre a jour $lastinclude
+    // le contexte_cache envoye a cacher() a ete conserve et est passe a produire
+    if ($use_cache) {
+        if (is_null($produire_page))
+            $produire_page = charger_fonction('produire_page','public');
+        $page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, $contexte, $page, $lastinclude, $connect);
+    }
+    // dans tous les cas, mettre a jour $lastmodified
+    $lastmodified = max($lastmodified, $lastinclude);
+
+    return $page;
 }
 
 /**
@@ -262,25 +262,25 @@ 
  * @return array
  */
 function public_produire_page_dist($fond, $contexte, $use_cache, $chemin_cache, $contexte_cache, &$page, &$lastinclude, $connect=''){
-	static $parametrer,$cacher;
-	if (!$parametrer)
-		$parametrer = charger_fonction('parametrer', 'public');
-	$page = $parametrer($fond, $contexte, $chemin_cache, $connect);
-	// et on l'enregistre sur le disque
-	if ($chemin_cache
-	AND $use_cache>-1
-	AND is_array($page)
-	AND count($page)
-	AND $page['entetes']['X-Spip-Cache'] > 0){
-		if (is_null($cacher))
-			$cacher = charger_fonction('cacher', 'public', true);
-		$lastinclude = time();
-		if ($cacher)
-			$cacher($contexte_cache, $use_cache, $chemin_cache, $page, $lastinclude);
-		else
-			$use_cache = -1;
-	}
-	return $page;
+    static $parametrer,$cacher;
+    if (!$parametrer)
+        $parametrer = charger_fonction('parametrer', 'public');
+    $page = $parametrer($fond, $contexte, $chemin_cache, $connect);
+    // et on l'enregistre sur le disque
+    if ($chemin_cache
+    AND $use_cache>-1
+    AND is_array($page)
+    AND count($page)
+    AND $page['entetes']['X-Spip-Cache'] > 0){
+        if (is_null($cacher))
+            $cacher = charger_fonction('cacher', 'public', true);
+        $lastinclude = time();
+        if ($cacher)
+            $cacher($contexte_cache, $use_cache, $chemin_cache, $page, $lastinclude);
+        else
+            $use_cache = -1;
+    }
+    return $page;
 }
 
 
@@ -296,11 +296,11 @@ 
 
 function inserer_balise_dynamique($contexte_exec, $contexte_compil)
 {
-	if (!is_array($contexte_exec))
-		echo $contexte_exec; // message d'erreur etc
-	else {
-		inclure_balise_dynamique($contexte_exec, true, $contexte_compil);
-	}
+    if (!is_array($contexte_exec))
+        echo $contexte_exec; // message d'erreur etc
+    else {
+        inclure_balise_dynamique($contexte_exec, true, $contexte_compil);
+    }
 }
 
 // Attention, un appel explicite a cette fonction suppose certains include
@@ -309,204 +309,204 @@ 
 // http://doc.spip.org/@inclure_balise_dynamique
 function inclure_balise_dynamique($texte, $echo=true, $contexte_compil=array())
 {
-	if (is_array($texte)) {
-
-		list($fond, $delainc, $contexte_inclus) = $texte;
-
-		// delais a l'ancienne, c'est pratiquement mort
-		$d = isset($GLOBALS['delais']) ? $GLOBALS['delais'] : NULL;
-		$GLOBALS['delais'] = $delainc;
-
-		$page = recuperer_fond($fond,$contexte_inclus,array('trim'=>false, 'raw' => true, 'compil' => $contexte_compil));
-
-		$texte = $page['texte'];
-
-		$GLOBALS['delais'] = $d;
-		// Faire remonter les entetes
-		if (is_array($page['entetes'])) {
-			// mais pas toutes
-			unset($page['entetes']['X-Spip-Cache']);
-			unset($page['entetes']['Content-Type']);
-			if (isset($GLOBALS['page']) AND is_array($GLOBALS['page'])) {
-				if (!is_array($GLOBALS['page']['entetes']))
-					$GLOBALS['page']['entetes'] = array();
-				$GLOBALS['page']['entetes'] = 
-					array_merge($GLOBALS['page']['entetes'],$page['entetes']);
-			}
-		}
-		// _pipelines au pluriel array('nom_pipeline' => $args...) avec une syntaxe permettant plusieurs pipelines
-		if (isset($page['contexte']['_pipelines'])
-		  AND is_array($page['contexte']['_pipelines'])
-			AND count($page['contexte']['_pipelines'])) {
-			foreach($page['contexte']['_pipelines'] as $pipe=>$args){
-				$args['contexte'] = $page['contexte'];
-				unset($args['contexte']['_pipelines']); // par precaution, meme si le risque de boucle infinie est a priori nul
-				$texte = pipeline(
-					$pipe,
-					array(
-						'data'=>$texte,
-						'args'=>$args
-					),
-					false
-				);
-			}
-		}
-	}
-
-	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
-		// compatibilite : avant on donnait le numero de ligne ou rien.
-		$ligne =  intval(isset($contexte_compil[3]) ? $contexte_compil[3] : $contexte_compil);
-		$GLOBALS['debug_objets']['resultat'][$ligne] = $texte;
-	}
-	if ($echo)
-		echo $texte;
-	else
-		return $texte;
+    if (is_array($texte)) {
+
+        list($fond, $delainc, $contexte_inclus) = $texte;
+
+        // delais a l'ancienne, c'est pratiquement mort
+        $d = isset($GLOBALS['delais']) ? $GLOBALS['delais'] : NULL;
+        $GLOBALS['delais'] = $delainc;
+
+        $page = recuperer_fond($fond,$contexte_inclus,array('trim'=>false, 'raw' => true, 'compil' => $contexte_compil));
+
+        $texte = $page['texte'];
+
+        $GLOBALS['delais'] = $d;
+        // Faire remonter les entetes
+        if (is_array($page['entetes'])) {
+            // mais pas toutes
+            unset($page['entetes']['X-Spip-Cache']);
+            unset($page['entetes']['Content-Type']);
+            if (isset($GLOBALS['page']) AND is_array($GLOBALS['page'])) {
+                if (!is_array($GLOBALS['page']['entetes']))
+                    $GLOBALS['page']['entetes'] = array();
+                $GLOBALS['page']['entetes'] = 
+                    array_merge($GLOBALS['page']['entetes'],$page['entetes']);
+            }
+        }
+        // _pipelines au pluriel array('nom_pipeline' => $args...) avec une syntaxe permettant plusieurs pipelines
+        if (isset($page['contexte']['_pipelines'])
+          AND is_array($page['contexte']['_pipelines'])
+            AND count($page['contexte']['_pipelines'])) {
+            foreach($page['contexte']['_pipelines'] as $pipe=>$args){
+                $args['contexte'] = $page['contexte'];
+                unset($args['contexte']['_pipelines']); // par precaution, meme si le risque de boucle infinie est a priori nul
+                $texte = pipeline(
+                    $pipe,
+                    array(
+                        'data'=>$texte,
+                        'args'=>$args
+                    ),
+                    false
+                );
+            }
+        }
+    }
+
+    if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
+        // compatibilite : avant on donnait le numero de ligne ou rien.
+        $ligne =  intval(isset($contexte_compil[3]) ? $contexte_compil[3] : $contexte_compil);
+        $GLOBALS['debug_objets']['resultat'][$ligne] = $texte;
+    }
+    if ($echo)
+        echo $texte;
+    else
+        return $texte;
 
 }
 
 // http://doc.spip.org/@message_page_indisponible
 function message_page_indisponible ($page, $contexte) {
-	static $deja = false;
-	if ($deja) return "erreur";
-	$codes = array(
-		'404' => '404 Not Found',
-		'503' => '503 Service Unavailable',
-	);
-
-	$contexte['status'] = ($page !== false) ? '404' : '503';
-	$contexte['code'] = $codes[$contexte['status']];
-	$contexte['fond'] = '404'; // gere les 2 erreurs
-	if (!isset($contexte['lang']))
-		$contexte['lang'] = $GLOBALS['spip_lang'];
-
-	$deja = true;
-	// passer aux plugins qui peuvent decider d'une page d'erreur plus pertinent
-	// ex restriction d'acces => 401
-	$contexte = pipeline('page_indisponible',$contexte);
-
-	// produire la page d'erreur
-	$page = inclure_page($contexte['fond'], $contexte);
-	if (!$page)
-		$page = inclure_page('404', $contexte);
-	$page['status'] = $contexte['status'];
-
-	return $page;
+    static $deja = false;
+    if ($deja) return "erreur";
+    $codes = array(
+        '404' => '404 Not Found',
+        '503' => '503 Service Unavailable',
+    );
+
+    $contexte['status'] = ($page !== false) ? '404' : '503';
+    $contexte['code'] = $codes[$contexte['status']];
+    $contexte['fond'] = '404'; // gere les 2 erreurs
+    if (!isset($contexte['lang']))
+        $contexte['lang'] = $GLOBALS['spip_lang'];
+
+    $deja = true;
+    // passer aux plugins qui peuvent decider d'une page d'erreur plus pertinent
+    // ex restriction d'acces => 401
+    $contexte = pipeline('page_indisponible',$contexte);
+
+    // produire la page d'erreur
+    $page = inclure_page($contexte['fond'], $contexte);
+    if (!$page)
+        $page = inclure_page('404', $contexte);
+    $page['status'] = $contexte['status'];
+
+    return $page;
 }
 
 // temporairement ici : a mettre dans le futur inc/modeles
 // creer_contexte_de_modele('left', 'autostart=true', ...) renvoie un array()
 // http://doc.spip.org/@creer_contexte_de_modele
 function creer_contexte_de_modele($args) {
-	$contexte = array();
-	foreach ($args as $var=>$val) {
-		if (is_int($var)){ // argument pas formate
-			if (in_array($val, array('left', 'right', 'center'))) {
-				$var = 'align';
-				$contexte[$var] = $val;
-			} else {
-				$args = explode('=', $val);
-				if (count($args)>=2) // Flashvars=arg1=machin&arg2=truc genere plus de deux args
-					$contexte[trim($args[0])] = substr($val,strlen($args[0])+1);
-				else // notation abregee
-					$contexte[trim($val)] = trim($val);
-			}
-		}
-		else
-			$contexte[$var] = $val;
-	}
-
-	return $contexte;
+    $contexte = array();
+    foreach ($args as $var=>$val) {
+        if (is_int($var)){ // argument pas formate
+            if (in_array($val, array('left', 'right', 'center'))) {
+                $var = 'align';
+                $contexte[$var] = $val;
+            } else {
+                $args = explode('=', $val);
+                if (count($args)>=2) // Flashvars=arg1=machin&arg2=truc genere plus de deux args
+                    $contexte[trim($args[0])] = substr($val,strlen($args[0])+1);
+                else // notation abregee
+                    $contexte[trim($val)] = trim($val);
+            }
+        }
+        else
+            $contexte[$var] = $val;
+    }
+
+    return $contexte;
 }
 
 // Calcule le modele et retourne la mini-page ainsi calculee
 // http://doc.spip.org/@inclure_modele
 function inclure_modele($type, $id, $params, $lien, $connect='', $env=array()) {
 
-	static $compteur;
-	if (++$compteur>10) return ''; # ne pas boucler indefiniment
-
-	$type = strtolower($type);
-
-	$fond = $class = '';
-
-	$params = array_filter(explode('|', $params));
-	if ($params) {
-		list(,$soustype) = each($params);
-		$soustype = strtolower(trim($soustype));
-		if (in_array($soustype,
-		array('left', 'right', 'center', 'ajax'))) {
-			list(,$soustype) = each($params);
-			$soustype = strtolower($soustype);
-		}
-
-		if (preg_match(',^[a-z0-9_]+$,', $soustype)) {
-			if (!trouve_modele($fond = ($type.'_'.$soustype))) {
-				$fond = '';
-				$class = $soustype;
-			}
-			// enlever le sous type des params
-			$params = array_diff($params,array($soustype));
-		}
-	}
-
-	// Si ca marche pas en precisant le sous-type, prendre le type
-	if (!$fond AND !trouve_modele($fond = $type)){
-		spip_log("Modele $type introuvable",_LOG_INFO_IMPORTANTE);
-		return false;
-	}
-	$fond = 'modeles/'.$fond;
-	// Creer le contexte
-	$contexte = $env;
-	$contexte['dir_racine'] = _DIR_RACINE; # eviter de mixer un cache racine et un cache ecrire (meme si pour l'instant les modeles ne sont pas caches, le resultat etant different il faut que le contexte en tienne compte
-
-	// Le numero du modele est mis dans l'environnement
-	// d'une part sous l'identifiant "id"
-	// et d'autre part sous l'identifiant de la cle primaire
-	// par la fonction id_table_objet,
-	// (<article1> =>> article =>> id_article =>> id_article=1)
-	$_id = id_table_objet($type);
-	$contexte['id'] = $contexte[$_id] = $id;
-
-	if (isset($class))
-		$contexte['class'] = $class;
-
-	// Si un lien a ete passe en parametre, ex: [<modele1>->url]
-	if ($lien) {
-		# un eventuel guillemet (") sera reechappe par #ENV
-		$contexte['lien'] = str_replace("&quot;",'"', $lien['href']);
-		$contexte['lien_class'] = $lien['class'];
-		$contexte['lien_mime'] = $lien['mime'];
-		$contexte['lien_title'] = $lien['title'];
-		$contexte['lien_hreflang'] = $lien['hreflang'];
-	}
-
-	// Traiter les parametres
-	// par exemple : <img1|center>, <emb12|autostart=true> ou <doc1|lang=en>
-	$arg_list = creer_contexte_de_modele($params);
-	$contexte['args'] = $arg_list; // on passe la liste des arguments du modeles dans une variable args
-	$contexte = array_merge($contexte,$arg_list);
-
-
-	// Appliquer le modele avec le contexte
-	$retour = recuperer_fond($fond, $contexte, array(), $connect);
-
-
-	// Regarder si le modele tient compte des liens (il *doit* alors indiquer
-	// spip_lien_ok dans les classes de son conteneur de premier niveau ;
-	// sinon, s'il y a un lien, on l'ajoute classiquement
-	if (strstr(' ' . ($classes = extraire_attribut($retour, 'class')).' ',
-	'spip_lien_ok')) {
-		$retour = inserer_attribut($retour, 'class',
-			trim(str_replace(' spip_lien_ok ', ' ', " $classes ")));
-	} else if ($lien)
-		$retour = "<a href='".$lien['href']."' class='".$lien['class']."'>".$retour."</a>";
-
-	$compteur--;
-
-	return  (isset($arg_list['ajax'])AND $arg_list['ajax']=='ajax')
-	? encoder_contexte_ajax($contexte,'',$retour)
-	: $retour; 
+    static $compteur;
+    if (++$compteur>10) return ''; # ne pas boucler indefiniment
+
+    $type = strtolower($type);
+
+    $fond = $class = '';
+
+    $params = array_filter(explode('|', $params));
+    if ($params) {
+        list(,$soustype) = each($params);
+        $soustype = strtolower(trim($soustype));
+        if (in_array($soustype,
+        array('left', 'right', 'center', 'ajax'))) {
+            list(,$soustype) = each($params);
+            $soustype = strtolower($soustype);
+        }
+
+        if (preg_match(',^[a-z0-9_]+$,', $soustype)) {
+            if (!trouve_modele($fond = ($type.'_'.$soustype))) {
+                $fond = '';
+                $class = $soustype;
+            }
+            // enlever le sous type des params
+            $params = array_diff($params,array($soustype));
+        }
+    }
+
+    // Si ca marche pas en precisant le sous-type, prendre le type
+    if (!$fond AND !trouve_modele($fond = $type)){
+        spip_log("Modele $type introuvable",_LOG_INFO_IMPORTANTE);
+        return false;
+    }
+    $fond = 'modeles/'.$fond;
+    // Creer le contexte
+    $contexte = $env;
+    $contexte['dir_racine'] = _DIR_RACINE; # eviter de mixer un cache racine et un cache ecrire (meme si pour l'instant les modeles ne sont pas caches, le resultat etant different il faut que le contexte en tienne compte
+
+    // Le numero du modele est mis dans l'environnement
+    // d'une part sous l'identifiant "id"
+    // et d'autre part sous l'identifiant de la cle primaire
+    // par la fonction id_table_objet,
+    // (<article1> =>> article =>> id_article =>> id_article=1)
+    $_id = id_table_objet($type);
+    $contexte['id'] = $contexte[$_id] = $id;
+
+    if (isset($class))
+        $contexte['class'] = $class;
+
+    // Si un lien a ete passe en parametre, ex: [<modele1>->url]
+    if ($lien) {
+        # un eventuel guillemet (") sera reechappe par #ENV
+        $contexte['lien'] = str_replace("&quot;",'"', $lien['href']);
+        $contexte['lien_class'] = $lien['class'];
+        $contexte['lien_mime'] = $lien['mime'];
+        $contexte['lien_title'] = $lien['title'];
+        $contexte['lien_hreflang'] = $lien['hreflang'];
+    }
+
+    // Traiter les parametres
+    // par exemple : <img1|center>, <emb12|autostart=true> ou <doc1|lang=en>
+    $arg_list = creer_contexte_de_modele($params);
+    $contexte['args'] = $arg_list; // on passe la liste des arguments du modeles dans une variable args
+    $contexte = array_merge($contexte,$arg_list);
+
+
+    // Appliquer le modele avec le contexte
+    $retour = recuperer_fond($fond, $contexte, array(), $connect);
+
+
+    // Regarder si le modele tient compte des liens (il *doit* alors indiquer
+    // spip_lien_ok dans les classes de son conteneur de premier niveau ;
+    // sinon, s'il y a un lien, on l'ajoute classiquement
+    if (strstr(' ' . ($classes = extraire_attribut($retour, 'class')).' ',
+    'spip_lien_ok')) {
+        $retour = inserer_attribut($retour, 'class',
+            trim(str_replace(' spip_lien_ok ', ' ', " $classes ")));
+    } else if ($lien)
+        $retour = "<a href='".$lien['href']."' class='".$lien['class']."'>".$retour."</a>";
+
+    $compteur--;
+
+    return  (isset($arg_list['ajax'])AND $arg_list['ajax']=='ajax')
+    ? encoder_contexte_ajax($contexte,'',$retour)
+    : $retour; 
 }
 
 // Un inclure_page qui marche aussi pour l'espace prive
@@ -516,77 +516,77 @@ 
 // http://doc.spip.org/@evaluer_fond
 function evaluer_fond ($fond, $contexte=array(), $connect=null) {
 
-	$page = inclure_page($fond, $contexte, $connect);
+    $page = inclure_page($fond, $contexte, $connect);
 
-	if (!$page) return $page;
-	// eval $page et affecte $res
-	include _ROOT_RESTREINT."public/evaluer_page.php";
+    if (!$page) return $page;
+    // eval $page et affecte $res
+    include _ROOT_RESTREINT."public/evaluer_page.php";
 	
-	// Lever un drapeau (global) si le fond utilise #SESSION
-	// a destination de public/parametrer
-	// pour remonter vers les inclusions appelantes
-	// il faut bien lever ce drapeau apres avoir evalue le fond
-	// pour ne pas faire descendre le flag vers les inclusions appelees
-	if (isset($page['invalideurs'])
-	AND isset($page['invalideurs']['session']))
-		$GLOBALS['cache_utilise_session'] = $page['invalideurs']['session'];
-
-	return $page;
+    // Lever un drapeau (global) si le fond utilise #SESSION
+    // a destination de public/parametrer
+    // pour remonter vers les inclusions appelantes
+    // il faut bien lever ce drapeau apres avoir evalue le fond
+    // pour ne pas faire descendre le flag vers les inclusions appelees
+    if (isset($page['invalideurs'])
+    AND isset($page['invalideurs']['session']))
+        $GLOBALS['cache_utilise_session'] = $page['invalideurs']['session'];
+
+    return $page;
 }
 
 
 // http://doc.spip.org/@page_base_href
 function page_base_href(&$texte){
-	static $set_html_base = null;
-	if (is_null($set_html_base)){
-		if (!defined('_SET_HTML_BASE'))
-			// si la profondeur est superieure a 1
-			// est que ce n'est pas une url page ni une url action
-			// activer par defaut
-			$set_html_base = ((
-				$GLOBALS['profondeur_url'] >= (_DIR_RESTREINT?1:2)
-				AND _request(_SPIP_PAGE) !== 'login'
-				AND !_request('action'))?true:false);
-		else
-			$set_html_base = _SET_HTML_BASE;
-	}
-
-	if ($set_html_base
-	  AND isset($GLOBALS['html']) AND $GLOBALS['html']
-	  AND $GLOBALS['profondeur_url']>0
-	  AND ($poshead = strpos($texte,'</head>'))!==FALSE){
-		$head = substr($texte,0,$poshead);
-		$insert = false;
-		if (strpos($head, '<base')===false) 
-			$insert = true;
-		else {
-			// si aucun <base ...> n'a de href c'est bon quand meme !
-			$insert = true;
-			include_spip('inc/filtres');
-			$bases = extraire_balises($head,'base');
-			foreach ($bases as $base)
-				if (extraire_attribut($base,'href'))
-					$insert = false;
-		}
-		if ($insert) {
-			include_spip('inc/filtres_mini');
-			// ajouter un base qui reglera tous les liens relatifs
-			$base = url_absolue('./');
-			$bbase = "\n<base href=\"$base\" />";
-			if (($pos = strpos($head, '<head>')) !== false)
-				$head = substr_replace($head, $bbase, $pos+6, 0);
-			elseif(preg_match(",<head[^>]*>,i",$head,$r)){
-				$head = str_replace($r[0], $r[0].$bbase, $head);
-			}
-			$texte = $head . substr($texte,$poshead);
-			// gerer les ancres
-			$base = $_SERVER['REQUEST_URI'];
-			if (strpos($texte,"href='#")!==false)
-				$texte = str_replace("href='#","href='$base#",$texte);
-			if (strpos($texte, "href=\"#")!==false)
-				$texte = str_replace("href=\"#","href=\"$base#",$texte);
-		}
-	}
+    static $set_html_base = null;
+    if (is_null($set_html_base)){
+        if (!defined('_SET_HTML_BASE'))
+            // si la profondeur est superieure a 1
+            // est que ce n'est pas une url page ni une url action
+            // activer par defaut
+            $set_html_base = ((
+                $GLOBALS['profondeur_url'] >= (_DIR_RESTREINT?1:2)
+                AND _request(_SPIP_PAGE) !== 'login'
+                AND !_request('action'))?true:false);
+        else
+            $set_html_base = _SET_HTML_BASE;
+    }
+
+    if ($set_html_base
+      AND isset($GLOBALS['html']) AND $GLOBALS['html']
+      AND $GLOBALS['profondeur_url']>0
+      AND ($poshead = strpos($texte,'</head>'))!==FALSE){
+        $head = substr($texte,0,$poshead);
+        $insert = false;
+        if (strpos($head, '<base')===false) 
+            $insert = true;
+        else {
+            // si aucun <base ...> n'a de href c'est bon quand meme !
+            $insert = true;
+            include_spip('inc/filtres');
+            $bases = extraire_balises($head,'base');
+            foreach ($bases as $base)
+                if (extraire_attribut($base,'href'))
+                    $insert = false;
+        }
+        if ($insert) {
+            include_spip('inc/filtres_mini');
+            // ajouter un base qui reglera tous les liens relatifs
+            $base = url_absolue('./');
+            $bbase = "\n<base href=\"$base\" />";
+            if (($pos = strpos($head, '<head>')) !== false)
+                $head = substr_replace($head, $bbase, $pos+6, 0);
+            elseif(preg_match(",<head[^>]*>,i",$head,$r)){
+                $head = str_replace($r[0], $r[0].$bbase, $head);
+            }
+            $texte = $head . substr($texte,$poshead);
+            // gerer les ancres
+            $base = $_SERVER['REQUEST_URI'];
+            if (strpos($texte,"href='#")!==false)
+                $texte = str_replace("href='#","href='$base#",$texte);
+            if (strpos($texte, "href=\"#")!==false)
+                $texte = str_replace("href=\"#","href=\"$base#",$texte);
+        }
+    }
 }
 
 
@@ -594,9 +594,9 @@ 
 // et demarrent par X-Spip-...
 // http://doc.spip.org/@envoyer_entetes
 function envoyer_entetes($entetes) {
-	foreach ($entetes as $k => $v)
-	#	if (strncmp($k, 'X-Spip-', 7))
-			@header(strlen($v)?"$k: $v":$k); 
+    foreach ($entetes as $k => $v)
+    #	if (strncmp($k, 'X-Spip-', 7))
+            @header(strlen($v)?"$k: $v":$k); 
 }
 
 ?>

Spacing +67 added lines, -67 removed lines

@@ -20,7 +20,7 @@ 
 //
 
 // http://doc.spip.org/@assembler
-function assembler($fond, $connect='') {
+function assembler($fond, $connect = '') {
 
 	// flag_preserver est modifie ici, et utilise en globale
 	// use_cache sert a informer le bouton d'admin pr savoir s'il met un *
@@ -29,7 +29,7 @@ 
 
 	$contexte = calculer_contexte();
 	$page = array('contexte_implicite'=>calculer_contexte_implicite());
-	$page['contexte_implicite']['cache'] = $fond . preg_replace(',\.[a-zA-Z0-9]*$,', '', preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI']));
+	$page['contexte_implicite']['cache'] = $fond.preg_replace(',\.[a-zA-Z0-9]*$,', '', preg_replace('/[?].*$/', '', $GLOBALS['REQUEST_URI']));
 	// Cette fonction est utilisee deux fois
 	$cacher = charger_fonction('cacher', 'public', true);
 	// Les quatre derniers parametres sont modifies par la fonction:
@@ -39,7 +39,7 @@ 
 	else
 		$use_cache = -1;
 	// Si un resultat est retourne, c'est un message d'impossibilite
-	if ($res) {return array('texte' => $res);}
+	if ($res) {return array('texte' => $res); }
 
 	if (!$chemin_cache || !$lastmodified) $lastmodified = time();
 
@@ -54,8 +54,8 @@ 
 	AND $chemin_cache
 	AND isset($page['entetes'])
 	AND isset($page['entetes']['Cache-Control'])
-	AND strstr($page['entetes']['Cache-Control'],'max-age=')
-	AND !strstr($_SERVER['SERVER_SOFTWARE'],'IIS/')
+	AND strstr($page['entetes']['Cache-Control'], 'max-age=')
+	AND !strstr($_SERVER['SERVER_SOFTWARE'], 'IIS/')
 	) {
 		$since = preg_replace('/;.*/', '',
 			$_SERVER['HTTP_IF_MODIFIED_SINCE']);
@@ -73,7 +73,7 @@ 
 		$page['texte'] = "";
 	} else {
 		// si la page est prise dans le cache
-		if (!$use_cache)  {
+		if (!$use_cache) {
 			// Informer les boutons d'admin du contexte
 			// (fourni par urls_decoder_url ci-dessous lors de la mise en cache)
 			$contexte = $page['contexte'];
@@ -91,14 +91,14 @@ 
 			// et calculer la page
 			if (!test_espace_prive()) {
 				include_spip('inc/urls');
-				list($fond,$contexte,$url_redirect) = urls_decoder_url(nettoyer_uri(),$fond,$contexte,true);
+				list($fond, $contexte, $url_redirect) = urls_decoder_url(nettoyer_uri(), $fond, $contexte, true);
 			}
 			// squelette par defaut
 			if (!strlen($fond))
 				$fond = 'sommaire';
 
 			// produire la page : peut mettre a jour $lastmodified
-			$produire_page = charger_fonction('produire_page','public');
+			$produire_page = charger_fonction('produire_page', 'public');
 			$page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, NULL, $page, $lastmodified, $connect);
 			if ($page === '') {
 				$erreur = _T('info_erreur_squelette2',
@@ -113,7 +113,7 @@ 
 
 		auto_content_type($page);
 
-		$flag_preserver |=  headers_sent();
+		$flag_preserver |= headers_sent();
 
 		// Definir les entetes si ce n'est fait 
 		if (!$flag_preserver) {
@@ -128,7 +128,7 @@ 
 				}
 				// pas de cache client en mode 'observation'
 				if (defined('_VAR_MODE') AND _VAR_MODE) {
-					$page['entetes']["Cache-Control"]= "no-cache,must-revalidate";
+					$page['entetes']["Cache-Control"] = "no-cache,must-revalidate";
 					$page['entetes']["Pragma"] = "no-cache";
 				}
 			}
@@ -141,7 +141,7 @@ 
 	if ($lastmodified
 	AND !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
 	AND !isset($page['entetes']["Last-Modified"]))
-		$page['entetes']["Last-Modified"]=gmdate("D, d M Y H:i:s", $lastmodified)." GMT";
+		$page['entetes']["Last-Modified"] = gmdate("D, d M Y H:i:s", $lastmodified)." GMT";
 
 	// fermer la connexion apres les headers si requete HEAD
 	if ($headers_only)
@@ -161,12 +161,12 @@ 
 function calculer_contexte() {
 
 	$contexte = array();
-	foreach($_GET as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES,$var))
+	foreach ($_GET as $var => $val) {
+		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var))
 			$contexte[$var] = $val;
 	}
-	foreach($_POST as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES,$var))
+	foreach ($_POST as $var => $val) {
+		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES, $var))
 			$contexte[$var] = $val;
 	}
 
@@ -180,18 +180,18 @@ 
  * @staticvar string $notes
  * @return array
  */
-function calculer_contexte_implicite(){
+function calculer_contexte_implicite() {
 	static $notes = null;
 	if (is_null($notes))
-		$notes = charger_fonction('notes','inc',true);
+		$notes = charger_fonction('notes', 'inc', true);
 	$contexte_implicite = array(
 		'squelettes' => $GLOBALS['dossier_squelettes'], // devrait etre 'chemin' => $GLOBALS['path_sig'], ?
 		'host' => $_SERVER['HTTP_HOST'],
 		'https' => (isset($_SERVER['HTTPS']) ? $_SERVER['HTTPS'] : ''),
 		'espace' => test_espace_prive(),
-		'marqueur' => (isset($GLOBALS['marqueur']) ?  $GLOBALS['marqueur'] : ''),
-		'marqueur_skel' => (isset($GLOBALS['marqueur_skel']) ?  $GLOBALS['marqueur_skel'] : ''),
-		'notes' => $notes?$notes('','contexter_cache'):'',
+		'marqueur' => (isset($GLOBALS['marqueur']) ? $GLOBALS['marqueur'] : ''),
+		'marqueur_skel' => (isset($GLOBALS['marqueur_skel']) ? $GLOBALS['marqueur_skel'] : ''),
+		'notes' => $notes ? $notes('', 'contexter_cache') : '',
 		'spip_version_code' => $GLOBALS['spip_version_code'],
 	);
 	return $contexte_implicite;
@@ -207,12 +207,12 @@ 
 	global $flag_preserver;
 	if (!isset($flag_preserver))
 	  {
-	    $flag_preserver = ($page && preg_match("/header\s*\(\s*.content\-type:/isx",$page['texte']) || (isset($page['entetes']['Content-Type'])));
+	    $flag_preserver = ($page && preg_match("/header\s*\(\s*.content\-type:/isx", $page['texte']) || (isset($page['entetes']['Content-Type'])));
 	  }
 }
 
 // http://doc.spip.org/@inclure_page
-function inclure_page($fond, $contexte, $connect='') {
+function inclure_page($fond, $contexte, $connect = '') {
 	static $cacher, $produire_page;
 	global $lastmodified;
 
@@ -231,14 +231,14 @@ 
 	else
 		$use_cache = -1;
 	// $res = message d'erreur : on sort de la
-	if ($res) {return array('texte' => $res);}
+	if ($res) {return array('texte' => $res); }
 
 	// Si use_cache ne vaut pas 0, la page doit etre calculee
 	// produire la page : peut mettre a jour $lastinclude
 	// le contexte_cache envoye a cacher() a ete conserve et est passe a produire
 	if ($use_cache) {
 		if (is_null($produire_page))
-			$produire_page = charger_fonction('produire_page','public');
+			$produire_page = charger_fonction('produire_page', 'public');
 		$page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, $contexte, $page, $lastinclude, $connect);
 	}
 	// dans tous les cas, mettre a jour $lastmodified
@@ -261,17 +261,17 @@ 
  * @param string $connect
  * @return array
  */
-function public_produire_page_dist($fond, $contexte, $use_cache, $chemin_cache, $contexte_cache, &$page, &$lastinclude, $connect=''){
-	static $parametrer,$cacher;
+function public_produire_page_dist($fond, $contexte, $use_cache, $chemin_cache, $contexte_cache, &$page, &$lastinclude, $connect = '') {
+	static $parametrer, $cacher;
 	if (!$parametrer)
 		$parametrer = charger_fonction('parametrer', 'public');
 	$page = $parametrer($fond, $contexte, $chemin_cache, $connect);
 	// et on l'enregistre sur le disque
 	if ($chemin_cache
-	AND $use_cache>-1
+	AND $use_cache > -1
 	AND is_array($page)
 	AND count($page)
-	AND $page['entetes']['X-Spip-Cache'] > 0){
+	AND $page['entetes']['X-Spip-Cache'] > 0) {
 		if (is_null($cacher))
 			$cacher = charger_fonction('cacher', 'public', true);
 		$lastinclude = time();
@@ -307,7 +307,7 @@ 
 // $echo = faut-il faire echo ou return
 
 // http://doc.spip.org/@inclure_balise_dynamique
-function inclure_balise_dynamique($texte, $echo=true, $contexte_compil=array())
+function inclure_balise_dynamique($texte, $echo = true, $contexte_compil = array())
 {
 	if (is_array($texte)) {
 
@@ -317,7 +317,7 @@ 
 		$d = isset($GLOBALS['delais']) ? $GLOBALS['delais'] : NULL;
 		$GLOBALS['delais'] = $delainc;
 
-		$page = recuperer_fond($fond,$contexte_inclus,array('trim'=>false, 'raw' => true, 'compil' => $contexte_compil));
+		$page = recuperer_fond($fond, $contexte_inclus, array('trim'=>false, 'raw' => true, 'compil' => $contexte_compil));
 
 		$texte = $page['texte'];
 
@@ -331,14 +331,14 @@ 
 				if (!is_array($GLOBALS['page']['entetes']))
 					$GLOBALS['page']['entetes'] = array();
 				$GLOBALS['page']['entetes'] = 
-					array_merge($GLOBALS['page']['entetes'],$page['entetes']);
+					array_merge($GLOBALS['page']['entetes'], $page['entetes']);
 			}
 		}
 		// _pipelines au pluriel array('nom_pipeline' => $args...) avec une syntaxe permettant plusieurs pipelines
 		if (isset($page['contexte']['_pipelines'])
 		  AND is_array($page['contexte']['_pipelines'])
 			AND count($page['contexte']['_pipelines'])) {
-			foreach($page['contexte']['_pipelines'] as $pipe=>$args){
+			foreach ($page['contexte']['_pipelines'] as $pipe=>$args) {
 				$args['contexte'] = $page['contexte'];
 				unset($args['contexte']['_pipelines']); // par precaution, meme si le risque de boucle infinie est a priori nul
 				$texte = pipeline(
@@ -355,7 +355,7 @@ 
 
 	if (defined('_VAR_MODE') AND _VAR_MODE == 'debug') {
 		// compatibilite : avant on donnait le numero de ligne ou rien.
-		$ligne =  intval(isset($contexte_compil[3]) ? $contexte_compil[3] : $contexte_compil);
+		$ligne = intval(isset($contexte_compil[3]) ? $contexte_compil[3] : $contexte_compil);
 		$GLOBALS['debug_objets']['resultat'][$ligne] = $texte;
 	}
 	if ($echo)
@@ -366,7 +366,7 @@ 
 }
 
 // http://doc.spip.org/@message_page_indisponible
-function message_page_indisponible ($page, $contexte) {
+function message_page_indisponible($page, $contexte) {
 	static $deja = false;
 	if ($deja) return "erreur";
 	$codes = array(
@@ -383,7 +383,7 @@ 
 	$deja = true;
 	// passer aux plugins qui peuvent decider d'une page d'erreur plus pertinent
 	// ex restriction d'acces => 401
-	$contexte = pipeline('page_indisponible',$contexte);
+	$contexte = pipeline('page_indisponible', $contexte);
 
 	// produire la page d'erreur
 	$page = inclure_page($contexte['fond'], $contexte);
@@ -400,14 +400,14 @@ 
 function creer_contexte_de_modele($args) {
 	$contexte = array();
 	foreach ($args as $var=>$val) {
-		if (is_int($var)){ // argument pas formate
+		if (is_int($var)) { // argument pas formate
 			if (in_array($val, array('left', 'right', 'center'))) {
 				$var = 'align';
 				$contexte[$var] = $val;
 			} else {
 				$args = explode('=', $val);
-				if (count($args)>=2) // Flashvars=arg1=machin&arg2=truc genere plus de deux args
-					$contexte[trim($args[0])] = substr($val,strlen($args[0])+1);
+				if (count($args) >= 2) // Flashvars=arg1=machin&arg2=truc genere plus de deux args
+					$contexte[trim($args[0])] = substr($val, strlen($args[0]) + 1);
 				else // notation abregee
 					$contexte[trim($val)] = trim($val);
 			}
@@ -421,10 +421,10 @@ 
 
 // Calcule le modele et retourne la mini-page ainsi calculee
 // http://doc.spip.org/@inclure_modele
-function inclure_modele($type, $id, $params, $lien, $connect='', $env=array()) {
+function inclure_modele($type, $id, $params, $lien, $connect = '', $env = array()) {
 
 	static $compteur;
-	if (++$compteur>10) return ''; # ne pas boucler indefiniment
+	if (++$compteur > 10) return ''; # ne pas boucler indefiniment
 
 	$type = strtolower($type);
 
@@ -446,13 +446,13 @@ 
 				$class = $soustype;
 			}
 			// enlever le sous type des params
-			$params = array_diff($params,array($soustype));
+			$params = array_diff($params, array($soustype));
 		}
 	}
 
 	// Si ca marche pas en precisant le sous-type, prendre le type
-	if (!$fond AND !trouve_modele($fond = $type)){
-		spip_log("Modele $type introuvable",_LOG_INFO_IMPORTANTE);
+	if (!$fond AND !trouve_modele($fond = $type)) {
+		spip_log("Modele $type introuvable", _LOG_INFO_IMPORTANTE);
 		return false;
 	}
 	$fond = 'modeles/'.$fond;
@@ -474,7 +474,7 @@ 
 	// Si un lien a ete passe en parametre, ex: [<modele1>->url]
 	if ($lien) {
 		# un eventuel guillemet (") sera reechappe par #ENV
-		$contexte['lien'] = str_replace("&quot;",'"', $lien['href']);
+		$contexte['lien'] = str_replace("&quot;", '"', $lien['href']);
 		$contexte['lien_class'] = $lien['class'];
 		$contexte['lien_mime'] = $lien['mime'];
 		$contexte['lien_title'] = $lien['title'];
@@ -485,7 +485,7 @@ 
 	// par exemple : <img1|center>, <emb12|autostart=true> ou <doc1|lang=en>
 	$arg_list = creer_contexte_de_modele($params);
 	$contexte['args'] = $arg_list; // on passe la liste des arguments du modeles dans une variable args
-	$contexte = array_merge($contexte,$arg_list);
+	$contexte = array_merge($contexte, $arg_list);
 
 
 	// Appliquer le modele avec le contexte
@@ -495,7 +495,7 @@ 
 	// Regarder si le modele tient compte des liens (il *doit* alors indiquer
 	// spip_lien_ok dans les classes de son conteneur de premier niveau ;
 	// sinon, s'il y a un lien, on l'ajoute classiquement
-	if (strstr(' ' . ($classes = extraire_attribut($retour, 'class')).' ',
+	if (strstr(' '.($classes = extraire_attribut($retour, 'class')).' ',
 	'spip_lien_ok')) {
 		$retour = inserer_attribut($retour, 'class',
 			trim(str_replace(' spip_lien_ok ', ' ', " $classes ")));
@@ -504,8 +504,8 @@ 
 
 	$compteur--;
 
-	return  (isset($arg_list['ajax'])AND $arg_list['ajax']=='ajax')
-	? encoder_contexte_ajax($contexte,'',$retour)
+	return  (isset($arg_list['ajax']) AND $arg_list['ajax'] == 'ajax')
+	? encoder_contexte_ajax($contexte, '', $retour)
 	: $retour; 
 }
 
@@ -514,7 +514,7 @@ 
 // pour recuperer $page complet, utiliser:
 // 	recuperer_fond($fond,$contexte,array('raw'=>true))
 // http://doc.spip.org/@evaluer_fond
-function evaluer_fond ($fond, $contexte=array(), $connect=null) {
+function evaluer_fond($fond, $contexte = array(), $connect = null) {
 
 	$page = inclure_page($fond, $contexte, $connect);
 
@@ -536,36 +536,36 @@ 
 
 
 // http://doc.spip.org/@page_base_href
-function page_base_href(&$texte){
+function page_base_href(&$texte) {
 	static $set_html_base = null;
-	if (is_null($set_html_base)){
+	if (is_null($set_html_base)) {
 		if (!defined('_SET_HTML_BASE'))
 			// si la profondeur est superieure a 1
 			// est que ce n'est pas une url page ni une url action
 			// activer par defaut
 			$set_html_base = ((
-				$GLOBALS['profondeur_url'] >= (_DIR_RESTREINT?1:2)
+				$GLOBALS['profondeur_url'] >= (_DIR_RESTREINT ? 1 : 2)
 				AND _request(_SPIP_PAGE) !== 'login'
-				AND !_request('action'))?true:false);
+				AND !_request('action')) ? true : false);
 		else
 			$set_html_base = _SET_HTML_BASE;
 	}
 
 	if ($set_html_base
 	  AND isset($GLOBALS['html']) AND $GLOBALS['html']
-	  AND $GLOBALS['profondeur_url']>0
-	  AND ($poshead = strpos($texte,'</head>'))!==FALSE){
-		$head = substr($texte,0,$poshead);
+	  AND $GLOBALS['profondeur_url'] > 0
+	  AND ($poshead = strpos($texte, '</head>')) !== FALSE) {
+		$head = substr($texte, 0, $poshead);
 		$insert = false;
-		if (strpos($head, '<base')===false) 
+		if (strpos($head, '<base') === false) 
 			$insert = true;
 		else {
 			// si aucun <base ...> n'a de href c'est bon quand meme !
 			$insert = true;
 			include_spip('inc/filtres');
-			$bases = extraire_balises($head,'base');
+			$bases = extraire_balises($head, 'base');
 			foreach ($bases as $base)
-				if (extraire_attribut($base,'href'))
+				if (extraire_attribut($base, 'href'))
 					$insert = false;
 		}
 		if ($insert) {
@@ -574,17 +574,17 @@ 
 			$base = url_absolue('./');
 			$bbase = "\n<base href=\"$base\" />";
 			if (($pos = strpos($head, '<head>')) !== false)
-				$head = substr_replace($head, $bbase, $pos+6, 0);
-			elseif(preg_match(",<head[^>]*>,i",$head,$r)){
+				$head = substr_replace($head, $bbase, $pos + 6, 0);
+			elseif (preg_match(",<head[^>]*>,i", $head, $r)) {
 				$head = str_replace($r[0], $r[0].$bbase, $head);
 			}
-			$texte = $head . substr($texte,$poshead);
+			$texte = $head.substr($texte, $poshead);
 			// gerer les ancres
 			$base = $_SERVER['REQUEST_URI'];
-			if (strpos($texte,"href='#")!==false)
-				$texte = str_replace("href='#","href='$base#",$texte);
-			if (strpos($texte, "href=\"#")!==false)
-				$texte = str_replace("href=\"#","href=\"$base#",$texte);
+			if (strpos($texte, "href='#") !== false)
+				$texte = str_replace("href='#", "href='$base#", $texte);
+			if (strpos($texte, "href=\"#") !== false)
+				$texte = str_replace("href=\"#", "href=\"$base#", $texte);
 		}
 	}
 }
@@ -596,7 +596,7 @@ 
 function envoyer_entetes($entetes) {
 	foreach ($entetes as $k => $v)
 	#	if (strncmp($k, 'X-Spip-', 7))
-			@header(strlen($v)?"$k: $v":$k); 
+			@header(strlen($v) ? "$k: $v" : $k); 
 }
 
 ?>

Braces +127 added lines, -83 removed lines

@@ -10,9 +10,13 @@ 
  *  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;
+}
 
-if (!defined('_CONTEXTE_IGNORE_VARIABLES')) define('_CONTEXTE_IGNORE_VARIABLES', "/(^var_|^PHPSESSID$)/");
+if (!defined('_CONTEXTE_IGNORE_VARIABLES')) {
+    define('_CONTEXTE_IGNORE_VARIABLES', "/(^var_|^PHPSESSID$)/");
+}
 //
 // calcule la page et les entetes
 // determine le contexte donne par l'URL (en tenant compte des reecritures) 
@@ -34,14 +38,17 @@ 
 	$cacher = charger_fonction('cacher', 'public', true);
 	// Les quatre derniers parametres sont modifies par la fonction:
 	// emplacement, validite, et, s'il est valide, contenu & age
-	if ($cacher)
-		$res = $cacher($GLOBALS['contexte'], $use_cache, $chemin_cache, $page, $lastmodified);
-	else
-		$use_cache = -1;
+	if ($cacher) {
+			$res = $cacher($GLOBALS['contexte'], $use_cache, $chemin_cache, $page, $lastmodified);
+	} else {
+			$use_cache = -1;
+	}
 	// Si un resultat est retourne, c'est un message d'impossibilite
 	if ($res) {return array('texte' => $res);}
 
-	if (!$chemin_cache || !$lastmodified) $lastmodified = time();
+	if (!$chemin_cache || !$lastmodified) {
+	    $lastmodified = time();
+	}
 
 	$headers_only = ($_SERVER['REQUEST_METHOD'] == 'HEAD');
 	$calculer_page = true;
@@ -83,8 +90,7 @@ 
 			// plus necessaire si on utilise bien la fonction urls_decoder_url
 			#unset($_SERVER['REDIRECT_url_propre']);
 			#unset($_ENV['url_propre']);
-		}
-		else {
+		} else {
 			// Compat ascendante :
 			// 1. $contexte est global
 			// (a evacuer car urls_decoder_url gere ce probleme ?)
@@ -94,8 +100,9 @@ 
 				list($fond,$contexte,$url_redirect) = urls_decoder_url(nettoyer_uri(),$fond,$contexte,true);
 			}
 			// squelette par defaut
-			if (!strlen($fond))
-				$fond = 'sommaire';
+			if (!strlen($fond)) {
+							$fond = 'sommaire';
+			}
 
 			// produire la page : peut mettre a jour $lastmodified
 			$produire_page = charger_fonction('produire_page','public');
@@ -109,7 +116,9 @@ 
 			}
 		}
 
-		if ($page AND $chemin_cache) $page['cache'] = $chemin_cache;
+		if ($page AND $chemin_cache) {
+		    $page['cache'] = $chemin_cache;
+		}
 
 		auto_content_type($page);
 
@@ -140,12 +149,14 @@ 
 	// a celui qu'on a refuse d'honorer plus haut (cf. #655)
 	if ($lastmodified
 	AND !isset($_SERVER['HTTP_IF_MODIFIED_SINCE'])
-	AND !isset($page['entetes']["Last-Modified"]))
-		$page['entetes']["Last-Modified"]=gmdate("D, d M Y H:i:s", $lastmodified)." GMT";
+	AND !isset($page['entetes']["Last-Modified"])) {
+			$page['entetes']["Last-Modified"]=gmdate("D, d M Y H:i:s", $lastmodified)." GMT";
+	}
 
 	// fermer la connexion apres les headers si requete HEAD
-	if ($headers_only)
-		$page['entetes']["Connection"] = "close";
+	if ($headers_only) {
+			$page['entetes']["Connection"] = "close";
+	}
 
 	return $page;
 }
@@ -162,12 +173,14 @@ 
 
 	$contexte = array();
 	foreach($_GET as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES,$var))
-			$contexte[$var] = $val;
+		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES,$var)) {
+					$contexte[$var] = $val;
+		}
 	}
 	foreach($_POST as $var => $val) {
-		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES,$var))
-			$contexte[$var] = $val;
+		if (!preg_match(_CONTEXTE_IGNORE_VARIABLES,$var)) {
+					$contexte[$var] = $val;
+		}
 	}
 
 	return $contexte;
@@ -182,8 +195,9 @@ 
  */
 function calculer_contexte_implicite(){
 	static $notes = null;
-	if (is_null($notes))
-		$notes = charger_fonction('notes','inc',true);
+	if (is_null($notes)) {
+			$notes = charger_fonction('notes','inc',true);
+	}
 	$contexte_implicite = array(
 		'squelettes' => $GLOBALS['dossier_squelettes'], // devrait etre 'chemin' => $GLOBALS['path_sig'], ?
 		'host' => $_SERVER['HTTP_HOST'],
@@ -222,14 +236,16 @@ 
 	unset($contexte['fond']);
 	$page = array('contexte_implicite'=>calculer_contexte_implicite());
 	$page['contexte_implicite']['cache'] = $fond;
-	if (is_null($cacher))
-		$cacher = charger_fonction('cacher', 'public', true);
+	if (is_null($cacher)) {
+			$cacher = charger_fonction('cacher', 'public', true);
+	}
 	// Les quatre derniers parametres sont modifies par la fonction:
 	// emplacement, validite, et, s'il est valide, contenu & age
-	if ($cacher)
-		$res = $cacher($contexte, $use_cache, $chemin_cache, $page, $lastinclude);
-	else
-		$use_cache = -1;
+	if ($cacher) {
+			$res = $cacher($contexte, $use_cache, $chemin_cache, $page, $lastinclude);
+	} else {
+			$use_cache = -1;
+	}
 	// $res = message d'erreur : on sort de la
 	if ($res) {return array('texte' => $res);}
 
@@ -237,8 +253,9 @@ 
 	// produire la page : peut mettre a jour $lastinclude
 	// le contexte_cache envoye a cacher() a ete conserve et est passe a produire
 	if ($use_cache) {
-		if (is_null($produire_page))
-			$produire_page = charger_fonction('produire_page','public');
+		if (is_null($produire_page)) {
+					$produire_page = charger_fonction('produire_page','public');
+		}
 		$page = $produire_page($fond, $contexte, $use_cache, $chemin_cache, $contexte, $page, $lastinclude, $connect);
 	}
 	// dans tous les cas, mettre a jour $lastmodified
@@ -263,8 +280,9 @@ 
  */
 function public_produire_page_dist($fond, $contexte, $use_cache, $chemin_cache, $contexte_cache, &$page, &$lastinclude, $connect=''){
 	static $parametrer,$cacher;
-	if (!$parametrer)
-		$parametrer = charger_fonction('parametrer', 'public');
+	if (!$parametrer) {
+			$parametrer = charger_fonction('parametrer', 'public');
+	}
 	$page = $parametrer($fond, $contexte, $chemin_cache, $connect);
 	// et on l'enregistre sur le disque
 	if ($chemin_cache
@@ -272,13 +290,15 @@ 
 	AND is_array($page)
 	AND count($page)
 	AND $page['entetes']['X-Spip-Cache'] > 0){
-		if (is_null($cacher))
-			$cacher = charger_fonction('cacher', 'public', true);
+		if (is_null($cacher)) {
+					$cacher = charger_fonction('cacher', 'public', true);
+		}
 		$lastinclude = time();
-		if ($cacher)
-			$cacher($contexte_cache, $use_cache, $chemin_cache, $page, $lastinclude);
-		else
-			$use_cache = -1;
+		if ($cacher) {
+					$cacher($contexte_cache, $use_cache, $chemin_cache, $page, $lastinclude);
+		} else {
+					$use_cache = -1;
+		}
 	}
 	return $page;
 }
@@ -296,8 +316,10 @@ 
 
 function inserer_balise_dynamique($contexte_exec, $contexte_compil)
 {
-	if (!is_array($contexte_exec))
-		echo $contexte_exec; // message d'erreur etc
+	if (!is_array($contexte_exec)) {
+			echo $contexte_exec;
+	}
+	// message d'erreur etc
 	else {
 		inclure_balise_dynamique($contexte_exec, true, $contexte_compil);
 	}
@@ -328,8 +350,9 @@ 
 			unset($page['entetes']['X-Spip-Cache']);
 			unset($page['entetes']['Content-Type']);
 			if (isset($GLOBALS['page']) AND is_array($GLOBALS['page'])) {
-				if (!is_array($GLOBALS['page']['entetes']))
-					$GLOBALS['page']['entetes'] = array();
+				if (!is_array($GLOBALS['page']['entetes'])) {
+									$GLOBALS['page']['entetes'] = array();
+				}
 				$GLOBALS['page']['entetes'] = 
 					array_merge($GLOBALS['page']['entetes'],$page['entetes']);
 			}
@@ -358,17 +381,20 @@ 
 		$ligne =  intval(isset($contexte_compil[3]) ? $contexte_compil[3] : $contexte_compil);
 		$GLOBALS['debug_objets']['resultat'][$ligne] = $texte;
 	}
-	if ($echo)
-		echo $texte;
-	else
-		return $texte;
+	if ($echo) {
+			echo $texte;
+	} else {
+			return $texte;
+	}
 
 }
 
 // http://doc.spip.org/@message_page_indisponible
 function message_page_indisponible ($page, $contexte) {
 	static $deja = false;
-	if ($deja) return "erreur";
+	if ($deja) {
+	    return "erreur";
+	}
 	$codes = array(
 		'404' => '404 Not Found',
 		'503' => '503 Service Unavailable',
@@ -377,8 +403,9 @@ 
 	$contexte['status'] = ($page !== false) ? '404' : '503';
 	$contexte['code'] = $codes[$contexte['status']];
 	$contexte['fond'] = '404'; // gere les 2 erreurs
-	if (!isset($contexte['lang']))
-		$contexte['lang'] = $GLOBALS['spip_lang'];
+	if (!isset($contexte['lang'])) {
+			$contexte['lang'] = $GLOBALS['spip_lang'];
+	}
 
 	$deja = true;
 	// passer aux plugins qui peuvent decider d'une page d'erreur plus pertinent
@@ -387,8 +414,9 @@ 
 
 	// produire la page d'erreur
 	$page = inclure_page($contexte['fond'], $contexte);
-	if (!$page)
-		$page = inclure_page('404', $contexte);
+	if (!$page) {
+			$page = inclure_page('404', $contexte);
+	}
 	$page['status'] = $contexte['status'];
 
 	return $page;
@@ -406,14 +434,17 @@ 
 				$contexte[$var] = $val;
 			} else {
 				$args = explode('=', $val);
-				if (count($args)>=2) // Flashvars=arg1=machin&arg2=truc genere plus de deux args
+				if (count($args)>=2) {
+				    // Flashvars=arg1=machin&arg2=truc genere plus de deux args
 					$contexte[trim($args[0])] = substr($val,strlen($args[0])+1);
-				else // notation abregee
+				} else {
+				    // notation abregee
 					$contexte[trim($val)] = trim($val);
+				}
 			}
+		} else {
+					$contexte[$var] = $val;
 		}
-		else
-			$contexte[$var] = $val;
 	}
 
 	return $contexte;
@@ -424,7 +455,10 @@ 
 function inclure_modele($type, $id, $params, $lien, $connect='', $env=array()) {
 
 	static $compteur;
-	if (++$compteur>10) return ''; # ne pas boucler indefiniment
+	if (++$compteur>10) {
+	    return '';
+	}
+	# ne pas boucler indefiniment
 
 	$type = strtolower($type);
 
@@ -468,8 +502,9 @@ 
 	$_id = id_table_objet($type);
 	$contexte['id'] = $contexte[$_id] = $id;
 
-	if (isset($class))
-		$contexte['class'] = $class;
+	if (isset($class)) {
+			$contexte['class'] = $class;
+	}
 
 	// Si un lien a ete passe en parametre, ex: [<modele1>->url]
 	if ($lien) {
@@ -499,8 +534,9 @@ 
 	'spip_lien_ok')) {
 		$retour = inserer_attribut($retour, 'class',
 			trim(str_replace(' spip_lien_ok ', ' ', " $classes ")));
-	} else if ($lien)
-		$retour = "<a href='".$lien['href']."' class='".$lien['class']."'>".$retour."</a>";
+	} else if ($lien) {
+			$retour = "<a href='".$lien['href']."' class='".$lien['class']."'>".$retour."</a>";
+	}
 
 	$compteur--;
 
@@ -518,7 +554,9 @@ 
 
 	$page = inclure_page($fond, $contexte, $connect);
 
-	if (!$page) return $page;
+	if (!$page) {
+	    return $page;
+	}
 	// eval $page et affecte $res
 	include _ROOT_RESTREINT."public/evaluer_page.php";
 	
@@ -528,8 +566,9 @@ 
 	// il faut bien lever ce drapeau apres avoir evalue le fond
 	// pour ne pas faire descendre le flag vers les inclusions appelees
 	if (isset($page['invalideurs'])
-	AND isset($page['invalideurs']['session']))
-		$GLOBALS['cache_utilise_session'] = $page['invalideurs']['session'];
+	AND isset($page['invalideurs']['session'])) {
+			$GLOBALS['cache_utilise_session'] = $page['invalideurs']['session'];
+	}
 
 	return $page;
 }
@@ -539,16 +578,17 @@ 
 function page_base_href(&$texte){
 	static $set_html_base = null;
 	if (is_null($set_html_base)){
-		if (!defined('_SET_HTML_BASE'))
-			// si la profondeur est superieure a 1
+		if (!defined('_SET_HTML_BASE')) {
+					// si la profondeur est superieure a 1
 			// est que ce n'est pas une url page ni une url action
 			// activer par defaut
 			$set_html_base = ((
 				$GLOBALS['profondeur_url'] >= (_DIR_RESTREINT?1:2)
 				AND _request(_SPIP_PAGE) !== 'login'
 				AND !_request('action'))?true:false);
-		else
-			$set_html_base = _SET_HTML_BASE;
+		} else {
+					$set_html_base = _SET_HTML_BASE;
+		}
 	}
 
 	if ($set_html_base
@@ -557,34 +597,37 @@ 
 	  AND ($poshead = strpos($texte,'</head>'))!==FALSE){
 		$head = substr($texte,0,$poshead);
 		$insert = false;
-		if (strpos($head, '<base')===false) 
-			$insert = true;
-		else {
+		if (strpos($head, '<base')===false) {
+					$insert = true;
+		} else {
 			// si aucun <base ...> n'a de href c'est bon quand meme !
 			$insert = true;
 			include_spip('inc/filtres');
 			$bases = extraire_balises($head,'base');
-			foreach ($bases as $base)
-				if (extraire_attribut($base,'href'))
+			foreach ($bases as $base) {
+							if (extraire_attribut($base,'href'))
 					$insert = false;
+			}
 		}
 		if ($insert) {
 			include_spip('inc/filtres_mini');
 			// ajouter un base qui reglera tous les liens relatifs
 			$base = url_absolue('./');
 			$bbase = "\n<base href=\"$base\" />";
-			if (($pos = strpos($head, '<head>')) !== false)
-				$head = substr_replace($head, $bbase, $pos+6, 0);
-			elseif(preg_match(",<head[^>]*>,i",$head,$r)){
+			if (($pos = strpos($head, '<head>')) !== false) {
+							$head = substr_replace($head, $bbase, $pos+6, 0);
+			} elseif(preg_match(",<head[^>]*>,i",$head,$r)){
 				$head = str_replace($r[0], $r[0].$bbase, $head);
 			}
 			$texte = $head . substr($texte,$poshead);
 			// gerer les ancres
 			$base = $_SERVER['REQUEST_URI'];
-			if (strpos($texte,"href='#")!==false)
-				$texte = str_replace("href='#","href='$base#",$texte);
-			if (strpos($texte, "href=\"#")!==false)
-				$texte = str_replace("href=\"#","href=\"$base#",$texte);
+			if (strpos($texte,"href='#")!==false) {
+							$texte = str_replace("href='#","href='$base#",$texte);
+			}
+			if (strpos($texte, "href=\"#")!==false) {
+							$texte = str_replace("href=\"#","href=\"$base#",$texte);
+			}
 		}
 	}
 }
@@ -594,9 +637,10 @@ 
 // et demarrent par X-Spip-...
 // http://doc.spip.org/@envoyer_entetes
 function envoyer_entetes($entetes) {
-	foreach ($entetes as $k => $v)
-	#	if (strncmp($k, 'X-Spip-', 7))
-			@header(strlen($v)?"$k: $v":$k); 
-}
+	foreach ($entetes as $k => $v) {
+		#	if (strncmp($k, 'X-Spip-', 7))
+			@header(strlen($v)?"$k: $v":$k);
+	}
+	}
 
 ?>

ecrire/public/interfaces.php

Indentation +571 added lines, -571 removed lines

@@ -32,43 +32,43 @@ 
  * @package SPIP\Compilateur\AST
  */
 class Contexte {
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 *
-	 * @var array */
-	public $descr = array();
-
-	/**
-	 * Identifiant de la boucle
-	 * @var string */
-	public $id_boucle = '';
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 * @var int */
-	public $ligne = 0;
-
-	/**
-	 * Langue d'exécution
-	 * @var string */
-	public $lang = '';
-
-	/**
-	 * Résultat de la compilation: toujours une expression PHP
-	 * @var string */
-	public $code = '';
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     *
+     * @var array */
+    public $descr = array();
+
+    /**
+     * Identifiant de la boucle
+     * @var string */
+    public $id_boucle = '';
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     * @var int */
+    public $ligne = 0;
+
+    /**
+     * Langue d'exécution
+     * @var string */
+    public $lang = '';
+
+    /**
+     * Résultat de la compilation: toujours une expression PHP
+     * @var string */
+    public $code = '';
 }
 
 
@@ -78,34 +78,34 @@ 
  * @package SPIP\Compilateur\AST
 **/
 class Texte {
-	/**
-	 * Type de noeud 
-	 * @var string */
-	public $type = 'texte';
-
-	/**
-	 * Le texte
-	 * @var string */
-	public $texte;
-
-	/**
-	 * Contenu avant le texte.
-	 *
-	 * Vide ou apostrophe simple ou double si le texte en était entouré
-	 * @var string|array */
-	public $avant = "";
-
-	/**
-	 * Contenu après le texte.
-	 *
-	 * Vide ou apostrophe simple ou double si le texte en était entouré
-	 * @var string|array */
-	public $apres = "";
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 * @var int  */
-	public $ligne = 0;
+    /**
+     * Type de noeud 
+     * @var string */
+    public $type = 'texte';
+
+    /**
+     * Le texte
+     * @var string */
+    public $texte;
+
+    /**
+     * Contenu avant le texte.
+     *
+     * Vide ou apostrophe simple ou double si le texte en était entouré
+     * @var string|array */
+    public $avant = "";
+
+    /**
+     * Contenu après le texte.
+     *
+     * Vide ou apostrophe simple ou double si le texte en était entouré
+     * @var string|array */
+    public $apres = "";
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     * @var int  */
+    public $ligne = 0;
 }
 
 /**
@@ -114,38 +114,38 @@ 
  * @package SPIP\Compilateur\AST
 **/
 class Inclure {
-	/**
-	 * Type de noeud 
-	 * @var string */
-	public $type = 'include';
-
-	/**
-	 * Nom d'un fichier inclu
-	 * 
-	 * - Objet Texte si inclusion d'un autre squelette
-	 * - chaîne si inclusion d'un fichier PHP directement
-	 * @var string|Texte */
-	public $texte;
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 * @var string|array */
-	public $avant = '';
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 * @var string|array */
-	public $apres = '';
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 * @var int  */
-	public $ligne = 0;
-
-	/**
-	 * Valeurs des paramètres
-	 * @var array */
-	public $param = array();
+    /**
+     * Type de noeud 
+     * @var string */
+    public $type = 'include';
+
+    /**
+     * Nom d'un fichier inclu
+     * 
+     * - Objet Texte si inclusion d'un autre squelette
+     * - chaîne si inclusion d'un fichier PHP directement
+     * @var string|Texte */
+    public $texte;
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     * @var string|array */
+    public $avant = '';
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     * @var string|array */
+    public $apres = '';
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     * @var int  */
+    public $ligne = 0;
+
+    /**
+     * Valeurs des paramètres
+     * @var array */
+    public $param = array();
 }
 
 
@@ -155,164 +155,164 @@ 
  * @package SPIP\Compilateur\AST
 **/
 class Boucle {
-	/**
-	 * Type de noeud 
-	 * @var string */
-	public $type = 'boucle';
-
-	/**
-	 * Identifiant de la boucle
-	 * @var string */
-	public $id_boucle;
-
-	/**
-	 * Identifiant de la boucle parente
-	 * @var string */
-	public $id_parent ='';
-
-	/**
-	 * Partie optionnelle avant
-	 * @var string|array */
-	public $avant = '';
-
-	/**
-	 * Pour chaque élément
-	 * @var string|array */
-	public $milieu = '';
-
-	/**
-	 * Partie optionnelle après
-	 * @var string|array */
-	public $apres = '';
-
-	/**
-	 * Partie alternative, si pas de résultat dans la boucle
-	 * @var string|array */
-	public $altern = '';
-
-	/**
-	 * La boucle doit-elle sélectionner la langue ?
-	 * @var string|null */
-	public $lang_select;
-
-	/**
-	 * Alias de table d'application de la requête ou nom complet de la table SQL
-	 * @var string|null */
-	public $type_requete;
-
-	/**
-	 * La table est elle optionnelle ?
-	 * 
-	 * Si oui, aucune erreur ne sera générée si la table demandée n'est pas présente
-	 * @var bool */
-	public $table_optionnelle = false;
-
-	/**
-	 * Nom du fichier de connexion
-	 * @var string */
-	public $sql_serveur = '';
-
-	/**
-	 * Paramètres de la boucle
-	 * 
-	 * Description des paramètres passés à la boucle, qui servent ensuite
-	 * au calcul des critères
-	 *
-	 * @var array */
-	public $param = array();
-
-	/**
-	 * Critères de la boucle
-	 * @var Critere[] */
-	public $criteres = array();
-
-	/**
-	 * Textes insérés entre 2 éléments de boucle (critère inter)
-	 * @var string[] */
-	public $separateur = array();
-
-	/**
-	 * Liste des jointures possibles avec cette table
-	 *
-	 * Les jointures par défaut de la table sont complétées en priorité
-	 * des jointures déclarées explicitement sur la boucle
-	 * @see base_trouver_table_dist()
-	 * @var array */
-	public $jointures = array();
-
-	/**
-	 * Jointures explicites avec cette table
-	 *
-	 * Ces jointures sont utilisées en priorité par rapport aux jointures
-	 * normales possibles pour retrouver les colonnes demandées extérieures
-	 * à la boucle.
-	 * @var string|bool */
-	public $jointures_explicites = false;
-
-	/**
-	 * Nom de la variable PHP stockant le noms de doublons utilisés "$doublons_index"
-	 * @var string|null */
-	public $doublons;
-
-	var $partie, $total_parties,$mode_partie='';
-	var $externe = ''; # appel a partir d'une autre boucle (recursion)
-	// champs pour la construction de la requete SQL
-	var $select = array();
-	var $from = array();
-	var $from_type = array();
-	var $where = array();
-	var $join = array();
-	var $having = array();
-	var $limit;
-	var $group = array();
-	var $order = array();
-	var $default_order = array();
-	var $date = 'date' ;
-	var $hash = "" ;
-	var $in = "" ;
-	var $sous_requete = false;
-	var $hierarchie = '';
-	var $statut = false; # definition/surcharge du statut des elements retournes
-	// champs pour la construction du corps PHP
-	var $show = array();
-	var $id_table;
-	var $primary;
-	var $return;
-	var $numrows = false;
-	var $cptrows = false;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 *
-	 * @var array */
-	public $descr = array();
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 * @var int */
-	public $ligne = 0;
-
-
-	var $modificateur = array(); // table pour stocker les modificateurs de boucle tels que tout, plat ..., utilisable par les plugins egalement
-
-	var $iterateur = ''; // type d'iterateur
-
-	// obsoletes, conserves provisoirement pour compatibilite
-	var $tout = false;
-	var $plat = false;
-	var $lien = false;
+    /**
+     * Type de noeud 
+     * @var string */
+    public $type = 'boucle';
+
+    /**
+     * Identifiant de la boucle
+     * @var string */
+    public $id_boucle;
+
+    /**
+     * Identifiant de la boucle parente
+     * @var string */
+    public $id_parent ='';
+
+    /**
+     * Partie optionnelle avant
+     * @var string|array */
+    public $avant = '';
+
+    /**
+     * Pour chaque élément
+     * @var string|array */
+    public $milieu = '';
+
+    /**
+     * Partie optionnelle après
+     * @var string|array */
+    public $apres = '';
+
+    /**
+     * Partie alternative, si pas de résultat dans la boucle
+     * @var string|array */
+    public $altern = '';
+
+    /**
+     * La boucle doit-elle sélectionner la langue ?
+     * @var string|null */
+    public $lang_select;
+
+    /**
+     * Alias de table d'application de la requête ou nom complet de la table SQL
+     * @var string|null */
+    public $type_requete;
+
+    /**
+     * La table est elle optionnelle ?
+     * 
+     * Si oui, aucune erreur ne sera générée si la table demandée n'est pas présente
+     * @var bool */
+    public $table_optionnelle = false;
+
+    /**
+     * Nom du fichier de connexion
+     * @var string */
+    public $sql_serveur = '';
+
+    /**
+     * Paramètres de la boucle
+     * 
+     * Description des paramètres passés à la boucle, qui servent ensuite
+     * au calcul des critères
+     *
+     * @var array */
+    public $param = array();
+
+    /**
+     * Critères de la boucle
+     * @var Critere[] */
+    public $criteres = array();
+
+    /**
+     * Textes insérés entre 2 éléments de boucle (critère inter)
+     * @var string[] */
+    public $separateur = array();
+
+    /**
+     * Liste des jointures possibles avec cette table
+     *
+     * Les jointures par défaut de la table sont complétées en priorité
+     * des jointures déclarées explicitement sur la boucle
+     * @see base_trouver_table_dist()
+     * @var array */
+    public $jointures = array();
+
+    /**
+     * Jointures explicites avec cette table
+     *
+     * Ces jointures sont utilisées en priorité par rapport aux jointures
+     * normales possibles pour retrouver les colonnes demandées extérieures
+     * à la boucle.
+     * @var string|bool */
+    public $jointures_explicites = false;
+
+    /**
+     * Nom de la variable PHP stockant le noms de doublons utilisés "$doublons_index"
+     * @var string|null */
+    public $doublons;
+
+    var $partie, $total_parties,$mode_partie='';
+    var $externe = ''; # appel a partir d'une autre boucle (recursion)
+    // champs pour la construction de la requete SQL
+    var $select = array();
+    var $from = array();
+    var $from_type = array();
+    var $where = array();
+    var $join = array();
+    var $having = array();
+    var $limit;
+    var $group = array();
+    var $order = array();
+    var $default_order = array();
+    var $date = 'date' ;
+    var $hash = "" ;
+    var $in = "" ;
+    var $sous_requete = false;
+    var $hierarchie = '';
+    var $statut = false; # definition/surcharge du statut des elements retournes
+    // champs pour la construction du corps PHP
+    var $show = array();
+    var $id_table;
+    var $primary;
+    var $return;
+    var $numrows = false;
+    var $cptrows = false;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     *
+     * @var array */
+    public $descr = array();
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     * @var int */
+    public $ligne = 0;
+
+
+    var $modificateur = array(); // table pour stocker les modificateurs de boucle tels que tout, plat ..., utilisable par les plugins egalement
+
+    var $iterateur = ''; // type d'iterateur
+
+    // obsoletes, conserves provisoirement pour compatibilite
+    var $tout = false;
+    var $plat = false;
+    var $lien = false;
 }
 
 /**
@@ -323,37 +323,37 @@ 
  * @package SPIP\Compilateur\AST
 **/
 class Critere {
-	/**
-	 * Type de noeud 
-	 * @var string */
-	public $type = 'critere';
-
-	/**
-	 * Opérateur (>, <, >=, IN, ...) 
-	 * @var null|string */
-	public $op;
-
-	/**
-	 * Présence d'une négation (truc !op valeur)
-	 * @var null|string */
-	public $not;
-
-	/**
-	 * Présence d'une exclusion (!truc op valeur)
-	 * @var null|string */
-	public $exclus;
-
-	/**
-	 * Paramètres du critère
-	 * - $param[0] : élément avant l'opérateur
-	 * - $param[1..n] : éléments après l'opérateur
-	 * @var array */
-	var $param = array();
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 * @var int */
-	public $ligne = 0;
+    /**
+     * Type de noeud 
+     * @var string */
+    public $type = 'critere';
+
+    /**
+     * Opérateur (>, <, >=, IN, ...) 
+     * @var null|string */
+    public $op;
+
+    /**
+     * Présence d'une négation (truc !op valeur)
+     * @var null|string */
+    public $not;
+
+    /**
+     * Présence d'une exclusion (!truc op valeur)
+     * @var null|string */
+    public $exclus;
+
+    /**
+     * Paramètres du critère
+     * - $param[0] : élément avant l'opérateur
+     * - $param[1..n] : éléments après l'opérateur
+     * @var array */
+    var $param = array();
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     * @var int */
+    public $ligne = 0;
 }
 
 /**
@@ -362,106 +362,106 @@ 
  * @package SPIP\Compilateur\AST
 **/
 class Champ {
-	/**
-	 * Type de noeud 
-	 * @var string */
-	public $type = 'champ';
-
-	/**
-	 * Nom du champ demandé. Exemple 'ID_ARTICLE' 
-	 * @var string|null */
-	public $nom_champ;
-
-	/**
-	 * Identifiant de la boucle parente si explicité
-	 * @var string|null */
-	public $nom_boucle= '';
-
-	/**
-	 * Partie optionnelle avant
-	 * @var null|string|array */
-	public $avant;
-
-	/**
-	 * Partie optionnelle après
-	 * @var null|string|array */
-	public $apres;
-
-	/**
-	 * Étoiles : annuler des automatismes
-	 *
-	 * - '*' annule les filtres automatiques
-	 * - '**' annule en plus les protections de scripts
-	 * @var null|string */
-	public $etoile;
-
-	/**
-	 * Arguments et filtres explicites sur la balise
-	 * - $param[0] contient les arguments de la balise
-	 * - $param[1..n] contient les filtres à appliquer à la balise
-	 * @var array */
-	public $param = array(); 
-
-	/**
-	 * Source des filtres  (compatibilité) (?)
-	 * @var array|null */
-	public $fonctions = array();
-
-	/**
-	 * Identifiant de la boucle
-	 * @var string */
-	public $id_boucle = '';
-
-	/**
-	 * AST du squelette, liste de toutes les boucles
-	 * @var Boucles[] */
-	public $boucles;
-
-	/**
-	 * Alias de table d'application de la requête ou nom complet de la table SQL
-	 * @var string|null */
-	public $type_requete;
-
-	/**
-	 * Résultat de la compilation: toujours une expression PHP
-	 * @var string */
-	public $code = '';
-
-	/**
-	 * Interdire les scripts
-	 * 
-	 * false si on est sûr de cette balise
-	 * @see interdire_scripts()
-	 * @var bool */
-	public $interdire_scripts = true;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 *
-	 * @var array */
-	public $descr = array();
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 * @var int */
-	public $ligne = 0;
-
-	/**
-	 * Drapeau pour reperer les balises calculées par une fonction explicite
-	 * @var bool */
-	public $balise_calculee = false;
+    /**
+     * Type de noeud 
+     * @var string */
+    public $type = 'champ';
+
+    /**
+     * Nom du champ demandé. Exemple 'ID_ARTICLE' 
+     * @var string|null */
+    public $nom_champ;
+
+    /**
+     * Identifiant de la boucle parente si explicité
+     * @var string|null */
+    public $nom_boucle= '';
+
+    /**
+     * Partie optionnelle avant
+     * @var null|string|array */
+    public $avant;
+
+    /**
+     * Partie optionnelle après
+     * @var null|string|array */
+    public $apres;
+
+    /**
+     * Étoiles : annuler des automatismes
+     *
+     * - '*' annule les filtres automatiques
+     * - '**' annule en plus les protections de scripts
+     * @var null|string */
+    public $etoile;
+
+    /**
+     * Arguments et filtres explicites sur la balise
+     * - $param[0] contient les arguments de la balise
+     * - $param[1..n] contient les filtres à appliquer à la balise
+     * @var array */
+    public $param = array(); 
+
+    /**
+     * Source des filtres  (compatibilité) (?)
+     * @var array|null */
+    public $fonctions = array();
+
+    /**
+     * Identifiant de la boucle
+     * @var string */
+    public $id_boucle = '';
+
+    /**
+     * AST du squelette, liste de toutes les boucles
+     * @var Boucles[] */
+    public $boucles;
+
+    /**
+     * Alias de table d'application de la requête ou nom complet de la table SQL
+     * @var string|null */
+    public $type_requete;
+
+    /**
+     * Résultat de la compilation: toujours une expression PHP
+     * @var string */
+    public $code = '';
+
+    /**
+     * Interdire les scripts
+     * 
+     * false si on est sûr de cette balise
+     * @see interdire_scripts()
+     * @var bool */
+    public $interdire_scripts = true;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     *
+     * @var array */
+    public $descr = array();
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     * @var int */
+    public $ligne = 0;
+
+    /**
+     * Drapeau pour reperer les balises calculées par une fonction explicite
+     * @var bool */
+    public $balise_calculee = false;
 }
 
 
@@ -469,94 +469,94 @@ 
  * Description d'une chaîne de langue
 **/
 class Idiome {
-	/**
-	 * Type de noeud 
-	 * @var string */
-	public $type = 'idiome';
-
-	/**
-	 * Clé de traduction demandée. Exemple 'item_oui'
-	 * @var string */
-	public $nom_champ = "";
-
-	/**
-	 * Module de langue où chercher la clé de traduction. Exemple 'medias'
-	 * @var string */
-	public $module = "";
-
-	/**
-	 * Arguments à passer à la chaîne
-	 * @var array */
-	public $arg = array();
-
-	/**
-	 * Filtres à appliquer au résultat
-	 * @var array */
-	public $param = array();
-
-	/**
-	 * Source des filtres  (compatibilité) (?)
-	 * @var array|null */
-	public $fonctions = array();
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 * @var string|array */
-	public $avant = '';
-
-	/**
-	 * Inutilisé, propriété générique de l'AST
-	 * @var string|array */
-	public $apres = '';
-
-	/**
-	 * Identifiant de la boucle
-	 * @var string */
-	public $id_boucle = '';
-
-	/**
-	 * AST du squelette, liste de toutes les boucles
-	 * @var Boucles[] */
-	public $boucles;
-
-	/**
-	 * Alias de table d'application de la requête ou nom complet de la table SQL
-	 * @var string|null */
-	public $type_requete;
-
-	/**
-	 * Résultat de la compilation: toujours une expression PHP
-	 * @var string */
-	public $code = '';
-
-	/**
-	 * Interdire les scripts
-	 * @see interdire_scripts()
-	 * @var bool */
-	public $interdire_scripts = false;
-
-	/**
-	 * Description du squelette
-	 *
-	 * Sert pour la gestion d'erreur et la production de code dependant du contexte
-	 *
-	 * Peut contenir les index :
-	 * - nom : Nom du fichier de cache
-	 * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
-	 * - sourcefile : Chemin du squelette
-	 * - squelette : Code du squelette
-	 * - id_mere : Identifiant de la boucle parente
-	 * - documents : Pour embed et img dans les textes
-	 * - session : Pour un cache sessionné par auteur
-	 * - niv : Niveau de tabulation
-	 *
-	 * @var array */
-	public $descr = array();
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 * @var int */
-	public $ligne = 0;
+    /**
+     * Type de noeud 
+     * @var string */
+    public $type = 'idiome';
+
+    /**
+     * Clé de traduction demandée. Exemple 'item_oui'
+     * @var string */
+    public $nom_champ = "";
+
+    /**
+     * Module de langue où chercher la clé de traduction. Exemple 'medias'
+     * @var string */
+    public $module = "";
+
+    /**
+     * Arguments à passer à la chaîne
+     * @var array */
+    public $arg = array();
+
+    /**
+     * Filtres à appliquer au résultat
+     * @var array */
+    public $param = array();
+
+    /**
+     * Source des filtres  (compatibilité) (?)
+     * @var array|null */
+    public $fonctions = array();
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     * @var string|array */
+    public $avant = '';
+
+    /**
+     * Inutilisé, propriété générique de l'AST
+     * @var string|array */
+    public $apres = '';
+
+    /**
+     * Identifiant de la boucle
+     * @var string */
+    public $id_boucle = '';
+
+    /**
+     * AST du squelette, liste de toutes les boucles
+     * @var Boucles[] */
+    public $boucles;
+
+    /**
+     * Alias de table d'application de la requête ou nom complet de la table SQL
+     * @var string|null */
+    public $type_requete;
+
+    /**
+     * Résultat de la compilation: toujours une expression PHP
+     * @var string */
+    public $code = '';
+
+    /**
+     * Interdire les scripts
+     * @see interdire_scripts()
+     * @var bool */
+    public $interdire_scripts = false;
+
+    /**
+     * Description du squelette
+     *
+     * Sert pour la gestion d'erreur et la production de code dependant du contexte
+     *
+     * Peut contenir les index :
+     * - nom : Nom du fichier de cache
+     * - gram : Nom de la grammaire du squelette (détermine le phraseur à utiliser)
+     * - sourcefile : Chemin du squelette
+     * - squelette : Code du squelette
+     * - id_mere : Identifiant de la boucle parente
+     * - documents : Pour embed et img dans les textes
+     * - session : Pour un cache sessionné par auteur
+     * - niv : Niveau de tabulation
+     *
+     * @var array */
+    public $descr = array();
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     * @var int */
+    public $ligne = 0;
 }
 
 /**
@@ -565,22 +565,22 @@ 
  * @package SPIP\Compilateur\AST
 **/
 class Polyglotte {
-	/**
-	 * Type de noeud 
-	 * @var string */
-	public $type = 'polyglotte';
-
-	/**
-	 * Tableau des traductions possibles classées par langue
-	 *
-	 * Tableau code de langue => texte
-	 * @var array */
-	var $traductions = array();
-
-	/**
-	 * Numéro de ligne dans le code source du squelette
-	 * @var int */
-	public $ligne = 0;
+    /**
+     * Type de noeud 
+     * @var string */
+    public $type = 'polyglotte';
+
+    /**
+     * Tableau des traductions possibles classées par langue
+     *
+     * Tableau code de langue => texte
+     * @var array */
+    var $traductions = array();
+
+    /**
+     * Numéro de ligne dans le code source du squelette
+     * @var int */
+    public $ligne = 0;
 }
 
 
@@ -606,87 +606,87 @@ 
  * @return void
  */
 function declarer_interfaces(){
-	global $exceptions_des_tables, $table_des_tables, $table_date, $table_titre, $table_statut;
-
-	$table_des_tables['articles']='articles';
-	$table_des_tables['auteurs']='auteurs';
-	$table_des_tables['rubriques']='rubriques';
-	$table_des_tables['hierarchie']='rubriques';
-
-	// definition des statuts de publication
-	global $tables_statut;
-	$table_statut = array();
-
-	//
-	// tableau des tables de jointures
-	// Ex: gestion du critere {id_mot} dans la boucle(ARTICLES)
-	global $tables_jointures;
-	$tables_jointures = array();
-	$tables_jointures['spip_jobs'][] = 'jobs_liens';
-
-	global  $exceptions_des_jointures;
-	#$exceptions_des_jointures['titre_mot'] = array('spip_mots', 'titre'); // pour exemple
-	$exceptions_des_jointures['profondeur'] = array('spip_rubriques', 'profondeur');
-
-	global  $table_des_traitements;
-
-	define('_TRAITEMENT_TYPO', 'typo(%s, "TYPO", $connect, $Pile[0])');
-	define('_TRAITEMENT_RACCOURCIS', 'propre(%s, $connect, $Pile[0])');
-	define('_TRAITEMENT_TYPO_SANS_NUMERO', 'typo(supprimer_numero(%s), "TYPO", $connect, $Pile[0])');
-
-	$table_des_traitements['BIO'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['CHAPO'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['DATE'][]= 'normaliser_date(%s)';
-	$table_des_traitements['DATE_REDAC'][]= 'normaliser_date(%s)';
-	$table_des_traitements['DATE_MODIF'][]= 'normaliser_date(%s)';
-	$table_des_traitements['DATE_NOUVEAUTES'][]= 'normaliser_date(%s)';
-	$table_des_traitements['DESCRIPTIF'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['INTRODUCTION'][]= 'PtoBR('. _TRAITEMENT_RACCOURCIS .')';
-	$table_des_traitements['NOM_SITE_SPIP'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['NOM'][]= _TRAITEMENT_TYPO_SANS_NUMERO;
-	$table_des_traitements['AUTEUR'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['PS'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['SOURCE'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['SOUSTITRE'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['SURTITRE'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['TAGS'][]= '%s';
-	$table_des_traitements['TEXTE'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['TITRE'][]= _TRAITEMENT_TYPO_SANS_NUMERO;
-	$table_des_traitements['TYPE'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['DESCRIPTIF_SITE_SPIP'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['SLOGAN_SITE_SPIP'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['ENV'][]= 'entites_html(%s,true)';
-
-	// valeur par defaut pour les balises non listees ci-dessus
-	$table_des_traitements['*'][]= false; // pas de traitement, mais permet au compilo de trouver la declaration suivante
-	// toujours securiser les DATA
-	$table_des_traitements['*']['DATA']= 'safehtml(%s)';
-	// expliciter pour VALEUR qui est un champ calcule et ne sera pas protege par le catch-all *
-	$table_des_traitements['VALEUR']['DATA']= 'safehtml(%s)';
-
-
-	// gerer l'affectation en 2 temps car si le pipe n'est pas encore declare, on ecrase les globales
-	$interfaces = pipeline('declarer_tables_interfaces',
-			array(
-			'table_des_tables'=>$table_des_tables,
-			'exceptions_des_tables'=>$exceptions_des_tables,
-			'table_date'=>$table_date,
-			'table_titre'=>$table_titre,
-			'tables_jointures'=>$tables_jointures,
-			'exceptions_des_jointures'=>$exceptions_des_jointures,
-			'table_des_traitements'=>$table_des_traitements,
-			'table_statut'=>$table_statut,
-			));
-	if ($interfaces){
-			$table_des_tables = $interfaces['table_des_tables'];
-			$exceptions_des_tables = $interfaces['exceptions_des_tables'];
-			$table_date = $interfaces['table_date'];
-			$table_titre = $interfaces['table_titre'];
-			$tables_jointures = $interfaces['tables_jointures'];
-			$exceptions_des_jointures = $interfaces['exceptions_des_jointures'];
-			$table_des_traitements = $interfaces['table_des_traitements'];
-	    $table_statut = $interfaces['table_statut'];
-	}
+    global $exceptions_des_tables, $table_des_tables, $table_date, $table_titre, $table_statut;
+
+    $table_des_tables['articles']='articles';
+    $table_des_tables['auteurs']='auteurs';
+    $table_des_tables['rubriques']='rubriques';
+    $table_des_tables['hierarchie']='rubriques';
+
+    // definition des statuts de publication
+    global $tables_statut;
+    $table_statut = array();
+
+    //
+    // tableau des tables de jointures
+    // Ex: gestion du critere {id_mot} dans la boucle(ARTICLES)
+    global $tables_jointures;
+    $tables_jointures = array();
+    $tables_jointures['spip_jobs'][] = 'jobs_liens';
+
+    global  $exceptions_des_jointures;
+    #$exceptions_des_jointures['titre_mot'] = array('spip_mots', 'titre'); // pour exemple
+    $exceptions_des_jointures['profondeur'] = array('spip_rubriques', 'profondeur');
+
+    global  $table_des_traitements;
+
+    define('_TRAITEMENT_TYPO', 'typo(%s, "TYPO", $connect, $Pile[0])');
+    define('_TRAITEMENT_RACCOURCIS', 'propre(%s, $connect, $Pile[0])');
+    define('_TRAITEMENT_TYPO_SANS_NUMERO', 'typo(supprimer_numero(%s), "TYPO", $connect, $Pile[0])');
+
+    $table_des_traitements['BIO'][]= _TRAITEMENT_RACCOURCIS;
+    $table_des_traitements['CHAPO'][]= _TRAITEMENT_RACCOURCIS;
+    $table_des_traitements['DATE'][]= 'normaliser_date(%s)';
+    $table_des_traitements['DATE_REDAC'][]= 'normaliser_date(%s)';
+    $table_des_traitements['DATE_MODIF'][]= 'normaliser_date(%s)';
+    $table_des_traitements['DATE_NOUVEAUTES'][]= 'normaliser_date(%s)';
+    $table_des_traitements['DESCRIPTIF'][]= _TRAITEMENT_RACCOURCIS;
+    $table_des_traitements['INTRODUCTION'][]= 'PtoBR('. _TRAITEMENT_RACCOURCIS .')';
+    $table_des_traitements['NOM_SITE_SPIP'][]= _TRAITEMENT_TYPO;
+    $table_des_traitements['NOM'][]= _TRAITEMENT_TYPO_SANS_NUMERO;
+    $table_des_traitements['AUTEUR'][]= _TRAITEMENT_TYPO;
+    $table_des_traitements['PS'][]= _TRAITEMENT_RACCOURCIS;
+    $table_des_traitements['SOURCE'][]= _TRAITEMENT_TYPO;
+    $table_des_traitements['SOUSTITRE'][]= _TRAITEMENT_TYPO;
+    $table_des_traitements['SURTITRE'][]= _TRAITEMENT_TYPO;
+    $table_des_traitements['TAGS'][]= '%s';
+    $table_des_traitements['TEXTE'][]= _TRAITEMENT_RACCOURCIS;
+    $table_des_traitements['TITRE'][]= _TRAITEMENT_TYPO_SANS_NUMERO;
+    $table_des_traitements['TYPE'][]= _TRAITEMENT_TYPO;
+    $table_des_traitements['DESCRIPTIF_SITE_SPIP'][]= _TRAITEMENT_RACCOURCIS;
+    $table_des_traitements['SLOGAN_SITE_SPIP'][]= _TRAITEMENT_TYPO;
+    $table_des_traitements['ENV'][]= 'entites_html(%s,true)';
+
+    // valeur par defaut pour les balises non listees ci-dessus
+    $table_des_traitements['*'][]= false; // pas de traitement, mais permet au compilo de trouver la declaration suivante
+    // toujours securiser les DATA
+    $table_des_traitements['*']['DATA']= 'safehtml(%s)';
+    // expliciter pour VALEUR qui est un champ calcule et ne sera pas protege par le catch-all *
+    $table_des_traitements['VALEUR']['DATA']= 'safehtml(%s)';
+
+
+    // gerer l'affectation en 2 temps car si le pipe n'est pas encore declare, on ecrase les globales
+    $interfaces = pipeline('declarer_tables_interfaces',
+            array(
+            'table_des_tables'=>$table_des_tables,
+            'exceptions_des_tables'=>$exceptions_des_tables,
+            'table_date'=>$table_date,
+            'table_titre'=>$table_titre,
+            'tables_jointures'=>$tables_jointures,
+            'exceptions_des_jointures'=>$exceptions_des_jointures,
+            'table_des_traitements'=>$table_des_traitements,
+            'table_statut'=>$table_statut,
+            ));
+    if ($interfaces){
+            $table_des_tables = $interfaces['table_des_tables'];
+            $exceptions_des_tables = $interfaces['exceptions_des_tables'];
+            $table_date = $interfaces['table_date'];
+            $table_titre = $interfaces['table_titre'];
+            $tables_jointures = $interfaces['tables_jointures'];
+            $exceptions_des_jointures = $interfaces['exceptions_des_jointures'];
+            $table_des_traitements = $interfaces['table_des_traitements'];
+        $table_statut = $interfaces['table_statut'];
+    }
 }
 
 declarer_interfaces();

Spacing +38 added lines, -38 removed lines

@@ -168,7 +168,7 @@ 
 	/**
 	 * Identifiant de la boucle parente
 	 * @var string */
-	public $id_parent ='';
+	public $id_parent = '';
 
 	/**
 	 * Partie optionnelle avant
@@ -254,7 +254,7 @@ 
 	 * @var string|null */
 	public $doublons;
 
-	var $partie, $total_parties,$mode_partie='';
+	var $partie, $total_parties, $mode_partie = '';
 	var $externe = ''; # appel a partir d'une autre boucle (recursion)
 	// champs pour la construction de la requete SQL
 	var $select = array();
@@ -267,9 +267,9 @@ 
 	var $group = array();
 	var $order = array();
 	var $default_order = array();
-	var $date = 'date' ;
-	var $hash = "" ;
-	var $in = "" ;
+	var $date = 'date';
+	var $hash = "";
+	var $in = "";
 	var $sous_requete = false;
 	var $hierarchie = '';
 	var $statut = false; # definition/surcharge du statut des elements retournes
@@ -375,7 +375,7 @@ 
 	/**
 	 * Identifiant de la boucle parente si explicité
 	 * @var string|null */
-	public $nom_boucle= '';
+	public $nom_boucle = '';
 
 	/**
 	 * Partie optionnelle avant
@@ -586,7 +586,7 @@ 
 
 
 global $table_criteres_infixes;
-$table_criteres_infixes = array('<', '>', '<=', '>=', '==', '===', '!=', '!==', '<>',  '?');
+$table_criteres_infixes = array('<', '>', '<=', '>=', '==', '===', '!=', '!==', '<>', '?');
 
 global $exception_des_connect;
 $exception_des_connect[] = ''; // ne pas transmettre le connect='' par les inclure
@@ -605,13 +605,13 @@ 
  *
  * @return void
  */
-function declarer_interfaces(){
+function declarer_interfaces() {
 	global $exceptions_des_tables, $table_des_tables, $table_date, $table_titre, $table_statut;
 
-	$table_des_tables['articles']='articles';
-	$table_des_tables['auteurs']='auteurs';
-	$table_des_tables['rubriques']='rubriques';
-	$table_des_tables['hierarchie']='rubriques';
+	$table_des_tables['articles'] = 'articles';
+	$table_des_tables['auteurs'] = 'auteurs';
+	$table_des_tables['rubriques'] = 'rubriques';
+	$table_des_tables['hierarchie'] = 'rubriques';
 
 	// definition des statuts de publication
 	global $tables_statut;
@@ -634,35 +634,35 @@ 
 	define('_TRAITEMENT_RACCOURCIS', 'propre(%s, $connect, $Pile[0])');
 	define('_TRAITEMENT_TYPO_SANS_NUMERO', 'typo(supprimer_numero(%s), "TYPO", $connect, $Pile[0])');
 
-	$table_des_traitements['BIO'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['CHAPO'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['DATE'][]= 'normaliser_date(%s)';
-	$table_des_traitements['DATE_REDAC'][]= 'normaliser_date(%s)';
-	$table_des_traitements['DATE_MODIF'][]= 'normaliser_date(%s)';
-	$table_des_traitements['DATE_NOUVEAUTES'][]= 'normaliser_date(%s)';
-	$table_des_traitements['DESCRIPTIF'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['INTRODUCTION'][]= 'PtoBR('. _TRAITEMENT_RACCOURCIS .')';
-	$table_des_traitements['NOM_SITE_SPIP'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['NOM'][]= _TRAITEMENT_TYPO_SANS_NUMERO;
-	$table_des_traitements['AUTEUR'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['PS'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['SOURCE'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['SOUSTITRE'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['SURTITRE'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['TAGS'][]= '%s';
-	$table_des_traitements['TEXTE'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['TITRE'][]= _TRAITEMENT_TYPO_SANS_NUMERO;
-	$table_des_traitements['TYPE'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['DESCRIPTIF_SITE_SPIP'][]= _TRAITEMENT_RACCOURCIS;
-	$table_des_traitements['SLOGAN_SITE_SPIP'][]= _TRAITEMENT_TYPO;
-	$table_des_traitements['ENV'][]= 'entites_html(%s,true)';
+	$table_des_traitements['BIO'][] = _TRAITEMENT_RACCOURCIS;
+	$table_des_traitements['CHAPO'][] = _TRAITEMENT_RACCOURCIS;
+	$table_des_traitements['DATE'][] = 'normaliser_date(%s)';
+	$table_des_traitements['DATE_REDAC'][] = 'normaliser_date(%s)';
+	$table_des_traitements['DATE_MODIF'][] = 'normaliser_date(%s)';
+	$table_des_traitements['DATE_NOUVEAUTES'][] = 'normaliser_date(%s)';
+	$table_des_traitements['DESCRIPTIF'][] = _TRAITEMENT_RACCOURCIS;
+	$table_des_traitements['INTRODUCTION'][] = 'PtoBR('._TRAITEMENT_RACCOURCIS.')';
+	$table_des_traitements['NOM_SITE_SPIP'][] = _TRAITEMENT_TYPO;
+	$table_des_traitements['NOM'][] = _TRAITEMENT_TYPO_SANS_NUMERO;
+	$table_des_traitements['AUTEUR'][] = _TRAITEMENT_TYPO;
+	$table_des_traitements['PS'][] = _TRAITEMENT_RACCOURCIS;
+	$table_des_traitements['SOURCE'][] = _TRAITEMENT_TYPO;
+	$table_des_traitements['SOUSTITRE'][] = _TRAITEMENT_TYPO;
+	$table_des_traitements['SURTITRE'][] = _TRAITEMENT_TYPO;
+	$table_des_traitements['TAGS'][] = '%s';
+	$table_des_traitements['TEXTE'][] = _TRAITEMENT_RACCOURCIS;
+	$table_des_traitements['TITRE'][] = _TRAITEMENT_TYPO_SANS_NUMERO;
+	$table_des_traitements['TYPE'][] = _TRAITEMENT_TYPO;
+	$table_des_traitements['DESCRIPTIF_SITE_SPIP'][] = _TRAITEMENT_RACCOURCIS;
+	$table_des_traitements['SLOGAN_SITE_SPIP'][] = _TRAITEMENT_TYPO;
+	$table_des_traitements['ENV'][] = 'entites_html(%s,true)';
 
 	// valeur par defaut pour les balises non listees ci-dessus
-	$table_des_traitements['*'][]= false; // pas de traitement, mais permet au compilo de trouver la declaration suivante
+	$table_des_traitements['*'][] = false; // pas de traitement, mais permet au compilo de trouver la declaration suivante
 	// toujours securiser les DATA
-	$table_des_traitements['*']['DATA']= 'safehtml(%s)';
+	$table_des_traitements['*']['DATA'] = 'safehtml(%s)';
 	// expliciter pour VALEUR qui est un champ calcule et ne sera pas protege par le catch-all *
-	$table_des_traitements['VALEUR']['DATA']= 'safehtml(%s)';
+	$table_des_traitements['VALEUR']['DATA'] = 'safehtml(%s)';
 
 
 	// gerer l'affectation en 2 temps car si le pipe n'est pas encore declare, on ecrase les globales
@@ -677,7 +677,7 @@ 
 			'table_des_traitements'=>$table_des_traitements,
 			'table_statut'=>$table_statut,
 			));
-	if ($interfaces){
+	if ($interfaces) {
 			$table_des_tables = $interfaces['table_des_tables'];
 			$exceptions_des_tables = $interfaces['exceptions_des_tables'];
 			$table_date = $interfaces['table_date'];

Braces +3 added lines, -1 removed lines

@@ -16,7 +16,9 @@
  * @package SPIP\Compilateur\AST
 **/
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 
 /**

ecrire/public/balises.php

Indentation +807 added lines, -807 removed lines

@@ -21,74 +21,74 @@ 
 
 // http://doc.spip.org/@interprete_argument_balise
 function interprete_argument_balise($n,$p) {
-	if (($p->param) && (!$p->param[0][0]) && (count($p->param[0])>$n))
-		return calculer_liste($p->param[0][$n],
-			$p->descr,
-			$p->boucles,
-			$p->id_boucle);
-	else
-		return NULL;
+    if (($p->param) && (!$p->param[0][0]) && (count($p->param[0])>$n))
+        return calculer_liste($p->param[0][$n],
+            $p->descr,
+            $p->boucles,
+            $p->id_boucle);
+    else
+        return NULL;
 }
 //
 // Definition des balises
 //
 // http://doc.spip.org/@balise_NOM_SITE_SPIP_dist
 function balise_NOM_SITE_SPIP_dist($p) {
-	$p->code = "\$GLOBALS['meta']['nom_site']";
-	#$p->interdire_scripts = true;
-	return $p;
+    $p->code = "\$GLOBALS['meta']['nom_site']";
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_EMAIL_WEBMASTER_dist
 function balise_EMAIL_WEBMASTER_dist($p) {
-	$p->code = "\$GLOBALS['meta']['email_webmaster']";
-	#$p->interdire_scripts = true;
-	return $p;
+    $p->code = "\$GLOBALS['meta']['email_webmaster']";
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_DESCRIPTIF_SITE_SPIP_dist
 function balise_DESCRIPTIF_SITE_SPIP_dist($p) {
-	$p->code = "\$GLOBALS['meta']['descriptif_site']";
-	#$p->interdire_scripts = true;
-	return $p;
+    $p->code = "\$GLOBALS['meta']['descriptif_site']";
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_CHARSET_dist
 function balise_CHARSET_dist($p) {
-	$p->code = "\$GLOBALS['meta']['charset']";
-	#$p->interdire_scripts = true;
-	return $p;
+    $p->code = "\$GLOBALS['meta']['charset']";
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_LANG_LEFT_dist
 function balise_LANG_LEFT_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	$p->code = "lang_dir($_lang, 'left','right')";
-	$p->interdire_scripts = false;
-	return $p;
+    $_lang = champ_sql('lang', $p);
+    $p->code = "lang_dir($_lang, 'left','right')";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_LANG_RIGHT_dist
 function balise_LANG_RIGHT_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	$p->code = "lang_dir($_lang, 'right','left')";
-	$p->interdire_scripts = false;
-	return $p;
+    $_lang = champ_sql('lang', $p);
+    $p->code = "lang_dir($_lang, 'right','left')";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_LANG_DIR_dist
 function balise_LANG_DIR_dist($p) {
-	$_lang = champ_sql('lang', $p);
-	$p->code = "lang_dir($_lang, 'ltr','rtl')";
-	$p->interdire_scripts = false;
-	return $p;
+    $_lang = champ_sql('lang', $p);
+    $p->code = "lang_dir($_lang, 'ltr','rtl')";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_PUCE_dist
 function balise_PUCE_dist($p) {
-	$p->code = "definir_puce()";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = "definir_puce()";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // #DATE
@@ -97,67 +97,67 @@ 
 // http://www.spip.net/fr_article1971.html
 // http://doc.spip.org/@balise_DATE_dist
 function balise_DATE_dist ($p) {
-	$d = champ_sql('date', $p);
+    $d = champ_sql('date', $p);
 #	if ($d === "@\$Pile[0]['date']")
 #		$d = "isset(\$Pile[0]['date']) ? $d : time()";
-	$p->code = $d;
-	return $p;
+    $p->code = $d;
+    return $p;
 }
 
 // #DATE_REDAC
 // http://www.spip.net/fr_article1971.html
 // http://doc.spip.org/@balise_DATE_REDAC_dist
 function balise_DATE_REDAC_dist ($p) {
-	$d = champ_sql('date_redac', $p);
+    $d = champ_sql('date_redac', $p);
 #	if ($d === "@\$Pile[0]['date_redac']")
 #		$d = "isset(\$Pile[0]['date_redac']) ? $d : time()";
-	$p->code = $d;
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = $d;
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // #DATE_MODIF
 // http://www.spip.net/fr_article1971.html
 // http://doc.spip.org/@balise_DATE_MODIF_dist
 function balise_DATE_MODIF_dist ($p) {
-	$p->code = champ_sql('date_modif', $p);
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = champ_sql('date_modif', $p);
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // #DATE_NOUVEAUTES
 // http://www.spip.net/fr_article1971.html
 // http://doc.spip.org/@balise_DATE_NOUVEAUTES_dist
 function balise_DATE_NOUVEAUTES_dist($p) {
-	$p->code = "((\$GLOBALS['meta']['quoi_de_neuf'] == 'oui'
+    $p->code = "((\$GLOBALS['meta']['quoi_de_neuf'] == 'oui'
 	AND isset(\$GLOBALS['meta']['dernier_envoi_neuf'])) ?
 	\$GLOBALS['meta']['dernier_envoi_neuf'] :
 	\"'0000-00-00'\")";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_DOSSIER_SQUELETTE_dist
 function balise_DOSSIER_SQUELETTE_dist($p) {
-	$code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE));
-	$p->code = "_DIR_RACINE . '$code'" .
-	$p->interdire_scripts = false;
-	return $p;
+    $code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE));
+    $p->code = "_DIR_RACINE . '$code'" .
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_SQUELETTE_dist
 function balise_SQUELETTE_dist($p) {
-	$code = addslashes($p->descr['sourcefile']);
-	$p->code = "'$code'" .
-	$p->interdire_scripts = false;
-	return $p;
+    $code = addslashes($p->descr['sourcefile']);
+    $p->code = "'$code'" .
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_SPIP_VERSION_dist
 function balise_SPIP_VERSION_dist($p) {
-	$p->code = "spip_version()";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = "spip_version()";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -182,105 +182,105 @@ 
  * 		Pile complétée par le code à générer
 **/
 function balise_NOM_SITE_dist($p) {
-	if (!$p->etoile) {
-		$p->code = "supprimer_numero(calculer_url(" .
-		champ_sql('url_site',$p) ."," .
-		champ_sql('nom_site',$p) .
-		", 'titre', \$connect, false))";
-	} else
-		$p->code = champ_sql('nom_site',$p);
+    if (!$p->etoile) {
+        $p->code = "supprimer_numero(calculer_url(" .
+        champ_sql('url_site',$p) ."," .
+        champ_sql('nom_site',$p) .
+        ", 'titre', \$connect, false))";
+    } else
+        $p->code = champ_sql('nom_site',$p);
 
-	$p->interdire_scripts = true;
-	return $p;
+    $p->interdire_scripts = true;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_NOTES_dist
 function balise_NOTES_dist($p) {
-	// Recuperer les notes
-	$p->code = 'calculer_notes()';
-	#$p->interdire_scripts = true;
-	return $p;
+    // Recuperer les notes
+    $p->code = 'calculer_notes()';
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_RECHERCHE_dist
 function balise_RECHERCHE_dist($p) {
-	$p->code = 'entites_html(_request("recherche"))';
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = 'entites_html(_request("recherche"))';
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_COMPTEUR_BOUCLE_dist
 function balise_COMPTEUR_BOUCLE_dist($p) {
-	$b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
-	if ($b === '') {
-		$msg = array('zbug_champ_hors_boucle',
-				array('champ' => '#COMPTEUR_BOUCLE')
-			  );
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = "\$Numrows['$b']['compteur_boucle']";
-		$p->boucles[$b]->cptrows = true;
-		$p->interdire_scripts = false;
-		return $p;
-	}
+    $b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
+    if ($b === '') {
+        $msg = array('zbug_champ_hors_boucle',
+                array('champ' => '#COMPTEUR_BOUCLE')
+                );
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "\$Numrows['$b']['compteur_boucle']";
+        $p->boucles[$b]->cptrows = true;
+        $p->interdire_scripts = false;
+        return $p;
+    }
 }
 
 // http://doc.spip.org/@balise_TOTAL_BOUCLE_dist
 function balise_TOTAL_BOUCLE_dist($p) {
-	$b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
-	if ($b === '' || !isset($p->boucles[$b])) {
-		$msg = array('zbug_champ_hors_boucle',
-				array('champ' => "#$b" . 'TOTAL_BOUCLE')
-			  );
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = "\$Numrows['$b']['total']";
-		$p->boucles[$b]->numrows = true;
-		$p->interdire_scripts = false;
-	}
-	return $p;
+    $b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
+    if ($b === '' || !isset($p->boucles[$b])) {
+        $msg = array('zbug_champ_hors_boucle',
+                array('champ' => "#$b" . 'TOTAL_BOUCLE')
+                );
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "\$Numrows['$b']['total']";
+        $p->boucles[$b]->numrows = true;
+        $p->interdire_scripts = false;
+    }
+    return $p;
 }
 
 // Si on est hors d'une boucle {recherche}, ne pas "prendre" cette balise
 // http://doc.spip.org/@balise_POINTS_dist
 function balise_POINTS_dist($p) {
-	return rindex_pile($p, 'points', 'recherche');
+    return rindex_pile($p, 'points', 'recherche');
 }
 
 // http://doc.spip.org/@balise_POPULARITE_ABSOLUE_dist
 function balise_POPULARITE_ABSOLUE_dist($p) {
-	$p->code = 'ceil(' .
-	champ_sql('popularite', $p) .
-	')';
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = 'ceil(' .
+    champ_sql('popularite', $p) .
+    ')';
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_POPULARITE_SITE_dist
 function balise_POPULARITE_SITE_dist($p) {
-	$p->code = 'ceil($GLOBALS["meta"][\'popularite_total\'])';
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = 'ceil($GLOBALS["meta"][\'popularite_total\'])';
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_POPULARITE_MAX_dist
 function balise_POPULARITE_MAX_dist($p) {
-	$p->code = 'ceil($GLOBALS["meta"][\'popularite_max\'])';
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = 'ceil($GLOBALS["meta"][\'popularite_max\'])';
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // http://doc.spip.org/@balise_EXPOSE_dist
 function balise_EXPOSE_dist($p) {
-	$on = "'on'";
-	$off= "''";
-	if (($v = interprete_argument_balise(1,$p))!==NULL){
-		$on = $v;
-		if (($v = interprete_argument_balise(2,$p))!==NULL)
-			$off = $v;
+    $on = "'on'";
+    $off= "''";
+    if (($v = interprete_argument_balise(1,$p))!==NULL){
+        $on = $v;
+        if (($v = interprete_argument_balise(2,$p))!==NULL)
+            $off = $v;
 
-	}
-	return calculer_balise_expose($p, $on, $off);
+    }
+    return calculer_balise_expose($p, $on, $off);
 }
 
 // #VALEUR renvoie le champ valeur
@@ -288,44 +288,44 @@ 
 // #VALEUR{a/b} renvoie #VALEUR|table_valeur{a/b}
 // http://doc.spip.org/@balise_VALEUR_dist
 function balise_VALEUR_dist($p) {
-	$b = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
-	$p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);;
-	if (($v = interprete_argument_balise(1,$p))!==NULL){
-		$p->code = 'table_valeur('.$p->code.', '.$v.')';
-	}
-	$p->interdire_scripts = true;
-	return $p;
+    $b = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
+    $p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);;
+    if (($v = interprete_argument_balise(1,$p))!==NULL){
+        $p->code = 'table_valeur('.$p->code.', '.$v.')';
+    }
+    $p->interdire_scripts = true;
+    return $p;
 }
 
 // http://doc.spip.org/@calculer_balise_expose
 function calculer_balise_expose($p, $on, $off)
 {
-	$b = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
-	$key = $p->boucles[$b]->primary;
-	$type = $p->boucles[$p->id_boucle]->primary;
-	$desc = $p->boucles[$b]->show;
-	$connect = sql_quote($p->boucles[$b]->sql_serveur);
+    $b = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
+    $key = $p->boucles[$b]->primary;
+    $type = $p->boucles[$p->id_boucle]->primary;
+    $desc = $p->boucles[$b]->show;
+    $connect = sql_quote($p->boucles[$b]->sql_serveur);
 
-	if (!$key) {
-		$msg = array('zbug_champ_hors_boucle', array('champ' => '#EXPOSER'));
-		erreur_squelette($msg, $p);
-	}
+    if (!$key) {
+        $msg = array('zbug_champ_hors_boucle', array('champ' => '#EXPOSER'));
+        erreur_squelette($msg, $p);
+    }
 
-	// Ne pas utiliser champ_sql, on jongle avec le nom boucle explicite
-	$c = index_pile($p->id_boucle, $type, $p->boucles);
+    // Ne pas utiliser champ_sql, on jongle avec le nom boucle explicite
+    $c = index_pile($p->id_boucle, $type, $p->boucles);
 
-	if (isset($desc['field']['id_parent'])) {
-		$parent = 0; // pour if (!$parent) dans calculer_expose
-	} elseif (isset($desc['field']['id_rubrique'])) {
-		$parent = index_pile($p->id_boucle, 'id_rubrique', $p->boucles, $b);
-	} elseif  (isset($desc['field']['id_groupe'])) {
-		$parent = index_pile($p->id_boucle, 'id_groupe', $p->boucles, $b);
-	} else $parent = "''";
+    if (isset($desc['field']['id_parent'])) {
+        $parent = 0; // pour if (!$parent) dans calculer_expose
+    } elseif (isset($desc['field']['id_rubrique'])) {
+        $parent = index_pile($p->id_boucle, 'id_rubrique', $p->boucles, $b);
+    } elseif  (isset($desc['field']['id_groupe'])) {
+        $parent = index_pile($p->id_boucle, 'id_groupe', $p->boucles, $b);
+    } else $parent = "''";
 
-	$p->code = "(calcul_exposer($c, '$type', \$Pile[0], $parent, '$key', $connect) ? $on : $off)";
+    $p->code = "(calcul_exposer($c, '$type', \$Pile[0], $parent, '$key', $connect) ? $on : $off)";
 
-	$p->interdire_scripts = false;
-	return $p;
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -336,15 +336,15 @@ 
 
 // http://doc.spip.org/@balise_DEBUT_SURLIGNE_dist
 function balise_DEBUT_SURLIGNE_dist($p) {
-	include_spip('inc/surligne');
-	$p->code = "'<!-- " . MARQUEUR_SURLIGNE . " -->'";
-	return $p;
+    include_spip('inc/surligne');
+    $p->code = "'<!-- " . MARQUEUR_SURLIGNE . " -->'";
+    return $p;
 }
 // http://doc.spip.org/@balise_FIN_SURLIGNE_dist
 function balise_FIN_SURLIGNE_dist($p) {
-	include_spip('inc/surligne');
-	$p->code = "'<!-- " . MARQUEUR_FSURLIGNE . "-->'";
-	return $p;
+    include_spip('inc/surligne');
+    $p->code = "'<!-- " . MARQUEUR_FSURLIGNE . "-->'";
+    return $p;
 }
 
 
@@ -354,42 +354,42 @@ 
 // http://doc.spip.org/@balise_INTRODUCTION_dist
 function balise_INTRODUCTION_dist($p) {
 
-	$type = $p->type_requete;
+    $type = $p->type_requete;
 
-	$_texte = champ_sql('texte', $p);
-	$_descriptif = ($type == 'articles' OR $type == 'rubriques') ? champ_sql('descriptif', $p) : "''";
+    $_texte = champ_sql('texte', $p);
+    $_descriptif = ($type == 'articles' OR $type == 'rubriques') ? champ_sql('descriptif', $p) : "''";
 
-	if ($type == 'articles') {
-		$_chapo = champ_sql('chapo', $p);
-		$_texte = "(strlen($_descriptif))
+    if ($type == 'articles') {
+        $_chapo = champ_sql('chapo', $p);
+        $_texte = "(strlen($_descriptif))
 		? ''
 		: $_chapo . \"\\n\\n\" . $_texte";
-	}
-
-	// longueur en parametre, ou valeur par defaut
-	if (($v = interprete_argument_balise(1,$p))!==NULL) {
-		$longueur = 'intval('.$v.')';
-	} else {
-		switch ($type) {
-			case 'articles':
-				$longueur = '500';
-				break;
-			case 'breves':
-				$longueur = '300';
-				break;
-			case 'rubriques':
-			default:
-				$longueur = '600';
-				break;
-		}
-	}
-
-	$f = chercher_filtre('introduction');
-	$p->code = "$f($_descriptif, $_texte, $longueur, \$connect)";
-
-	#$p->interdire_scripts = true;
-	$p->etoile = '*'; // propre est deja fait dans le calcul de l'intro
-	return $p;
+    }
+
+    // longueur en parametre, ou valeur par defaut
+    if (($v = interprete_argument_balise(1,$p))!==NULL) {
+        $longueur = 'intval('.$v.')';
+    } else {
+        switch ($type) {
+            case 'articles':
+                $longueur = '500';
+                break;
+            case 'breves':
+                $longueur = '300';
+                break;
+            case 'rubriques':
+            default:
+                $longueur = '600';
+                break;
+        }
+    }
+
+    $f = chercher_filtre('introduction');
+    $p->code = "$f($_descriptif, $_texte, $longueur, \$connect)";
+
+    #$p->interdire_scripts = true;
+    $p->etoile = '*'; // propre est deja fait dans le calcul de l'intro
+    return $p;
 }
 
 
@@ -399,13 +399,13 @@ 
 // #LANG* n'affiche rien si aucune langue n'est trouvee dans le sql/le contexte
 // http://doc.spip.org/@balise_LANG_dist
 function balise_LANG_dist ($p) {
-	$_lang = champ_sql('lang', $p);
-	if (!$p->etoile)
-		$p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])";
-	else
-		$p->code = "spip_htmlentities($_lang)";
-	$p->interdire_scripts = false;
-	return $p;
+    $_lang = champ_sql('lang', $p);
+    if (!$p->etoile)
+        $p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])";
+    else
+        $p->code = "spip_htmlentities($_lang)";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // #LESAUTEURS
@@ -414,44 +414,44 @@ 
 // http://www.spip.net/fr_article911.html
 // http://doc.spip.org/@balise_LESAUTEURS_dist
 function balise_LESAUTEURS_dist ($p) {
-	// Cherche le champ 'lesauteurs' dans la pile
-	$_lesauteurs = champ_sql('lesauteurs', $p, false);
-
-	// Si le champ n'existe pas (cas de spip_articles), on applique
-	// le modele lesauteurs.html en passant id_article dans le contexte;
-	// dans le cas contraire on prend le champ 'lesauteurs'
-	// (cf extension sites/)
-	if ($_lesauteurs
-	AND $_lesauteurs != '@$Pile[0][\'lesauteurs\']') {
-		$p->code = "safehtml($_lesauteurs)";
-		// $p->interdire_scripts = true;
-	} else {
-		if(!$p->id_boucle){
-			$connect = '';
-			$objet = 'article';
-			$id_table_objet = 'id_article';
-		}
-		else{
-			$b = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
-			$connect = $p->boucles[$b]->sql_serveur;
-			$type_boucle = $p->boucles[$b]->type_requete;
-			$objet = objet_type($type_boucle);
-			$id_table_objet = id_table_objet($type_boucle);
-		}
-		$c = memoriser_contexte_compil($p);
-
-		$p->code = sprintf(CODE_RECUPERER_FOND, "'modeles/lesauteurs'",
-				   "array('objet'=>'".$objet.
-					   "','id_objet' => ".champ_sql($id_table_objet, $p) .
-					   ",'$id_table_objet' => ".champ_sql($id_table_objet, $p) .
-					   ($objet=='article'?"":",'id_article' => ".champ_sql('id_article', $p)).
-					   ")",
-				   "'trim'=>true, 'compil'=>array($c)",
-				   _q($connect));
-		$p->interdire_scripts = false; // securite apposee par recuperer_fond()
-	}
-
-	return $p;
+    // Cherche le champ 'lesauteurs' dans la pile
+    $_lesauteurs = champ_sql('lesauteurs', $p, false);
+
+    // Si le champ n'existe pas (cas de spip_articles), on applique
+    // le modele lesauteurs.html en passant id_article dans le contexte;
+    // dans le cas contraire on prend le champ 'lesauteurs'
+    // (cf extension sites/)
+    if ($_lesauteurs
+    AND $_lesauteurs != '@$Pile[0][\'lesauteurs\']') {
+        $p->code = "safehtml($_lesauteurs)";
+        // $p->interdire_scripts = true;
+    } else {
+        if(!$p->id_boucle){
+            $connect = '';
+            $objet = 'article';
+            $id_table_objet = 'id_article';
+        }
+        else{
+            $b = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
+            $connect = $p->boucles[$b]->sql_serveur;
+            $type_boucle = $p->boucles[$b]->type_requete;
+            $objet = objet_type($type_boucle);
+            $id_table_objet = id_table_objet($type_boucle);
+        }
+        $c = memoriser_contexte_compil($p);
+
+        $p->code = sprintf(CODE_RECUPERER_FOND, "'modeles/lesauteurs'",
+                    "array('objet'=>'".$objet.
+                        "','id_objet' => ".champ_sql($id_table_objet, $p) .
+                        ",'$id_table_objet' => ".champ_sql($id_table_objet, $p) .
+                        ($objet=='article'?"":",'id_article' => ".champ_sql('id_article', $p)).
+                        ")",
+                    "'trim'=>true, 'compil'=>array($c)",
+                    _q($connect));
+        $p->interdire_scripts = false; // securite apposee par recuperer_fond()
+    }
+
+    return $p;
 }
 
 
@@ -472,62 +472,62 @@ 
  * @return object
  */
 function balise_RANG_dist($p) {
-	$b = index_boucle($p);
-	if ($b === '') {
-		$msg = array(
-			'zbug_champ_hors_boucle',
-			array('champ' => '#RANG')
-		);
-		erreur_squelette($msg, $p);
-	} else {
-		// chercher d'abord un champ sql rang (mais pas dans le env : defaut '' si on trouve pas de champ sql)
-		// dans la boucle immediatement englobante uniquement
-		// sinon on compose le champ calcule
-		$_rang = champ_sql('rang', $p, '', false);
-
-		// si pas trouve de champ sql rang :
-		if (!$_rang) {
-			$boucle = &$p->boucles[$b];
-			$trouver_table = charger_fonction('trouver_table', 'base');
-			$desc = $trouver_table($boucle->id_table);
-			$_titre = ''; # où extraire le numero ?
+    $b = index_boucle($p);
+    if ($b === '') {
+        $msg = array(
+            'zbug_champ_hors_boucle',
+            array('champ' => '#RANG')
+        );
+        erreur_squelette($msg, $p);
+    } else {
+        // chercher d'abord un champ sql rang (mais pas dans le env : defaut '' si on trouve pas de champ sql)
+        // dans la boucle immediatement englobante uniquement
+        // sinon on compose le champ calcule
+        $_rang = champ_sql('rang', $p, '', false);
+
+        // si pas trouve de champ sql rang :
+        if (!$_rang) {
+            $boucle = &$p->boucles[$b];
+            $trouver_table = charger_fonction('trouver_table', 'base');
+            $desc = $trouver_table($boucle->id_table);
+            $_titre = ''; # où extraire le numero ?
 			
-			if (isset($desc['titre'])) {
-				$t = $desc['titre'];
-				if (
-					// Soit on trouve avec la déclaration de la lang AVANT
-					preg_match(';(?:lang\s*,)\s*(.*?titre)\s*(,|$);', $t, $m)
-					// Soit on prend depuis le début
-					or preg_match(';^(.*?titre)\s*(,|$);', $t, $m)
-				) {
-					$m = preg_replace(',as\s+titre$,i', '', $m[1]);
-					$m = trim($m);
-					if ($m != "''") {
-						if (!preg_match(",\W,", $m)) {
-							$m = $boucle->id_table . ".$m";
-						}
+            if (isset($desc['titre'])) {
+                $t = $desc['titre'];
+                if (
+                    // Soit on trouve avec la déclaration de la lang AVANT
+                    preg_match(';(?:lang\s*,)\s*(.*?titre)\s*(,|$);', $t, $m)
+                    // Soit on prend depuis le début
+                    or preg_match(';^(.*?titre)\s*(,|$);', $t, $m)
+                ) {
+                    $m = preg_replace(',as\s+titre$,i', '', $m[1]);
+                    $m = trim($m);
+                    if ($m != "''") {
+                        if (!preg_match(",\W,", $m)) {
+                            $m = $boucle->id_table . ".$m";
+                        }
 						
-						$m .= " AS titre_rang";
+                        $m .= " AS titre_rang";
 
-						$boucle->select[] = $m;
-						$_titre = '$Pile[$SP][\'titre_rang\']';
-					}
-				}
-			}
+                        $boucle->select[] = $m;
+                        $_titre = '$Pile[$SP][\'titre_rang\']';
+                    }
+                }
+            }
 			
-			// si on n'a rien trouvé, on utilise le champ titre classique
-			if (!$_titre) {
-				$_titre = champ_sql('titre', $p);
-			}
+            // si on n'a rien trouvé, on utilise le champ titre classique
+            if (!$_titre) {
+                $_titre = champ_sql('titre', $p);
+            }
 			
-			$_rang = "recuperer_numero($_titre)";
-		}
+            $_rang = "recuperer_numero($_titre)";
+        }
 		
-		$p->code = $_rang;
-		$p->interdire_scripts = false;
-	}
+        $p->code = $_rang;
+        $p->interdire_scripts = false;
+    }
 	
-	return $p;
+    return $p;
 }
 
 
@@ -535,11 +535,11 @@ 
 // http://www.spip.net/fr_article1846.html
 // http://doc.spip.org/@balise_POPULARITE_dist
 function balise_POPULARITE_dist ($p) {
-	$_popularite = champ_sql('popularite', $p);
-	$p->code = "(ceil(min(100, 100 * $_popularite
+    $_popularite = champ_sql('popularite', $p);
+    $p->code = "(ceil(min(100, 100 * $_popularite
 	/ max(1 , 0 + \$GLOBALS['meta']['popularite_max']))))";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // #PAGINATION
@@ -548,7 +548,7 @@ 
 // l'absence peut etre due a une faute de frappe dans le contexte inclus.
 
 define('CODE_PAGINATION',
-	'%s($Numrows["%s"]["grand_total"],
+    '%s($Numrows["%s"]["grand_total"],
  		%s,
 		isset($Pile[0][%4$s])?$Pile[0][%4$s]:intval(_request(%4$s)),
 		%5$s, %6$s, %7$s, %8$s, array(%9$s))');
@@ -556,59 +556,59 @@ 
 // http://www.spip.net/fr_article3367.html
 // http://doc.spip.org/@balise_PAGINATION_dist
 function balise_PAGINATION_dist($p, $liste='true') {
-	$b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
-
-	// s'il n'y a pas de nom de boucle, on ne peut pas paginer
-	if ($b === '') {
-		$msg = array('zbug_champ_hors_boucle',
-			array('champ' => $liste ? 'PAGINATION' : 'ANCRE_PAGINATION')
-			  );
-		erreur_squelette($msg, $p);
-		return $p;
-	}
-
-	// s'il n'y a pas de mode_partie, c'est qu'on se trouve
-	// dans un boucle recursive ou qu'on a oublie le critere {pagination}
-	if (!$p->boucles[$b]->mode_partie) {
-		if (!$p->boucles[$b]->table_optionnelle) {
-			$msg = array('zbug_pagination_sans_critere',
-					array('champ' => '#PAGINATION')
-				  );
-			erreur_squelette($msg, $p);
-		}
-		return $p;
-	}
-
-	// a priori true
-	// si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise
-	// si true, les arguments simples (sans truc=chose) vont degager
-	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false);
-	if (count($_contexte)){
-		list($key,$val) = each($_contexte);
-		if (is_numeric($key)){
-			array_shift($_contexte);
-			$__modele = interprete_argument_balise(1,$p);
-		}
-	}
-
-	if (count($_contexte)){
-		$code_contexte = implode(',',$_contexte);
-	}
-	else
-		$code_contexte = '';
-
-	$connect = $p->boucles[$b]->sql_serveur;
-	$pas = $p->boucles[$b]->total_parties;
-	$f_pagination = chercher_filtre('pagination');
-	$type = $p->boucles[$b]->modificateur['debut_nom'];
-	$modif = ($type[0]!=="'") ? "'debut'.$type"
-	  : ("'debut" .substr($type,1));
-
-	$p->code = sprintf(CODE_PAGINATION, $f_pagination, $b, $type, $modif, $pas, $liste, ((isset($__modele) and $__modele) ? $__modele : "''"), _q($connect), $code_contexte);
-
-	$p->boucles[$b]->numrows = true;
-	$p->interdire_scripts = false;
-	return $p;
+    $b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
+
+    // s'il n'y a pas de nom de boucle, on ne peut pas paginer
+    if ($b === '') {
+        $msg = array('zbug_champ_hors_boucle',
+            array('champ' => $liste ? 'PAGINATION' : 'ANCRE_PAGINATION')
+                );
+        erreur_squelette($msg, $p);
+        return $p;
+    }
+
+    // s'il n'y a pas de mode_partie, c'est qu'on se trouve
+    // dans un boucle recursive ou qu'on a oublie le critere {pagination}
+    if (!$p->boucles[$b]->mode_partie) {
+        if (!$p->boucles[$b]->table_optionnelle) {
+            $msg = array('zbug_pagination_sans_critere',
+                    array('champ' => '#PAGINATION')
+                    );
+            erreur_squelette($msg, $p);
+        }
+        return $p;
+    }
+
+    // a priori true
+    // si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise
+    // si true, les arguments simples (sans truc=chose) vont degager
+    $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false);
+    if (count($_contexte)){
+        list($key,$val) = each($_contexte);
+        if (is_numeric($key)){
+            array_shift($_contexte);
+            $__modele = interprete_argument_balise(1,$p);
+        }
+    }
+
+    if (count($_contexte)){
+        $code_contexte = implode(',',$_contexte);
+    }
+    else
+        $code_contexte = '';
+
+    $connect = $p->boucles[$b]->sql_serveur;
+    $pas = $p->boucles[$b]->total_parties;
+    $f_pagination = chercher_filtre('pagination');
+    $type = $p->boucles[$b]->modificateur['debut_nom'];
+    $modif = ($type[0]!=="'") ? "'debut'.$type"
+      : ("'debut" .substr($type,1));
+
+    $p->code = sprintf(CODE_PAGINATION, $f_pagination, $b, $type, $modif, $pas, $liste, ((isset($__modele) and $__modele) ? $__modele : "''"), _q($connect), $code_contexte);
+
+    $p->boucles[$b]->numrows = true;
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -616,28 +616,28 @@ 
 // qu'on mettra les liens en-dessous de la liste paginee)
 // http://doc.spip.org/@balise_ANCRE_PAGINATION_dist
 function balise_ANCRE_PAGINATION_dist($p) {
-	if ($f = charger_fonction('PAGINATION', 'balise', true))
-		return $f($p, $liste='false');
-	else return NULL; // ou une erreur ?
+    if ($f = charger_fonction('PAGINATION', 'balise', true))
+        return $f($p, $liste='false');
+    else return NULL; // ou une erreur ?
 }
 
 // equivalent a #TOTAL_BOUCLE sauf pour les boucles paginees, ou elle
 // indique le nombre total d'articles repondant aux criteres hors pagination
 // http://doc.spip.org/@balise_GRAND_TOTAL_dist
 function balise_GRAND_TOTAL_dist($p) {
-	$b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
-	if ($b === '' || !isset($p->boucles[$b])) {
-		$msg = array('zbug_champ_hors_boucle',
-				array('champ' => "#$b" . 'TOTAL_BOUCLE')
-			   );
-		erreur_squelette($msg, $p);
-	} else {
-		$p->code = "(isset(\$Numrows['$b']['grand_total'])
+    $b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
+    if ($b === '' || !isset($p->boucles[$b])) {
+        $msg = array('zbug_champ_hors_boucle',
+                array('champ' => "#$b" . 'TOTAL_BOUCLE')
+                );
+        erreur_squelette($msg, $p);
+    } else {
+        $p->code = "(isset(\$Numrows['$b']['grand_total'])
 			? \$Numrows['$b']['grand_total'] : \$Numrows['$b']['total'])";
-		$p->boucles[$b]->numrows = true;
-		$p->interdire_scripts = false;
-	}
-	return $p;
+        $p->boucles[$b]->numrows = true;
+        $p->interdire_scripts = false;
+    }
+    return $p;
 }
 
 // Reference a l'URL de la page courante
@@ -647,9 +647,9 @@ 
 // http://www.spip.net/@self
 // http://doc.spip.org/@balise_SELF_dist
 function balise_SELF_dist($p) {
-	$p->code = 'self()';
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = 'self()';
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 //
@@ -657,26 +657,26 @@ 
 //
 // http://doc.spip.org/@balise_CHEMIN_dist
 function balise_CHEMIN_dist($p) {
-	$arg = interprete_argument_balise(1,$p);
-	if (!$arg) {
-		$msg = array('zbug_balise_sans_argument',	array('balise' => ' CHEMIN'));
-		erreur_squelette($msg, $p);
-	} else
-	  $p->code = 'find_in_path(' . $arg .')';
+    $arg = interprete_argument_balise(1,$p);
+    if (!$arg) {
+        $msg = array('zbug_balise_sans_argument',	array('balise' => ' CHEMIN'));
+        erreur_squelette($msg, $p);
+    } else
+        $p->code = 'find_in_path(' . $arg .')';
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 function balise_CHEMIN_IMAGE_dist($p) {
-	$arg = interprete_argument_balise(1,$p);
-	if (!$arg) {
-		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN_IMAGE'));
-		erreur_squelette($msg, $p);
-	} else $p->code = 'chemin_image(' . $arg .')';
+    $arg = interprete_argument_balise(1,$p);
+    if (!$arg) {
+        $msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN_IMAGE'));
+        erreur_squelette($msg, $p);
+    } else $p->code = 'chemin_image(' . $arg .')';
 
-	#$p->interdire_scripts = true;
-	return $p;
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 
@@ -718,35 +718,35 @@ 
 **/
 function balise_ENV_dist($p, $src = NULL) {
 
-	// cle du tableau desiree
-	$_nom = interprete_argument_balise(1,$p);
-	// valeur par defaut
-	$_sinon = interprete_argument_balise(2,$p);
+    // cle du tableau desiree
+    $_nom = interprete_argument_balise(1,$p);
+    // valeur par defaut
+    $_sinon = interprete_argument_balise(2,$p);
 	
-	// $src est un tableau de donnees sources eventuellement transmis
-	// en absence, on utilise l'environnement du squelette $Pile[0]
+    // $src est un tableau de donnees sources eventuellement transmis
+    // en absence, on utilise l'environnement du squelette $Pile[0]
 	
-	if (!$_nom) {
-		// cas de #ENV sans argument : on retourne le serialize() du tableau
-		// une belle fonction [(#ENV|affiche_env)] serait pratique
-		if ($src) {
-			$p->code = '(is_array($a = ('.$src.')) ? serialize($a) : "")';
-		} else {
-			$p->code = '@serialize($Pile[0])';
-		}
-	} else {
-		if (!$src) {
-			$src = '@$Pile[0]';
-		}
-		if ($_sinon) {
-			$p->code = "sinon(table_valeur($src, (string)$_nom, null), $_sinon)";
-		} else {
-			$p->code = "table_valeur($src, (string)$_nom, null)";
-		}
-	}
-	#$p->interdire_scripts = true;
-
-	return $p;
+    if (!$_nom) {
+        // cas de #ENV sans argument : on retourne le serialize() du tableau
+        // une belle fonction [(#ENV|affiche_env)] serait pratique
+        if ($src) {
+            $p->code = '(is_array($a = ('.$src.')) ? serialize($a) : "")';
+        } else {
+            $p->code = '@serialize($Pile[0])';
+        }
+    } else {
+        if (!$src) {
+            $src = '@$Pile[0]';
+        }
+        if ($_sinon) {
+            $p->code = "sinon(table_valeur($src, (string)$_nom, null), $_sinon)";
+        } else {
+            $p->code = "table_valeur($src, (string)$_nom, null)";
+        }
+    }
+    #$p->interdire_scripts = true;
+
+    return $p;
 }
 
 /**
@@ -766,24 +766,24 @@ 
  * @return Object
  */
 function balise_CONFIG_dist($p) {
-	if (!$arg = interprete_argument_balise(1,$p)) {
-		$arg = "''";
-	}
-	$_sinon = interprete_argument_balise(2,$p);
-	$_unserialize = sinon(interprete_argument_balise(3,$p),"false");
+    if (!$arg = interprete_argument_balise(1,$p)) {
+        $arg = "''";
+    }
+    $_sinon = interprete_argument_balise(2,$p);
+    $_unserialize = sinon(interprete_argument_balise(3,$p),"false");
 
-	$p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' .
-		($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')";
+    $p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' .
+        ($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')";
 
-	return $p;
+    return $p;
 }
 
 
 // http://doc.spip.org/@balise_CONNECT_dist
 function balise_CONNECT_dist($p) {
-	$p->code = '($connect ? $connect : NULL)';
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = '($connect ? $connect : NULL)';
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 //
@@ -794,14 +794,14 @@ 
 // pas la meme session
 // http://doc.spip.org/@balise_SESSION_dist
 function balise_SESSION_dist($p) {
-	$p->descr['session'] = true;
+    $p->descr['session'] = true;
 
-	$f = function_exists('balise_ENV')
-		? 'balise_ENV'
-		: 'balise_ENV_dist';
+    $f = function_exists('balise_ENV')
+        ? 'balise_ENV'
+        : 'balise_ENV_dist';
 
-	$p = $f($p, '$GLOBALS["visiteur_session"]');
-	return $p;
+    $p = $f($p, '$GLOBALS["visiteur_session"]');
+    return $p;
 }
 
 //
@@ -809,16 +809,16 @@ 
 // Ajoute x=y dans la session du visiteur
 // http://doc.spip.org/@balise_SESSION_SET_dist
 function balise_SESSION_SET_dist($p) {
-	$_nom = interprete_argument_balise(1,$p);
-	$_val = interprete_argument_balise(2,$p);
-	if (!$_nom OR !$_val) {
-		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'SESSION_SET'));
-		erreur_squelette($err_b_s_a, $p);
-	} else 	$p->code = '(include_spip("inc/session") AND session_set('.$_nom.','.$_val.'))';
+    $_nom = interprete_argument_balise(1,$p);
+    $_val = interprete_argument_balise(2,$p);
+    if (!$_nom OR !$_val) {
+        $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'SESSION_SET'));
+        erreur_squelette($err_b_s_a, $p);
+    } else 	$p->code = '(include_spip("inc/session") AND session_set('.$_nom.','.$_val.'))';
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -836,23 +836,23 @@ 
 // #EVAL{'str_replace("r","z", "roger")'}  (attention les "'" sont interdits)
 // http://doc.spip.org/@balise_EVAL_dist
 function balise_EVAL_dist($p) {
-	$php = interprete_argument_balise(1,$p);
-	if ($php) {
-		# optimisation sur les #EVAL{une expression sans #BALISE}
-		# attention au commentaire "// x signes" qui precede
-		if (preg_match(",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms",
-		$php,$r))
-			$p->code = /* $r[1]. */'('.$r[2].')';
-		else
-			$p->code = "eval('return '.$php.';')";
-	} else {
-		$msg = array('zbug_balise_sans_argument', array('balise' => ' EVAL'));
-		erreur_squelette($msg, $p);
-	}
+    $php = interprete_argument_balise(1,$p);
+    if ($php) {
+        # optimisation sur les #EVAL{une expression sans #BALISE}
+        # attention au commentaire "// x signes" qui precede
+        if (preg_match(",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms",
+        $php,$r))
+            $p->code = /* $r[1]. */'('.$r[2].')';
+        else
+            $p->code = "eval('return '.$php.';')";
+    } else {
+        $msg = array('zbug_balise_sans_argument', array('balise' => ' EVAL'));
+        erreur_squelette($msg, $p);
+    }
 
-	#$p->interdire_scripts = true;
+    #$p->interdire_scripts = true;
 
-	return $p;
+    return $p;
 }
 
 // #CHAMP_SQL{x} renvoie la valeur du champ sql 'x'
@@ -862,27 +862,27 @@ 
 // http://doc.spip.org/@balise_CHAMP_SQL_dist
 function balise_CHAMP_SQL_dist($p){
 
-	if ($p->param
-	AND isset($p->param[0][1][0])
-	AND $champ = ($p->param[0][1][0]->texte))
-		$p->code = champ_sql($champ, $p);
-	else {
-		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => ' CHAMP_SQL'));
-		erreur_squelette($err_b_s_a, $p);
-	}
-	#$p->interdire_scripts = true;
-	return $p;
+    if ($p->param
+    AND isset($p->param[0][1][0])
+    AND $champ = ($p->param[0][1][0]->texte))
+        $p->code = champ_sql($champ, $p);
+    else {
+        $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => ' CHAMP_SQL'));
+        erreur_squelette($err_b_s_a, $p);
+    }
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 // #VAL{x} renvoie 'x' (permet d'appliquer un filtre a une chaine)
 // Attention #VAL{1,2} renvoie '1', indiquer #VAL{'1,2'}
 // http://doc.spip.org/@balise_VAL_dist
 function balise_VAL_dist($p){
-	$p->code = interprete_argument_balise(1,$p);
-	if (!strlen($p->code))
-		$p->code = "''";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = interprete_argument_balise(1,$p);
+    if (!strlen($p->code))
+        $p->code = "''";
+    $p->interdire_scripts = false;
+    return $p;
 }
 // #NOOP est un alias pour regler #948, ne pas documenter
 // http://doc.spip.org/@balise_NOOP_dist
@@ -894,9 +894,9 @@ 
 //
 // http://doc.spip.org/@balise_REM_dist
 function balise_REM_dist($p) {
-	$p->code="''";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code="''";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -921,18 +921,18 @@ 
  **/
 function balise_HTTP_HEADER_dist($p) {
 
-	$header = interprete_argument_balise(1, $p);
-	if (!$header) {
-		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'HTTP_HEADER'));
-		erreur_squelette($err_b_s_a, $p);
-	} else {
-		$p->code = "'<'.'?php header(' . _q("
-			. $header
-			. ") . '); ?'.'>'";
-	}
-	$p->interdire_scripts = false;
+    $header = interprete_argument_balise(1, $p);
+    if (!$header) {
+        $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'HTTP_HEADER'));
+        erreur_squelette($err_b_s_a, $p);
+    } else {
+        $p->code = "'<'.'?php header(' . _q("
+            . $header
+            . ") . '); ?'.'>'";
+    }
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -941,18 +941,18 @@ 
 // (filtrage fait au niveau du squelette, et sans s'appliquer aux <INCLURE>)
 // http://doc.spip.org/@balise_FILTRE_dist
 function balise_FILTRE_dist($p) {
-	if ($p->param) {
-		$args = array();
-		foreach ($p->param as $i => $ignore)
-			$args[] = interprete_argument_balise($i+1,$p);
-		$p->code = "'<' . '"
-			.'?php header("X-Spip-Filtre: \'.'
-				.join('.\'|\'.', $args)
-			. " . '\"); ?'.'>'";
+    if ($p->param) {
+        $args = array();
+        foreach ($p->param as $i => $ignore)
+            $args[] = interprete_argument_balise($i+1,$p);
+        $p->code = "'<' . '"
+            .'?php header("X-Spip-Filtre: \'.'
+                .join('.\'|\'.', $args)
+            . " . '\"); ?'.'>'";
 
-		$p->interdire_scripts = false;
-		return $p;
-	}
+        $p->interdire_scripts = false;
+        return $p;
+    }
 }
 
 //
@@ -968,46 +968,46 @@ 
 // http://doc.spip.org/@balise_CACHE_dist
 function balise_CACHE_dist($p) {
 
-	if ($p->param) {
-		$duree = valeur_numerique($p->param[0][1][0]->texte);
-
-		// noter la duree du cache dans un entete proprietaire
-
-		$code = '\'<'.'?php header("X-Spip-Cache: '
-		. $duree
-		. '"); ?'.'>\'';
-
-		// Remplir le header Cache-Control
-		// cas #CACHE{0}
-		if ($duree == 0)
-			$code .= '.\'<'
-			.'?php header("Cache-Control: no-cache, must-revalidate"); ?'
-			.'><'
-			.'?php header("Pragma: no-cache"); ?'
-			.'>\'';
-
-		// recuperer les parametres suivants
-		$i = 1;
-		while (isset($p->param[0][++$i])) {
-			$pa = ($p->param[0][$i][0]->texte);
-
-			if ($pa == 'cache-client'
-			AND $duree > 0) {
-				$code .= '.\'<'.'?php header("Cache-Control: max-age='
-				. $duree
-				. '"); ?'.'>\'';
-			// il semble logique, si on cache-client, de ne pas invalider
-				$pa = 'statique';
-			}
-
-			if ($pa == 'statique'
-			AND $duree > 0)
-				$code .= '.\'<'.'?php header("X-Spip-Statique: oui"); ?'.'>\'';
-		}
-	} else $code = "''";
-	$p->code = $code;
-	$p->interdire_scripts = false;
-	return $p;
+    if ($p->param) {
+        $duree = valeur_numerique($p->param[0][1][0]->texte);
+
+        // noter la duree du cache dans un entete proprietaire
+
+        $code = '\'<'.'?php header("X-Spip-Cache: '
+        . $duree
+        . '"); ?'.'>\'';
+
+        // Remplir le header Cache-Control
+        // cas #CACHE{0}
+        if ($duree == 0)
+            $code .= '.\'<'
+            .'?php header("Cache-Control: no-cache, must-revalidate"); ?'
+            .'><'
+            .'?php header("Pragma: no-cache"); ?'
+            .'>\'';
+
+        // recuperer les parametres suivants
+        $i = 1;
+        while (isset($p->param[0][++$i])) {
+            $pa = ($p->param[0][$i][0]->texte);
+
+            if ($pa == 'cache-client'
+            AND $duree > 0) {
+                $code .= '.\'<'.'?php header("Cache-Control: max-age='
+                . $duree
+                . '"); ?'.'>\'';
+            // il semble logique, si on cache-client, de ne pas invalider
+                $pa = 'statique';
+            }
+
+            if ($pa == 'statique'
+            AND $duree > 0)
+                $code .= '.\'<'.'?php header("X-Spip-Statique: oui"); ?'.'>\'';
+        }
+    } else $code = "''";
+    $p->code = $code;
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -1030,13 +1030,13 @@ 
  * @return object
  */
 function balise_INSERT_HEAD_dist($p) {
-	$p->code = '\'<'
-		.'?php header("X-Spip-Filtre: \'.'
-			.'\'insert_head_css_conditionnel\''
-		. " . '\"); ?'.'>'";
-	$p->code .= ". pipeline('insert_head','<!-- insert_head -->')";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = '\'<'
+        .'?php header("X-Spip-Filtre: \'.'
+            .'\'insert_head_css_conditionnel\''
+        . " . '\"); ?'.'>'";
+    $p->code .= ". pipeline('insert_head','<!-- insert_head -->')";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 /**
@@ -1049,9 +1049,9 @@ 
  * @return object
  */
 function balise_INSERT_HEAD_CSS_dist($p) {
-	$p->code = "pipeline('insert_head_css','<!-- insert_head_css -->')";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = "pipeline('insert_head_css','<!-- insert_head_css -->')";
+    $p->interdire_scripts = false;
+    return $p;
 }
 //
 // #INCLURE statique
@@ -1061,119 +1061,119 @@ 
 // (Incompatible avec les balises dynamiques)
 // http://doc.spip.org/@balise_INCLUDE_dist
 function balise_INCLUDE_dist($p) {
-	if(function_exists('balise_INCLURE'))
-		return balise_INCLURE($p);
-	else
-		return balise_INCLURE_dist($p);
+    if(function_exists('balise_INCLURE'))
+        return balise_INCLURE($p);
+    else
+        return balise_INCLURE_dist($p);
 }
 // http://doc.spip.org/@balise_INCLURE_dist
 function balise_INCLURE_dist($p) {
-	$id_boucle = $p->id_boucle;
-	// la lang n'est pas passe de facon automatique par argumenter
-	// mais le sera pas recuperer_fond, sauf si etoile=>true est passe
-	// en option
+    $id_boucle = $p->id_boucle;
+    // la lang n'est pas passe de facon automatique par argumenter
+    // mais le sera pas recuperer_fond, sauf si etoile=>true est passe
+    // en option
 
-	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $id_boucle, false, false);
+    $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $id_boucle, false, false);
 
-	// erreur de syntaxe = fond absent
-	// (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
-	if (!$_contexte) $contexte = array();
+    // erreur de syntaxe = fond absent
+    // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
+    if (!$_contexte) $contexte = array();
 
-	if (isset($_contexte['fond'])) {
+    if (isset($_contexte['fond'])) {
 
-		$f = $_contexte['fond'];
-		// toujours vrai :
-		if (preg_match('/^.fond.\s*=>(.*)$/s', $f, $r)) {
-			$f = $r[1];
-			unset($_contexte['fond']);
-		} else spip_log("compilation de #INCLURE a revoir");
+        $f = $_contexte['fond'];
+        // toujours vrai :
+        if (preg_match('/^.fond.\s*=>(.*)$/s', $f, $r)) {
+            $f = $r[1];
+            unset($_contexte['fond']);
+        } else spip_log("compilation de #INCLURE a revoir");
 
-		// #INCLURE{doublons}
-		if (isset($_contexte['doublons'])) {
-			$_contexte['doublons'] = "'doublons' => \$doublons";
-		}
+        // #INCLURE{doublons}
+        if (isset($_contexte['doublons'])) {
+            $_contexte['doublons'] = "'doublons' => \$doublons";
+        }
 
-		// Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
-		if (isset($_contexte['env'])
-		|| isset($_contexte['self'])
-		) {
-			$flag_env = true;
-			unset($_contexte['env']);
-		} else $flag_env = false;
+        // Critere d'inclusion {env} (et {self} pour compatibilite ascendante)
+        if (isset($_contexte['env'])
+        || isset($_contexte['self'])
+        ) {
+            $flag_env = true;
+            unset($_contexte['env']);
+        } else $flag_env = false;
 
-		$_options = array();
-		if (isset($_contexte['ajax'])) {
-			$_options[] = preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
-			unset($_contexte['ajax']);
-		}
-		if ($p->etoile) $_options[] = "'etoile'=>true";
-		$_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) .")";
+        $_options = array();
+        if (isset($_contexte['ajax'])) {
+            $_options[] = preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
+            unset($_contexte['ajax']);
+        }
+        if ($p->etoile) $_options[] = "'etoile'=>true";
+        $_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) .")";
 
-		$_l = 'array(' . join(",\n\t", $_contexte) .')';
-		if ($flag_env) $_l = "array_merge(\$Pile[0],$_l)";
+        $_l = 'array(' . join(",\n\t", $_contexte) .')';
+        if ($flag_env) $_l = "array_merge(\$Pile[0],$_l)";
 
-		$p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',',$_options),"''");
+        $p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',',$_options),"''");
 
-	} elseif (!isset($_contexte[1])) {
-			$msg = array('zbug_balise_sans_argument', array('balise' => ' INCLURE'));
-			erreur_squelette($msg, $p);
-	} else 		$p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
+    } elseif (!isset($_contexte[1])) {
+            $msg = array('zbug_balise_sans_argument', array('balise' => ' INCLURE'));
+            erreur_squelette($msg, $p);
+    } else 		$p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
 
-	$p->interdire_scripts = false; // la securite est assuree par recuperer_fond
-	return $p;
+    $p->interdire_scripts = false; // la securite est assuree par recuperer_fond
+    return $p;
 }
 
 // Inclure un modele : #MODELE{modele, params}
 // http://doc.spip.org/@balise_MODELE_dist
 function balise_MODELE_dist($p) {
 
-	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false);
+    $_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false);
 
-	// erreur de syntaxe = fond absent
-	// (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
-	if (!$_contexte) $contexte = array();
+    // erreur de syntaxe = fond absent
+    // (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
+    if (!$_contexte) $contexte = array();
 
-	if (!isset($_contexte[1])) {
-		$msg = array('zbug_balise_sans_argument', array('balise' => ' MODELE'));
-		erreur_squelette($msg, $p);
-	} else {
-		$nom = $_contexte[1];
-		unset($_contexte[1]);
+    if (!isset($_contexte[1])) {
+        $msg = array('zbug_balise_sans_argument', array('balise' => ' MODELE'));
+        erreur_squelette($msg, $p);
+    } else {
+        $nom = $_contexte[1];
+        unset($_contexte[1]);
 
-		if (preg_match("/^\s*'[^']*'/s", $nom))
-			$nom = "'modeles/" . substr($nom,1);
-		else $nom = "'modeles/' . $nom";
+        if (preg_match("/^\s*'[^']*'/s", $nom))
+            $nom = "'modeles/" . substr($nom,1);
+        else $nom = "'modeles/' . $nom";
 
-		// Incoherence dans la syntaxe du contexte. A revoir.
-		// Reserver la cle primaire de la boucle courante si elle existe
-		if (isset($p->boucles[$p->id_boucle]->primary)) {
-			$primary = $p->boucles[$p->id_boucle]->primary;
-			if (!strpos($primary,',')) {
-				$id = champ_sql($primary, $p);
-				$_contexte[] = "'$primary'=>".$id;
-				$_contexte[] = "'id'=>".$id;
-			}
-		}
-		$_contexte[] = "'recurs'=>(++\$recurs)";
-		$connect = '';
-		if (isset($p->boucles[$p->id_boucle]))
-			$connect = $p->boucles[$p->id_boucle]->sql_serveur;
+        // Incoherence dans la syntaxe du contexte. A revoir.
+        // Reserver la cle primaire de la boucle courante si elle existe
+        if (isset($p->boucles[$p->id_boucle]->primary)) {
+            $primary = $p->boucles[$p->id_boucle]->primary;
+            if (!strpos($primary,',')) {
+                $id = champ_sql($primary, $p);
+                $_contexte[] = "'$primary'=>".$id;
+                $_contexte[] = "'id'=>".$id;
+            }
+        }
+        $_contexte[] = "'recurs'=>(++\$recurs)";
+        $connect = '';
+        if (isset($p->boucles[$p->id_boucle]))
+            $connect = $p->boucles[$p->id_boucle]->sql_serveur;
 
-		$_options = memoriser_contexte_compil($p);
-		$_options = "'compil'=>array($_options), 'trim'=>true";
-	  if (isset($_contexte['ajax'])){
-		  $_options .= ", ".preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
-			unset($_contexte['ajax']);
-	  }
+        $_options = memoriser_contexte_compil($p);
+        $_options = "'compil'=>array($_options), 'trim'=>true";
+        if (isset($_contexte['ajax'])){
+            $_options .= ", ".preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
+            unset($_contexte['ajax']);
+        }
 
-		$page = sprintf(CODE_RECUPERER_FOND, $nom, 'array(' . join(',', $_contexte) .')', $_options, _q($connect));
+        $page = sprintf(CODE_RECUPERER_FOND, $nom, 'array(' . join(',', $_contexte) .')', $_options, _q($connect));
 
-		$p->code = "\n\t(((\$recurs=(isset(\$Pile[0]['recurs'])?\$Pile[0]['recurs']:0))>=5)? '' :\n\t$page)\n";
+        $p->code = "\n\t(((\$recurs=(isset(\$Pile[0]['recurs'])?\$Pile[0]['recurs']:0))>=5)? '' :\n\t$page)\n";
 
-		$p->interdire_scripts = false; // securite assuree par le squelette
-	}
+        $p->interdire_scripts = false; // securite assuree par le squelette
+    }
 
-	return $p;
+    return $p;
 }
 
 //
@@ -1183,19 +1183,19 @@ 
 // la balise renvoie la valeur
 // http://doc.spip.org/@balise_SET_dist
 function balise_SET_dist($p){
-	$_nom = interprete_argument_balise(1,$p);
-	$_val = interprete_argument_balise(2,$p);
+    $_nom = interprete_argument_balise(1,$p);
+    $_val = interprete_argument_balise(2,$p);
 
-	if (!$_nom OR !$_val) {
-		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'SET'));
-		erreur_squelette($err_b_s_a, $p);
-	}
-	// affectation $_zzz inutile, mais permet de contourner un bug OpCode cache sous PHP 5.5.4
-	// cf https://bugs.php.net/bug.php?id=65845
-	else  $p->code = "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)";
+    if (!$_nom OR !$_val) {
+        $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'SET'));
+        erreur_squelette($err_b_s_a, $p);
+    }
+    // affectation $_zzz inutile, mais permet de contourner un bug OpCode cache sous PHP 5.5.4
+    // cf https://bugs.php.net/bug.php?id=65845
+    else  $p->code = "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)";
 
-	$p->interdire_scripts = false; // la balise ne renvoie rien
-	return $p;
+    $p->interdire_scripts = false; // la balise ne renvoie rien
+    return $p;
 }
 
 //
@@ -1205,11 +1205,11 @@ 
 //
 // http://doc.spip.org/@balise_GET_dist
 function balise_GET_dist($p) {
-	$p->interdire_scripts = false; // le contenu vient de #SET, donc il est de confiance
-	if (function_exists('balise_ENV'))
-		return balise_ENV($p, '$Pile["vars"]');
-	else
-		return balise_ENV_dist($p, '$Pile["vars"]');
+    $p->interdire_scripts = false; // le contenu vient de #SET, donc il est de confiance
+    if (function_exists('balise_ENV'))
+        return balise_ENV($p, '$Pile["vars"]');
+    else
+        return balise_ENV_dist($p, '$Pile["vars"]');
 }
 
 
@@ -1229,20 +1229,20 @@ 
  * 		Pile complétée par le code à générer
 **/
 function balise_DOUBLONS_dist($p) {
-	if ($type = interprete_argument_balise(1,$p)) {
-		if ($famille = interprete_argument_balise(2,$p))
-			$type .= '.' . $famille;
-		$p->code = '$doublons['.$type.']';
-		if (!$p->etoile)
-			$p->code = 'array_filter(array_map("intval",explode(",",'
-				. $p->code . ')))';
-	}
-	else
-		$p->code = '$doublons';
+    if ($type = interprete_argument_balise(1,$p)) {
+        if ($famille = interprete_argument_balise(2,$p))
+            $type .= '.' . $famille;
+        $p->code = '$doublons['.$type.']';
+        if (!$p->etoile)
+            $p->code = 'array_filter(array_map("intval",explode(",",'
+                . $p->code . ')))';
+    }
+    else
+        $p->code = '$doublons';
 
-	$p->interdire_scripts = false;
+    $p->interdire_scripts = false;
 
-	return $p;
+    return $p;
 }
 
 
@@ -1254,17 +1254,17 @@ 
 //
 // http://doc.spip.org/@balise_PIPELINE_dist
 function balise_PIPELINE_dist($p) {
-	$_pipe = interprete_argument_balise(1,$p);
-	if (!$_pipe) {
-		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'PIPELINE'));
-		erreur_squelette($err_b_s_a, $p);
-	} else {
-		$_flux = interprete_argument_balise(2,$p);
-		$_flux = $_flux?$_flux:"''";
-		$p->code = "pipeline( $_pipe , $_flux )";
-		$p->interdire_scripts = false;
-	}
-	return $p;
+    $_pipe = interprete_argument_balise(1,$p);
+    if (!$_pipe) {
+        $err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'PIPELINE'));
+        erreur_squelette($err_b_s_a, $p);
+    } else {
+        $_flux = interprete_argument_balise(2,$p);
+        $_flux = $_flux?$_flux:"''";
+        $p->code = "pipeline( $_pipe , $_flux )";
+        $p->interdire_scripts = false;
+    }
+    return $p;
 }
 
 //
@@ -1273,9 +1273,9 @@ 
 //
 // http://doc.spip.org/@balise_EDIT_dist
 function balise_EDIT_dist($p) {
-	$p->code = "''";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = "''";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -1289,10 +1289,10 @@ 
 //
 // http://doc.spip.org/@balise_TOTAL_UNIQUE_dist
 function balise_TOTAL_UNIQUE_dist($p) {
-	$_famille = interprete_argument_balise(1,$p);
-	$_famille = $_famille ? $_famille : "''";
-	$p->code = "unique('', $_famille, true)";
-	return $p;
+    $_famille = interprete_argument_balise(1,$p);
+    $_famille = $_famille ? $_famille : "''";
+    $p->code = "unique('', $_famille, true)";
+    return $p;
 }
 
 //
@@ -1302,16 +1302,16 @@ 
 //
 // http://doc.spip.org/@balise_ARRAY_dist
 function balise_ARRAY_dist($p) {
-	$_code = array();
-	$n=1;
-	do {
-		$_key = interprete_argument_balise($n++,$p);
-		$_val = interprete_argument_balise($n++,$p);
-		if ($_key AND $_val) $_code[] = "$_key => $_val";
-	} while ($_key && $_val);
-	$p->code = 'array(' . join(', ',$_code).')';
-	$p->interdire_scripts = false;
-	return $p;
+    $_code = array();
+    $n=1;
+    do {
+        $_key = interprete_argument_balise($n++,$p);
+        $_val = interprete_argument_balise($n++,$p);
+        if ($_key AND $_val) $_code[] = "$_key => $_val";
+    } while ($_key && $_val);
+    $p->code = 'array(' . join(', ',$_code).')';
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 /**
@@ -1321,13 +1321,13 @@ 
  * @return <type>
  */
 function balise_LISTE_dist($p) {
-	$_code = array();
-	$n=1;
-	while ($_val = interprete_argument_balise($n++,$p))
-		$_code[] = $_val;
-	$p->code = 'array(' . join(', ',$_code).')';
-	$p->interdire_scripts = false;
-	return $p;
+    $_code = array();
+    $n=1;
+    while ($_val = interprete_argument_balise($n++,$p))
+        $_code[] = $_val;
+    $p->code = 'array(' . join(', ',$_code).')';
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // Appelle la fonction autoriser et renvoie ' ' si OK, '' si niet
@@ -1335,54 +1335,54 @@ 
 // Cette balise cree un cache par session
 // http://doc.spip.org/@balise_AUTORISER_dist
 function balise_AUTORISER_dist($p) {
-	$_code = array();
-	$p->descr['session'] = true; // faire un cache par session
+    $_code = array();
+    $p->descr['session'] = true; // faire un cache par session
 
-	$n=1;
-	while ($_v = interprete_argument_balise($n++,$p))
-		$_code[] = $_v;
+    $n=1;
+    while ($_v = interprete_argument_balise($n++,$p))
+        $_code[] = $_v;
 
-	$p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(', ',$_code).')?" ":"")';
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(', ',$_code).')?" ":"")';
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 // Appelle la fonction info_plugin
 // Afficher des informations sur les plugins dans le site public
 // http://doc.spip.org/@balise_PLUGIN_dist
 function balise_PLUGIN_dist($p) {
-	$plugin = interprete_argument_balise(1,$p);
-	$plugin = isset($plugin) ? str_replace('\'', '"', $plugin) : '""';
-	$type_info = interprete_argument_balise(2,$p);
-	$type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"';
+    $plugin = interprete_argument_balise(1,$p);
+    $plugin = isset($plugin) ? str_replace('\'', '"', $plugin) : '""';
+    $type_info = interprete_argument_balise(2,$p);
+    $type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"';
 
-	$f = chercher_filtre('info_plugin');
-	$p->code = $f.'('.$plugin.', '.$type_info.')';
-	return $p;
+    $f = chercher_filtre('info_plugin');
+    $p->code = $f.'('.$plugin.', '.$type_info.')';
+    return $p;
 }
 
 // Appelle la fonction inc_aider_dist
 // http://doc.spip.org/@balise_AIDER_dist
 function balise_AIDER_dist($p) {
-	$_motif = interprete_argument_balise(1,$p);
-	$s = "'" . addslashes($p->descr['sourcefile']) . "'";
-	$aider = charger_fonction('aider','inc');
-	$p->code = "((\$aider=charger_fonction('aider','inc'))?\$aider($_motif,$s, \$Pile[0]):'')";
-	return $p;
+    $_motif = interprete_argument_balise(1,$p);
+    $s = "'" . addslashes($p->descr['sourcefile']) . "'";
+    $aider = charger_fonction('aider','inc');
+    $p->code = "((\$aider=charger_fonction('aider','inc'))?\$aider($_motif,$s, \$Pile[0]):'')";
+    return $p;
 }
 
 // Insertion du contexte des formulaires charger/verifier/traiter
 // avec les hidden de l'url d'action
 // http://doc.spip.org/@balise_ACTION_FORMULAIRE
 function balise_ACTION_FORMULAIRE($p){
-	if (!$_url = interprete_argument_balise(1,$p))
-		$_url = "@\$Pile[0]['action']";
-	if (!$_form = interprete_argument_balise(2,$p))
-		$_form = "@\$Pile[0]['form']";
-
-	// envoyer le nom du formulaire que l'on traite
-	// transmettre les eventuels args de la balise formulaire
-	$p->code = "	'<div>' .
+    if (!$_url = interprete_argument_balise(1,$p))
+        $_url = "@\$Pile[0]['action']";
+    if (!$_form = interprete_argument_balise(2,$p))
+        $_form = "@\$Pile[0]['form']";
+
+    // envoyer le nom du formulaire que l'on traite
+    // transmettre les eventuels args de la balise formulaire
+    $p->code = "	'<div>' .
 	form_hidden($_url) .
 	'<input name=\'formulaire_action\' type=\'hidden\'
 		value=\'' . $_form . '\' />' .
@@ -1391,8 +1391,8 @@ 
 	(@\$Pile[0]['_hidden']?@\$Pile[0]['_hidden']:'') .
 	'</div>'";
 
-	$p->interdire_scripts = false;
-	return $p;
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -1412,29 +1412,29 @@ 
  */
 function balise_BOUTON_ACTION_dist($p){
 
-	$args = array();
-	for ($k=1;$k<=6;$k++){
-		$_a = interprete_argument_balise($k,$p);
-		if (!$_a) $_a="''";
-	  $args[] = $_a;
-	}
-	// supprimer les args vides
-	while(end($args)=="''" AND count($args)>2)
-		array_pop($args);
-	$args = implode(",",$args);
+    $args = array();
+    for ($k=1;$k<=6;$k++){
+        $_a = interprete_argument_balise($k,$p);
+        if (!$_a) $_a="''";
+        $args[] = $_a;
+    }
+    // supprimer les args vides
+    while(end($args)=="''" AND count($args)>2)
+        array_pop($args);
+    $args = implode(",",$args);
 
-	$bouton_action = chercher_filtre("bouton_action");
-	$p->code = "$bouton_action($args)";
-	$p->interdire_scripts = false;
-	return $p;
+    $bouton_action = chercher_filtre("bouton_action");
+    $p->code = "$bouton_action($args)";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
 
 function balise_SLOGAN_SITE_SPIP_dist($p) {
-	$p->code = "\$GLOBALS['meta']['slogan_site']";
-	#$p->interdire_scripts = true;
-	return $p;
+    $p->code = "\$GLOBALS['meta']['slogan_site']";
+    #$p->interdire_scripts = true;
+    return $p;
 }
 
 // #HTML5
@@ -1442,9 +1442,9 @@ 
 // le site public, et '' si le code doit etre strictement compatible HTML4
 // http://doc.spip.org/@balise_HTML5_dist
 function balise_HTML5_dist($p) {
-	$p->code = html5_permis() ? "' '" : "''";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = html5_permis() ? "' '" : "''";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -1459,58 +1459,58 @@ 
  * @return unknown
  */
 function balise_TRI_dist($p, $liste='true') {
-	$b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
-
-	// s'il n'y a pas de nom de boucle, on ne peut pas trier
-	if ($b === '') {
-		erreur_squelette(
-			_T('zbug_champ_hors_boucle',
-				array('champ' => '#TRI')
-			), $p->id_boucle);
-		$p->code = "''";
-		return $p;
-	}
-	$boucle = $p->boucles[$b];
-
-	// s'il n'y a pas de tri_champ, c'est qu'on se trouve
-	// dans un boucle recursive ou qu'on a oublie le critere {tri}
-	if (!isset($boucle->modificateur['tri_champ'])) {
-		erreur_squelette(
-			_T('zbug_tri_sans_critere',
-				array('champ' => '#TRI')
-			), $p->id_boucle);
-		$p->code = "''";
-		return $p;
-	}
-
-	$_champ = interprete_argument_balise(1,$p);
-	// si pas de champ, renvoyer le critere de tri utilise
-	if (!$_champ){
-		$p->code = $boucle->modificateur['tri_champ'];
-		return $p;
-	}
-	// forcer la jointure si besoin, et si le champ est statique
-	if (preg_match(",^'([\w.]+)'$,i",$_champ,$m)){
-		index_pile($b, $m[1], $p->boucles);
-	}
-
-	$_libelle = interprete_argument_balise(2,$p);
-	$_libelle = $_libelle?$_libelle:$_champ;
-
-	$_class = interprete_argument_balise(3,$p);
-	// si champ = ">" c'est un lien vers le tri croissant : de gauche a droite ==> 1
-	// si champ = "<" c'est un lien vers le tri decroissant : (sens inverse) == -1
-	$_issens = "in_array($_champ,array('>','<'))";
-	$_sens = "(strpos('< >',$_champ)-1)";
-
-	$_variable = "((\$s=$_issens)?'sens':'tri').".$boucle->modificateur['tri_nom'];
-	$_url = "parametre_url(self(),$_variable,\$s?$_sens:$_champ)";
-	$_on = "\$s?(".$boucle->modificateur['tri_sens']."==$_sens".'):('.$boucle->modificateur['tri_champ']."==$_champ)";
-
-	$p->code = "lien_ou_expose($_url,$_libelle,$_on".($_class?",$_class":"").")";
-	//$p->code = "''";
-	$p->interdire_scripts = false;
-	return $p;
+    $b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
+
+    // s'il n'y a pas de nom de boucle, on ne peut pas trier
+    if ($b === '') {
+        erreur_squelette(
+            _T('zbug_champ_hors_boucle',
+                array('champ' => '#TRI')
+            ), $p->id_boucle);
+        $p->code = "''";
+        return $p;
+    }
+    $boucle = $p->boucles[$b];
+
+    // s'il n'y a pas de tri_champ, c'est qu'on se trouve
+    // dans un boucle recursive ou qu'on a oublie le critere {tri}
+    if (!isset($boucle->modificateur['tri_champ'])) {
+        erreur_squelette(
+            _T('zbug_tri_sans_critere',
+                array('champ' => '#TRI')
+            ), $p->id_boucle);
+        $p->code = "''";
+        return $p;
+    }
+
+    $_champ = interprete_argument_balise(1,$p);
+    // si pas de champ, renvoyer le critere de tri utilise
+    if (!$_champ){
+        $p->code = $boucle->modificateur['tri_champ'];
+        return $p;
+    }
+    // forcer la jointure si besoin, et si le champ est statique
+    if (preg_match(",^'([\w.]+)'$,i",$_champ,$m)){
+        index_pile($b, $m[1], $p->boucles);
+    }
+
+    $_libelle = interprete_argument_balise(2,$p);
+    $_libelle = $_libelle?$_libelle:$_champ;
+
+    $_class = interprete_argument_balise(3,$p);
+    // si champ = ">" c'est un lien vers le tri croissant : de gauche a droite ==> 1
+    // si champ = "<" c'est un lien vers le tri decroissant : (sens inverse) == -1
+    $_issens = "in_array($_champ,array('>','<'))";
+    $_sens = "(strpos('< >',$_champ)-1)";
+
+    $_variable = "((\$s=$_issens)?'sens':'tri').".$boucle->modificateur['tri_nom'];
+    $_url = "parametre_url(self(),$_variable,\$s?$_sens:$_champ)";
+    $_on = "\$s?(".$boucle->modificateur['tri_sens']."==$_sens".'):('.$boucle->modificateur['tri_champ']."==$_champ)";
+
+    $p->code = "lien_ou_expose($_url,$_libelle,$_on".($_class?",$_class":"").")";
+    //$p->code = "''";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -1526,22 +1526,22 @@ 
  * @return <type>
  */
 function balise_SAUTER_dist($p){
-	$id_boucle = $p->id_boucle;
-	$boucle = $p->boucles[$id_boucle];
+    $id_boucle = $p->id_boucle;
+    $boucle = $p->boucles[$id_boucle];
 
-	if (!$boucle) {
-		$msg = array('zbug_champ_hors_boucle', array('champ' => '#SAUTER'));
-		erreur_squelette($msg, $p);
-	}
-	else {
-		$_saut = interprete_argument_balise(1,$p);
-		$_compteur = "\$Numrows['$id_boucle']['compteur_boucle']";
-		$_total = "\$Numrows['$id_boucle']['total']";
+    if (!$boucle) {
+        $msg = array('zbug_champ_hors_boucle', array('champ' => '#SAUTER'));
+        erreur_squelette($msg, $p);
+    }
+    else {
+        $_saut = interprete_argument_balise(1,$p);
+        $_compteur = "\$Numrows['$id_boucle']['compteur_boucle']";
+        $_total = "\$Numrows['$id_boucle']['total']";
 
-		$p->code = "vide($_compteur=\$iter->skip($_saut,$_total))";
-	}
-	$p->interdire_scripts = false;
-	return $p;
+        $p->code = "vide($_compteur=\$iter->skip($_saut,$_total))";
+    }
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 
@@ -1552,18 +1552,18 @@ 
  * @return <type>
  */
 function balise_PUBLIE_dist($p) {
-	if (!$_type = interprete_argument_balise(1,$p)){
-		$_type = _q($p->type_requete);
-		$_id = champ_sql($p->boucles[$p->id_boucle]->primary,$p);
-	}
-	else
-		$_id = interprete_argument_balise(2,$p);
+    if (!$_type = interprete_argument_balise(1,$p)){
+        $_type = _q($p->type_requete);
+        $_id = champ_sql($p->boucles[$p->id_boucle]->primary,$p);
+    }
+    else
+        $_id = interprete_argument_balise(2,$p);
 
-	$connect = $p->boucles[$p->id_boucle]->sql_serveur;
+    $connect = $p->boucles[$p->id_boucle]->sql_serveur;
 
-	$p->code = "(objet_test_si_publie(".$_type.",intval(".$_id."),"._q($connect).")?' ':'')";
-	$p->interdire_scripts = false;
-	return $p;
+    $p->code = "(objet_test_si_publie(".$_type.",intval(".$_id."),"._q($connect).")?' ':'')";
+    $p->interdire_scripts = false;
+    return $p;
 }
 
 /**
@@ -1582,12 +1582,12 @@ 
  * @return object
  */
 function balise_PRODUIRE_dist($p){
-	$balise_inclure = charger_fonction('INCLURE','balise');
-	$p = $balise_inclure($p);
+    $balise_inclure = charger_fonction('INCLURE','balise');
+    $p = $balise_inclure($p);
 
-	$p->code = str_replace('recuperer_fond(','produire_fond_statique(',$p->code);
+    $p->code = str_replace('recuperer_fond(','produire_fond_statique(',$p->code);
 
-	return $p;
+    return $p;
 }
 
 /**
@@ -1598,9 +1598,9 @@ 
  * @return
  */
 function balise_LARGEUR_ECRAN_dist($p){
-	$_class = interprete_argument_balise(1,$p);
-	if (!$_class) $_class='null';
-	$p->code = "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))";
-	return $p;
+    $_class = interprete_argument_balise(1,$p);
+    if (!$_class) $_class='null';
+    $p->code = "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))";
+    return $p;
 }
 ?>

Spacing +129 added lines, -129 removed lines

@@ -20,8 +20,8 @@ 
 if (!defined('_ECRIRE_INC_VERSION')) return;
 
 // http://doc.spip.org/@interprete_argument_balise
-function interprete_argument_balise($n,$p) {
-	if (($p->param) && (!$p->param[0][0]) && (count($p->param[0])>$n))
+function interprete_argument_balise($n, $p) {
+	if (($p->param) && (!$p->param[0][0]) && (count($p->param[0]) > $n))
 		return calculer_liste($p->param[0][$n],
 			$p->descr,
 			$p->boucles,
@@ -96,7 +96,7 @@ 
 // quand #DATE est en dehors des boucles
 // http://www.spip.net/fr_article1971.html
 // http://doc.spip.org/@balise_DATE_dist
-function balise_DATE_dist ($p) {
+function balise_DATE_dist($p) {
 	$d = champ_sql('date', $p);
 #	if ($d === "@\$Pile[0]['date']")
 #		$d = "isset(\$Pile[0]['date']) ? $d : time()";
@@ -107,7 +107,7 @@ 
 // #DATE_REDAC
 // http://www.spip.net/fr_article1971.html
 // http://doc.spip.org/@balise_DATE_REDAC_dist
-function balise_DATE_REDAC_dist ($p) {
+function balise_DATE_REDAC_dist($p) {
 	$d = champ_sql('date_redac', $p);
 #	if ($d === "@\$Pile[0]['date_redac']")
 #		$d = "isset(\$Pile[0]['date_redac']) ? $d : time()";
@@ -119,7 +119,7 @@ 
 // #DATE_MODIF
 // http://www.spip.net/fr_article1971.html
 // http://doc.spip.org/@balise_DATE_MODIF_dist
-function balise_DATE_MODIF_dist ($p) {
+function balise_DATE_MODIF_dist($p) {
 	$p->code = champ_sql('date_modif', $p);
 	$p->interdire_scripts = false;
 	return $p;
@@ -140,7 +140,7 @@ 
 // http://doc.spip.org/@balise_DOSSIER_SQUELETTE_dist
 function balise_DOSSIER_SQUELETTE_dist($p) {
 	$code = substr(addslashes(dirname($p->descr['sourcefile'])), strlen(_DIR_RACINE));
-	$p->code = "_DIR_RACINE . '$code'" .
+	$p->code = "_DIR_RACINE . '$code'".
 	$p->interdire_scripts = false;
 	return $p;
 }
@@ -148,7 +148,7 @@ 
 // http://doc.spip.org/@balise_SQUELETTE_dist
 function balise_SQUELETTE_dist($p) {
 	$code = addslashes($p->descr['sourcefile']);
-	$p->code = "'$code'" .
+	$p->code = "'$code'".
 	$p->interdire_scripts = false;
 	return $p;
 }
@@ -183,12 +183,12 @@ 
 **/
 function balise_NOM_SITE_dist($p) {
 	if (!$p->etoile) {
-		$p->code = "supprimer_numero(calculer_url(" .
-		champ_sql('url_site',$p) ."," .
-		champ_sql('nom_site',$p) .
+		$p->code = "supprimer_numero(calculer_url(".
+		champ_sql('url_site', $p).",".
+		champ_sql('nom_site', $p).
 		", 'titre', \$connect, false))";
 	} else
-		$p->code = champ_sql('nom_site',$p);
+		$p->code = champ_sql('nom_site', $p);
 
 	$p->interdire_scripts = true;
 	return $p;
@@ -230,7 +230,7 @@ 
 	$b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
 	if ($b === '' || !isset($p->boucles[$b])) {
 		$msg = array('zbug_champ_hors_boucle',
-				array('champ' => "#$b" . 'TOTAL_BOUCLE')
+				array('champ' => "#$b".'TOTAL_BOUCLE')
 			  );
 		erreur_squelette($msg, $p);
 	} else {
@@ -249,8 +249,8 @@ 
 
 // http://doc.spip.org/@balise_POPULARITE_ABSOLUE_dist
 function balise_POPULARITE_ABSOLUE_dist($p) {
-	$p->code = 'ceil(' .
-	champ_sql('popularite', $p) .
+	$p->code = 'ceil('.
+	champ_sql('popularite', $p).
 	')';
 	$p->interdire_scripts = false;
 	return $p;
@@ -273,10 +273,10 @@ 
 // http://doc.spip.org/@balise_EXPOSE_dist
 function balise_EXPOSE_dist($p) {
 	$on = "'on'";
-	$off= "''";
-	if (($v = interprete_argument_balise(1,$p))!==NULL){
+	$off = "''";
+	if (($v = interprete_argument_balise(1, $p)) !== NULL) {
 		$on = $v;
-		if (($v = interprete_argument_balise(2,$p))!==NULL)
+		if (($v = interprete_argument_balise(2, $p)) !== NULL)
 			$off = $v;
 
 	}
@@ -289,8 +289,8 @@ 
 // http://doc.spip.org/@balise_VALEUR_dist
 function balise_VALEUR_dist($p) {
 	$b = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
-	$p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b);;
-	if (($v = interprete_argument_balise(1,$p))!==NULL){
+	$p->code = index_pile($p->id_boucle, 'valeur', $p->boucles, $b); ;
+	if (($v = interprete_argument_balise(1, $p)) !== NULL) {
 		$p->code = 'table_valeur('.$p->code.', '.$v.')';
 	}
 	$p->interdire_scripts = true;
@@ -318,7 +318,7 @@ 
 		$parent = 0; // pour if (!$parent) dans calculer_expose
 	} elseif (isset($desc['field']['id_rubrique'])) {
 		$parent = index_pile($p->id_boucle, 'id_rubrique', $p->boucles, $b);
-	} elseif  (isset($desc['field']['id_groupe'])) {
+	} elseif (isset($desc['field']['id_groupe'])) {
 		$parent = index_pile($p->id_boucle, 'id_groupe', $p->boucles, $b);
 	} else $parent = "''";
 
@@ -337,13 +337,13 @@ 
 // http://doc.spip.org/@balise_DEBUT_SURLIGNE_dist
 function balise_DEBUT_SURLIGNE_dist($p) {
 	include_spip('inc/surligne');
-	$p->code = "'<!-- " . MARQUEUR_SURLIGNE . " -->'";
+	$p->code = "'<!-- ".MARQUEUR_SURLIGNE." -->'";
 	return $p;
 }
 // http://doc.spip.org/@balise_FIN_SURLIGNE_dist
 function balise_FIN_SURLIGNE_dist($p) {
 	include_spip('inc/surligne');
-	$p->code = "'<!-- " . MARQUEUR_FSURLIGNE . "-->'";
+	$p->code = "'<!-- ".MARQUEUR_FSURLIGNE."-->'";
 	return $p;
 }
 
@@ -367,7 +367,7 @@ 
 	}
 
 	// longueur en parametre, ou valeur par defaut
-	if (($v = interprete_argument_balise(1,$p))!==NULL) {
+	if (($v = interprete_argument_balise(1, $p)) !== NULL) {
 		$longueur = 'intval('.$v.')';
 	} else {
 		switch ($type) {
@@ -398,7 +398,7 @@ 
 // (celle du site ou celle qui a ete passee dans l'URL par le visiteur)
 // #LANG* n'affiche rien si aucune langue n'est trouvee dans le sql/le contexte
 // http://doc.spip.org/@balise_LANG_dist
-function balise_LANG_dist ($p) {
+function balise_LANG_dist($p) {
 	$_lang = champ_sql('lang', $p);
 	if (!$p->etoile)
 		$p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])";
@@ -413,7 +413,7 @@ 
 // http://www.spip.net/fr_article902.html
 // http://www.spip.net/fr_article911.html
 // http://doc.spip.org/@balise_LESAUTEURS_dist
-function balise_LESAUTEURS_dist ($p) {
+function balise_LESAUTEURS_dist($p) {
 	// Cherche le champ 'lesauteurs' dans la pile
 	$_lesauteurs = champ_sql('lesauteurs', $p, false);
 
@@ -426,12 +426,12 @@ 
 		$p->code = "safehtml($_lesauteurs)";
 		// $p->interdire_scripts = true;
 	} else {
-		if(!$p->id_boucle){
+		if (!$p->id_boucle) {
 			$connect = '';
 			$objet = 'article';
 			$id_table_objet = 'id_article';
 		}
-		else{
+		else {
 			$b = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
 			$connect = $p->boucles[$b]->sql_serveur;
 			$type_boucle = $p->boucles[$b]->type_requete;
@@ -442,9 +442,9 @@ 
 
 		$p->code = sprintf(CODE_RECUPERER_FOND, "'modeles/lesauteurs'",
 				   "array('objet'=>'".$objet.
-					   "','id_objet' => ".champ_sql($id_table_objet, $p) .
-					   ",'$id_table_objet' => ".champ_sql($id_table_objet, $p) .
-					   ($objet=='article'?"":",'id_article' => ".champ_sql('id_article', $p)).
+					   "','id_objet' => ".champ_sql($id_table_objet, $p).
+					   ",'$id_table_objet' => ".champ_sql($id_table_objet, $p).
+					   ($objet == 'article' ? "" : ",'id_article' => ".champ_sql('id_article', $p)).
 					   ")",
 				   "'trim'=>true, 'compil'=>array($c)",
 				   _q($connect));
@@ -504,7 +504,7 @@ 
 					$m = trim($m);
 					if ($m != "''") {
 						if (!preg_match(",\W,", $m)) {
-							$m = $boucle->id_table . ".$m";
+							$m = $boucle->id_table.".$m";
 						}
 						
 						$m .= " AS titre_rang";
@@ -534,7 +534,7 @@ 
 // #POPULARITE
 // http://www.spip.net/fr_article1846.html
 // http://doc.spip.org/@balise_POPULARITE_dist
-function balise_POPULARITE_dist ($p) {
+function balise_POPULARITE_dist($p) {
 	$_popularite = champ_sql('popularite', $p);
 	$p->code = "(ceil(min(100, 100 * $_popularite
 	/ max(1 , 0 + \$GLOBALS['meta']['popularite_max']))))";
@@ -555,7 +555,7 @@ 
 
 // http://www.spip.net/fr_article3367.html
 // http://doc.spip.org/@balise_PAGINATION_dist
-function balise_PAGINATION_dist($p, $liste='true') {
+function balise_PAGINATION_dist($p, $liste = 'true') {
 	$b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
 
 	// s'il n'y a pas de nom de boucle, on ne peut pas paginer
@@ -583,16 +583,16 @@ 
 	// si false, le compilo va bloquer sur des syntaxes avec un filtre sans argument qui suit la balise
 	// si true, les arguments simples (sans truc=chose) vont degager
 	$_contexte = argumenter_inclure($p->param, true, $p, $p->boucles, $p->id_boucle, false, false);
-	if (count($_contexte)){
-		list($key,$val) = each($_contexte);
-		if (is_numeric($key)){
+	if (count($_contexte)) {
+		list($key, $val) = each($_contexte);
+		if (is_numeric($key)) {
 			array_shift($_contexte);
-			$__modele = interprete_argument_balise(1,$p);
+			$__modele = interprete_argument_balise(1, $p);
 		}
 	}
 
-	if (count($_contexte)){
-		$code_contexte = implode(',',$_contexte);
+	if (count($_contexte)) {
+		$code_contexte = implode(',', $_contexte);
 	}
 	else
 		$code_contexte = '';
@@ -601,8 +601,8 @@ 
 	$pas = $p->boucles[$b]->total_parties;
 	$f_pagination = chercher_filtre('pagination');
 	$type = $p->boucles[$b]->modificateur['debut_nom'];
-	$modif = ($type[0]!=="'") ? "'debut'.$type"
-	  : ("'debut" .substr($type,1));
+	$modif = ($type[0] !== "'") ? "'debut'.$type"
+	  : ("'debut".substr($type, 1));
 
 	$p->code = sprintf(CODE_PAGINATION, $f_pagination, $b, $type, $modif, $pas, $liste, ((isset($__modele) and $__modele) ? $__modele : "''"), _q($connect), $code_contexte);
 
@@ -617,7 +617,7 @@ 
 // http://doc.spip.org/@balise_ANCRE_PAGINATION_dist
 function balise_ANCRE_PAGINATION_dist($p) {
 	if ($f = charger_fonction('PAGINATION', 'balise', true))
-		return $f($p, $liste='false');
+		return $f($p, $liste = 'false');
 	else return NULL; // ou une erreur ?
 }
 
@@ -628,7 +628,7 @@ 
 	$b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
 	if ($b === '' || !isset($p->boucles[$b])) {
 		$msg = array('zbug_champ_hors_boucle',
-				array('champ' => "#$b" . 'TOTAL_BOUCLE')
+				array('champ' => "#$b".'TOTAL_BOUCLE')
 			   );
 		erreur_squelette($msg, $p);
 	} else {
@@ -657,23 +657,23 @@ 
 //
 // http://doc.spip.org/@balise_CHEMIN_dist
 function balise_CHEMIN_dist($p) {
-	$arg = interprete_argument_balise(1,$p);
+	$arg = interprete_argument_balise(1, $p);
 	if (!$arg) {
-		$msg = array('zbug_balise_sans_argument',	array('balise' => ' CHEMIN'));
+		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN'));
 		erreur_squelette($msg, $p);
 	} else
-	  $p->code = 'find_in_path(' . $arg .')';
+	  $p->code = 'find_in_path('.$arg.')';
 
 	#$p->interdire_scripts = true;
 	return $p;
 }
 
 function balise_CHEMIN_IMAGE_dist($p) {
-	$arg = interprete_argument_balise(1,$p);
+	$arg = interprete_argument_balise(1, $p);
 	if (!$arg) {
 		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN_IMAGE'));
 		erreur_squelette($msg, $p);
-	} else $p->code = 'chemin_image(' . $arg .')';
+	} else $p->code = 'chemin_image('.$arg.')';
 
 	#$p->interdire_scripts = true;
 	return $p;
@@ -719,9 +719,9 @@ 
 function balise_ENV_dist($p, $src = NULL) {
 
 	// cle du tableau desiree
-	$_nom = interprete_argument_balise(1,$p);
+	$_nom = interprete_argument_balise(1, $p);
 	// valeur par defaut
-	$_sinon = interprete_argument_balise(2,$p);
+	$_sinon = interprete_argument_balise(2, $p);
 	
 	// $src est un tableau de donnees sources eventuellement transmis
 	// en absence, on utilise l'environnement du squelette $Pile[0]
@@ -766,14 +766,14 @@ 
  * @return Object
  */
 function balise_CONFIG_dist($p) {
-	if (!$arg = interprete_argument_balise(1,$p)) {
+	if (!$arg = interprete_argument_balise(1, $p)) {
 		$arg = "''";
 	}
-	$_sinon = interprete_argument_balise(2,$p);
-	$_unserialize = sinon(interprete_argument_balise(3,$p),"false");
+	$_sinon = interprete_argument_balise(2, $p);
+	$_unserialize = sinon(interprete_argument_balise(3, $p), "false");
 
-	$p->code = '(include_spip(\'inc/config\')?lire_config(' . $arg . ',' .
-		($_sinon && $_sinon != "''" ? $_sinon : 'null') . ',' . $_unserialize . "):'')";
+	$p->code = '(include_spip(\'inc/config\')?lire_config('.$arg.','.
+		($_sinon && $_sinon != "''" ? $_sinon : 'null').','.$_unserialize."):'')";
 
 	return $p;
 }
@@ -809,8 +809,8 @@ 
 // Ajoute x=y dans la session du visiteur
 // http://doc.spip.org/@balise_SESSION_SET_dist
 function balise_SESSION_SET_dist($p) {
-	$_nom = interprete_argument_balise(1,$p);
-	$_val = interprete_argument_balise(2,$p);
+	$_nom = interprete_argument_balise(1, $p);
+	$_val = interprete_argument_balise(2, $p);
 	if (!$_nom OR !$_val) {
 		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'SESSION_SET'));
 		erreur_squelette($err_b_s_a, $p);
@@ -836,12 +836,12 @@ 
 // #EVAL{'str_replace("r","z", "roger")'}  (attention les "'" sont interdits)
 // http://doc.spip.org/@balise_EVAL_dist
 function balise_EVAL_dist($p) {
-	$php = interprete_argument_balise(1,$p);
+	$php = interprete_argument_balise(1, $p);
 	if ($php) {
 		# optimisation sur les #EVAL{une expression sans #BALISE}
 		# attention au commentaire "// x signes" qui precede
 		if (preg_match(",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms",
-		$php,$r))
+		$php, $r))
 			$p->code = /* $r[1]. */'('.$r[2].')';
 		else
 			$p->code = "eval('return '.$php.';')";
@@ -860,7 +860,7 @@ 
 // (impossible via #NOTES qui est une balise calculee)
 // ne permet pas de passer une expression pour x qui ne peut etre qu'un texte statique !
 // http://doc.spip.org/@balise_CHAMP_SQL_dist
-function balise_CHAMP_SQL_dist($p){
+function balise_CHAMP_SQL_dist($p) {
 
 	if ($p->param
 	AND isset($p->param[0][1][0])
@@ -877,8 +877,8 @@ 
 // #VAL{x} renvoie 'x' (permet d'appliquer un filtre a une chaine)
 // Attention #VAL{1,2} renvoie '1', indiquer #VAL{'1,2'}
 // http://doc.spip.org/@balise_VAL_dist
-function balise_VAL_dist($p){
-	$p->code = interprete_argument_balise(1,$p);
+function balise_VAL_dist($p) {
+	$p->code = interprete_argument_balise(1, $p);
 	if (!strlen($p->code))
 		$p->code = "''";
 	$p->interdire_scripts = false;
@@ -894,7 +894,7 @@ 
 //
 // http://doc.spip.org/@balise_REM_dist
 function balise_REM_dist($p) {
-	$p->code="''";
+	$p->code = "''";
 	$p->interdire_scripts = false;
 	return $p;
 }
@@ -944,7 +944,7 @@ 
 	if ($p->param) {
 		$args = array();
 		foreach ($p->param as $i => $ignore)
-			$args[] = interprete_argument_balise($i+1,$p);
+			$args[] = interprete_argument_balise($i + 1, $p);
 		$p->code = "'<' . '"
 			.'?php header("X-Spip-Filtre: \'.'
 				.join('.\'|\'.', $args)
@@ -1061,7 +1061,7 @@ 
 // (Incompatible avec les balises dynamiques)
 // http://doc.spip.org/@balise_INCLUDE_dist
 function balise_INCLUDE_dist($p) {
-	if(function_exists('balise_INCLURE'))
+	if (function_exists('balise_INCLURE'))
 		return balise_INCLURE($p);
 	else
 		return balise_INCLURE_dist($p);
@@ -1103,21 +1103,21 @@ 
 
 		$_options = array();
 		if (isset($_contexte['ajax'])) {
-			$_options[] = preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
+			$_options[] = preg_replace(",=>(.*)$,ims", '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
 			unset($_contexte['ajax']);
 		}
 		if ($p->etoile) $_options[] = "'etoile'=>true";
-		$_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) .")";
+		$_options[] = "'compil'=>array(".memoriser_contexte_compil($p).")";
 
-		$_l = 'array(' . join(",\n\t", $_contexte) .')';
+		$_l = 'array('.join(",\n\t", $_contexte).')';
 		if ($flag_env) $_l = "array_merge(\$Pile[0],$_l)";
 
-		$p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',',$_options),"''");
+		$p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',', $_options), "''");
 
 	} elseif (!isset($_contexte[1])) {
 			$msg = array('zbug_balise_sans_argument', array('balise' => ' INCLURE'));
 			erreur_squelette($msg, $p);
-	} else 		$p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
+	} else 		$p->code = 'charge_scripts('.$_contexte[1].',false)';
 
 	$p->interdire_scripts = false; // la securite est assuree par recuperer_fond
 	return $p;
@@ -1141,14 +1141,14 @@ 
 		unset($_contexte[1]);
 
 		if (preg_match("/^\s*'[^']*'/s", $nom))
-			$nom = "'modeles/" . substr($nom,1);
+			$nom = "'modeles/".substr($nom, 1);
 		else $nom = "'modeles/' . $nom";
 
 		// Incoherence dans la syntaxe du contexte. A revoir.
 		// Reserver la cle primaire de la boucle courante si elle existe
 		if (isset($p->boucles[$p->id_boucle]->primary)) {
 			$primary = $p->boucles[$p->id_boucle]->primary;
-			if (!strpos($primary,',')) {
+			if (!strpos($primary, ',')) {
 				$id = champ_sql($primary, $p);
 				$_contexte[] = "'$primary'=>".$id;
 				$_contexte[] = "'id'=>".$id;
@@ -1161,12 +1161,12 @@ 
 
 		$_options = memoriser_contexte_compil($p);
 		$_options = "'compil'=>array($_options), 'trim'=>true";
-	  if (isset($_contexte['ajax'])){
-		  $_options .= ", ".preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
+	  if (isset($_contexte['ajax'])) {
+		  $_options .= ", ".preg_replace(",=>(.*)$,ims", '=> ($v=(\\1))?$v:true', $_contexte['ajax']);
 			unset($_contexte['ajax']);
 	  }
 
-		$page = sprintf(CODE_RECUPERER_FOND, $nom, 'array(' . join(',', $_contexte) .')', $_options, _q($connect));
+		$page = sprintf(CODE_RECUPERER_FOND, $nom, 'array('.join(',', $_contexte).')', $_options, _q($connect));
 
 		$p->code = "\n\t(((\$recurs=(isset(\$Pile[0]['recurs'])?\$Pile[0]['recurs']:0))>=5)? '' :\n\t$page)\n";
 
@@ -1182,9 +1182,9 @@ 
 // #SET{nom,valeur}
 // la balise renvoie la valeur
 // http://doc.spip.org/@balise_SET_dist
-function balise_SET_dist($p){
-	$_nom = interprete_argument_balise(1,$p);
-	$_val = interprete_argument_balise(2,$p);
+function balise_SET_dist($p) {
+	$_nom = interprete_argument_balise(1, $p);
+	$_val = interprete_argument_balise(2, $p);
 
 	if (!$_nom OR !$_val) {
 		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'SET'));
@@ -1229,13 +1229,13 @@ 
  * 		Pile complétée par le code à générer
 **/
 function balise_DOUBLONS_dist($p) {
-	if ($type = interprete_argument_balise(1,$p)) {
-		if ($famille = interprete_argument_balise(2,$p))
-			$type .= '.' . $famille;
+	if ($type = interprete_argument_balise(1, $p)) {
+		if ($famille = interprete_argument_balise(2, $p))
+			$type .= '.'.$famille;
 		$p->code = '$doublons['.$type.']';
 		if (!$p->etoile)
 			$p->code = 'array_filter(array_map("intval",explode(",",'
-				. $p->code . ')))';
+				. $p->code.')))';
 	}
 	else
 		$p->code = '$doublons';
@@ -1254,13 +1254,13 @@ 
 //
 // http://doc.spip.org/@balise_PIPELINE_dist
 function balise_PIPELINE_dist($p) {
-	$_pipe = interprete_argument_balise(1,$p);
+	$_pipe = interprete_argument_balise(1, $p);
 	if (!$_pipe) {
 		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'PIPELINE'));
 		erreur_squelette($err_b_s_a, $p);
 	} else {
-		$_flux = interprete_argument_balise(2,$p);
-		$_flux = $_flux?$_flux:"''";
+		$_flux = interprete_argument_balise(2, $p);
+		$_flux = $_flux ? $_flux : "''";
 		$p->code = "pipeline( $_pipe , $_flux )";
 		$p->interdire_scripts = false;
 	}
@@ -1289,7 +1289,7 @@ 
 //
 // http://doc.spip.org/@balise_TOTAL_UNIQUE_dist
 function balise_TOTAL_UNIQUE_dist($p) {
-	$_famille = interprete_argument_balise(1,$p);
+	$_famille = interprete_argument_balise(1, $p);
 	$_famille = $_famille ? $_famille : "''";
 	$p->code = "unique('', $_famille, true)";
 	return $p;
@@ -1303,13 +1303,13 @@ 
 // http://doc.spip.org/@balise_ARRAY_dist
 function balise_ARRAY_dist($p) {
 	$_code = array();
-	$n=1;
+	$n = 1;
 	do {
-		$_key = interprete_argument_balise($n++,$p);
-		$_val = interprete_argument_balise($n++,$p);
+		$_key = interprete_argument_balise($n++, $p);
+		$_val = interprete_argument_balise($n++, $p);
 		if ($_key AND $_val) $_code[] = "$_key => $_val";
 	} while ($_key && $_val);
-	$p->code = 'array(' . join(', ',$_code).')';
+	$p->code = 'array('.join(', ', $_code).')';
 	$p->interdire_scripts = false;
 	return $p;
 }
@@ -1322,10 +1322,10 @@ 
  */
 function balise_LISTE_dist($p) {
 	$_code = array();
-	$n=1;
-	while ($_val = interprete_argument_balise($n++,$p))
+	$n = 1;
+	while ($_val = interprete_argument_balise($n++, $p))
 		$_code[] = $_val;
-	$p->code = 'array(' . join(', ',$_code).')';
+	$p->code = 'array('.join(', ', $_code).')';
 	$p->interdire_scripts = false;
 	return $p;
 }
@@ -1338,11 +1338,11 @@ 
 	$_code = array();
 	$p->descr['session'] = true; // faire un cache par session
 
-	$n=1;
-	while ($_v = interprete_argument_balise($n++,$p))
+	$n = 1;
+	while ($_v = interprete_argument_balise($n++, $p))
 		$_code[] = $_v;
 
-	$p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(', ',$_code).')?" ":"")';
+	$p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser('.join(', ', $_code).')?" ":"")';
 	$p->interdire_scripts = false;
 	return $p;
 }
@@ -1351,9 +1351,9 @@ 
 // Afficher des informations sur les plugins dans le site public
 // http://doc.spip.org/@balise_PLUGIN_dist
 function balise_PLUGIN_dist($p) {
-	$plugin = interprete_argument_balise(1,$p);
+	$plugin = interprete_argument_balise(1, $p);
 	$plugin = isset($plugin) ? str_replace('\'', '"', $plugin) : '""';
-	$type_info = interprete_argument_balise(2,$p);
+	$type_info = interprete_argument_balise(2, $p);
 	$type_info = isset($type_info) ? str_replace('\'', '"', $type_info) : '"est_actif"';
 
 	$f = chercher_filtre('info_plugin');
@@ -1364,9 +1364,9 @@ 
 // Appelle la fonction inc_aider_dist
 // http://doc.spip.org/@balise_AIDER_dist
 function balise_AIDER_dist($p) {
-	$_motif = interprete_argument_balise(1,$p);
-	$s = "'" . addslashes($p->descr['sourcefile']) . "'";
-	$aider = charger_fonction('aider','inc');
+	$_motif = interprete_argument_balise(1, $p);
+	$s = "'".addslashes($p->descr['sourcefile'])."'";
+	$aider = charger_fonction('aider', 'inc');
 	$p->code = "((\$aider=charger_fonction('aider','inc'))?\$aider($_motif,$s, \$Pile[0]):'')";
 	return $p;
 }
@@ -1374,10 +1374,10 @@ 
 // Insertion du contexte des formulaires charger/verifier/traiter
 // avec les hidden de l'url d'action
 // http://doc.spip.org/@balise_ACTION_FORMULAIRE
-function balise_ACTION_FORMULAIRE($p){
-	if (!$_url = interprete_argument_balise(1,$p))
+function balise_ACTION_FORMULAIRE($p) {
+	if (!$_url = interprete_argument_balise(1, $p))
 		$_url = "@\$Pile[0]['action']";
-	if (!$_form = interprete_argument_balise(2,$p))
+	if (!$_form = interprete_argument_balise(2, $p))
 		$_form = "@\$Pile[0]['form']";
 
 	// envoyer le nom du formulaire que l'on traite
@@ -1410,18 +1410,18 @@ 
  * @param unknown_type $p
  * @return unknown
  */
-function balise_BOUTON_ACTION_dist($p){
+function balise_BOUTON_ACTION_dist($p) {
 
 	$args = array();
-	for ($k=1;$k<=6;$k++){
-		$_a = interprete_argument_balise($k,$p);
-		if (!$_a) $_a="''";
+	for ($k = 1; $k <= 6; $k++) {
+		$_a = interprete_argument_balise($k, $p);
+		if (!$_a) $_a = "''";
 	  $args[] = $_a;
 	}
 	// supprimer les args vides
-	while(end($args)=="''" AND count($args)>2)
+	while (end($args) == "''" AND count($args) > 2)
 		array_pop($args);
-	$args = implode(",",$args);
+	$args = implode(",", $args);
 
 	$bouton_action = chercher_filtre("bouton_action");
 	$p->code = "$bouton_action($args)";
@@ -1458,7 +1458,7 @@ 
  * @param unknown_type $liste
  * @return unknown
  */
-function balise_TRI_dist($p, $liste='true') {
+function balise_TRI_dist($p, $liste = 'true') {
 	$b = $p->nom_boucle ? $p->nom_boucle : $p->descr['id_mere'];
 
 	// s'il n'y a pas de nom de boucle, on ne peut pas trier
@@ -1483,21 +1483,21 @@ 
 		return $p;
 	}
 
-	$_champ = interprete_argument_balise(1,$p);
+	$_champ = interprete_argument_balise(1, $p);
 	// si pas de champ, renvoyer le critere de tri utilise
-	if (!$_champ){
+	if (!$_champ) {
 		$p->code = $boucle->modificateur['tri_champ'];
 		return $p;
 	}
 	// forcer la jointure si besoin, et si le champ est statique
-	if (preg_match(",^'([\w.]+)'$,i",$_champ,$m)){
+	if (preg_match(",^'([\w.]+)'$,i", $_champ, $m)) {
 		index_pile($b, $m[1], $p->boucles);
 	}
 
-	$_libelle = interprete_argument_balise(2,$p);
-	$_libelle = $_libelle?$_libelle:$_champ;
+	$_libelle = interprete_argument_balise(2, $p);
+	$_libelle = $_libelle ? $_libelle : $_champ;
 
-	$_class = interprete_argument_balise(3,$p);
+	$_class = interprete_argument_balise(3, $p);
 	// si champ = ">" c'est un lien vers le tri croissant : de gauche a droite ==> 1
 	// si champ = "<" c'est un lien vers le tri decroissant : (sens inverse) == -1
 	$_issens = "in_array($_champ,array('>','<'))";
@@ -1507,7 +1507,7 @@ 
 	$_url = "parametre_url(self(),$_variable,\$s?$_sens:$_champ)";
 	$_on = "\$s?(".$boucle->modificateur['tri_sens']."==$_sens".'):('.$boucle->modificateur['tri_champ']."==$_champ)";
 
-	$p->code = "lien_ou_expose($_url,$_libelle,$_on".($_class?",$_class":"").")";
+	$p->code = "lien_ou_expose($_url,$_libelle,$_on".($_class ? ",$_class" : "").")";
 	//$p->code = "''";
 	$p->interdire_scripts = false;
 	return $p;
@@ -1525,7 +1525,7 @@ 
  * @param <type> $p
  * @return <type>
  */
-function balise_SAUTER_dist($p){
+function balise_SAUTER_dist($p) {
 	$id_boucle = $p->id_boucle;
 	$boucle = $p->boucles[$id_boucle];
 
@@ -1534,7 +1534,7 @@ 
 		erreur_squelette($msg, $p);
 	}
 	else {
-		$_saut = interprete_argument_balise(1,$p);
+		$_saut = interprete_argument_balise(1, $p);
 		$_compteur = "\$Numrows['$id_boucle']['compteur_boucle']";
 		$_total = "\$Numrows['$id_boucle']['total']";
 
@@ -1552,12 +1552,12 @@ 
  * @return <type>
  */
 function balise_PUBLIE_dist($p) {
-	if (!$_type = interprete_argument_balise(1,$p)){
+	if (!$_type = interprete_argument_balise(1, $p)) {
 		$_type = _q($p->type_requete);
-		$_id = champ_sql($p->boucles[$p->id_boucle]->primary,$p);
+		$_id = champ_sql($p->boucles[$p->id_boucle]->primary, $p);
 	}
 	else
-		$_id = interprete_argument_balise(2,$p);
+		$_id = interprete_argument_balise(2, $p);
 
 	$connect = $p->boucles[$p->id_boucle]->sql_serveur;
 
@@ -1581,11 +1581,11 @@ 
  * @param object $p
  * @return object
  */
-function balise_PRODUIRE_dist($p){
-	$balise_inclure = charger_fonction('INCLURE','balise');
+function balise_PRODUIRE_dist($p) {
+	$balise_inclure = charger_fonction('INCLURE', 'balise');
 	$p = $balise_inclure($p);
 
-	$p->code = str_replace('recuperer_fond(','produire_fond_statique(',$p->code);
+	$p->code = str_replace('recuperer_fond(', 'produire_fond_statique(', $p->code);
 
 	return $p;
 }
@@ -1597,9 +1597,9 @@ 
  * @param  $p
  * @return
  */
-function balise_LARGEUR_ECRAN_dist($p){
-	$_class = interprete_argument_balise(1,$p);
-	if (!$_class) $_class='null';
+function balise_LARGEUR_ECRAN_dist($p) {
+	$_class = interprete_argument_balise(1, $p);
+	if (!$_class) $_class = 'null';
 	$p->code = "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))";
 	return $p;
 }

Braces +143 added lines, -88 removed lines

@@ -17,18 +17,21 @@ 
 // elle recoit en entree un objet de classe CHAMP, le modifie et le retourne.
 // Cette classe est definie dans public/interfaces
 
-if (!defined('_ECRIRE_INC_VERSION')) return;
+if (!defined('_ECRIRE_INC_VERSION')) {
+    return;
+}
 
 // http://doc.spip.org/@interprete_argument_balise
 function interprete_argument_balise($n,$p) {
-	if (($p->param) && (!$p->param[0][0]) && (count($p->param[0])>$n))
-		return calculer_liste($p->param[0][$n],
+	if (($p->param) && (!$p->param[0][0]) && (count($p->param[0])>$n)) {
+			return calculer_liste($p->param[0][$n],
 			$p->descr,
 			$p->boucles,
 			$p->id_boucle);
-	else
-		return NULL;
-}
+	} else {
+			return NULL;
+	}
+	}
 //
 // Definition des balises
 //
@@ -187,8 +190,9 @@ 
 		champ_sql('url_site',$p) ."," .
 		champ_sql('nom_site',$p) .
 		", 'titre', \$connect, false))";
-	} else
-		$p->code = champ_sql('nom_site',$p);
+	} else {
+			$p->code = champ_sql('nom_site',$p);
+	}
 
 	$p->interdire_scripts = true;
 	return $p;
@@ -276,8 +280,9 @@ 
 	$off= "''";
 	if (($v = interprete_argument_balise(1,$p))!==NULL){
 		$on = $v;
-		if (($v = interprete_argument_balise(2,$p))!==NULL)
-			$off = $v;
+		if (($v = interprete_argument_balise(2,$p))!==NULL) {
+					$off = $v;
+		}
 
 	}
 	return calculer_balise_expose($p, $on, $off);
@@ -320,7 +325,9 @@ 
 		$parent = index_pile($p->id_boucle, 'id_rubrique', $p->boucles, $b);
 	} elseif  (isset($desc['field']['id_groupe'])) {
 		$parent = index_pile($p->id_boucle, 'id_groupe', $p->boucles, $b);
-	} else $parent = "''";
+	} else {
+	    $parent = "''";
+	}
 
 	$p->code = "(calcul_exposer($c, '$type', \$Pile[0], $parent, '$key', $connect) ? $on : $off)";
 
@@ -400,10 +407,11 @@ 
 // http://doc.spip.org/@balise_LANG_dist
 function balise_LANG_dist ($p) {
 	$_lang = champ_sql('lang', $p);
-	if (!$p->etoile)
-		$p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])";
-	else
-		$p->code = "spip_htmlentities($_lang)";
+	if (!$p->etoile) {
+			$p->code = "spip_htmlentities($_lang ? $_lang : \$GLOBALS['spip_lang'])";
+	} else {
+			$p->code = "spip_htmlentities($_lang)";
+	}
 	$p->interdire_scripts = false;
 	return $p;
 }
@@ -430,8 +438,7 @@ 
 			$connect = '';
 			$objet = 'article';
 			$id_table_objet = 'id_article';
-		}
-		else{
+		} else{
 			$b = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
 			$connect = $p->boucles[$b]->sql_serveur;
 			$type_boucle = $p->boucles[$b]->type_requete;
@@ -593,9 +600,9 @@ 
 
 	if (count($_contexte)){
 		$code_contexte = implode(',',$_contexte);
+	} else {
+			$code_contexte = '';
 	}
-	else
-		$code_contexte = '';
 
 	$connect = $p->boucles[$b]->sql_serveur;
 	$pas = $p->boucles[$b]->total_parties;
@@ -616,9 +623,12 @@ 
 // qu'on mettra les liens en-dessous de la liste paginee)
 // http://doc.spip.org/@balise_ANCRE_PAGINATION_dist
 function balise_ANCRE_PAGINATION_dist($p) {
-	if ($f = charger_fonction('PAGINATION', 'balise', true))
-		return $f($p, $liste='false');
-	else return NULL; // ou une erreur ?
+	if ($f = charger_fonction('PAGINATION', 'balise', true)) {
+			return $f($p, $liste='false');
+	} else {
+	    return NULL;
+	}
+	// ou une erreur ?
 }
 
 // equivalent a #TOTAL_BOUCLE sauf pour les boucles paginees, ou elle
@@ -661,8 +671,9 @@ 
 	if (!$arg) {
 		$msg = array('zbug_balise_sans_argument',	array('balise' => ' CHEMIN'));
 		erreur_squelette($msg, $p);
-	} else
-	  $p->code = 'find_in_path(' . $arg .')';
+	} else {
+		  $p->code = 'find_in_path(' . $arg .')';
+	}
 
 	#$p->interdire_scripts = true;
 	return $p;
@@ -673,7 +684,9 @@ 
 	if (!$arg) {
 		$msg = array('zbug_balise_sans_argument', array('balise' => ' CHEMIN_IMAGE'));
 		erreur_squelette($msg, $p);
-	} else $p->code = 'chemin_image(' . $arg .')';
+	} else {
+	    $p->code = 'chemin_image(' . $arg .')';
+	}
 
 	#$p->interdire_scripts = true;
 	return $p;
@@ -814,7 +827,9 @@ 
 	if (!$_nom OR !$_val) {
 		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => 'SESSION_SET'));
 		erreur_squelette($err_b_s_a, $p);
-	} else 	$p->code = '(include_spip("inc/session") AND session_set('.$_nom.','.$_val.'))';
+	} else {
+	    $p->code = '(include_spip("inc/session") AND session_set('.$_nom.','.$_val.'))';
+	}
 
 	$p->interdire_scripts = false;
 
@@ -841,10 +856,11 @@ 
 		# optimisation sur les #EVAL{une expression sans #BALISE}
 		# attention au commentaire "// x signes" qui precede
 		if (preg_match(",^([[:space:]]*//[^\n]*\n)'([^']+)'$,ms",
-		$php,$r))
-			$p->code = /* $r[1]. */'('.$r[2].')';
-		else
-			$p->code = "eval('return '.$php.';')";
+		$php,$r)) {
+					$p->code = /* $r[1]. */'('.$r[2].')';
+		} else {
+					$p->code = "eval('return '.$php.';')";
+		}
 	} else {
 		$msg = array('zbug_balise_sans_argument', array('balise' => ' EVAL'));
 		erreur_squelette($msg, $p);
@@ -864,9 +880,9 @@ 
 
 	if ($p->param
 	AND isset($p->param[0][1][0])
-	AND $champ = ($p->param[0][1][0]->texte))
-		$p->code = champ_sql($champ, $p);
-	else {
+	AND $champ = ($p->param[0][1][0]->texte)) {
+			$p->code = champ_sql($champ, $p);
+	} else {
 		$err_b_s_a = array('zbug_balise_sans_argument', array('balise' => ' CHAMP_SQL'));
 		erreur_squelette($err_b_s_a, $p);
 	}
@@ -879,8 +895,9 @@ 
 // http://doc.spip.org/@balise_VAL_dist
 function balise_VAL_dist($p){
 	$p->code = interprete_argument_balise(1,$p);
-	if (!strlen($p->code))
-		$p->code = "''";
+	if (!strlen($p->code)) {
+			$p->code = "''";
+	}
 	$p->interdire_scripts = false;
 	return $p;
 }
@@ -943,8 +960,9 @@ 
 function balise_FILTRE_dist($p) {
 	if ($p->param) {
 		$args = array();
-		foreach ($p->param as $i => $ignore)
-			$args[] = interprete_argument_balise($i+1,$p);
+		foreach ($p->param as $i => $ignore) {
+					$args[] = interprete_argument_balise($i+1,$p);
+		}
 		$p->code = "'<' . '"
 			.'?php header("X-Spip-Filtre: \'.'
 				.join('.\'|\'.', $args)
@@ -979,12 +997,13 @@ 
 
 		// Remplir le header Cache-Control
 		// cas #CACHE{0}
-		if ($duree == 0)
-			$code .= '.\'<'
+		if ($duree == 0) {
+					$code .= '.\'<'
 			.'?php header("Cache-Control: no-cache, must-revalidate"); ?'
 			.'><'
 			.'?php header("Pragma: no-cache"); ?'
 			.'>\'';
+		}
 
 		// recuperer les parametres suivants
 		$i = 1;
@@ -1001,10 +1020,13 @@ 
 			}
 
 			if ($pa == 'statique'
-			AND $duree > 0)
-				$code .= '.\'<'.'?php header("X-Spip-Statique: oui"); ?'.'>\'';
+			AND $duree > 0) {
+							$code .= '.\'<'.'?php header("X-Spip-Statique: oui"); ?'.'>\'';
+			}
 		}
-	} else $code = "''";
+	} else {
+	    $code = "''";
+	}
 	$p->code = $code;
 	$p->interdire_scripts = false;
 	return $p;
@@ -1061,11 +1083,12 @@ 
 // (Incompatible avec les balises dynamiques)
 // http://doc.spip.org/@balise_INCLUDE_dist
 function balise_INCLUDE_dist($p) {
-	if(function_exists('balise_INCLURE'))
-		return balise_INCLURE($p);
-	else
-		return balise_INCLURE_dist($p);
-}
+	if(function_exists('balise_INCLURE')) {
+			return balise_INCLURE($p);
+	} else {
+			return balise_INCLURE_dist($p);
+	}
+	}
 // http://doc.spip.org/@balise_INCLURE_dist
 function balise_INCLURE_dist($p) {
 	$id_boucle = $p->id_boucle;
@@ -1077,7 +1100,9 @@ 
 
 	// erreur de syntaxe = fond absent
 	// (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
-	if (!$_contexte) $contexte = array();
+	if (!$_contexte) {
+	    $contexte = array();
+	}
 
 	if (isset($_contexte['fond'])) {
 
@@ -1086,7 +1111,9 @@ 
 		if (preg_match('/^.fond.\s*=>(.*)$/s', $f, $r)) {
 			$f = $r[1];
 			unset($_contexte['fond']);
-		} else spip_log("compilation de #INCLURE a revoir");
+		} else {
+		    spip_log("compilation de #INCLURE a revoir");
+		}
 
 		// #INCLURE{doublons}
 		if (isset($_contexte['doublons'])) {
@@ -1099,25 +1126,33 @@ 
 		) {
 			$flag_env = true;
 			unset($_contexte['env']);
-		} else $flag_env = false;
+		} else {
+		    $flag_env = false;
+		}
 
 		$_options = array();
 		if (isset($_contexte['ajax'])) {
 			$_options[] = preg_replace(",=>(.*)$,ims",'=> ($v=(\\1))?$v:true',$_contexte['ajax']);
 			unset($_contexte['ajax']);
 		}
-		if ($p->etoile) $_options[] = "'etoile'=>true";
+		if ($p->etoile) {
+		    $_options[] = "'etoile'=>true";
+		}
 		$_options[] = "'compil'=>array(" . memoriser_contexte_compil($p) .")";
 
 		$_l = 'array(' . join(",\n\t", $_contexte) .')';
-		if ($flag_env) $_l = "array_merge(\$Pile[0],$_l)";
+		if ($flag_env) {
+		    $_l = "array_merge(\$Pile[0],$_l)";
+		}
 
 		$p->code = sprintf(CODE_RECUPERER_FOND, $f, $_l, join(',',$_options),"''");
 
 	} elseif (!isset($_contexte[1])) {
 			$msg = array('zbug_balise_sans_argument', array('balise' => ' INCLURE'));
 			erreur_squelette($msg, $p);
-	} else 		$p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
+	} else {
+	    $p->code = 'charge_scripts(' . $_contexte[1] . ',false)';
+	}
 
 	$p->interdire_scripts = false; // la securite est assuree par recuperer_fond
 	return $p;
@@ -1131,7 +1166,9 @@ 
 
 	// erreur de syntaxe = fond absent
 	// (2 messages d'erreur SPIP pour le prix d'un, mais pas d'erreur PHP
-	if (!$_contexte) $contexte = array();
+	if (!$_contexte) {
+	    $contexte = array();
+	}
 
 	if (!isset($_contexte[1])) {
 		$msg = array('zbug_balise_sans_argument', array('balise' => ' MODELE'));
@@ -1140,9 +1177,11 @@ 
 		$nom = $_contexte[1];
 		unset($_contexte[1]);
 
-		if (preg_match("/^\s*'[^']*'/s", $nom))
-			$nom = "'modeles/" . substr($nom,1);
-		else $nom = "'modeles/' . $nom";
+		if (preg_match("/^\s*'[^']*'/s", $nom)) {
+					$nom = "'modeles/" . substr($nom,1);
+		} else {
+		    $nom = "'modeles/' . $nom";
+		}
 
 		// Incoherence dans la syntaxe du contexte. A revoir.
 		// Reserver la cle primaire de la boucle courante si elle existe
@@ -1156,8 +1195,9 @@ 
 		}
 		$_contexte[] = "'recurs'=>(++\$recurs)";
 		$connect = '';
-		if (isset($p->boucles[$p->id_boucle]))
-			$connect = $p->boucles[$p->id_boucle]->sql_serveur;
+		if (isset($p->boucles[$p->id_boucle])) {
+					$connect = $p->boucles[$p->id_boucle]->sql_serveur;
+		}
 
 		$_options = memoriser_contexte_compil($p);
 		$_options = "'compil'=>array($_options), 'trim'=>true";
@@ -1192,7 +1232,9 @@ 
 	}
 	// affectation $_zzz inutile, mais permet de contourner un bug OpCode cache sous PHP 5.5.4
 	// cf https://bugs.php.net/bug.php?id=65845
-	else  $p->code = "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)";
+	else {
+	    $p->code = "vide(\$Pile['vars'][\$_zzz=(string)$_nom] = $_val)";
+	}
 
 	$p->interdire_scripts = false; // la balise ne renvoie rien
 	return $p;
@@ -1206,11 +1248,12 @@ 
 // http://doc.spip.org/@balise_GET_dist
 function balise_GET_dist($p) {
 	$p->interdire_scripts = false; // le contenu vient de #SET, donc il est de confiance
-	if (function_exists('balise_ENV'))
-		return balise_ENV($p, '$Pile["vars"]');
-	else
-		return balise_ENV_dist($p, '$Pile["vars"]');
-}
+	if (function_exists('balise_ENV')) {
+			return balise_ENV($p, '$Pile["vars"]');
+	} else {
+			return balise_ENV_dist($p, '$Pile["vars"]');
+	}
+	}
 
 
 /**
@@ -1230,15 +1273,17 @@ 
 **/
 function balise_DOUBLONS_dist($p) {
 	if ($type = interprete_argument_balise(1,$p)) {
-		if ($famille = interprete_argument_balise(2,$p))
-			$type .= '.' . $famille;
+		if ($famille = interprete_argument_balise(2,$p)) {
+					$type .= '.' . $famille;
+		}
 		$p->code = '$doublons['.$type.']';
-		if (!$p->etoile)
-			$p->code = 'array_filter(array_map("intval",explode(",",'
+		if (!$p->etoile) {
+					$p->code = 'array_filter(array_map("intval",explode(",",'
 				. $p->code . ')))';
+		}
+	} else {
+			$p->code = '$doublons';
 	}
-	else
-		$p->code = '$doublons';
 
 	$p->interdire_scripts = false;
 
@@ -1307,7 +1352,9 @@ 
 	do {
 		$_key = interprete_argument_balise($n++,$p);
 		$_val = interprete_argument_balise($n++,$p);
-		if ($_key AND $_val) $_code[] = "$_key => $_val";
+		if ($_key AND $_val) {
+		    $_code[] = "$_key => $_val";
+		}
 	} while ($_key && $_val);
 	$p->code = 'array(' . join(', ',$_code).')';
 	$p->interdire_scripts = false;
@@ -1323,8 +1370,9 @@ 
 function balise_LISTE_dist($p) {
 	$_code = array();
 	$n=1;
-	while ($_val = interprete_argument_balise($n++,$p))
-		$_code[] = $_val;
+	while ($_val = interprete_argument_balise($n++,$p)) {
+			$_code[] = $_val;
+	}
 	$p->code = 'array(' . join(', ',$_code).')';
 	$p->interdire_scripts = false;
 	return $p;
@@ -1339,8 +1387,9 @@ 
 	$p->descr['session'] = true; // faire un cache par session
 
 	$n=1;
-	while ($_v = interprete_argument_balise($n++,$p))
-		$_code[] = $_v;
+	while ($_v = interprete_argument_balise($n++,$p)) {
+			$_code[] = $_v;
+	}
 
 	$p->code = '((function_exists("autoriser")||include_spip("inc/autoriser"))&&autoriser(' . join(', ',$_code).')?" ":"")';
 	$p->interdire_scripts = false;
@@ -1375,10 +1424,12 @@ 
 // avec les hidden de l'url d'action
 // http://doc.spip.org/@balise_ACTION_FORMULAIRE
 function balise_ACTION_FORMULAIRE($p){
-	if (!$_url = interprete_argument_balise(1,$p))
-		$_url = "@\$Pile[0]['action']";
-	if (!$_form = interprete_argument_balise(2,$p))
-		$_form = "@\$Pile[0]['form']";
+	if (!$_url = interprete_argument_balise(1,$p)) {
+			$_url = "@\$Pile[0]['action']";
+	}
+	if (!$_form = interprete_argument_balise(2,$p)) {
+			$_form = "@\$Pile[0]['form']";
+	}
 
 	// envoyer le nom du formulaire que l'on traite
 	// transmettre les eventuels args de la balise formulaire
@@ -1415,12 +1466,15 @@ 
 	$args = array();
 	for ($k=1;$k<=6;$k++){
 		$_a = interprete_argument_balise($k,$p);
-		if (!$_a) $_a="''";
+		if (!$_a) {
+		    $_a="''";
+		}
 	  $args[] = $_a;
 	}
 	// supprimer les args vides
-	while(end($args)=="''" AND count($args)>2)
-		array_pop($args);
+	while(end($args)=="''" AND count($args)>2) {
+			array_pop($args);
+	}
 	$args = implode(",",$args);
 
 	$bouton_action = chercher_filtre("bouton_action");
@@ -1532,8 +1586,7 @@ 
 	if (!$boucle) {
 		$msg = array('zbug_champ_hors_boucle', array('champ' => '#SAUTER'));
 		erreur_squelette($msg, $p);
-	}
-	else {
+	} else {
 		$_saut = interprete_argument_balise(1,$p);
 		$_compteur = "\$Numrows['$id_boucle']['compteur_boucle']";
 		$_total = "\$Numrows['$id_boucle']['total']";
@@ -1555,9 +1608,9 @@ 
 	if (!$_type = interprete_argument_balise(1,$p)){
 		$_type = _q($p->type_requete);
 		$_id = champ_sql($p->boucles[$p->id_boucle]->primary,$p);
+	} else {
+			$_id = interprete_argument_balise(2,$p);
 	}
-	else
-		$_id = interprete_argument_balise(2,$p);
 
 	$connect = $p->boucles[$p->id_boucle]->sql_serveur;
 
@@ -1599,7 +1652,9 @@ 
  */
 function balise_LARGEUR_ECRAN_dist($p){
 	$_class = interprete_argument_balise(1,$p);
-	if (!$_class) $_class='null';
+	if (!$_class) {
+	    $_class='null';
+	}
 	$p->code = "(is_string($_class)?vide(\$GLOBALS['largeur_ecran']=$_class):(isset(\$GLOBALS['largeur_ecran'])?\$GLOBALS['largeur_ecran']:''))";
 	return $p;
 }

ecrire/action/editer_objet.php

Indentation +350 added lines, -350 removed lines

@@ -24,28 +24,28 @@ 
  */
 function action_editer_objet_dist($id=null, $objet=null, $set=null) {
 
-	// appel direct depuis une url interdit
-	if (is_null($id) OR is_null($objet)){
-		include_spip('inc/minipres');
-		echo minipres(_T('info_acces_interdit'));
-		die();
-	}
-
-	// si id n'est pas un nombre, c'est une creation
-	// mais on verifie qu'on a toutes les donnees qu'il faut.
-	if (!$id = intval($id)) {
-		// on ne sait pas si un parent existe mais on essaye
-		$id_parent = _request('id_parent');
-		$id = objet_inserer($objet, $id_parent);
-	}
-
-	if (!($id = intval($id))>0)
-		return array($id,_L('echec enregistrement en base'));
-
-	// Enregistre l'envoi dans la BD
-	$err = objet_modifier($objet, $id, $set);
-
-	return array($id,$err);
+    // appel direct depuis une url interdit
+    if (is_null($id) OR is_null($objet)){
+        include_spip('inc/minipres');
+        echo minipres(_T('info_acces_interdit'));
+        die();
+    }
+
+    // si id n'est pas un nombre, c'est une creation
+    // mais on verifie qu'on a toutes les donnees qu'il faut.
+    if (!$id = intval($id)) {
+        // on ne sait pas si un parent existe mais on essaye
+        $id_parent = _request('id_parent');
+        $id = objet_inserer($objet, $id_parent);
+    }
+
+    if (!($id = intval($id))>0)
+        return array($id,_L('echec enregistrement en base'));
+
+    // Enregistre l'envoi dans la BD
+    $err = objet_modifier($objet, $id, $set);
+
+    return array($id,$err);
 }
 
 /**
@@ -58,71 +58,71 @@ 
  * @return mixed|string
  */
 function objet_modifier($objet, $id, $set=null) {
-	if (include_spip('action/editer_'.$objet)
-	  AND function_exists($modifier = $objet."_modifier"))
-		return $modifier($id,$set);
-
-	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table','base');
-	$desc = $trouver_table($table_sql);
-	if (!$desc OR !isset($desc['field'])) {
-		spip_log("Objet $objet inconnu dans objet_modifier",_LOG_ERREUR);
-		return _L("Erreur objet $objet inconnu");
-	}
-	include_spip('inc/modifier');
-
-	$champ_date = '';
-	if (isset($desc['date']) AND $desc['date'])
-		$champ_date = $desc['date'];
-	elseif (isset($desc['field']['date']))
-		$champ_date = 'date';
-
-	$white = array_keys($desc['field']);
-	// on ne traite pas la cle primaire par defaut, notamment car
-	// sur une creation, id_x vaut 'oui', et serait enregistre en id_x=0 dans la base
-	$white = array_diff($white, array($desc['key']['PRIMARY KEY']));
-
-	if (isset($desc['champs_editables']) AND is_array($desc['champs_editables'])) {
-		$white = $desc['champs_editables'];
-	}
-	$c = collecter_requests(
-		// white list
-		$white,
-		// black list
-		array($champ_date,'statut','id_parent','id_secteur'),
-		// donnees eventuellement fournies
-		$set
-	);
-
-	// Si l'objet est publie, invalider les caches et demander sa reindexation
-	if (objet_test_si_publie($objet,$id)){
-		$invalideur = "id='$objet/$id'";
-		$indexation = true;
-	}
-	else {
-		$invalideur = "";
-		$indexation = false;
-	}
-
-	if ($err = objet_modifier_champs($objet, $id,
-		array(
-			'data' => $set,
-			'nonvide' => '',
-			'invalideur' => $invalideur,
-			'indexation' => $indexation,
-			 // champ a mettre a date('Y-m-d H:i:s') s'il y a modif
-			'date_modif' => (isset($desc['field']['date_modif'])?'date_modif':'')
-		),
-		$c))
-		return $err;
-
-	// Modification de statut, changement de rubrique ?
-	// FIXME: Ici lorsqu'un $set est passé, la fonction collecter_requests() retourne tout
-	//         le tableau $set hors black liste, mais du coup on a possiblement des champs en trop. 
-	$c = collecter_requests(array($champ_date, 'statut', 'id_parent'),array(),$set);
-	$err = objet_instituer($objet, $id, $c);
-
-	return $err;
+    if (include_spip('action/editer_'.$objet)
+      AND function_exists($modifier = $objet."_modifier"))
+        return $modifier($id,$set);
+
+    $table_sql = table_objet_sql($objet);
+    $trouver_table = charger_fonction('trouver_table','base');
+    $desc = $trouver_table($table_sql);
+    if (!$desc OR !isset($desc['field'])) {
+        spip_log("Objet $objet inconnu dans objet_modifier",_LOG_ERREUR);
+        return _L("Erreur objet $objet inconnu");
+    }
+    include_spip('inc/modifier');
+
+    $champ_date = '';
+    if (isset($desc['date']) AND $desc['date'])
+        $champ_date = $desc['date'];
+    elseif (isset($desc['field']['date']))
+        $champ_date = 'date';
+
+    $white = array_keys($desc['field']);
+    // on ne traite pas la cle primaire par defaut, notamment car
+    // sur une creation, id_x vaut 'oui', et serait enregistre en id_x=0 dans la base
+    $white = array_diff($white, array($desc['key']['PRIMARY KEY']));
+
+    if (isset($desc['champs_editables']) AND is_array($desc['champs_editables'])) {
+        $white = $desc['champs_editables'];
+    }
+    $c = collecter_requests(
+        // white list
+        $white,
+        // black list
+        array($champ_date,'statut','id_parent','id_secteur'),
+        // donnees eventuellement fournies
+        $set
+    );
+
+    // Si l'objet est publie, invalider les caches et demander sa reindexation
+    if (objet_test_si_publie($objet,$id)){
+        $invalideur = "id='$objet/$id'";
+        $indexation = true;
+    }
+    else {
+        $invalideur = "";
+        $indexation = false;
+    }
+
+    if ($err = objet_modifier_champs($objet, $id,
+        array(
+            'data' => $set,
+            'nonvide' => '',
+            'invalideur' => $invalideur,
+            'indexation' => $indexation,
+                // champ a mettre a date('Y-m-d H:i:s') s'il y a modif
+            'date_modif' => (isset($desc['field']['date_modif'])?'date_modif':'')
+        ),
+        $c))
+        return $err;
+
+    // Modification de statut, changement de rubrique ?
+    // FIXME: Ici lorsqu'un $set est passé, la fonction collecter_requests() retourne tout
+    //         le tableau $set hors black liste, mais du coup on a possiblement des champs en trop. 
+    $c = collecter_requests(array($champ_date, 'statut', 'id_parent'),array(),$set);
+    $err = objet_instituer($objet, $id, $c);
+
+    return $err;
 }
 
 /**
@@ -133,108 +133,108 @@ 
  * @return bool|int
  */
 function objet_inserer($objet, $id_parent=null, $set=null) {
-	if (include_spip('action/editer_'.$objet)
-	  AND function_exists($inserer = $objet."_inserer"))
-		return $inserer($id_parent);
-
-	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table','base');
-	$desc = $trouver_table($table_sql);
-	if (!$desc OR !isset($desc['field']))
-		return 0;
-
-	$lang_rub = "";
-	$champs = array();
-	if (isset($desc['field']['id_rubrique'])){
-		// Si id_rubrique vaut 0 ou n'est pas definie, creer l'objet
-		// dans la premiere rubrique racine
-		if (!$id_rubrique = intval($id_parent)) {
-			$row = sql_fetsel("id_rubrique, id_secteur, lang", "spip_rubriques", "id_parent=0",'', '0+titre,titre', "1");
-			$id_rubrique = $row['id_rubrique'];
-		}
-		else
-			$row = sql_fetsel("lang, id_secteur", "spip_rubriques", "id_rubrique=".intval($id_rubrique));
-
-		$champs['id_rubrique'] = $id_rubrique;
-		if (isset($desc['field']['id_secteur']))
-			$champs['id_secteur'] = $row['id_secteur'];
-		$lang_rub = $row['lang'];
-	}
-
-	// La langue a la creation : si les liens de traduction sont autorises
-	// dans les rubriques, on essaie avec la langue de l'auteur,
-	// ou a defaut celle de la rubrique
-	// Sinon c'est la langue de la rubrique qui est choisie + heritee
-	if (isset($desc['field']['lang']) AND $GLOBALS['meta']['multi_objets'] AND in_array($table_sql, explode(',', $GLOBALS['meta']['multi_objets']))) {
-		lang_select($GLOBALS['visiteur_session']['lang']);
-		if (in_array($GLOBALS['spip_lang'],
-		explode(',', $GLOBALS['meta']['langues_multilingue']))) {
-			$champs['lang'] = $GLOBALS['spip_lang'];
-			if (isset($desc['field']['langue_choisie']))
-				$champs['langue_choisie'] = 'oui';
-		}
-	}
-	elseif (isset($desc['field']['lang']) AND isset($desc['field']['langue_choisie'])) {
-		$champs['lang'] = ($lang_rub ? $lang_rub : $GLOBALS['meta']['langue_site']);
-		$champs['langue_choisie'] = 'non';
-	}
-
-	if (isset($desc['field']['statut'])){
-		if (isset($desc['statut_textes_instituer'])){
-			$cles_statut = array_keys($desc['statut_textes_instituer']); 
-			$champs['statut'] = reset($cles_statut);
-		}
-		else
-			$champs['statut'] = 'prepa';
-	}
-
-
-	if ((isset($desc['date']) AND $d=$desc['date']) OR isset($desc['field'][$d='date']))
-		$champs[$d] = date('Y-m-d H:i:s');
-
-	if ($set)
-		$champs = array_merge($champs, $set);
-
-	// Envoyer aux plugins
-	$champs = pipeline('pre_insertion',
-		array(
-			'args' => array(
-				'table' => $table_sql,
-			),
-			'data' => $champs
-		)
-	);
-
-	$id = sql_insertq($table_sql, $champs);
-
-	if ($id){
-		pipeline('post_insertion',
-			array(
-				'args' => array(
-					'table' => $table_sql,
-					'id_objet' => $id,
-				),
-				'data' => $champs
-			)
-		);
-
-		// controler si le serveur n'a pas renvoye une erreur
-		// et associer l'auteur sinon
-		// si la table n'a pas deja un champ id_auteur
-		// et si le form n'a pas poste un id_auteur (meme vide, ce qui sert a annuler cette auto association)
-		if ($id > 0
-		  AND !isset($desc['field']['id_auteur'])){
-			$id_auteur = ((is_null(_request('id_auteur')) AND isset($GLOBALS['visiteur_session']['id_auteur']))?
-				$GLOBALS['visiteur_session']['id_auteur']
-				:_request('id_auteur'));
-		  if ($id_auteur) {
-				include_spip('action/editer_auteur');
-				auteur_associer($id_auteur, array($objet=>$id));
-		  }
-		}
-	}
-
-	return $id;
+    if (include_spip('action/editer_'.$objet)
+      AND function_exists($inserer = $objet."_inserer"))
+        return $inserer($id_parent);
+
+    $table_sql = table_objet_sql($objet);
+    $trouver_table = charger_fonction('trouver_table','base');
+    $desc = $trouver_table($table_sql);
+    if (!$desc OR !isset($desc['field']))
+        return 0;
+
+    $lang_rub = "";
+    $champs = array();
+    if (isset($desc['field']['id_rubrique'])){
+        // Si id_rubrique vaut 0 ou n'est pas definie, creer l'objet
+        // dans la premiere rubrique racine
+        if (!$id_rubrique = intval($id_parent)) {
+            $row = sql_fetsel("id_rubrique, id_secteur, lang", "spip_rubriques", "id_parent=0",'', '0+titre,titre', "1");
+            $id_rubrique = $row['id_rubrique'];
+        }
+        else
+            $row = sql_fetsel("lang, id_secteur", "spip_rubriques", "id_rubrique=".intval($id_rubrique));
+
+        $champs['id_rubrique'] = $id_rubrique;
+        if (isset($desc['field']['id_secteur']))
+            $champs['id_secteur'] = $row['id_secteur'];
+        $lang_rub = $row['lang'];
+    }
+
+    // La langue a la creation : si les liens de traduction sont autorises
+    // dans les rubriques, on essaie avec la langue de l'auteur,
+    // ou a defaut celle de la rubrique
+    // Sinon c'est la langue de la rubrique qui est choisie + heritee
+    if (isset($desc['field']['lang']) AND $GLOBALS['meta']['multi_objets'] AND in_array($table_sql, explode(',', $GLOBALS['meta']['multi_objets']))) {
+        lang_select($GLOBALS['visiteur_session']['lang']);
+        if (in_array($GLOBALS['spip_lang'],
+        explode(',', $GLOBALS['meta']['langues_multilingue']))) {
+            $champs['lang'] = $GLOBALS['spip_lang'];
+            if (isset($desc['field']['langue_choisie']))
+                $champs['langue_choisie'] = 'oui';
+        }
+    }
+    elseif (isset($desc['field']['lang']) AND isset($desc['field']['langue_choisie'])) {
+        $champs['lang'] = ($lang_rub ? $lang_rub : $GLOBALS['meta']['langue_site']);
+        $champs['langue_choisie'] = 'non';
+    }
+
+    if (isset($desc['field']['statut'])){
+        if (isset($desc['statut_textes_instituer'])){
+            $cles_statut = array_keys($desc['statut_textes_instituer']); 
+            $champs['statut'] = reset($cles_statut);
+        }
+        else
+            $champs['statut'] = 'prepa';
+    }
+
+
+    if ((isset($desc['date']) AND $d=$desc['date']) OR isset($desc['field'][$d='date']))
+        $champs[$d] = date('Y-m-d H:i:s');
+
+    if ($set)
+        $champs = array_merge($champs, $set);
+
+    // Envoyer aux plugins
+    $champs = pipeline('pre_insertion',
+        array(
+            'args' => array(
+                'table' => $table_sql,
+            ),
+            'data' => $champs
+        )
+    );
+
+    $id = sql_insertq($table_sql, $champs);
+
+    if ($id){
+        pipeline('post_insertion',
+            array(
+                'args' => array(
+                    'table' => $table_sql,
+                    'id_objet' => $id,
+                ),
+                'data' => $champs
+            )
+        );
+
+        // controler si le serveur n'a pas renvoye une erreur
+        // et associer l'auteur sinon
+        // si la table n'a pas deja un champ id_auteur
+        // et si le form n'a pas poste un id_auteur (meme vide, ce qui sert a annuler cette auto association)
+        if ($id > 0
+          AND !isset($desc['field']['id_auteur'])){
+            $id_auteur = ((is_null(_request('id_auteur')) AND isset($GLOBALS['visiteur_session']['id_auteur']))?
+                $GLOBALS['visiteur_session']['id_auteur']
+                :_request('id_auteur'));
+            if ($id_auteur) {
+                include_spip('action/editer_auteur');
+                auteur_associer($id_auteur, array($objet=>$id));
+            }
+        }
+    }
+
+    return $id;
 }
 
 
@@ -250,114 +250,114 @@ 
  * @return mixed|string
  */
 function objet_instituer($objet, $id, $c, $calcul_rub=true) {
-	if (include_spip('action/editer_'.$objet)
-	  AND function_exists($instituer = $objet."_instituer"))
-		return $instituer($id,$c,$calcul_rub);
-
-	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table','base');
-	$desc = $trouver_table($table_sql);
-	if (!$desc OR !isset($desc['field']))
-		return _L("Impossible d'instituer $objet : non connu en base");
-
-	include_spip('inc/autoriser');
-	include_spip('inc/rubriques');
-	include_spip('inc/modifier');
-
-	$sel = array();
-	$sel[] = (isset($desc['field']['statut'])?"statut":"'' as statut");
-
-	$champ_date = '';
-	if (isset($desc['date']) AND $desc['date'])
-		$champ_date = $desc['date'];
-	elseif (isset($desc['field']['date']))
-		$champ_date = 'date';
-
-	$sel[] = ($champ_date ? "$champ_date as date" : "'' as date");
-	$sel[] = (isset($desc['field']['id_rubrique'])?'id_rubrique':"0 as id_rubrique");
-
-	$row = sql_fetsel($sel, $table_sql, id_table_objet($objet).'='.intval($id));
-
-	$id_rubrique = $row['id_rubrique'];
-	$statut_ancien = $statut = $row['statut'];
-	$date_ancienne = $date = $row['date'];
-	$champs = array();
-
-	$d = ($date AND isset($c[$champ_date]))?$c[$champ_date]:null;
-	$s = (isset($desc['field']['statut']) AND isset($c['statut']))?$c['statut']:$statut;
-
-	// cf autorisations dans inc/instituer_objet
-	if ($s != $statut OR ($d AND $d != $date)) {
-		if ($id_rubrique ?
-				autoriser('publierdans', 'rubrique', $id_rubrique)
-			:
-				autoriser('instituer', $objet, $id, null, array('statut'=>$s))
-			)
-			$statut = $champs['statut'] = $s;
-		else if ($s!='publie' AND autoriser('modifier', $objet, $id))
-			$statut = $champs['statut'] = $s;
-		else
-			spip_log("editer_objet $id refus " . join(' ', $c));
-
-		// En cas de publication, fixer la date a "maintenant"
-		// sauf si $c commande autre chose
-		// ou si l'objet est deja date dans le futur
-		// En cas de proposition d'un objet (mais pas depublication), idem
-		if ($champ_date) {
-			if ($champs['statut'] == 'publie'
-			 OR ($champs['statut'] == 'prop' AND !in_array($statut_ancien, array('publie', 'prop')))
-			 OR $d
-			) {
-				if ($d OR strtotime($d=$date)>time())
-					$champs[$champ_date] = $date = $d;
-				else
-					$champs[$champ_date] = $date = date('Y-m-d H:i:s');
-			}
-		}
-	}
-
-	// Verifier que la rubrique demandee existe et est differente
-	// de la rubrique actuelle
-	if ($id_rubrique
-	  AND $id_parent = $c['id_parent']
-	  AND $id_parent != $id_rubrique
-	  AND (sql_fetsel('1', "spip_rubriques", "id_rubrique=".intval($id_parent)))) {
-		$champs['id_rubrique'] = $id_parent;
-
-		// si l'objet etait publie
-		// et que le demandeur n'est pas admin de la rubrique
-		// repasser l'objet en statut 'propose'.
-		if ($statut == 'publie'
-		AND !autoriser('publierdans', 'rubrique', $id_rubrique))
-			$champs['statut'] = 'prop';
-	}
-
-
-	// Envoyer aux plugins
-	$champs = pipeline('pre_edition',
-		array(
-			'args' => array(
-				'table' => $table_sql,
-				'id_objet' => $id,
-				'action'=>'instituer',
-				'statut_ancien' => $statut_ancien,
-				'date_ancienne' => $date_ancienne,
-				'id_parent_ancien' => $id_rubrique,
-			),
-			'data' => $champs
-		)
-	);
-
-	if (!count($champs)) return '';
-
-	// Envoyer les modifs.
-	objet_editer_heritage($objet, $id, $id_rubrique, $statut_ancien, $champs, $calcul_rub);
-
-	// Invalider les caches
-	include_spip('inc/invalideur');
-	suivre_invalideur("id='$objet/$id'");
-
-	/*
+    if (include_spip('action/editer_'.$objet)
+      AND function_exists($instituer = $objet."_instituer"))
+        return $instituer($id,$c,$calcul_rub);
+
+    $table_sql = table_objet_sql($objet);
+    $trouver_table = charger_fonction('trouver_table','base');
+    $desc = $trouver_table($table_sql);
+    if (!$desc OR !isset($desc['field']))
+        return _L("Impossible d'instituer $objet : non connu en base");
+
+    include_spip('inc/autoriser');
+    include_spip('inc/rubriques');
+    include_spip('inc/modifier');
+
+    $sel = array();
+    $sel[] = (isset($desc['field']['statut'])?"statut":"'' as statut");
+
+    $champ_date = '';
+    if (isset($desc['date']) AND $desc['date'])
+        $champ_date = $desc['date'];
+    elseif (isset($desc['field']['date']))
+        $champ_date = 'date';
+
+    $sel[] = ($champ_date ? "$champ_date as date" : "'' as date");
+    $sel[] = (isset($desc['field']['id_rubrique'])?'id_rubrique':"0 as id_rubrique");
+
+    $row = sql_fetsel($sel, $table_sql, id_table_objet($objet).'='.intval($id));
+
+    $id_rubrique = $row['id_rubrique'];
+    $statut_ancien = $statut = $row['statut'];
+    $date_ancienne = $date = $row['date'];
+    $champs = array();
+
+    $d = ($date AND isset($c[$champ_date]))?$c[$champ_date]:null;
+    $s = (isset($desc['field']['statut']) AND isset($c['statut']))?$c['statut']:$statut;
+
+    // cf autorisations dans inc/instituer_objet
+    if ($s != $statut OR ($d AND $d != $date)) {
+        if ($id_rubrique ?
+                autoriser('publierdans', 'rubrique', $id_rubrique)
+            :
+                autoriser('instituer', $objet, $id, null, array('statut'=>$s))
+            )
+            $statut = $champs['statut'] = $s;
+        else if ($s!='publie' AND autoriser('modifier', $objet, $id))
+            $statut = $champs['statut'] = $s;
+        else
+            spip_log("editer_objet $id refus " . join(' ', $c));
+
+        // En cas de publication, fixer la date a "maintenant"
+        // sauf si $c commande autre chose
+        // ou si l'objet est deja date dans le futur
+        // En cas de proposition d'un objet (mais pas depublication), idem
+        if ($champ_date) {
+            if ($champs['statut'] == 'publie'
+             OR ($champs['statut'] == 'prop' AND !in_array($statut_ancien, array('publie', 'prop')))
+             OR $d
+            ) {
+                if ($d OR strtotime($d=$date)>time())
+                    $champs[$champ_date] = $date = $d;
+                else
+                    $champs[$champ_date] = $date = date('Y-m-d H:i:s');
+            }
+        }
+    }
+
+    // Verifier que la rubrique demandee existe et est differente
+    // de la rubrique actuelle
+    if ($id_rubrique
+      AND $id_parent = $c['id_parent']
+      AND $id_parent != $id_rubrique
+      AND (sql_fetsel('1', "spip_rubriques", "id_rubrique=".intval($id_parent)))) {
+        $champs['id_rubrique'] = $id_parent;
+
+        // si l'objet etait publie
+        // et que le demandeur n'est pas admin de la rubrique
+        // repasser l'objet en statut 'propose'.
+        if ($statut == 'publie'
+        AND !autoriser('publierdans', 'rubrique', $id_rubrique))
+            $champs['statut'] = 'prop';
+    }
+
+
+    // Envoyer aux plugins
+    $champs = pipeline('pre_edition',
+        array(
+            'args' => array(
+                'table' => $table_sql,
+                'id_objet' => $id,
+                'action'=>'instituer',
+                'statut_ancien' => $statut_ancien,
+                'date_ancienne' => $date_ancienne,
+                'id_parent_ancien' => $id_rubrique,
+            ),
+            'data' => $champs
+        )
+    );
+
+    if (!count($champs)) return '';
+
+    // Envoyer les modifs.
+    objet_editer_heritage($objet, $id, $id_rubrique, $statut_ancien, $champs, $calcul_rub);
+
+    // Invalider les caches
+    include_spip('inc/invalideur');
+    suivre_invalideur("id='$objet/$id'");
+
+    /*
 	if ($date) {
 		$t = strtotime($date);
 		$p = @$GLOBALS['meta']['date_prochain_postdate'];
@@ -366,29 +366,29 @@ 
 		}
 	}*/
 
-	// Pipeline
-	pipeline('post_edition',
-		array(
-			'args' => array(
-				'table' => $table_sql,
-				'id_objet' => $id,
-				'action'=>'instituer',
-				'statut_ancien' => $statut_ancien,
-				'date_ancienne' => $date_ancienne,
-				'id_parent_ancien' => $id_rubrique,
-			),
-			'data' => $champs
-		)
-	);
-
-	// Notifications
-	if ($notifications = charger_fonction('notifications', 'inc')) {
-		$notifications("instituer$objet", $id,
-			array('statut' => $statut, 'statut_ancien' => $statut_ancien, 'date'=>$date, 'date_ancienne' => $date_ancienne)
-		);
-	}
-
-	return ''; // pas d'erreur
+    // Pipeline
+    pipeline('post_edition',
+        array(
+            'args' => array(
+                'table' => $table_sql,
+                'id_objet' => $id,
+                'action'=>'instituer',
+                'statut_ancien' => $statut_ancien,
+                'date_ancienne' => $date_ancienne,
+                'id_parent_ancien' => $id_rubrique,
+            ),
+            'data' => $champs
+        )
+    );
+
+    // Notifications
+    if ($notifications = charger_fonction('notifications', 'inc')) {
+        $notifications("instituer$objet", $id,
+            array('statut' => $statut, 'statut_ancien' => $statut_ancien, 'date'=>$date, 'date_ancienne' => $date_ancienne)
+        );
+    }
+
+    return ''; // pas d'erreur
 }
 
 /**
@@ -403,36 +403,36 @@ 
  * @return 
  */
 function objet_editer_heritage($objet, $id, $id_rubrique, $statut, $champs, $cond=true) {
-	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table','base');
-	$desc = $trouver_table($table_sql);
-
-	// Si on deplace l'objet
-	// changer aussi son secteur et sa langue (si heritee)
-	if (isset($champs['id_rubrique'])) {
-
-		$row_rub = sql_fetsel("id_secteur, lang", "spip_rubriques", "id_rubrique=".sql_quote($champs['id_rubrique']));
-		$langue = $row_rub['lang'];
-
-		if (isset($desc['field']['id_secteur']))
-			$champs['id_secteur'] = $row_rub['id_secteur'];
-
-		if (isset($desc['field']['lang']) AND isset($desc['field']['langue_choisie']))
-			if (sql_fetsel('1', $table_sql, id_table_objet($objet)."=".intval($id)." AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue))) {
-				$champs['lang'] = $langue;
-			}
-	}
-
-	if (!$champs) return;
-	sql_updateq($table_sql, $champs, id_table_objet($objet).'='.intval($id));
-
-	// Changer le statut des rubriques concernees
-	if ($cond) {
-		include_spip('inc/rubriques');
-		//$postdate = ($GLOBALS['meta']["post_dates"] == "non" AND isset($champs['date']) AND (strtotime($champs['date']) < time()))?$champs['date']:false;
-		$postdate = false;
-		calculer_rubriques_if($id_rubrique, $champs, $statut, $postdate);
-	}
+    $table_sql = table_objet_sql($objet);
+    $trouver_table = charger_fonction('trouver_table','base');
+    $desc = $trouver_table($table_sql);
+
+    // Si on deplace l'objet
+    // changer aussi son secteur et sa langue (si heritee)
+    if (isset($champs['id_rubrique'])) {
+
+        $row_rub = sql_fetsel("id_secteur, lang", "spip_rubriques", "id_rubrique=".sql_quote($champs['id_rubrique']));
+        $langue = $row_rub['lang'];
+
+        if (isset($desc['field']['id_secteur']))
+            $champs['id_secteur'] = $row_rub['id_secteur'];
+
+        if (isset($desc['field']['lang']) AND isset($desc['field']['langue_choisie']))
+            if (sql_fetsel('1', $table_sql, id_table_objet($objet)."=".intval($id)." AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue))) {
+                $champs['lang'] = $langue;
+            }
+    }
+
+    if (!$champs) return;
+    sql_updateq($table_sql, $champs, id_table_objet($objet).'='.intval($id));
+
+    // Changer le statut des rubriques concernees
+    if ($cond) {
+        include_spip('inc/rubriques');
+        //$postdate = ($GLOBALS['meta']["post_dates"] == "non" AND isset($champs['date']) AND (strtotime($champs['date']) < time()))?$champs['date']:false;
+        $postdate = false;
+        calculer_rubriques_if($id_rubrique, $champs, $statut, $postdate);
+    }
 }
 
 ?>

Spacing +36 added lines, -36 removed lines

@@ -22,10 +22,10 @@ 
  * @param array $set
  * @return array
  */
-function action_editer_objet_dist($id=null, $objet=null, $set=null) {
+function action_editer_objet_dist($id = null, $objet = null, $set = null) {
 
 	// appel direct depuis une url interdit
-	if (is_null($id) OR is_null($objet)){
+	if (is_null($id) OR is_null($objet)) {
 		include_spip('inc/minipres');
 		echo minipres(_T('info_acces_interdit'));
 		die();
@@ -39,13 +39,13 @@ 
 		$id = objet_inserer($objet, $id_parent);
 	}
 
-	if (!($id = intval($id))>0)
-		return array($id,_L('echec enregistrement en base'));
+	if (!($id = intval($id)) > 0)
+		return array($id, _L('echec enregistrement en base'));
 
 	// Enregistre l'envoi dans la BD
 	$err = objet_modifier($objet, $id, $set);
 
-	return array($id,$err);
+	return array($id, $err);
 }
 
 /**
@@ -57,16 +57,16 @@ 
  * @param array|null $set
  * @return mixed|string
  */
-function objet_modifier($objet, $id, $set=null) {
+function objet_modifier($objet, $id, $set = null) {
 	if (include_spip('action/editer_'.$objet)
 	  AND function_exists($modifier = $objet."_modifier"))
-		return $modifier($id,$set);
+		return $modifier($id, $set);
 
 	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table','base');
+	$trouver_table = charger_fonction('trouver_table', 'base');
 	$desc = $trouver_table($table_sql);
 	if (!$desc OR !isset($desc['field'])) {
-		spip_log("Objet $objet inconnu dans objet_modifier",_LOG_ERREUR);
+		spip_log("Objet $objet inconnu dans objet_modifier", _LOG_ERREUR);
 		return _L("Erreur objet $objet inconnu");
 	}
 	include_spip('inc/modifier');
@@ -89,13 +89,13 @@ 
 		// white list
 		$white,
 		// black list
-		array($champ_date,'statut','id_parent','id_secteur'),
+		array($champ_date, 'statut', 'id_parent', 'id_secteur'),
 		// donnees eventuellement fournies
 		$set
 	);
 
 	// Si l'objet est publie, invalider les caches et demander sa reindexation
-	if (objet_test_si_publie($objet,$id)){
+	if (objet_test_si_publie($objet, $id)) {
 		$invalideur = "id='$objet/$id'";
 		$indexation = true;
 	}
@@ -111,7 +111,7 @@ 
 			'invalideur' => $invalideur,
 			'indexation' => $indexation,
 			 // champ a mettre a date('Y-m-d H:i:s') s'il y a modif
-			'date_modif' => (isset($desc['field']['date_modif'])?'date_modif':'')
+			'date_modif' => (isset($desc['field']['date_modif']) ? 'date_modif' : '')
 		),
 		$c))
 		return $err;
@@ -119,7 +119,7 @@ 
 	// Modification de statut, changement de rubrique ?
 	// FIXME: Ici lorsqu'un $set est passé, la fonction collecter_requests() retourne tout
 	//         le tableau $set hors black liste, mais du coup on a possiblement des champs en trop. 
-	$c = collecter_requests(array($champ_date, 'statut', 'id_parent'),array(),$set);
+	$c = collecter_requests(array($champ_date, 'statut', 'id_parent'), array(), $set);
 	$err = objet_instituer($objet, $id, $c);
 
 	return $err;
@@ -132,24 +132,24 @@ 
  * @param array|null $set
  * @return bool|int
  */
-function objet_inserer($objet, $id_parent=null, $set=null) {
+function objet_inserer($objet, $id_parent = null, $set = null) {
 	if (include_spip('action/editer_'.$objet)
 	  AND function_exists($inserer = $objet."_inserer"))
 		return $inserer($id_parent);
 
 	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table','base');
+	$trouver_table = charger_fonction('trouver_table', 'base');
 	$desc = $trouver_table($table_sql);
 	if (!$desc OR !isset($desc['field']))
 		return 0;
 
 	$lang_rub = "";
 	$champs = array();
-	if (isset($desc['field']['id_rubrique'])){
+	if (isset($desc['field']['id_rubrique'])) {
 		// Si id_rubrique vaut 0 ou n'est pas definie, creer l'objet
 		// dans la premiere rubrique racine
 		if (!$id_rubrique = intval($id_parent)) {
-			$row = sql_fetsel("id_rubrique, id_secteur, lang", "spip_rubriques", "id_parent=0",'', '0+titre,titre', "1");
+			$row = sql_fetsel("id_rubrique, id_secteur, lang", "spip_rubriques", "id_parent=0", '', '0+titre,titre', "1");
 			$id_rubrique = $row['id_rubrique'];
 		}
 		else
@@ -179,8 +179,8 @@ 
 		$champs['langue_choisie'] = 'non';
 	}
 
-	if (isset($desc['field']['statut'])){
-		if (isset($desc['statut_textes_instituer'])){
+	if (isset($desc['field']['statut'])) {
+		if (isset($desc['statut_textes_instituer'])) {
 			$cles_statut = array_keys($desc['statut_textes_instituer']); 
 			$champs['statut'] = reset($cles_statut);
 		}
@@ -189,7 +189,7 @@ 
 	}
 
 
-	if ((isset($desc['date']) AND $d=$desc['date']) OR isset($desc['field'][$d='date']))
+	if ((isset($desc['date']) AND $d = $desc['date']) OR isset($desc['field'][$d = 'date']))
 		$champs[$d] = date('Y-m-d H:i:s');
 
 	if ($set)
@@ -207,7 +207,7 @@ 
 
 	$id = sql_insertq($table_sql, $champs);
 
-	if ($id){
+	if ($id) {
 		pipeline('post_insertion',
 			array(
 				'args' => array(
@@ -223,8 +223,8 @@ 
 		// si la table n'a pas deja un champ id_auteur
 		// et si le form n'a pas poste un id_auteur (meme vide, ce qui sert a annuler cette auto association)
 		if ($id > 0
-		  AND !isset($desc['field']['id_auteur'])){
-			$id_auteur = ((is_null(_request('id_auteur')) AND isset($GLOBALS['visiteur_session']['id_auteur']))?
+		  AND !isset($desc['field']['id_auteur'])) {
+			$id_auteur = ((is_null(_request('id_auteur')) AND isset($GLOBALS['visiteur_session']['id_auteur'])) ?
 				$GLOBALS['visiteur_session']['id_auteur']
 				:_request('id_auteur'));
 		  if ($id_auteur) {
@@ -249,13 +249,13 @@ 
  * @param bool $calcul_rub
  * @return mixed|string
  */
-function objet_instituer($objet, $id, $c, $calcul_rub=true) {
+function objet_instituer($objet, $id, $c, $calcul_rub = true) {
 	if (include_spip('action/editer_'.$objet)
 	  AND function_exists($instituer = $objet."_instituer"))
-		return $instituer($id,$c,$calcul_rub);
+		return $instituer($id, $c, $calcul_rub);
 
 	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table','base');
+	$trouver_table = charger_fonction('trouver_table', 'base');
 	$desc = $trouver_table($table_sql);
 	if (!$desc OR !isset($desc['field']))
 		return _L("Impossible d'instituer $objet : non connu en base");
@@ -265,7 +265,7 @@ 
 	include_spip('inc/modifier');
 
 	$sel = array();
-	$sel[] = (isset($desc['field']['statut'])?"statut":"'' as statut");
+	$sel[] = (isset($desc['field']['statut']) ? "statut" : "'' as statut");
 
 	$champ_date = '';
 	if (isset($desc['date']) AND $desc['date'])
@@ -274,7 +274,7 @@ 
 		$champ_date = 'date';
 
 	$sel[] = ($champ_date ? "$champ_date as date" : "'' as date");
-	$sel[] = (isset($desc['field']['id_rubrique'])?'id_rubrique':"0 as id_rubrique");
+	$sel[] = (isset($desc['field']['id_rubrique']) ? 'id_rubrique' : "0 as id_rubrique");
 
 	$row = sql_fetsel($sel, $table_sql, id_table_objet($objet).'='.intval($id));
 
@@ -283,8 +283,8 @@ 
 	$date_ancienne = $date = $row['date'];
 	$champs = array();
 
-	$d = ($date AND isset($c[$champ_date]))?$c[$champ_date]:null;
-	$s = (isset($desc['field']['statut']) AND isset($c['statut']))?$c['statut']:$statut;
+	$d = ($date AND isset($c[$champ_date])) ? $c[$champ_date] : null;
+	$s = (isset($desc['field']['statut']) AND isset($c['statut'])) ? $c['statut'] : $statut;
 
 	// cf autorisations dans inc/instituer_objet
 	if ($s != $statut OR ($d AND $d != $date)) {
@@ -294,10 +294,10 @@ 
 				autoriser('instituer', $objet, $id, null, array('statut'=>$s))
 			)
 			$statut = $champs['statut'] = $s;
-		else if ($s!='publie' AND autoriser('modifier', $objet, $id))
+		else if ($s != 'publie' AND autoriser('modifier', $objet, $id))
 			$statut = $champs['statut'] = $s;
 		else
-			spip_log("editer_objet $id refus " . join(' ', $c));
+			spip_log("editer_objet $id refus ".join(' ', $c));
 
 		// En cas de publication, fixer la date a "maintenant"
 		// sauf si $c commande autre chose
@@ -308,7 +308,7 @@ 
 			 OR ($champs['statut'] == 'prop' AND !in_array($statut_ancien, array('publie', 'prop')))
 			 OR $d
 			) {
-				if ($d OR strtotime($d=$date)>time())
+				if ($d OR strtotime($d = $date) > time())
 					$champs[$champ_date] = $date = $d;
 				else
 					$champs[$champ_date] = $date = date('Y-m-d H:i:s');
@@ -402,9 +402,9 @@ 
  * @param bool $cond
  * @return 
  */
-function objet_editer_heritage($objet, $id, $id_rubrique, $statut, $champs, $cond=true) {
+function objet_editer_heritage($objet, $id, $id_rubrique, $statut, $champs, $cond = true) {
 	$table_sql = table_objet_sql($objet);
-	$trouver_table = charger_fonction('trouver_table','base');
+	$trouver_table = charger_fonction('trouver_table', 'base');
 	$desc = $trouver_table($table_sql);
 
 	// Si on deplace l'objet
@@ -418,7 +418,7 @@ 
 			$champs['id_secteur'] = $row_rub['id_secteur'];
 
 		if (isset($desc['field']['lang']) AND isset($desc['field']['langue_choisie']))
-			if (sql_fetsel('1', $table_sql, id_table_objet($objet)."=".intval($id)." AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue))) {
+			if (sql_fetsel('1', $table_sql, id_table_objet($objet)."=".intval($id)." AND langue_choisie<>'oui' AND lang<>".sql_quote($langue))) {
 				$champs['lang'] = $langue;
 			}
 	}

Braces +79 added lines, -57 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;
+}
 
 /**
  * Point d'entree d'edition d'un objet
@@ -39,8 +41,9 @@ 
 		$id = objet_inserer($objet, $id_parent);
 	}
 
-	if (!($id = intval($id))>0)
-		return array($id,_L('echec enregistrement en base'));
+	if (!($id = intval($id))>0) {
+			return array($id,_L('echec enregistrement en base'));
+	}
 
 	// Enregistre l'envoi dans la BD
 	$err = objet_modifier($objet, $id, $set);
@@ -59,8 +62,9 @@ 
  */
 function objet_modifier($objet, $id, $set=null) {
 	if (include_spip('action/editer_'.$objet)
-	  AND function_exists($modifier = $objet."_modifier"))
-		return $modifier($id,$set);
+	  AND function_exists($modifier = $objet."_modifier")) {
+			return $modifier($id,$set);
+	}
 
 	$table_sql = table_objet_sql($objet);
 	$trouver_table = charger_fonction('trouver_table','base');
@@ -72,10 +76,11 @@ 
 	include_spip('inc/modifier');
 
 	$champ_date = '';
-	if (isset($desc['date']) AND $desc['date'])
-		$champ_date = $desc['date'];
-	elseif (isset($desc['field']['date']))
-		$champ_date = 'date';
+	if (isset($desc['date']) AND $desc['date']) {
+			$champ_date = $desc['date'];
+	} elseif (isset($desc['field']['date'])) {
+			$champ_date = 'date';
+	}
 
 	$white = array_keys($desc['field']);
 	// on ne traite pas la cle primaire par defaut, notamment car
@@ -98,8 +103,7 @@ 
 	if (objet_test_si_publie($objet,$id)){
 		$invalideur = "id='$objet/$id'";
 		$indexation = true;
-	}
-	else {
+	} else {
 		$invalideur = "";
 		$indexation = false;
 	}
@@ -113,8 +117,9 @@ 
 			 // champ a mettre a date('Y-m-d H:i:s') s'il y a modif
 			'date_modif' => (isset($desc['field']['date_modif'])?'date_modif':'')
 		),
-		$c))
-		return $err;
+		$c)) {
+			return $err;
+	}
 
 	// Modification de statut, changement de rubrique ?
 	// FIXME: Ici lorsqu'un $set est passé, la fonction collecter_requests() retourne tout
@@ -134,14 +139,16 @@ 
  */
 function objet_inserer($objet, $id_parent=null, $set=null) {
 	if (include_spip('action/editer_'.$objet)
-	  AND function_exists($inserer = $objet."_inserer"))
-		return $inserer($id_parent);
+	  AND function_exists($inserer = $objet."_inserer")) {
+			return $inserer($id_parent);
+	}
 
 	$table_sql = table_objet_sql($objet);
 	$trouver_table = charger_fonction('trouver_table','base');
 	$desc = $trouver_table($table_sql);
-	if (!$desc OR !isset($desc['field']))
-		return 0;
+	if (!$desc OR !isset($desc['field'])) {
+			return 0;
+	}
 
 	$lang_rub = "";
 	$champs = array();
@@ -151,13 +158,14 @@ 
 		if (!$id_rubrique = intval($id_parent)) {
 			$row = sql_fetsel("id_rubrique, id_secteur, lang", "spip_rubriques", "id_parent=0",'', '0+titre,titre', "1");
 			$id_rubrique = $row['id_rubrique'];
+		} else {
+					$row = sql_fetsel("lang, id_secteur", "spip_rubriques", "id_rubrique=".intval($id_rubrique));
 		}
-		else
-			$row = sql_fetsel("lang, id_secteur", "spip_rubriques", "id_rubrique=".intval($id_rubrique));
 
 		$champs['id_rubrique'] = $id_rubrique;
-		if (isset($desc['field']['id_secteur']))
-			$champs['id_secteur'] = $row['id_secteur'];
+		if (isset($desc['field']['id_secteur'])) {
+					$champs['id_secteur'] = $row['id_secteur'];
+		}
 		$lang_rub = $row['lang'];
 	}
 
@@ -170,11 +178,11 @@ 
 		if (in_array($GLOBALS['spip_lang'],
 		explode(',', $GLOBALS['meta']['langues_multilingue']))) {
 			$champs['lang'] = $GLOBALS['spip_lang'];
-			if (isset($desc['field']['langue_choisie']))
-				$champs['langue_choisie'] = 'oui';
+			if (isset($desc['field']['langue_choisie'])) {
+							$champs['langue_choisie'] = 'oui';
+			}
 		}
-	}
-	elseif (isset($desc['field']['lang']) AND isset($desc['field']['langue_choisie'])) {
+	} elseif (isset($desc['field']['lang']) AND isset($desc['field']['langue_choisie'])) {
 		$champs['lang'] = ($lang_rub ? $lang_rub : $GLOBALS['meta']['langue_site']);
 		$champs['langue_choisie'] = 'non';
 	}
@@ -183,17 +191,19 @@ 
 		if (isset($desc['statut_textes_instituer'])){
 			$cles_statut = array_keys($desc['statut_textes_instituer']); 
 			$champs['statut'] = reset($cles_statut);
+		} else {
+					$champs['statut'] = 'prepa';
 		}
-		else
-			$champs['statut'] = 'prepa';
 	}
 
 
-	if ((isset($desc['date']) AND $d=$desc['date']) OR isset($desc['field'][$d='date']))
-		$champs[$d] = date('Y-m-d H:i:s');
+	if ((isset($desc['date']) AND $d=$desc['date']) OR isset($desc['field'][$d='date'])) {
+			$champs[$d] = date('Y-m-d H:i:s');
+	}
 
-	if ($set)
-		$champs = array_merge($champs, $set);
+	if ($set) {
+			$champs = array_merge($champs, $set);
+	}
 
 	// Envoyer aux plugins
 	$champs = pipeline('pre_insertion',
@@ -251,14 +261,16 @@ 
  */
 function objet_instituer($objet, $id, $c, $calcul_rub=true) {
 	if (include_spip('action/editer_'.$objet)
-	  AND function_exists($instituer = $objet."_instituer"))
-		return $instituer($id,$c,$calcul_rub);
+	  AND function_exists($instituer = $objet."_instituer")) {
+			return $instituer($id,$c,$calcul_rub);
+	}
 
 	$table_sql = table_objet_sql($objet);
 	$trouver_table = charger_fonction('trouver_table','base');
 	$desc = $trouver_table($table_sql);
-	if (!$desc OR !isset($desc['field']))
-		return _L("Impossible d'instituer $objet : non connu en base");
+	if (!$desc OR !isset($desc['field'])) {
+			return _L("Impossible d'instituer $objet : non connu en base");
+	}
 
 	include_spip('inc/autoriser');
 	include_spip('inc/rubriques');
@@ -268,10 +280,11 @@ 
 	$sel[] = (isset($desc['field']['statut'])?"statut":"'' as statut");
 
 	$champ_date = '';
-	if (isset($desc['date']) AND $desc['date'])
-		$champ_date = $desc['date'];
-	elseif (isset($desc['field']['date']))
-		$champ_date = 'date';
+	if (isset($desc['date']) AND $desc['date']) {
+			$champ_date = $desc['date'];
+	} elseif (isset($desc['field']['date'])) {
+			$champ_date = 'date';
+	}
 
 	$sel[] = ($champ_date ? "$champ_date as date" : "'' as date");
 	$sel[] = (isset($desc['field']['id_rubrique'])?'id_rubrique':"0 as id_rubrique");
@@ -292,12 +305,13 @@ 
 				autoriser('publierdans', 'rubrique', $id_rubrique)
 			:
 				autoriser('instituer', $objet, $id, null, array('statut'=>$s))
-			)
-			$statut = $champs['statut'] = $s;
-		else if ($s!='publie' AND autoriser('modifier', $objet, $id))
-			$statut = $champs['statut'] = $s;
-		else
-			spip_log("editer_objet $id refus " . join(' ', $c));
+			) {
+					$statut = $champs['statut'] = $s;
+		} else if ($s!='publie' AND autoriser('modifier', $objet, $id)) {
+					$statut = $champs['statut'] = $s;
+		} else {
+					spip_log("editer_objet $id refus " . join(' ', $c));
+		}
 
 		// En cas de publication, fixer la date a "maintenant"
 		// sauf si $c commande autre chose
@@ -308,10 +322,11 @@ 
 			 OR ($champs['statut'] == 'prop' AND !in_array($statut_ancien, array('publie', 'prop')))
 			 OR $d
 			) {
-				if ($d OR strtotime($d=$date)>time())
-					$champs[$champ_date] = $date = $d;
-				else
-					$champs[$champ_date] = $date = date('Y-m-d H:i:s');
+				if ($d OR strtotime($d=$date)>time()) {
+									$champs[$champ_date] = $date = $d;
+				} else {
+									$champs[$champ_date] = $date = date('Y-m-d H:i:s');
+				}
 			}
 		}
 	}
@@ -328,8 +343,9 @@ 
 		// et que le demandeur n'est pas admin de la rubrique
 		// repasser l'objet en statut 'propose'.
 		if ($statut == 'publie'
-		AND !autoriser('publierdans', 'rubrique', $id_rubrique))
-			$champs['statut'] = 'prop';
+		AND !autoriser('publierdans', 'rubrique', $id_rubrique)) {
+					$champs['statut'] = 'prop';
+		}
 	}
 
 
@@ -348,7 +364,9 @@ 
 		)
 	);
 
-	if (!count($champs)) return '';
+	if (!count($champs)) {
+	    return '';
+	}
 
 	// Envoyer les modifs.
 	objet_editer_heritage($objet, $id, $id_rubrique, $statut_ancien, $champs, $calcul_rub);
@@ -414,16 +432,20 @@ 
 		$row_rub = sql_fetsel("id_secteur, lang", "spip_rubriques", "id_rubrique=".sql_quote($champs['id_rubrique']));
 		$langue = $row_rub['lang'];
 
-		if (isset($desc['field']['id_secteur']))
-			$champs['id_secteur'] = $row_rub['id_secteur'];
+		if (isset($desc['field']['id_secteur'])) {
+					$champs['id_secteur'] = $row_rub['id_secteur'];
+		}
 
-		if (isset($desc['field']['lang']) AND isset($desc['field']['langue_choisie']))
-			if (sql_fetsel('1', $table_sql, id_table_objet($objet)."=".intval($id)." AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue))) {
+		if (isset($desc['field']['lang']) AND isset($desc['field']['langue_choisie'])) {
+					if (sql_fetsel('1', $table_sql, id_table_objet($objet)."=".intval($id)." AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue))) {
 				$champs['lang'] = $langue;
+		}
 			}
 	}
 
-	if (!$champs) return;
+	if (!$champs) {
+	    return;
+	}
 	sql_updateq($table_sql, $champs, id_table_objet($objet).'='.intval($id));
 
 	// Changer le statut des rubriques concernees