spip / SPIP

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;
 }
 ?>

ecrire/public/quete.php

Indentation +237 added lines, -237 removed lines

@@ -29,7 +29,7 @@ 
  * @return array|bool|null
  */
 function quete_virtuel($id_article, $connect) {
-	return sql_getfetsel('virtuel', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '','','','',$connect);
+    return sql_getfetsel('virtuel', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '','','','',$connect);
 }
 
 /**
@@ -43,25 +43,25 @@ 
  * @return array
  */
 function quete_parent_lang($table,$id,$connect=''){
-	static $cache_quete = array();
-
-	if (!isset($cache_quete[$connect][$table][$id])) {
-		if (!isset($cache_quete[$connect][$table]['_select'])){
-			$trouver_table = charger_fonction('trouver_table','base');
-			if (!$desc=$trouver_table($table,$connect) OR !isset($desc['field']['id_rubrique']))
-				// pas de parent rubrique, on passe
-				$cache_quete[$connect][$table]['_select'] = false; 
-			else {
-				$select = ($table=='spip_rubriques'?'id_parent':'id_rubrique');
-				$select .= isset($desc['field']['lang'])?", lang":"";
-				$cache_quete[$connect][$table]['_select'] = $select;
-				$cache_quete[$connect][$table]['_id'] = id_table_objet(objet_type($table));
-			}
-		}
-		if ($cache_quete[$connect][$table]['_select'])
-			$cache_quete[$connect][$table][$id] = sql_fetsel($cache_quete[$connect][$table]['_select'], $table,$cache_quete[$connect][$table]['_id']."=".intval($id),'','','','',$connect);
-	}
-	return isset($cache_quete[$connect][$table][$id]) ? $cache_quete[$connect][$table][$id] : null;
+    static $cache_quete = array();
+
+    if (!isset($cache_quete[$connect][$table][$id])) {
+        if (!isset($cache_quete[$connect][$table]['_select'])){
+            $trouver_table = charger_fonction('trouver_table','base');
+            if (!$desc=$trouver_table($table,$connect) OR !isset($desc['field']['id_rubrique']))
+                // pas de parent rubrique, on passe
+                $cache_quete[$connect][$table]['_select'] = false; 
+            else {
+                $select = ($table=='spip_rubriques'?'id_parent':'id_rubrique');
+                $select .= isset($desc['field']['lang'])?", lang":"";
+                $cache_quete[$connect][$table]['_select'] = $select;
+                $cache_quete[$connect][$table]['_id'] = id_table_objet(objet_type($table));
+            }
+        }
+        if ($cache_quete[$connect][$table]['_select'])
+            $cache_quete[$connect][$table][$id] = sql_fetsel($cache_quete[$connect][$table]['_select'], $table,$cache_quete[$connect][$table]['_id']."=".intval($id),'','','','',$connect);
+    }
+    return isset($cache_quete[$connect][$table][$id]) ? $cache_quete[$connect][$table][$id] : null;
 }
 
 
@@ -77,10 +77,10 @@ 
  * @return int
  */
 function quete_parent($id_rubrique, $connect='') {
-	if (!$id_rubrique = intval($id_rubrique))
-		return 0;
-	$id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
-	return $id_parent['id_parent'];
+    if (!$id_rubrique = intval($id_rubrique))
+        return 0;
+    $id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
+    return $id_parent['id_parent'];
 }
 
 /**
@@ -95,8 +95,8 @@ 
  * @return
  */
 function quete_rubrique($id_article, $serveur) {
-	$id_parent = quete_parent_lang('spip_articles',$id_article,$serveur);
-	return $id_parent['id_rubrique'];
+    $id_parent = quete_parent_lang('spip_articles',$id_article,$serveur);
+    return $id_parent['id_rubrique'];
 }
 
 
@@ -110,12 +110,12 @@ 
  * @return int
  */
 function quete_profondeur($id, $connect='') {
-	$n = 0;
-	while ($id) {
-		$n++;
-		$id = quete_parent($id, $connect);
-	}
-	return $n;
+    $n = 0;
+    while ($id) {
+        $n++;
+        $id = quete_parent($id, $connect);
+    }
+    return $n;
 }
 
 
@@ -126,13 +126,13 @@ 
  * @return string
  */
 function quete_condition_postdates($champ_date, $serveur='', $ignore_previsu=false) {
-	if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
-		return "1=1";
-	return
-	  (isset($GLOBALS['meta']['date_prochain_postdate'])
-	     AND $GLOBALS['meta']['date_prochain_postdate'] > time())
-			? "$champ_date<".sql_quote(date('Y-m-d H:i:s',$GLOBALS['meta']['date_prochain_postdate']),$serveur)
-	    : "1=1" ;
+    if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
+        return "1=1";
+    return
+        (isset($GLOBALS['meta']['date_prochain_postdate'])
+         AND $GLOBALS['meta']['date_prochain_postdate'] > time())
+            ? "$champ_date<".sql_quote(date('Y-m-d H:i:s',$GLOBALS['meta']['date_prochain_postdate']),$serveur)
+        : "1=1" ;
 }
 
 
