spip / SPIP

ecrire/inc/filtres_ecrire.php

Spacing +17 added lines, -17 removed lines

@@ -116,7 +116,7 @@ 
 	if ($objet == 'rubrique') {
 		// si c'est une rubrique-secteur contenant des breves, demander la
 		// confirmation du deplacement
-		$contient_breves = sql_countsel('spip_breves', "id_rubrique=" . intval($id_objet));
+		$contient_breves = sql_countsel('spip_breves', "id_rubrique=".intval($id_objet));
 
 		if ($contient_breves > 0) {
 			$scb = ($contient_breves > 1 ? 's' : '');
@@ -127,7 +127,7 @@ 
 				));
 			$confirm .= "\n<div class='confirmer_deplacement verdana2'>"
 				. "<div class='choix'><input type='checkbox' name='confirme_deplace' value='oui' id='confirme-deplace' /><label for='confirme-deplace'>"
-				. $scb .
+				. $scb.
 				"</label></div></div>\n";
 		} else {
 			$confirm .= "<input type='hidden' name='confirme_deplace' value='oui' />\n";
@@ -136,11 +136,11 @@ 
 	$form .= $confirm;
 	if ($actionable) {
 		if (strpos($form, '<select') !== false) {
-			$form .= "<div style='text-align: " . $GLOBALS['spip_lang_right'] . ";'>"
-				. '<input class="fondo" type="submit" value="' . _T('bouton_choisir') . '"/>'
+			$form .= "<div style='text-align: ".$GLOBALS['spip_lang_right'].";'>"
+				. '<input class="fondo" type="submit" value="'._T('bouton_choisir').'"/>'
 				. "</div>";
 		}
-		$form = "<input type='hidden' name='editer_$objet' value='oui' />\n" . $form;
+		$form = "<input type='hidden' name='editer_$objet' value='oui' />\n".$form;
 		if ($action = charger_fonction("editer_$objet", "action", true)) {
 			$form = generer_action_auteur("editer_$objet", $id_objet, self(), $form,
 				" method='post' class='submit_plongeur'");
@@ -156,7 +156,7 @@ 
 
 	include_spip('inc/presentation');
 
-	return debut_cadre_couleur($logo, true, "", $titre) . $form . fin_cadre_couleur(true);
+	return debut_cadre_couleur($logo, true, "", $titre).$form.fin_cadre_couleur(true);
 
 }
 
@@ -231,7 +231,7 @@ 
 	if ($statut == 'nouveau') {
 		if ($attente) {
 			$statut = $attente;
-			$plus = " (" . _T('info_statut_auteur_a_confirmer') . ")";
+			$plus = " ("._T('info_statut_auteur_a_confirmer').")";
 		} else {
 			return _T('info_statut_auteur_a_confirmer');
 		}
@@ -244,16 +244,16 @@ 
 		'5poubelle' => _T('texte_statut_poubelle'), // bouh
 	);
 	if (isset($recom[$statut])) {
-		return $recom[$statut] . $plus;
+		return $recom[$statut].$plus;
 	}
 
 	// retrouver directement par le statut sinon
 	if ($t = array_search($statut, $GLOBALS['liste_des_statuts'])) {
 		if (isset($recom[$t])) {
-			return $recom[$t] . $plus;
+			return $recom[$t].$plus;
 		}
 
-		return _T($t) . $plus;
+		return _T($t).$plus;
 	}
 
 	// si on a pas reussi a le traduire, retournons la chaine telle quelle
@@ -373,7 +373,7 @@ 
 	if (!$id_rubrique and defined('_CHOIX_RUBRIQUE_PAR_DEFAUT') and _CHOIX_RUBRIQUE_PAR_DEFAUT) {
 		$in = !count($GLOBALS['connect_id_rubrique'])
 			? ''
-			: (" AND " . sql_in('id_rubrique', $GLOBALS['connect_id_rubrique']));
+			: (" AND ".sql_in('id_rubrique', $GLOBALS['connect_id_rubrique']));
 
 		// on tente d'abord l'ecriture a la racine dans le cas des rubriques uniquement
 		if ($objet == 'rubrique') {
@@ -407,7 +407,7 @@ 
 		return '';
 	}
 
-	return propre("[->" . $virtuel . "]");
+	return propre("[->".$virtuel."]");
 }
 
 
@@ -435,7 +435,7 @@ 
 	$args = param_low_sec($op, $args, $lang, 'rss');
 	$url = generer_url_public('rss', $args);
 
-	return "<a style='float: " . $GLOBALS['spip_lang_right'] . ";' href='$url'>$clic</a>";
+	return "<a style='float: ".$GLOBALS['spip_lang_right'].";' href='$url'>$clic</a>";
 }
 
 
@@ -507,7 +507,7 @@ 
 	);
 
 	if ($alertes = array_filter($alertes)) {
-		return "<div class='wrap-messages-alertes'><div class='messages-alertes'>" .
+		return "<div class='wrap-messages-alertes'><div class='messages-alertes'>".
 		join(' | ', $alertes)
 		. "</div></div>";
 	}
@@ -541,13 +541,13 @@ 
  */
 function afficher_plus_info($lien, $titre = "+", $titre_lien = "") {
 	$titre = attribut_html($titre);
-	$icone = "\n<a href='$lien' title='$titre' class='plus_info'>" .
-		http_img_pack("information-16.png", $titre) . "</a>";
+	$icone = "\n<a href='$lien' title='$titre' class='plus_info'>".
+		http_img_pack("information-16.png", $titre)."</a>";
 
 	if (!$titre_lien) {
 		return $icone;
 	} else {
-		return $icone . "\n<a href='$lien'>$titre_lien</a>";
+		return $icone."\n<a href='$lien'>$titre_lien</a>";
 	}
 }
 

Indentation +341 added lines, -341 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Filtres
  */
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/filtres_boites');
@@ -40,27 +40,27 @@ 
  */
 function parametres_css_prive() {
 
-	$args = array();
-	$args['v'] = $GLOBALS['spip_version_code'];
-	$args['p'] = substr(md5($GLOBALS['meta']['plugin']), 0, 4);
-	$args['themes'] = implode(',', lister_themes_prives());
-	$args['ltr'] = $GLOBALS['spip_lang_left'];
-	// un md5 des menus : si un menu change il faut maj la css
-	$args['md5b'] = (function_exists('md5_boutons_plugins') ? md5_boutons_plugins() : '');
+    $args = array();
+    $args['v'] = $GLOBALS['spip_version_code'];
+    $args['p'] = substr(md5($GLOBALS['meta']['plugin']), 0, 4);
+    $args['themes'] = implode(',', lister_themes_prives());
+    $args['ltr'] = $GLOBALS['spip_lang_left'];
+    // un md5 des menus : si un menu change il faut maj la css
+    $args['md5b'] = (function_exists('md5_boutons_plugins') ? md5_boutons_plugins() : '');
 
-	$c = isset($GLOBALS['visiteur_session']['prefs']['couleur'])
-		? $GLOBALS['visiteur_session']['prefs']['couleur']
-		: 9;
+    $c = isset($GLOBALS['visiteur_session']['prefs']['couleur'])
+        ? $GLOBALS['visiteur_session']['prefs']['couleur']
+        : 9;
 
-	$couleurs = charger_fonction('couleurs', 'inc');
-	parse_str($couleurs($c), $c);
-	$args = array_merge($args, $c);
+    $couleurs = charger_fonction('couleurs', 'inc');
+    parse_str($couleurs($c), $c);
+    $args = array_merge($args, $c);
 
-	if (_request('var_mode') == 'recalcul' or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')) {
-		$args['var_mode'] = 'recalcul';
-	}
+    if (_request('var_mode') == 'recalcul' or (defined('_VAR_MODE') and _VAR_MODE == 'recalcul')) {
+        $args['var_mode'] = 'recalcul';
+    }
 
-	return http_build_query($args);
+    return http_build_query($args);
 }
 
 
@@ -83,79 +83,79 @@ 
  * @return string
  */
 function chercher_rubrique(
-	$titre,
-	$id_objet,
-	$id_parent,
-	$objet,
-	$id_secteur,
-	$restreint,
-	$actionable = false,
-	$retour_sans_cadre = false
+    $titre,
+    $id_objet,
+    $id_parent,
+    $objet,
+    $id_secteur,
+    $restreint,
+    $actionable = false,
+    $retour_sans_cadre = false
 ) {
 
-	include_spip('inc/autoriser');
-	if (intval($id_objet) && !autoriser('modifier', $objet, $id_objet)) {
-		return "";
-	}
-	if (!sql_countsel('spip_rubriques')) {
-		return "";
-	}
-	$chercher_rubrique = charger_fonction('chercher_rubrique', 'inc');
-	$form = $chercher_rubrique($id_parent, $objet, $restreint, ($objet == 'rubrique') ? $id_objet : 0);
-
-	if ($id_parent == 0) {
-		$logo = "racine-24.png";
-	} elseif ($id_secteur == $id_parent) {
-		$logo = "secteur-24.png";
-	} else {
-		$logo = "rubrique-24.png";
-	}
-
-	$confirm = "";
-	if ($objet == 'rubrique') {
-		// si c'est une rubrique-secteur contenant des breves, demander la
-		// confirmation du deplacement
-		$contient_breves = sql_countsel('spip_breves', "id_rubrique=" . intval($id_objet));
-
-		if ($contient_breves > 0) {
-			$scb = ($contient_breves > 1 ? 's' : '');
-			$scb = _T('avis_deplacement_rubrique',
-				array(
-					'contient_breves' => $contient_breves,
-					'scb' => $scb
-				));
-			$confirm .= "\n<div class='confirmer_deplacement verdana2'>"
-				. "<div class='choix'><input type='checkbox' name='confirme_deplace' value='oui' id='confirme-deplace' /><label for='confirme-deplace'>"
-				. $scb .
-				"</label></div></div>\n";
-		} else {
-			$confirm .= "<input type='hidden' name='confirme_deplace' value='oui' />\n";
-		}
-	}
-	$form .= $confirm;
-	if ($actionable) {
-		if (strpos($form, '<select') !== false) {
-			$form .= "<div style='text-align: " . $GLOBALS['spip_lang_right'] . ";'>"
-				. '<input class="fondo" type="submit" value="' . _T('bouton_choisir') . '"/>'
-				. "</div>";
-		}
-		$form = "<input type='hidden' name='editer_$objet' value='oui' />\n" . $form;
-		if ($action = charger_fonction("editer_$objet", "action", true)) {
-			$form = generer_action_auteur("editer_$objet", $id_objet, self(), $form,
-				" method='post' class='submit_plongeur'");
-		} else {
-			$form = generer_action_auteur("editer_objet", "$objet/$id_objet", self(), $form,
-				" method='post' class='submit_plongeur'");
-		}
-	}
-
-	if ($retour_sans_cadre) {
-		return $form;
-	}
-
-	include_spip('inc/presentation');
-
-	return debut_cadre_couleur($logo, true, "", $titre) . $form . fin_cadre_couleur(true);
+    include_spip('inc/autoriser');
+    if (intval($id_objet) && !autoriser('modifier', $objet, $id_objet)) {
+        return "";
+    }
+    if (!sql_countsel('spip_rubriques')) {
+        return "";
+    }
+    $chercher_rubrique = charger_fonction('chercher_rubrique', 'inc');
+    $form = $chercher_rubrique($id_parent, $objet, $restreint, ($objet == 'rubrique') ? $id_objet : 0);
+
+    if ($id_parent == 0) {
+        $logo = "racine-24.png";
+    } elseif ($id_secteur == $id_parent) {
+        $logo = "secteur-24.png";
+    } else {
+        $logo = "rubrique-24.png";
+    }
+
+    $confirm = "";
+    if ($objet == 'rubrique') {
+        // si c'est une rubrique-secteur contenant des breves, demander la
+        // confirmation du deplacement
+        $contient_breves = sql_countsel('spip_breves', "id_rubrique=" . intval($id_objet));
+
+        if ($contient_breves > 0) {
+            $scb = ($contient_breves > 1 ? 's' : '');
+            $scb = _T('avis_deplacement_rubrique',
+                array(
+                    'contient_breves' => $contient_breves,
+                    'scb' => $scb
+                ));
+            $confirm .= "\n<div class='confirmer_deplacement verdana2'>"
+                . "<div class='choix'><input type='checkbox' name='confirme_deplace' value='oui' id='confirme-deplace' /><label for='confirme-deplace'>"
+                . $scb .
+                "</label></div></div>\n";
+        } else {
+            $confirm .= "<input type='hidden' name='confirme_deplace' value='oui' />\n";
+        }
+    }
+    $form .= $confirm;
+    if ($actionable) {
+        if (strpos($form, '<select') !== false) {
+            $form .= "<div style='text-align: " . $GLOBALS['spip_lang_right'] . ";'>"
+                . '<input class="fondo" type="submit" value="' . _T('bouton_choisir') . '"/>'
+                . "</div>";
+        }
+        $form = "<input type='hidden' name='editer_$objet' value='oui' />\n" . $form;
+        if ($action = charger_fonction("editer_$objet", "action", true)) {
+            $form = generer_action_auteur("editer_$objet", $id_objet, self(), $form,
+                " method='post' class='submit_plongeur'");
+        } else {
+            $form = generer_action_auteur("editer_objet", "$objet/$id_objet", self(), $form,
+                " method='post' class='submit_plongeur'");
+        }
+    }
+
+    if ($retour_sans_cadre) {
+        return $form;
+    }
+
+    include_spip('inc/presentation');
+
+    return debut_cadre_couleur($logo, true, "", $titre) . $form . fin_cadre_couleur(true);
 
 }
 