@@ -150,67 +150,67 @@ 
  * @return array
  */
 function quete_condition_statut($mstatut,$previsu,$publie, $serveur='', $ignore_previsu=false){
-	static $cond = array();
-	$key = func_get_args();
-	$key = implode("-",$key);
-	if (isset($cond[$key])) return $cond[$key];
-
-	$liste = $publie;
-	if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
-		$liste = $previsu;
-	$not = false;
-	if (strncmp($liste,'!',1)==0){
-		$not = true;
-	  $liste = substr($liste,1);
-	}
-	// '' => ne rien afficher, '!'=> ne rien filtrer
-	if (!strlen($liste))
-		return $cond[$key]=($not?"1=1":"'0=1'");
-
-	$liste = explode(',',$liste);
-	$where = array();
-	foreach($liste as $k=>$v) {
-		// filtrage /auteur pour limiter les objets d'un statut (prepa en general)
-		// a ceux de l'auteur identifie
-		if (strpos($v,"/")!==false){
-			$v = explode("/",$v);
-			$filtre = end($v);
-			$v = reset($v);
-			$v = preg_replace(",\W,","",$v);
-			if ($filtre=="auteur"
-				AND isset($GLOBALS['visiteur_session']['id_auteur'])
-				AND intval($GLOBALS['visiteur_session']['id_auteur'])
-				AND (strpos($mstatut,".")!==false)
-			  AND $objet = explode(".",$mstatut)
-				AND $id_table = reset($objet)
-			  AND $objet = objet_type($id_table)){
-				$primary = id_table_objet($objet);
-				$where[] = "($mstatut<>".sql_quote($v)." OR $id_table.$primary IN (".sql_get_select("ssss.id_objet","spip_auteurs_liens AS ssss","ssss.objet=".sql_quote($objet)." AND ssss.id_auteur=".intval($GLOBALS['visiteur_session']['id_auteur']),'','','','',$serveur)."))";
-			}
-			// ignorer ce statut si on ne sait pas comment le filtrer
-			else
-				$v = "";
-		}
-		// securite
-		$liste[$k] = preg_replace(",\W,","",$v);
-	}
-	$liste = array_filter($liste);
-  if (count($liste)==1){
-		$where[] = array('=', $mstatut, sql_quote(reset($liste),$serveur));
-  }
-  else {
-	  $where[] = sql_in($mstatut,$liste,$not,$serveur);
-  }
-
-	while (count($where)>1){
-		$and = array('AND',array_pop($where),array_pop($where));
-		$where[] = $and;
-	}
-	$cond[$key] = reset($where);
-	if ($not)
-		$cond[$key] = array('NOT',$cond[$key]);
-
-	return $cond[$key];
+    static $cond = array();
+    $key = func_get_args();
+    $key = implode("-",$key);
+    if (isset($cond[$key])) return $cond[$key];
+
+    $liste = $publie;
+    if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
+        $liste = $previsu;
+    $not = false;
+    if (strncmp($liste,'!',1)==0){
+        $not = true;
+        $liste = substr($liste,1);
+    }
+    // '' => ne rien afficher, '!'=> ne rien filtrer
+    if (!strlen($liste))
+        return $cond[$key]=($not?"1=1":"'0=1'");
+
+    $liste = explode(',',$liste);
+    $where = array();
+    foreach($liste as $k=>$v) {
+        // filtrage /auteur pour limiter les objets d'un statut (prepa en general)
+        // a ceux de l'auteur identifie
+        if (strpos($v,"/")!==false){
+            $v = explode("/",$v);
+            $filtre = end($v);
+            $v = reset($v);
+            $v = preg_replace(",\W,","",$v);
+            if ($filtre=="auteur"
+                AND isset($GLOBALS['visiteur_session']['id_auteur'])
+                AND intval($GLOBALS['visiteur_session']['id_auteur'])
+                AND (strpos($mstatut,".")!==false)
+              AND $objet = explode(".",$mstatut)
+                AND $id_table = reset($objet)
+              AND $objet = objet_type($id_table)){
+                $primary = id_table_objet($objet);
+                $where[] = "($mstatut<>".sql_quote($v)." OR $id_table.$primary IN (".sql_get_select("ssss.id_objet","spip_auteurs_liens AS ssss","ssss.objet=".sql_quote($objet)." AND ssss.id_auteur=".intval($GLOBALS['visiteur_session']['id_auteur']),'','','','',$serveur)."))";
+            }
+            // ignorer ce statut si on ne sait pas comment le filtrer
+            else
+                $v = "";
+        }
+        // securite
+        $liste[$k] = preg_replace(",\W,","",$v);
+    }
+    $liste = array_filter($liste);
+    if (count($liste)==1){
+        $where[] = array('=', $mstatut, sql_quote(reset($liste),$serveur));
+    }
+    else {
+        $where[] = sql_in($mstatut,$liste,$not,$serveur);
+    }
+
+    while (count($where)>1){
+        $and = array('AND',array_pop($where),array_pop($where));
+        $where[] = $and;
+    }
+    $cond[$key] = reset($where);
+    if ($not)
+        $cond[$key] = array('NOT',$cond[$key]);
+
+    return $cond[$key];
 }
 
 /**
@@ -223,7 +223,7 @@ 
  * @return array|bool|null
  */
 function quete_fichier($id_document, $serveur='') {
-	return sql_getfetsel('fichier', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
+    return sql_getfetsel('fichier', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
 }
 
 /**
@@ -234,7 +234,7 @@ 
  * @return array|bool
  */
 function quete_document($id_document, $serveur='') {
-	return sql_fetsel('*', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
+    return sql_fetsel('*', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
 }
 
 /**
@@ -247,8 +247,8 @@ 
  * @return array|bool|null
  */
 function quete_meta($nom, $serveur) {
-	return sql_getfetsel("valeur", "spip_meta", "nom=" . sql_quote($nom),
-			     '','','','',$serveur);
+    return sql_getfetsel("valeur", "spip_meta", "nom=" . sql_quote($nom),
+                    '','','','',$serveur);
 }
 
 /**
@@ -265,38 +265,38 @@ 
  * @return array|string
  */
 function quete_logo($type, $onoff, $id, $id_rubrique, $flag) {
-	static $chercher_logo;
-	if (is_null($chercher_logo))
-		$chercher_logo = charger_fonction('chercher_logo', 'inc');
-	$nom = strtolower($onoff);
-
-	while (1) {
-		$on = $chercher_logo($id, $type, $nom);
-		if ($on) {
-			if ($flag)
-				return "$on[2].$on[3]";
-			else {
-				$taille = @getimagesize($on[0]);
-				$off = ($onoff != 'ON') ? '' :
-					$chercher_logo($id, $type, 'off');
-				// on retourne une url du type IMG/artonXX?timestamp
-				// qui permet de distinguer le changement de logo
-				// et placer un expire sur le dossier IMG/
-				return array ($on[0].($on[4]?"?$on[4]":""),
-					($off ? $off[0] . ($off[4]?"?$off[4]":"") : ''),
-					(!$taille ? '' : (" ".$taille[3])));
-			}
-		}
+    static $chercher_logo;
+    if (is_null($chercher_logo))
+        $chercher_logo = charger_fonction('chercher_logo', 'inc');
+    $nom = strtolower($onoff);
+
+    while (1) {
+        $on = $chercher_logo($id, $type, $nom);
+        if ($on) {
+            if ($flag)
+                return "$on[2].$on[3]";
+            else {
+                $taille = @getimagesize($on[0]);
+                $off = ($onoff != 'ON') ? '' :
+                    $chercher_logo($id, $type, 'off');
+                // on retourne une url du type IMG/artonXX?timestamp
+                // qui permet de distinguer le changement de logo
+                // et placer un expire sur le dossier IMG/
+                return array ($on[0].($on[4]?"?$on[4]":""),
+                    ($off ? $off[0] . ($off[4]?"?$off[4]":"") : ''),
+                    (!$taille ? '' : (" ".$taille[3])));
+            }
+        }
         else if (defined('_LOGO_RUBRIQUE_DESACTIVER_HERITAGE'))
             return '';
-		else if ($id_rubrique) {
-			$type = 'id_rubrique';
-			$id = $id_rubrique;
-			$id_rubrique = 0;
-		} else if ($id AND $type == 'id_rubrique')
-			$id = quete_parent($id);
-		else return '';
-	}
+        else if ($id_rubrique) {
+            $type = 'id_rubrique';
+            $id = $id_rubrique;
+            $id_rubrique = 0;
+        } else if ($id AND $type == 'id_rubrique')
+            $id = quete_parent($id);
+        else return '';
+    }
 }
 
 /**
@@ -309,19 +309,19 @@ 
  * @return bool|string
  */
 function quete_logo_file($row, $connect=NULL) {
-	include_spip('inc/documents');
-	$logo = vignette_logo_document($row, $connect);
-	if (!$logo) $logo = image_du_document($row);
-	if (!$logo){
-		$f = charger_fonction('vignette','inc');
-		$logo = $f($row['extension'], false);
-	}
-	// si c'est une vignette type doc, la renvoyer direct
-	if (strcmp($logo,_DIR_PLUGINS)==0
-		OR strcmp($logo,_DIR_PLUGINS_DIST)==0
-		OR strcmp($logo,_DIR_RACINE.'prive/')==0)
-		return $logo;
-	return get_spip_doc($logo);
+    include_spip('inc/documents');
+    $logo = vignette_logo_document($row, $connect);
+    if (!$logo) $logo = image_du_document($row);
+    if (!$logo){
+        $f = charger_fonction('vignette','inc');
+        $logo = $f($row['extension'], false);
+    }
+    // si c'est une vignette type doc, la renvoyer direct
+    if (strcmp($logo,_DIR_PLUGINS)==0
+        OR strcmp($logo,_DIR_PLUGINS_DIST)==0
+        OR strcmp($logo,_DIR_RACINE.'prive/')==0)
+        return $logo;
+    return get_spip_doc($logo);
 }
 
 /**
@@ -348,16 +348,16 @@ 
  * @return string
  */
 function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect=NULL) {
-	include_spip('inc/documents');
-	$logo = '';
-	if (!in_array($mode_logo,array('icone','apercu')))
-		$logo = vignette_logo_document($row, $connect);
-	// si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
-	if ($mode_logo == 'vignette' AND !$logo)
-		return '';
-	if ($mode_logo == 'icone')
-		$row['fichier'] = '';
-	return vignette_automatique($logo, $row, $lien, $x, $y, $align);
+    include_spip('inc/documents');
+    $logo = '';
+    if (!in_array($mode_logo,array('icone','apercu')))
+        $logo = vignette_logo_document($row, $connect);
+    // si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
+    if ($mode_logo == 'vignette' AND !$logo)
+        return '';
+    if ($mode_logo == 'icone')
+        $row['fichier'] = '';
+    return vignette_automatique($logo, $row, $lien, $x, $y, $align);
 }
 
 /**
@@ -371,17 +371,17 @@ 
  */
 function vignette_logo_document($row, $connect='')
 {
-	if (!$row['id_vignette']) return '';
-	$fichier = quete_fichier($row['id_vignette'], $connect);
-	if ($connect) {
-		$site = quete_meta('adresse_site', $connect);
-		$dir = quete_meta('dir_img', $connect);
-		return "$site/$dir$fichier";
-	}
-	$f = get_spip_doc($fichier);
-	if ($f AND @file_exists($f)) return $f;
-	if ($row['mode'] !== 'vignette') return '';
-	return generer_url_entite($row['id_document'], 'document','','', $connect);
+    if (!$row['id_vignette']) return '';
+    $fichier = quete_fichier($row['id_vignette'], $connect);
+    if ($connect) {
+        $site = quete_meta('adresse_site', $connect);
+        $dir = quete_meta('dir_img', $connect);
+        return "$site/$dir$fichier";
+    }
+    $f = get_spip_doc($fichier);
+    if ($f AND @file_exists($f)) return $f;
+    if ($row['mode'] !== 'vignette') return '';
+    return generer_url_entite($row['id_document'], 'document','','', $connect);
 }
 
 /**
@@ -399,60 +399,60 @@ 
  * @return bool|string
  */
 function calcul_exposer ($id, $prim, $reference, $parent, $type, $connect='') {
-	static $exposer = array();
-
-	// Que faut-il exposer ? Tous les elements de $reference
-	// ainsi que leur hierarchie ; on ne fait donc ce calcul
-	// qu'une fois (par squelette) et on conserve le resultat
-	// en static.
-	if (!isset($exposer[$m=md5(serialize($reference))][$prim])) {
-		$principal = isset($reference[$type])?$reference[$type]:
-			// cas de la pagination indecte @xx qui positionne la page avec l'id xx
-			// et donne la reference dynamique @type=xx dans le contexte
-			(isset($reference["@$type"])?$reference["@$type"]:'');
-		// le parent fournit en argument est le parent de $id, pas celui de $principal
-		// il n'est donc pas utile
-		$parent = 0;
-		if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
-			$enfants = array('id_rubrique'=>array('id_article'),'id_groupe'=>array('id_mot'));
-			if (isset($enfants[$type]))
-				foreach($enfants[$type] as $t)
-					if (isset($reference[$t])
-						// cas de la reference donnee dynamiquement par la pagination
-						OR isset($reference["@$t"])) {
-						$type = $t;
-						$principal = isset($reference[$type])?$reference[$type]:$reference["@$type"];
-						continue;
-					}
-		}
-		$exposer[$m][$type] = array();
-		if ($principal) {
-			$principaux = is_array($principal)?$principal:array($principal);
-			foreach($principaux as $principal){
-				$exposer[$m][$type][$principal] = true;
-				if ($type == 'id_mot'){
-					if (!$parent) {
-						$parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . intval($principal), '','','','',$connect);
-					}
-					if ($parent)
-						$exposer[$m]['id_groupe'][$parent] = true;
-				}
-				else if ($type != 'id_groupe') {
-				  if (!$parent) {
-				  	if ($type == 'id_rubrique')
-				  		$parent = $principal;
-				  	if ($type == 'id_article') {
-						$parent = quete_rubrique($principal,$connect);
-				  	}
-				  }
-				  do { $exposer[$m]['id_rubrique'][$parent] = true; }
-				  while ($parent = quete_parent($parent, $connect));
-				}
-			}
-		}
-	}
-	// And the winner is...
-	return isset($exposer[$m][$prim]) ? isset($exposer[$m][$prim][$id]) : '';
+    static $exposer = array();
+
+    // Que faut-il exposer ? Tous les elements de $reference
+    // ainsi que leur hierarchie ; on ne fait donc ce calcul
+    // qu'une fois (par squelette) et on conserve le resultat
+    // en static.
+    if (!isset($exposer[$m=md5(serialize($reference))][$prim])) {
+        $principal = isset($reference[$type])?$reference[$type]:
+            // cas de la pagination indecte @xx qui positionne la page avec l'id xx
+            // et donne la reference dynamique @type=xx dans le contexte
+            (isset($reference["@$type"])?$reference["@$type"]:'');
+        // le parent fournit en argument est le parent de $id, pas celui de $principal
+        // il n'est donc pas utile
+        $parent = 0;
+        if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
+            $enfants = array('id_rubrique'=>array('id_article'),'id_groupe'=>array('id_mot'));
+            if (isset($enfants[$type]))
+                foreach($enfants[$type] as $t)
+                    if (isset($reference[$t])
+                        // cas de la reference donnee dynamiquement par la pagination
+                        OR isset($reference["@$t"])) {
+                        $type = $t;
+                        $principal = isset($reference[$type])?$reference[$type]:$reference["@$type"];
+                        continue;
+                    }
+        }
+        $exposer[$m][$type] = array();
+        if ($principal) {
+            $principaux = is_array($principal)?$principal:array($principal);
+            foreach($principaux as $principal){
+                $exposer[$m][$type][$principal] = true;
+                if ($type == 'id_mot'){
+                    if (!$parent) {
+                        $parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . intval($principal), '','','','',$connect);
+                    }
+                    if ($parent)
+                        $exposer[$m]['id_groupe'][$parent] = true;
+                }
+                else if ($type != 'id_groupe') {
+                    if (!$parent) {
+                        if ($type == 'id_rubrique')
+                            $parent = $principal;
+                        if ($type == 'id_article') {
+                        $parent = quete_rubrique($principal,$connect);
+                        }
+                    }
+                    do { $exposer[$m]['id_rubrique'][$parent] = true; }
+                    while ($parent = quete_parent($parent, $connect));
+                }
+            }
+        }
+    }
+    // And the winner is...
+    return isset($exposer[$m][$prim]) ? isset($exposer[$m][$prim][$id]) : '';
 }
 
 /**
@@ -467,20 +467,20 @@ 
  * @return int
  */
 function quete_debut_pagination($primary,$valeur,$pas,$iter){
-	// on ne devrait pas arriver ici si la cle primaire est inexistante
-	// ou composee, mais verifions
-	if (!$primary OR preg_match('/[,\s]/',$primary))
-		return 0;
-
-	$pos = 0;
-	while ($row = $iter->fetch() AND $row[$primary]!=$valeur){
-		$pos++;
-	}
-	// si on a pas trouve
-	if ($row[$primary]!=$valeur)
-		return 0;
-
-	// sinon, calculer le bon numero de page
-	return floor($pos/$pas)*$pas;
+    // on ne devrait pas arriver ici si la cle primaire est inexistante
+    // ou composee, mais verifions
+    if (!$primary OR preg_match('/[,\s]/',$primary))
+        return 0;
+
+    $pos = 0;
+    while ($row = $iter->fetch() AND $row[$primary]!=$valeur){
+        $pos++;
+    }
+    // si on a pas trouve
+    if ($row[$primary]!=$valeur)
+        return 0;
+
+    // sinon, calculer le bon numero de page
+    return floor($pos/$pas)*$pas;
 }
 ?>

ecrire/public/styliser.php

Indentation +101 added lines, -101 removed lines

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

ecrire/public/jointures.php

Indentation +299 added lines, -299 removed lines

@@ -30,10 +30,10 @@ 
  * @return array
  */
 function decompose_champ_id_objet($champ){
-	if (($champ!=='id_objet') AND preg_match(',^id_([a-z_]+)$,', $champ, $regs)){
-		return array('id_objet', 'objet', objet_type($regs[1]));
-	}
-	return $champ;
+    if (($champ!=='id_objet') AND preg_match(',^id_([a-z_]+)$,', $champ, $regs)){
+        return array('id_objet', 'objet', objet_type($regs[1]));
+    }
+    return $champ;
 }
 
 /**
@@ -46,16 +46,16 @@ 
  * @return array
  */
 function trouver_champs_decomposes($champ, $desc){
-	if (!is_array($desc) // on ne se risque pas en conjectures si on ne connait pas la table
-	    OR array_key_exists($champ, $desc['field'])
-	)
-		return array($champ);
-	if (is_array($decompose = decompose_champ_id_objet($champ))){
-		array_pop($decompose);
-		if (count(array_intersect($decompose, array_keys($desc['field'])))==count($decompose))
-			return $decompose;
-	}
-	return array($champ);
+    if (!is_array($desc) // on ne se risque pas en conjectures si on ne connait pas la table
+        OR array_key_exists($champ, $desc['field'])
+    )
+        return array($champ);
+    if (is_array($decompose = decompose_champ_id_objet($champ))){
+        array_pop($decompose);
+        if (count(array_intersect($decompose, array_keys($desc['field'])))==count($decompose))
+            return $decompose;
+    }
+    return array($champ);
 }
 
 