@@ -170,21 +170,21 @@ 
  * @return bool
  */
 function avoir_visiteurs($past = false, $accepter = true) {
-	if ($GLOBALS['meta']["forums_publics"] == 'abo') {
-		return true;
-	}
-	if ($accepter and $GLOBALS['meta']["accepter_visiteurs"] <> 'non') {
-		return true;
-	}
-	if (sql_countsel('spip_articles', "accepter_forum='abo'")) {
-		return true;
-	}
-	if (!$past) {
-		return false;
-	}
-
-	return sql_countsel('spip_auteurs',
-		"statut NOT IN ('0minirezo','1comite', '5poubelle')
+    if ($GLOBALS['meta']["forums_publics"] == 'abo') {
+        return true;
+    }
+    if ($accepter and $GLOBALS['meta']["accepter_visiteurs"] <> 'non') {
+        return true;
+    }
+    if (sql_countsel('spip_articles', "accepter_forum='abo'")) {
+        return true;
+    }
+    if (!$past) {
+        return false;
+    }
+
+    return sql_countsel('spip_auteurs',
+        "statut NOT IN ('0minirezo','1comite', '5poubelle')
 	                    AND (statut<>'nouveau' OR prefs NOT IN ('0minirezo','1comite', '5poubelle'))");
 }
 
@@ -201,18 +201,18 @@ 
  * @return array
  */
 function statuts_articles_visibles($statut_auteur) {
-	static $auth = array();
-	if (!isset($auth[$statut_auteur])) {
-		$auth[$statut_auteur] = array();
-		$statuts = array_column(sql_allfetsel('distinct statut', 'spip_articles'), 'statut');
-		foreach ($statuts as $s) {
-			if (autoriser('voir', 'article', 0, array('statut' => $statut_auteur), array('statut' => $s))) {
-				$auth[$statut_auteur][] = $s;
-			}
-		}
-	}
-
-	return $auth[$statut_auteur];
+    static $auth = array();
+    if (!isset($auth[$statut_auteur])) {
+        $auth[$statut_auteur] = array();
+        $statuts = array_column(sql_allfetsel('distinct statut', 'spip_articles'), 'statut');
+        foreach ($statuts as $s) {
+            if (autoriser('voir', 'article', 0, array('statut' => $statut_auteur), array('statut' => $s))) {
+                $auth[$statut_auteur][] = $s;
+            }
+        }
+    }
+
+    return $auth[$statut_auteur];
 }
 
 /**
@@ -226,38 +226,38 @@ 
  * @return string
  */
 function traduire_statut_auteur($statut, $attente = "") {
-	$plus = "";
-	if ($statut == 'nouveau') {
-		if ($attente) {
-			$statut = $attente;
-			$plus = " (" . _T('info_statut_auteur_a_confirmer') . ")";
-		} else {
-			return _T('info_statut_auteur_a_confirmer');
-		}
-	}
-
-	$recom = array(
-		"info_administrateurs" => _T('item_administrateur_2'),
-		"info_redacteurs" => _T('intem_redacteur'),
-		"info_visiteurs" => _T('item_visiteur'),
-		'5poubelle' => _T('texte_statut_poubelle'), // bouh
-	);
-	if (isset($recom[$statut])) {
-		return $recom[$statut] . $plus;
-	}
-
-	// retrouver directement par le statut sinon
-	if ($t = array_search($statut, $GLOBALS['liste_des_statuts'])) {
-		if (isset($recom[$t])) {
-			return $recom[$t] . $plus;
-		}
-
-		return _T($t) . $plus;
-	}
-
-	// si on a pas reussi a le traduire, retournons la chaine telle quelle
-	// c'est toujours plus informatif que rien du tout
-	return $statut;
+    $plus = "";
+    if ($statut == 'nouveau') {
+        if ($attente) {
+            $statut = $attente;
+            $plus = " (" . _T('info_statut_auteur_a_confirmer') . ")";
+        } else {
+            return _T('info_statut_auteur_a_confirmer');
+        }
+    }
+
+    $recom = array(
+        "info_administrateurs" => _T('item_administrateur_2'),
+        "info_redacteurs" => _T('intem_redacteur'),
+        "info_visiteurs" => _T('item_visiteur'),
+        '5poubelle' => _T('texte_statut_poubelle'), // bouh
+    );
+    if (isset($recom[$statut])) {
+        return $recom[$statut] . $plus;
+    }
+
+    // retrouver directement par le statut sinon
+    if ($t = array_search($statut, $GLOBALS['liste_des_statuts'])) {
+        if (isset($recom[$t])) {
+            return $recom[$t] . $plus;
+        }
+
+        return _T($t) . $plus;
+    }
+
+    // si on a pas reussi a le traduire, retournons la chaine telle quelle
+    // c'est toujours plus informatif que rien du tout
+    return $statut;
 }
 
 /**
@@ -268,28 +268,28 @@ 
  * @return string
  */
 function afficher_qui_edite($id_objet, $objet) {
-	static $qui = array();
-	if (isset($qui[$objet][$id_objet])) {
-		return $qui[$objet][$id_objet];
-	}
-
-	if ($GLOBALS['meta']['articles_modif'] == 'non') {
-		return $qui[$objet][$id_objet] = '';
-	}
-
-	include_spip('inc/drapeau_edition');
-	$modif = mention_qui_edite($id_objet, $objet);
-	if (!$modif) {
-		return $qui[$objet][$id_objet] = '';
-	}
-
-	include_spip('base/objets');
-	$infos = lister_tables_objets_sql(table_objet_sql($objet));
-	if (isset($infos['texte_signale_edition'])) {
-		return $qui[$objet][$id_objet] = _T($infos['texte_signale_edition'], $modif);
-	}
-
-	return $qui[$objet][$id_objet] = _T('info_qui_edite', $modif);
+    static $qui = array();
+    if (isset($qui[$objet][$id_objet])) {
+        return $qui[$objet][$id_objet];
+    }
+
+    if ($GLOBALS['meta']['articles_modif'] == 'non') {
+        return $qui[$objet][$id_objet] = '';
+    }
+
+    include_spip('inc/drapeau_edition');
+    $modif = mention_qui_edite($id_objet, $objet);
+    if (!$modif) {
+        return $qui[$objet][$id_objet] = '';
+    }
+
+    include_spip('base/objets');
+    $infos = lister_tables_objets_sql(table_objet_sql($objet));
+    if (isset($infos['texte_signale_edition'])) {
+        return $qui[$objet][$id_objet] = _T($infos['texte_signale_edition'], $modif);
+    }
+
+    return $qui[$objet][$id_objet] = _T('info_qui_edite', $modif);
 }
 
 /**
@@ -307,57 +307,57 @@ 
  * @return array
  */
 function auteurs_lister_statuts($quoi = 'tous', $en_base = true) {
-	if (!defined('AUTEURS_MIN_REDAC')) {
-		define('AUTEURS_MIN_REDAC', "0minirezo,1comite,5poubelle");
-	}
-
-	switch ($quoi) {
-		case "redacteurs":
-			$statut = AUTEURS_MIN_REDAC;
-			$statut = explode(',', $statut);
-			if ($en_base) {
-				$check = array_column(sql_allfetsel('DISTINCT statut', 'spip_auteurs', sql_in('statut', $statut)), 'statut');
-				$retire = array_diff($statut, $check);
-				$statut = array_diff($statut, $retire);
-			}
-
-			return array_unique($statut);
-			break;
-		case "visiteurs":
-			$statut = array();
-			$exclus = AUTEURS_MIN_REDAC;
-			$exclus = explode(',', $exclus);
-			if (!$en_base) {
-				// prendre aussi les statuts de la table des status qui ne sont pas dans le define
-				$statut = array_diff(array_values($GLOBALS['liste_des_statuts']), $exclus);
-			}
-			$s_complement = array_column(
-				sql_allfetsel('DISTINCT statut', 'spip_auteurs', sql_in('statut', $exclus, 'NOT')),
-				'statut'
-			);
-
-			return array_unique(array_merge($statut, $s_complement));
-			break;
-		default:
-		case "tous":
-			$statut = array_values($GLOBALS['liste_des_statuts']);
-			$s_complement = array_column(
-				sql_allfetsel('DISTINCT statut', 'spip_auteurs', sql_in('statut', $statut, 'NOT')),
-				'statut'
-			);
-			$statut = array_merge($statut, $s_complement);
-			if ($en_base) {
-				$check = array_column(sql_allfetsel('DISTINCT statut', 'spip_auteurs', sql_in('statut', $statut)), 'statut');
-				$retire = array_diff($statut, $check);
-				$statut = array_diff($statut, $retire);
-			}
-
-			return array_unique($statut);
-			break;
-	}
-
-	// on arrive jamais ici
-	return array_values($GLOBALS['liste_des_statuts']);
+    if (!defined('AUTEURS_MIN_REDAC')) {
+        define('AUTEURS_MIN_REDAC', "0minirezo,1comite,5poubelle");
+    }
+
+    switch ($quoi) {
+        case "redacteurs":
+            $statut = AUTEURS_MIN_REDAC;
+            $statut = explode(',', $statut);
+            if ($en_base) {
+                $check = array_column(sql_allfetsel('DISTINCT statut', 'spip_auteurs', sql_in('statut', $statut)), 'statut');
+                $retire = array_diff($statut, $check);
+                $statut = array_diff($statut, $retire);
+            }
+
+            return array_unique($statut);
+            break;
+        case "visiteurs":
+            $statut = array();
+            $exclus = AUTEURS_MIN_REDAC;
+            $exclus = explode(',', $exclus);
+            if (!$en_base) {
+                // prendre aussi les statuts de la table des status qui ne sont pas dans le define
+                $statut = array_diff(array_values($GLOBALS['liste_des_statuts']), $exclus);
+            }
+            $s_complement = array_column(
+                sql_allfetsel('DISTINCT statut', 'spip_auteurs', sql_in('statut', $exclus, 'NOT')),
+                'statut'
+            );
+
+            return array_unique(array_merge($statut, $s_complement));
+            break;
+        default:
+        case "tous":
+            $statut = array_values($GLOBALS['liste_des_statuts']);
+            $s_complement = array_column(
+                sql_allfetsel('DISTINCT statut', 'spip_auteurs', sql_in('statut', $statut, 'NOT')),
+                'statut'
+            );
+            $statut = array_merge($statut, $s_complement);
+            if ($en_base) {
+                $check = array_column(sql_allfetsel('DISTINCT statut', 'spip_auteurs', sql_in('statut', $statut)), 'statut');
+                $retire = array_diff($statut, $check);
+                $statut = array_diff($statut, $retire);
+            }
+
+            return array_unique($statut);
+            break;
+    }
+
+    // on arrive jamais ici
+    return array_values($GLOBALS['liste_des_statuts']);
 }
 
 /**
@@ -373,28 +373,28 @@ 
  */
 function trouver_rubrique_creer_objet($id_rubrique, $objet) {
 
-	if (!$id_rubrique and defined('_CHOIX_RUBRIQUE_PAR_DEFAUT') and _CHOIX_RUBRIQUE_PAR_DEFAUT) {
-		$in = !count($GLOBALS['connect_id_rubrique'])
-			? ''
-			: (" AND " . sql_in('id_rubrique', $GLOBALS['connect_id_rubrique']));
-
-		// on tente d'abord l'ecriture a la racine dans le cas des rubriques uniquement
-		if ($objet == 'rubrique') {
-			$id_rubrique = 0;
-		} else {
-			$id_rubrique = sql_getfetsel('id_rubrique', 'spip_rubriques', "id_parent=0$in", '', "id_rubrique DESC", 1);
-		}
-
-		if (!autoriser("creer{$objet}dans", 'rubrique', $id_rubrique)) {
-			// manque de chance, la rubrique n'est pas autorisee, on cherche un des secteurs autorises
-			$res = sql_select("id_rubrique", "spip_rubriques", "id_parent=0");
-			while (!autoriser("creer{$objet}dans", 'rubrique', $id_rubrique) && $row_rub = sql_fetch($res)) {
-				$id_rubrique = $row_rub['id_rubrique'];
-			}
-		}
-	}
-
-	return $id_rubrique;
+    if (!$id_rubrique and defined('_CHOIX_RUBRIQUE_PAR_DEFAUT') and _CHOIX_RUBRIQUE_PAR_DEFAUT) {
+        $in = !count($GLOBALS['connect_id_rubrique'])
+            ? ''
+            : (" AND " . sql_in('id_rubrique', $GLOBALS['connect_id_rubrique']));
+
+        // on tente d'abord l'ecriture a la racine dans le cas des rubriques uniquement
+        if ($objet == 'rubrique') {
+            $id_rubrique = 0;
+        } else {
+            $id_rubrique = sql_getfetsel('id_rubrique', 'spip_rubriques', "id_parent=0$in", '', "id_rubrique DESC", 1);
+        }
+
+        if (!autoriser("creer{$objet}dans", 'rubrique', $id_rubrique)) {
+            // manque de chance, la rubrique n'est pas autorisee, on cherche un des secteurs autorises
+            $res = sql_select("id_rubrique", "spip_rubriques", "id_parent=0");
+            while (!autoriser("creer{$objet}dans", 'rubrique', $id_rubrique) && $row_rub = sql_fetch($res)) {
+                $id_rubrique = $row_rub['id_rubrique'];
+            }
+        }
+    }
+
+    return $id_rubrique;
 }
 
 /**
@@ -405,12 +405,12 @@ 
  * @return string
  */
 function lien_article_virtuel($virtuel) {
-	include_spip('inc/lien');
-	if (!$virtuel = virtuel_redirige($virtuel)) {
-		return '';
-	}
+    include_spip('inc/lien');
+    if (!$virtuel = virtuel_redirige($virtuel)) {
+        return '';
+    }
 
-	return propre("[->" . $virtuel . "]");
+    return propre("[->" . $virtuel . "]");
 }
 
 
@@ -433,12 +433,12 @@ 
  *     Code HTML du lien
  */
 function bouton_spip_rss($op, $args = array(), $lang = '', $title = 'RSS') {
-	include_spip('inc/acces');
-	$clic = http_img_pack('feed.png', 'RSS', '', $title);
-	$args = param_low_sec($op, $args, $lang, 'rss');
-	$url = generer_url_public('rss', $args);
+    include_spip('inc/acces');
+    $clic = http_img_pack('feed.png', 'RSS', '', $title);
+    $args = param_low_sec($op, $args, $lang, 'rss');
+    $url = generer_url_public('rss', $args);
 
-	return "<a style='float: " . $GLOBALS['spip_lang_right'] . ";' href='$url'>$clic</a>";
+    return "<a style='float: " . $GLOBALS['spip_lang_right'] . ";' href='$url'>$clic</a>";
 }
 
 
@@ -450,70 +450,70 @@ 
  */
 function alertes_auteur($id_auteur) {
 
-	$alertes = array();
-
-	if (isset($GLOBALS['meta']['message_crash_tables'])
-		and autoriser('detruire', null, null, $id_auteur)
-	) {
-		include_spip('genie/maintenance');
-		if ($msg = message_crash_tables()) {
-			$alertes[] = $msg;
-		}
-	}
-
-	if (isset($GLOBALS['meta']['message_crash_plugins'])
-		and $GLOBALS['meta']['message_crash_plugins']
-		and autoriser('configurer', '_plugins', null, $id_auteur)
-		and is_array($msg = unserialize($GLOBALS['meta']['message_crash_plugins']))
-	) {
-		$msg = implode(', ', array_map('joli_repertoire', array_keys($msg)));
-		$alertes[] = _T('plugins_erreur', array('plugins' => $msg));
-	}
-
-	$a = isset($GLOBALS['meta']['message_alertes_auteurs']) ? $GLOBALS['meta']['message_alertes_auteurs'] : '';
-	if ($a
-		and is_array($a = unserialize($a))
-		and count($a)
-	) {
-		$update = false;
-		if (isset($a[$GLOBALS['visiteur_session']['statut']])) {
-			$alertes = array_merge($alertes, $a[$GLOBALS['visiteur_session']['statut']]);
-			unset($a[$GLOBALS['visiteur_session']['statut']]);
-			$update = true;
-		}
-		if (isset($a[''])) {
-			$alertes = array_merge($alertes, $a['']);
-			unset($a['']);
-			$update = true;
-		}
-		if ($update) {
-			ecrire_meta("message_alertes_auteurs", serialize($a));
-		}
-	}
-
-	if (isset($GLOBALS['meta']['plugin_erreur_activation'])
-		and autoriser('configurer', '_plugins', null, $id_auteur)
-	) {
-		include_spip('inc/plugin');
-		$alertes[] = plugin_donne_erreurs();
-	}
-
-	$alertes = pipeline(
-		'alertes_auteur',
-		array(
-			'args' => array(
-				'id_auteur' => $id_auteur,
-				'exec' => _request('exec'),
-			),
-			'data' => $alertes
-		)
-	);
-
-	if ($alertes = array_filter($alertes)) {
-		return "<div class='wrap-messages-alertes'><div class='messages-alertes'>" .
-		join(' | ', $alertes)
-		. "</div></div>";
-	}
+    $alertes = array();
+
+    if (isset($GLOBALS['meta']['message_crash_tables'])
+        and autoriser('detruire', null, null, $id_auteur)
+    ) {
+        include_spip('genie/maintenance');
+        if ($msg = message_crash_tables()) {
+            $alertes[] = $msg;
+        }
+    }
+
+    if (isset($GLOBALS['meta']['message_crash_plugins'])
+        and $GLOBALS['meta']['message_crash_plugins']
+        and autoriser('configurer', '_plugins', null, $id_auteur)
+        and is_array($msg = unserialize($GLOBALS['meta']['message_crash_plugins']))
+    ) {
+        $msg = implode(', ', array_map('joli_repertoire', array_keys($msg)));
+        $alertes[] = _T('plugins_erreur', array('plugins' => $msg));
+    }
+
+    $a = isset($GLOBALS['meta']['message_alertes_auteurs']) ? $GLOBALS['meta']['message_alertes_auteurs'] : '';
+    if ($a
+        and is_array($a = unserialize($a))
+        and count($a)
+    ) {
+        $update = false;
+        if (isset($a[$GLOBALS['visiteur_session']['statut']])) {
+            $alertes = array_merge($alertes, $a[$GLOBALS['visiteur_session']['statut']]);
+            unset($a[$GLOBALS['visiteur_session']['statut']]);
+            $update = true;
+        }
+        if (isset($a[''])) {
+            $alertes = array_merge($alertes, $a['']);
+            unset($a['']);
+            $update = true;
+        }
+        if ($update) {
+            ecrire_meta("message_alertes_auteurs", serialize($a));
+        }
+    }
+
+    if (isset($GLOBALS['meta']['plugin_erreur_activation'])
+        and autoriser('configurer', '_plugins', null, $id_auteur)
+    ) {
+        include_spip('inc/plugin');
+        $alertes[] = plugin_donne_erreurs();
+    }
+
+    $alertes = pipeline(
+        'alertes_auteur',
+        array(
+            'args' => array(
+                'id_auteur' => $id_auteur,
+                'exec' => _request('exec'),
+            ),
+            'data' => $alertes
+        )
+    );
+
+    if ($alertes = array_filter($alertes)) {
+        return "<div class='wrap-messages-alertes'><div class='messages-alertes'>" .
+        join(' | ', $alertes)
+        . "</div></div>";
+    }
 }
 
 /**
@@ -523,9 +523,9 @@ 
  * @return string
  */
 function filtre_afficher_enfant_rub_dist($id_rubrique) {
-	include_spip('inc/presenter_enfants');
+    include_spip('inc/presenter_enfants');
 
-	return afficher_enfant_rub(intval($id_rubrique));
+    return afficher_enfant_rub(intval($id_rubrique));
 }
 
 /**
@@ -543,15 +543,15 @@ 
  * @return string
  */
 function afficher_plus_info($lien, $titre = "+", $titre_lien = "") {
-	$titre = attribut_html($titre);
-	$icone = "\n<a href='$lien' title='$titre' class='plus_info'>" .
-		http_img_pack("information-16.png", $titre) . "</a>";
-
-	if (!$titre_lien) {
-		return $icone;
-	} else {
-		return $icone . "\n<a href='$lien'>$titre_lien</a>";
-	}
+    $titre = attribut_html($titre);
+    $icone = "\n<a href='$lien' title='$titre' class='plus_info'>" .
+        http_img_pack("information-16.png", $titre) . "</a>";
+
+    if (!$titre_lien) {
+        return $icone;
+    } else {
+        return $icone . "\n<a href='$lien'>$titre_lien</a>";
+    }
 }
 
 
@@ -570,18 +570,18 @@ 
  * @return array
  */
 function lister_objets_lies($objet_source, $objet, $id_objet, $objet_lien) {
-	$res = lister_objets_liens($objet_source, $objet, $id_objet, $objet_lien);
-	if (!count($res)) {
-		return [];
-	}
-	$r = reset($res);
-	if (isset($r['rang_lien'])) {
-		$l = array_column($res, 'rang_lien', $objet_source);
-		asort($l);
-		$l = array_keys($l);
-	} else {
-		$l = array_column($res, $objet_source);
-	}
-	return $l;
+    $res = lister_objets_liens($objet_source, $objet, $id_objet, $objet_lien);
+    if (!count($res)) {
+        return [];
+    }
+    $r = reset($res);
+    if (isset($r['rang_lien'])) {
+        $l = array_column($res, 'rang_lien', $objet_source);
+        asort($l);
+        $l = array_keys($l);
+    } else {
+        $l = array_column($res, $objet_source);
+    }
+    return $l;
 }
 

ecrire/public/composer.php

Indentation +655 added lines, -655 removed lines

@@ -18,7 +18,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/texte');
@@ -43,223 +43,223 @@ 
 // http://code.spip.net/@public_composer_dist
 function public_composer_dist($squelette, $mime_type, $gram, $source, $connect = '') {
 
-	$nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
-
-	//  si deja en memoire (INCLURE  a repetition) c'est bon.
-	if (function_exists($nom)) {
-		return $nom;
-	}
-
-	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
-		$GLOBALS['debug_objets']['courant'] = $nom;
-	}
-
-	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
-
-	// si squelette est deja compile et perenne, le charger
-	if (!squelette_obsolete($phpfile, $source)) {
-		include_once $phpfile;
-		#if (!squelette_obsolete($phpfile, $source)
-		#  AND lire_fichier ($phpfile, $skel_code,
-		#  array('critique' => 'oui', 'phpcheck' => 'oui'))){
-		## eval('?'.'>'.$skel_code);
-		#	 spip_log($skel_code, 'comp')
-		#}
-	}
-
-	if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
-		include_once $lib;
-	}
-
-	// tester si le eval ci-dessus a mis le squelette en memoire
-
-	if (function_exists($nom)) {
-		return $nom;
-	}
-
-	// charger le source, si possible, et compiler 
-	$skel_code = '';
-	if (lire_fichier($source, $skel)) {
-		$compiler = charger_fonction('compiler', 'public');
-		$skel_code = $compiler($skel, $nom, $gram, $source, $connect);
-	}
-
-	// Ne plus rien faire si le compilateur n'a pas pu operer.
-	if (!$skel_code) {
-		return false;
-	}
-
-	foreach ($skel_code as $id => $boucle) {
-		$f = $boucle->return;
-		if (@eval("return true; $f ;") === false) {
-			// Code syntaxiquement faux (critere etc mal programme')
-			$msg = _T('zbug_erreur_compilation');
-			erreur_squelette($msg, $boucle);
-			// continuer pour trouver d'autres fautes eventuelles
-			// mais prevenir que c'est mort
-			$nom = '';
-		}
-		// Contexte de compil inutile a present
-		// (mais la derniere valeur de $boucle est utilisee ci-dessous)
-		$skel_code[$id] = $f;
-	}
-
-	$code = '';
-	if ($nom) {
-		// Si le code est bon, concatener et mettre en cache
-		if (function_exists($nom)) {
-			$code = squelette_traduit($skel, $source, $phpfile, $skel_code);
-		} else {
-			// code semantiquement faux: bug du compilateur
-			// $boucle est en fait ici la fct principale du squelette
-			$msg = _T('zbug_erreur_compilation');
-			erreur_squelette($msg, $boucle);
-			$nom = '';
-		}
-	}
-
-	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
-
-		// Tracer ce qui vient d'etre compile
-		$GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
-
-		// si c'est ce que demande le debusqueur, lui passer la main
-		if ($GLOBALS['debug_objets']['sourcefile']
-			and (_request('var_mode_objet') == $nom)
-			and (_request('var_mode_affiche') == 'code')
-		) {
-			erreur_squelette();
-		}
-	}
-
-	return $nom ? $nom : false;
+    $nom = calculer_nom_fonction_squel($squelette, $mime_type, $connect);
+
+    //  si deja en memoire (INCLURE  a repetition) c'est bon.
+    if (function_exists($nom)) {
+        return $nom;
+    }
+
+    if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
+        $GLOBALS['debug_objets']['courant'] = $nom;
+    }
+
+    $phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
+
+    // si squelette est deja compile et perenne, le charger
+    if (!squelette_obsolete($phpfile, $source)) {
+        include_once $phpfile;
+        #if (!squelette_obsolete($phpfile, $source)
+        #  AND lire_fichier ($phpfile, $skel_code,
+        #  array('critique' => 'oui', 'phpcheck' => 'oui'))){
+        ## eval('?'.'>'.$skel_code);
+        #	 spip_log($skel_code, 'comp')
+        #}
+    }
+
+    if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
+        include_once $lib;
+    }
+
+    // tester si le eval ci-dessus a mis le squelette en memoire
+
+    if (function_exists($nom)) {
+        return $nom;
+    }
+
+    // charger le source, si possible, et compiler 
+    $skel_code = '';
+    if (lire_fichier($source, $skel)) {
+        $compiler = charger_fonction('compiler', 'public');
+        $skel_code = $compiler($skel, $nom, $gram, $source, $connect);
+    }
+
+    // Ne plus rien faire si le compilateur n'a pas pu operer.
+    if (!$skel_code) {
+        return false;
+    }
+
+    foreach ($skel_code as $id => $boucle) {
+        $f = $boucle->return;
+        if (@eval("return true; $f ;") === false) {
+            // Code syntaxiquement faux (critere etc mal programme')
+            $msg = _T('zbug_erreur_compilation');
+            erreur_squelette($msg, $boucle);
+            // continuer pour trouver d'autres fautes eventuelles
+            // mais prevenir que c'est mort
+            $nom = '';
+        }
+        // Contexte de compil inutile a present
+        // (mais la derniere valeur de $boucle est utilisee ci-dessous)
+        $skel_code[$id] = $f;
+    }
+
+    $code = '';
+    if ($nom) {
+        // Si le code est bon, concatener et mettre en cache
+        if (function_exists($nom)) {
+            $code = squelette_traduit($skel, $source, $phpfile, $skel_code);
+        } else {
+            // code semantiquement faux: bug du compilateur
+            // $boucle est en fait ici la fct principale du squelette
+            $msg = _T('zbug_erreur_compilation');
+            erreur_squelette($msg, $boucle);
+            $nom = '';
+        }
+    }
+
+    if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
+
+        // Tracer ce qui vient d'etre compile
+        $GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
+
+        // si c'est ce que demande le debusqueur, lui passer la main
+        if ($GLOBALS['debug_objets']['sourcefile']
+            and (_request('var_mode_objet') == $nom)
+            and (_request('var_mode_affiche') == 'code')
+        ) {
+            erreur_squelette();
+        }
+    }
+
+    return $nom ? $nom : false;
 }
 
 function squelette_traduit($squelette, $sourcefile, $phpfile, $boucles) {
 
-	// Le dernier index est '' (fonction principale)
-	$noms = substr(join(', ', array_keys($boucles)), 0, -2);
-	if (CODE_COMMENTE) {
-		$code = "
+    // Le dernier index est '' (fonction principale)
+    $noms = substr(join(', ', array_keys($boucles)), 0, -2);
+    if (CODE_COMMENTE) {
+        $code = "
 /*
  * Squelette : $sourcefile
  * Date :      " . gmdate("D, d M Y H:i:s", @filemtime($sourcefile)) . " GMT
  * Compile :   " . gmdate("D, d M Y H:i:s", time()) . " GMT
  * " . (!$boucles ? "Pas de boucle" : ("Boucles :   " . $noms)) . "
  */ ";
-	}
+    }
 
-	$code = '<' . "?php\n" . $code . join('', $boucles) . "\n?" . '>';
-	if (!defined('_VAR_NOCACHE') or !_VAR_NOCACHE) {
-		ecrire_fichier($phpfile, $code);
-	}
+    $code = '<' . "?php\n" . $code . join('', $boucles) . "\n?" . '>';
+    if (!defined('_VAR_NOCACHE') or !_VAR_NOCACHE) {
+        ecrire_fichier($phpfile, $code);
+    }
 
-	return $code;
+    return $code;
 }
 
 // Le squelette compile est-il trop vieux ?
 // http://code.spip.net/@squelette_obsolete
 function squelette_obsolete($skel, $squelette) {
-	static $date_change = null;
-	// ne verifier la date de mes_fonctions et mes_options qu'une seule fois
-	// par hit
-	if (is_null($date_change)) {
-		if (@file_exists($fonc = 'mes_fonctions.php')) {
-			$date_change = @filemtime($fonc);
-		} # compatibilite
-		if (defined('_FILE_OPTIONS')) {
-			$date_change = max($date_change, @filemtime(_FILE_OPTIONS));
-		}
-	}
-
-	return (
-		(defined('_VAR_MODE') and in_array(_VAR_MODE, array('recalcul', 'preview', 'debug')))
-		or !@file_exists($skel)
-		or ((@file_exists($squelette) ? @filemtime($squelette) : 0)
-			> ($date = @filemtime($skel)))
-		or ($date_change > $date)
-	);
+    static $date_change = null;
+    // ne verifier la date de mes_fonctions et mes_options qu'une seule fois
+    // par hit
+    if (is_null($date_change)) {
+        if (@file_exists($fonc = 'mes_fonctions.php')) {
+            $date_change = @filemtime($fonc);
+        } # compatibilite
+        if (defined('_FILE_OPTIONS')) {
+            $date_change = max($date_change, @filemtime(_FILE_OPTIONS));
+        }
+    }
+
+    return (
+        (defined('_VAR_MODE') and in_array(_VAR_MODE, array('recalcul', 'preview', 'debug')))
+        or !@file_exists($skel)
+        or ((@file_exists($squelette) ? @filemtime($squelette) : 0)
+            > ($date = @filemtime($skel)))
+        or ($date_change > $date)
+    );
 }
 
 // Activer l'invalideur de session
 // http://code.spip.net/@invalideur_session
 function invalideur_session(&$Cache, $code = null) {
-	$Cache['session'] = spip_session();
+    $Cache['session'] = spip_session();
 
-	return $code;
+    return $code;
 }
 
 
 // http://code.spip.net/@analyse_resultat_skel
 function analyse_resultat_skel($nom, $cache, $corps, $source = '') {
-	static $filtres = array();
-	$headers = array();
-
-	// Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
-	// note: on essaie d'attrapper aussi certains de ces entetes codes
-	// "a la main" dans les squelettes, mais evidemment sans exhaustivite
-	if (stripos($corps, 'header') !== false
-		and preg_match_all(
-			'/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
-			$corps, $regs, PREG_SET_ORDER)
-	) {
-		foreach ($regs as $r) {
-			$corps = str_replace($r[0], '', $corps);
-			# $j = Content-Type, et pas content-TYPE.
-			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
-
-			if ($j == 'X-Spip-Filtre' and isset($headers[$j])) {
-				$headers[$j] .= "|" . $r[3];
-			} else {
-				$headers[$j] = $r[3];
-			}
-		}
-	}
-	// S'agit-il d'un resultat constant ou contenant du code php
-	$process_ins = (
-		strpos($corps, '<' . '?') === false
-		or
-		(strpos($corps, '<' . '?xml') !== false and
-			strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
-	)
-		? 'html'
-		: 'php';
-
-	$skel = array(
-		'squelette' => $nom,
-		'source' => $source,
-		'process_ins' => $process_ins,
-		'invalideurs' => $cache,
-		'entetes' => $headers,
-		'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
-	);
-
-	// traiter #FILTRE{} et filtres
-	if (!isset($filtres[$nom])) {
-		$filtres[$nom] = pipeline('declarer_filtres_squelettes', array('args' => $skel, 'data' => array()));
-	}
-	if (count($filtres[$nom]) or (isset($headers['X-Spip-Filtre']) and strlen($headers['X-Spip-Filtre']))) {
-		include_spip('public/sandbox');
-		$corps = sandbox_filtrer_squelette($skel, $corps,
-			strlen($headers['X-Spip-Filtre']) ? explode('|', $headers['X-Spip-Filtre']) : array(), $filtres[$nom]);
-		unset($headers['X-Spip-Filtre']);
-
-		if ($process_ins == 'html') {
-			$skel['process_ins'] = (
-				strpos($corps, '<' . '?') === false
-				or
-				(strpos($corps, '<' . '?xml') !== false and
-					strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
-			)
-				? 'html'
-				: 'php';
-		}
-	}
-
-	$skel['entetes'] = $headers;
-	$skel['texte'] = $corps;
-
-	return $skel;
+    static $filtres = array();
+    $headers = array();
+
+    // Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
+    // note: on essaie d'attrapper aussi certains de ces entetes codes
+    // "a la main" dans les squelettes, mais evidemment sans exhaustivite
+    if (stripos($corps, 'header') !== false
+        and preg_match_all(
+            '/(<[?]php\s+)@?header\s*\(\s*.([^:\'"]*):?\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
+            $corps, $regs, PREG_SET_ORDER)
+    ) {
+        foreach ($regs as $r) {
+            $corps = str_replace($r[0], '', $corps);
+            # $j = Content-Type, et pas content-TYPE.
+            $j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
+
+            if ($j == 'X-Spip-Filtre' and isset($headers[$j])) {
+                $headers[$j] .= "|" . $r[3];
+            } else {
+                $headers[$j] = $r[3];
+            }
+        }
+    }
+    // S'agit-il d'un resultat constant ou contenant du code php
+    $process_ins = (
+        strpos($corps, '<' . '?') === false
+        or
+        (strpos($corps, '<' . '?xml') !== false and
+            strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
+    )
+        ? 'html'
+        : 'php';
+
+    $skel = array(
+        'squelette' => $nom,
+        'source' => $source,
+        'process_ins' => $process_ins,
+        'invalideurs' => $cache,
+        'entetes' => $headers,
+        'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0
+    );
+
+    // traiter #FILTRE{} et filtres
+    if (!isset($filtres[$nom])) {
+        $filtres[$nom] = pipeline('declarer_filtres_squelettes', array('args' => $skel, 'data' => array()));
+    }
+    if (count($filtres[$nom]) or (isset($headers['X-Spip-Filtre']) and strlen($headers['X-Spip-Filtre']))) {
+        include_spip('public/sandbox');
+        $corps = sandbox_filtrer_squelette($skel, $corps,
+            strlen($headers['X-Spip-Filtre']) ? explode('|', $headers['X-Spip-Filtre']) : array(), $filtres[$nom]);
+        unset($headers['X-Spip-Filtre']);
+
+        if ($process_ins == 'html') {
+            $skel['process_ins'] = (
+                strpos($corps, '<' . '?') === false
+                or
+                (strpos($corps, '<' . '?xml') !== false and
+                    strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
+            )
+                ? 'html'
+                : 'php';
+        }
+    }
+
+    $skel['entetes'] = $headers;
+    $skel['texte'] = $corps;
+
+    return $skel;
 }
 
 //
@@ -273,7 +273,7 @@ 
 inserer_balise_dynamique(balise_%s_dyn(%s), array(%s));
 if ($lang_select) lang_select();
 ?'
-	. '>');
+    . '>');
 
 /**
  * Synthétise une balise dynamique : crée l'appel à l'inclusion
@@ -293,17 +293,17 @@ 
  *     Code PHP pour inclure le squelette de la balise dynamique
  **/
 function synthetiser_balise_dynamique($nom, $args, $file, $context_compil) {
-	if (strncmp($file, "/", 1) !== 0) {
-		$file = './" . _DIR_RACINE . "' . $file;
-	}
-	$r = sprintf(CODE_INCLURE_BALISE,
-		$file,
-		$context_compil[4] ? $context_compil[4] : '',
-		$nom,
-		join(', ', array_map('argumenter_squelette', $args)),
-		join(', ', array_map('_q', $context_compil)));
-
-	return $r;
+    if (strncmp($file, "/", 1) !== 0) {
+        $file = './" . _DIR_RACINE . "' . $file;
+    }
+    $r = sprintf(CODE_INCLURE_BALISE,
+        $file,
+        $context_compil[4] ? $context_compil[4] : '',
+        $nom,
+        join(', ', array_map('argumenter_squelette', $args)),
+        join(', ', array_map('_q', $context_compil)));
+
+    return $r;
 }
 
 /**
@@ -321,16 +321,16 @@ 
  **/
 function argumenter_squelette($v) {
 
-	if (!is_array($v)) {
-		return "'" . texte_script($v) . "'";
-	} else {
-		$out = array();
-		foreach ($v as $k => $val) {
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
-		}
+    if (!is_array($v)) {
+        return "'" . texte_script($v) . "'";
+    } else {
+        $out = array();
+        foreach ($v as $k => $val) {
+            $out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+        }
 
-		return 'array(' . join(", ", $out) . ')';
-	}
+        return 'array(' . join(", ", $out) . ')';
+    }
 }
 
 
@@ -361,69 +361,69 @@ 
  *     Code PHP d'exécutant l'inclusion du squelette (ou texte) de la balise dynamique
  **/
 function executer_balise_dynamique($nom, $args, $context_compil) {
-	$nomfonction = $nom;
-	$nomfonction_generique = "";
-
-	// Calculer un nom générique (ie. 'formulaire_' dans 'formulaire_editer_article')
-	if (false !== ($p = strpos($nom, "_"))) {
-		$nomfonction_generique = substr($nom, 0, $p + 1);
-	}
-
-	if (!$fonction_balise = charger_fonction($nomfonction, 'balise', true)) {
-		if ($nomfonction_generique and $fonction_balise = charger_fonction($nomfonction_generique, 'balise', true)) {
-			// et injecter en premier arg le nom de la balise 
-			array_unshift($args, $nom);
-			$nomfonction = $nomfonction_generique;
-		}
-	}
-
-	if (!$fonction_balise) {
-		$msg = array('zbug_balise_inexistante', array('from' => 'CVT', 'balise' => $nom));
-		erreur_squelette($msg, $context_compil);
-
-		return '';
-	}
-
-	// retrouver le fichier qui a déclaré la fonction
-	// même si la fonction dynamique est déclarée dans un fichier de fonctions.
-	// Attention sous windows, getFileName() retourne un antislash. 
-	$reflector = new ReflectionFunction($fonction_balise);
-	$file = str_replace('\\', '/', $reflector->getFileName());
-	if (strncmp($file, str_replace('\\', '/', _ROOT_RACINE), strlen(_ROOT_RACINE)) === 0) {
-		$file = substr($file, strlen(_ROOT_RACINE));
-	}
-
-	// Y a-t-il une fonction de traitement des arguments ?
-	$f = 'balise_' . $nomfonction . '_stat';
-
-	$r = !function_exists($f) ? $args : $f($args, $context_compil);
-
-	if (!is_array($r)) {
-		return $r;
-	}
-
-	// verifier que la fonction dyn est la, 
-	// sinon se replier sur la generique si elle existe
-	if (!function_exists('balise_' . $nomfonction . '_dyn')) {
-		if ($nomfonction_generique
-			and $file = include_spip("balise/" . strtolower($nomfonction_generique))
-			and function_exists('balise_' . $nomfonction_generique . '_dyn')
-		) {
-			// et lui injecter en premier arg le nom de la balise 
-			array_unshift($r, $nom);
-			$nomfonction = $nomfonction_generique;
-			if (!_DIR_RESTREINT) {
-				$file = _DIR_RESTREINT_ABS . $file;
-			}
-		} else {
-			$msg = array('zbug_balise_inexistante', array('from' => 'CVT', 'balise' => $nom));
-			erreur_squelette($msg, $context_compil);
-
-			return '';
-		}
-	}
-
-	return synthetiser_balise_dynamique($nomfonction, $r, $file, $context_compil);
+    $nomfonction = $nom;
+    $nomfonction_generique = "";
+
+    // Calculer un nom générique (ie. 'formulaire_' dans 'formulaire_editer_article')
+    if (false !== ($p = strpos($nom, "_"))) {
+        $nomfonction_generique = substr($nom, 0, $p + 1);
+    }
+
+    if (!$fonction_balise = charger_fonction($nomfonction, 'balise', true)) {
+        if ($nomfonction_generique and $fonction_balise = charger_fonction($nomfonction_generique, 'balise', true)) {
+            // et injecter en premier arg le nom de la balise 
+            array_unshift($args, $nom);
+            $nomfonction = $nomfonction_generique;
+        }
+    }
+
+    if (!$fonction_balise) {
+        $msg = array('zbug_balise_inexistante', array('from' => 'CVT', 'balise' => $nom));
+        erreur_squelette($msg, $context_compil);
+
+        return '';
+    }
+
+    // retrouver le fichier qui a déclaré la fonction
+    // même si la fonction dynamique est déclarée dans un fichier de fonctions.
+    // Attention sous windows, getFileName() retourne un antislash. 
+    $reflector = new ReflectionFunction($fonction_balise);
+    $file = str_replace('\\', '/', $reflector->getFileName());
+    if (strncmp($file, str_replace('\\', '/', _ROOT_RACINE), strlen(_ROOT_RACINE)) === 0) {
+        $file = substr($file, strlen(_ROOT_RACINE));
+    }
+
+    // Y a-t-il une fonction de traitement des arguments ?
+    $f = 'balise_' . $nomfonction . '_stat';
+
+    $r = !function_exists($f) ? $args : $f($args, $context_compil);
+
+    if (!is_array($r)) {
+        return $r;
+    }
+
+    // verifier que la fonction dyn est la, 
+    // sinon se replier sur la generique si elle existe
+    if (!function_exists('balise_' . $nomfonction . '_dyn')) {
+        if ($nomfonction_generique
+            and $file = include_spip("balise/" . strtolower($nomfonction_generique))
+            and function_exists('balise_' . $nomfonction_generique . '_dyn')
+        ) {
+            // et lui injecter en premier arg le nom de la balise 
+            array_unshift($r, $nom);
+            $nomfonction = $nomfonction_generique;
+            if (!_DIR_RESTREINT) {
+                $file = _DIR_RESTREINT_ABS . $file;
+            }
+        } else {
+            $msg = array('zbug_balise_inexistante', array('from' => 'CVT', 'balise' => $nom));
+            erreur_squelette($msg, $context_compil);
+
+            return '';
+        }
+    }
+
+    return synthetiser_balise_dynamique($nomfonction, $r, $file, $context_compil);
 
 }
 
@@ -448,27 +448,27 @@ 
  * @return null;
  **/
 function lang_select_public($lang, $lang_select, $titre = null) {
-	// Cas 1. forcer_lang = true et pas de critere {lang_select}
-	if (isset($GLOBALS['forcer_lang']) and $GLOBALS['forcer_lang']
-		and $lang_select !== 'oui'
-	) {
-		$lang = $GLOBALS['spip_lang'];
-	} // Cas 2. l'objet n'a pas de langue definie (ou definie a '')
-	elseif (!strlen($lang)) {
-		$lang = $GLOBALS['spip_lang'];
-	} // Cas 3. l'objet est multilingue !
-	elseif ($lang_select !== 'oui'
-		and strlen($titre) > 10
-		and strpos($titre, '<multi>') !== false
-		and strpos(echappe_html($titre), '<multi>') !== false
-	) {
-		$lang = $GLOBALS['spip_lang'];
-	}
-
-	// faire un lang_select() eventuellement sur la langue inchangee
-	lang_select($lang);
-
-	return;
+    // Cas 1. forcer_lang = true et pas de critere {lang_select}
+    if (isset($GLOBALS['forcer_lang']) and $GLOBALS['forcer_lang']
+        and $lang_select !== 'oui'
+    ) {
+        $lang = $GLOBALS['spip_lang'];
+    } // Cas 2. l'objet n'a pas de langue definie (ou definie a '')
+    elseif (!strlen($lang)) {
+        $lang = $GLOBALS['spip_lang'];
+    } // Cas 3. l'objet est multilingue !
+    elseif ($lang_select !== 'oui'
+        and strlen($titre) > 10
+        and strpos($titre, '<multi>') !== false
+        and strpos(echappe_html($titre), '<multi>') !== false
+    ) {
+        $lang = $GLOBALS['spip_lang'];
+    }
+
+    // faire un lang_select() eventuellement sur la langue inchangee
+    lang_select($lang);
+
+    return;
 }
 
 
@@ -476,21 +476,21 @@ 
 // il faut le nettoyer car il pourrait etre injecte en SQL
 // http://code.spip.net/@nettoyer_env_doublons
 function nettoyer_env_doublons($envd) {
-	foreach ($envd as $table => $liste) {
-		$n = '';
-		foreach (explode(',', $liste) as $val) {
-			if ($a = intval($val) and $val === strval($a)) {
-				$n .= ',' . $val;
-			}
-		}
-		if (strlen($n)) {
-			$envd[$table] = $n;
-		} else {
-			unset($envd[$table]);
-		}
-	}
-
-	return $envd;
+    foreach ($envd as $table => $liste) {
+        $n = '';
+        foreach (explode(',', $liste) as $val) {
+            if ($a = intval($val) and $val === strval($a)) {
+                $n .= ',' . $val;
+            }
+        }
+        if (strlen($n)) {
+            $envd[$table] = $n;
+        } else {
+            unset($envd[$table]);
+        }
+    }
+
+    return $envd;
 }
 
 /**
@@ -509,21 +509,21 @@ 
  *     Opérateur trouvé (SELF ou SUBSELECT) sinon false.
  **/
 function match_self($w) {
-	if (is_string($w)) {
-		return false;
-	}
-	if (is_array($w)) {
-		if (in_array(reset($w), array("SELF", "SUBSELECT"))) {
-			return $w;
-		}
-		foreach (array_filter($w, 'is_array') as $sw) {
-			if ($m = match_self($sw)) {
-				return $m;
-			}
-		}
-	}
-
-	return false;
+    if (is_string($w)) {
+        return false;
+    }
+    if (is_array($w)) {
+        if (in_array(reset($w), array("SELF", "SUBSELECT"))) {
+            return $w;
+        }
+        foreach (array_filter($w, 'is_array') as $sw) {
+            if ($m = match_self($sw)) {
+                return $m;
+            }
+        }
+    }
+
+    return false;
 }
 
 /**
@@ -539,16 +539,16 @@ 
  *     est remplacée par son code.
  **/
 function remplace_sous_requete($w, $sousrequete) {
-	if (is_array($w)) {
-		if (in_array(reset($w), array("SELF", "SUBSELECT"))) {
-			return $sousrequete;
-		}
-		foreach ($w as $k => $sw) {
-			$w[$k] = remplace_sous_requete($sw, $sousrequete);
-		}
-	}
-
-	return $w;
+    if (is_array($w)) {
+        if (in_array(reset($w), array("SELF", "SUBSELECT"))) {
+            return $sousrequete;
+        }
+        foreach ($w as $k => $sw) {
+            $w[$k] = remplace_sous_requete($sw, $sousrequete);
+        }
+    }
+
+    return $w;
 }
 
 /**
@@ -562,17 +562,17 @@ 
  *     - Conditions avec des sous requêtes
  **/
 function trouver_sous_requetes($where) {
-	$where_simples = array();
-	$where_sous = array();
-	foreach ($where as $k => $w) {
-		if (match_self($w)) {
-			$where_sous[$k] = $w;
-		} else {
-			$where_simples[$k] = $w;
-		}
-	}
-
-	return array($where_simples, $where_sous);
+    $where_simples = array();
+    $where_sous = array();
+    foreach ($where as $k => $w) {
+        if (match_self($w)) {
+            $where_sous[$k] = $w;
+        } else {
+            $where_simples[$k] = $w;
+        }
+    }
+
+    return array($where_simples, $where_sous);
 }
 
 
@@ -598,258 +598,258 @@ 
  * @return resource
  */
 function calculer_select(
-	$select = array(),
-	$from = array(),
-	$from_type = array(),
-	$where = array(),
-	$join = array(),
-	$groupby = array(),
-	$orderby = array(),
-	$limit = '',
-	$having = array(),
-	$table = '',
-	$id = '',
-	$serveur = '',
-	$requeter = true
+    $select = array(),
+    $from = array(),
+    $from_type = array(),
+    $where = array(),
+    $join = array(),
+    $groupby = array(),
+    $orderby = array(),
+    $limit = '',
+    $having = array(),
+    $table = '',
+    $id = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
-	// 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)
-	$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;
-		}
-	}
-
-	// evacuer les eventuels groupby vide issus d'un calcul dynamique
-	$groupby = array_diff($groupby, array(''));
-
-	// remplacer les sous requetes recursives au calcul
-	list($where_simples, $where_sous) = trouver_sous_requetes($where);
-	foreach ($where_sous as $k => $w) {
-		$menage = true;
-		// on recupere la sous requete 
-		$sous = match_self($w);
-		if ($sous[0] == 'SELF') {
-			// c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
-			array_push($where_simples, $sous[2]);
-			$wheresub = array(
-				$sous[2],
-				'0=0'
-			); // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
-			$jsub = $join;
-			// trouver les jointures utiles a
-			// reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
-			// ie L1.objet='article'
-			// on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
-			$i = 0;
-			do {
-				$where[$k] = remplace_sous_requete($w, "(" . calculer_select(
-						array($sous[1] . " AS id"),
-						$from,
-						$from_type,
-						$wheresub,
-						$jsub,
-						array(), array(), '',
-						$having, $table, $id, $serveur, false) . ")");
-				if (!$i) {
-					$i = 1;
-					$wherestring = calculer_where_to_string($where[$k]);
-					foreach ($join as $cle => $wj) {
-						if (count($wj) == 4
-							and strpos($wherestring, "{$cle}.") !== false
-						) {
-							$i = 0;
-							$wheresub[] = $wj[3];
-							unset($jsub[$cle][3]);
-						}
-					}
-				}
-			} while ($i++ < 1);
-		}
-		if ($sous[0] == 'SUBSELECT') {
-			// c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
-			array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
-			$where[$k] = remplace_sous_requete($w, "(" . calculer_select(
-					$sous[1], # select
-					$sous[2], #from
-					array(), #from_type
-					$sous[3] ? (is_array($sous[3]) ? $sous[3] : array($sous[3])) : array(),
-					#where, qui peut etre de la forme string comme dans sql_select
-					array(), #join
-					$sous[4] ? $sous[4] : array(), #groupby
-					$sous[5] ? $sous[5] : array(), #orderby
-					$sous[6], #limit
-					$sous[7] ? $sous[7] : array(), #having
-					$table, $id, $serveur, false
-				) . ")");
-		}
-		array_pop($where_simples);
-	}
-
-	foreach ($having as $k => $v) {
-		if ((!$v) or ($v == 1) or ($v == '0=0')) {
-			unset($having[$k]);
-		}
-	}
-
-	// Installer les jointures.
-	// Retirer celles seulement utiles aux criteres finalement absents mais
-	// parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
-	// si elle est seulement utile a Ln+1 elle meme inutile
-
-	$afrom = array();
-	$equiv = array();
-	$k = count($join);
-	foreach (array_reverse($join, true) as $cledef => $j) {
-		$cle = $cledef;
-		// le format de join est :
-		// array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
-		$join[$cle] = array_values($join[$cle]); // recalculer les cles car des unset ont pu perturber
-		if (count($join[$cle]) == 2) {
-			$join[$cle][] = $join[$cle][1];
-		}
-		if (count($join[$cle]) == 3) {
-			$join[$cle][] = '';
-		}
-		list($t, $c, $carr, $and) = $join[$cle];
-		// si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
-		// pour compat avec ancienne convention
-		if (is_numeric($cle)) {
-			$cle = "L$k";
-		}
-		if (!$menage
-			or isset($afrom[$cle])
-			or calculer_jointnul($cle, $select)
-			or calculer_jointnul($cle, array_diff_key($join, array($cle => $join[$cle])))
-			or calculer_jointnul($cle, $having)
-			or calculer_jointnul($cle, $where_simples)
-		) {
-			// corriger les references non explicites dans select
-			// ou groupby
-			foreach ($select as $i => $s) {
-				if ($s == $c) {
-					$select[$i] = "$cle.$c AS $c";
-					break;
-				}
-			}
-			foreach ($groupby as $i => $g) {
-				if ($g == $c) {
-					$groupby[$i] = "$cle.$c";
-					break;
-				}
-			}
-			// on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
-			// sans recours a preg_match
-			// un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
-			$afrom[$t][$cle] = array(
-				"\n" .
-				(isset($from_type[$cle]) ? $from_type[$cle] : "INNER") . " JOIN",
-				$from[$cle],
-				"AS $cle",
-				"ON (",
-				"$cle.$c",
-				"=",
-				"$t.$carr",
-				($and ? "AND " . $and : "") .
-				")"
-			);
-			if (isset($afrom[$cle])) {
-				$afrom[$t] = $afrom[$t] + $afrom[$cle];
-				unset($afrom[$cle]);
-			}
-			$equiv[] = $carr;
-		} else {
-			unset($join[$cledef]);
-		}
-		unset($from[$cle]);
-		$k--;
-	}
-
-	if (count($afrom)) {
-		// Regarder si la table principale ne sert finalement a rien comme dans
-		//<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
-		//<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
-		//<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
-		// ou dans
-		//<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
-		// qui comporte plusieurs jointures
-		// ou dans
-		// <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
-		// <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
-		// penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
-		// <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
-		// penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
-		// <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
-
-		$t = key($from);
-		$c = current($from);
-		reset($from);
-		$e = '/\b(' . "$t\\." . join("|" . $t . '\.', $equiv) . ')\b/';
-		if (!(strpos($t, ' ') or // jointure des le depart cf boucle_doc
-				calculer_jointnul($t, $select, $e) or
-				calculer_jointnul($t, $join, $e) or
-				calculer_jointnul($t, $where, $e) or
-				calculer_jointnul($t, $orderby, $e) or
-				calculer_jointnul($t, $groupby, $e) or
-				calculer_jointnul($t, $having, $e))
-			&& count($afrom[$t])
-		) {
-			$nfrom = reset($afrom[$t]);
-			$nt = key($afrom[$t]);
-			unset($from[$t]);
-			$from[$nt] = $nfrom[1];
-			unset($afrom[$t][$nt]);
-			$afrom[$nt] = $afrom[$t];
-			unset($afrom[$t]);
-			$e = '/\b' . preg_quote($nfrom[6]) . '\b/';
-			$t = $nfrom[4];
-			$alias = "";
-			// verifier que les deux cles sont homonymes, sinon installer un alias dans le select
-			$oldcle = explode('.', $nfrom[6]);
-			$oldcle = end($oldcle);
-			$newcle = explode('.', $nfrom[4]);
-			$newcle = end($newcle);
-			if ($newcle != $oldcle) {
-				// si l'ancienne cle etait deja dans le select avec un AS
-				// reprendre simplement ce AS
-				$as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
-				if (preg_match($as, implode(',', $select), $m)) {
-					$alias = "";
-				} else {
-					$alias = ", " . $nfrom[4] . " AS $oldcle";
-				}
-			}
-			$select = remplacer_jointnul($t . $alias, $select, $e);
-			$join = remplacer_jointnul($t, $join, $e);
-			$where = remplacer_jointnul($t, $where, $e);
-			$having = remplacer_jointnul($t, $having, $e);
-			$groupby = remplacer_jointnul($t, $groupby, $e);
-			$orderby = remplacer_jointnul($t, $orderby, $e);
-		}
-		$from = reinjecte_joint($afrom, $from);
-	}
-	$GLOBALS['debug']['aucasou'] = array($table, $id, $serveur, $requeter);
-	$r = sql_select($select, $from, $where,
-		$groupby, array_filter($orderby), $limit, $having, $serveur, $requeter);
-	unset($GLOBALS['debug']['aucasou']);
-
-	return $r;
+    // 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)
+    $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;
+        }
+    }
+
+    // evacuer les eventuels groupby vide issus d'un calcul dynamique
+    $groupby = array_diff($groupby, array(''));
+
+    // remplacer les sous requetes recursives au calcul
+    list($where_simples, $where_sous) = trouver_sous_requetes($where);
+    foreach ($where_sous as $k => $w) {
+        $menage = true;
+        // on recupere la sous requete 
+        $sous = match_self($w);
+        if ($sous[0] == 'SELF') {
+            // c'est une sous requete identique a elle meme sous la forme (SELF,$select,$where)
+            array_push($where_simples, $sous[2]);
+            $wheresub = array(
+                $sous[2],
+                '0=0'
+            ); // pour accepter une string et forcer a faire le menage car on a surement simplifie select et where
+            $jsub = $join;
+            // trouver les jointures utiles a
+            // reinjecter dans le where de la sous requete les conditions supplementaires des jointures qui y sont mentionnees
+            // ie L1.objet='article'
+            // on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
+            $i = 0;
+            do {
+                $where[$k] = remplace_sous_requete($w, "(" . calculer_select(
+                        array($sous[1] . " AS id"),
+                        $from,
+                        $from_type,
+                        $wheresub,
+                        $jsub,
+                        array(), array(), '',
+                        $having, $table, $id, $serveur, false) . ")");
+                if (!$i) {
+                    $i = 1;
+                    $wherestring = calculer_where_to_string($where[$k]);
+                    foreach ($join as $cle => $wj) {
+                        if (count($wj) == 4
+                            and strpos($wherestring, "{$cle}.") !== false
+                        ) {
+                            $i = 0;
+                            $wheresub[] = $wj[3];
+                            unset($jsub[$cle][3]);
+                        }
+                    }
+                }
+            } while ($i++ < 1);
+        }
+        if ($sous[0] == 'SUBSELECT') {
+            // c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
+            array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
+            $where[$k] = remplace_sous_requete($w, "(" . calculer_select(
+                    $sous[1], # select
+                    $sous[2], #from
+                    array(), #from_type
+                    $sous[3] ? (is_array($sous[3]) ? $sous[3] : array($sous[3])) : array(),
+                    #where, qui peut etre de la forme string comme dans sql_select
+                    array(), #join
+                    $sous[4] ? $sous[4] : array(), #groupby
+                    $sous[5] ? $sous[5] : array(), #orderby
+                    $sous[6], #limit
+                    $sous[7] ? $sous[7] : array(), #having
+                    $table, $id, $serveur, false
+                ) . ")");
+        }
+        array_pop($where_simples);
+    }
+
+    foreach ($having as $k => $v) {
+        if ((!$v) or ($v == 1) or ($v == '0=0')) {
+            unset($having[$k]);
+        }
+    }
+
+    // Installer les jointures.
+    // Retirer celles seulement utiles aux criteres finalement absents mais
+    // parcourir de la plus recente a la moins recente pour pouvoir eliminer Ln
+    // si elle est seulement utile a Ln+1 elle meme inutile
+
+    $afrom = array();
+    $equiv = array();
+    $k = count($join);
+    foreach (array_reverse($join, true) as $cledef => $j) {
+        $cle = $cledef;
+        // le format de join est :
+        // array(table depart, cle depart [,cle arrivee[,condition optionnelle and ...]])
+        $join[$cle] = array_values($join[$cle]); // recalculer les cles car des unset ont pu perturber
+        if (count($join[$cle]) == 2) {
+            $join[$cle][] = $join[$cle][1];
+        }
+        if (count($join[$cle]) == 3) {
+            $join[$cle][] = '';
+        }
+        list($t, $c, $carr, $and) = $join[$cle];
+        // si le nom de la jointure n'a pas ete specifiee, on prend Lx avec x sont rang dans la liste
+        // pour compat avec ancienne convention
+        if (is_numeric($cle)) {
+            $cle = "L$k";
+        }
+        if (!$menage
+            or isset($afrom[$cle])
+            or calculer_jointnul($cle, $select)
+            or calculer_jointnul($cle, array_diff_key($join, array($cle => $join[$cle])))
+            or calculer_jointnul($cle, $having)
+            or calculer_jointnul($cle, $where_simples)
+        ) {
+            // corriger les references non explicites dans select
+            // ou groupby
+            foreach ($select as $i => $s) {
+                if ($s == $c) {
+                    $select[$i] = "$cle.$c AS $c";
+                    break;
+                }
+            }
+            foreach ($groupby as $i => $g) {
+                if ($g == $c) {
+                    $groupby[$i] = "$cle.$c";
+                    break;
+                }
+            }
+            // on garde une ecriture decomposee pour permettre une simplification ulterieure si besoin
+            // sans recours a preg_match
+            // un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
+            $afrom[$t][$cle] = array(
+                "\n" .
+                (isset($from_type[$cle]) ? $from_type[$cle] : "INNER") . " JOIN",
+                $from[$cle],
+                "AS $cle",
+                "ON (",
+                "$cle.$c",
+                "=",
+                "$t.$carr",
+                ($and ? "AND " . $and : "") .
+                ")"
+            );
+            if (isset($afrom[$cle])) {
+                $afrom[$t] = $afrom[$t] + $afrom[$cle];
+                unset($afrom[$cle]);
+            }
+            $equiv[] = $carr;
+        } else {
+            unset($join[$cledef]);
+        }
+        unset($from[$cle]);
+        $k--;
+    }
+
+    if (count($afrom)) {
+        // Regarder si la table principale ne sert finalement a rien comme dans
+        //<BOUCLE3(MOTS){id_article}{id_mot}> class='on'</BOUCLE3>
+        //<BOUCLE2(MOTS){id_article} />#TOTAL_BOUCLE<//B2>
+        //<BOUCLE5(RUBRIQUES){id_mot}{tout} />#TOTAL_BOUCLE<//B5>
+        // ou dans
+        //<BOUCLE8(HIERARCHIE){id_rubrique}{tout}{type='Squelette'}{inverse}{0,1}{lang_select=non} />#TOTAL_BOUCLE<//B8>
+        // qui comporte plusieurs jointures
+        // ou dans
+        // <BOUCLE6(ARTICLES){id_mot=2}{statut==.*} />#TOTAL_BOUCLE<//B6>
+        // <BOUCLE7(ARTICLES){id_mot>0}{statut?} />#TOTAL_BOUCLE<//B7>
+        // penser a regarder aussi la clause orderby pour ne pas simplifier abusivement
+        // <BOUCLE9(ARTICLES){recherche truc}{par titre}>#ID_ARTICLE</BOUCLE9>
+        // penser a regarder aussi la clause groubpy pour ne pas simplifier abusivement
+        // <BOUCLE10(EVENEMENTS){id_rubrique} />#TOTAL_BOUCLE<//B10>
+
+        $t = key($from);
+        $c = current($from);
+        reset($from);
+        $e = '/\b(' . "$t\\." . join("|" . $t . '\.', $equiv) . ')\b/';
+        if (!(strpos($t, ' ') or // jointure des le depart cf boucle_doc
+                calculer_jointnul($t, $select, $e) or
+                calculer_jointnul($t, $join, $e) or
+                calculer_jointnul($t, $where, $e) or
+                calculer_jointnul($t, $orderby, $e) or
+                calculer_jointnul($t, $groupby, $e) or
+                calculer_jointnul($t, $having, $e))
+            && count($afrom[$t])
+        ) {
+            $nfrom = reset($afrom[$t]);
+            $nt = key($afrom[$t]);
+            unset($from[$t]);
+            $from[$nt] = $nfrom[1];
+            unset($afrom[$t][$nt]);
+            $afrom[$nt] = $afrom[$t];
+            unset($afrom[$t]);
+            $e = '/\b' . preg_quote($nfrom[6]) . '\b/';
+            $t = $nfrom[4];
+            $alias = "";
+            // verifier que les deux cles sont homonymes, sinon installer un alias dans le select
+            $oldcle = explode('.', $nfrom[6]);
+            $oldcle = end($oldcle);
+            $newcle = explode('.', $nfrom[4]);
+            $newcle = end($newcle);
+            if ($newcle != $oldcle) {
+                // si l'ancienne cle etait deja dans le select avec un AS
+                // reprendre simplement ce AS
+                $as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
+                if (preg_match($as, implode(',', $select), $m)) {
+                    $alias = "";
+                } else {
+                    $alias = ", " . $nfrom[4] . " AS $oldcle";
+                }
+            }
+            $select = remplacer_jointnul($t . $alias, $select, $e);
+            $join = remplacer_jointnul($t, $join, $e);
+            $where = remplacer_jointnul($t, $where, $e);
+            $having = remplacer_jointnul($t, $having, $e);
+            $groupby = remplacer_jointnul($t, $groupby, $e);
+            $orderby = remplacer_jointnul($t, $orderby, $e);
+        }
+        $from = reinjecte_joint($afrom, $from);
+    }
+    $GLOBALS['debug']['aucasou'] = array($table, $id, $serveur, $requeter);
+    $r = sql_select($select, $from, $where,
+        $groupby, array_filter($orderby), $limit, $having, $serveur, $requeter);
+    unset($GLOBALS['debug']['aucasou']);
+
+    return $r;
 }
 
 /**
@@ -860,20 +860,20 @@ 
  * @return string
  */
 function calculer_where_to_string($v, $join = 'AND') {
-	if (empty($v)) {
-		return '';
-	}
-
-	if (!is_array($v)) {
-		return $v;
-	} else {
-		$exp = "";
-		if (strtoupper($join) === 'AND') {
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
-		} else {
-			return $exp . join($join, $v);
-		}
-	}
+    if (empty($v)) {
+        return '';
+    }
+
+    if (!is_array($v)) {
+        return $v;
+    } else {
+        $exp = "";
+        if (strtoupper($join) === 'AND') {
+            return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+        } else {
+            return $exp . join($join, $v);
+        }
+    }
 }
 
 