@@ -79,21 +79,21 @@ 
  * @return string
  */
 function calculer_jointure(&$boucle, $depart, $arrivee, $col = '', $cond = false, $max_liens=5){
-	// les jointures minimales sont optimales :
-	// on contraint le nombre d'etapes en l'augmentant
-	// jusqu'a ce qu'on trouve une jointure ou qu'on atteigne la limite maxi 
-	$max = 1;
-	$res = false;
-	$milieu_exclus = ($col?$col:array());
-	while ($max<=$max_liens AND !$res){
-		$res = calculer_chaine_jointures($boucle, $depart, $arrivee, array(), $milieu_exclus, $max);
-		$max++;
-	}
-	if (!$res) return "";
-
-	list($nom, $desc) = $depart;
-
-	return fabrique_jointures($boucle, $res, $cond, $desc, $nom, $col);
+    // les jointures minimales sont optimales :
+    // on contraint le nombre d'etapes en l'augmentant
+    // jusqu'a ce qu'on trouve une jointure ou qu'on atteigne la limite maxi 
+    $max = 1;
+    $res = false;
+    $milieu_exclus = ($col?$col:array());
+    while ($max<=$max_liens AND !$res){
+        $res = calculer_chaine_jointures($boucle, $depart, $arrivee, array(), $milieu_exclus, $max);
+        $max++;
+    }
+    if (!$res) return "";
+
+    list($nom, $desc) = $depart;
+
+    return fabrique_jointures($boucle, $res, $cond, $desc, $nom, $col);
 }
 
 /**
@@ -125,66 +125,66 @@ 
  * @return string
  */
 function fabrique_jointures(&$boucle, $res, $cond = false, $desc = array(), $nom = '', $col = '', $echap = true){
-	static $num = array();
-	$id_table = "";
-	$cpt = &$num[$boucle->descr['nom']][$boucle->descr['gram']][$boucle->id_boucle];
-	foreach ($res as $cle => $r){
-		list($d, $a, $j) = $r;
-		if (!$id_table) $id_table = $d;
-		$n = ++$cpt;
-		if (is_array($j)){ // c'est un lien sur un champ du type id_objet,objet,'article'
-			list($j1, $j2, $obj, $type) = $j;
-			// trouver de quel cote est (id_objet,objet)
-			if ($j1=="id_$obj")
-				$obj = "$id_table.$obj";
-			else
-				$obj = "L$n.$obj";
-			// le where complementaire est envoye dans la jointure pour pouvoir etre elimine avec la jointure
-			// en cas d'optimisation
-			//$boucle->where[] = array("'='","'$obj'","sql_quote('$type')");
-			$boucle->join["L$n"] =
-				$echap ?
-					array("'$id_table'", "'$j2'", "'$j1'", "'$obj='.sql_quote('$type')")
-					:
-					array($id_table, $j2, $j1, "$obj=".sql_quote($type));
-		}
-		else
-			$boucle->join["L$n"] = $echap ? array("'$id_table'", "'$j'") : array($id_table, $j);
-		$boucle->from[$id_table = "L$n"] = $a[0];
-	}
-
-
-	// pas besoin de group by
-	// (cf http://article.gmane.org/gmane.comp.web.spip.devel/30555)
-	// si une seule jointure et sur une table avec primary key formee
-	// de l'index principal et de l'index de jointure (non conditionnel! [6031])
-	// et operateur d'egalite (http://trac.rezo.net/trac/spip/ticket/477)
-
-	if ($pk = (isset($a[1]) && (count($boucle->from)==2) && !$cond)){
-		$pk = nogroupby_if($desc, $a[1], $col);
-	}
-
-	// pas de group by 
-	// si une seule jointure
-	// et si l'index de jointure est une primary key a l'arrivee !
-	if (!$pk
-	    AND (count($boucle->from)==2)
-	        AND isset($a[1]['key']['PRIMARY KEY'])
-	            AND ($j==$a[1]['key']['PRIMARY KEY'])
-	)
-		$pk = true;
-
-	// la clause Group by est en conflit avec ORDER BY, a completer
-	$groups = liste_champs_jointures($nom, $desc, true);
-	if (!$pk) foreach ($groups as $id_prim){
-		$id_field = $nom.'.'.$id_prim;
-		if (!in_array($id_field, $boucle->group)){
-			$boucle->group[] = $id_field;
-		}
-	}
-
-	$boucle->modificateur['lien'] = true;
-	return "L$n";
+    static $num = array();
+    $id_table = "";
+    $cpt = &$num[$boucle->descr['nom']][$boucle->descr['gram']][$boucle->id_boucle];
+    foreach ($res as $cle => $r){
+        list($d, $a, $j) = $r;
+        if (!$id_table) $id_table = $d;
+        $n = ++$cpt;
+        if (is_array($j)){ // c'est un lien sur un champ du type id_objet,objet,'article'
+            list($j1, $j2, $obj, $type) = $j;
+            // trouver de quel cote est (id_objet,objet)
+            if ($j1=="id_$obj")
+                $obj = "$id_table.$obj";
+            else
+                $obj = "L$n.$obj";
+            // le where complementaire est envoye dans la jointure pour pouvoir etre elimine avec la jointure
+            // en cas d'optimisation
+            //$boucle->where[] = array("'='","'$obj'","sql_quote('$type')");
+            $boucle->join["L$n"] =
+                $echap ?
+                    array("'$id_table'", "'$j2'", "'$j1'", "'$obj='.sql_quote('$type')")
+                    :
+                    array($id_table, $j2, $j1, "$obj=".sql_quote($type));
+        }
+        else
+            $boucle->join["L$n"] = $echap ? array("'$id_table'", "'$j'") : array($id_table, $j);
+        $boucle->from[$id_table = "L$n"] = $a[0];
+    }
+
+
+    // pas besoin de group by
+    // (cf http://article.gmane.org/gmane.comp.web.spip.devel/30555)
+    // si une seule jointure et sur une table avec primary key formee
+    // de l'index principal et de l'index de jointure (non conditionnel! [6031])
+    // et operateur d'egalite (http://trac.rezo.net/trac/spip/ticket/477)
+
+    if ($pk = (isset($a[1]) && (count($boucle->from)==2) && !$cond)){
+        $pk = nogroupby_if($desc, $a[1], $col);
+    }
+
+    // pas de group by 
+    // si une seule jointure
+    // et si l'index de jointure est une primary key a l'arrivee !
+    if (!$pk
+        AND (count($boucle->from)==2)
+            AND isset($a[1]['key']['PRIMARY KEY'])
+                AND ($j==$a[1]['key']['PRIMARY KEY'])
+    )
+        $pk = true;
+
+    // la clause Group by est en conflit avec ORDER BY, a completer
+    $groups = liste_champs_jointures($nom, $desc, true);
+    if (!$pk) foreach ($groups as $id_prim){
+        $id_field = $nom.'.'.$id_prim;
+        if (!in_array($id_field, $boucle->group)){
+            $boucle->group[] = $id_field;
+        }
+    }
+
+    $boucle->modificateur['lien'] = true;
+    return "L$n";
 }
 
 /**
@@ -200,12 +200,12 @@ 
  * @return bool
  */
 function nogroupby_if($depart, $arrivee, $col){
-	$pk = $arrivee['key']['PRIMARY KEY'];
-	if (!$pk) return false;
-	$id_primary = $depart['key']['PRIMARY KEY'];
-	if (is_array($col)) $col = implode(', *', $col); // cas id_objet, objet
-	return (preg_match("/^$id_primary, *$col$/", $pk) OR
-	        preg_match("/^$col, *$id_primary$/", $pk));
+    $pk = $arrivee['key']['PRIMARY KEY'];
+    if (!$pk) return false;
+    $id_primary = $depart['key']['PRIMARY KEY'];
+    if (is_array($col)) $col = implode(', *', $col); // cas id_objet, objet
+    return (preg_match("/^$id_primary, *$col$/", $pk) OR
+            preg_match("/^$col, *$id_primary$/", $pk));
 }
 
 /**
@@ -224,33 +224,33 @@ 
  */
 function liste_champs_jointures($nom, $desc, $primary = false){
 
-	static $nojoin = array('idx', 'maj', 'date', 'statut');
+    static $nojoin = array('idx', 'maj', 'date', 'statut');
 
-	// si cle primaire demandee, la privilegier
-	if ($primary && isset($desc['key']['PRIMARY KEY']))
-		return split_key($desc['key']['PRIMARY KEY']);
+    // si cle primaire demandee, la privilegier
+    if ($primary && isset($desc['key']['PRIMARY KEY']))
+        return split_key($desc['key']['PRIMARY KEY']);
 
-	// les champs declares explicitement pour les jointures
-	if (isset($desc['join'])) return $desc['join'];
-	/*elseif (isset($GLOBALS['tables_principales'][$nom]['join'])) return $GLOBALS['tables_principales'][$nom]['join'];
+    // les champs declares explicitement pour les jointures
+    if (isset($desc['join'])) return $desc['join'];
+    /*elseif (isset($GLOBALS['tables_principales'][$nom]['join'])) return $GLOBALS['tables_principales'][$nom]['join'];
 	elseif (isset($GLOBALS['tables_auxiliaires'][$nom]['join'])) return $GLOBALS['tables_auxiliaires'][$nom]['join'];*/
 
-	// si pas de cle, c'est fichu
-	if (!isset($desc['key'])) return array();
+    // si pas de cle, c'est fichu
+    if (!isset($desc['key'])) return array();
 
-	// si cle primaire
-	if (isset($desc['key']['PRIMARY KEY']))
-		return split_key($desc['key']['PRIMARY KEY']);
+    // si cle primaire
+    if (isset($desc['key']['PRIMARY KEY']))
+        return split_key($desc['key']['PRIMARY KEY']);
 
-	// ici on se rabat sur les cles secondaires, 
-	// en eliminant celles qui sont pas pertinentes (idx, maj)
-	// si jamais le resultat n'est pas pertinent pour une table donnee,
-	// il faut declarer explicitement le champ 'join' de sa description
+    // ici on se rabat sur les cles secondaires, 
+    // en eliminant celles qui sont pas pertinentes (idx, maj)
+    // si jamais le resultat n'est pas pertinent pour une table donnee,
+    // il faut declarer explicitement le champ 'join' de sa description
 
-	$join = array();
-	foreach ($desc['key'] as $v) $join = split_key($v, $join);
-	foreach ($join as $k) if (in_array($k, $nojoin)) unset($join[$k]);
-	return $join;
+    $join = array();
+    foreach ($desc['key'] as $v) $join = split_key($v, $join);
+    foreach ($join as $k) if (in_array($k, $nojoin)) unset($join[$k]);
+    return $join;
 }
 
 /**
@@ -263,8 +263,8 @@ 
  * @return array
  */
 function split_key($v, $join = array()){
-	foreach (preg_split('/,\s*/', $v) as $k) $join[$k] = $k;
-	return $join;
+    foreach (preg_split('/,\s*/', $v) as $k) $join[$k] = $k;
+    return $join;
 }
 
 /**
@@ -286,112 +286,112 @@ 
  * @return array
  */
 function calculer_chaine_jointures(&$boucle, $depart, $arrivee, $vu = array(), $milieu_exclus = array(), $max_liens = 5){
-	static $trouver_table;
-	if (!$trouver_table)
-		$trouver_table = charger_fonction('trouver_table', 'base');
-
-	if (is_string($milieu_exclus))
-		$milieu_exclus = array($milieu_exclus);
-	// quand on a exclus id_objet comme cle de jointure, il faut aussi exclure objet
-	// faire une jointure sur objet tout seul n'a pas de sens
-	if (in_array('id_objet',$milieu_exclus) AND !in_array('objet',$milieu_exclus))
-		$milieu_exclus[] = 'objet';
-
-	list($dnom, $ddesc) = $depart;
-	list($anom, $adesc) = $arrivee;
-	if (!count($vu)){
-		$vu[] = $dnom; // ne pas oublier la table de depart
-		$vu[] = $anom; // ne pas oublier la table d'arrivee
-	}
-
-	$akeys = array();
-	foreach ($adesc['key'] as $k) {
-		// respecter l'ordre de $adesc['key'] pour ne pas avoir id_trad en premier entre autres...
-		$akeys = array_merge($akeys, preg_split('/,\s*/', $k));
-	}
-
-	// enlever les cles d'arrivee exclues par l'appel
-	$akeys = array_diff($akeys, $milieu_exclus);
-
-	// cles candidates au depart
-	$keys = liste_champs_jointures($dnom, $ddesc);
-	// enlever les cles dde depart exclues par l'appel
-	$keys = array_diff($keys, $milieu_exclus);
-
-	$v = !$keys ? false : array_intersect(array_values($keys), $akeys);
-
-	if ($v)
-		return array(array($dnom, array($adesc['table'], $adesc), array_shift($v)));
-
-	// regarder si l'on a (id_objet,objet) au depart et si on peut le mapper sur un id_xx
-	if (count(array_intersect(array('id_objet', 'objet'), $keys))==2){
-		// regarder si l'une des cles d'arrivee peut se decomposer en 
-		// id_objet,objet
-		// si oui on la prend
-		foreach ($akeys as $key){
-			$v = decompose_champ_id_objet($key);
-			if (is_array($v)){
-				$objet = array_shift($v); // objet,'article'
-				array_unshift($v, $key); // id_article,objet,'article'
-				array_unshift($v, $objet); // id_objet,id_article,objet,'article'
-				return array(array($dnom, array($adesc['table'], $adesc), $v));
-			}
-		}
-	}
-	else {
-		// regarder si l'une des cles de depart peut se decomposer en 
-		// id_objet,objet a l'arrivee
-		// si oui on la prend
-		foreach ($keys as $key){
-			if (count($v = trouver_champs_decomposes($key, $adesc))>1){
-				if (count($v)==count(array_intersect($v, $akeys))){
-					$v = decompose_champ_id_objet($key); // id_objet,objet,'article'
-					array_unshift($v, $key); // id_article,id_objet,objet,'article'
-					return array(array($dnom, array($adesc['table'], $adesc), $v));
-				}
-			}
-		}
-	}
-	// si l'on voulait une jointure direct, c'est rate !
-	if ($max_liens<=1) return array();
-
-	// sinon essayer de passer par une autre table
-	$new = $vu;
-	foreach ($boucle->jointures as $v){
-		if ($v
-		    AND !in_array($v, $vu)
-		    AND $def = $trouver_table($v, $boucle->sql_serveur)
-			  AND !in_array($def['table_sql'], $vu)
-		){
-			// ne pas tester les cles qui sont exclues a l'appel
-			// ie la cle de la jointure precedente
-			$test_cles = $milieu_exclus;
-			$new[] = $v;
-			$max_iter = 50; // securite
-			while (count($jointure_directe_possible = calculer_chaine_jointures($boucle, $depart, array($v, $def), $vu, $test_cles, 1))
-			       AND $max_iter--){
-				$jointure_directe_possible = reset($jointure_directe_possible);
-				$milieu = end($jointure_directe_possible);
-				$exclure_fin = $milieu_exclus;
-				if (is_string($milieu)){
-					$exclure_fin[] = $milieu;
-					$test_cles[] = $milieu;
-				}
-				else{
-					$exclure_fin = array_merge($exclure_fin, $milieu);
-					$test_cles = array_merge($test_cles, $milieu);
-				}
-				// essayer de rejoindre l'arrivee a partir de cette etape intermediaire
-				// sans repasser par la meme cle milieu, ni une cle deja vue !
-				$r = calculer_chaine_jointures($boucle, array($v, $def), $arrivee, $new, $exclure_fin, $max_liens-1);
-				if ($r){
-					array_unshift($r, $jointure_directe_possible);
-					return $r;
-				}
-			}
-		}
-	}
-	return array();
+    static $trouver_table;
+    if (!$trouver_table)
+        $trouver_table = charger_fonction('trouver_table', 'base');
+
+    if (is_string($milieu_exclus))
+        $milieu_exclus = array($milieu_exclus);
+    // quand on a exclus id_objet comme cle de jointure, il faut aussi exclure objet
+    // faire une jointure sur objet tout seul n'a pas de sens
+    if (in_array('id_objet',$milieu_exclus) AND !in_array('objet',$milieu_exclus))
+        $milieu_exclus[] = 'objet';
+
+    list($dnom, $ddesc) = $depart;
+    list($anom, $adesc) = $arrivee;
+    if (!count($vu)){
+        $vu[] = $dnom; // ne pas oublier la table de depart
+        $vu[] = $anom; // ne pas oublier la table d'arrivee
+    }
+
+    $akeys = array();
+    foreach ($adesc['key'] as $k) {
+        // respecter l'ordre de $adesc['key'] pour ne pas avoir id_trad en premier entre autres...
+        $akeys = array_merge($akeys, preg_split('/,\s*/', $k));
+    }
+
+    // enlever les cles d'arrivee exclues par l'appel
+    $akeys = array_diff($akeys, $milieu_exclus);
+
+    // cles candidates au depart
+    $keys = liste_champs_jointures($dnom, $ddesc);
+    // enlever les cles dde depart exclues par l'appel
+    $keys = array_diff($keys, $milieu_exclus);
+
+    $v = !$keys ? false : array_intersect(array_values($keys), $akeys);
+
+    if ($v)
+        return array(array($dnom, array($adesc['table'], $adesc), array_shift($v)));
+
+    // regarder si l'on a (id_objet,objet) au depart et si on peut le mapper sur un id_xx
+    if (count(array_intersect(array('id_objet', 'objet'), $keys))==2){
+        // regarder si l'une des cles d'arrivee peut se decomposer en 
+        // id_objet,objet
+        // si oui on la prend
+        foreach ($akeys as $key){
+            $v = decompose_champ_id_objet($key);
+            if (is_array($v)){
+                $objet = array_shift($v); // objet,'article'
+                array_unshift($v, $key); // id_article,objet,'article'
+                array_unshift($v, $objet); // id_objet,id_article,objet,'article'
+                return array(array($dnom, array($adesc['table'], $adesc), $v));
+            }
+        }
+    }
+    else {
+        // regarder si l'une des cles de depart peut se decomposer en 
+        // id_objet,objet a l'arrivee
+        // si oui on la prend
+        foreach ($keys as $key){
+            if (count($v = trouver_champs_decomposes($key, $adesc))>1){
+                if (count($v)==count(array_intersect($v, $akeys))){
+                    $v = decompose_champ_id_objet($key); // id_objet,objet,'article'
+                    array_unshift($v, $key); // id_article,id_objet,objet,'article'
+                    return array(array($dnom, array($adesc['table'], $adesc), $v));
+                }
+            }
+        }
+    }
+    // si l'on voulait une jointure direct, c'est rate !
+    if ($max_liens<=1) return array();
+
+    // sinon essayer de passer par une autre table
+    $new = $vu;
+    foreach ($boucle->jointures as $v){
+        if ($v
+            AND !in_array($v, $vu)
+            AND $def = $trouver_table($v, $boucle->sql_serveur)
+              AND !in_array($def['table_sql'], $vu)
+        ){
+            // ne pas tester les cles qui sont exclues a l'appel
+            // ie la cle de la jointure precedente
+            $test_cles = $milieu_exclus;
+            $new[] = $v;
+            $max_iter = 50; // securite
+            while (count($jointure_directe_possible = calculer_chaine_jointures($boucle, $depart, array($v, $def), $vu, $test_cles, 1))
+                   AND $max_iter--){
+                $jointure_directe_possible = reset($jointure_directe_possible);
+                $milieu = end($jointure_directe_possible);
+                $exclure_fin = $milieu_exclus;
+                if (is_string($milieu)){
+                    $exclure_fin[] = $milieu;
+                    $test_cles[] = $milieu;
+                }
+                else{
+                    $exclure_fin = array_merge($exclure_fin, $milieu);
+                    $test_cles = array_merge($test_cles, $milieu);
+                }
+                // essayer de rejoindre l'arrivee a partir de cette etape intermediaire
+                // sans repasser par la meme cle milieu, ni une cle deja vue !
+                $r = calculer_chaine_jointures($boucle, array($v, $def), $arrivee, $new, $exclure_fin, $max_liens-1);
+                if ($r){
+                    array_unshift($r, $jointure_directe_possible);
+                    return $r;
+                }
+            }
+        }
+    }
+    return array();
 }
 
 /**
@@ -404,17 +404,17 @@ 
  * @return array
  */
 function trouver_cles_table($keys){
-	$res = array();
-	foreach ($keys as $v){
-		if (!strpos($v, ","))
-			$res[$v] = 1;
-		else {
-			foreach (preg_split("/\s*,\s*/", $v) as $k){
-				$res[$k] = 1;
-			}
-		}
-	}
-	return array_keys($res);
+    $res = array();
+    foreach ($keys as $v){
+        if (!strpos($v, ","))
+            $res[$v] = 1;
+        else {
+            foreach (preg_split("/\s*,\s*/", $v) as $k){
+                $res[$k] = 1;
+            }
+        }
+    }
+    return array_keys($res);
 }
 
 /**
@@ -427,60 +427,60 @@ 
  * @return array|string
  */
 function trouver_champ_exterieur($cle, $joints, &$boucle, $checkarrivee = false){
-	static $trouver_table = '';
-	if (!$trouver_table)
-		$trouver_table = charger_fonction('trouver_table', 'base');
-
-	// support de la recherche multi champ :
-	// si en seconde etape on a decompose le champ id_xx en id_objet,objet
-	// on reentre ici soit en cherchant une table les 2 champs id_objet,objet
-	// soit une table avec les 3 champs id_xx, id_objet, objet
-	if (!is_array($cle))
-		$cle = array($cle);
-
-	foreach ($joints as $k => $join){
-		if ($join && $table = $trouver_table($join, $boucle->sql_serveur)){
-			if (isset($table['field'])
-			    // verifier que toutes les cles cherchees sont la
-			    AND (count(array_intersect($cle, array_keys($table['field'])))==count($cle))
-			        // si on sait ou on veut arriver, il faut que ca colle
-			        AND ($checkarrivee==false || $checkarrivee==$table['table'])
-			)
-				return array($table['table'], $table);
-		}
-	}
-
-	// au premier coup, on essaye de decomposer, si possible
-	if (count($cle)==1
-	    AND $c = reset($cle)
-	        AND is_array($decompose = decompose_champ_id_objet($c))
-	){
-
-		$desc = $boucle->show;
-		// cas 1 : la cle id_xx est dans la table de depart
-		// -> on cherche uniquement id_objet,objet a l'arrivee
-		if (isset($desc['field'][$c])){
-			$cle = array();
-			$cle[] = array_shift($decompose); // id_objet
-			$cle[] = array_shift($decompose); // objet
-			return trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee);
-		}
-			// cas 2 : la cle id_xx n'est pas dans la table de depart
-			// -> il faut trouver une cle de depart zzz telle que
-			// id_objet,objet,zzz soit a l'arrivee
-		else {
-			$depart = liste_champs_jointures($desc['table'], $desc);
-			foreach ($depart as $d){
-				$cle = array();
-				$cle[] = array_shift($decompose); // id_objet
-				$cle[] = array_shift($decompose); // objet
-				$cle[] = $d;
-				if ($ext = trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee))
-					return $ext;
-			}
-		}
-	}
-	return "";
+    static $trouver_table = '';
+    if (!$trouver_table)
+        $trouver_table = charger_fonction('trouver_table', 'base');
+
+    // support de la recherche multi champ :
+    // si en seconde etape on a decompose le champ id_xx en id_objet,objet
+    // on reentre ici soit en cherchant une table les 2 champs id_objet,objet
+    // soit une table avec les 3 champs id_xx, id_objet, objet
+    if (!is_array($cle))
+        $cle = array($cle);
+
+    foreach ($joints as $k => $join){
+        if ($join && $table = $trouver_table($join, $boucle->sql_serveur)){
+            if (isset($table['field'])
+                // verifier que toutes les cles cherchees sont la
+                AND (count(array_intersect($cle, array_keys($table['field'])))==count($cle))
+                    // si on sait ou on veut arriver, il faut que ca colle
+                    AND ($checkarrivee==false || $checkarrivee==$table['table'])
+            )
+                return array($table['table'], $table);
+        }
+    }
+
+    // au premier coup, on essaye de decomposer, si possible
+    if (count($cle)==1
+        AND $c = reset($cle)
+            AND is_array($decompose = decompose_champ_id_objet($c))
+    ){
+
+        $desc = $boucle->show;
+        // cas 1 : la cle id_xx est dans la table de depart
+        // -> on cherche uniquement id_objet,objet a l'arrivee
+        if (isset($desc['field'][$c])){
+            $cle = array();
+            $cle[] = array_shift($decompose); // id_objet
+            $cle[] = array_shift($decompose); // objet
+            return trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee);
+        }
+            // cas 2 : la cle id_xx n'est pas dans la table de depart
+            // -> il faut trouver une cle de depart zzz telle que
+            // id_objet,objet,zzz soit a l'arrivee
+        else {
+            $depart = liste_champs_jointures($desc['table'], $desc);
+            foreach ($depart as $d){
+                $cle = array();
+                $cle[] = array_shift($decompose); // id_objet
+                $cle[] = array_shift($decompose); // objet
+                $cle[] = $d;
+                if ($ext = trouver_champ_exterieur($cle, $joints, $boucle, $checkarrivee))
+                    return $ext;
+            }
+        }
+    }
+    return "";
 }
 
 /**
@@ -506,17 +506,17 @@ 
  * @return string
  */
 function trouver_jointure_champ($champ, &$boucle, $jointures = false, $cond = false) {
-	if ($jointures === false) {
-		$jointures = $boucle->jointures;
-	}
-	$cle = trouver_champ_exterieur($champ, $jointures, $boucle);
-	if ($cle){
-		$desc = $boucle->show;
-		$cle = calculer_jointure($boucle, array($desc['id_table'], $desc), $cle, '', $cond);
-	}
-	if ($cle) return $cle;
-	spip_log("trouver_jointure_champ: $champ inconnu");
-	return '';
+    if ($jointures === false) {
+        $jointures = $boucle->jointures;
+    }
+    $cle = trouver_champ_exterieur($champ, $jointures, $boucle);
+    if ($cle){
+        $desc = $boucle->show;
+        $cle = calculer_jointure($boucle, array($desc['id_table'], $desc), $cle, '', $cond);
+    }
+    if ($cle) return $cle;
+    spip_log("trouver_jointure_champ: $champ inconnu");
+    return '';
 }
 
 ?>