@@ -881,62 +881,62 @@ 
 
 // http://code.spip.net/@calculer_jointnul
 function calculer_jointnul($cle, $exp, $equiv = '') {
-	if (!is_array($exp)) {
-		if ($equiv) {
-			$exp = preg_replace($equiv, '', $exp);
-		}
-
-		return preg_match("/\\b$cle\\./", $exp);
-	} else {
-		foreach ($exp as $v) {
-			if (calculer_jointnul($cle, $v, $equiv)) {
-				return true;
-			}
-		}
-
-		return false;
-	}
+    if (!is_array($exp)) {
+        if ($equiv) {
+            $exp = preg_replace($equiv, '', $exp);
+        }
+
+        return preg_match("/\\b$cle\\./", $exp);
+    } else {
+        foreach ($exp as $v) {
+            if (calculer_jointnul($cle, $v, $equiv)) {
+                return true;
+            }
+        }
+
+        return false;
+    }
 }
 
 // http://code.spip.net/@reinjecte_joint
 function reinjecte_joint($afrom, $from) {
-	$from_synth = array();
-	foreach ($from as $k => $v) {
-		$from_synth[$k] = $from[$k];
-		if (isset($afrom[$k])) {
-			foreach ($afrom[$k] as $kk => $vv) {
-				$afrom[$k][$kk] = implode(' ', $afrom[$k][$kk]);
-			}
-			$from_synth["$k@"] = implode(' ', $afrom[$k]);
-			unset($afrom[$k]);
-		}
-	}
-
-	return $from_synth;
+    $from_synth = array();
+    foreach ($from as $k => $v) {
+        $from_synth[$k] = $from[$k];
+        if (isset($afrom[$k])) {
+            foreach ($afrom[$k] as $kk => $vv) {
+                $afrom[$k][$kk] = implode(' ', $afrom[$k][$kk]);
+            }
+            $from_synth["$k@"] = implode(' ', $afrom[$k]);
+            unset($afrom[$k]);
+        }
+    }
+
+    return $from_synth;
 }
 
 // http://code.spip.net/@remplacer_jointnul
 function remplacer_jointnul($cle, $exp, $equiv = '') {
-	if (!is_array($exp)) {
-		return preg_replace($equiv, $cle, $exp);
-	} else {
-		foreach ($exp as $k => $v) {
-			$exp[$k] = remplacer_jointnul($cle, $v, $equiv);
-		}
-
-		return $exp;
-	}
+    if (!is_array($exp)) {
+        return preg_replace($equiv, $cle, $exp);
+    } else {
+        foreach ($exp as $k => $v) {
+            $exp[$k] = remplacer_jointnul($cle, $v, $equiv);
+        }
+
+        return $exp;
+    }
 }
 
 // calcul du nom du squelette
 // http://code.spip.net/@calculer_nom_fonction_squel
 function calculer_nom_fonction_squel($skel, $mime_type = 'html', $connect = '') {
-	// ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
-	if ($l = strlen(_DIR_RACINE) and strncmp($skel, _DIR_RACINE, $l) == 0) {
-		$skel = substr($skel, strlen(_DIR_RACINE));
-	}
-
-	return $mime_type
-	. (!$connect ? '' : preg_replace('/\W/', "_", $connect)) . '_'
-	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
+    // ne pas doublonner les squelette selon qu'ils sont calcules depuis ecrire/ ou depuis la racine
+    if ($l = strlen(_DIR_RACINE) and strncmp($skel, _DIR_RACINE, $l) == 0) {
+        $skel = substr($skel, strlen(_DIR_RACINE));
+    }
+
+    return $mime_type
+    . (!$connect ? '' : preg_replace('/\W/', "_", $connect)) . '_'
+    . md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
 }