ecrire/public/iterateur.php

Indentation +502 added lines, -502 removed lines

@@ -20,537 +20,537 @@
  * 
  */
 class IterFactory{
-	public static function create($iterateur, $command, $info=null){
-
-		// cas des SI {si expression} analises tres tot
-		// pour eviter le chargement de tout iterateur
-		if (isset($command['si'])) {
-			foreach ($command['si'] as $si) {
-				if (!$si) {
-					// $command pour boucle SQL peut generer des erreurs de compilation
-					// s'il est transmis alors qu'on est dans un iterateur vide
-					return new IterDecorator(new EmptyIterator(), array(), $info);
-				}
-			}
-		}
-
-		// chercher un iterateur PHP existant (par exemple dans SPL)
-		// (il faudrait passer l'argument ->sql_serveur
-		// pour etre certain qu'on est sur un "php:")
-		if (class_exists($iterateur)) {
-			$a = isset($command['args']) ? $command['args'] : array() ;
-
-			// permettre de passer un Iterateur directement {args #ITERATEUR} :
-			// si on recoit deja un iterateur en argument, on l'utilise
-			if (count($a)==1 and is_object($a[0]) and is_subclass_of($a[0], 'Iterator')) {
-				$iter = $a[0];
-
-			// sinon, on cree un iterateur du type donne
-			} else {							
-				// arguments de creation de l'iterateur...
-				// (pas glop)
-				try {
-					switch (count($a)) {
-						case 0:    $iter = new $iterateur();  break;
-						case 1:    $iter = new $iterateur($a[0]);  break;
-						case 2:    $iter = new $iterateur($a[0], $a[1]);  break;
-						case 3:    $iter = new $iterateur($a[0], $a[1], $a[2]);  break;
-						case 4:    $iter = new $iterateur($a[0], $a[1], $a[2], $a[3]);  break;
-					}
-				} catch (Exception $e) {
-					spip_log("Erreur de chargement de l'iterateur $iterateur");
-					spip_log($e->getMessage());
-					$iter = new EmptyIterator();
-				}
-			}
-		} else {
-			// chercher la classe d'iterateur
-			// IterateurXXX
-			// definie dans le fichier iterateurs/xxx.php
-			$class = "Iterateur".$iterateur;
-			if (!class_exists($class)){
-				if (!include_spip("iterateur/" . strtolower($iterateur))
-					OR !class_exists($class)) {
-					die("Iterateur $iterateur non trouvé");
-					// si l'iterateur n'existe pas, on se rabat sur le generique
-					# $iter = new EmptyIterator();
-				}
-			}
-			$iter = new $class($command, $info);
-		}
-		return new IterDecorator($iter, $command, $info);
-	}
+    public static function create($iterateur, $command, $info=null){
+
+        // cas des SI {si expression} analises tres tot
+        // pour eviter le chargement de tout iterateur
+        if (isset($command['si'])) {
+            foreach ($command['si'] as $si) {
+                if (!$si) {
+                    // $command pour boucle SQL peut generer des erreurs de compilation
+                    // s'il est transmis alors qu'on est dans un iterateur vide
+                    return new IterDecorator(new EmptyIterator(), array(), $info);
+                }
+            }
+        }
+
+        // chercher un iterateur PHP existant (par exemple dans SPL)
+        // (il faudrait passer l'argument ->sql_serveur
+        // pour etre certain qu'on est sur un "php:")
+        if (class_exists($iterateur)) {
+            $a = isset($command['args']) ? $command['args'] : array() ;
+
+            // permettre de passer un Iterateur directement {args #ITERATEUR} :
+            // si on recoit deja un iterateur en argument, on l'utilise
+            if (count($a)==1 and is_object($a[0]) and is_subclass_of($a[0], 'Iterator')) {
+                $iter = $a[0];
+
+            // sinon, on cree un iterateur du type donne
+            } else {							
+                // arguments de creation de l'iterateur...
+                // (pas glop)
+                try {
+                    switch (count($a)) {
+                        case 0:    $iter = new $iterateur();  break;
+                        case 1:    $iter = new $iterateur($a[0]);  break;
+                        case 2:    $iter = new $iterateur($a[0], $a[1]);  break;
+                        case 3:    $iter = new $iterateur($a[0], $a[1], $a[2]);  break;
+                        case 4:    $iter = new $iterateur($a[0], $a[1], $a[2], $a[3]);  break;
+                    }
+                } catch (Exception $e) {
+                    spip_log("Erreur de chargement de l'iterateur $iterateur");
+                    spip_log($e->getMessage());
+                    $iter = new EmptyIterator();
+                }
+            }
+        } else {
+            // chercher la classe d'iterateur
+            // IterateurXXX
+            // definie dans le fichier iterateurs/xxx.php
+            $class = "Iterateur".$iterateur;
+            if (!class_exists($class)){
+                if (!include_spip("iterateur/" . strtolower($iterateur))
+                    OR !class_exists($class)) {
+                    die("Iterateur $iterateur non trouvé");
+                    // si l'iterateur n'existe pas, on se rabat sur le generique
+                    # $iter = new EmptyIterator();
+                }
+            }
+            $iter = new $class($command, $info);
+        }
+        return new IterDecorator($iter, $command, $info);
+    }
 }
 
 
 
 
 class IterDecorator extends FilterIterator {
-	private $iter;
-
-	/**
-	 * Conditions de filtrage
-	 * ie criteres de selection
-	 * @var array
-	 */
-	protected $filtre = array();
-
-	/**
-	 * Fonction de filtrage compilee a partir des criteres de filtre
-	 * @var string
-	 */
-	protected $func_filtre = null;
-
-	/**
-	 * Critere {offset, limit}
-	 * @var int
-	 * @var int
-	 */
-	protected $offset = null;
-	protected $limit = null;
-
-	/**
-	 * nombre d'elements recuperes depuis la position 0,
-	 * en tenant compte des filtres
-	 * @var int
-	 */
-	protected $fetched=0;
-
-	/**
-	 * Y a t'il une erreur ?
-	 * 
-	 * @var bool
-	**/
-	protected $err = false;
-
-	/**
-	 * Drapeau a activer en cas d'echec
-	 * (select SQL errone, non chargement des DATA, etc)
-	 */
-	public function err() {
-		if (method_exists($this->iter, 'err'))
-			return $this->iter->err();
-		if (property_exists($this->iter, 'err'))
-			return $this->iter->err;
-		return false;
-	}
-
-	public function __construct(Iterator $iter, $command, $info){
-		parent::__construct($iter);
-		parent::rewind(); // remettre a la premiere position (bug? connu de FilterIterator)
+    private $iter;
+
+    /**
+     * Conditions de filtrage
+     * ie criteres de selection
+     * @var array
+     */
+    protected $filtre = array();
+
+    /**
+     * Fonction de filtrage compilee a partir des criteres de filtre
+     * @var string
+     */
+    protected $func_filtre = null;
+
+    /**
+     * Critere {offset, limit}
+     * @var int
+     * @var int
+     */
+    protected $offset = null;
+    protected $limit = null;
+
+    /**
+     * nombre d'elements recuperes depuis la position 0,
+     * en tenant compte des filtres
+     * @var int
+     */
+    protected $fetched=0;
+
+    /**
+     * Y a t'il une erreur ?
+     * 
+     * @var bool
+     **/
+    protected $err = false;
+
+    /**
+     * Drapeau a activer en cas d'echec
+     * (select SQL errone, non chargement des DATA, etc)
+     */
+    public function err() {
+        if (method_exists($this->iter, 'err'))
+            return $this->iter->err();
+        if (property_exists($this->iter, 'err'))
+            return $this->iter->err;
+        return false;
+    }
+
+    public function __construct(Iterator $iter, $command, $info){
+        parent::__construct($iter);
+        parent::rewind(); // remettre a la premiere position (bug? connu de FilterIterator)
 		
-		// recuperer l'iterateur transmis
-		$this->iter = $this->getInnerIterator();
-		$this->command = $command;
-		$this->info = $info;
-		$this->pos = 0;
-		$this->fetched = 0;
-
-		// chercher la liste des champs a retourner par
-		// fetch si l'objet ne les calcule pas tout seul
-		if (!method_exists($this->iter, 'fetch')) {
-			$this->calculer_select();
-			$this->calculer_filtres();
-		}
-
-		// emptyIterator critere {si} faux n'a pas d'erreur !
-		if (isset($this->iter->err)) {
-			$this->err = $this->iter->err;
-		}
-
-		// pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
-		//$this->total = $this->count();
-	}
-
-
-	// calcule les elements a retournes par fetch()
-	// enleve les elements inutiles du select()
-	// 
-	private function calculer_select() {
-		if ($select = &$this->command['select']) {
-			foreach($select as $s) {
-				// /!\ $s = '.nom'
-				if ($s[0] == '.') {
-					$s = substr($s, 1);
-				}
-				$this->select[] = $s;
-			}
-		}
-	}
-
-	// recuperer la valeur d'une balise #X
-	// en fonction des methodes 
-	// et proprietes disponibles
-	public function get_select($nom) {
-		if (is_object($this->iter)
-		AND method_exists($this->iter, $nom)) {
-			try {
-				return $this->iter->$nom();
-			} catch(Exception $e) {
-				// #GETCHILDREN sur un fichier de DirectoryIterator ...
-				spip_log("Methode $nom en echec sur " . get_class($this->iter));
-				spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
-				return '';
-			}
-		}
-		/*
+        // recuperer l'iterateur transmis
+        $this->iter = $this->getInnerIterator();
+        $this->command = $command;
+        $this->info = $info;
+        $this->pos = 0;
+        $this->fetched = 0;
+
+        // chercher la liste des champs a retourner par
+        // fetch si l'objet ne les calcule pas tout seul
+        if (!method_exists($this->iter, 'fetch')) {
+            $this->calculer_select();
+            $this->calculer_filtres();
+        }
+
+        // emptyIterator critere {si} faux n'a pas d'erreur !
+        if (isset($this->iter->err)) {
+            $this->err = $this->iter->err;
+        }
+
+        // pas d'init a priori, le calcul ne sera fait qu'en cas de besoin (provoque une double requete souvent inutile en sqlite)
+        //$this->total = $this->count();
+    }
+
+
+    // calcule les elements a retournes par fetch()
+    // enleve les elements inutiles du select()
+    // 
+    private function calculer_select() {
+        if ($select = &$this->command['select']) {
+            foreach($select as $s) {
+                // /!\ $s = '.nom'
+                if ($s[0] == '.') {
+                    $s = substr($s, 1);
+                }
+                $this->select[] = $s;
+            }
+        }
+    }
+
+    // recuperer la valeur d'une balise #X
+    // en fonction des methodes 
+    // et proprietes disponibles
+    public function get_select($nom) {
+        if (is_object($this->iter)
+        AND method_exists($this->iter, $nom)) {
+            try {
+                return $this->iter->$nom();
+            } catch(Exception $e) {
+                // #GETCHILDREN sur un fichier de DirectoryIterator ...
+                spip_log("Methode $nom en echec sur " . get_class($this->iter));
+                spip_log("Cela peut être normal : retour d'une ligne de resultat ne pouvant pas calculer cette methode");
+                return '';
+            }
+        }
+        /*
 		if (property_exists($this->iter, $nom)) {
 			return $this->iter->$nom;
 		}*/
-		// cle et valeur par defaut
-		// ICI PLANTAGE SI ON NE CONTROLE PAS $nom
-		if (in_array($nom, array('cle', 'valeur'))
-		AND method_exists($this, $nom)) {
-			return $this->$nom();
-		}
+        // cle et valeur par defaut
+        // ICI PLANTAGE SI ON NE CONTROLE PAS $nom
+        if (in_array($nom, array('cle', 'valeur'))
+        AND method_exists($this, $nom)) {
+            return $this->$nom();
+        }
 
-		// Par defaut chercher en xpath dans la valeur()
-		return table_valeur($this->valeur(), $nom, null);
-	}
+        // Par defaut chercher en xpath dans la valeur()
+        return table_valeur($this->valeur(), $nom, null);
+    }
 
 	
-	private function calculer_filtres() {
+    private function calculer_filtres() {
 		
-		// Issu de calculer_select() de public/composer L.519
-		// TODO: externaliser...
-		//
-		// retirer les criteres vides:
-		// {X ?} avec X absent de l'URL
-		// {par #ENV{X}} avec X absent de l'URL
-		// IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
-		if ($where = &$this->command['where']) {
-			$menage = false;
-			foreach($where as $k => $v) { 
-				if (is_array($v)){
-					if ((count($v)>=2) && ($v[0]=='REGEXP') && ($v[2]=="'.*'")) $op= false;
-					elseif ((count($v)>=2) && ($v[0]=='LIKE') && ($v[2]=="'%'")) $op= false;
-					else $op = $v[0] ? $v[0] : $v;
-				} else $op = $v;
-				if ((!$op) OR ($op==1) OR ($op=='0=0')) {
-					unset($where[$k]);
-					$menage = true;
-				}
-				// traiter {cle IN a,b} ou {valeur !IN a,b}
-				// prendre en compte le cas particulier de sous-requetes
-				// produites par sql_in quand plus de 255 valeurs passees a IN
-				if (preg_match_all(',\s+IN\s+(\(.*\)),', $op, $s_req)) {
-					$req = '';
-					foreach($s_req[1] as $key => $val) {
-						$req .= trim($val, '(,)') . ',';
-					}
-					$req = '(' . rtrim($req, ',') . ')';
-				}
-				if (preg_match(',^\(\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)(?:\s+(AND|OR)\s+\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\))*\)$,', $op, $regs)) {
-					$this->ajouter_filtre($regs[1], 'IN', strlen($req) ? $req : $regs[3], $regs[2]);
-					unset($op);
-				}
-			}
-			foreach($where as $k => $v) {
-				// 3 possibilites : count($v) =
-				// * 1 : {x y} ; on recoit $v[0] = y
-				// * 2 : {x !op y} ; on recoit $v[0] = 'NOT', $v[1] = array() // array du type {x op y}
-				// * 3 : {x op y} ; on recoit $v[0] = 'op', $v[1] = x, $v[2] = y
-
-				// 1 : forcement traite par un critere, on passe
-				if (count($v) == 1) {
-					continue;
-				}
-				if (count($v) == 2 and is_array($v[1])) {
-					$this->ajouter_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
-				}
-				if (count($v) == 3) {
-					$this->ajouter_filtre($v[1], $v[0], $v[2]);
-				}
-			}
-		}
-
-		// critere {2,7}
-		if (isset($this->command['limit']) AND $this->command['limit']) {
-			$limit = explode(',',$this->command['limit']);
-			$this->offset = $limit[0];
-			$this->limit = $limit[1];
-		}
-
-		// Creer la fonction de filtrage sur $this
-		if ($this->filtre) {
-			$this->func_filtre = create_function('$me', $b = 'return ('.join(') AND (', $this->filtre).');');
-		}
-	}
-
-
-
-	protected function ajouter_filtre($cle, $op, $valeur, $not=false) {
-		if (method_exists($this->iter, 'exception_des_criteres')) {
-			if (in_array($cle, $this->iter->exception_des_criteres())) {
-				return;
-			}
-		}
-		// TODO: analyser le filtre pour refuser ce qu'on ne sait pas traiter ?
-		# mais c'est normalement deja opere par calculer_critere_infixe()
-		# qui regarde la description 'desc' (en casse reelle d'ailleurs : {isDir=1}
-		# ne sera pas vu si l'on a defini desc['field']['isdir'] pour que #ISDIR soit present.
-		# il faudrait peut etre definir les 2 champs isDir et isdir... a reflechir...
+        // Issu de calculer_select() de public/composer L.519
+        // TODO: externaliser...
+        //
+        // retirer les criteres vides:
+        // {X ?} avec X absent de l'URL
+        // {par #ENV{X}} avec X absent de l'URL
+        // IN sur collection vide (ce dernier devrait pouvoir etre fait a la compil)
+        if ($where = &$this->command['where']) {
+            $menage = false;
+            foreach($where as $k => $v) { 
+                if (is_array($v)){
+                    if ((count($v)>=2) && ($v[0]=='REGEXP') && ($v[2]=="'.*'")) $op= false;
+                    elseif ((count($v)>=2) && ($v[0]=='LIKE') && ($v[2]=="'%'")) $op= false;
+                    else $op = $v[0] ? $v[0] : $v;
+                } else $op = $v;
+                if ((!$op) OR ($op==1) OR ($op=='0=0')) {
+                    unset($where[$k]);
+                    $menage = true;
+                }
+                // traiter {cle IN a,b} ou {valeur !IN a,b}
+                // prendre en compte le cas particulier de sous-requetes
+                // produites par sql_in quand plus de 255 valeurs passees a IN
+                if (preg_match_all(',\s+IN\s+(\(.*\)),', $op, $s_req)) {
+                    $req = '';
+                    foreach($s_req[1] as $key => $val) {
+                        $req .= trim($val, '(,)') . ',';
+                    }
+                    $req = '(' . rtrim($req, ',') . ')';
+                }
+                if (preg_match(',^\(\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\)(?:\s+(AND|OR)\s+\(([\w/]+)(\s+NOT)?\s+IN\s+(\(.*\))\))*\)$,', $op, $regs)) {
+                    $this->ajouter_filtre($regs[1], 'IN', strlen($req) ? $req : $regs[3], $regs[2]);
+                    unset($op);
+                }
+            }
+            foreach($where as $k => $v) {
+                // 3 possibilites : count($v) =
+                // * 1 : {x y} ; on recoit $v[0] = y
+                // * 2 : {x !op y} ; on recoit $v[0] = 'NOT', $v[1] = array() // array du type {x op y}
+                // * 3 : {x op y} ; on recoit $v[0] = 'op', $v[1] = x, $v[2] = y
+
+                // 1 : forcement traite par un critere, on passe
+                if (count($v) == 1) {
+                    continue;
+                }
+                if (count($v) == 2 and is_array($v[1])) {
+                    $this->ajouter_filtre($v[1][1], $v[1][0], $v[1][2], 'NOT');
+                }
+                if (count($v) == 3) {
+                    $this->ajouter_filtre($v[1], $v[0], $v[2]);
+                }
+            }
+        }
+
+        // critere {2,7}
+        if (isset($this->command['limit']) AND $this->command['limit']) {
+            $limit = explode(',',$this->command['limit']);
+            $this->offset = $limit[0];
+            $this->limit = $limit[1];
+        }
+
+        // Creer la fonction de filtrage sur $this
+        if ($this->filtre) {
+            $this->func_filtre = create_function('$me', $b = 'return ('.join(') AND (', $this->filtre).');');
+        }
+    }
+
+
+
+    protected function ajouter_filtre($cle, $op, $valeur, $not=false) {
+        if (method_exists($this->iter, 'exception_des_criteres')) {
+            if (in_array($cle, $this->iter->exception_des_criteres())) {
+                return;
+            }
+        }
+        // TODO: analyser le filtre pour refuser ce qu'on ne sait pas traiter ?
+        # mais c'est normalement deja opere par calculer_critere_infixe()
+        # qui regarde la description 'desc' (en casse reelle d'ailleurs : {isDir=1}
+        # ne sera pas vu si l'on a defini desc['field']['isdir'] pour que #ISDIR soit present.
+        # il faudrait peut etre definir les 2 champs isDir et isdir... a reflechir...
 		
-		# if (!in_array($cle, array('cle', 'valeur')))
-		#	return;
+        # if (!in_array($cle, array('cle', 'valeur')))
+        #	return;
 
-		$a = '$me->get_select(\''.$cle.'\')';
+        $a = '$me->get_select(\''.$cle.'\')';
 
-		$filtre = '';
+        $filtre = '';
 		
-		if ($op == 'REGEXP') {
-			$filtre = 'match('.$a.', '.str_replace('\"', '"', $valeur).')';
-			$op = '';
-		} else if ($op == 'LIKE') {
-			$valeur = str_replace(array('\"', '_', '%'), array('"', '.', '.*'), preg_quote($valeur));
-			$filtre = 'match('.$a.', '.$valeur.')';
-			$op = '';
-		} else if ($op == '=') {
-			$op = '==';
-		} else if ($op == 'IN') {
-			$filtre = 'in_array('.$a.', array'.$valeur.')';
-			$op = '';
-		} else if (!in_array($op, array('<','<=', '>', '>='))) {
-			spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
-			$op = '';
-		}
+        if ($op == 'REGEXP') {
+            $filtre = 'match('.$a.', '.str_replace('\"', '"', $valeur).')';
+            $op = '';
+        } else if ($op == 'LIKE') {
+            $valeur = str_replace(array('\"', '_', '%'), array('"', '.', '.*'), preg_quote($valeur));
+            $filtre = 'match('.$a.', '.$valeur.')';
+            $op = '';
+        } else if ($op == '=') {
+            $op = '==';
+        } else if ($op == 'IN') {
+            $filtre = 'in_array('.$a.', array'.$valeur.')';
+            $op = '';
+        } else if (!in_array($op, array('<','<=', '>', '>='))) {
+            spip_log('operateur non reconnu ' . $op); // [todo] mettre une erreur de squelette
+            $op = '';
+        }
 	
-		if ($op)
-			$filtre = $a.$op.str_replace('\"', '"', $valeur);
+        if ($op)
+            $filtre = $a.$op.str_replace('\"', '"', $valeur);
 
-		if ($not)
-			$filtre = "!($filtre)";
+        if ($not)
+            $filtre = "!($filtre)";
 			
-		if ($filtre) {
-			$this->filtre[] = $filtre;
-		}
-	}
+        if ($filtre) {
+            $this->filtre[] = $filtre;
+        }
+    }
 
 	
-	public function next(){
-		$this->pos++;
-		parent::next();
-	}
-
-	/**
-	 * revient au depart
-	 * @return void
-	 */
-	public function rewind() {
-		$this->pos = 0;
-		$this->fetched = 0;
-		parent::rewind();
-	}
-
-
-	# Extension SPIP des iterateurs PHP
-	/**
-	 * type de l'iterateur
-	 * @var string
-	 */
-	protected $type;
-
-	/**
-	 * parametres de l'iterateur
-	 * @var array
-	 */
-	protected $command;
-
-	/**
-	 * infos de compilateur
-	 * @var array
-	 */
-	protected $info;
-
-	/**
-	 * position courante de l'iterateur
-	 * @var int
-	 */
-	protected $pos=null;
-
-	/**
-	 * nombre total resultats dans l'iterateur
-	 * @var int
-	 */
-	protected $total=null;
-
-	/**
-	 * nombre maximal de recherche pour $total
-	 * si l'iterateur n'implemente pas de fonction specifique
-	 */
-	 protected $max=100000;
-
-
-	/**
-	 * Liste des champs a inserer dans les $row
-	 * retournes par ->fetch()
-	 */
-	 protected $select=array();
+    public function next(){
+        $this->pos++;
+        parent::next();
+    }
+
+    /**
+     * revient au depart
+     * @return void
+     */
+    public function rewind() {
+        $this->pos = 0;
+        $this->fetched = 0;
+        parent::rewind();
+    }
+
+
+    # Extension SPIP des iterateurs PHP
+    /**
+     * type de l'iterateur
+     * @var string
+     */
+    protected $type;
+
+    /**
+     * parametres de l'iterateur
+     * @var array
+     */
+    protected $command;
+
+    /**
+     * infos de compilateur
+     * @var array
+     */
+    protected $info;
+
+    /**
+     * position courante de l'iterateur
+     * @var int
+     */
+    protected $pos=null;
+
+    /**
+     * nombre total resultats dans l'iterateur
+     * @var int
+     */
+    protected $total=null;
+
+    /**
+     * nombre maximal de recherche pour $total
+     * si l'iterateur n'implemente pas de fonction specifique
+     */
+        protected $max=100000;
+
+
+    /**
+     * Liste des champs a inserer dans les $row
+     * retournes par ->fetch()
+     */
+        protected $select=array();
 
 	 
-	/**
-	 * aller a la position absolue n,
-	 * comptee depuis le debut
-	 *
-	 * @param int $n
-	 *   absolute pos
-	 * @param string $continue
-	 *   param for sql_ api
-	 * @return bool
-	 *   success or fail if not implemented
-	 */
-	public function seek($n=0, $continue=null) {
-		if ($this->func_filtre OR !method_exists($this->iter, 'seek') OR !$this->iter->seek($n)) {
-			$this->seek_loop($n);
-		}
-		$this->pos = $n;
-		$this->fetched = $n;
-		return true;
-	}
-
-	/*
+    /**
+     * aller a la position absolue n,
+     * comptee depuis le debut
+     *
+     * @param int $n
+     *   absolute pos
+     * @param string $continue
+     *   param for sql_ api
+     * @return bool
+     *   success or fail if not implemented
+     */
+    public function seek($n=0, $continue=null) {
+        if ($this->func_filtre OR !method_exists($this->iter, 'seek') OR !$this->iter->seek($n)) {
+            $this->seek_loop($n);
+        }
+        $this->pos = $n;
+        $this->fetched = $n;
+        return true;
+    }
+
+    /*
 	 * aller a la position $n en parcourant
 	 * un par un tous les elements
 	 */
-	private function seek_loop($n) {
-		if ($this->pos > $n)
-			$this->rewind();
-
-		while ($this->pos < $n AND $this->valid()) {
-			$this->next();
-		}
-
-		return true;
-	}
-
-	/**
-	 * Avancer de $saut pas
-	 * @param  $saut
-	 * @param  $max
-	 * @return int
-	 */
-	public function skip($saut, $max=null){
-		// pas de saut en arriere autorise pour cette fonction
-		if (($saut=intval($saut))<=0) return $this->pos;
-		$seek = $this->pos + $saut;
-		// si le saut fait depasser le maxi, on libere la resource
-		// et on sort
-		if (is_null($max))
-			$max = $this->count();
-
-		if ($seek>=$max OR $seek>=$this->count()) {
-			// sortie plus rapide que de faire next() jusqu'a la fin !
-			$this->free();
-		  return $max;
-		}
-
-	  $this->seek($seek);
-	  return $this->pos;
-	}
-
-	/**
-	 * Renvoyer un tableau des donnees correspondantes
-	 * a la position courante de l'iterateur
-	 * en controlant si on respecte le filtre
-	 * Appliquer aussi le critere {offset,limit}
-	 *
-	 * @return array|bool
-	 */
-	public function fetch() {
-		if (method_exists($this->iter, 'fetch')) {
-			return $this->iter->fetch();
-		} else {
-
-			while ($this->valid()
-			AND (
-				!$this->accept()
-				OR (isset($this->offset) AND $this->fetched++ < $this->offset)
-			))
-				$this->next();
-
-			if (!$this->valid())
-				return false;
-
-			if (isset($this->limit)
-			AND $this->fetched > $this->offset + $this->limit)
-				return false;
-
-			$r = array();
-			foreach ($this->select as $nom) {
-				$r[$nom] = $this->get_select($nom);
-			}
-			$this->next();
-			return $r;
-		}
-	}
-
-	// retourner la cle pour #CLE
-	public function cle() {
-		return $this->key();
-	}
+    private function seek_loop($n) {
+        if ($this->pos > $n)
+            $this->rewind();
+
+        while ($this->pos < $n AND $this->valid()) {
+            $this->next();
+        }
+
+        return true;
+    }
+
+    /**
+     * Avancer de $saut pas
+     * @param  $saut
+     * @param  $max
+     * @return int
+     */
+    public function skip($saut, $max=null){
+        // pas de saut en arriere autorise pour cette fonction
+        if (($saut=intval($saut))<=0) return $this->pos;
+        $seek = $this->pos + $saut;
+        // si le saut fait depasser le maxi, on libere la resource
+        // et on sort
+        if (is_null($max))
+            $max = $this->count();
+
+        if ($seek>=$max OR $seek>=$this->count()) {
+            // sortie plus rapide que de faire next() jusqu'a la fin !
+            $this->free();
+            return $max;
+        }
+
+        $this->seek($seek);
+        return $this->pos;
+    }
+
+    /**
+     * Renvoyer un tableau des donnees correspondantes
+     * a la position courante de l'iterateur
+     * en controlant si on respecte le filtre
+     * Appliquer aussi le critere {offset,limit}
+     *
+     * @return array|bool
+     */
+    public function fetch() {
+        if (method_exists($this->iter, 'fetch')) {
+            return $this->iter->fetch();
+        } else {
+
+            while ($this->valid()
+            AND (
+                !$this->accept()
+                OR (isset($this->offset) AND $this->fetched++ < $this->offset)
+            ))
+                $this->next();
+
+            if (!$this->valid())
+                return false;
+
+            if (isset($this->limit)
+            AND $this->fetched > $this->offset + $this->limit)
+                return false;
+
+            $r = array();
+            foreach ($this->select as $nom) {
+                $r[$nom] = $this->get_select($nom);
+            }
+            $this->next();
+            return $r;
+        }
+    }
+
+    // retourner la cle pour #CLE
+    public function cle() {
+        return $this->key();
+    }
 	
-	// retourner la valeur pour #VALEUR
-	public function valeur() {
-		# attention PHP est mechant avec les objets, parfois il ne les
-		# clone pas proprement (directoryiterator sous php 5.2.2)
-		# on se rabat sur la version __toString()
-		if (is_object($v = $this->current())) {
-			if (method_exists($v, '__toString'))
-				$v = $v->__toString();
-			else
-				$v = (array) $v;
-		}
-		return $v;
-	}
-
-	/**
-	 * Accepte-t-on l'entree courante lue ?
-	 * On execute les filtres pour le savoir. 
-	**/
-	public function accept() {
-		if ($f = $this->func_filtre) {
-			return $f($this);
-		}
-		return true;
-	}
-
-	/**
-	 * liberer la ressource
-	 * @return bool
-	 */
-	public function free() {
-		if (method_exists($this->iter, 'free')) {
-			$this->iter->free();
-		}
-		$this->pos = $this->total = 0;
-		return true;
-	}
-
-	/**
-	 * Compter le nombre total de resultats
-	 * pour #TOTAL_BOUCLE
-	 * @return int
-	 */
-	public function count() {
-		if (is_null($this->total)) {
-			if (method_exists($this->iter, 'count')
-			AND !$this->func_filtre) {
-				return $this->total = $this->iter->count();
-			} else {
-				// compter les lignes et rembobiner
-				$total = 0;
-				$pos = $this->pos; // sauver la position
-				$this->rewind();
-				while ($this->fetch() and $total < $this->max) {
-					$total++;
-				}
-				$this->seek($pos);
-				$this->total = $total;
-			}
-		}
-
-		return $this->total;
-	}
+    // retourner la valeur pour #VALEUR
+    public function valeur() {
+        # attention PHP est mechant avec les objets, parfois il ne les
+        # clone pas proprement (directoryiterator sous php 5.2.2)
+        # on se rabat sur la version __toString()
+        if (is_object($v = $this->current())) {
+            if (method_exists($v, '__toString'))
+                $v = $v->__toString();
+            else
+                $v = (array) $v;
+        }
+        return $v;
+    }
+
+    /**
+     * Accepte-t-on l'entree courante lue ?
+     * On execute les filtres pour le savoir. 
+     **/
+    public function accept() {
+        if ($f = $this->func_filtre) {
+            return $f($this);
+        }
+        return true;
+    }
+
+    /**
+     * liberer la ressource
+     * @return bool
+     */
+    public function free() {
+        if (method_exists($this->iter, 'free')) {
+            $this->iter->free();
+        }
+        $this->pos = $this->total = 0;
+        return true;
+    }
+
+    /**
+     * Compter le nombre total de resultats
+     * pour #TOTAL_BOUCLE
+     * @return int
+     */
+    public function count() {
+        if (is_null($this->total)) {
+            if (method_exists($this->iter, 'count')
+            AND !$this->func_filtre) {
+                return $this->total = $this->iter->count();
+            } else {
+                // compter les lignes et rembobiner
+                $total = 0;
+                $pos = $this->pos; // sauver la position
+                $this->rewind();
+                while ($this->fetch() and $total < $this->max) {
+                    $total++;
+                }
+                $this->seek($pos);
+                $this->total = $total;
+            }
+        }
+
+        return $this->total;
+    }
 	
 }
 