Spacing +42 added lines, -42 removed lines

@@ -54,7 +54,7 @@ 
 		$GLOBALS['debug_objets']['courant'] = $nom;
 	}
 
-	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true) . $nom . '.php';
+	$phpfile = sous_repertoire(_DIR_SKELS, '', false, true).$nom.'.php';
 
 	// si squelette est deja compile et perenne, le charger
 	if (!squelette_obsolete($phpfile, $source)) {
@@ -67,7 +67,7 @@ 
 		#}
 	}
 
-	if (file_exists($lib = $squelette . '_fonctions' . '.php')) {
+	if (file_exists($lib = $squelette.'_fonctions'.'.php')) {
 		include_once $lib;
 	}
 
@@ -121,7 +121,7 @@ 
 	if (defined('_VAR_MODE') and _VAR_MODE == 'debug') {
 
 		// Tracer ce qui vient d'etre compile
-		$GLOBALS['debug_objets']['code'][$nom . 'tout'] = $code;
+		$GLOBALS['debug_objets']['code'][$nom.'tout'] = $code;
 
 		// si c'est ce que demande le debusqueur, lui passer la main
 		if ($GLOBALS['debug_objets']['sourcefile']
@@ -143,13 +143,13 @@ 
 		$code = "
 /*
  * Squelette : $sourcefile
- * Date :      " . gmdate("D, d M Y H:i:s", @filemtime($sourcefile)) . " GMT
- * Compile :   " . gmdate("D, d M Y H:i:s", time()) . " GMT
- * " . (!$boucles ? "Pas de boucle" : ("Boucles :   " . $noms)) . "
+ * Date :      ".gmdate("D, d M Y H:i:s", @filemtime($sourcefile))." GMT
+ * Compile :   " . gmdate("D, d M Y H:i:s", time())." GMT
+ * " . (!$boucles ? "Pas de boucle" : ("Boucles :   ".$noms))."
  */ ";
 	}
 
-	$code = '<' . "?php\n" . $code . join('', $boucles) . "\n?" . '>';
+	$code = '<'."?php\n".$code.join('', $boucles)."\n?".'>';
 	if (!defined('_VAR_NOCACHE') or !_VAR_NOCACHE) {
 		ecrire_fichier($phpfile, $code);
 	}
@@ -209,7 +209,7 @@ 
 			$j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
 
 			if ($j == 'X-Spip-Filtre' and isset($headers[$j])) {
-				$headers[$j] .= "|" . $r[3];
+				$headers[$j] .= "|".$r[3];
 			} else {
 				$headers[$j] = $r[3];
 			}
@@ -217,10 +217,10 @@ 
 	}
 	// S'agit-il d'un resultat constant ou contenant du code php
 	$process_ins = (
-		strpos($corps, '<' . '?') === false
+		strpos($corps, '<'.'?') === false
 		or
-		(strpos($corps, '<' . '?xml') !== false and
-			strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
+		(strpos($corps, '<'.'?xml') !== false and
+			strpos(str_replace('<'.'?xml', '', $corps), '<'.'?') === false)
 	)
 		? 'html'
 		: 'php';
@@ -246,10 +246,10 @@ 
 
 		if ($process_ins == 'html') {
 			$skel['process_ins'] = (
-				strpos($corps, '<' . '?') === false
+				strpos($corps, '<'.'?') === false
 				or
-				(strpos($corps, '<' . '?xml') !== false and
-					strpos(str_replace('<' . '?xml', '', $corps), '<' . '?') === false)
+				(strpos($corps, '<'.'?xml') !== false and
+					strpos(str_replace('<'.'?xml', '', $corps), '<'.'?') === false)
 			)
 				? 'html'
 				: 'php';
@@ -267,7 +267,7 @@ 
 //
 
 /** Code PHP pour inclure une balise dynamique à l'exécution d'une page */
-define('CODE_INCLURE_BALISE', '<' . '?php 
+define('CODE_INCLURE_BALISE', '<'.'?php 
 include_once("%s");
 if ($lang_select = "%s") $lang_select = lang_select($lang_select);
 inserer_balise_dynamique(balise_%s_dyn(%s), array(%s));
@@ -294,7 +294,7 @@ 
  **/
 function synthetiser_balise_dynamique($nom, $args, $file, $context_compil) {
 	if (strncmp($file, "/", 1) !== 0) {
-		$file = './" . _DIR_RACINE . "' . $file;
+		$file = './" . _DIR_RACINE . "'.$file;
 	}
 	$r = sprintf(CODE_INCLURE_BALISE,
 		$file,
@@ -322,14 +322,14 @@ 
 function argumenter_squelette($v) {
 
 	if (!is_array($v)) {
-		return "'" . texte_script($v) . "'";
+		return "'".texte_script($v)."'";
 	} else {
 		$out = array();
 		foreach ($v as $k => $val) {
-			$out [] = argumenter_squelette($k) . '=>' . argumenter_squelette($val);
+			$out [] = argumenter_squelette($k).'=>'.argumenter_squelette($val);
 		}
 
-		return 'array(' . join(", ", $out) . ')';
+		return 'array('.join(", ", $out).')';
 	}
 }
 
@@ -394,7 +394,7 @@ 
 	}
 
 	// Y a-t-il une fonction de traitement des arguments ?
-	$f = 'balise_' . $nomfonction . '_stat';
+	$f = 'balise_'.$nomfonction.'_stat';
 
 	$r = !function_exists($f) ? $args : $f($args, $context_compil);
 
@@ -404,16 +404,16 @@ 
 
 	// verifier que la fonction dyn est la, 
 	// sinon se replier sur la generique si elle existe
-	if (!function_exists('balise_' . $nomfonction . '_dyn')) {
+	if (!function_exists('balise_'.$nomfonction.'_dyn')) {
 		if ($nomfonction_generique
-			and $file = include_spip("balise/" . strtolower($nomfonction_generique))
-			and function_exists('balise_' . $nomfonction_generique . '_dyn')
+			and $file = include_spip("balise/".strtolower($nomfonction_generique))
+			and function_exists('balise_'.$nomfonction_generique.'_dyn')
 		) {
 			// et lui injecter en premier arg le nom de la balise 
 			array_unshift($r, $nom);
 			$nomfonction = $nomfonction_generique;
 			if (!_DIR_RESTREINT) {
-				$file = _DIR_RESTREINT_ABS . $file;
+				$file = _DIR_RESTREINT_ABS.$file;
 			}
 		} else {
 			$msg = array('zbug_balise_inexistante', array('from' => 'CVT', 'balise' => $nom));
@@ -480,7 +480,7 @@ 
 		$n = '';
 		foreach (explode(',', $liste) as $val) {
 			if ($a = intval($val) and $val === strval($a)) {
-				$n .= ',' . $val;
+				$n .= ','.$val;
 			}
 		}
 		if (strlen($n)) {
@@ -659,14 +659,14 @@ 
 			// on construit le where une fois, puis on ajoute les where complentaires si besoin, et on reconstruit le where en fonction
 			$i = 0;
 			do {
-				$where[$k] = remplace_sous_requete($w, "(" . calculer_select(
-						array($sous[1] . " AS id"),
+				$where[$k] = remplace_sous_requete($w, "(".calculer_select(
+						array($sous[1]." AS id"),
 						$from,
 						$from_type,
 						$wheresub,
 						$jsub,
 						array(), array(), '',
-						$having, $table, $id, $serveur, false) . ")");
+						$having, $table, $id, $serveur, false).")");
 				if (!$i) {
 					$i = 1;
 					$wherestring = calculer_where_to_string($where[$k]);
@@ -685,7 +685,7 @@ 
 		if ($sous[0] == 'SUBSELECT') {
 			// c'est une sous requete explicite sous la forme identique a sql_select : (SUBSELECT,$select,$from,$where,$groupby,$orderby,$limit,$having)
 			array_push($where_simples, $sous[3]); // est-ce utile dans ce cas ?
-			$where[$k] = remplace_sous_requete($w, "(" . calculer_select(
+			$where[$k] = remplace_sous_requete($w, "(".calculer_select(
 					$sous[1], # select
 					$sous[2], #from
 					array(), #from_type
@@ -697,7 +697,7 @@ 
 					$sous[6], #limit
 					$sous[7] ? $sous[7] : array(), #having
 					$table, $id, $serveur, false
-				) . ")");
+				).")");
 		}
 		array_pop($where_simples);
 	}
@@ -758,15 +758,15 @@ 
 			// sans recours a preg_match
 			// un implode(' ',..) est fait dans reinjecte_joint un peu plus bas
 			$afrom[$t][$cle] = array(
-				"\n" .
-				(isset($from_type[$cle]) ? $from_type[$cle] : "INNER") . " JOIN",
+				"\n".
+				(isset($from_type[$cle]) ? $from_type[$cle] : "INNER")." JOIN",
 				$from[$cle],
 				"AS $cle",
 				"ON (",
 				"$cle.$c",
 				"=",
 				"$t.$carr",
-				($and ? "AND " . $and : "") .
+				($and ? "AND ".$and : "").
 				")"
 			);
 			if (isset($afrom[$cle])) {
@@ -800,7 +800,7 @@ 
 		$t = key($from);
 		$c = current($from);
 		reset($from);
-		$e = '/\b(' . "$t\\." . join("|" . $t . '\.', $equiv) . ')\b/';
+		$e = '/\b('."$t\\.".join("|".$t.'\.', $equiv).')\b/';
 		if (!(strpos($t, ' ') or // jointure des le depart cf boucle_doc
 				calculer_jointnul($t, $select, $e) or
 				calculer_jointnul($t, $join, $e) or
@@ -817,7 +817,7 @@ 
 			unset($afrom[$t][$nt]);
 			$afrom[$nt] = $afrom[$t];
 			unset($afrom[$t]);
-			$e = '/\b' . preg_quote($nfrom[6]) . '\b/';
+			$e = '/\b'.preg_quote($nfrom[6]).'\b/';
 			$t = $nfrom[4];
 			$alias = "";
 			// verifier que les deux cles sont homonymes, sinon installer un alias dans le select
@@ -828,14 +828,14 @@ 
 			if ($newcle != $oldcle) {
 				// si l'ancienne cle etait deja dans le select avec un AS
 				// reprendre simplement ce AS
-				$as = '/\b' . preg_quote($nfrom[6]) . '\s+(AS\s+\w+)\b/';
+				$as = '/\b'.preg_quote($nfrom[6]).'\s+(AS\s+\w+)\b/';
 				if (preg_match($as, implode(',', $select), $m)) {
 					$alias = "";
 				} else {
-					$alias = ", " . $nfrom[4] . " AS $oldcle";
+					$alias = ", ".$nfrom[4]." AS $oldcle";
 				}
 			}
-			$select = remplacer_jointnul($t . $alias, $select, $e);
+			$select = remplacer_jointnul($t.$alias, $select, $e);
 			$join = remplacer_jointnul($t, $join, $e);
 			$where = remplacer_jointnul($t, $where, $e);
 			$having = remplacer_jointnul($t, $having, $e);
@@ -869,9 +869,9 @@ 
 	} else {
 		$exp = "";
 		if (strtoupper($join) === 'AND') {
-			return $exp . join(" $join ", array_map('calculer_where_to_string', $v));
+			return $exp.join(" $join ", array_map('calculer_where_to_string', $v));
 		} else {
-			return $exp . join($join, $v);
+			return $exp.join($join, $v);
 		}
 	}
 }
@@ -937,6 +937,6 @@ 
 	}
 
 	return $mime_type
-	. (!$connect ? '' : preg_replace('/\W/', "_", $connect)) . '_'
-	. md5($GLOBALS['spip_version_code'] . ' * ' . $skel . (isset($GLOBALS['marqueur_skel']) ? '*' . $GLOBALS['marqueur_skel'] : ''));
+	. (!$connect ? '' : preg_replace('/\W/', "_", $connect)).'_'
+	. md5($GLOBALS['spip_version_code'].' * '.$skel.(isset($GLOBALS['marqueur_skel']) ? '*'.$GLOBALS['marqueur_skel'] : ''));
 }