ecrire/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);
+    }
 }
 
 ?>

ecrire/action/inscrire_auteur.php

Indentation +168 added lines, -168 removed lines

@@ -30,62 +30,62 @@ 
  * @return array|string
  */
 function action_inscrire_auteur_dist($statut, $mail_complet, $nom, $options = array()){
-	if (!is_array($options))
-		$options = array('id'=>$options);
-
-	if (function_exists('test_inscription'))
-		$f = 'test_inscription';
-	else 	$f = 'test_inscription_dist';
-	$desc = $f($statut, $mail_complet, $nom, $options);
-
-	// erreur ?
-	if (!is_array($desc))
-		return _T($desc);
-
-	include_spip('base/abstract_sql');
-	$res = sql_select("statut, id_auteur, login, email", "spip_auteurs", "email=" . sql_quote($desc['email']));
-	// erreur ?
-	if (!$res)
-		return _T('titre_probleme_technique');
-
-	$row = sql_fetch($res);
-	sql_free($res);
-	if ($row){
-		if (isset($options['force_nouveau']) AND $options['force_nouveau']==true){
-			$desc['id_auteur'] = $row['id_auteur'];
-			$desc = inscription_nouveau($desc);
-		}
-		else
-			$desc = $row;
-	}
-	else
-		// s'il n'existe pas deja, creer les identifiants
-		$desc = inscription_nouveau($desc);
-
-	// erreur ?
-	if (!is_array($desc))
-		return $desc;
-
-
-	// generer le mot de passe (ou le refaire si compte inutilise)
-	$desc['pass'] = creer_pass_pour_auteur($desc['id_auteur']);
-
-	// attribuer un jeton pour confirmation par clic sur un lien
-	$desc['jeton'] = auteur_attribuer_jeton($desc['id_auteur']);
-
-	// charger de suite cette fonction, pour ses utilitaires
-	$envoyer_inscription = charger_fonction("envoyer_inscription","");
-	list($sujet,$msg,$from,$head) = $envoyer_inscription($desc, $nom, $statut, $options);
-
-	$notifications = charger_fonction('notifications', 'inc');
-	notifications_envoyer_mails($mail_complet, $msg, $sujet, $from, $head);
-
-	// Notifications
-	$notifications('inscription', $desc['id_auteur'],
-		array('nom' => $desc['nom'], 'email' => $desc['email'])
-	);
-
-	return $desc;
+    if (!is_array($options))
+        $options = array('id'=>$options);
+
+    if (function_exists('test_inscription'))
+        $f = 'test_inscription';
+    else 	$f = 'test_inscription_dist';
+    $desc = $f($statut, $mail_complet, $nom, $options);
+
+    // erreur ?
+    if (!is_array($desc))
+        return _T($desc);
+
+    include_spip('base/abstract_sql');
+    $res = sql_select("statut, id_auteur, login, email", "spip_auteurs", "email=" . sql_quote($desc['email']));
+    // erreur ?
+    if (!$res)
+        return _T('titre_probleme_technique');
+
+    $row = sql_fetch($res);
+    sql_free($res);
+    if ($row){
+        if (isset($options['force_nouveau']) AND $options['force_nouveau']==true){
+            $desc['id_auteur'] = $row['id_auteur'];
+            $desc = inscription_nouveau($desc);
+        }
+        else
+            $desc = $row;
+    }
+    else
+        // s'il n'existe pas deja, creer les identifiants
+        $desc = inscription_nouveau($desc);
+
+    // erreur ?
+    if (!is_array($desc))
+        return $desc;
+
+
+    // generer le mot de passe (ou le refaire si compte inutilise)
+    $desc['pass'] = creer_pass_pour_auteur($desc['id_auteur']);
+
+    // attribuer un jeton pour confirmation par clic sur un lien
+    $desc['jeton'] = auteur_attribuer_jeton($desc['id_auteur']);
+
+    // charger de suite cette fonction, pour ses utilitaires
+    $envoyer_inscription = charger_fonction("envoyer_inscription","");
+    list($sujet,$msg,$from,$head) = $envoyer_inscription($desc, $nom, $statut, $options);
+
+    $notifications = charger_fonction('notifications', 'inc');
+    notifications_envoyer_mails($mail_complet, $msg, $sujet, $from, $head);
+
+    // Notifications
+    $notifications('inscription', $desc['id_auteur'],
+        array('nom' => $desc['nom'], 'email' => $desc['email'])
+    );
+
+    return $desc;
 }
 
 
@@ -107,18 +107,18 @@ 
  * @return array|string
  */
 function test_inscription_dist($statut, $mail, $nom, $options) {
-	include_spip('inc/filtres');
-	if (!$r = email_valide($mail)) return 'info_email_invalide';
-	$nom = trim(corriger_caracteres($nom));
-	$res = array('email' => $r, 'nom' => $nom, 'prefs' => $statut);
-	if (isset($options['login'])) {
-		$login = trim(corriger_caracteres($options['login']));
-		if((strlen ($login) >= _LOGIN_TROP_COURT) AND (strlen($nom) <= 64))
-			$res['login'] = $login;
-	}
-	if(!isset($res['login']) AND ((strlen ($nom) < _LOGIN_TROP_COURT) OR (strlen($nom) > 64)))
-		return 'ecrire:info_login_trop_court';
-	return $res;
+    include_spip('inc/filtres');
+    if (!$r = email_valide($mail)) return 'info_email_invalide';
+    $nom = trim(corriger_caracteres($nom));
+    $res = array('email' => $r, 'nom' => $nom, 'prefs' => $statut);
+    if (isset($options['login'])) {
+        $login = trim(corriger_caracteres($options['login']));
+        if((strlen ($login) >= _LOGIN_TROP_COURT) AND (strlen($nom) <= 64))
+            $res['login'] = $login;
+    }
+    if(!isset($res['login']) AND ((strlen ($nom) < _LOGIN_TROP_COURT) OR (strlen($nom) > 64)))
+        return 'ecrire:info_login_trop_court';
+    return $res;
 }
 
 
@@ -134,27 +134,27 @@ 
  */
 function inscription_nouveau($desc)
 {
-	if (!isset($desc['login']) OR !strlen($desc['login']))
-		$desc['login'] = test_login($desc['nom'], $desc['email']);
+    if (!isset($desc['login']) OR !strlen($desc['login']))
+        $desc['login'] = test_login($desc['nom'], $desc['email']);
 
-	$desc['statut'] = 'nouveau';
-	include_spip('action/editer_auteur');
-	if (isset($desc['id_auteur']))
-		$id_auteur = $desc['id_auteur'];
-	else
-		$id_auteur = auteur_inserer();
+    $desc['statut'] = 'nouveau';
+    include_spip('action/editer_auteur');
+    if (isset($desc['id_auteur']))
+        $id_auteur = $desc['id_auteur'];
+    else
+        $id_auteur = auteur_inserer();
 
-	if (!$id_auteur) return _T('titre_probleme_technique');
+    if (!$id_auteur) return _T('titre_probleme_technique');
 
-	include_spip('inc/autoriser');
-	// lever l'autorisation pour pouvoir modifier le statut
-	autoriser_exception('modifier','auteur',$id_auteur);
-	auteur_modifier($id_auteur, $desc);
-	autoriser_exception('modifier','auteur',$id_auteur,false);
+    include_spip('inc/autoriser');
+    // lever l'autorisation pour pouvoir modifier le statut
+    autoriser_exception('modifier','auteur',$id_auteur);
+    auteur_modifier($id_auteur, $desc);
+    autoriser_exception('modifier','auteur',$id_auteur,false);
 
-	$desc['id_auteur'] = $id_auteur;
+    $desc['id_auteur'] = $id_auteur;
 
-	return $desc;
+    return $desc;
 }
 
 
@@ -166,26 +166,26 @@ 
  * @return string
  */
 function test_login($nom, $mail) {
-	include_spip('inc/charsets');
-	$nom = strtolower(translitteration($nom));
-	$login_base = preg_replace("/[^\w\d_]/", "_", $nom);
-
-	// il faut eviter que le login soit vraiment trop court
-	if (strlen($login_base) < 3) {
-		$mail = strtolower(translitteration(preg_replace('/@.*/', '', $mail)));
-		$login_base = preg_replace("/[^\w\d]/", "_", $mail);
-	}
-	if (strlen($login_base) < 3)
-		$login_base = 'user';
-
-	$login = $login_base;
-
-	for ($i = 1; ; $i++) {
-		if (!sql_countsel('spip_auteurs', "login='$login'"))
-			return $login;
-		$login = $login_base.$i;
-	}
-	return $login;
+    include_spip('inc/charsets');
+    $nom = strtolower(translitteration($nom));
+    $login_base = preg_replace("/[^\w\d_]/", "_", $nom);
+
+    // il faut eviter que le login soit vraiment trop court
+    if (strlen($login_base) < 3) {
+        $mail = strtolower(translitteration(preg_replace('/@.*/', '', $mail)));
+        $login_base = preg_replace("/[^\w\d]/", "_", $mail);
+    }
+    if (strlen($login_base) < 3)
+        $login_base = 'user';
+
+    $login = $login_base;
+
+    for ($i = 1; ; $i++) {
+        if (!sql_countsel('spip_auteurs', "login='$login'"))
+            return $login;
+        $login = $login_base.$i;
+    }
+    return $login;
 }
 
 
@@ -204,21 +204,21 @@ 
  */
 function envoyer_inscription_dist($desc, $nom, $mode, $options=array()) {
 
-	$contexte = array_merge($desc,$options);
-	$contexte['nom'] = $nom;
-	$contexte['mode'] = $mode;
-	$contexte['url_confirm'] = generer_url_action('confirmer_inscription','',true,true);
-	$contexte['url_confirm'] = parametre_url($contexte['url_confirm'],'email',$desc['email']);
-	$contexte['url_confirm'] = parametre_url($contexte['url_confirm'],'jeton',$desc['jeton']);
-
-	$modele_mail = 'modeles/mail_inscription';
-	if (isset($options['modele_mail']) and $options['modele_mail']){
-		$modele_mail = $options['modele_mail'];
-	}
-	$message = recuperer_fond($modele_mail, $contexte);
-	$from = (isset($options['from']) ? $options['from'] : null);
-	$head = null;
-	return array("", $message,$from,$head);
+    $contexte = array_merge($desc,$options);
+    $contexte['nom'] = $nom;
+    $contexte['mode'] = $mode;
+    $contexte['url_confirm'] = generer_url_action('confirmer_inscription','',true,true);
+    $contexte['url_confirm'] = parametre_url($contexte['url_confirm'],'email',$desc['email']);
+    $contexte['url_confirm'] = parametre_url($contexte['url_confirm'],'jeton',$desc['jeton']);
+
+    $modele_mail = 'modeles/mail_inscription';
+    if (isset($options['modele_mail']) and $options['modele_mail']){
+        $modele_mail = $options['modele_mail'];
+    }
+    $message = recuperer_fond($modele_mail, $contexte);
+    $from = (isset($options['from']) ? $options['from'] : null);
+    $head = null;
+    return array("", $message,$from,$head);
 }
 
 
@@ -231,11 +231,11 @@ 
  * @return string
  */
 function creer_pass_pour_auteur($id_auteur) {
-	include_spip('inc/acces');
-	$pass = creer_pass_aleatoire(8, $id_auteur);
-	include_spip('action/editer_auteur');
-	auteur_instituer($id_auteur, array('pass'=>$pass));
-	return $pass;
+    include_spip('inc/acces');
+    $pass = creer_pass_aleatoire(8, $id_auteur);
+    include_spip('action/editer_auteur');
+    auteur_instituer($id_auteur, array('pass'=>$pass));
+    return $pass;
 }
 
 /**
@@ -248,15 +248,15 @@ 
  * @return string
  */
 function tester_statut_inscription($statut_tmp, $id){
-	include_spip('inc/autoriser');
-	if ($statut_tmp)
-		return autoriser('inscrireauteur', $statut_tmp, $id) ? $statut_tmp : '';
-	elseif (
-		   autoriser('inscrireauteur', $statut_tmp = "1comite", $id)
-	  OR autoriser('inscrireauteur', $statut_tmp = "6forum", $id))
-		return $statut_tmp;
-
-	return '';
+    include_spip('inc/autoriser');
+    if ($statut_tmp)
+        return autoriser('inscrireauteur', $statut_tmp, $id) ? $statut_tmp : '';
+    elseif (
+            autoriser('inscrireauteur', $statut_tmp = "1comite", $id)
+      OR autoriser('inscrireauteur', $statut_tmp = "6forum", $id))
+        return $statut_tmp;
+
+    return '';
 }
 
 
@@ -272,27 +272,27 @@ 
  * @return array
  */
 function confirmer_statut_inscription($auteur){
-	// securite
-	if ($auteur['statut'] != 'nouveau') return $auteur;
-
-	include_spip('inc/autoriser');
-	if (!autoriser('inscrireauteur', $auteur['prefs']))
-		return $auteur;
-	$s = $auteur['prefs'];
-
-	include_spip('inc/autoriser');
-	// accorder l'autorisation de modif du statut auteur
-	autoriser_exception('modifier','auteur',$auteur['id_auteur']);
-	include_spip('action/editer_auteur');
-	// changer le statut
-	auteur_modifier($auteur['id_auteur'],array('statut'=> $s));
-	unset($_COOKIE['spip_session']); // forcer la maj de la session
-	// lever l'autorisation de modif du statut auteur
-	autoriser_exception('modifier','auteur',$auteur['id_auteur'],false);
-
-	// mettre a jour le statut
-	$auteur['statut'] = $s;
-	return $auteur;
+    // securite
+    if ($auteur['statut'] != 'nouveau') return $auteur;
+
+    include_spip('inc/autoriser');
+    if (!autoriser('inscrireauteur', $auteur['prefs']))
+        return $auteur;
+    $s = $auteur['prefs'];
+
+    include_spip('inc/autoriser');
+    // accorder l'autorisation de modif du statut auteur
+    autoriser_exception('modifier','auteur',$auteur['id_auteur']);
+    include_spip('action/editer_auteur');
+    // changer le statut
+    auteur_modifier($auteur['id_auteur'],array('statut'=> $s));
+    unset($_COOKIE['spip_session']); // forcer la maj de la session
+    // lever l'autorisation de modif du statut auteur
+    autoriser_exception('modifier','auteur',$auteur['id_auteur'],false);
+
+    // mettre a jour le statut
+    $auteur['statut'] = $s;
+    return $auteur;
 }
 
 
@@ -303,14 +303,14 @@ 
  * @return string
  */
 function auteur_attribuer_jeton($id_auteur){
-	include_spip('inc/acces');
-	// s'assurer de l'unicite du jeton pour le couple (email,cookie)
-	do {
-		$jeton = creer_uniqid();
-		sql_updateq("spip_auteurs", array("cookie_oubli" => $jeton), "id_auteur=" . intval($id_auteur));
-	}
-	while (sql_countsel("spip_auteurs","cookie_oubli=".sql_quote($jeton))>1);
-	return $jeton;
+    include_spip('inc/acces');
+    // s'assurer de l'unicite du jeton pour le couple (email,cookie)
+    do {
+        $jeton = creer_uniqid();
+        sql_updateq("spip_auteurs", array("cookie_oubli" => $jeton), "id_auteur=" . intval($id_auteur));
+    }
+    while (sql_countsel("spip_auteurs","cookie_oubli=".sql_quote($jeton))>1);
+    return $jeton;
 }
 
 /**
@@ -319,12 +319,12 @@ 
  * @return array|bool
  */
 function auteur_verifier_jeton($jeton){
-	// refuser un jeton corrompu
-	if (preg_match(',[^0-9a-f.],i',$jeton))
-		return false;
+    // refuser un jeton corrompu
+    if (preg_match(',[^0-9a-f.],i',$jeton))
+        return false;
 
-	$desc = sql_fetsel('*','spip_auteurs',"cookie_oubli=".sql_quote($jeton, $serveur, 'string'));
-	return $desc;
+    $desc = sql_fetsel('*','spip_auteurs',"cookie_oubli=".sql_quote($jeton, $serveur, 'string'));
+    return $desc;
 }
 
 /**
@@ -334,5 +334,5 @@ 
  * @return bool
  */
 function auteur_effacer_jeton($id_auteur){
-	return sql_updateq("spip_auteurs", array("cookie_oubli" => ''), "id_auteur=" . intval($id_auteur));
+    return sql_updateq("spip_auteurs", array("cookie_oubli" => ''), "id_auteur=" . intval($id_auteur));
 }

ecrire/action/redirect.php

Indentation +15 added lines, -15 removed lines

@@ -16,22 +16,22 @@
 
 function action_redirect_dist()
 {
-	$type = _request('type');
-	if (!preg_match('/^\w+$/', $type)) return;
-	if ($m = _request('var_mode')) {
-		// forcer la mise a jour de l'url de cet objet !
-		if (!defined('_VAR_URLS')) define('_VAR_URLS',true);
-		$m = 'var_mode='.urlencode($m);
-	}
-	$h = generer_url_entite_absolue(intval(_request('id')), $type, $m, '', true);
-	$status = '302';
-	if (_request('status') AND _request('status')=='301')
-		$status = '301';
+    $type = _request('type');
+    if (!preg_match('/^\w+$/', $type)) return;
+    if ($m = _request('var_mode')) {
+        // forcer la mise a jour de l'url de cet objet !
+        if (!defined('_VAR_URLS')) define('_VAR_URLS',true);
+        $m = 'var_mode='.urlencode($m);
+    }
+    $h = generer_url_entite_absolue(intval(_request('id')), $type, $m, '', true);
+    $status = '302';
+    if (_request('status') AND _request('status')=='301')
+        $status = '301';
 
-	if ($h)
-		redirige_par_entete(str_replace('&', '&', $h),'',$status);
-	else
-		redirige_par_entete('/','',$status);
+    if ($h)
+        redirige_par_entete(str_replace('&', '&', $h),'',$status);
+    else
+        redirige_par_entete('/','',$status);
 }
 
 ?>

ecrire/action/debloquer_edition.php

Indentation +13 added lines, -13 removed lines

@@ -15,19 +15,19 @@
 // http://doc.spip.org/@action_instituer_collaboration_dist
 function action_debloquer_edition_dist() {
 
-	$securiser_action = charger_fonction('securiser_action', 'inc');
-	$arg = $securiser_action();
+    $securiser_action = charger_fonction('securiser_action', 'inc');
+    $arg = $securiser_action();
 
-	if ($arg) {
-		include_spip('inc/drapeau_edition');
-		if ($arg == 'tous') {
-			debloquer_tous($GLOBALS['visiteur_session']['id_auteur']);
-		}
-		else {
-			$arg = explode("-",$arg);
-			list($objet,$id_objet) = $arg;
-			debloquer_edition($GLOBALS['visiteur_session']['id_auteur'], $id_objet, $objet);
-		}
-	}
+    if ($arg) {
+        include_spip('inc/drapeau_edition');
+        if ($arg == 'tous') {
+            debloquer_tous($GLOBALS['visiteur_session']['id_auteur']);
+        }
+        else {
+            $arg = explode("-",$arg);
+            list($objet,$id_objet) = $arg;
+            debloquer_edition($GLOBALS['visiteur_session']['id_auteur'], $id_objet, $objet);
+        }
+    }
 }
 ?>