spip / SPIP

ecrire/inc/texte_mini.php

Doc Comments +9 added lines

@@ -80,6 +80,9 @@ 
 // une $source differente ; le script detecte automagiquement si ce qu'on
 // echappe est un div ou un span
 // http://code.spip.net/@code_echappement
+/**
+ * @param string $mode
+ */
 function code_echappement($rempl, $source = '', $no_transform = false, $mode = null) {
 	if (!strlen($rempl)) {
 		return '';
@@ -284,6 +287,9 @@ 
 // Reinserer le javascript de confiance (venant des modeles)
 
 // http://code.spip.net/@echappe_retour_modeles
+/**
+ * @param string $letexte
+ */
 function echappe_retour_modeles($letexte, $interdire_scripts = false) {
 	$letexte = echappe_retour($letexte);
 
@@ -433,6 +439,9 @@ 
 }
 
 
+/**
+ * @param string $letexte
+ */
 function echapper_faux_tags($letexte) {
 	if (strpos($letexte, '<') === false) {
 		return $letexte;

Braces +3 added lines, -1 removed lines

@@ -384,10 +384,12 @@
 		$texte = $court;
 	}
 
-	if (strpos($texte, "\n"))  // la fin est encore la : c'est qu'on n'a pas de texte de suite
+	if (strpos($texte, "\n")) {
+	    // la fin est encore la : c'est qu'on n'a pas de texte de suite
 	{
 		$points = '';
 	}
+	}
 
 	// remettre les paragraphes
 	$texte = preg_replace("/\r+/", "\n\n", $texte);

Indentation +357 added lines, -357 removed lines

@@ -17,7 +17,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 include_spip('inc/filtres');
 include_spip('inc/lang');
@@ -39,21 +39,21 @@ 
  **/
 function definir_puce() {
 
-	// Attention au sens, qui n'est pas defini de la meme facon dans
-	// l'espace prive (spip_lang est la langue de l'interface, lang_dir
-	// celle du texte) et public (spip_lang est la langue du texte)
-	$dir = _DIR_RESTREINT ? lang_dir() : lang_dir($GLOBALS['spip_lang']);
+    // Attention au sens, qui n'est pas defini de la meme facon dans
+    // l'espace prive (spip_lang est la langue de l'interface, lang_dir
+    // celle du texte) et public (spip_lang est la langue du texte)
+    $dir = _DIR_RESTREINT ? lang_dir() : lang_dir($GLOBALS['spip_lang']);
 
-	$p = 'puce' . (test_espace_prive() ? '_prive' : '');
-	if ($dir == 'rtl') {
-		$p .= '_rtl';
-	}
+    $p = 'puce' . (test_espace_prive() ? '_prive' : '');
+    if ($dir == 'rtl') {
+        $p .= '_rtl';
+    }
 
-	if (!isset($GLOBALS[$p])) {
-		$GLOBALS[$p] = '<span class="spip-puce '.$dir.'"><b>–</b></span>';
-	}
+    if (!isset($GLOBALS[$p])) {
+        $GLOBALS[$p] = '<span class="spip-puce '.$dir.'"><b>–</b></span>';
+    }
 
-	return $GLOBALS[$p];
+    return $GLOBALS[$p];
 }
 
 
@@ -61,13 +61,13 @@ 
 // dont on souhaite qu'ils provoquent un saut de paragraphe
 
 if (!defined('_BALISES_BLOCS')) {
-	define('_BALISES_BLOCS',
-	'address|applet|article|aside|blockquote|button|center|d[ltd]|div|fieldset|fig(ure|caption)|footer|form|h[1-6r]|hgroup|head|header|iframe|li|map|marquee|nav|noscript|object|ol|pre|section|t(able|[rdh]|body|foot|extarea)|ul|script|style'
-	);
+    define('_BALISES_BLOCS',
+    'address|applet|article|aside|blockquote|button|center|d[ltd]|div|fieldset|fig(ure|caption)|footer|form|h[1-6r]|hgroup|head|header|iframe|li|map|marquee|nav|noscript|object|ol|pre|section|t(able|[rdh]|body|foot|extarea)|ul|script|style'
+    );
 }
 
 if (!defined('_BALISES_BLOCS_REGEXP')) {
-	define('_BALISES_BLOCS_REGEXP', ',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS');
+    define('_BALISES_BLOCS_REGEXP', ',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS');
 }
 
 //
@@ -79,26 +79,26 @@ 
 // echappe est un div ou un span
 // http://code.spip.net/@code_echappement
 function code_echappement($rempl, $source = '', $no_transform = false, $mode = null) {
-	if (!strlen($rempl)) {
-		return '';
-	}
-
-	// Tester si on echappe en span ou en div
-	if (is_null($mode) or !in_array($mode, array('div', 'span'))) {
-		$mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $rempl) ? 'div' : 'span';
-	}
-
-	// Decouper en morceaux, base64 a des probleme selon la taille de la pile
-	$taille = 30000;
-	$return = "";
-	for ($i = 0; $i < strlen($rempl); $i += $taille) {
-		// Convertir en base64 et cacher dans un attribut
-		// utiliser les " pour eviter le re-encodage de ' et &#8217
-		$base64 = base64_encode(substr($rempl, $i, $taille));
-		$return .= "<$mode class=\"base64$source\" title=\"$base64\"></$mode>";
-	}
-
-	return $return;
+    if (!strlen($rempl)) {
+        return '';
+    }
+
+    // Tester si on echappe en span ou en div
+    if (is_null($mode) or !in_array($mode, array('div', 'span'))) {
+        $mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $rempl) ? 'div' : 'span';
+    }
+
+    // Decouper en morceaux, base64 a des probleme selon la taille de la pile
+    $taille = 30000;
+    $return = "";
+    for ($i = 0; $i < strlen($rempl); $i += $taille) {
+        // Convertir en base64 et cacher dans un attribut
+        // utiliser les " pour eviter le re-encodage de ' et &#8217
+        $base64 = base64_encode(substr($rempl, $i, $taille));
+        $return .= "<$mode class=\"base64$source\" title=\"$base64\"></$mode>";
+    }
+
+    return $return;
 
 }
 
@@ -106,64 +106,64 @@ 
 // Echapper les <html>...</ html>
 // http://code.spip.net/@traiter_echap_html_dist
 function traiter_echap_html_dist($regs) {
-	return $regs[3];
+    return $regs[3];
 }
 
 // Echapper les <code>...</ code>
 // http://code.spip.net/@traiter_echap_code_dist
 function traiter_echap_code_dist($regs) {
-	list(, , $att, $corps) = $regs;
-	$echap = spip_htmlspecialchars($corps); // il ne faut pas passer dans entites_html, ne pas transformer les &#xxx; du code !
-
-	// ne pas mettre le <div...> s'il n'y a qu'une ligne
-	if (is_int(strpos($echap, "\n"))) {
-		// supprimer les sauts de ligne debut/fin
-		// (mais pas les espaces => ascii art).
-		$echap = preg_replace("/^[\n\r]+|[\n\r]+$/s", "", $echap);
-		$echap = nl2br($echap);
-		$echap = "<div style='text-align: left;' "
-			. "class='spip_code' dir='ltr'><code$att>"
-			. $echap . "</code></div>";
-	} else {
-		$echap = "<code$att class='spip_code' dir='ltr'>" . $echap . "</code>";
-	}
-
-	$echap = str_replace("\t", "&nbsp; &nbsp; &nbsp; &nbsp; ", $echap);
-	$echap = str_replace("  ", " &nbsp;", $echap);
-
-	return $echap;
+    list(, , $att, $corps) = $regs;
+    $echap = spip_htmlspecialchars($corps); // il ne faut pas passer dans entites_html, ne pas transformer les &#xxx; du code !
+
+    // ne pas mettre le <div...> s'il n'y a qu'une ligne
+    if (is_int(strpos($echap, "\n"))) {
+        // supprimer les sauts de ligne debut/fin
+        // (mais pas les espaces => ascii art).
+        $echap = preg_replace("/^[\n\r]+|[\n\r]+$/s", "", $echap);
+        $echap = nl2br($echap);
+        $echap = "<div style='text-align: left;' "
+            . "class='spip_code' dir='ltr'><code$att>"
+            . $echap . "</code></div>";
+    } else {
+        $echap = "<code$att class='spip_code' dir='ltr'>" . $echap . "</code>";
+    }
+
+    $echap = str_replace("\t", "&nbsp; &nbsp; &nbsp; &nbsp; ", $echap);
+    $echap = str_replace("  ", " &nbsp;", $echap);
+
+    return $echap;
 }
 
 // Echapper les <cadre>...</ cadre> aka <frame>...</ frame>
 // http://code.spip.net/@traiter_echap_cadre_dist
 function traiter_echap_cadre_dist($regs) {
-	$echap = trim(entites_html($regs[3]));
-	// compter les lignes un peu plus finement qu'avec les \n
-	$lignes = explode("\n", trim($echap));
-	$n = 0;
-	foreach ($lignes as $l) {
-		$n += floor(strlen($l) / 60) + 1;
-	}
-	$n = max($n, 2);
-	$echap = "\n<textarea readonly='readonly' cols='40' rows='$n' class='spip_cadre' dir='ltr'>$echap</textarea>";
-
-	return $echap;
+    $echap = trim(entites_html($regs[3]));
+    // compter les lignes un peu plus finement qu'avec les \n
+    $lignes = explode("\n", trim($echap));
+    $n = 0;
+    foreach ($lignes as $l) {
+        $n += floor(strlen($l) / 60) + 1;
+    }
+    $n = max($n, 2);
+    $echap = "\n<textarea readonly='readonly' cols='40' rows='$n' class='spip_cadre' dir='ltr'>$echap</textarea>";
+
+    return $echap;
 }
 
 // http://code.spip.net/@traiter_echap_frame_dist
 function traiter_echap_frame_dist($regs) {
-	return traiter_echap_cadre_dist($regs);
+    return traiter_echap_cadre_dist($regs);
 }
 
 // http://code.spip.net/@traiter_echap_script_dist
 function traiter_echap_script_dist($regs) {
-	// rendre joli (et inactif) si c'est un script language=php
-	if (preg_match(',<script\b[^>]+php,ims', $regs[0])) {
-		return highlight_string($regs[0], true);
-	}
+    // rendre joli (et inactif) si c'est un script language=php
+    if (preg_match(',<script\b[^>]+php,ims', $regs[0])) {
+        return highlight_string($regs[0], true);
+    }
 
-	// Cas normal : le script passe tel quel
-	return $regs[0];
+    // Cas normal : le script passe tel quel
+    return $regs[0];
 }
 
 define('_PROTEGE_BLOCS', ',<(html|code|cadre|frame|script|style)(\s[^>]*)?>(.*)</\1>,UimsS');
@@ -172,71 +172,71 @@ 
 // - pour $no_transform voir le filtre post_autobr dans inc/filtres
 // http://code.spip.net/@echappe_html
 function echappe_html(
-	$letexte,
-	$source = '',
-	$no_transform = false,
-	$preg = ''
+    $letexte,
+    $source = '',
+    $no_transform = false,
+    $preg = ''
 ) {
-	if (!is_string($letexte) or !strlen($letexte)) {
-		return $letexte;
-	}
-
-	// si le texte recu est long PCRE risque d'exploser, on
-	// fait donc un mic-mac pour augmenter pcre.backtrack_limit
-	if (($len = strlen($letexte)) > 100000) {
-		if (!$old = @ini_get('pcre.backtrack_limit')) {
-			$old = 100000;
-		}
-		if ($len > $old) {
-			$a = @ini_set('pcre.backtrack_limit', $len);
-			spip_log("ini_set pcre.backtrack_limit=$len ($old)");
-		}
-	}
-
-	if (($preg or strpos($letexte, "<") !== false)
-		and preg_match_all($preg ? $preg : _PROTEGE_BLOCS, $letexte, $matches, PREG_SET_ORDER)
-	) {
-		foreach ($matches as $regs) {
-			// echappements tels quels ?
-			if ($no_transform) {
-				$echap = $regs[0];
-			} // sinon les traiter selon le cas
-			else {
-				if (function_exists($f = 'traiter_echap_' . strtolower($regs[1]))) {
-					$echap = $f($regs);
-				} else {
-					if (function_exists($f = $f . '_dist')) {
-						$echap = $f($regs);
-					}
-				}
-			}
-
-			$p = strpos($letexte, $regs[0]);
-			$letexte = substr_replace($letexte, code_echappement($echap, $source, $no_transform), $p, strlen($regs[0]));
-		}
-	}
-
-	if ($no_transform) {
-		return $letexte;
-	}
-
-	// Echapper le php pour faire joli (ici, c'est pas pour la securite)
-	// seulement si on a echappe les <script>
-	// (derogatoire car on ne peut pas faire passer < ? ... ? >
-	// dans une callback autonommee
-	if (strpos($preg ? $preg : _PROTEGE_BLOCS, 'script') !== false) {
-		if (strpos($letexte, "<" . "?") !== false and preg_match_all(',<[?].*($|[?]>),UisS',
-				$letexte, $matches, PREG_SET_ORDER)
-		) {
-			foreach ($matches as $regs) {
-				$letexte = str_replace($regs[0],
-					code_echappement(highlight_string($regs[0], true), $source),
-					$letexte);
-			}
-		}
-	}
-
-	return $letexte;
+    if (!is_string($letexte) or !strlen($letexte)) {
+        return $letexte;
+    }
+
+    // si le texte recu est long PCRE risque d'exploser, on
+    // fait donc un mic-mac pour augmenter pcre.backtrack_limit
+    if (($len = strlen($letexte)) > 100000) {
+        if (!$old = @ini_get('pcre.backtrack_limit')) {
+            $old = 100000;
+        }
+        if ($len > $old) {
+            $a = @ini_set('pcre.backtrack_limit', $len);
+            spip_log("ini_set pcre.backtrack_limit=$len ($old)");
+        }
+    }
+
+    if (($preg or strpos($letexte, "<") !== false)
+        and preg_match_all($preg ? $preg : _PROTEGE_BLOCS, $letexte, $matches, PREG_SET_ORDER)
+    ) {
+        foreach ($matches as $regs) {
+            // echappements tels quels ?
+            if ($no_transform) {
+                $echap = $regs[0];
+            } // sinon les traiter selon le cas
+            else {
+                if (function_exists($f = 'traiter_echap_' . strtolower($regs[1]))) {
+                    $echap = $f($regs);
+                } else {
+                    if (function_exists($f = $f . '_dist')) {
+                        $echap = $f($regs);
+                    }
+                }
+            }
+
+            $p = strpos($letexte, $regs[0]);
+            $letexte = substr_replace($letexte, code_echappement($echap, $source, $no_transform), $p, strlen($regs[0]));
+        }
+    }
+
+    if ($no_transform) {
+        return $letexte;
+    }
+
+    // Echapper le php pour faire joli (ici, c'est pas pour la securite)
+    // seulement si on a echappe les <script>
+    // (derogatoire car on ne peut pas faire passer < ? ... ? >
+    // dans une callback autonommee
+    if (strpos($preg ? $preg : _PROTEGE_BLOCS, 'script') !== false) {
+        if (strpos($letexte, "<" . "?") !== false and preg_match_all(',<[?].*($|[?]>),UisS',
+                $letexte, $matches, PREG_SET_ORDER)
+        ) {
+            foreach ($matches as $regs) {
+                $letexte = str_replace($regs[0],
+                    code_echappement(highlight_string($regs[0], true), $source),
+                    $letexte);
+            }
+        }
+    }
+
+    return $letexte;
 }
 
 //
@@ -245,52 +245,52 @@ 
 // par propre() : exemple dans multi et dans typo()
 // http://code.spip.net/@echappe_retour
 function echappe_retour($letexte, $source = '', $filtre = "") {
-	if (strpos($letexte, "base64$source")) {
-		# spip_log(spip_htmlspecialchars($letexte));  ## pour les curieux
-		$max_prof = 5;
-		while (strpos($letexte, "<") !== false
-			and
-			preg_match_all(',<(span|div)\sclass=[\'"]base64' . $source . '[\'"]\s(.*)>\s*</\1>,UmsS',
-				$letexte, $regs, PREG_SET_ORDER)
-			and $max_prof--) {
-			foreach ($regs as $reg) {
-				$rempl = base64_decode(extraire_attribut($reg[0], 'title'));
-				// recherche d'attributs supplementaires
-				$at = array();
-				foreach (array('lang', 'dir') as $attr) {
-					if ($a = extraire_attribut($reg[0], $attr)) {
-						$at[$attr] = $a;
-					}
-				}
-				if ($at) {
-					$rempl = '<' . $reg[1] . '>' . $rempl . '</' . $reg[1] . '>';
-					foreach ($at as $attr => $a) {
-						$rempl = inserer_attribut($rempl, $attr, $a);
-					}
-				}
-				if ($filtre) {
-					$rempl = $filtre($rempl);
-				}
-				$letexte = str_replace($reg[0], $rempl, $letexte);
-			}
-		}
-	}
-
-	return $letexte;
+    if (strpos($letexte, "base64$source")) {
+        # spip_log(spip_htmlspecialchars($letexte));  ## pour les curieux
+        $max_prof = 5;
+        while (strpos($letexte, "<") !== false
+            and
+            preg_match_all(',<(span|div)\sclass=[\'"]base64' . $source . '[\'"]\s(.*)>\s*</\1>,UmsS',
+                $letexte, $regs, PREG_SET_ORDER)
+            and $max_prof--) {
+            foreach ($regs as $reg) {
+                $rempl = base64_decode(extraire_attribut($reg[0], 'title'));
+                // recherche d'attributs supplementaires
+                $at = array();
+                foreach (array('lang', 'dir') as $attr) {
+                    if ($a = extraire_attribut($reg[0], $attr)) {
+                        $at[$attr] = $a;
+                    }
+                }
+                if ($at) {
+                    $rempl = '<' . $reg[1] . '>' . $rempl . '</' . $reg[1] . '>';
+                    foreach ($at as $attr => $a) {
+                        $rempl = inserer_attribut($rempl, $attr, $a);
+                    }
+                }
+                if ($filtre) {
+                    $rempl = $filtre($rempl);
+                }
+                $letexte = str_replace($reg[0], $rempl, $letexte);
+            }
+        }
+    }
+
+    return $letexte;
 }
 
 // Reinserer le javascript de confiance (venant des modeles)
 
 // http://code.spip.net/@echappe_retour_modeles
 function echappe_retour_modeles($letexte, $interdire_scripts = false) {
-	$letexte = echappe_retour($letexte);
+    $letexte = echappe_retour($letexte);
 
-	// Dans les appels directs hors squelette, securiser aussi ici
-	if ($interdire_scripts) {
-		$letexte = interdire_scripts($letexte);
-	}
+    // Dans les appels directs hors squelette, securiser aussi ici
+    if ($interdire_scripts) {
+        $letexte = interdire_scripts($letexte);
+    }
 
-	return trim($letexte);
+    return trim($letexte);
 }
 
 
@@ -318,130 +318,130 @@ 
  *     Texte coupé
  **/
 function couper($texte, $taille = 50, $suite = null) {
-	if (!($length = strlen($texte)) or $taille <= 0) {
-		return '';
-	}
-	$offset = 400 + 2 * $taille;
-	while ($offset < $length
-		and strlen(preg_replace(",<(!--|\w|/)[^>]+>,Uims", "", substr($texte, 0, $offset))) < $taille) {
-		$offset = 2 * $offset;
-	}
-	if ($offset < $length
-		&& ($p_tag_ouvrant = strpos($texte, '<', $offset)) !== null
-	) {
-		$p_tag_fermant = strpos($texte, '>', $offset);
-		if ($p_tag_fermant && ($p_tag_fermant < $p_tag_ouvrant)) {
-			$offset = $p_tag_fermant + 1;
-		} // prolonger la coupe jusqu'au tag fermant suivant eventuel
-	}
-	$texte = substr($texte, 0, $offset); /* eviter de travailler sur 10ko pour extraire 150 caracteres */
-
-	if (!function_exists('nettoyer_raccourcis_typo')) {
-		include_spip('inc/lien');
-	}
-	$texte = nettoyer_raccourcis_typo($texte);
-
-	// balises de sauts de ligne et paragraphe
-	$texte = preg_replace("/<p( [^>]*)?" . ">/", "\r", $texte);
-	$texte = preg_replace("/<br( [^>]*)?" . ">/", "\n", $texte);
-
-	// on repasse les doubles \n en \r que nettoyer_raccourcis_typo() a pu modifier
-	$texte = str_replace("\n\n", "\r", $texte);
-
-	// supprimer les tags
-	$texte = supprimer_tags($texte);
-	$texte = trim(str_replace("\n", " ", $texte));
-	$texte .= "\n";  // marquer la fin
-
-	// corriger la longueur de coupe
-	// en fonction de la presence de caracteres utf
-	if ($GLOBALS['meta']['charset'] == 'utf-8') {
-		$long = charset2unicode($texte);
-		$long = spip_substr($long, 0, max($taille, 1));
-		$nbcharutf = preg_match_all('/(&#[0-9]{3,6};)/S', $long, $matches);
-		$taille += $nbcharutf;
-	}
-
-
-	// couper au mot precedent
-	$long = spip_substr($texte, 0, max($taille - 4, 1));
-	$u = $GLOBALS['meta']['pcre_u'];
-	$court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
-	if (is_null($suite)) {
-		$suite = (defined('_COUPER_SUITE') ? _COUPER_SUITE : '&nbsp;(...)');
-	}
-	$points = $suite;
-
-	// trop court ? ne pas faire de (...)
-	if (spip_strlen($court) < max(0.75 * $taille, 2)) {
-		$points = '';
-		$long = spip_substr($texte, 0, $taille);
-		$texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
-		// encore trop court ? couper au caractere
-		if (spip_strlen($texte) < 0.75 * $taille) {
-			$texte = $long;
-		}
-	} else {
-		$texte = $court;
-	}
-
-	if (strpos($texte, "\n"))  // la fin est encore la : c'est qu'on n'a pas de texte de suite
-	{
-		$points = '';
-	}
-
-	// remettre les paragraphes
-	$texte = preg_replace("/\r+/", "\n\n", $texte);
-
-	// supprimer l'eventuelle entite finale mal coupee
-	$texte = preg_replace('/&#?[a-z0-9]*$/S', '', $texte);
-
-	return quote_amp(trim($texte)) . $points;
+    if (!($length = strlen($texte)) or $taille <= 0) {
+        return '';
+    }
+    $offset = 400 + 2 * $taille;
+    while ($offset < $length
+        and strlen(preg_replace(",<(!--|\w|/)[^>]+>,Uims", "", substr($texte, 0, $offset))) < $taille) {
+        $offset = 2 * $offset;
+    }
+    if ($offset < $length
+        && ($p_tag_ouvrant = strpos($texte, '<', $offset)) !== null
+    ) {
+        $p_tag_fermant = strpos($texte, '>', $offset);
+        if ($p_tag_fermant && ($p_tag_fermant < $p_tag_ouvrant)) {
+            $offset = $p_tag_fermant + 1;
+        } // prolonger la coupe jusqu'au tag fermant suivant eventuel
+    }
+    $texte = substr($texte, 0, $offset); /* eviter de travailler sur 10ko pour extraire 150 caracteres */
+
+    if (!function_exists('nettoyer_raccourcis_typo')) {
+        include_spip('inc/lien');
+    }
+    $texte = nettoyer_raccourcis_typo($texte);
+
+    // balises de sauts de ligne et paragraphe
+    $texte = preg_replace("/<p( [^>]*)?" . ">/", "\r", $texte);
+    $texte = preg_replace("/<br( [^>]*)?" . ">/", "\n", $texte);
+
+    // on repasse les doubles \n en \r que nettoyer_raccourcis_typo() a pu modifier
+    $texte = str_replace("\n\n", "\r", $texte);
+
+    // supprimer les tags
+    $texte = supprimer_tags($texte);
+    $texte = trim(str_replace("\n", " ", $texte));
+    $texte .= "\n";  // marquer la fin
+
+    // corriger la longueur de coupe
+    // en fonction de la presence de caracteres utf
+    if ($GLOBALS['meta']['charset'] == 'utf-8') {
+        $long = charset2unicode($texte);
+        $long = spip_substr($long, 0, max($taille, 1));
+        $nbcharutf = preg_match_all('/(&#[0-9]{3,6};)/S', $long, $matches);
+        $taille += $nbcharutf;
+    }
+
+
+    // couper au mot precedent
+    $long = spip_substr($texte, 0, max($taille - 4, 1));
+    $u = $GLOBALS['meta']['pcre_u'];
+    $court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+    if (is_null($suite)) {
+        $suite = (defined('_COUPER_SUITE') ? _COUPER_SUITE : '&nbsp;(...)');
+    }
+    $points = $suite;
+
+    // trop court ? ne pas faire de (...)
+    if (spip_strlen($court) < max(0.75 * $taille, 2)) {
+        $points = '';
+        $long = spip_substr($texte, 0, $taille);
+        $texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+        // encore trop court ? couper au caractere
+        if (spip_strlen($texte) < 0.75 * $taille) {
+            $texte = $long;
+        }
+    } else {
+        $texte = $court;
+    }
+
+    if (strpos($texte, "\n"))  // la fin est encore la : c'est qu'on n'a pas de texte de suite
+    {
+        $points = '';
+    }
+
+    // remettre les paragraphes
+    $texte = preg_replace("/\r+/", "\n\n", $texte);
+
+    // supprimer l'eventuelle entite finale mal coupee
+    $texte = preg_replace('/&#?[a-z0-9]*$/S', '', $texte);
+
+    return quote_amp(trim($texte)) . $points;
 }
 
 
 // http://code.spip.net/@protege_js_modeles
 function protege_js_modeles($t) {
-	if (isset($GLOBALS['visiteur_session'])) {
-		if (preg_match_all(',<script.*?($|</script.),isS', $t, $r, PREG_SET_ORDER)) {
-			if (!defined('_PROTEGE_JS_MODELES')) {
-				include_spip('inc/acces');
-				define('_PROTEGE_JS_MODELES', creer_uniqid());
-			}
-			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'javascript' . _PROTEGE_JS_MODELES), $t);
-			}
-		}
-		if (preg_match_all(',<\?php.*?($|\?' . '>),isS', $t, $r, PREG_SET_ORDER)) {
-			if (!defined('_PROTEGE_PHP_MODELES')) {
-				include_spip('inc/acces');
-				define('_PROTEGE_PHP_MODELES', creer_uniqid());
-			}
-			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'php' . _PROTEGE_PHP_MODELES), $t);
-			}
-		}
-	}
-
-	return $t;
+    if (isset($GLOBALS['visiteur_session'])) {
+        if (preg_match_all(',<script.*?($|</script.),isS', $t, $r, PREG_SET_ORDER)) {
+            if (!defined('_PROTEGE_JS_MODELES')) {
+                include_spip('inc/acces');
+                define('_PROTEGE_JS_MODELES', creer_uniqid());
+            }
+            foreach ($r as $regs) {
+                $t = str_replace($regs[0], code_echappement($regs[0], 'javascript' . _PROTEGE_JS_MODELES), $t);
+            }
+        }
+        if (preg_match_all(',<\?php.*?($|\?' . '>),isS', $t, $r, PREG_SET_ORDER)) {
+            if (!defined('_PROTEGE_PHP_MODELES')) {
+                include_spip('inc/acces');
+                define('_PROTEGE_PHP_MODELES', creer_uniqid());
+            }
+            foreach ($r as $regs) {
+                $t = str_replace($regs[0], code_echappement($regs[0], 'php' . _PROTEGE_PHP_MODELES), $t);
+            }
+        }
+    }
+
+    return $t;
 }
 
 
 function echapper_faux_tags($letexte) {
-	if (strpos($letexte, '<') === false) {
-		return $letexte;
-	}
-	$textMatches = preg_split(',(</?[a-z!][^<>]*>),', $letexte, null, PREG_SPLIT_DELIM_CAPTURE);
-
-	$letexte = "";
-	while (count($textMatches)) {
-		// un texte a echapper
-		$letexte .= str_replace("<", '&lt;', array_shift($textMatches));
-		// un tag html qui a servit a faite le split
-		$letexte .= array_shift($textMatches);
-	}
-
-	return $letexte;
+    if (strpos($letexte, '<') === false) {
+        return $letexte;
+    }
+    $textMatches = preg_split(',(</?[a-z!][^<>]*>),', $letexte, null, PREG_SPLIT_DELIM_CAPTURE);
+
+    $letexte = "";
+    while (count($textMatches)) {
+        // un texte a echapper
+        $letexte .= str_replace("<", '&lt;', array_shift($textMatches));
+        // un tag html qui a servit a faite le split
+        $letexte .= array_shift($textMatches);
+    }
+
+    return $letexte;
 }
 
 /**
@@ -454,44 +454,44 @@ 
  * @return string
  */
 function echapper_html_suspect($texte, $strict=true) {
-	static $echapper_html_suspect;
-	if (!$texte or !is_string($texte)) {
-		return $texte;
-	}
-
-	if (!isset($echapper_html_suspect)) {
-		$echapper_html_suspect = charger_fonction('echapper_html_suspect', 'inc', true);
-	}
-	// si fonction personalisee, on delegue
-	if ($echapper_html_suspect) {
-		return $echapper_html_suspect($texte, $strict);
-	}
-
-	if (strpos($texte, '<') === false
-	  or strpos($texte, '=') === false) {
-		return $texte;
-	}
-
-	// quand c'est du texte qui passe par propre on est plus coulant tant qu'il y a pas d'attribut du type onxxx=
-	// car sinon on declenche sur les modeles ou ressources
-	if (!$strict and
-	  (strpos($texte,'on') === false or !preg_match(",<\w+.*\bon\w+\s*=,UimsS", $texte))
-	  ){
-		return $texte;
-	}
-
-	// on teste sur strlen car safehtml supprime le contenu dangereux
-	// mais il peut aussi changer des ' en " sur les attributs html,
-	// donc un test d'egalite est trop strict
-	if (strlen(safehtml($texte)) !== strlen($texte)) {
-		$texte = str_replace("<", "&lt;", $texte);
-		if (!function_exists('attribut_html')) {
-			include_spip('inc/filtres');
-		}
-		$texte = "<mark class='danger-js' title='".attribut_html(_T('erreur_contenu_suspect'))."'>⚠️</mark> ".$texte;
-	}
-
-	return $texte;
+    static $echapper_html_suspect;
+    if (!$texte or !is_string($texte)) {
+        return $texte;
+    }
+
+    if (!isset($echapper_html_suspect)) {
+        $echapper_html_suspect = charger_fonction('echapper_html_suspect', 'inc', true);
+    }
+    // si fonction personalisee, on delegue
+    if ($echapper_html_suspect) {
+        return $echapper_html_suspect($texte, $strict);
+    }
+
+    if (strpos($texte, '<') === false
+      or strpos($texte, '=') === false) {
+        return $texte;
+    }
+
+    // quand c'est du texte qui passe par propre on est plus coulant tant qu'il y a pas d'attribut du type onxxx=
+    // car sinon on declenche sur les modeles ou ressources
+    if (!$strict and
+      (strpos($texte,'on') === false or !preg_match(",<\w+.*\bon\w+\s*=,UimsS", $texte))
+        ){
+        return $texte;
+    }
+
+    // on teste sur strlen car safehtml supprime le contenu dangereux
+    // mais il peut aussi changer des ' en " sur les attributs html,
+    // donc un test d'egalite est trop strict
+    if (strlen(safehtml($texte)) !== strlen($texte)) {
+        $texte = str_replace("<", "&lt;", $texte);
+        if (!function_exists('attribut_html')) {
+            include_spip('inc/filtres');
+        }
+        $texte = "<mark class='danger-js' title='".attribut_html(_T('erreur_contenu_suspect'))."'>⚠️</mark> ".$texte;
+    }
+
+    return $texte;
 }
 
 
@@ -512,27 +512,27 @@ 
  *      Texte sécurisé
  **/
 function safehtml($t) {
-	static $safehtml;
-
-	if (!$t or !is_string($t)) {
-		return $t;
-	}
-	# attention safehtml nettoie deux ou trois caracteres de plus. A voir
-	if (strpos($t, '<') === false) {
-		return str_replace("\x00", '', $t);
-	}
-
-	$t = interdire_scripts($t); // jolifier le php
-	$t = echappe_js($t);
-
-	if (!isset($safehtml)) {
-		$safehtml = charger_fonction('safehtml', 'inc', true);
-	}
-	if ($safehtml) {
-		$t = $safehtml($t);
-	}
-
-	return interdire_scripts($t); // interdire le php (2 precautions)
+    static $safehtml;
+
+    if (!$t or !is_string($t)) {
+        return $t;
+    }
+    # attention safehtml nettoie deux ou trois caracteres de plus. A voir
+    if (strpos($t, '<') === false) {
+        return str_replace("\x00", '', $t);
+    }
+
+    $t = interdire_scripts($t); // jolifier le php
+    $t = echappe_js($t);
+
+    if (!isset($safehtml)) {
+        $safehtml = charger_fonction('safehtml', 'inc', true);
+    }
+    if ($safehtml) {
+        $t = $safehtml($t);
+    }
+
+    return interdire_scripts($t); // interdire le php (2 precautions)
 }
 
 
@@ -554,10 +554,10 @@ 
  *     Texte sans les modèles d'image
  **/
 function supprime_img($letexte, $message = null) {
-	if ($message === null) {
-		$message = '(' . _T('img_indisponible') . ')';
-	}
+    if ($message === null) {
+        $message = '(' . _T('img_indisponible') . ')';
+    }
 
-	return preg_replace(',<(img|doc|emb)([0-9]+)(\|([^>]*))?' . '\s*/?' . '>,i',
-		$message, $letexte);
+    return preg_replace(',<(img|doc|emb)([0-9]+)(\|([^>]*))?' . '\s*/?' . '>,i',
+        $message, $letexte);
 }

Spacing +25 added lines, -25 removed lines

@@ -44,7 +44,7 @@ 
 	// celle du texte) et public (spip_lang est la langue du texte)
 	$dir = _DIR_RESTREINT ? lang_dir() : lang_dir($GLOBALS['spip_lang']);
 
-	$p = 'puce' . (test_espace_prive() ? '_prive' : '');
+	$p = 'puce'.(test_espace_prive() ? '_prive' : '');
 	if ($dir == 'rtl') {
 		$p .= '_rtl';
 	}
@@ -67,7 +67,7 @@ 
 }
 
 if (!defined('_BALISES_BLOCS_REGEXP')) {
-	define('_BALISES_BLOCS_REGEXP', ',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS');
+	define('_BALISES_BLOCS_REGEXP', ',</?('._BALISES_BLOCS.')[>[:space:]],iS');
 }
 
 //
@@ -85,7 +85,7 @@ 
 
 	// Tester si on echappe en span ou en div
 	if (is_null($mode) or !in_array($mode, array('div', 'span'))) {
-		$mode = preg_match(',</?(' . _BALISES_BLOCS . ')[>[:space:]],iS', $rempl) ? 'div' : 'span';
+		$mode = preg_match(',</?('._BALISES_BLOCS.')[>[:space:]],iS', $rempl) ? 'div' : 'span';
 	}
 
 	// Decouper en morceaux, base64 a des probleme selon la taille de la pile
@@ -112,7 +112,7 @@ 
 // Echapper les <code>...</ code>
 // http://code.spip.net/@traiter_echap_code_dist
 function traiter_echap_code_dist($regs) {
-	list(, , $att, $corps) = $regs;
+	list(,, $att, $corps) = $regs;
 	$echap = spip_htmlspecialchars($corps); // il ne faut pas passer dans entites_html, ne pas transformer les &#xxx; du code !
 
 	// ne pas mettre le <div...> s'il n'y a qu'une ligne
@@ -123,9 +123,9 @@ 
 		$echap = nl2br($echap);
 		$echap = "<div style='text-align: left;' "
 			. "class='spip_code' dir='ltr'><code$att>"
-			. $echap . "</code></div>";
+			. $echap."</code></div>";
 	} else {
-		$echap = "<code$att class='spip_code' dir='ltr'>" . $echap . "</code>";
+		$echap = "<code$att class='spip_code' dir='ltr'>".$echap."</code>";
 	}
 
 	$echap = str_replace("\t", "&nbsp; &nbsp; &nbsp; &nbsp; ", $echap);
@@ -202,10 +202,10 @@ 
 				$echap = $regs[0];
 			} // sinon les traiter selon le cas
 			else {
-				if (function_exists($f = 'traiter_echap_' . strtolower($regs[1]))) {
+				if (function_exists($f = 'traiter_echap_'.strtolower($regs[1]))) {
 					$echap = $f($regs);
 				} else {
-					if (function_exists($f = $f . '_dist')) {
+					if (function_exists($f = $f.'_dist')) {
 						$echap = $f($regs);
 					}
 				}
@@ -225,7 +225,7 @@ 
 	// (derogatoire car on ne peut pas faire passer < ? ... ? >
 	// dans une callback autonommee
 	if (strpos($preg ? $preg : _PROTEGE_BLOCS, 'script') !== false) {
-		if (strpos($letexte, "<" . "?") !== false and preg_match_all(',<[?].*($|[?]>),UisS',
+		if (strpos($letexte, "<"."?") !== false and preg_match_all(',<[?].*($|[?]>),UisS',
 				$letexte, $matches, PREG_SET_ORDER)
 		) {
 			foreach ($matches as $regs) {
@@ -250,7 +250,7 @@ 
 		$max_prof = 5;
 		while (strpos($letexte, "<") !== false
 			and
-			preg_match_all(',<(span|div)\sclass=[\'"]base64' . $source . '[\'"]\s(.*)>\s*</\1>,UmsS',
+			preg_match_all(',<(span|div)\sclass=[\'"]base64'.$source.'[\'"]\s(.*)>\s*</\1>,UmsS',
 				$letexte, $regs, PREG_SET_ORDER)
 			and $max_prof--) {
 			foreach ($regs as $reg) {
@@ -263,7 +263,7 @@ 
 					}
 				}
 				if ($at) {
-					$rempl = '<' . $reg[1] . '>' . $rempl . '</' . $reg[1] . '>';
+					$rempl = '<'.$reg[1].'>'.$rempl.'</'.$reg[1].'>';
 					foreach ($at as $attr => $a) {
 						$rempl = inserer_attribut($rempl, $attr, $a);
 					}
@@ -342,8 +342,8 @@ 
 	$texte = nettoyer_raccourcis_typo($texte);
 
 	// balises de sauts de ligne et paragraphe
-	$texte = preg_replace("/<p( [^>]*)?" . ">/", "\r", $texte);
-	$texte = preg_replace("/<br( [^>]*)?" . ">/", "\n", $texte);
+	$texte = preg_replace("/<p( [^>]*)?".">/", "\r", $texte);
+	$texte = preg_replace("/<br( [^>]*)?".">/", "\n", $texte);
 
 	// on repasse les doubles \n en \r que nettoyer_raccourcis_typo() a pu modifier
 	$texte = str_replace("\n\n", "\r", $texte);
@@ -351,7 +351,7 @@ 
 	// supprimer les tags
 	$texte = supprimer_tags($texte);
 	$texte = trim(str_replace("\n", " ", $texte));
-	$texte .= "\n";  // marquer la fin
+	$texte .= "\n"; // marquer la fin
 
 	// corriger la longueur de coupe
 	// en fonction de la presence de caracteres utf
@@ -366,7 +366,7 @@ 
 	// couper au mot precedent
 	$long = spip_substr($texte, 0, max($taille - 4, 1));
 	$u = $GLOBALS['meta']['pcre_u'];
-	$court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+	$court = preg_replace("/([^\s][\s]+)[^\s]*\n?$/".$u, "\\1", $long);
 	if (is_null($suite)) {
 		$suite = (defined('_COUPER_SUITE') ? _COUPER_SUITE : '&nbsp;(...)');
 	}
@@ -376,7 +376,7 @@ 
 	if (spip_strlen($court) < max(0.75 * $taille, 2)) {
 		$points = '';
 		$long = spip_substr($texte, 0, $taille);
-		$texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/" . $u, "\\1", $long);
+		$texte = preg_replace("/([^\s][\s]+)[^\s]*\n?$/".$u, "\\1", $long);
 		// encore trop court ? couper au caractere
 		if (spip_strlen($texte) < 0.75 * $taille) {
 			$texte = $long;
@@ -396,7 +396,7 @@ 
 	// supprimer l'eventuelle entite finale mal coupee
 	$texte = preg_replace('/&#?[a-z0-9]*$/S', '', $texte);
 
-	return quote_amp(trim($texte)) . $points;
+	return quote_amp(trim($texte)).$points;
 }
 
 
@@ -409,16 +409,16 @@ 
 				define('_PROTEGE_JS_MODELES', creer_uniqid());
 			}
 			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'javascript' . _PROTEGE_JS_MODELES), $t);
+				$t = str_replace($regs[0], code_echappement($regs[0], 'javascript'._PROTEGE_JS_MODELES), $t);
 			}
 		}
-		if (preg_match_all(',<\?php.*?($|\?' . '>),isS', $t, $r, PREG_SET_ORDER)) {
+		if (preg_match_all(',<\?php.*?($|\?'.'>),isS', $t, $r, PREG_SET_ORDER)) {
 			if (!defined('_PROTEGE_PHP_MODELES')) {
 				include_spip('inc/acces');
 				define('_PROTEGE_PHP_MODELES', creer_uniqid());
 			}
 			foreach ($r as $regs) {
-				$t = str_replace($regs[0], code_echappement($regs[0], 'php' . _PROTEGE_PHP_MODELES), $t);
+				$t = str_replace($regs[0], code_echappement($regs[0], 'php'._PROTEGE_PHP_MODELES), $t);
 			}
 		}
 	}
@@ -453,7 +453,7 @@ 
  * @param bool $strict
  * @return string
  */
-function echapper_html_suspect($texte, $strict=true) {
+function echapper_html_suspect($texte, $strict = true) {
 	static $echapper_html_suspect;
 	if (!$texte or !is_string($texte)) {
 		return $texte;
@@ -475,8 +475,8 @@ 
 	// quand c'est du texte qui passe par propre on est plus coulant tant qu'il y a pas d'attribut du type onxxx=
 	// car sinon on declenche sur les modeles ou ressources
 	if (!$strict and
-	  (strpos($texte,'on') === false or !preg_match(",<\w+.*\bon\w+\s*=,UimsS", $texte))
-	  ){
+	  (strpos($texte, 'on') === false or !preg_match(",<\w+.*\bon\w+\s*=,UimsS", $texte))
+	  ) {
 		return $texte;
 	}
 
@@ -555,9 +555,9 @@ 
  **/
 function supprime_img($letexte, $message = null) {
 	if ($message === null) {
-		$message = '(' . _T('img_indisponible') . ')';
+		$message = '('._T('img_indisponible').')';
 	}
 
-	return preg_replace(',<(img|doc|emb)([0-9]+)(\|([^>]*))?' . '\s*/?' . '>,i',
+	return preg_replace(',<(img|doc|emb)([0-9]+)(\|([^>]*))?'.'\s*/?'.'>,i',
 		$message, $letexte);
 }

ecrire/public/phraser_html.php

Doc Comments +23 added lines

@@ -98,6 +98,10 @@ 
 }
 
 // http://code.spip.net/@phraser_polyglotte
+/**
+ * @param string $texte
+ * @param integer $ligne
+ */
 function phraser_polyglotte($texte, $ligne, $result) {
 
 	if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER)) {
@@ -260,6 +264,9 @@ 
 // on recommence tant qu'il y a des [...] en substituant a l'appel suivant
 
 // http://code.spip.net/@phraser_champs_etendus
+/**
+ * @param integer $ligne
+ */
 function phraser_champs_etendus($texte, $ligne, $result) {
 	if ($texte === "") {
 		return $result;
@@ -279,6 +286,9 @@ 
 // Tres chevelu
 
 // http://code.spip.net/@phraser_args
+/**
+ * @param string $fin
+ */
 function phraser_args($texte, $fin, $sep, $result, &$pointeur_champ) {
 	$texte = ltrim($texte);
 	while (($texte !== "") && strpos($fin, $texte[0]) === false) {
@@ -293,6 +303,9 @@ 
 }
 
 // http://code.spip.net/@phraser_arg
+/**
+ * @param string $texte
+ */
 function phraser_arg(&$texte, $sep, $result, &$pointeur_champ) {
 	preg_match(",^(\|?[^}{)|]*)(.*)$,ms", $texte, $match);
 	$suite = ltrim($match[2]);
@@ -430,6 +443,9 @@ 
 
 
 // http://code.spip.net/@phraser_champs_exterieurs
+/**
+ * @param string $texte
+ */
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested) {
 	$res = array();
 	while (($p = strpos($texte, "%$sep")) !== false) {
@@ -449,6 +465,9 @@ 
 }
 
 // http://code.spip.net/@phraser_champs_interieurs
+/**
+ * @param string $sep
+ */
 function phraser_champs_interieurs($texte, $ligne, $sep, $result) {
 	$i = 0; // en fait count($result)
 	$x = "";
@@ -742,6 +761,10 @@ 
 }
 
 // http://code.spip.net/@phraser_critere_infixe
+/**
+ * @param string $arg1
+ * @param string $arg2
+ */
 function phraser_critere_infixe($arg1, $arg2, $args, $op, $not, $cond) {
 	$args[0] = new Texte;
 	$args[0]->texte = $arg1;

Indentation +751 added lines, -751 removed lines

@@ -20,7 +20,7 @@ 
  **/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /** Début de la partie principale d'une boucle */
@@ -61,83 +61,83 @@ 
 // http://code.spip.net/@phraser_inclure
 function phraser_inclure($texte, $ligne, $result) {
 
-	while (preg_match(BALISE_INCLURE, $texte, $match)) {
-		$match = array_pad($match, 3, null);
-		$p = strpos($texte, $match[0]);
-		$debut = substr($texte, 0, $p);
-		if ($p) {
-			$result = phraser_idiomes($debut, $ligne, $result);
-		}
-		$ligne += substr_count($debut, "\n");
-		$champ = new Inclure;
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		$fichier = $match[2];
-		# assurer ici la migration .php3 => .php
-		# et de l'ancienne syntaxe INCLURE(page.php3) devenue surperflue
-		if ($fichier and preg_match(',^(.*[.]php)3$,', $fichier, $r)) {
-			$fichier = $r[1];
-		}
-		$champ->texte = ($fichier !== 'page.php') ? $fichier : '';
-		$texte = substr($texte, $p + strlen($match[0]));
-		// on assimile {var=val} a une liste de un argument sans fonction
-		phraser_args($texte, "/>", "", $result, $champ);
-		if (!$champ->texte or count($champ->param) > 1) {
-			if (!function_exists('normaliser_inclure')) {
-				include_spip('public/normaliser');
-			}
-			normaliser_inclure($champ);
-		}
-		$texte = substr($champ->apres, strpos($champ->apres, '>') + 1);
-		$champ->apres = "";
-		$texte = preg_replace(',^</INCLU[DR]E>,', '', $texte);
-		$result[] = $champ;
-	}
-
-	return (($texte === "") ? $result : phraser_idiomes($texte, $ligne, $result));
+    while (preg_match(BALISE_INCLURE, $texte, $match)) {
+        $match = array_pad($match, 3, null);
+        $p = strpos($texte, $match[0]);
+        $debut = substr($texte, 0, $p);
+        if ($p) {
+            $result = phraser_idiomes($debut, $ligne, $result);
+        }
+        $ligne += substr_count($debut, "\n");
+        $champ = new Inclure;
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        $fichier = $match[2];
+        # assurer ici la migration .php3 => .php
+        # et de l'ancienne syntaxe INCLURE(page.php3) devenue surperflue
+        if ($fichier and preg_match(',^(.*[.]php)3$,', $fichier, $r)) {
+            $fichier = $r[1];
+        }
+        $champ->texte = ($fichier !== 'page.php') ? $fichier : '';
+        $texte = substr($texte, $p + strlen($match[0]));
+        // on assimile {var=val} a une liste de un argument sans fonction
+        phraser_args($texte, "/>", "", $result, $champ);
+        if (!$champ->texte or count($champ->param) > 1) {
+            if (!function_exists('normaliser_inclure')) {
+                include_spip('public/normaliser');
+            }
+            normaliser_inclure($champ);
+        }
+        $texte = substr($champ->apres, strpos($champ->apres, '>') + 1);
+        $champ->apres = "";
+        $texte = preg_replace(',^</INCLU[DR]E>,', '', $texte);
+        $result[] = $champ;
+    }
+
+    return (($texte === "") ? $result : phraser_idiomes($texte, $ligne, $result));
 }
 
 // http://code.spip.net/@phraser_polyglotte
 function phraser_polyglotte($texte, $ligne, $result) {
 
-	if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER)) {
-		foreach ($m as $match) {
-			$p = strpos($texte, $match[0]);
-			$debut = substr($texte, 0, $p);
-			if ($p) {
-				$champ = new Texte;
-				$champ->texte = $debut;
-				$champ->ligne = $ligne;
-				$result[] = $champ;
-				$ligne += substr_count($champ->texte, "\n");
-			}
-
-			$champ = new Polyglotte;
-			$champ->ligne = $ligne;
-			$ligne += substr_count($match[0], "\n");
-			$lang = '';
-			$bloc = $match[1];
-			$texte = substr($texte, $p + strlen($match[0]));
-			while (preg_match("/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si", $bloc, $regs)) {
-				$trad = $regs[1];
-				if ($trad or $lang) {
-					$champ->traductions[$lang] = $trad;
-				}
-				$lang = $regs[2];
-				$bloc = $regs[3];
-			}
-			$champ->traductions[$lang] = $bloc;
-			$result[] = $champ;
-		}
-	}
-	if ($texte !== "") {
-		$champ = new Texte;
-		$champ->texte = $texte;
-		$champ->ligne = $ligne;
-		$result[] = $champ;
-	}
-
-	return $result;
+    if (preg_match_all(BALISE_POLYGLOTTE, $texte, $m, PREG_SET_ORDER)) {
+        foreach ($m as $match) {
+            $p = strpos($texte, $match[0]);
+            $debut = substr($texte, 0, $p);
+            if ($p) {
+                $champ = new Texte;
+                $champ->texte = $debut;
+                $champ->ligne = $ligne;
+                $result[] = $champ;
+                $ligne += substr_count($champ->texte, "\n");
+            }
+
+            $champ = new Polyglotte;
+            $champ->ligne = $ligne;
+            $ligne += substr_count($match[0], "\n");
+            $lang = '';
+            $bloc = $match[1];
+            $texte = substr($texte, $p + strlen($match[0]));
+            while (preg_match("/^[[:space:]]*([^[{]*)[[:space:]]*[[{]([a-z_]+)[]}](.*)$/si", $bloc, $regs)) {
+                $trad = $regs[1];
+                if ($trad or $lang) {
+                    $champ->traductions[$lang] = $trad;
+                }
+                $lang = $regs[2];
+                $bloc = $regs[3];
+            }
+            $champ->traductions[$lang] = $bloc;
+            $result[] = $champ;
+        }
+    }
+    if ($texte !== "") {
+        $champ = new Texte;
+        $champ->texte = $texte;
+        $champ->ligne = $ligne;
+        $result[] = $champ;
+    }
+
+    return $result;
 }
 
 
@@ -159,41 +159,41 @@ 
  * @return array
  **/
 function phraser_idiomes($texte, $ligne, $result) {
-	while (preg_match(BALISE_IDIOMES, $texte, $match)) {
-		$match = array_pad($match, 8, null);
-		$p = strpos($texte, $match[0]);
-		$ko = (!$match[3] && ($match[5][0] !== '='));
-		$debut = substr($texte, 0, $p + ($ko ? strlen($match[0]) : 0));
-		if ($debut) {
-			$result = phraser_champs($debut, $ligne, $result);
-		}
-		$texte = substr($texte, $p + strlen($match[0]));
-		$ligne += substr_count($debut, "\n");
-		if ($ko) {
-			continue;
-		} // faux idiome
-		$champ = new Idiome;
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		// Stocker les arguments de la balise de traduction
-		$args = array();
-		$largs = $match[5];
-		while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)) {
-			$args[$r[1]] = phraser_champs($r[2], 0, array());
-			$largs = substr($largs, strlen($r[0]));
-		}
-		$champ->arg = $args;
-		$champ->nom_champ = strtolower($match[3]);
-		$champ->module = $match[2];
-		// pas d'imbrication pour les filtres sur langue
-		phraser_args($match[7], ":", '', array(), $champ);
-		$result[] = $champ;
-	}
-	if ($texte !== "") {
-		$result = phraser_champs($texte, $ligne, $result);
-	}
-
-	return $result;
+    while (preg_match(BALISE_IDIOMES, $texte, $match)) {
+        $match = array_pad($match, 8, null);
+        $p = strpos($texte, $match[0]);
+        $ko = (!$match[3] && ($match[5][0] !== '='));
+        $debut = substr($texte, 0, $p + ($ko ? strlen($match[0]) : 0));
+        if ($debut) {
+            $result = phraser_champs($debut, $ligne, $result);
+        }
+        $texte = substr($texte, $p + strlen($match[0]));
+        $ligne += substr_count($debut, "\n");
+        if ($ko) {
+            continue;
+        } // faux idiome
+        $champ = new Idiome;
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        // Stocker les arguments de la balise de traduction
+        $args = array();
+        $largs = $match[5];
+        while (preg_match(BALISE_IDIOMES_ARGS, $largs, $r)) {
+            $args[$r[1]] = phraser_champs($r[2], 0, array());
+            $largs = substr($largs, strlen($r[0]));
+        }
+        $champ->arg = $args;
+        $champ->nom_champ = strtolower($match[3]);
+        $champ->module = $match[2];
+        // pas d'imbrication pour les filtres sur langue
+        phraser_args($match[7], ":", '', array(), $champ);
+        $result[] = $champ;
+    }
+    if ($texte !== "") {
+        $result = phraser_champs($texte, $ligne, $result);
+    }
+
+    return $result;
 }
 
 /**
@@ -211,47 +211,47 @@ 
  * @return array
  **/
 function phraser_champs($texte, $ligne, $result) {
-	while (preg_match("/" . NOM_DE_CHAMP . "/S", $texte, $match)) {
-		$p = strpos($texte, $match[0]);
-		// texte après la balise
-		$suite = substr($texte, $p + strlen($match[0]));
-
-		$debut = substr($texte, 0, $p);
-		if ($p) {
-			$result = phraser_polyglotte($debut, $ligne, $result);
-		}
-		$ligne += substr_count($debut, "\n");
-		$champ = new Champ;
-		$champ->ligne = $ligne;
-		$ligne += substr_count($match[0], "\n");
-		$champ->nom_boucle = $match[2];
-		$champ->nom_champ = $match[3];
-		$champ->etoile = $match[5];
-
-		if ($suite and $suite[0] == '{') {
-			phraser_arg($suite, '', array(), $champ);
-			// ce ltrim est une ereur de conception
-			// mais on le conserve par souci de compatibilite
-			$texte = ltrim($suite);
-			// Il faudrait le normaliser dans l'arbre de syntaxe abstraite
-			// pour faire sauter ce cas particulier a la decompilation.
-			/* Ce qui suit est malheureusement incomplet pour cela:
+    while (preg_match("/" . NOM_DE_CHAMP . "/S", $texte, $match)) {
+        $p = strpos($texte, $match[0]);
+        // texte après la balise
+        $suite = substr($texte, $p + strlen($match[0]));
+
+        $debut = substr($texte, 0, $p);
+        if ($p) {
+            $result = phraser_polyglotte($debut, $ligne, $result);
+        }
+        $ligne += substr_count($debut, "\n");
+        $champ = new Champ;
+        $champ->ligne = $ligne;
+        $ligne += substr_count($match[0], "\n");
+        $champ->nom_boucle = $match[2];
+        $champ->nom_champ = $match[3];
+        $champ->etoile = $match[5];
+
+        if ($suite and $suite[0] == '{') {
+            phraser_arg($suite, '', array(), $champ);
+            // ce ltrim est une ereur de conception
+            // mais on le conserve par souci de compatibilite
+            $texte = ltrim($suite);
+            // Il faudrait le normaliser dans l'arbre de syntaxe abstraite
+            // pour faire sauter ce cas particulier a la decompilation.
+            /* Ce qui suit est malheureusement incomplet pour cela:
 			if ($n = (strlen($suite) - strlen($texte))) {
 				$champ->apres = array(new Texte);
 				$champ->apres[0]->texte = substr($suite,0,$n);
 			}
 			*/
-		} else {
-			$texte = $suite;
-		}
-		phraser_vieux($champ);
-		$result[] = $champ;
-	}
-	if ($texte !== "") {
-		$result = phraser_polyglotte($texte, $ligne, $result);
-	}
-
-	return $result;
+        } else {
+            $texte = $suite;
+        }
+        phraser_vieux($champ);
+        $result[] = $champ;
+    }
+    if ($texte !== "") {
+        $result = phraser_polyglotte($texte, $ligne, $result);
+    }
+
+    return $result;
 }
 
 // Gestion des imbrications:
@@ -261,15 +261,15 @@ 
 
 // http://code.spip.net/@phraser_champs_etendus
 function phraser_champs_etendus($texte, $ligne, $result) {
-	if ($texte === "") {
-		return $result;
-	}
-	$sep = '##';
-	while (strpos($texte, $sep) !== false) {
-		$sep .= '#';
-	}
-
-	return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, array()));
+    if ($texte === "") {
+        return $result;
+    }
+    $sep = '##';
+    while (strpos($texte, $sep) !== false) {
+        $sep .= '#';
+    }
+
+    return array_merge($result, phraser_champs_interieurs($texte, $ligne, $sep, array()));
 }
 
 //  Analyse les filtres d'un champ etendu et affecte le resultat
@@ -280,270 +280,270 @@ 
 
 // http://code.spip.net/@phraser_args
 function phraser_args($texte, $fin, $sep, $result, &$pointeur_champ) {
-	$texte = ltrim($texte);
-	while (($texte !== "") && strpos($fin, $texte[0]) === false) {
-		$result = phraser_arg($texte, $sep, $result, $pointeur_champ);
-		$texte = ltrim($texte);
-	}
+    $texte = ltrim($texte);
+    while (($texte !== "") && strpos($fin, $texte[0]) === false) {
+        $result = phraser_arg($texte, $sep, $result, $pointeur_champ);
+        $texte = ltrim($texte);
+    }
 # mettre ici la suite du texte, 
 # notamment pour que l'appelant vire le caractere fermant si besoin
-	$pointeur_champ->apres = $texte;
+    $pointeur_champ->apres = $texte;
 
-	return $result;
+    return $result;
 }
 
 // http://code.spip.net/@phraser_arg
 function phraser_arg(&$texte, $sep, $result, &$pointeur_champ) {
-	preg_match(",^(\|?[^}{)|]*)(.*)$,ms", $texte, $match);
-	$suite = ltrim($match[2]);
-	$fonc = trim($match[1]);
-	if ($fonc && $fonc[0] == "|") {
-		$fonc = ltrim(substr($fonc, 1));
-	}
-	$res = array($fonc);
-	$err_f = '';
-	// cas du filtre sans argument ou du critere /
-	if (($suite && ($suite[0] != '{')) || ($fonc && $fonc[0] == '/')) {
-		// si pas d'argument, alors il faut une fonction ou un double |
-		if (!$match[1]) {
-			$err_f = array('zbug_erreur_filtre', array('filtre' => $texte));
-			erreur_squelette($err_f, $pointeur_champ);
-			$texte = '';
-		} else {
-			$texte = $suite;
-		}
-		if ($err_f) {
-			$pointeur_champ->param = false;
-		} elseif ($fonc !== '') {
-			$pointeur_champ->param[] = $res;
-		}
-		// pour les balises avec faux filtres qui boudent ce dur larbeur
-		$pointeur_champ->fonctions[] = array($fonc, '');
-
-		return $result;
-	}
-	$args = ltrim(substr($suite, 1)); // virer le '(' initial
-	$collecte = array();
-	while ($args && $args[0] != '}') {
-		if ($args[0] == '"') {
-			preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
-		} elseif ($args[0] == "'") {
-			preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
-		} else {
-			preg_match("/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms", $args, $regs);
-			if (!strlen($regs[2])) {
-				$err_f = array('zbug_erreur_filtre', array('filtre' => $args));
-				erreur_squelette($err_f, $pointeur_champ);
-				$champ = new Texte;
-				$champ->apres = $champ->avant = $args = "";
-				break;
-			}
-		}
-		$arg = $regs[2];
-		if (trim($regs[1])) {
-			$champ = new Texte;
-			$champ->texte = $arg;
-			$champ->apres = $champ->avant = $regs[1];
-			$result[] = $champ;
-			$collecte[] = $champ;
-			$args = ltrim($regs[count($regs) - 1]);
-		} else {
-			if (!preg_match("/" . NOM_DE_CHAMP . "([{|])/", $arg, $r)) {
-				// 0 est un aveu d'impuissance. A completer
-				$arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
-
-				$args = ltrim($regs[count($regs) - 1]);
-				$collecte = array_merge($collecte, $arg);
-				$result = array_merge($result, $arg);
-			} else {
-				$n = strpos($args, $r[0]);
-				$pred = substr($args, 0, $n);
-				$par = ',}';
-				if (preg_match('/^(.*)\($/', $pred, $m)) {
-					$pred = $m[1];
-					$par = ')';
-				}
-				if ($pred) {
-					$champ = new Texte;
-					$champ->texte = $pred;
-					$champ->apres = $champ->avant = "";
-					$result[] = $champ;
-					$collecte[] = $champ;
-				}
-				$rec = substr($args, $n + strlen($r[0]) - 1);
-				$champ = new Champ;
-				$champ->nom_boucle = $r[2];
-				$champ->nom_champ = $r[3];
-				$champ->etoile = $r[5];
-				$next = $r[6];
-				while ($next == '{') {
-					phraser_arg($rec, $sep, array(), $champ);
-					$args = ltrim($rec);
-					$next = isset($args[0]) ? $args[0] : '';
-				}
-				while ($next == '|') {
-					phraser_args($rec, $par, $sep, array(), $champ);
-					$args = $champ->apres;
-					$champ->apres = '';
-					$next = isset($args[0]) ? $args[0] : '';
-				}
-				// Si erreur de syntaxe dans un sous-argument, propager.
-				if ($champ->param === false) {
-					$err_f = true;
-				} else {
-					phraser_vieux($champ);
-				}
-				if ($par == ')') {
-					$args = substr($args, 1);
-				}
-				$collecte[] = $champ;
-				$result[] = $champ;
-			}
-		}
-		if (isset($args[0]) and $args[0] == ',') {
-			$args = ltrim(substr($args, 1));
-			if ($collecte) {
-				$res[] = $collecte;
-				$collecte = array();
-			}
-		}
-	}
-	if ($collecte) {
-		$res[] = $collecte;
-		$collecte = array();
-	}
-	$texte = substr($args, 1);
-	$source = substr($suite, 0, strlen($suite) - strlen($texte));
-	// propager les erreurs, et ignorer les param vides
-	if ($pointeur_champ->param !== false) {
-		if ($err_f) {
-			$pointeur_champ->param = false;
-		} elseif ($fonc !== '' || count($res) > 1) {
-			$pointeur_champ->param[] = $res;
-		}
-	}
-	// pour les balises avec faux filtres qui boudent ce dur larbeur
-	$pointeur_champ->fonctions[] = array($fonc, $source);
-
-	return $result;
+    preg_match(",^(\|?[^}{)|]*)(.*)$,ms", $texte, $match);
+    $suite = ltrim($match[2]);
+    $fonc = trim($match[1]);
+    if ($fonc && $fonc[0] == "|") {
+        $fonc = ltrim(substr($fonc, 1));
+    }
+    $res = array($fonc);
+    $err_f = '';
+    // cas du filtre sans argument ou du critere /
+    if (($suite && ($suite[0] != '{')) || ($fonc && $fonc[0] == '/')) {
+        // si pas d'argument, alors il faut une fonction ou un double |
+        if (!$match[1]) {
+            $err_f = array('zbug_erreur_filtre', array('filtre' => $texte));
+            erreur_squelette($err_f, $pointeur_champ);
+            $texte = '';
+        } else {
+            $texte = $suite;
+        }
+        if ($err_f) {
+            $pointeur_champ->param = false;
+        } elseif ($fonc !== '') {
+            $pointeur_champ->param[] = $res;
+        }
+        // pour les balises avec faux filtres qui boudent ce dur larbeur
+        $pointeur_champ->fonctions[] = array($fonc, '');
+
+        return $result;
+    }
+    $args = ltrim(substr($suite, 1)); // virer le '(' initial
+    $collecte = array();
+    while ($args && $args[0] != '}') {
+        if ($args[0] == '"') {
+            preg_match('/^(")([^"]*)(")(.*)$/ms', $args, $regs);
+        } elseif ($args[0] == "'") {
+            preg_match("/^(')([^']*)(')(.*)$/ms", $args, $regs);
+        } else {
+            preg_match("/^([[:space:]]*)([^,([{}]*([(\[{][^])}]*[])}])?[^,}]*)([,}].*)$/ms", $args, $regs);
+            if (!strlen($regs[2])) {
+                $err_f = array('zbug_erreur_filtre', array('filtre' => $args));
+                erreur_squelette($err_f, $pointeur_champ);
+                $champ = new Texte;
+                $champ->apres = $champ->avant = $args = "";
+                break;
+            }
+        }
+        $arg = $regs[2];
+        if (trim($regs[1])) {
+            $champ = new Texte;
+            $champ->texte = $arg;
+            $champ->apres = $champ->avant = $regs[1];
+            $result[] = $champ;
+            $collecte[] = $champ;
+            $args = ltrim($regs[count($regs) - 1]);
+        } else {
+            if (!preg_match("/" . NOM_DE_CHAMP . "([{|])/", $arg, $r)) {
+                // 0 est un aveu d'impuissance. A completer
+                $arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
+
+                $args = ltrim($regs[count($regs) - 1]);
+                $collecte = array_merge($collecte, $arg);
+                $result = array_merge($result, $arg);
+            } else {
+                $n = strpos($args, $r[0]);
+                $pred = substr($args, 0, $n);
+                $par = ',}';
+                if (preg_match('/^(.*)\($/', $pred, $m)) {
+                    $pred = $m[1];
+                    $par = ')';
+                }
+                if ($pred) {
+                    $champ = new Texte;
+                    $champ->texte = $pred;
+                    $champ->apres = $champ->avant = "";
+                    $result[] = $champ;
+                    $collecte[] = $champ;
+                }
+                $rec = substr($args, $n + strlen($r[0]) - 1);
+                $champ = new Champ;
+                $champ->nom_boucle = $r[2];
+                $champ->nom_champ = $r[3];
+                $champ->etoile = $r[5];
+                $next = $r[6];
+                while ($next == '{') {
+                    phraser_arg($rec, $sep, array(), $champ);
+                    $args = ltrim($rec);
+                    $next = isset($args[0]) ? $args[0] : '';
+                }
+                while ($next == '|') {
+                    phraser_args($rec, $par, $sep, array(), $champ);
+                    $args = $champ->apres;
+                    $champ->apres = '';
+                    $next = isset($args[0]) ? $args[0] : '';
+                }
+                // Si erreur de syntaxe dans un sous-argument, propager.
+                if ($champ->param === false) {
+                    $err_f = true;
+                } else {
+                    phraser_vieux($champ);
+                }
+                if ($par == ')') {
+                    $args = substr($args, 1);
+                }
+                $collecte[] = $champ;
+                $result[] = $champ;
+            }
+        }
+        if (isset($args[0]) and $args[0] == ',') {
+            $args = ltrim(substr($args, 1));
+            if ($collecte) {
+                $res[] = $collecte;
+                $collecte = array();
+            }
+        }
+    }
+    if ($collecte) {
+        $res[] = $collecte;
+        $collecte = array();
+    }
+    $texte = substr($args, 1);
+    $source = substr($suite, 0, strlen($suite) - strlen($texte));
+    // propager les erreurs, et ignorer les param vides
+    if ($pointeur_champ->param !== false) {
+        if ($err_f) {
+            $pointeur_champ->param = false;
+        } elseif ($fonc !== '' || count($res) > 1) {
+            $pointeur_champ->param[] = $res;
+        }
+    }
+    // pour les balises avec faux filtres qui boudent ce dur larbeur
+    $pointeur_champ->fonctions[] = array($fonc, $source);
+
+    return $result;
 }
 
 
 // http://code.spip.net/@phraser_champs_exterieurs
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested) {
-	$res = array();
-	while (($p = strpos($texte, "%$sep")) !== false) {
-		if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m)) {
-			break;
-		}
-		$debut = substr($texte, 0, $p);
-		$texte = substr($texte, $p + strlen($m[0]));
-		if ($p) {
-			$res = phraser_inclure($debut, $ligne, $res);
-		}
-		$ligne += substr_count($debut, "\n");
-		$res[] = $nested[$m[1]];
-	}
-
-	return (($texte === '') ? $res : phraser_inclure($texte, $ligne, $res));
+    $res = array();
+    while (($p = strpos($texte, "%$sep")) !== false) {
+        if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m)) {
+            break;
+        }
+        $debut = substr($texte, 0, $p);
+        $texte = substr($texte, $p + strlen($m[0]));
+        if ($p) {
+            $res = phraser_inclure($debut, $ligne, $res);
+        }
+        $ligne += substr_count($debut, "\n");
+        $res[] = $nested[$m[1]];
+    }
+
+    return (($texte === '') ? $res : phraser_inclure($texte, $ligne, $res));
 }
 
 // http://code.spip.net/@phraser_champs_interieurs
 function phraser_champs_interieurs($texte, $ligne, $sep, $result) {
-	$i = 0; // en fait count($result)
-	$x = "";
-
-	while (true) {
-		$j = $i;
-		$n = $ligne;
-		while (preg_match(CHAMP_ETENDU, $texte, $match)) {
-			$p = strpos($texte, $match[0]);
-			$debut = substr($texte, 0, $p);
-			if ($p) {
-				$result[$i] = $debut;
-				$i++;
-			}
-			$nom = $match[4];
-			$champ = new Champ;
-			// ca ne marche pas encore en cas de champ imbrique
-			$champ->ligne = $x ? 0 : ($n + substr_count($debut, "\n"));
-			$champ->nom_boucle = $match[3];
-			$champ->nom_champ = $nom;
-			$champ->etoile = $match[6];
-			// phraser_args indiquera ou commence apres
-			$result = phraser_args($match[7], ")", $sep, $result, $champ);
-			phraser_vieux($champ);
-			$champ->avant =
-				phraser_champs_exterieurs($match[1], $n, $sep, $result);
-			$debut = substr($champ->apres, 1);
-			if (!empty($debut)) {
-				$n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
-			}
-			$champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
-
-			$result[$i] = $champ;
-			$i++;
-			$texte = substr($texte, $p + strlen($match[0]));
-		}
-		if ($texte !== "") {
-			$result[$i] = $texte;
-			$i++;
-		}
-		$x = '';
-
-		while ($j < $i) {
-			$z = $result[$j];
-			// j'aurais besoin de connaitre le nombre de lignes...
-			if (is_object($z)) {
-				$x .= "%$sep$j@";
-			} else {
-				$x .= $z;
-			}
-			$j++;
-		}
-		if (preg_match(CHAMP_ETENDU, $x)) {
-			$texte = $x;
-		} else {
-			return phraser_champs_exterieurs($x, $ligne, $sep, $result);
-		}
-	}
+    $i = 0; // en fait count($result)
+    $x = "";
+
+    while (true) {
+        $j = $i;
+        $n = $ligne;
+        while (preg_match(CHAMP_ETENDU, $texte, $match)) {
+            $p = strpos($texte, $match[0]);
+            $debut = substr($texte, 0, $p);
+            if ($p) {
+                $result[$i] = $debut;
+                $i++;
+            }
+            $nom = $match[4];
+            $champ = new Champ;
+            // ca ne marche pas encore en cas de champ imbrique
+            $champ->ligne = $x ? 0 : ($n + substr_count($debut, "\n"));
+            $champ->nom_boucle = $match[3];
+            $champ->nom_champ = $nom;
+            $champ->etoile = $match[6];
+            // phraser_args indiquera ou commence apres
+            $result = phraser_args($match[7], ")", $sep, $result, $champ);
+            phraser_vieux($champ);
+            $champ->avant =
+                phraser_champs_exterieurs($match[1], $n, $sep, $result);
+            $debut = substr($champ->apres, 1);
+            if (!empty($debut)) {
+                $n += substr_count(substr($texte, 0, strpos($texte, $debut)), "\n");
+            }
+            $champ->apres = phraser_champs_exterieurs($debut, $n, $sep, $result);
+
+            $result[$i] = $champ;
+            $i++;
+            $texte = substr($texte, $p + strlen($match[0]));
+        }
+        if ($texte !== "") {
+            $result[$i] = $texte;
+            $i++;
+        }
+        $x = '';
+
+        while ($j < $i) {
+            $z = $result[$j];
+            // j'aurais besoin de connaitre le nombre de lignes...
+            if (is_object($z)) {
+                $x .= "%$sep$j@";
+            } else {
+                $x .= $z;
+            }
+            $j++;
+        }
+        if (preg_match(CHAMP_ETENDU, $x)) {
+            $texte = $x;
+        } else {
+            return phraser_champs_exterieurs($x, $ligne, $sep, $result);
+        }
+    }
 }
 
 function phraser_vieux(&$champ) {
-	$nom = $champ->nom_champ;
-	if ($nom == 'EMBED_DOCUMENT') {
-		if (!function_exists('phraser_vieux_emb')) {
-			include_spip('public/normaliser');
-		}
-		phraser_vieux_emb($champ);
-	} elseif ($nom == 'EXPOSER') {
-		if (!function_exists('phraser_vieux_exposer')) {
-			include_spip('public/normaliser');
-		}
-		phraser_vieux_exposer($champ);
-	} elseif ($champ->param) {
-		if ($nom == 'FORMULAIRE_RECHERCHE') {
-			if (!function_exists('phraser_vieux_recherche')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_recherche($champ);
-		} elseif (preg_match(",^LOGO_[A-Z]+,", $nom)) {
-			if (!function_exists('phraser_vieux_logos')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_logos($champ);
-		} elseif ($nom == 'MODELE') {
-			if (!function_exists('phraser_vieux_modele')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_modele($champ);
-		} elseif ($nom == 'INCLURE' or $nom == 'INCLUDE') {
-			if (!function_exists('phraser_vieux_inclu')) {
-				include_spip('public/normaliser');
-			}
-			phraser_vieux_inclu($champ);
-		}
-	}
+    $nom = $champ->nom_champ;
+    if ($nom == 'EMBED_DOCUMENT') {
+        if (!function_exists('phraser_vieux_emb')) {
+            include_spip('public/normaliser');
+        }
+        phraser_vieux_emb($champ);
+    } elseif ($nom == 'EXPOSER') {
+        if (!function_exists('phraser_vieux_exposer')) {
+            include_spip('public/normaliser');
+        }
+        phraser_vieux_exposer($champ);
+    } elseif ($champ->param) {
+        if ($nom == 'FORMULAIRE_RECHERCHE') {
+            if (!function_exists('phraser_vieux_recherche')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_recherche($champ);
+        } elseif (preg_match(",^LOGO_[A-Z]+,", $nom)) {
+            if (!function_exists('phraser_vieux_logos')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_logos($champ);
+        } elseif ($nom == 'MODELE') {
+            if (!function_exists('phraser_vieux_modele')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_modele($champ);
+        } elseif ($nom == 'INCLURE' or $nom == 'INCLUDE') {
+            if (!function_exists('phraser_vieux_inclu')) {
+                include_spip('public/normaliser');
+            }
+            phraser_vieux_inclu($champ);
+        }
+    }
 }
 
 
@@ -571,369 +571,369 @@ 
  **/
 function phraser_criteres($params, &$result) {
 
-	$err_ci = ''; // indiquera s'il y a eu une erreur
-	$args = array();
-	$type = $result->type_requete;
-	$doublons = array();
-	foreach ($params as $v) {
-		$var = $v[1][0];
-		$param = ($var->type != 'texte') ? "" : $var->texte;
-		if ((count($v) > 2) && (!preg_match(",[^A-Za-z]IN[^A-Za-z],i", $param))) {
-			// plus d'un argument et pas le critere IN:
-			// detecter comme on peut si c'est le critere implicite LIMIT debut, fin
-			if ($var->type != 'texte'
-				or preg_match("/^(n|n-|(n-)?\d+)$/S", $param)
-			) {
-				$op = ',';
-				$not = "";
-				$cond = false;
-			} else {
-				// Le debut du premier argument est l'operateur
-				preg_match("/^([!]?)([a-zA-Z][a-zA-Z0-9_]*)[[:space:]]*(\??)[[:space:]]*(.*)$/ms", $param, $m);
-				$op = $m[2];
-				$not = $m[1];
-				$cond = $m[3];
-				// virer le premier argument,
-				// et mettre son reliquat eventuel
-				// Recopier pour ne pas alterer le texte source
-				// utile au debusqueur
-				if ($m[4]) {
-					// une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
-					if (preg_match(',^(["\'])(.*)\1$,', $m[4])) {
-						$c = null;
-						eval('$c = ' . $m[4] . ';');
-						if (isset($c)) {
-							$m[4] = $c;
-						}
-					}
-					$texte = new Texte;
-					$texte->texte = $m[4];
-					$v[1][0] = $texte;
-				} else {
-					array_shift($v[1]);
-				}
-			}
-			array_shift($v); // $v[O] est vide
-			$crit = new Critere;
-			$crit->op = $op;
-			$crit->not = $not;
-			$crit->cond = $cond;
-			$crit->exclus = "";
-			$crit->param = $v;
-			$args[] = $crit;
-		} else {
-			if ($var->type != 'texte') {
-				// cas 1 seul arg ne commencant pas par du texte brut: 
-				// erreur ou critere infixe "/"
-				if (($v[1][1]->type != 'texte') || (trim($v[1][1]->texte) != '/')) {
-					$err_ci = array(
-						'zbug_critere_inconnu',
-						array('critere' => $var->nom_champ)
-					);
-					erreur_squelette($err_ci, $result);
-				} else {
-					$crit = new Critere;
-					$crit->op = '/';
-					$crit->not = "";
-					$crit->exclus = "";
-					$crit->param = array(array($v[1][0]), array($v[1][2]));
-					$args[] = $crit;
-				}
-			} else {
-				// traiter qq lexemes particuliers pour faciliter la suite
-				// les separateurs
-				if ($var->apres) {
-					$result->separateur[] = $param;
-				} elseif (($param == 'tout') or ($param == 'tous')) {
-					$result->modificateur['tout'] = true;
-				} elseif ($param == 'plat') {
-					$result->modificateur['plat'] = true;
-				}
-
-				// Boucle hierarchie, analyser le critere id_rubrique
-				// et les autres critères {id_x} pour forcer {tout} sur
-				// ceux-ci pour avoir la rubrique mere...
-				// Les autres critères de la boucle hierarchie doivent être
-				// traités normalement.
-				elseif (strcasecmp($type, 'hierarchie') == 0
-					and !preg_match(",^id_rubrique\b,", $param)
-					and preg_match(",^id_\w+\s*$,", $param)
-				) {
-					$result->modificateur['tout'] = true;
-				} elseif (strcasecmp($type, 'hierarchie') == 0 and $param == "id_rubrique") {
-					// rien a faire sur {id_rubrique} tout seul
-				} else {
-					// pas d'emplacement statique, faut un dynamique
-					// mais il y a 2 cas qui ont les 2 !
-					if (($param == 'unique') || (preg_match(',^!?doublons *,', $param))) {
-						// cette variable sera inseree dans le code
-						// et son nom sert d'indicateur des maintenant
-						$result->doublons = '$doublons_index';
-						if ($param == 'unique') {
-							$param = 'doublons';
-						}
-					} elseif ($param == 'recherche') {
-						// meme chose (a cause de #nom_de_boucle:URL_*)
-						$result->hash = ' ';
-					}
-
-					if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)) {
-						$crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
-					} elseif (preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
-						')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)) {
-						$a2 = trim($m[8]);
-						if ($a2 and ($a2[0] == "'" or $a2[0] == '"') and ($a2[0] == substr($a2, -1))) {
-							$a2 = substr($a2, 1, -1);
-						}
-						$crit = phraser_critere_infixe($m[2], $a2, $v,
-							(($m[2] == 'lang_select') ? $m[2] : $m[7]),
-							$m[6], $m[5]);
-						$crit->exclus = $m[1];
-					} elseif (preg_match("/^([!]?)\s*(" .
-						CHAMP_SQL_PLUS_FONC .
-						")\s*(\??)(.*)$/is", $param, $m)) {
-						// contient aussi les comparaisons implicites !
-						// Comme ci-dessus: 
-						// le premier arg contient l'operateur
-						array_shift($v);
-						if ($m[6]) {
-							$v[0][0] = new Texte;
-							$v[0][0]->texte = $m[6];
-						} else {
-							array_shift($v[0]);
-							if (!$v[0]) {
-								array_shift($v);
-							}
-						}
-						$crit = new Critere;
-						$crit->op = $m[2];
-						$crit->param = $v;
-						$crit->not = $m[1];
-						$crit->cond = $m[5];
-					} else {
-						$err_ci = array(
-							'zbug_critere_inconnu',
-							array('critere' => $param)
-						);
-						erreur_squelette($err_ci, $result);
-					}
-
-					if ((!preg_match(',^!?doublons *,', $param)) || $crit->not) {
-						$args[] = $crit;
-					} else {
-						$doublons[] = $crit;
-					}
-				}
-			}
-		}
-	}
-
-	// les doublons non nies doivent etre le dernier critere
-	// pour que la variable $doublon_index ait la bonne valeur
-	// cf critere_doublon
-	if ($doublons) {
-		$args = array_merge($args, $doublons);
-	}
-
-	// Si erreur, laisser la chaine dans ce champ pour le HTTP 503
-	if (!$err_ci) {
-		$result->criteres = $args;
-	}
+    $err_ci = ''; // indiquera s'il y a eu une erreur
+    $args = array();
+    $type = $result->type_requete;
+    $doublons = array();
+    foreach ($params as $v) {
+        $var = $v[1][0];
+        $param = ($var->type != 'texte') ? "" : $var->texte;
+        if ((count($v) > 2) && (!preg_match(",[^A-Za-z]IN[^A-Za-z],i", $param))) {
+            // plus d'un argument et pas le critere IN:
+            // detecter comme on peut si c'est le critere implicite LIMIT debut, fin
+            if ($var->type != 'texte'
+                or preg_match("/^(n|n-|(n-)?\d+)$/S", $param)
+            ) {
+                $op = ',';
+                $not = "";
+                $cond = false;
+            } else {
+                // Le debut du premier argument est l'operateur
+                preg_match("/^([!]?)([a-zA-Z][a-zA-Z0-9_]*)[[:space:]]*(\??)[[:space:]]*(.*)$/ms", $param, $m);
+                $op = $m[2];
+                $not = $m[1];
+                $cond = $m[3];
+                // virer le premier argument,
+                // et mettre son reliquat eventuel
+                // Recopier pour ne pas alterer le texte source
+                // utile au debusqueur
+                if ($m[4]) {
+                    // une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
+                    if (preg_match(',^(["\'])(.*)\1$,', $m[4])) {
+                        $c = null;
+                        eval('$c = ' . $m[4] . ';');
+                        if (isset($c)) {
+                            $m[4] = $c;
+                        }
+                    }
+                    $texte = new Texte;
+                    $texte->texte = $m[4];
+                    $v[1][0] = $texte;
+                } else {
+                    array_shift($v[1]);
+                }
+            }
+            array_shift($v); // $v[O] est vide
+            $crit = new Critere;
+            $crit->op = $op;
+            $crit->not = $not;
+            $crit->cond = $cond;
+            $crit->exclus = "";
+            $crit->param = $v;
+            $args[] = $crit;
+        } else {
+            if ($var->type != 'texte') {
+                // cas 1 seul arg ne commencant pas par du texte brut: 
+                // erreur ou critere infixe "/"
+                if (($v[1][1]->type != 'texte') || (trim($v[1][1]->texte) != '/')) {
+                    $err_ci = array(
+                        'zbug_critere_inconnu',
+                        array('critere' => $var->nom_champ)
+                    );
+                    erreur_squelette($err_ci, $result);
+                } else {
+                    $crit = new Critere;
+                    $crit->op = '/';
+                    $crit->not = "";
+                    $crit->exclus = "";
+                    $crit->param = array(array($v[1][0]), array($v[1][2]));
+                    $args[] = $crit;
+                }
+            } else {
+                // traiter qq lexemes particuliers pour faciliter la suite
+                // les separateurs
+                if ($var->apres) {
+                    $result->separateur[] = $param;
+                } elseif (($param == 'tout') or ($param == 'tous')) {
+                    $result->modificateur['tout'] = true;
+                } elseif ($param == 'plat') {
+                    $result->modificateur['plat'] = true;
+                }
+
+                // Boucle hierarchie, analyser le critere id_rubrique
+                // et les autres critères {id_x} pour forcer {tout} sur
+                // ceux-ci pour avoir la rubrique mere...
+                // Les autres critères de la boucle hierarchie doivent être
+                // traités normalement.
+                elseif (strcasecmp($type, 'hierarchie') == 0
+                    and !preg_match(",^id_rubrique\b,", $param)
+                    and preg_match(",^id_\w+\s*$,", $param)
+                ) {
+                    $result->modificateur['tout'] = true;
+                } elseif (strcasecmp($type, 'hierarchie') == 0 and $param == "id_rubrique") {
+                    // rien a faire sur {id_rubrique} tout seul
+                } else {
+                    // pas d'emplacement statique, faut un dynamique
+                    // mais il y a 2 cas qui ont les 2 !
+                    if (($param == 'unique') || (preg_match(',^!?doublons *,', $param))) {
+                        // cette variable sera inseree dans le code
+                        // et son nom sert d'indicateur des maintenant
+                        $result->doublons = '$doublons_index';
+                        if ($param == 'unique') {
+                            $param = 'doublons';
+                        }
+                    } elseif ($param == 'recherche') {
+                        // meme chose (a cause de #nom_de_boucle:URL_*)
+                        $result->hash = ' ';
+                    }
+
+                    if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)) {
+                        $crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
+                    } elseif (preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
+                        ')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)) {
+                        $a2 = trim($m[8]);
+                        if ($a2 and ($a2[0] == "'" or $a2[0] == '"') and ($a2[0] == substr($a2, -1))) {
+                            $a2 = substr($a2, 1, -1);
+                        }
+                        $crit = phraser_critere_infixe($m[2], $a2, $v,
+                            (($m[2] == 'lang_select') ? $m[2] : $m[7]),
+                            $m[6], $m[5]);
+                        $crit->exclus = $m[1];
+                    } elseif (preg_match("/^([!]?)\s*(" .
+                        CHAMP_SQL_PLUS_FONC .
+                        ")\s*(\??)(.*)$/is", $param, $m)) {
+                        // contient aussi les comparaisons implicites !
+                        // Comme ci-dessus: 
+                        // le premier arg contient l'operateur
+                        array_shift($v);
+                        if ($m[6]) {
+                            $v[0][0] = new Texte;
+                            $v[0][0]->texte = $m[6];
+                        } else {
+                            array_shift($v[0]);
+                            if (!$v[0]) {
+                                array_shift($v);
+                            }
+                        }
+                        $crit = new Critere;
+                        $crit->op = $m[2];
+                        $crit->param = $v;
+                        $crit->not = $m[1];
+                        $crit->cond = $m[5];
+                    } else {
+                        $err_ci = array(
+                            'zbug_critere_inconnu',
+                            array('critere' => $param)
+                        );
+                        erreur_squelette($err_ci, $result);
+                    }
+
+                    if ((!preg_match(',^!?doublons *,', $param)) || $crit->not) {
+                        $args[] = $crit;
+                    } else {
+                        $doublons[] = $crit;
+                    }
+                }
+            }
+        }
+    }
+
+    // les doublons non nies doivent etre le dernier critere
+    // pour que la variable $doublon_index ait la bonne valeur
+    // cf critere_doublon
+    if ($doublons) {
+        $args = array_merge($args, $doublons);
+    }
+
+    // Si erreur, laisser la chaine dans ce champ pour le HTTP 503
+    if (!$err_ci) {
+        $result->criteres = $args;
+    }
 }
 
 // http://code.spip.net/@phraser_critere_infixe
 function phraser_critere_infixe($arg1, $arg2, $args, $op, $not, $cond) {
-	$args[0] = new Texte;
-	$args[0]->texte = $arg1;
-	$args[0] = array($args[0]);
-	$args[1][0] = new Texte;
-	$args[1][0]->texte = $arg2;
-	$crit = new Critere;
-	$crit->op = $op;
-	$crit->not = $not;
-	$crit->cond = $cond;
-	$crit->param = $args;
-
-	return $crit;
+    $args[0] = new Texte;
+    $args[0]->texte = $arg1;
+    $args[0] = array($args[0]);
+    $args[1][0] = new Texte;
+    $args[1][0]->texte = $arg2;
+    $crit = new Critere;
+    $crit->op = $op;
+    $crit->not = $not;
+    $crit->cond = $cond;
+    $crit->param = $args;
+
+    return $crit;
 }
 
 function public_phraser_html_dist($texte, $id_parent, &$boucles, $descr, $ligne = 1) {
 
-	$all_res = array();
+    $all_res = array();
 
-	while (($pos_boucle = strpos($texte, BALISE_BOUCLE)) !== false) {
+    while (($pos_boucle = strpos($texte, BALISE_BOUCLE)) !== false) {
 
-		$err_b = ''; // indiquera s'il y a eu une erreur
-		$result = new Boucle;
-		$result->id_parent = $id_parent;
-		$result->descr = $descr;
+        $err_b = ''; // indiquera s'il y a eu une erreur
+        $result = new Boucle;
+        $result->id_parent = $id_parent;
+        $result->descr = $descr;
 # attention: reperer la premiere des 2 balises: pre_boucle ou boucle
 
-		if (!preg_match("," . BALISE_PRE_BOUCLE . '[0-9_],', $texte, $r)
-			or ($n = strpos($texte, $r[0])) === false
-			or ($n > $pos_boucle)
-		) {
-			$debut = substr($texte, 0, $pos_boucle);
-			$milieu = substr($texte, $pos_boucle);
-			$k = strpos($milieu, '(');
-			$id_boucle = trim(substr($milieu,
-				strlen(BALISE_BOUCLE),
-				$k - strlen(BALISE_BOUCLE)));
-			$milieu = substr($milieu, $k);
-
-		} else {
-			$debut = substr($texte, 0, $n);
-			$milieu = substr($texte, $n);
-			$k = strpos($milieu, '>');
-			$id_boucle = substr($milieu,
-				strlen(BALISE_PRE_BOUCLE),
-				$k - strlen(BALISE_PRE_BOUCLE));
-
-			if (!preg_match("," . BALISE_BOUCLE . $id_boucle . "[[:space:]]*\(,", $milieu, $r)) {
-				$err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
-				erreur_squelette($err_b, $result);
-				$texte = substr($texte, $n + 1);
-				continue;
-			} else {
-				$pos_boucle = $n;
-				$n = strpos($milieu, $r[0]);
-				$result->avant = substr($milieu, $k + 1, $n - $k - 1);
-				$milieu = substr($milieu, $n + strlen($id_boucle) + strlen(BALISE_BOUCLE));
-			}
-		}
-		$result->id_boucle = $id_boucle;
-
-		preg_match(SPEC_BOUCLE, $milieu, $match);
-		$result->type_requete = $match[0];
-		$milieu = substr($milieu, strlen($match[0]));
-		$type = $match[1];
-		$jointures = trim($match[2]);
-		$table_optionnelle = ($match[3]);
-		if ($jointures) {
-			// on affecte pas ici les jointures explicites, mais dans la compilation
-			// ou elles seront completees des jointures declarees
-			$result->jointures_explicites = $jointures;
-		}
-
-		if ($table_optionnelle) {
-			$result->table_optionnelle = $type;
-		}
-
-		// 1ere passe sur les criteres, vu comme des arguments sans fct
-		// Resultat mis dans result->param
-		phraser_args($milieu, "/>", "", $all_res, $result);
-
-		// En 2e passe result->criteres contiendra un tableau
-		// pour l'instant on met le source (chaine) :
-		// si elle reste ici au final, c'est qu'elle contient une erreur
-		$result->criteres = substr($milieu, 0, @strpos($milieu, $result->apres));
-		$milieu = $result->apres;
-		$result->apres = "";
-
-		//
-		// Recuperer la fin :
-		//
-		if ($milieu[0] === '/') {
-			$suite = substr($milieu, 2);
-			$milieu = '';
-		} else {
-			$milieu = substr($milieu, 1);
-			$s = BALISE_FIN_BOUCLE . $id_boucle . ">";
-			$p = strpos($milieu, $s);
-			if ($p === false) {
-				$err_b = array(
-					'zbug_erreur_boucle_fermant',
-					array('id' => $id_boucle)
-				);
-				erreur_squelette($err_b, $result);
-			}
-
-			$suite = substr($milieu, $p + strlen($s));
-			$milieu = substr($milieu, 0, $p);
-		}
-
-		$result->milieu = $milieu;
-
-		//
-		// 1. Recuperer la partie conditionnelle apres
-		//
-		$s = BALISE_POST_BOUCLE . $id_boucle . ">";
-		$p = strpos($suite, $s);
-		if ($p !== false) {
-			$result->apres = substr($suite, 0, $p);
-			$suite = substr($suite, $p + strlen($s));
-		}
-
-		//
-		// 2. Recuperer la partie alternative
-		//
-		$s = BALISE_ALT_BOUCLE . $id_boucle . ">";
-		$p = strpos($suite, $s);
-		if ($p !== false) {
-			$result->altern = substr($suite, 0, $p);
-			$suite = substr($suite, $p + strlen($s));
-		}
-		$result->ligne = $ligne + substr_count($debut, "\n");
-		$m = substr_count($milieu, "\n");
-		$b = substr_count($result->avant, "\n");
-		$a = substr_count($result->apres, "\n");
-
-		if ($p = strpos($type, ':')) {
-			$result->sql_serveur = substr($type, 0, $p);
-			$type = substr($type, $p + 1);
-		}
-		$soustype = strtolower($type);
-
-		if (!isset($GLOBALS["table_des_tables"][$soustype])) {
-			$soustype = $type;
-		}
-
-		$result->type_requete = $soustype;
-		// Lancer la 2e passe sur les criteres si la 1ere etait bonne
-		if (!is_array($result->param)) {
-			$err_b = true;
-		} else {
-			phraser_criteres($result->param, $result);
-			if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF)) == 0) {
-				$result->type_requete = TYPE_RECURSIF;
-				$args = $result->param;
-				array_unshift($args,
-					substr($type, strlen(TYPE_RECURSIF)));
-				$result->param = $args;
-			}
-		}
-
-		$result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $result->ligne);
-		$result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $result->ligne + $b + $m);
-		$result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $result->ligne + $a + $m + $b);
-		$result->milieu = public_phraser_html_dist($milieu, $id_boucle, $boucles, $descr, $result->ligne + $b);
-
-		// Prevenir le generateur de code que le squelette est faux
-		if ($err_b) {
-			$result->type_requete = false;
-		}
-
-		// Verifier qu'il n'y a pas double definition
-		// apres analyse des sous-parties (pas avant).
-
-		if (isset($boucles[$id_boucle])) {
-			$err_b_d = array(
-				'zbug_erreur_boucle_double',
-				array('id' => $id_boucle)
-			);
-			erreur_squelette($err_b_d, $result);
-			// Prevenir le generateur de code que le squelette est faux
-			$boucles[$id_boucle]->type_requete = false;
-		} else {
-			$boucles[$id_boucle] = $result;
-		}
-		$all_res = phraser_champs_etendus($debut, $ligne, $all_res);
-		$all_res[] = &$boucles[$id_boucle];
-		if (!empty($suite)) {
-			$ligne += substr_count(substr($texte, 0, strpos($texte, $suite)), "\n");
-		}
-		$texte = $suite;
-	}
-
-	return phraser_champs_etendus($texte, $ligne, $all_res);
+        if (!preg_match("," . BALISE_PRE_BOUCLE . '[0-9_],', $texte, $r)
+            or ($n = strpos($texte, $r[0])) === false
+            or ($n > $pos_boucle)
+        ) {
+            $debut = substr($texte, 0, $pos_boucle);
+            $milieu = substr($texte, $pos_boucle);
+            $k = strpos($milieu, '(');
+            $id_boucle = trim(substr($milieu,
+                strlen(BALISE_BOUCLE),
+                $k - strlen(BALISE_BOUCLE)));
+            $milieu = substr($milieu, $k);
+
+        } else {
+            $debut = substr($texte, 0, $n);
+            $milieu = substr($texte, $n);
+            $k = strpos($milieu, '>');
+            $id_boucle = substr($milieu,
+                strlen(BALISE_PRE_BOUCLE),
+                $k - strlen(BALISE_PRE_BOUCLE));
+
+            if (!preg_match("," . BALISE_BOUCLE . $id_boucle . "[[:space:]]*\(,", $milieu, $r)) {
+                $err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
+                erreur_squelette($err_b, $result);
+                $texte = substr($texte, $n + 1);
+                continue;
+            } else {
+                $pos_boucle = $n;
+                $n = strpos($milieu, $r[0]);
+                $result->avant = substr($milieu, $k + 1, $n - $k - 1);
+                $milieu = substr($milieu, $n + strlen($id_boucle) + strlen(BALISE_BOUCLE));
+            }
+        }
+        $result->id_boucle = $id_boucle;
+
+        preg_match(SPEC_BOUCLE, $milieu, $match);
+        $result->type_requete = $match[0];
+        $milieu = substr($milieu, strlen($match[0]));
+        $type = $match[1];
+        $jointures = trim($match[2]);
+        $table_optionnelle = ($match[3]);
+        if ($jointures) {
+            // on affecte pas ici les jointures explicites, mais dans la compilation
+            // ou elles seront completees des jointures declarees
+            $result->jointures_explicites = $jointures;
+        }
+
+        if ($table_optionnelle) {
+            $result->table_optionnelle = $type;
+        }
+
+        // 1ere passe sur les criteres, vu comme des arguments sans fct
+        // Resultat mis dans result->param
+        phraser_args($milieu, "/>", "", $all_res, $result);
+
+        // En 2e passe result->criteres contiendra un tableau
+        // pour l'instant on met le source (chaine) :
+        // si elle reste ici au final, c'est qu'elle contient une erreur
+        $result->criteres = substr($milieu, 0, @strpos($milieu, $result->apres));
+        $milieu = $result->apres;
+        $result->apres = "";
+
+        //
+        // Recuperer la fin :
+        //
+        if ($milieu[0] === '/') {
+            $suite = substr($milieu, 2);
+            $milieu = '';
+        } else {
+            $milieu = substr($milieu, 1);
+            $s = BALISE_FIN_BOUCLE . $id_boucle . ">";
+            $p = strpos($milieu, $s);
+            if ($p === false) {
+                $err_b = array(
+                    'zbug_erreur_boucle_fermant',
+                    array('id' => $id_boucle)
+                );
+                erreur_squelette($err_b, $result);
+            }
+
+            $suite = substr($milieu, $p + strlen($s));
+            $milieu = substr($milieu, 0, $p);
+        }
+
+        $result->milieu = $milieu;
+
+        //
+        // 1. Recuperer la partie conditionnelle apres
+        //
+        $s = BALISE_POST_BOUCLE . $id_boucle . ">";
+        $p = strpos($suite, $s);
+        if ($p !== false) {
+            $result->apres = substr($suite, 0, $p);
+            $suite = substr($suite, $p + strlen($s));
+        }
+
+        //
+        // 2. Recuperer la partie alternative
+        //
+        $s = BALISE_ALT_BOUCLE . $id_boucle . ">";
+        $p = strpos($suite, $s);
+        if ($p !== false) {
+            $result->altern = substr($suite, 0, $p);
+            $suite = substr($suite, $p + strlen($s));
+        }
+        $result->ligne = $ligne + substr_count($debut, "\n");
+        $m = substr_count($milieu, "\n");
+        $b = substr_count($result->avant, "\n");
+        $a = substr_count($result->apres, "\n");
+
+        if ($p = strpos($type, ':')) {
+            $result->sql_serveur = substr($type, 0, $p);
+            $type = substr($type, $p + 1);
+        }
+        $soustype = strtolower($type);
+
+        if (!isset($GLOBALS["table_des_tables"][$soustype])) {
+            $soustype = $type;
+        }
+
+        $result->type_requete = $soustype;
+        // Lancer la 2e passe sur les criteres si la 1ere etait bonne
+        if (!is_array($result->param)) {
+            $err_b = true;
+        } else {
+            phraser_criteres($result->param, $result);
+            if (strncasecmp($soustype, TYPE_RECURSIF, strlen(TYPE_RECURSIF)) == 0) {
+                $result->type_requete = TYPE_RECURSIF;
+                $args = $result->param;
+                array_unshift($args,
+                    substr($type, strlen(TYPE_RECURSIF)));
+                $result->param = $args;
+            }
+        }
+
+        $result->avant = public_phraser_html_dist($result->avant, $id_parent, $boucles, $descr, $result->ligne);
+        $result->apres = public_phraser_html_dist($result->apres, $id_parent, $boucles, $descr, $result->ligne + $b + $m);
+        $result->altern = public_phraser_html_dist($result->altern, $id_parent, $boucles, $descr, $result->ligne + $a + $m + $b);
+        $result->milieu = public_phraser_html_dist($milieu, $id_boucle, $boucles, $descr, $result->ligne + $b);
+
+        // Prevenir le generateur de code que le squelette est faux
+        if ($err_b) {
+            $result->type_requete = false;
+        }
+
+        // Verifier qu'il n'y a pas double definition
+        // apres analyse des sous-parties (pas avant).
+
+        if (isset($boucles[$id_boucle])) {
+            $err_b_d = array(
+                'zbug_erreur_boucle_double',
+                array('id' => $id_boucle)
+            );
+            erreur_squelette($err_b_d, $result);
+            // Prevenir le generateur de code que le squelette est faux
+            $boucles[$id_boucle]->type_requete = false;
+        } else {
+            $boucles[$id_boucle] = $result;
+        }
+        $all_res = phraser_champs_etendus($debut, $ligne, $all_res);
+        $all_res[] = &$boucles[$id_boucle];
+        if (!empty($suite)) {
+            $ligne += substr_count(substr($texte, 0, strpos($texte, $suite)), "\n");
+        }
+        $texte = $suite;
+    }
+
+    return phraser_champs_etendus($texte, $ligne, $all_res);
 }

Spacing +16 added lines, -16 removed lines

@@ -44,19 +44,19 @@ 
  * Nom d'une balise #TOTO
  *
  * Écriture alambiquée pour rester compatible avec les hexadecimaux des vieux squelettes */
-define('NOM_DE_CHAMP', "#((" . NOM_DE_BOUCLE . "):)?(([A-F]*[G-Z_][A-Z_0-9]*)|[A-Z_]+)\b(\*{0,2})");
+define('NOM_DE_CHAMP', "#((".NOM_DE_BOUCLE."):)?(([A-F]*[G-Z_][A-Z_0-9]*)|[A-Z_]+)\b(\*{0,2})");
 /** Balise complète [...(#TOTO) ... ] */
-define('CHAMP_ETENDU', '/\[([^]\[]*)\(' . NOM_DE_CHAMP . '([^[)]*\)[^]\[]*)\]/S');
+define('CHAMP_ETENDU', '/\[([^]\[]*)\('.NOM_DE_CHAMP.'([^[)]*\)[^]\[]*)\]/S');
 
 define('BALISE_INCLURE', '/<INCLU[DR]E[[:space:]]*(\(([^)]*)\))?/S');
 define('BALISE_POLYGLOTTE', ',<multi>(.*)</multi>,Uims');
 define('BALISE_IDIOMES', ',<:(([a-z0-9_]+):)?([a-z0-9_]*)({([^\|=>]*=[^\|>]*)})?((\|[^>]*)?:/?>),iS');
-define('BALISE_IDIOMES_ARGS', '@^\s*([^= ]*)\s*=\s*((' . NOM_DE_CHAMP . '[{][^}]*})?[^,]*)\s*,?\s*@s');
+define('BALISE_IDIOMES_ARGS', '@^\s*([^= ]*)\s*=\s*(('.NOM_DE_CHAMP.'[{][^}]*})?[^,]*)\s*,?\s*@s');
 
 /** Champ sql dans parenthèse ex: (id_article) */
 define('SQL_ARGS', '(\([^)]*\))');
 /** Fonction SQL sur un champ ex: SUM(visites) */
-define('CHAMP_SQL_PLUS_FONC', '`?([A-Z_\/][A-Z_\/0-9.]*)' . SQL_ARGS . '?`?');
+define('CHAMP_SQL_PLUS_FONC', '`?([A-Z_\/][A-Z_\/0-9.]*)'.SQL_ARGS.'?`?');
 
 // http://code.spip.net/@phraser_inclure
 function phraser_inclure($texte, $ligne, $result) {
@@ -211,7 +211,7 @@ 
  * @return array
  **/
 function phraser_champs($texte, $ligne, $result) {
-	while (preg_match("/" . NOM_DE_CHAMP . "/S", $texte, $match)) {
+	while (preg_match("/".NOM_DE_CHAMP."/S", $texte, $match)) {
 		$p = strpos($texte, $match[0]);
 		// texte après la balise
 		$suite = substr($texte, $p + strlen($match[0]));
@@ -348,7 +348,7 @@ 
 			$collecte[] = $champ;
 			$args = ltrim($regs[count($regs) - 1]);
 		} else {
-			if (!preg_match("/" . NOM_DE_CHAMP . "([{|])/", $arg, $r)) {
+			if (!preg_match("/".NOM_DE_CHAMP."([{|])/", $arg, $r)) {
 				// 0 est un aveu d'impuissance. A completer
 				$arg = phraser_champs_exterieurs($arg, 0, $sep, $result);
 
@@ -433,7 +433,7 @@ 
 function phraser_champs_exterieurs($texte, $ligne, $sep, $nested) {
 	$res = array();
 	while (($p = strpos($texte, "%$sep")) !== false) {
-		if (!preg_match(',^%' . preg_quote($sep) . '([0-9]+)@,', substr($texte, $p), $m)) {
+		if (!preg_match(',^%'.preg_quote($sep).'([0-9]+)@,', substr($texte, $p), $m)) {
 			break;
 		}
 		$debut = substr($texte, 0, $p);
@@ -601,7 +601,7 @@ 
 					// une maniere tres sale de supprimer les "' autour de {critere "xxx","yyy"}
 					if (preg_match(',^(["\'])(.*)\1$,', $m[4])) {
 						$c = null;
-						eval('$c = ' . $m[4] . ';');
+						eval('$c = '.$m[4].';');
 						if (isset($c)) {
 							$m[4] = $c;
 						}
@@ -679,7 +679,7 @@ 
 
 					if (preg_match(',^ *([0-9-]+) *(/) *(.+) *$,', $param, $m)) {
 						$crit = phraser_critere_infixe($m[1], $m[3], $v, '/', '', '');
-					} elseif (preg_match(',^([!]?)(' . CHAMP_SQL_PLUS_FONC .
+					} elseif (preg_match(',^([!]?)('.CHAMP_SQL_PLUS_FONC.
 						')[[:space:]]*(\??)(!?)(<=?|>=?|==?|\b(?:IN|LIKE)\b)(.*)$,is', $param, $m)) {
 						$a2 = trim($m[8]);
 						if ($a2 and ($a2[0] == "'" or $a2[0] == '"') and ($a2[0] == substr($a2, -1))) {
@@ -689,8 +689,8 @@ 
 							(($m[2] == 'lang_select') ? $m[2] : $m[7]),
 							$m[6], $m[5]);
 						$crit->exclus = $m[1];
-					} elseif (preg_match("/^([!]?)\s*(" .
-						CHAMP_SQL_PLUS_FONC .
+					} elseif (preg_match("/^([!]?)\s*(".
+						CHAMP_SQL_PLUS_FONC.
 						")\s*(\??)(.*)$/is", $param, $m)) {
 						// contient aussi les comparaisons implicites !
 						// Comme ci-dessus: 
@@ -769,7 +769,7 @@ 
 		$result->descr = $descr;
 # attention: reperer la premiere des 2 balises: pre_boucle ou boucle
 
-		if (!preg_match("," . BALISE_PRE_BOUCLE . '[0-9_],', $texte, $r)
+		if (!preg_match(",".BALISE_PRE_BOUCLE.'[0-9_],', $texte, $r)
 			or ($n = strpos($texte, $r[0])) === false
 			or ($n > $pos_boucle)
 		) {
@@ -789,7 +789,7 @@ 
 				strlen(BALISE_PRE_BOUCLE),
 				$k - strlen(BALISE_PRE_BOUCLE));
 
-			if (!preg_match("," . BALISE_BOUCLE . $id_boucle . "[[:space:]]*\(,", $milieu, $r)) {
+			if (!preg_match(",".BALISE_BOUCLE.$id_boucle."[[:space:]]*\(,", $milieu, $r)) {
 				$err_b = array('zbug_erreur_boucle_syntaxe', array('id' => $id_boucle));
 				erreur_squelette($err_b, $result);
 				$texte = substr($texte, $n + 1);
@@ -838,7 +838,7 @@ 
 			$milieu = '';
 		} else {
 			$milieu = substr($milieu, 1);
-			$s = BALISE_FIN_BOUCLE . $id_boucle . ">";
+			$s = BALISE_FIN_BOUCLE.$id_boucle.">";
 			$p = strpos($milieu, $s);
 			if ($p === false) {
 				$err_b = array(
@@ -857,7 +857,7 @@ 
 		//
 		// 1. Recuperer la partie conditionnelle apres
 		//
-		$s = BALISE_POST_BOUCLE . $id_boucle . ">";
+		$s = BALISE_POST_BOUCLE.$id_boucle.">";
 		$p = strpos($suite, $s);
 		if ($p !== false) {
 			$result->apres = substr($suite, 0, $p);
@@ -867,7 +867,7 @@ 
 		//
 		// 2. Recuperer la partie alternative
 		//
-		$s = BALISE_ALT_BOUCLE . $id_boucle . ">";
+		$s = BALISE_ALT_BOUCLE.$id_boucle.">";
 		$p = strpos($suite, $s);
 		if ($p !== false) {
 			$result->altern = substr($suite, 0, $p);

ecrire/req/mysql.php

Doc Comments +3 added lines, -3 removed lines

@@ -337,8 +337,8 @@ 
  * @param string|array $select Champs sélectionnés
  * @param string|array $from Tables sélectionnées
  * @param string|array $where Contraintes
- * @param string|array $groupby Regroupements
- * @param string|array $orderby Tris
+ * @param string $groupby Regroupements
+ * @param string $orderby Tris
  * @param string $limit Limites de résultats
  * @param string|array $having Contraintes posts sélections
  * @param string $serveur Nom de la connexion
@@ -970,7 +970,7 @@ 
  * @param int $row_number Position. Déplacer le pointeur à cette ligne
  * @param string $serveur Nom de la connexion
  * @param bool $requeter Inutilisé
- * @return bool True si déplacement réussi, false sinon.
+ * @return boolean|null True si déplacement réussi, false sinon.
  **/
 function spip_mysql_seek($r, $row_number, $serveur = '', $requeter = true) {
 	if ($r and mysqli_num_rows($r)) {

Braces +2 added lines, -4 removed lines

@@ -50,11 +50,9 @@
 		$port and !is_numeric($socket = $port)
 		and (!$host or $host=='localhost')) {
 		$link = @mysqli_connect($host, $login, $pass, '', null, $socket);
-	}
-	elseif ($port) {
+	} elseif ($port) {
 		$link = @mysqli_connect($host, $login, $pass, '', $port);
-	}
-	else {
+	} else {
 		$link = @mysqli_connect($host, $login, $pass);
 	}
 

Indentation +798 added lines, -798 removed lines

@@ -20,11 +20,11 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 if (!defined('_MYSQL_NOPLANES')) {
-	define('_MYSQL_NOPLANES', true);
+    define('_MYSQL_NOPLANES', true);
 }
 
 /**
@@ -41,104 +41,104 @@ 
  *     - tableau décrivant la connexion sinon
  */
 function req_mysql_dist($host, $port, $login, $pass, $db = '', $prefixe = '') {
-	if (!extension_loaded('mysqli')) {
-		return false;
-	}
-
-	// si port est fourni mais pas host, c'est un socket -> compat avec vieille syntaxe de mysql_connect() et anciens fichiers connect.php
-	if (
-		$port and !is_numeric($socket = $port)
-		and (!$host or $host=='localhost')) {
-		$link = @mysqli_connect($host, $login, $pass, '', null, $socket);
-	}
-	elseif ($port) {
-		$link = @mysqli_connect($host, $login, $pass, '', $port);
-	}
-	else {
-		$link = @mysqli_connect($host, $login, $pass);
-	}
-
-	if (!$link) {
-		spip_log('Echec mysqli_connect. Erreur : ' . mysqli_connect_error(), 'mysql.' . _LOG_HS);
-
-		return false;
-	}
-	$last = '';
-	if (!$db) {
-		$ok = $link;
-		$db = 'spip';
-	} else {
-		$ok = mysqli_select_db($link, $db);
-		if (defined('_MYSQL_SET_SQL_MODE')
-			or defined('_MYSQL_SQL_MODE_TEXT_NOT_NULL') // compatibilite
-		) {
-			mysqli_query($link, $last = "set sql_mode=''");
-		}
-	}
-
-	spip_log("Connexion MySQLi vers $host, base $db, prefixe $prefixe " . ($ok ? "operationnelle" : 'impossible'),
-		_LOG_DEBUG);
-
-	return !$ok ? false : array(
-		'db' => $db,
-		'last' => $last,
-		'prefixe' => $prefixe ? $prefixe : $db,
-		'link' => $link,
-		'total_requetes' => 0,
-	);
+    if (!extension_loaded('mysqli')) {
+        return false;
+    }
+
+    // si port est fourni mais pas host, c'est un socket -> compat avec vieille syntaxe de mysql_connect() et anciens fichiers connect.php
+    if (
+        $port and !is_numeric($socket = $port)
+        and (!$host or $host=='localhost')) {
+        $link = @mysqli_connect($host, $login, $pass, '', null, $socket);
+    }
+    elseif ($port) {
+        $link = @mysqli_connect($host, $login, $pass, '', $port);
+    }
+    else {
+        $link = @mysqli_connect($host, $login, $pass);
+    }
+
+    if (!$link) {
+        spip_log('Echec mysqli_connect. Erreur : ' . mysqli_connect_error(), 'mysql.' . _LOG_HS);
+
+        return false;
+    }
+    $last = '';
+    if (!$db) {
+        $ok = $link;
+        $db = 'spip';
+    } else {
+        $ok = mysqli_select_db($link, $db);
+        if (defined('_MYSQL_SET_SQL_MODE')
+            or defined('_MYSQL_SQL_MODE_TEXT_NOT_NULL') // compatibilite
+        ) {
+            mysqli_query($link, $last = "set sql_mode=''");
+        }
+    }
+
+    spip_log("Connexion MySQLi vers $host, base $db, prefixe $prefixe " . ($ok ? "operationnelle" : 'impossible'),
+        _LOG_DEBUG);
+
+    return !$ok ? false : array(
+        'db' => $db,
+        'last' => $last,
+        'prefixe' => $prefixe ? $prefixe : $db,
+        'link' => $link,
+        'total_requetes' => 0,
+    );
 }
 
 
 $GLOBALS['spip_mysql_functions_1'] = array(
-	'alter' => 'spip_mysql_alter',
-	'count' => 'spip_mysql_count',
-	'countsel' => 'spip_mysql_countsel',
-	'create' => 'spip_mysql_create',
-	'create_base' => 'spip_mysql_create_base',
-	'create_view' => 'spip_mysql_create_view',
-	'date_proche' => 'spip_mysql_date_proche',
-	'delete' => 'spip_mysql_delete',
-	'drop_table' => 'spip_mysql_drop_table',
-	'drop_view' => 'spip_mysql_drop_view',
-	'errno' => 'spip_mysql_errno',
-	'error' => 'spip_mysql_error',
-	'explain' => 'spip_mysql_explain',
-	'fetch' => 'spip_mysql_fetch',
-	'seek' => 'spip_mysql_seek',
-	'free' => 'spip_mysql_free',
-	'hex' => 'spip_mysql_hex',
-	'in' => 'spip_mysql_in',
-	'insert' => 'spip_mysql_insert',
-	'insertq' => 'spip_mysql_insertq',
-	'insertq_multi' => 'spip_mysql_insertq_multi',
-	'listdbs' => 'spip_mysql_listdbs',
-	'multi' => 'spip_mysql_multi',
-	'optimize' => 'spip_mysql_optimize',
-	'query' => 'spip_mysql_query',
-	'quote' => 'spip_mysql_quote',
-	'replace' => 'spip_mysql_replace',
-	'replace_multi' => 'spip_mysql_replace_multi',
-	'repair' => 'spip_mysql_repair',
-	'select' => 'spip_mysql_select',
-	'selectdb' => 'spip_mysql_selectdb',
-	'set_charset' => 'spip_mysql_set_charset',
-	'get_charset' => 'spip_mysql_get_charset',
-	'showbase' => 'spip_mysql_showbase',
-	'showtable' => 'spip_mysql_showtable',
-	'update' => 'spip_mysql_update',
-	'updateq' => 'spip_mysql_updateq',
-
-	// association de chaque nom http d'un charset aux couples MySQL
-	'charsets' => array(
-		'cp1250' => array('charset' => 'cp1250', 'collation' => 'cp1250_general_ci'),
-		'cp1251' => array('charset' => 'cp1251', 'collation' => 'cp1251_general_ci'),
-		'cp1256' => array('charset' => 'cp1256', 'collation' => 'cp1256_general_ci'),
-		'iso-8859-1' => array('charset' => 'latin1', 'collation' => 'latin1_swedish_ci'),
+    'alter' => 'spip_mysql_alter',
+    'count' => 'spip_mysql_count',
+    'countsel' => 'spip_mysql_countsel',
+    'create' => 'spip_mysql_create',
+    'create_base' => 'spip_mysql_create_base',
+    'create_view' => 'spip_mysql_create_view',
+    'date_proche' => 'spip_mysql_date_proche',
+    'delete' => 'spip_mysql_delete',
+    'drop_table' => 'spip_mysql_drop_table',
+    'drop_view' => 'spip_mysql_drop_view',
+    'errno' => 'spip_mysql_errno',
+    'error' => 'spip_mysql_error',
+    'explain' => 'spip_mysql_explain',
+    'fetch' => 'spip_mysql_fetch',
+    'seek' => 'spip_mysql_seek',
+    'free' => 'spip_mysql_free',
+    'hex' => 'spip_mysql_hex',
+    'in' => 'spip_mysql_in',
+    'insert' => 'spip_mysql_insert',
+    'insertq' => 'spip_mysql_insertq',
+    'insertq_multi' => 'spip_mysql_insertq_multi',
+    'listdbs' => 'spip_mysql_listdbs',
+    'multi' => 'spip_mysql_multi',
+    'optimize' => 'spip_mysql_optimize',
+    'query' => 'spip_mysql_query',
+    'quote' => 'spip_mysql_quote',
+    'replace' => 'spip_mysql_replace',
+    'replace_multi' => 'spip_mysql_replace_multi',
+    'repair' => 'spip_mysql_repair',
+    'select' => 'spip_mysql_select',
+    'selectdb' => 'spip_mysql_selectdb',
+    'set_charset' => 'spip_mysql_set_charset',
+    'get_charset' => 'spip_mysql_get_charset',
+    'showbase' => 'spip_mysql_showbase',
+    'showtable' => 'spip_mysql_showtable',
+    'update' => 'spip_mysql_update',
+    'updateq' => 'spip_mysql_updateq',
+
+    // association de chaque nom http d'un charset aux couples MySQL
+    'charsets' => array(
+        'cp1250' => array('charset' => 'cp1250', 'collation' => 'cp1250_general_ci'),
+        'cp1251' => array('charset' => 'cp1251', 'collation' => 'cp1251_general_ci'),
+        'cp1256' => array('charset' => 'cp1256', 'collation' => 'cp1256_general_ci'),
+        'iso-8859-1' => array('charset' => 'latin1', 'collation' => 'latin1_swedish_ci'),
 //'iso-8859-6'=>array('charset'=>'latin1','collation'=>'latin1_swedish_ci'),
-		'iso-8859-9' => array('charset' => 'latin5', 'collation' => 'latin5_turkish_ci'),
+        'iso-8859-9' => array('charset' => 'latin5', 'collation' => 'latin5_turkish_ci'),
 //'iso-8859-15'=>array('charset'=>'latin1','collation'=>'latin1_swedish_ci'),
-		'utf-8' => array('charset' => 'utf8', 'collation' => 'utf8_general_ci')
-	)
+        'utf-8' => array('charset' => 'utf8', 'collation' => 'utf8_general_ci')
+    )
 );
 
 
@@ -149,9 +149,9 @@ 
  * @return Object Information de connexion pour mysqli
  */
 function _mysql_link($serveur = '') {
-	$link = &$GLOBALS['connexions'][$serveur ? $serveur : 0]['link'];
+    $link = &$GLOBALS['connexions'][$serveur ? $serveur : 0]['link'];
 
-	return $link;
+    return $link;
 }
 
 
@@ -164,10 +164,10 @@ 
  * @return resource       Ressource de résultats pour fetch()
  */
 function spip_mysql_set_charset($charset, $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	spip_log("changement de charset sql : " . "SET NAMES " . _q($charset), _LOG_DEBUG);
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    spip_log("changement de charset sql : " . "SET NAMES " . _q($charset), _LOG_DEBUG);
 
-	return mysqli_query($connexion['link'], $connexion['last'] = "SET NAMES " . _q($charset));
+    return mysqli_query($connexion['link'], $connexion['last'] = "SET NAMES " . _q($charset));
 }
 
 
@@ -180,11 +180,11 @@ 
  * @return array                Description du charset (son nom est dans 'charset')
  */
 function spip_mysql_get_charset($charset = array(), $serveur = '', $requeter = true) {
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$connexion['last'] = $c = "SHOW CHARACTER SET"
-		. (!$charset ? '' : (" LIKE " . _q($charset['charset'])));
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $connexion['last'] = $c = "SHOW CHARACTER SET"
+        . (!$charset ? '' : (" LIKE " . _q($charset['charset'])));
 
-	return spip_mysql_fetch(mysqli_query($connexion['link'], $c), null, $serveur);
+    return spip_mysql_fetch(mysqli_query($connexion['link'], $c), null, $serveur);
 }
 
 
@@ -199,7 +199,7 @@ 
  * @return Resource        Ressource pour fetch()
  **/
 function spip_query_db($query, $serveur = '', $requeter = true) {
-	return spip_mysql_query($query, $serveur, $requeter);
+    return spip_mysql_query($query, $serveur, $requeter);
 }
 
 
@@ -216,61 +216,61 @@ 
  */
 function spip_mysql_query($query, $serveur = '', $requeter = true) {
 
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	$query = _mysql_traite_query($query, $db, $prefixe);
-
-	// renvoyer la requete inerte si demandee
-	if (!$requeter) {
-		return $query;
-	}
-
-	if (isset($_GET['var_profile'])) {
-		include_spip('public/tracer');
-		$t = trace_query_start();
-	} else {
-		$t = 0;
-	}
-
-	$connexion['last'] = $query;
-	$connexion['total_requetes']++;
-
-	// ajouter un debug utile dans log/mysql-slow.log ?
-	$debug = '';
-	if (defined('_DEBUG_SLOW_QUERIES') and _DEBUG_SLOW_QUERIES) {
-		if (isset($GLOBALS['debug']['aucasou'])) {
-			list(, $id, , $infos) = $GLOBALS['debug']['aucasou'];
-			$debug .= "BOUCLE$id @ " . $infos[0] . " | ";
-		}
-		$debug .= $_SERVER['REQUEST_URI'] . ' + ' . $GLOBALS['ip'];
-		$debug = ' /* ' . mysqli_real_escape_string($link, str_replace('*/', '@/', $debug)) . ' */';
-	}
-
-	$r = mysqli_query($link, $query . $debug);
-
-	//Eviter de propager le GoneAway sur les autres requetes d'un même processus PHP
-	if ($e = spip_mysql_errno($serveur)) {  // Log d'un Gone Away
-		if ($e == 2006) { //Si Gone Away on relance une connexion vierge
-			//Fermer la connexion defaillante
-			mysqli_close($connexion['link']);
-			unset($GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]);
-			//Relancer une connexion vierge
-			spip_connect($serveur);
-			$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-			$link = $connexion['link'];
-			//On retente au cas où
-			$r = mysqli_query($link, $query . $debug);
-		}
-	}
-
-	// Log de l'erreur eventuelle
-	if ($e = spip_mysql_errno($serveur)) {
-		$e .= spip_mysql_error($query, $serveur);
-	} // et du fautif
-	return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    $query = _mysql_traite_query($query, $db, $prefixe);
+
+    // renvoyer la requete inerte si demandee
+    if (!$requeter) {
+        return $query;
+    }
+
+    if (isset($_GET['var_profile'])) {
+        include_spip('public/tracer');
+        $t = trace_query_start();
+    } else {
+        $t = 0;
+    }
+
+    $connexion['last'] = $query;
+    $connexion['total_requetes']++;
+
+    // ajouter un debug utile dans log/mysql-slow.log ?
+    $debug = '';
+    if (defined('_DEBUG_SLOW_QUERIES') and _DEBUG_SLOW_QUERIES) {
+        if (isset($GLOBALS['debug']['aucasou'])) {
+            list(, $id, , $infos) = $GLOBALS['debug']['aucasou'];
+            $debug .= "BOUCLE$id @ " . $infos[0] . " | ";
+        }
+        $debug .= $_SERVER['REQUEST_URI'] . ' + ' . $GLOBALS['ip'];
+        $debug = ' /* ' . mysqli_real_escape_string($link, str_replace('*/', '@/', $debug)) . ' */';
+    }
+
+    $r = mysqli_query($link, $query . $debug);
+
+    //Eviter de propager le GoneAway sur les autres requetes d'un même processus PHP
+    if ($e = spip_mysql_errno($serveur)) {  // Log d'un Gone Away
+        if ($e == 2006) { //Si Gone Away on relance une connexion vierge
+            //Fermer la connexion defaillante
+            mysqli_close($connexion['link']);
+            unset($GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]);
+            //Relancer une connexion vierge
+            spip_connect($serveur);
+            $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+            $link = $connexion['link'];
+            //On retente au cas où
+            $r = mysqli_query($link, $query . $debug);
+        }
+    }
+
+    // Log de l'erreur eventuelle
+    if ($e = spip_mysql_errno($serveur)) {
+        $e .= spip_mysql_error($query, $serveur);
+    } // et du fautif
+    return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
 }
 
 /**
@@ -285,12 +285,12 @@ 
  *     - array  : Tableau décrivant requête et temps d'exécution si var_profile actif pour tracer.
  */
 function spip_mysql_alter($query, $serveur = '', $requeter = true) {
-	// ici on supprime les ` entourant le nom de table pour permettre
-	// la transposition du prefixe, compte tenu que les plugins ont la mauvaise habitude
-	// d'utiliser ceux-ci, copie-colle de phpmyadmin
-	$query = preg_replace(",^TABLE\s*`([^`]*)`,i", "TABLE \\1", $query);
+    // ici on supprime les ` entourant le nom de table pour permettre
+    // la transposition du prefixe, compte tenu que les plugins ont la mauvaise habitude
+    // d'utiliser ceux-ci, copie-colle de phpmyadmin
+    $query = preg_replace(",^TABLE\s*`([^`]*)`,i", "TABLE \\1", $query);
 
-	return spip_mysql_query("ALTER " . $query, $serveur, $requeter); # i.e. que PG se debrouille
+    return spip_mysql_query("ALTER " . $query, $serveur, $requeter); # i.e. que PG se debrouille
 }
 
 
@@ -303,9 +303,9 @@ 
  * @return bool            Toujours true
  */
 function spip_mysql_optimize($table, $serveur = '', $requeter = true) {
-	spip_mysql_query("OPTIMIZE TABLE " . $table);
+    spip_mysql_query("OPTIMIZE TABLE " . $table);
 
-	return true;
+    return true;
 }
 
 
@@ -318,18 +318,18 @@ 
  * @return array           Tableau de l'explication
  */
 function spip_mysql_explain($query, $serveur = '', $requeter = true) {
-	if (strpos(ltrim($query), 'SELECT') !== 0) {
-		return array();
-	}
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$prefixe = $connexion['prefixe'];
-	$link = $connexion['link'];
-	$db = $connexion['db'];
-
-	$query = 'EXPLAIN ' . _mysql_traite_query($query, $db, $prefixe);
-	$r = mysqli_query($link, $query);
-
-	return spip_mysql_fetch($r, null, $serveur);
+    if (strpos(ltrim($query), 'SELECT') !== 0) {
+        return array();
+    }
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $prefixe = $connexion['prefixe'];
+    $link = $connexion['link'];
+    $db = $connexion['db'];
+
+    $query = 'EXPLAIN ' . _mysql_traite_query($query, $db, $prefixe);
+    $r = mysqli_query($link, $query);
+
+    return spip_mysql_fetch($r, null, $serveur);
 }
 
 
@@ -358,35 +358,35 @@ 
  *     - array  : Tableau décrivant requête et temps d'exécution si var_profile actif pour tracer.
  */
 function spip_mysql_select(
-	$select,
-	$from,
-	$where = '',
-	$groupby = '',
-	$orderby = '',
-	$limit = '',
-	$having = '',
-	$serveur = '',
-	$requeter = true
+    $select,
+    $from,
+    $where = '',
+    $groupby = '',
+    $orderby = '',
+    $limit = '',
+    $having = '',
+    $serveur = '',
+    $requeter = true
 ) {
 
 
-	$from = (!is_array($from) ? $from : spip_mysql_select_as($from));
-	$query =
-		calculer_mysql_expression('SELECT', $select, ', ')
-		. calculer_mysql_expression('FROM', $from, ', ')
-		. calculer_mysql_expression('WHERE', $where)
-		. calculer_mysql_expression('GROUP BY', $groupby, ',')
-		. calculer_mysql_expression('HAVING', $having)
-		. ($orderby ? ("\nORDER BY " . spip_mysql_order($orderby)) : '')
-		. ($limit ? "\nLIMIT $limit" : '');
+    $from = (!is_array($from) ? $from : spip_mysql_select_as($from));
+    $query =
+        calculer_mysql_expression('SELECT', $select, ', ')
+        . calculer_mysql_expression('FROM', $from, ', ')
+        . calculer_mysql_expression('WHERE', $where)
+        . calculer_mysql_expression('GROUP BY', $groupby, ',')
+        . calculer_mysql_expression('HAVING', $having)
+        . ($orderby ? ("\nORDER BY " . spip_mysql_order($orderby)) : '')
+        . ($limit ? "\nLIMIT $limit" : '');
 
-	// renvoyer la requete inerte si demandee
-	if ($requeter === false) {
-		return $query;
-	}
-	$r = spip_mysql_query($query, $serveur, $requeter);
+    // renvoyer la requete inerte si demandee
+    if ($requeter === false) {
+        return $query;
+    }
+    $r = spip_mysql_query($query, $serveur, $requeter);
 
-	return $r ? $r : $query;
+    return $r ? $r : $query;
 }
 
 
@@ -403,7 +403,7 @@ 
  * @return string Texte du orderby préparé
  */
 function spip_mysql_order($orderby) {
-	return (is_array($orderby)) ? join(", ", $orderby) : $orderby;
+    return (is_array($orderby)) ? join(", ", $orderby) : $orderby;
 }
 
 
@@ -426,26 +426,26 @@ 
  *     Contrainte pour clause WHERE
  */
 function calculer_mysql_where($v) {
-	if (!is_array($v)) {
-		return $v;
-	}
-
-	$op = array_shift($v);
-	if (!($n = count($v))) {
-		return $op;
-	} else {
-		$arg = calculer_mysql_where(array_shift($v));
-		if ($n == 1) {
-			return "$op($arg)";
-		} else {
-			$arg2 = calculer_mysql_where(array_shift($v));
-			if ($n == 2) {
-				return "($arg $op $arg2)";
-			} else {
-				return "($arg $op ($arg2) : $v[0])";
-			}
-		}
-	}
+    if (!is_array($v)) {
+        return $v;
+    }
+
+    $op = array_shift($v);
+    if (!($n = count($v))) {
+        return $op;
+    } else {
+        $arg = calculer_mysql_where(array_shift($v));
+        if ($n == 1) {
+            return "$op($arg)";
+        } else {
+            $arg2 = calculer_mysql_where(array_shift($v));
+            if ($n == 2) {
+                return "($arg $op $arg2)";
+            } else {
+                return "($arg $op ($arg2) : $v[0])";
+            }
+        }
+    }
 }
 
 /**
@@ -460,21 +460,21 @@ 
  * @return string            Texte de l'expression, une partie donc, du texte la requête.
  */
 function calculer_mysql_expression($expression, $v, $join = 'AND') {
-	if (empty($v)) {
-		return '';
-	}
-
-	$exp = "\n$expression ";
-
-	if (!is_array($v)) {
-		return $exp . $v;
-	} else {
-		if (strtoupper($join) === 'AND') {
-			return $exp . join("\n\t$join ", array_map('calculer_mysql_where', $v));
-		} else {
-			return $exp . join($join, $v);
-		}
-	}
+    if (empty($v)) {
+        return '';
+    }
+
+    $exp = "\n$expression ";
+
+    if (!is_array($v)) {
+        return $exp . $v;
+    } else {
+        if (strtoupper($join) === 'AND') {
+            return $exp . join("\n\t$join ", array_map('calculer_mysql_where', $v));
+        } else {
+            return $exp . join($join, $v);
+        }
+    }
 }
 
 
@@ -485,26 +485,26 @@ 
  * @return string Sélection de colonnes pour une clause SELECT
  */
 function spip_mysql_select_as($args) {
-	$res = '';
-	foreach ($args as $k => $v) {
-		if (substr($k, -1) == '@') {
-			// c'est une jointure qui se refere au from precedent
-			// pas de virgule
-			$res .= '  ' . $v;
-		} else {
-			if (!is_numeric($k)) {
-				$p = strpos($v, " ");
-				if ($p) {
-					$v = substr($v, 0, $p) . " AS `$k`" . substr($v, $p);
-				} else {
-					$v .= " AS `$k`";
-				}
-			}
-			$res .= ', ' . $v;
-		}
-	}
-
-	return substr($res, 2);
+    $res = '';
+    foreach ($args as $k => $v) {
+        if (substr($k, -1) == '@') {
+            // c'est une jointure qui se refere au from precedent
+            // pas de virgule
+            $res .= '  ' . $v;
+        } else {
+            if (!is_numeric($k)) {
+                $p = strpos($v, " ");
+                if ($p) {
+                    $v = substr($v, 0, $p) . " AS `$k`" . substr($v, $p);
+                } else {
+                    $v .= " AS `$k`";
+                }
+            }
+            $res .= ', ' . $v;
+        }
+    }
+
+    return substr($res, 2);
 }
 
 
@@ -528,42 +528,42 @@ 
  */
 function _mysql_traite_query($query, $db = '', $prefixe = '') {
 
-	if ($GLOBALS['mysql_rappel_nom_base'] and $db) {
-		$pref = '`' . $db . '`.';
-	} else {
-		$pref = '';
-	}
-
-	if ($prefixe) {
-		$pref .= $prefixe . "_";
-	}
-
-	if (!preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
-		$suite = '';
-	} else {
-		$suite = strstr($query, $regs[0]);
-		$query = substr($query, 0, -strlen($suite));
-		// propager le prefixe en cas de requete imbriquee
-		// il faut alors echapper les chaine avant de le faire, pour ne pas risquer de
-		// modifier une requete qui est en fait juste du texte dans un champ
-		if (stripos($suite, "SELECT") !== false) {
-			list($suite, $textes) = query_echappe_textes($suite);
-			if (preg_match('/^(.*?)([(]\s*SELECT\b.*)$/si', $suite, $r)) {
-				$suite = $r[1] . _mysql_traite_query($r[2], $db, $prefixe);
-			}
-			$suite = query_reinjecte_textes($suite, $textes);
-		}
-	}
-	$r = preg_replace(_SQL_PREFIXE_TABLE_MYSQL, '\1' . $pref, $query) . $suite;
-
-	// en option, remplacer les emoji (que mysql ne sait pas gérer) en 💩
-	if (defined('_MYSQL_NOPLANES') and _MYSQL_NOPLANES and lire_meta('charset_sql_connexion') == 'utf8') {
-		include_spip('inc/charsets');
-		$r = utf8_noplanes($r);
-	}
-
-	#spip_log("_mysql_traite_query: " . substr($r,0, 50) . ".... $db, $prefixe", _LOG_DEBUG);
-	return $r;
+    if ($GLOBALS['mysql_rappel_nom_base'] and $db) {
+        $pref = '`' . $db . '`.';
+    } else {
+        $pref = '';
+    }
+
+    if ($prefixe) {
+        $pref .= $prefixe . "_";
+    }
+
+    if (!preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
+        $suite = '';
+    } else {
+        $suite = strstr($query, $regs[0]);
+        $query = substr($query, 0, -strlen($suite));
+        // propager le prefixe en cas de requete imbriquee
+        // il faut alors echapper les chaine avant de le faire, pour ne pas risquer de
+        // modifier une requete qui est en fait juste du texte dans un champ
+        if (stripos($suite, "SELECT") !== false) {
+            list($suite, $textes) = query_echappe_textes($suite);
+            if (preg_match('/^(.*?)([(]\s*SELECT\b.*)$/si', $suite, $r)) {
+                $suite = $r[1] . _mysql_traite_query($r[2], $db, $prefixe);
+            }
+            $suite = query_reinjecte_textes($suite, $textes);
+        }
+    }
+    $r = preg_replace(_SQL_PREFIXE_TABLE_MYSQL, '\1' . $pref, $query) . $suite;
+
+    // en option, remplacer les emoji (que mysql ne sait pas gérer) en 💩
+    if (defined('_MYSQL_NOPLANES') and _MYSQL_NOPLANES and lire_meta('charset_sql_connexion') == 'utf8') {
+        include_spip('inc/charsets');
+        $r = utf8_noplanes($r);
+    }
+
+    #spip_log("_mysql_traite_query: " . substr($r,0, 50) . ".... $db, $prefixe", _LOG_DEBUG);
+    return $r;
 }
 
 /**
@@ -581,13 +581,13 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_selectdb($db, $serveur = '', $requeter = true) {
-	$link = _mysql_link($serveur);
-	$ok = mysqli_select_db($link, $db);
-	if (!$ok) {
-		spip_log('Echec mysqli_selectdb. Erreur : ' . mysqli_error($link), 'mysql.' . _LOG_CRITIQUE);
-	}
+    $link = _mysql_link($serveur);
+    $ok = mysqli_select_db($link, $db);
+    if (!$ok) {
+        spip_log('Echec mysqli_selectdb. Erreur : ' . mysqli_error($link), 'mysql.' . _LOG_CRITIQUE);
+    }
 
-	return $ok;
+    return $ok;
 }
 
 
@@ -608,14 +608,14 @@ 
  *     Liste de noms de bases de données
  **/
 function spip_mysql_listdbs($serveur = '', $requeter = true) {
-	$dbs = array();
-	if ($res = spip_mysql_query("SHOW DATABASES", $serveur)) {
-		while ($row = mysqli_fetch_assoc($res)) {
-			$dbs[] = $row['Database'];
-		}
-	}
-
-	return $dbs;
+    $dbs = array();
+    if ($res = spip_mysql_query("SHOW DATABASES", $serveur)) {
+        while ($row = mysqli_fetch_assoc($res)) {
+            $dbs[] = $row['Database'];
+        }
+    }
+
+    return $dbs;
 }
 
 
@@ -638,72 +638,72 @@ 
  *     - true si la requête réussie, false sinon.
  */
 function spip_mysql_create(
-	$nom,
-	$champs,
-	$cles,
-	$autoinc = false,
-	$temporary = false,
-	$serveur = '',
-	$requeter = true
+    $nom,
+    $champs,
+    $cles,
+    $autoinc = false,
+    $temporary = false,
+    $serveur = '',
+    $requeter = true
 ) {
 
-	$query = '';
-	$keys = '';
-	$s = '';
-	$p = '';
-
-	// certains plugins declarent les tables  (permet leur inclusion dans le dump)
-	// sans les renseigner (laisse le compilo recuperer la description)
-	if (!is_array($champs) || !is_array($cles)) {
-		return;
-	}
-
-	$res = spip_mysql_query("SELECT version() as v", $serveur);
-	if (($row = mysqli_fetch_array($res)) && (version_compare($row['v'], '5.0', '>='))) {
-		spip_mysql_query("SET sql_mode=''", $serveur);
-	}
-
-	foreach ($cles as $k => $v) {
-		$keys .= "$s\n\t\t$k ($v)";
-		if ($k == "PRIMARY KEY") {
-			$p = $v;
-		}
-		$s = ",";
-	}
-	$s = '';
-
-	$character_set = "";
-	if (@$GLOBALS['meta']['charset_sql_base']) {
-		$character_set .= " CHARACTER SET " . $GLOBALS['meta']['charset_sql_base'];
-	}
-	if (@$GLOBALS['meta']['charset_collation_sql_base']) {
-		$character_set .= " COLLATE " . $GLOBALS['meta']['charset_collation_sql_base'];
-	}
-
-	foreach ($champs as $k => $v) {
-		$v = _mysql_remplacements_definitions_table($v);
-		if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i', $v, $defs)) {
-			if (preg_match(',(char|text),i', $defs[1])
-				and !preg_match(',(binary|CHARACTER|COLLATE),i', $v)
-			) {
-				$v = $defs[1] . $character_set . ' ' . substr($v, strlen($defs[1]));
-			}
-		}
-
-		$query .= "$s\n\t\t$k $v"
-			. (($autoinc && ($p == $k) && preg_match(',\b(big|small|medium)?int\b,i', $v))
-				? " auto_increment"
-				: ''
-			);
-		$s = ",";
-	}
-	$temporary = $temporary ? 'TEMPORARY' : '';
-	$q = "CREATE $temporary TABLE IF NOT EXISTS $nom ($query" . ($keys ? ",$keys" : '') . ")"
-		. " ENGINE=MyISAM"
-		. ($character_set ? " DEFAULT $character_set" : "")
-		. "\n";
-
-	return spip_mysql_query($q, $serveur);
+    $query = '';
+    $keys = '';
+    $s = '';
+    $p = '';
+
+    // certains plugins declarent les tables  (permet leur inclusion dans le dump)
+    // sans les renseigner (laisse le compilo recuperer la description)
+    if (!is_array($champs) || !is_array($cles)) {
+        return;
+    }
+
+    $res = spip_mysql_query("SELECT version() as v", $serveur);
+    if (($row = mysqli_fetch_array($res)) && (version_compare($row['v'], '5.0', '>='))) {
+        spip_mysql_query("SET sql_mode=''", $serveur);
+    }
+
+    foreach ($cles as $k => $v) {
+        $keys .= "$s\n\t\t$k ($v)";
+        if ($k == "PRIMARY KEY") {
+            $p = $v;
+        }
+        $s = ",";
+    }
+    $s = '';
+
+    $character_set = "";
+    if (@$GLOBALS['meta']['charset_sql_base']) {
+        $character_set .= " CHARACTER SET " . $GLOBALS['meta']['charset_sql_base'];
+    }
+    if (@$GLOBALS['meta']['charset_collation_sql_base']) {
+        $character_set .= " COLLATE " . $GLOBALS['meta']['charset_collation_sql_base'];
+    }
+
+    foreach ($champs as $k => $v) {
+        $v = _mysql_remplacements_definitions_table($v);
+        if (preg_match(',([a-z]*\s*(\(\s*[0-9]*\s*\))?(\s*binary)?),i', $v, $defs)) {
+            if (preg_match(',(char|text),i', $defs[1])
+                and !preg_match(',(binary|CHARACTER|COLLATE),i', $v)
+            ) {
+                $v = $defs[1] . $character_set . ' ' . substr($v, strlen($defs[1]));
+            }
+        }
+
+        $query .= "$s\n\t\t$k $v"
+            . (($autoinc && ($p == $k) && preg_match(',\b(big|small|medium)?int\b,i', $v))
+                ? " auto_increment"
+                : ''
+            );
+        $s = ",";
+    }
+    $temporary = $temporary ? 'TEMPORARY' : '';
+    $q = "CREATE $temporary TABLE IF NOT EXISTS $nom ($query" . ($keys ? ",$keys" : '') . ")"
+        . " ENGINE=MyISAM"
+        . ($character_set ? " DEFAULT $character_set" : "")
+        . "\n";
+
+    return spip_mysql_query($q, $serveur);
 }
 
 
@@ -716,17 +716,17 @@ 
  *     Définition SQL adaptée pour MySQL d'un champ de table
  */
 function _mysql_remplacements_definitions_table($query) {
-	// quelques remplacements
-	$num = "(\s*\([0-9]*\))?";
-	$enum = "(\s*\([^\)]*\))?";
+    // quelques remplacements
+    $num = "(\s*\([0-9]*\))?";
+    $enum = "(\s*\([^\)]*\))?";
 
-	$remplace = array(
-		'/VARCHAR(\s*[^\s\(])/is' => 'VARCHAR(255)\\1',
-	);
+    $remplace = array(
+        '/VARCHAR(\s*[^\s\(])/is' => 'VARCHAR(255)\\1',
+    );
 
-	$query = preg_replace(array_keys($remplace), $remplace, $query);
+    $query = preg_replace(array_keys($remplace), $remplace, $query);
 
-	return $query;
+    return $query;
 }
 
 
@@ -739,7 +739,7 @@ 
  * @return bool true si la base est créee.
  **/
 function spip_mysql_create_base($nom, $serveur = '', $requeter = true) {
-	return spip_mysql_query("CREATE DATABASE `$nom`", $serveur, $requeter);
+    return spip_mysql_query("CREATE DATABASE `$nom`", $serveur, $requeter);
 }
 
 
@@ -760,19 +760,19 @@ 
  *     - string texte de la requête si $requeter vaut false
  */
 function spip_mysql_create_view($nom, $query_select, $serveur = '', $requeter = true) {
-	if (!$query_select) {
-		return false;
-	}
-	// vue deja presente
-	if (sql_showtable($nom, false, $serveur)) {
-		spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", _LOG_ERREUR);
+    if (!$query_select) {
+        return false;
+    }
+    // vue deja presente
+    if (sql_showtable($nom, false, $serveur)) {
+        spip_log("Echec creation d'une vue sql ($nom) car celle-ci existe deja (serveur:$serveur)", _LOG_ERREUR);
 
-		return false;
-	}
+        return false;
+    }
 
-	$query = "CREATE VIEW $nom AS " . $query_select;
+    $query = "CREATE VIEW $nom AS " . $query_select;
 
-	return spip_mysql_query($query, $serveur, $requeter);
+    return spip_mysql_query($query, $serveur, $requeter);
 }
 
 
@@ -788,11 +788,11 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_mysql_drop_table($table, $exist = '', $serveur = '', $requeter = true) {
-	if ($exist) {
-		$exist = " IF EXISTS";
-	}
+    if ($exist) {
+        $exist = " IF EXISTS";
+    }
 
-	return spip_mysql_query("DROP TABLE$exist $table", $serveur, $requeter);
+    return spip_mysql_query("DROP TABLE$exist $table", $serveur, $requeter);
 }
 
 /**
@@ -807,11 +807,11 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_mysql_drop_view($view, $exist = '', $serveur = '', $requeter = true) {
-	if ($exist) {
-		$exist = " IF EXISTS";
-	}
+    if ($exist) {
+        $exist = " IF EXISTS";
+    }
 
-	return spip_mysql_query("DROP VIEW$exist $view", $serveur, $requeter);
+    return spip_mysql_query("DROP VIEW$exist $view", $serveur, $requeter);
 }
 
 /**
@@ -828,7 +828,7 @@ 
  *     Ressource à utiliser avec sql_fetch()
  **/
 function spip_mysql_showbase($match, $serveur = '', $requeter = true) {
-	return spip_mysql_query("SHOW TABLES LIKE " . _q($match), $serveur, $requeter);
+    return spip_mysql_query("SHOW TABLES LIKE " . _q($match), $serveur, $requeter);
 }
 
 /**
@@ -844,7 +844,7 @@ 
  *     - true si la requête a réussie, false sinon
  */
 function spip_mysql_repair($table, $serveur = '', $requeter = true) {
-	return spip_mysql_query("REPAIR TABLE `$table`", $serveur, $requeter);
+    return spip_mysql_query("REPAIR TABLE `$table`", $serveur, $requeter);
 }
 
 
@@ -868,86 +868,86 @@ 
  *     - array description de la table sinon
  */
 function spip_mysql_showtable($nom_table, $serveur = '', $requeter = true) {
-	$s = spip_mysql_query("SHOW CREATE TABLE `$nom_table`", $serveur, $requeter);
-	if (!$s) {
-		return '';
-	}
-	if (!$requeter) {
-		return $s;
-	}
-
-	list(, $a) = mysqli_fetch_array($s, MYSQLI_NUM);
-	if (preg_match(_MYSQL_RE_SHOW_TABLE, $a, $r)) {
-		$desc = $r[1];
-		// extraction d'une KEY éventuelle en prenant garde de ne pas
-		// relever un champ dont le nom contient KEY (ex. ID_WHISKEY)
-		if (preg_match("/^(.*?),([^,]*\sKEY[ (].*)$/s", $desc, $r)) {
-			$namedkeys = $r[2];
-			$desc = $r[1];
-		} else {
-			$namedkeys = "";
-		}
-
-		$fields = array();
-		foreach (preg_split("/,\s*`/", $desc) as $v) {
-			preg_match("/^\s*`?([^`]*)`\s*(.*)/", $v, $r);
-			$fields[strtolower($r[1])] = $r[2];
-		}
-		$keys = array();
-
-		foreach (preg_split('/\)\s*(,|$)/', $namedkeys) as $v) {
-			if (preg_match("/^\s*([^(]*)\(([^(]*(\(\d+\))?)$/", $v, $r)) {
-				$k = str_replace("`", '', trim($r[1]));
-				$t = strtolower(str_replace("`", '', $r[2]));
-				if ($k && !isset($keys[$k])) {
-					$keys[$k] = $t;
-				} else {
-					$keys[] = $t;
-				}
-			}
-		}
-		spip_mysql_free($s);
-
-		return array('field' => $fields, 'key' => $keys);
-	}
-
-	$res = spip_mysql_query("SHOW COLUMNS FROM `$nom_table`", $serveur);
-	if ($res) {
-		$nfields = array();
-		$nkeys = array();
-		while ($val = spip_mysql_fetch($res)) {
-			$nfields[$val["Field"]] = $val['Type'];
-			if ($val['Null'] == 'NO') {
-				$nfields[$val["Field"]] .= ' NOT NULL';
-			}
-			if ($val['Default'] === '0' || $val['Default']) {
-				if (preg_match('/[A-Z_]/', $val['Default'])) {
-					$nfields[$val["Field"]] .= ' DEFAULT ' . $val['Default'];
-				} else {
-					$nfields[$val["Field"]] .= " DEFAULT '" . $val['Default'] . "'";
-				}
-			}
-			if ($val['Extra']) {
-				$nfields[$val["Field"]] .= ' ' . $val['Extra'];
-			}
-			if ($val['Key'] == 'PRI') {
-				$nkeys['PRIMARY KEY'] = $val["Field"];
-			} else {
-				if ($val['Key'] == 'MUL') {
-					$nkeys['KEY ' . $val["Field"]] = $val["Field"];
-				} else {
-					if ($val['Key'] == 'UNI') {
-						$nkeys['UNIQUE KEY ' . $val["Field"]] = $val["Field"];
-					}
-				}
-			}
-		}
-		spip_mysql_free($res);
-
-		return array('field' => $nfields, 'key' => $nkeys);
-	}
-
-	return "";
+    $s = spip_mysql_query("SHOW CREATE TABLE `$nom_table`", $serveur, $requeter);
+    if (!$s) {
+        return '';
+    }
+    if (!$requeter) {
+        return $s;
+    }
+
+    list(, $a) = mysqli_fetch_array($s, MYSQLI_NUM);
+    if (preg_match(_MYSQL_RE_SHOW_TABLE, $a, $r)) {
+        $desc = $r[1];
+        // extraction d'une KEY éventuelle en prenant garde de ne pas
+        // relever un champ dont le nom contient KEY (ex. ID_WHISKEY)
+        if (preg_match("/^(.*?),([^,]*\sKEY[ (].*)$/s", $desc, $r)) {
+            $namedkeys = $r[2];
+            $desc = $r[1];
+        } else {
+            $namedkeys = "";
+        }
+
+        $fields = array();
+        foreach (preg_split("/,\s*`/", $desc) as $v) {
+            preg_match("/^\s*`?([^`]*)`\s*(.*)/", $v, $r);
+            $fields[strtolower($r[1])] = $r[2];
+        }
+        $keys = array();
+
+        foreach (preg_split('/\)\s*(,|$)/', $namedkeys) as $v) {
+            if (preg_match("/^\s*([^(]*)\(([^(]*(\(\d+\))?)$/", $v, $r)) {
+                $k = str_replace("`", '', trim($r[1]));
+                $t = strtolower(str_replace("`", '', $r[2]));
+                if ($k && !isset($keys[$k])) {
+                    $keys[$k] = $t;
+                } else {
+                    $keys[] = $t;
+                }
+            }
+        }
+        spip_mysql_free($s);
+
+        return array('field' => $fields, 'key' => $keys);
+    }
+
+    $res = spip_mysql_query("SHOW COLUMNS FROM `$nom_table`", $serveur);
+    if ($res) {
+        $nfields = array();
+        $nkeys = array();
+        while ($val = spip_mysql_fetch($res)) {
+            $nfields[$val["Field"]] = $val['Type'];
+            if ($val['Null'] == 'NO') {
+                $nfields[$val["Field"]] .= ' NOT NULL';
+            }
+            if ($val['Default'] === '0' || $val['Default']) {
+                if (preg_match('/[A-Z_]/', $val['Default'])) {
+                    $nfields[$val["Field"]] .= ' DEFAULT ' . $val['Default'];
+                } else {
+                    $nfields[$val["Field"]] .= " DEFAULT '" . $val['Default'] . "'";
+                }
+            }
+            if ($val['Extra']) {
+                $nfields[$val["Field"]] .= ' ' . $val['Extra'];
+            }
+            if ($val['Key'] == 'PRI') {
+                $nkeys['PRIMARY KEY'] = $val["Field"];
+            } else {
+                if ($val['Key'] == 'MUL') {
+                    $nkeys['KEY ' . $val["Field"]] = $val["Field"];
+                } else {
+                    if ($val['Key'] == 'UNI') {
+                        $nkeys['UNIQUE KEY ' . $val["Field"]] = $val["Field"];
+                    }
+                }
+            }
+        }
+        spip_mysql_free($res);
+
+        return array('field' => $nfields, 'key' => $nkeys);
+    }
+
+    return "";
 }
 
 
@@ -963,12 +963,12 @@ 
  * @return array           Ligne de résultat
  */
 function spip_mysql_fetch($r, $t = '', $serveur = '', $requeter = true) {
-	if (!$t) {
-		$t = MYSQLI_ASSOC;
-	}
-	if ($r) {
-		return mysqli_fetch_array($r, $t);
-	}
+    if (!$t) {
+        $t = MYSQLI_ASSOC;
+    }
+    if ($r) {
+        return mysqli_fetch_array($r, $t);
+    }
 }
 
 /**
@@ -981,9 +981,9 @@ 
  * @return bool True si déplacement réussi, false sinon.
  **/
 function spip_mysql_seek($r, $row_number, $serveur = '', $requeter = true) {
-	if ($r and mysqli_num_rows($r)) {
-		return mysqli_data_seek($r, $row_number);
-	}
+    if ($r and mysqli_num_rows($r)) {
+        return mysqli_data_seek($r, $row_number);
+    }
 }
 
 
@@ -1001,26 +1001,26 @@ 
  *     - int Nombre de lignes (0 si la requête n'a pas réussie)
  **/
 function spip_mysql_countsel(
-	$from = array(),
-	$where = array(),
-	$groupby = '',
-	$having = array(),
-	$serveur = '',
-	$requeter = true
+    $from = array(),
+    $where = array(),
+    $groupby = '',
+    $having = array(),
+    $serveur = '',
+    $requeter = true
 ) {
-	$c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
-
-	$r = spip_mysql_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
-	if (!$requeter) {
-		return $r;
-	}
-	if (!$r instanceof mysqli_result) {
-		return 0;
-	}
-	list($c) = mysqli_fetch_array($r, MYSQLI_NUM);
-	mysqli_free_result($r);
-
-	return $c;
+    $c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
+
+    $r = spip_mysql_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
+    if (!$requeter) {
+        return $r;
+    }
+    if (!$r instanceof mysqli_result) {
+        return 0;
+    }
+    list($c) = mysqli_fetch_array($r, MYSQLI_NUM);
+    mysqli_free_result($r);
+
+    return $c;
 }
 
 
@@ -1043,16 +1043,16 @@ 
  *     Erreur eventuelle
  **/
 function spip_mysql_error($query = '', $serveur = '', $requeter = true) {
-	$link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
-	$s = mysqli_error($link);
-	if ($s) {
-		$trace = debug_backtrace();
-		if ($trace[0]['function'] != "spip_mysql_error") {
-			spip_log("$s - $query - " . sql_error_backtrace(), 'mysql.' . _LOG_ERREUR);
-		}
-	}
-
-	return $s;
+    $link = $GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0]['link'];
+    $s = mysqli_error($link);
+    if ($s) {
+        $trace = debug_backtrace();
+        if ($trace[0]['function'] != "spip_mysql_error") {
+            spip_log("$s - $query - " . sql_error_backtrace(), 'mysql.' . _LOG_ERREUR);
+        }
+    }
+
+    return $s;
 }
 
 
@@ -1067,18 +1067,18 @@ 
  *     0, pas d'erreur. Autre, numéro de l'erreur.
  **/
 function spip_mysql_errno($serveur = '', $requeter = true) {
-	$link = $GLOBALS['connexions'][$serveur ? $serveur : 0]['link'];
-	$s = mysqli_errno($link);
-	// 2006 MySQL server has gone away
-	// 2013 Lost connection to MySQL server during query
-	if (in_array($s, array(2006, 2013))) {
-		define('spip_interdire_cache', true);
-	}
-	if ($s) {
-		spip_log("Erreur mysql $s", _LOG_ERREUR);
-	}
-
-	return $s;
+    $link = $GLOBALS['connexions'][$serveur ? $serveur : 0]['link'];
+    $s = mysqli_errno($link);
+    // 2006 MySQL server has gone away
+    // 2013 Lost connection to MySQL server during query
+    if (in_array($s, array(2006, 2013))) {
+        define('spip_interdire_cache', true);
+    }
+    if ($s) {
+        spip_log("Erreur mysql $s", _LOG_ERREUR);
+    }
+
+    return $s;
 }
 
 
@@ -1092,9 +1092,9 @@ 
  * @return int               Nombre de lignes
  */
 function spip_mysql_count($r, $serveur = '', $requeter = true) {
-	if ($r) {
-		return mysqli_num_rows($r);
-	}
+    if ($r) {
+        return mysqli_num_rows($r);
+    }
 }
 
 
@@ -1110,7 +1110,7 @@ 
  * @return bool              True si réussi
  */
 function spip_mysql_free($r, $serveur = '', $requeter = true) {
-	return (($r instanceof mysqli_result) ? mysqli_free_result($r) : false);
+    return (($r instanceof mysqli_result) ? mysqli_free_result($r) : false);
 }
 
 
@@ -1138,38 +1138,38 @@ 
  **/
 function spip_mysql_insert($table, $champs, $valeurs, $desc = array(), $serveur = '', $requeter = true) {
 
-	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	$link = $connexion['link'];
-	$table = prefixer_table_spip($table, $connexion['prefixe']);
-
-	$query = "INSERT INTO $table $champs VALUES $valeurs";
-	if (!$requeter) {
-		return $query;
-	}
-
-	if (isset($_GET['var_profile'])) {
-		include_spip('public/tracer');
-		$t = trace_query_start();
-		$e = '';
-	} else {
-		$t = 0;
-	}
-
-	$connexion['last'] = $query;
-	#spip_log($query, 'mysql.'._LOG_DEBUG);
-	$r = false;
-	if (mysqli_query($link, $query)) {
-		$r = mysqli_insert_id($link);
-	} else {
-		// Log de l'erreur eventuelle
-		if ($e = spip_mysql_errno($serveur)) {
-			$e .= spip_mysql_error($query, $serveur);
-		} // et du fautif
-	}
-
-	return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
-
-	// return $r ? $r : (($r===0) ? -1 : 0); pb avec le multi-base.
+    $connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
+    $link = $connexion['link'];
+    $table = prefixer_table_spip($table, $connexion['prefixe']);
+
+    $query = "INSERT INTO $table $champs VALUES $valeurs";
+    if (!$requeter) {
+        return $query;
+    }
+
+    if (isset($_GET['var_profile'])) {
+        include_spip('public/tracer');
+        $t = trace_query_start();
+        $e = '';
+    } else {
+        $t = 0;
+    }
+
+    $connexion['last'] = $query;
+    #spip_log($query, 'mysql.'._LOG_DEBUG);
+    $r = false;
+    if (mysqli_query($link, $query)) {
+        $r = mysqli_insert_id($link);
+    } else {
+        // Log de l'erreur eventuelle
+        if ($e = spip_mysql_errno($serveur)) {
+            $e .= spip_mysql_error($query, $serveur);
+        } // et du fautif
+    }
+
+    return $t ? trace_query_end($query, $t, $r, $e, $serveur) : $r;
+
+    // return $r ? $r : (($r===0) ? -1 : 0); pb avec le multi-base.
 }
 
 /**
@@ -1194,20 +1194,20 @@ 
  **/
 function spip_mysql_insertq($table, $couples = array(), $desc = array(), $serveur = '', $requeter = true) {
 
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		$couples = array();
-	}
-	$fields = isset($desc['field']) ? $desc['field'] : array();
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        $couples = array();
+    }
+    $fields = isset($desc['field']) ? $desc['field'] : array();
 
-	foreach ($couples as $champ => $val) {
-		$couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
-	}
+    foreach ($couples as $champ => $val) {
+        $couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
+    }
 
-	return spip_mysql_insert($table, "(" . join(',', array_keys($couples)) . ")", "(" . join(',', $couples) . ")", $desc,
-		$serveur, $requeter);
+    return spip_mysql_insert($table, "(" . join(',', array_keys($couples)) . ")", "(" . join(',', $couples) . ")", $desc,
+        $serveur, $requeter);
 }
 
 
@@ -1232,34 +1232,34 @@ 
  **/
 function spip_mysql_insertq_multi($table, $tab_couples = array(), $desc = array(), $serveur = '', $requeter = true) {
 
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		$tab_couples = array();
-	}
-	$fields = isset($desc['field']) ? $desc['field'] : array();
-
-	$cles = "(" . join(',', array_keys(reset($tab_couples))) . ')';
-	$valeurs = array();
-	$r = false;
-
-	// Quoter et Inserer par groupes de 100 max pour eviter un debordement de pile
-	foreach ($tab_couples as $couples) {
-		foreach ($couples as $champ => $val) {
-			$couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
-		}
-		$valeurs[] = '(' . join(',', $couples) . ')';
-		if (count($valeurs) >= 100) {
-			$r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
-			$valeurs = array();
-		}
-	}
-	if (count($valeurs)) {
-		$r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
-	}
-
-	return $r; // dans le cas d'une table auto_increment, le dernier insert_id
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        $tab_couples = array();
+    }
+    $fields = isset($desc['field']) ? $desc['field'] : array();
+
+    $cles = "(" . join(',', array_keys(reset($tab_couples))) . ')';
+    $valeurs = array();
+    $r = false;
+
+    // Quoter et Inserer par groupes de 100 max pour eviter un debordement de pile
+    foreach ($tab_couples as $couples) {
+        foreach ($couples as $champ => $val) {
+            $couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
+        }
+        $valeurs[] = '(' . join(',', $couples) . ')';
+        if (count($valeurs) >= 100) {
+            $r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
+            $valeurs = array();
+        }
+    }
+    if (count($valeurs)) {
+        $r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
+    }
+
+    return $r; // dans le cas d'une table auto_increment, le dernier insert_id
 }
 
 /**
@@ -1284,17 +1284,17 @@ 
  *     - array Tableau décrivant la requête et son temps d'exécution si var_profile est actif
  */
 function spip_mysql_update($table, $champs, $where = '', $desc = array(), $serveur = '', $requeter = true) {
-	$set = array();
-	foreach ($champs as $champ => $val) {
-		$set[] = $champ . "=$val";
-	}
-	if (!empty($set)) {
-		return spip_mysql_query(
-			calculer_mysql_expression('UPDATE', $table, ',')
-			. calculer_mysql_expression('SET', $set, ',')
-			. calculer_mysql_expression('WHERE', $where),
-			$serveur, $requeter);
-	}
+    $set = array();
+    foreach ($champs as $champ => $val) {
+        $set[] = $champ . "=$val";
+    }
+    if (!empty($set)) {
+        return spip_mysql_query(
+            calculer_mysql_expression('UPDATE', $table, ',')
+            . calculer_mysql_expression('SET', $set, ',')
+            . calculer_mysql_expression('WHERE', $where),
+            $serveur, $requeter);
+    }
 }
 
 /**
@@ -1327,27 +1327,27 @@ 
  */
 function spip_mysql_updateq($table, $champs, $where = '', $desc = array(), $serveur = '', $requeter = true) {
 
-	if (!$champs) {
-		return;
-	}
-	if (!$desc) {
-		$desc = description_table($table, $serveur);
-	}
-	if (!$desc) {
-		$champs = array();
-	} else {
-		$fields = $desc['field'];
-	}
-	$set = array();
-	foreach ($champs as $champ => $val) {
-		$set[] = $champ . '=' . spip_mysql_cite($val, @$fields[$champ]);
-	}
-
-	return spip_mysql_query(
-		calculer_mysql_expression('UPDATE', $table, ',')
-		. calculer_mysql_expression('SET', $set, ',')
-		. calculer_mysql_expression('WHERE', $where),
-		$serveur, $requeter);
+    if (!$champs) {
+        return;
+    }
+    if (!$desc) {
+        $desc = description_table($table, $serveur);
+    }
+    if (!$desc) {
+        $champs = array();
+    } else {
+        $fields = $desc['field'];
+    }
+    $set = array();
+    foreach ($champs as $champ => $val) {
+        $set[] = $champ . '=' . spip_mysql_cite($val, @$fields[$champ]);
+    }
+
+    return spip_mysql_query(
+        calculer_mysql_expression('UPDATE', $table, ',')
+        . calculer_mysql_expression('SET', $set, ',')
+        . calculer_mysql_expression('WHERE', $where),
+        $serveur, $requeter);
 }
 
 /**
@@ -1363,20 +1363,20 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_delete($table, $where = '', $serveur = '', $requeter = true) {
-	$res = spip_mysql_query(
-		calculer_mysql_expression('DELETE FROM', $table, ',')
-		. calculer_mysql_expression('WHERE', $where),
-		$serveur, $requeter);
-	if (!$requeter) {
-		return $res;
-	}
-	if ($res) {
-		$link = _mysql_link($serveur);
-
-		return mysqli_affected_rows($link);
-	} else {
-		return false;
-	}
+    $res = spip_mysql_query(
+        calculer_mysql_expression('DELETE FROM', $table, ',')
+        . calculer_mysql_expression('WHERE', $where),
+        $serveur, $requeter);
+    if (!$requeter) {
+        return $res;
+    }
+    if ($res) {
+        $link = _mysql_link($serveur);
+
+        return mysqli_affected_rows($link);
+    } else {
+        return false;
+    }
 }
 
 
@@ -1405,8 +1405,8 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_replace($table, $couples, $desc = array(), $serveur = '', $requeter = true) {
-	return spip_mysql_query("REPLACE $table (" . join(',', array_keys($couples)) . ') VALUES (' . join(',',
-			array_map('_q', $couples)) . ')', $serveur, $requeter);
+    return spip_mysql_query("REPLACE $table (" . join(',', array_keys($couples)) . ') VALUES (' . join(',',
+            array_map('_q', $couples)) . ')', $serveur, $requeter);
 }
 
 
@@ -1435,14 +1435,14 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_replace_multi($table, $tab_couples, $desc = array(), $serveur = '', $requeter = true) {
-	$cles = "(" . join(',', array_keys($tab_couples[0])) . ')';
-	$valeurs = array();
-	foreach ($tab_couples as $couples) {
-		$valeurs[] = '(' . join(',', array_map('_q', $couples)) . ')';
-	}
-	$valeurs = implode(', ', $valeurs);
-
-	return spip_mysql_query("REPLACE $table $cles VALUES $valeurs", $serveur, $requeter);
+    $cles = "(" . join(',', array_keys($tab_couples[0])) . ')';
+    $valeurs = array();
+    foreach ($tab_couples as $couples) {
+        $valeurs[] = '(' . join(',', array_map('_q', $couples)) . ')';
+    }
+    $valeurs = implode(', ', $valeurs);
+
+    return spip_mysql_query("REPLACE $table $cles VALUES $valeurs", $serveur, $requeter);
 }
 
 
@@ -1457,32 +1457,32 @@ 
  * @return string       Texte de sélection pour la requête
  */
 function spip_mysql_multi($objet, $lang) {
-	$lengthlang = strlen("[$lang]");
-	$posmulti = "INSTR(" . $objet . ", '<multi>')";
-	$posfinmulti = "INSTR(" . $objet . ", '</multi>')";
-	$debutchaine = "LEFT(" . $objet . ", $posmulti-1)";
-	$finchaine = "RIGHT(" . $objet . ", CHAR_LENGTH(" . $objet . ") -(7+$posfinmulti))";
-	$chainemulti = "TRIM(SUBSTRING(" . $objet . ", $posmulti+7, $posfinmulti -(7+$posmulti)))";
-	$poslang = "INSTR($chainemulti,'[" . $lang . "]')";
-	$poslang = "IF($poslang=0,INSTR($chainemulti,']')+1,$poslang+$lengthlang)";
-	$chainelang = "TRIM(SUBSTRING(" . $objet . ", $posmulti+7+$poslang-1,$posfinmulti -($posmulti+7+$poslang-1) ))";
-	$posfinlang = "INSTR(" . $chainelang . ", '[')";
-	$chainelang = "IF($posfinlang>0,LEFT($chainelang,$posfinlang-1),$chainelang)";
-	//$chainelang = "LEFT($chainelang,$posfinlang-1)";
-	$retour = "(TRIM(IF($posmulti = 0 , " .
-		"     TRIM(" . $objet . "), " .
-		"     CONCAT( " .
-		"          $debutchaine, " .
-		"          IF( " .
-		"               $poslang = 0, " .
-		"                     $chainemulti, " .
-		"               $chainelang" .
-		"          ), " .
-		"          $finchaine" .
-		"     ) " .
-		"))) AS multi";
-
-	return $retour;
+    $lengthlang = strlen("[$lang]");
+    $posmulti = "INSTR(" . $objet . ", '<multi>')";
+    $posfinmulti = "INSTR(" . $objet . ", '</multi>')";
+    $debutchaine = "LEFT(" . $objet . ", $posmulti-1)";
+    $finchaine = "RIGHT(" . $objet . ", CHAR_LENGTH(" . $objet . ") -(7+$posfinmulti))";
+    $chainemulti = "TRIM(SUBSTRING(" . $objet . ", $posmulti+7, $posfinmulti -(7+$posmulti)))";
+    $poslang = "INSTR($chainemulti,'[" . $lang . "]')";
+    $poslang = "IF($poslang=0,INSTR($chainemulti,']')+1,$poslang+$lengthlang)";
+    $chainelang = "TRIM(SUBSTRING(" . $objet . ", $posmulti+7+$poslang-1,$posfinmulti -($posmulti+7+$poslang-1) ))";
+    $posfinlang = "INSTR(" . $chainelang . ", '[')";
+    $chainelang = "IF($posfinlang>0,LEFT($chainelang,$posfinlang-1),$chainelang)";
+    //$chainelang = "LEFT($chainelang,$posfinlang-1)";
+    $retour = "(TRIM(IF($posmulti = 0 , " .
+        "     TRIM(" . $objet . "), " .
+        "     CONCAT( " .
+        "          $debutchaine, " .
+        "          IF( " .
+        "               $poslang = 0, " .
+        "                     $chainemulti, " .
+        "               $chainelang" .
+        "          ), " .
+        "          $finchaine" .
+        "     ) " .
+        "))) AS multi";
+
+    return $retour;
 }
 
 /**
@@ -1496,7 +1496,7 @@ 
  *     Valeur hexadécimale pour MySQL
  **/
 function spip_mysql_hex($v) {
-	return "0x" . $v;
+    return "0x" . $v;
 }
 
 /**
@@ -1512,22 +1512,22 @@ 
  *    Donnée prête à être utilisée par le gestionnaire SQL
  */
 function spip_mysql_quote($v, $type = '') {
-	if ($type) {
-		if (!is_array($v)) {
-			return spip_mysql_cite($v, $type);
-		}
-		// si c'est un tableau, le parcourir en propageant le type
-		foreach ($v as $k => $r) {
-			$v[$k] = spip_mysql_quote($r, $type);
-		}
-
-		return $v;
-	}
-	// si on ne connait pas le type, s'en remettre a _q :
-	// on ne fera pas mieux
-	else {
-		return _q($v);
-	}
+    if ($type) {
+        if (!is_array($v)) {
+            return spip_mysql_cite($v, $type);
+        }
+        // si c'est un tableau, le parcourir en propageant le type
+        foreach ($v as $k => $r) {
+            $v[$k] = spip_mysql_quote($r, $type);
+        }
+
+        return $v;
+    }
+    // si on ne connait pas le type, s'en remettre a _q :
+    // on ne fera pas mieux
+    else {
+        return _q($v);
+    }
 }
 
 /**
@@ -1543,17 +1543,17 @@ 
  *     Expression SQL
  **/
 function spip_mysql_date_proche($champ, $interval, $unite) {
-	return '('
-	. $champ
-	. (($interval <= 0) ? '>' : '<')
-	. (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
-	. '('
-	. sql_quote(date('Y-m-d H:i:s'))
-	. ', INTERVAL '
-	. (($interval > 0) ? $interval : (0 - $interval))
-	. ' '
-	. $unite
-	. '))';
+    return '('
+    . $champ
+    . (($interval <= 0) ? '>' : '<')
+    . (($interval <= 0) ? 'DATE_SUB' : 'DATE_ADD')
+    . '('
+    . sql_quote(date('Y-m-d H:i:s'))
+    . ', INTERVAL '
+    . (($interval > 0) ? $interval : (0 - $interval))
+    . ' '
+    . $unite
+    . '))';
 }
 
 
@@ -1577,21 +1577,21 @@ 
  *     Expression de requête SQL
  **/
 function spip_mysql_in($val, $valeurs, $not = '', $serveur = '', $requeter = true) {
-	$n = $i = 0;
-	$in_sql = "";
-	while ($n = strpos($valeurs, ',', $n + 1)) {
-		if ((++$i) >= 255) {
-			$in_sql .= "($val $not IN (" .
-				substr($valeurs, 0, $n) .
-				"))\n" .
-				($not ? "AND\t" : "OR\t");
-			$valeurs = substr($valeurs, $n + 1);
-			$i = $n = 0;
-		}
-	}
-	$in_sql .= "($val $not IN ($valeurs))";
-
-	return "($in_sql)";
+    $n = $i = 0;
+    $in_sql = "";
+    while ($n = strpos($valeurs, ',', $n + 1)) {
+        if ((++$i) >= 255) {
+            $in_sql .= "($val $not IN (" .
+                substr($valeurs, 0, $n) .
+                "))\n" .
+                ($not ? "AND\t" : "OR\t");
+            $valeurs = substr($valeurs, $n + 1);
+            $i = $n = 0;
+        }
+    }
+    $in_sql .= "($val $not IN ($valeurs))";
+
+    return "($in_sql)";
 }
 
 
@@ -1608,16 +1608,16 @@ 
  * @return string               Expression de requête SQL
  */
 function calcul_mysql_in($val, $valeurs, $not = '') {
-	if (is_array($valeurs)) {
-		$valeurs = join(',', array_map('_q', $valeurs));
-	} elseif ($valeurs[0] === ',') {
-		$valeurs = substr($valeurs, 1);
-	}
-	if (!strlen(trim($valeurs))) {
-		return ($not ? "0=0" : '0=1');
-	}
-
-	return spip_mysql_in($val, $valeurs, $not);
+    if (is_array($valeurs)) {
+        $valeurs = join(',', array_map('_q', $valeurs));
+    } elseif ($valeurs[0] === ',') {
+        $valeurs = substr($valeurs, 1);
+    }
+    if (!strlen(trim($valeurs))) {
+        return ($not ? "0=0" : '0=1');
+    }
+
+    return spip_mysql_in($val, $valeurs, $not);
 }
 
 
@@ -1629,26 +1629,26 @@ 
  * @return string|number     Texte ou nombre échappé
  */
 function spip_mysql_cite($v, $type) {
-	if (is_null($v)
-		and stripos($type, "NOT NULL") === false
-	) {
-		return 'NULL';
-	} // null php se traduit en NULL SQL
-	if (sql_test_date($type) and preg_match('/^\w+\(/', $v)) {
-		return $v;
-	}
-	if (sql_test_int($type)) {
-		if (is_numeric($v) or (ctype_xdigit(substr($v, 2))
-				and $v[0] == '0' and $v[1] == 'x')
-		) {
-			return $v;
-		} // si pas numerique, forcer le intval
-		else {
-			return intval($v);
-		}
-	}
-
-	return ("'" . addslashes($v) . "'");
+    if (is_null($v)
+        and stripos($type, "NOT NULL") === false
+    ) {
+        return 'NULL';
+    } // null php se traduit en NULL SQL
+    if (sql_test_date($type) and preg_match('/^\w+\(/', $v)) {
+        return $v;
+    }
+    if (sql_test_int($type)) {
+        if (is_numeric($v) or (ctype_xdigit(substr($v, 2))
+                and $v[0] == '0' and $v[1] == 'x')
+        ) {
+            return $v;
+        } // si pas numerique, forcer le intval
+        else {
+            return intval($v);
+        }
+    }
+
+    return ("'" . addslashes($v) . "'");
 }
 
 
@@ -1672,21 +1672,21 @@ 
  */
 function spip_get_lock($nom, $timeout = 0) {
 
-	define('_LOCK_TIME', intval(time() / 3600 - 316982));
+    define('_LOCK_TIME', intval(time() / 3600 - 316982));
 
-	$connexion = &$GLOBALS['connexions'][0];
-	$bd = $connexion['db'];
-	$prefixe = $connexion['prefixe'];
-	$nom = "$bd:$prefixe:$nom" . _LOCK_TIME;
+    $connexion = &$GLOBALS['connexions'][0];
+    $bd = $connexion['db'];
+    $prefixe = $connexion['prefixe'];
+    $nom = "$bd:$prefixe:$nom" . _LOCK_TIME;
 
-	$connexion['last'] = $q = "SELECT GET_LOCK(" . _q($nom) . ", $timeout) AS n";
+    $connexion['last'] = $q = "SELECT GET_LOCK(" . _q($nom) . ", $timeout) AS n";
 
-	$q = @sql_fetch(mysqli_query(_mysql_link(), $q));
-	if (!$q) {
-		spip_log("pas de lock sql pour $nom", _LOG_ERREUR);
-	}
+    $q = @sql_fetch(mysqli_query(_mysql_link(), $q));
+    if (!$q) {
+        spip_log("pas de lock sql pour $nom", _LOG_ERREUR);
+    }
 
-	return $q['n'];
+    return $q['n'];
 }
 
 
@@ -1703,13 +1703,13 @@ 
  */
 function spip_release_lock($nom) {
 
-	$connexion = &$GLOBALS['connexions'][0];
-	$bd = $connexion['db'];
-	$prefixe = $connexion['prefixe'];
-	$nom = "$bd:$prefixe:$nom" . _LOCK_TIME;
+    $connexion = &$GLOBALS['connexions'][0];
+    $bd = $connexion['db'];
+    $prefixe = $connexion['prefixe'];
+    $nom = "$bd:$prefixe:$nom" . _LOCK_TIME;
 
-	$connexion['last'] = $q = "SELECT RELEASE_LOCK(" . _q($nom) . ")";
-	mysqli_query(_mysql_link(), $q);
+    $connexion['last'] = $q = "SELECT RELEASE_LOCK(" . _q($nom) . ")";
+    mysqli_query(_mysql_link(), $q);
 }
 
 
@@ -1720,7 +1720,7 @@ 
  *     True si on a les fonctions, false sinon
  */
 function spip_versions_mysql() {
-	return function_exists('mysqli_query');
+    return function_exists('mysqli_query');
 }
 
 
@@ -1733,20 +1733,20 @@ 
  *     - chaîne : code compilé pour le faire désactiver par SPIP sinon
  */
 function test_rappel_nom_base_mysql($server_db) {
-	$GLOBALS['mysql_rappel_nom_base'] = true;
-	sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
-	$ok = spip_query("INSERT INTO spip_meta (nom,valeur) VALUES ('mysql_rappel_nom_base', 'test')", $server_db);
+    $GLOBALS['mysql_rappel_nom_base'] = true;
+    sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
+    $ok = spip_query("INSERT INTO spip_meta (nom,valeur) VALUES ('mysql_rappel_nom_base', 'test')", $server_db);
 
-	if ($ok) {
-		sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
+    if ($ok) {
+        sql_delete('spip_meta', "nom='mysql_rappel_nom_base'", $server_db);
 
-		return '';
-	} else {
-		$GLOBALS['mysql_rappel_nom_base'] = false;
+        return '';
+    } else {
+        $GLOBALS['mysql_rappel_nom_base'] = false;
 
-		return "\$GLOBALS['mysql_rappel_nom_base'] = false; " .
-		"/* echec de test_rappel_nom_base_mysql a l'installation. */\n";
-	}
+        return "\$GLOBALS['mysql_rappel_nom_base'] = false; " .
+        "/* echec de test_rappel_nom_base_mysql a l'installation. */\n";
+    }
 }
 
 /**
@@ -1760,13 +1760,13 @@ 
  *     - chaîne : code compilé pour l'indiquer le résultat du test à SPIP
  */
 function test_sql_mode_mysql($server_db) {
-	$res = sql_select("version() as v", '', '', '', '', '', '', $server_db);
-	$row = sql_fetch($res, $server_db);
-	if (version_compare($row['v'], '5.0.0', '>=')) {
-		defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE', true);
+    $res = sql_select("version() as v", '', '', '', '', '', '', $server_db);
+    $row = sql_fetch($res, $server_db);
+    if (version_compare($row['v'], '5.0.0', '>=')) {
+        defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE', true);
 
-		return "defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE',true);\n";
-	}
+        return "defined('_MYSQL_SET_SQL_MODE') || define('_MYSQL_SET_SQL_MODE',true);\n";
+    }
 
-	return '';
+    return '';
 }

Spacing +78 added lines, -78 removed lines

@@ -48,7 +48,7 @@ 
 	// si port est fourni mais pas host, c'est un socket -> compat avec vieille syntaxe de mysql_connect() et anciens fichiers connect.php
 	if (
 		$port and !is_numeric($socket = $port)
-		and (!$host or $host=='localhost')) {
+		and (!$host or $host == 'localhost')) {
 		$link = @mysqli_connect($host, $login, $pass, '', null, $socket);
 	}
 	elseif ($port) {
@@ -59,7 +59,7 @@ 
 	}
 
 	if (!$link) {
-		spip_log('Echec mysqli_connect. Erreur : ' . mysqli_connect_error(), 'mysql.' . _LOG_HS);
+		spip_log('Echec mysqli_connect. Erreur : '.mysqli_connect_error(), 'mysql.'._LOG_HS);
 
 		return false;
 	}
@@ -76,7 +76,7 @@ 
 		}
 	}
 
-	spip_log("Connexion MySQLi vers $host, base $db, prefixe $prefixe " . ($ok ? "operationnelle" : 'impossible'),
+	spip_log("Connexion MySQLi vers $host, base $db, prefixe $prefixe ".($ok ? "operationnelle" : 'impossible'),
 		_LOG_DEBUG);
 
 	return !$ok ? false : array(
@@ -165,9 +165,9 @@ 
  */
 function spip_mysql_set_charset($charset, $serveur = '', $requeter = true) {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
-	spip_log("changement de charset sql : " . "SET NAMES " . _q($charset), _LOG_DEBUG);
+	spip_log("changement de charset sql : "."SET NAMES "._q($charset), _LOG_DEBUG);
 
-	return mysqli_query($connexion['link'], $connexion['last'] = "SET NAMES " . _q($charset));
+	return mysqli_query($connexion['link'], $connexion['last'] = "SET NAMES "._q($charset));
 }
 
 
@@ -182,7 +182,7 @@ 
 function spip_mysql_get_charset($charset = array(), $serveur = '', $requeter = true) {
 	$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 	$connexion['last'] = $c = "SHOW CHARACTER SET"
-		. (!$charset ? '' : (" LIKE " . _q($charset['charset'])));
+		. (!$charset ? '' : (" LIKE "._q($charset['charset'])));
 
 	return spip_mysql_fetch(mysqli_query($connexion['link'], $c), null, $serveur);
 }
@@ -242,14 +242,14 @@ 
 	$debug = '';
 	if (defined('_DEBUG_SLOW_QUERIES') and _DEBUG_SLOW_QUERIES) {
 		if (isset($GLOBALS['debug']['aucasou'])) {
-			list(, $id, , $infos) = $GLOBALS['debug']['aucasou'];
-			$debug .= "BOUCLE$id @ " . $infos[0] . " | ";
+			list(, $id,, $infos) = $GLOBALS['debug']['aucasou'];
+			$debug .= "BOUCLE$id @ ".$infos[0]." | ";
 		}
-		$debug .= $_SERVER['REQUEST_URI'] . ' + ' . $GLOBALS['ip'];
-		$debug = ' /* ' . mysqli_real_escape_string($link, str_replace('*/', '@/', $debug)) . ' */';
+		$debug .= $_SERVER['REQUEST_URI'].' + '.$GLOBALS['ip'];
+		$debug = ' /* '.mysqli_real_escape_string($link, str_replace('*/', '@/', $debug)).' */';
 	}
 
-	$r = mysqli_query($link, $query . $debug);
+	$r = mysqli_query($link, $query.$debug);
 
 	//Eviter de propager le GoneAway sur les autres requetes d'un même processus PHP
 	if ($e = spip_mysql_errno($serveur)) {  // Log d'un Gone Away
@@ -262,7 +262,7 @@ 
 			$connexion = &$GLOBALS['connexions'][$serveur ? strtolower($serveur) : 0];
 			$link = $connexion['link'];
 			//On retente au cas où
-			$r = mysqli_query($link, $query . $debug);
+			$r = mysqli_query($link, $query.$debug);
 		}
 	}
 
@@ -290,7 +290,7 @@ 
 	// d'utiliser ceux-ci, copie-colle de phpmyadmin
 	$query = preg_replace(",^TABLE\s*`([^`]*)`,i", "TABLE \\1", $query);
 
-	return spip_mysql_query("ALTER " . $query, $serveur, $requeter); # i.e. que PG se debrouille
+	return spip_mysql_query("ALTER ".$query, $serveur, $requeter); # i.e. que PG se debrouille
 }
 
 
@@ -303,7 +303,7 @@ 
  * @return bool            Toujours true
  */
 function spip_mysql_optimize($table, $serveur = '', $requeter = true) {
-	spip_mysql_query("OPTIMIZE TABLE " . $table);
+	spip_mysql_query("OPTIMIZE TABLE ".$table);
 
 	return true;
 }
@@ -326,7 +326,7 @@ 
 	$link = $connexion['link'];
 	$db = $connexion['db'];
 
-	$query = 'EXPLAIN ' . _mysql_traite_query($query, $db, $prefixe);
+	$query = 'EXPLAIN '._mysql_traite_query($query, $db, $prefixe);
 	$r = mysqli_query($link, $query);
 
 	return spip_mysql_fetch($r, null, $serveur);
@@ -377,7 +377,7 @@ 
 		. calculer_mysql_expression('WHERE', $where)
 		. calculer_mysql_expression('GROUP BY', $groupby, ',')
 		. calculer_mysql_expression('HAVING', $having)
-		. ($orderby ? ("\nORDER BY " . spip_mysql_order($orderby)) : '')
+		. ($orderby ? ("\nORDER BY ".spip_mysql_order($orderby)) : '')
 		. ($limit ? "\nLIMIT $limit" : '');
 
 	// renvoyer la requete inerte si demandee
@@ -467,12 +467,12 @@ 
 	$exp = "\n$expression ";
 
 	if (!is_array($v)) {
-		return $exp . $v;
+		return $exp.$v;
 	} else {
 		if (strtoupper($join) === 'AND') {
-			return $exp . join("\n\t$join ", array_map('calculer_mysql_where', $v));
+			return $exp.join("\n\t$join ", array_map('calculer_mysql_where', $v));
 		} else {
-			return $exp . join($join, $v);
+			return $exp.join($join, $v);
 		}
 	}
 }
@@ -490,17 +490,17 @@ 
 		if (substr($k, -1) == '@') {
 			// c'est une jointure qui se refere au from precedent
 			// pas de virgule
-			$res .= '  ' . $v;
+			$res .= '  '.$v;
 		} else {
 			if (!is_numeric($k)) {
 				$p = strpos($v, " ");
 				if ($p) {
-					$v = substr($v, 0, $p) . " AS `$k`" . substr($v, $p);
+					$v = substr($v, 0, $p)." AS `$k`".substr($v, $p);
 				} else {
 					$v .= " AS `$k`";
 				}
 			}
-			$res .= ', ' . $v;
+			$res .= ', '.$v;
 		}
 	}
 
@@ -529,13 +529,13 @@ 
 function _mysql_traite_query($query, $db = '', $prefixe = '') {
 
 	if ($GLOBALS['mysql_rappel_nom_base'] and $db) {
-		$pref = '`' . $db . '`.';
+		$pref = '`'.$db.'`.';
 	} else {
 		$pref = '';
 	}
 
 	if ($prefixe) {
-		$pref .= $prefixe . "_";
+		$pref .= $prefixe."_";
 	}
 
 	if (!preg_match('/\s(SET|VALUES|WHERE|DATABASE)\s/i', $query, $regs)) {
@@ -549,12 +549,12 @@ 
 		if (stripos($suite, "SELECT") !== false) {
 			list($suite, $textes) = query_echappe_textes($suite);
 			if (preg_match('/^(.*?)([(]\s*SELECT\b.*)$/si', $suite, $r)) {
-				$suite = $r[1] . _mysql_traite_query($r[2], $db, $prefixe);
+				$suite = $r[1]._mysql_traite_query($r[2], $db, $prefixe);
 			}
 			$suite = query_reinjecte_textes($suite, $textes);
 		}
 	}
-	$r = preg_replace(_SQL_PREFIXE_TABLE_MYSQL, '\1' . $pref, $query) . $suite;
+	$r = preg_replace(_SQL_PREFIXE_TABLE_MYSQL, '\1'.$pref, $query).$suite;
 
 	// en option, remplacer les emoji (que mysql ne sait pas gérer) en 💩
 	if (defined('_MYSQL_NOPLANES') and _MYSQL_NOPLANES and lire_meta('charset_sql_connexion') == 'utf8') {
@@ -584,7 +584,7 @@ 
 	$link = _mysql_link($serveur);
 	$ok = mysqli_select_db($link, $db);
 	if (!$ok) {
-		spip_log('Echec mysqli_selectdb. Erreur : ' . mysqli_error($link), 'mysql.' . _LOG_CRITIQUE);
+		spip_log('Echec mysqli_selectdb. Erreur : '.mysqli_error($link), 'mysql.'._LOG_CRITIQUE);
 	}
 
 	return $ok;
@@ -674,10 +674,10 @@ 
 
 	$character_set = "";
 	if (@$GLOBALS['meta']['charset_sql_base']) {
-		$character_set .= " CHARACTER SET " . $GLOBALS['meta']['charset_sql_base'];
+		$character_set .= " CHARACTER SET ".$GLOBALS['meta']['charset_sql_base'];
 	}
 	if (@$GLOBALS['meta']['charset_collation_sql_base']) {
-		$character_set .= " COLLATE " . $GLOBALS['meta']['charset_collation_sql_base'];
+		$character_set .= " COLLATE ".$GLOBALS['meta']['charset_collation_sql_base'];
 	}
 
 	foreach ($champs as $k => $v) {
@@ -686,7 +686,7 @@ 
 			if (preg_match(',(char|text),i', $defs[1])
 				and !preg_match(',(binary|CHARACTER|COLLATE),i', $v)
 			) {
-				$v = $defs[1] . $character_set . ' ' . substr($v, strlen($defs[1]));
+				$v = $defs[1].$character_set.' '.substr($v, strlen($defs[1]));
 			}
 		}
 
@@ -698,7 +698,7 @@ 
 		$s = ",";
 	}
 	$temporary = $temporary ? 'TEMPORARY' : '';
-	$q = "CREATE $temporary TABLE IF NOT EXISTS $nom ($query" . ($keys ? ",$keys" : '') . ")"
+	$q = "CREATE $temporary TABLE IF NOT EXISTS $nom ($query".($keys ? ",$keys" : '').")"
 		. " ENGINE=MyISAM"
 		. ($character_set ? " DEFAULT $character_set" : "")
 		. "\n";
@@ -770,7 +770,7 @@ 
 		return false;
 	}
 
-	$query = "CREATE VIEW $nom AS " . $query_select;
+	$query = "CREATE VIEW $nom AS ".$query_select;
 
 	return spip_mysql_query($query, $serveur, $requeter);
 }
@@ -828,7 +828,7 @@ 
  *     Ressource à utiliser avec sql_fetch()
  **/
 function spip_mysql_showbase($match, $serveur = '', $requeter = true) {
-	return spip_mysql_query("SHOW TABLES LIKE " . _q($match), $serveur, $requeter);
+	return spip_mysql_query("SHOW TABLES LIKE "._q($match), $serveur, $requeter);
 }
 
 /**
@@ -922,22 +922,22 @@ 
 			}
 			if ($val['Default'] === '0' || $val['Default']) {
 				if (preg_match('/[A-Z_]/', $val['Default'])) {
-					$nfields[$val["Field"]] .= ' DEFAULT ' . $val['Default'];
+					$nfields[$val["Field"]] .= ' DEFAULT '.$val['Default'];
 				} else {
-					$nfields[$val["Field"]] .= " DEFAULT '" . $val['Default'] . "'";
+					$nfields[$val["Field"]] .= " DEFAULT '".$val['Default']."'";
 				}
 			}
 			if ($val['Extra']) {
-				$nfields[$val["Field"]] .= ' ' . $val['Extra'];
+				$nfields[$val["Field"]] .= ' '.$val['Extra'];
 			}
 			if ($val['Key'] == 'PRI') {
 				$nkeys['PRIMARY KEY'] = $val["Field"];
 			} else {
 				if ($val['Key'] == 'MUL') {
-					$nkeys['KEY ' . $val["Field"]] = $val["Field"];
+					$nkeys['KEY '.$val["Field"]] = $val["Field"];
 				} else {
 					if ($val['Key'] == 'UNI') {
-						$nkeys['UNIQUE KEY ' . $val["Field"]] = $val["Field"];
+						$nkeys['UNIQUE KEY '.$val["Field"]] = $val["Field"];
 					}
 				}
 			}
@@ -1008,7 +1008,7 @@ 
 	$serveur = '',
 	$requeter = true
 ) {
-	$c = !$groupby ? '*' : ('DISTINCT ' . (is_string($groupby) ? $groupby : join(',', $groupby)));
+	$c = !$groupby ? '*' : ('DISTINCT '.(is_string($groupby) ? $groupby : join(',', $groupby)));
 
 	$r = spip_mysql_select("COUNT($c)", $from, $where, '', '', '', $having, $serveur, $requeter);
 	if (!$requeter) {
@@ -1048,7 +1048,7 @@ 
 	if ($s) {
 		$trace = debug_backtrace();
 		if ($trace[0]['function'] != "spip_mysql_error") {
-			spip_log("$s - $query - " . sql_error_backtrace(), 'mysql.' . _LOG_ERREUR);
+			spip_log("$s - $query - ".sql_error_backtrace(), 'mysql.'._LOG_ERREUR);
 		}
 	}
 
@@ -1206,7 +1206,7 @@ 
 		$couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
 	}
 
-	return spip_mysql_insert($table, "(" . join(',', array_keys($couples)) . ")", "(" . join(',', $couples) . ")", $desc,
+	return spip_mysql_insert($table, "(".join(',', array_keys($couples)).")", "(".join(',', $couples).")", $desc,
 		$serveur, $requeter);
 }
 
@@ -1240,7 +1240,7 @@ 
 	}
 	$fields = isset($desc['field']) ? $desc['field'] : array();
 
-	$cles = "(" . join(',', array_keys(reset($tab_couples))) . ')';
+	$cles = "(".join(',', array_keys(reset($tab_couples))).')';
 	$valeurs = array();
 	$r = false;
 
@@ -1249,7 +1249,7 @@ 
 		foreach ($couples as $champ => $val) {
 			$couples[$champ] = spip_mysql_cite($val, $fields[$champ]);
 		}
-		$valeurs[] = '(' . join(',', $couples) . ')';
+		$valeurs[] = '('.join(',', $couples).')';
 		if (count($valeurs) >= 100) {
 			$r = spip_mysql_insert($table, $cles, join(', ', $valeurs), $desc, $serveur, $requeter);
 			$valeurs = array();
@@ -1286,7 +1286,7 @@ 
 function spip_mysql_update($table, $champs, $where = '', $desc = array(), $serveur = '', $requeter = true) {
 	$set = array();
 	foreach ($champs as $champ => $val) {
-		$set[] = $champ . "=$val";
+		$set[] = $champ."=$val";
 	}
 	if (!empty($set)) {
 		return spip_mysql_query(
@@ -1340,7 +1340,7 @@ 
 	}
 	$set = array();
 	foreach ($champs as $champ => $val) {
-		$set[] = $champ . '=' . spip_mysql_cite($val, @$fields[$champ]);
+		$set[] = $champ.'='.spip_mysql_cite($val, @$fields[$champ]);
 	}
 
 	return spip_mysql_query(
@@ -1405,8 +1405,8 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_replace($table, $couples, $desc = array(), $serveur = '', $requeter = true) {
-	return spip_mysql_query("REPLACE $table (" . join(',', array_keys($couples)) . ') VALUES (' . join(',',
-			array_map('_q', $couples)) . ')', $serveur, $requeter);
+	return spip_mysql_query("REPLACE $table (".join(',', array_keys($couples)).') VALUES ('.join(',',
+			array_map('_q', $couples)).')', $serveur, $requeter);
 }
 
 
@@ -1435,10 +1435,10 @@ 
  *     - False en cas d'erreur.
  **/
 function spip_mysql_replace_multi($table, $tab_couples, $desc = array(), $serveur = '', $requeter = true) {
-	$cles = "(" . join(',', array_keys($tab_couples[0])) . ')';
+	$cles = "(".join(',', array_keys($tab_couples[0])).')';
 	$valeurs = array();
 	foreach ($tab_couples as $couples) {
-		$valeurs[] = '(' . join(',', array_map('_q', $couples)) . ')';
+		$valeurs[] = '('.join(',', array_map('_q', $couples)).')';
 	}
 	$valeurs = implode(', ', $valeurs);
 
@@ -1458,28 +1458,28 @@ 
  */
 function spip_mysql_multi($objet, $lang) {
 	$lengthlang = strlen("[$lang]");
-	$posmulti = "INSTR(" . $objet . ", '<multi>')";
-	$posfinmulti = "INSTR(" . $objet . ", '</multi>')";
-	$debutchaine = "LEFT(" . $objet . ", $posmulti-1)";
-	$finchaine = "RIGHT(" . $objet . ", CHAR_LENGTH(" . $objet . ") -(7+$posfinmulti))";
-	$chainemulti = "TRIM(SUBSTRING(" . $objet . ", $posmulti+7, $posfinmulti -(7+$posmulti)))";
-	$poslang = "INSTR($chainemulti,'[" . $lang . "]')";
+	$posmulti = "INSTR(".$objet.", '<multi>')";
+	$posfinmulti = "INSTR(".$objet.", '</multi>')";
+	$debutchaine = "LEFT(".$objet.", $posmulti-1)";
+	$finchaine = "RIGHT(".$objet.", CHAR_LENGTH(".$objet.") -(7+$posfinmulti))";
+	$chainemulti = "TRIM(SUBSTRING(".$objet.", $posmulti+7, $posfinmulti -(7+$posmulti)))";
+	$poslang = "INSTR($chainemulti,'[".$lang."]')";
 	$poslang = "IF($poslang=0,INSTR($chainemulti,']')+1,$poslang+$lengthlang)";
-	$chainelang = "TRIM(SUBSTRING(" . $objet . ", $posmulti+7+$poslang-1,$posfinmulti -($posmulti+7+$poslang-1) ))";
-	$posfinlang = "INSTR(" . $chainelang . ", '[')";
+	$chainelang = "TRIM(SUBSTRING(".$objet.", $posmulti+7+$poslang-1,$posfinmulti -($posmulti+7+$poslang-1) ))";
+	$posfinlang = "INSTR(".$chainelang.", '[')";
 	$chainelang = "IF($posfinlang>0,LEFT($chainelang,$posfinlang-1),$chainelang)";
 	//$chainelang = "LEFT($chainelang,$posfinlang-1)";
-	$retour = "(TRIM(IF($posmulti = 0 , " .
-		"     TRIM(" . $objet . "), " .
-		"     CONCAT( " .
-		"          $debutchaine, " .
-		"          IF( " .
-		"               $poslang = 0, " .
-		"                     $chainemulti, " .
-		"               $chainelang" .
-		"          ), " .
-		"          $finchaine" .
-		"     ) " .
+	$retour = "(TRIM(IF($posmulti = 0 , ".
+		"     TRIM(".$objet."), ".
+		"     CONCAT( ".
+		"          $debutchaine, ".
+		"          IF( ".
+		"               $poslang = 0, ".
+		"                     $chainemulti, ".
+		"               $chainelang".
+		"          ), ".
+		"          $finchaine".
+		"     ) ".
 		"))) AS multi";
 
 	return $retour;
@@ -1496,7 +1496,7 @@ 
  *     Valeur hexadécimale pour MySQL
  **/
 function spip_mysql_hex($v) {
-	return "0x" . $v;
+	return "0x".$v;
 }
 
 /**
@@ -1581,9 +1581,9 @@ 
 	$in_sql = "";
 	while ($n = strpos($valeurs, ',', $n + 1)) {
 		if ((++$i) >= 255) {
-			$in_sql .= "($val $not IN (" .
-				substr($valeurs, 0, $n) .
-				"))\n" .
+			$in_sql .= "($val $not IN (".
+				substr($valeurs, 0, $n).
+				"))\n".
 				($not ? "AND\t" : "OR\t");
 			$valeurs = substr($valeurs, $n + 1);
 			$i = $n = 0;
@@ -1648,7 +1648,7 @@ 
 		}
 	}
 
-	return ("'" . addslashes($v) . "'");
+	return ("'".addslashes($v)."'");
 }
 
 
@@ -1677,9 +1677,9 @@ 
 	$connexion = &$GLOBALS['connexions'][0];
 	$bd = $connexion['db'];
 	$prefixe = $connexion['prefixe'];
-	$nom = "$bd:$prefixe:$nom" . _LOCK_TIME;
+	$nom = "$bd:$prefixe:$nom"._LOCK_TIME;
 
-	$connexion['last'] = $q = "SELECT GET_LOCK(" . _q($nom) . ", $timeout) AS n";
+	$connexion['last'] = $q = "SELECT GET_LOCK("._q($nom).", $timeout) AS n";
 
 	$q = @sql_fetch(mysqli_query(_mysql_link(), $q));
 	if (!$q) {
@@ -1706,9 +1706,9 @@ 
 	$connexion = &$GLOBALS['connexions'][0];
 	$bd = $connexion['db'];
 	$prefixe = $connexion['prefixe'];
-	$nom = "$bd:$prefixe:$nom" . _LOCK_TIME;
+	$nom = "$bd:$prefixe:$nom"._LOCK_TIME;
 
-	$connexion['last'] = $q = "SELECT RELEASE_LOCK(" . _q($nom) . ")";
+	$connexion['last'] = $q = "SELECT RELEASE_LOCK("._q($nom).")";
 	mysqli_query(_mysql_link(), $q);
 }
 
@@ -1744,7 +1744,7 @@ 
 	} else {
 		$GLOBALS['mysql_rappel_nom_base'] = false;
 
-		return "\$GLOBALS['mysql_rappel_nom_base'] = false; " .
+		return "\$GLOBALS['mysql_rappel_nom_base'] = false; ".
 		"/* echec de test_rappel_nom_base_mysql a l'installation. */\n";
 	}
 }

ecrire/xml/valider.php

Doc Comments +1 added lines, -1 removed lines

@@ -319,7 +319,7 @@
 	/**
 	 * Constructeur
 	 *
-	 * @param array $process ?
+	 * @param boolean $process ?
 	 **/
 	public function __construct($process = array()) {
 		if (is_array($process)) {

Indentation +331 added lines, -331 removed lines

@@ -11,7 +11,7 @@ 
 \***************************************************************************/
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -23,333 +23,333 @@ 
  **/
 class ValidateurXML {
 
-	// http://code.spip.net/@validerElement
-	public function validerElement($phraseur, $name, $attrs) {
-		if (!($p = isset($this->dtc->elements[$name]))) {
-			if ($p = strpos($name, ':')) {
-				$name = substr($name, $p + 1);
-				$p = isset($this->dtc->elements[$name]);
-			}
-			if (!$p) {
-				coordonnees_erreur($this, " <b>$name</b>&nbsp;: "
-					. _T('zxml_inconnu_balise'));
-
-				return;
-			}
-		}
-		// controler les filles illegitimes, ca suffit 
-		$depth = $this->depth;
-		$ouvrant = $this->ouvrant;
-		#spip_log("trouve $name apres " . $ouvrant[$depth]);
-		if (isset($ouvrant[$depth])) {
-			if (preg_match('/^\s*(\w+)/', $ouvrant[$depth], $r)) {
-				$pere = $r[1];
-				#spip_log("pere $pere");
-				if (isset($this->dtc->elements[$pere])) {
-					$fils = $this->dtc->elements[$pere];
-					#spip_log("rejeton $name fils " . @join(',',$fils));
-					if (!($p = @in_array($name, $fils))) {
-						if ($p = strpos($name, ':')) {
-							$p = substr($name, $p + 1);
-							$p = @in_array($p, $fils);
-						}
-					}
-					if (!$p) {
-						$bons_peres = @join('</b>, <b>', $this->dtc->peres[$name]);
-						coordonnees_erreur($this, " <b>$name</b> "
-							. _T('zxml_non_fils')
-							. ' <b>'
-							. $pere
-							. '</b>'
-							. (!$bons_peres ? ''
-								: ('<p style="font-size: 80%"> ' . _T('zxml_mais_de') . ' <b>' . $bons_peres . '</b></p>')));
-					} elseif ($this->dtc->regles[$pere][0] == '/') {
-						$frat = substr($depth, 2);
-						if (!isset($this->fratrie[$frat])) {
-							$this->fratrie[$frat] = '';
-						}
-						$this->fratrie[$frat] .= "$name ";
-					}
-				}
-			}
-		}
-		// Init de la suite des balises a memoriser si regle difficile
-		if ($this->dtc->regles[$name] and $this->dtc->regles[$name][0] == '/') {
-			$this->fratrie[$depth] = '';
-		}
-		if (isset($this->dtc->attributs[$name])) {
-			foreach ($this->dtc->attributs[$name] as $n => $v) {
-				if (($v[1] == '#REQUIRED') and (!isset($attrs[$n]))) {
-					coordonnees_erreur($this, " <b>$n</b>"
-						. '&nbsp;:&nbsp;'
-						. _T('zxml_obligatoire_attribut')
-						. " <b>$name</b>");
-				}
-			}
-		}
-	}
-
-	// http://code.spip.net/@validerAttribut
-	public function validerAttribut($phraseur, $name, $val, $bal) {
-		// Si la balise est inconnue, eviter d'insister
-		if (!isset($this->dtc->attributs[$bal])) {
-			return;
-		}
-
-		$a = $this->dtc->attributs[$bal];
-		if (!isset($a[$name])) {
-			$bons = join(', ', array_keys($a));
-			if ($bons) {
-				$bons = " title=' " .
-					_T('zxml_connus_attributs') .
-					'&nbsp;: ' .
-					$bons .
-					"'";
-			}
-			$bons .= " style='font-weight: bold'";
-			coordonnees_erreur($this, " <b>$name</b> "
-				. _T('zxml_inconnu_attribut') . ' ' . _T('zxml_de')
-				. " <a$bons>$bal</a> ("
-				. _T('zxml_survoler')
-				. ")");
-		} else {
-			$type = $a[$name][0];
-			if (!preg_match('/^\w+$/', $type)) {
-				$this->valider_motif($phraseur, $name, $val, $bal, $type);
-			} else {
-				if (method_exists($this, $f = 'validerAttribut_' . $type)) {
-					$this->$f($phraseur, $name, $val, $bal);
-				}
-			}
-			#		else spip_log("$type type d'attribut inconnu");
-		}
-	}
-
-	public function validerAttribut_NMTOKEN($phraseur, $name, $val, $bal) {
-		$this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_NMTOKEN);
-	}
-
-	public function validerAttribut_NMTOKENS($phraseur, $name, $val, $bal) {
-		$this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_NMTOKENS);
-	}
-
-	// http://code.spip.net/@validerAttribut_ID
-	public function validerAttribut_ID($phraseur, $name, $val, $bal) {
-		if (isset($this->ids[$val])) {
-			list($l, $c) = $this->ids[$val];
-			coordonnees_erreur($this, " <p><b>$val</b> "
-				. _T('zxml_valeur_attribut')
-				. " <b>$name</b> "
-				. _T('zxml_de')
-				. " <b>$bal</b> "
-				. _T('zxml_vu')
-				. " (L$l,C$c)");
-		} else {
-			$this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_ID);
-			$this->ids[$val] = array(xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur));
-		}
-	}
-
-	// http://code.spip.net/@validerAttribut_IDREF
-	public function validerAttribut_IDREF($phraseur, $name, $val, $bal) {
-		$this->idrefs[] = array($val, xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur));
-	}
-
-	// http://code.spip.net/@validerAttribut_IDREFS
-	public function validerAttribut_IDREFS($phraseur, $name, $val, $bal) {
-		$this->idrefss[] = array($val, xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur));
-	}
-
-	// http://code.spip.net/@valider_motif
-	public function valider_motif($phraseur, $name, $val, $bal, $motif) {
-		if (!preg_match($motif, $val)) {
-			coordonnees_erreur($this, "<b>$val</b> "
-				. _T('zxml_valeur_attribut')
-				. " <b>$name</b> "
-				. _T('zxml_de')
-				. " <b>$bal</b> "
-				. _T('zxml_non_conforme')
-				. "</p><p>"
-				. "<b>" . $motif . "</b>");
-		}
-	}
-
-	// http://code.spip.net/@valider_idref
-	public function valider_idref($nom, $ligne, $col) {
-		if (!isset($this->ids[$nom])) {
-			$this->err[] = array(" <p><b>$nom</b> " . _T('zxml_inconnu_id'), $ligne, $col);
-		}
-	}
-
-	// http://code.spip.net/@valider_passe2
-	public function valider_passe2() {
-		if (!$this->err) {
-			foreach ($this->idrefs as $idref) {
-				list($nom, $ligne, $col) = $idref;
-				$this->valider_idref($nom, $ligne, $col);
-			}
-			foreach ($this->idrefss as $idref) {
-				list($noms, $ligne, $col) = $idref;
-				foreach (preg_split('/\s+/', $noms) as $nom) {
-					$this->valider_idref($nom, $ligne, $col);
-				}
-			}
-		}
-	}
-
-	// http://code.spip.net/@debutElement
-	public function debutElement($phraseur, $name, $attrs) {
-		if ($this->dtc->elements) {
-			$this->validerElement($phraseur, $name, $attrs);
-		}
-
-		if ($f = $this->process['debut']) {
-			$f($this, $name, $attrs);
-		}
-		$depth = $this->depth;
-		$this->debuts[$depth] = strlen($this->res);
-		foreach ($attrs as $k => $v) {
-			$this->validerAttribut($phraseur, $k, $v, $name);
-		}
-	}
-
-	// http://code.spip.net/@finElement
-	public function finElement($phraseur, $name) {
-		$depth = $this->depth;
-		$contenu = $this->contenu;
-
-		$n = strlen($this->res);
-		$c = strlen(trim($contenu[$depth]));
-		$k = $this->debuts[$depth];
-
-		$regle = isset($this->dtc->regles[$name]) ? $this->dtc->regles[$name] : false;
-		$vide = ($regle == 'EMPTY');
-		// controler que les balises devant etre vides le sont 
-		if ($vide) {
-			if ($n <> ($k + $c)) {
-				coordonnees_erreur($this, " <p><b>$name</b> " . _T('zxml_nonvide_balise'));
-			}
-			// pour les regles PCDATA ou iteration de disjonction, tout est fait
-		} elseif ($regle and ($regle != '*')) {
-			if ($regle == '+') {
-				// iteration de disjonction non vide: 1 balise au -
-				if ($n == $k) {
-					coordonnees_erreur($this, "<p>\n<b>$name</b> "
-						. _T('zxml_vide_balise'));
-				}
-			} else {
-				$f = isset($this->fratrie[substr($depth, 2)]) ? $this->fratrie[substr($depth, 2)] : null;
-				if (is_null($f) or !preg_match($regle, $f)) {
-					coordonnees_erreur($this,
-						" <p>\n<b>$name</b> "
-						. _T('zxml_succession_fils_incorrecte')
-						. '&nbsp;: <b>'
-						. $f
-						. '</b>');
-				}
-			}
-
-		}
-		if ($f = $this->process['fin']) {
-			$f($this, $name, $vide);
-		}
-	}
-
-	// http://code.spip.net/@textElement
-	public function textElement($phraseur, $data) {
-		if (trim($data)) {
-			$d = $this->depth;
-			$d = $this->ouvrant[$d];
-			preg_match('/^\s*(\S+)/', $d, $m);
-			if (isset($this->dtc->pcdata[$m[1]]) and ($this->dtc->pcdata[$m[1]])) {
-				coordonnees_erreur($this, " <p><b>" . $m[1] . "</b> "
-					. _T('zxml_nonvide_balise') // message a affiner
-				);
-			}
-		}
-		if ($f = $this->process['text']) {
-			$f($this, $data);
-		}
-	}
-
-	public function piElement($phraseur, $target, $data) {
-		if ($f = $this->process['pi']) {
-			$f($this, $target, $data);
-		}
-	}
-
-	// Denonciation des entitees XML inconnues
-	// Pour contourner le bug de conception de SAX qui ne signale pas si elles
-	// sont dans un attribut, les  entites les plus frequentes ont ete
-	// transcodees au prealable  (sauf & < > " que SAX traite correctement).
-	// On ne les verra donc pas passer a cette etape, contrairement a ce que 
-	// le source de la page laisse legitimement supposer. 
-
-	// http://code.spip.net/@defautElement
-	public function defaultElement($phraseur, $data) {
-		if (!preg_match('/^<!--/', $data)
-			and (preg_match_all('/&([^;]*)?/', $data, $r, PREG_SET_ORDER))
-		) {
-			foreach ($r as $m) {
-				list($t, $e) = $m;
-				if (!isset($this->dtc->entites[$e])) {
-					coordonnees_erreur($this, " <b>$e</b> "
-						. _T('zxml_inconnu_entite')
-						. ' '
-					);
-				}
-			}
-		}
-		if (isset($this->process['default']) and ($f = $this->process['default'])) {
-			$f($this, $data);
-		}
-	}
-
-	// http://code.spip.net/@phraserTout
-	public function phraserTout($phraseur, $data) {
-		xml_parsestring($this, $data);
-
-		if (!$this->dtc or preg_match(',^' . _MESSAGE_DOCTYPE . ',', $data)) {
-			$this->err[] = array('DOCTYPE ?', 0, 0);
-		} else {
-			$this->valider_passe2($this);
-		}
-	}
-
-	/**
-	 * Constructeur
-	 *
-	 * @param array $process ?
-	 **/
-	public function __construct($process = array()) {
-		if (is_array($process)) {
-			$this->process = $process;
-		}
-	}
-
-	public $ids = array();
-	public $idrefs = array();
-	public $idrefss = array();
-	public $debuts = array();
-	public $fratrie = array();
-
-	public $dtc = null;
-	public $sax = null;
-	public $depth = "";
-	public $entete = '';
-	public $page = '';
-	public $res = "";
-	public $err = array();
-	public $contenu = array();
-	public $ouvrant = array();
-	public $reperes = array();
-	public $process = array(
-		'debut' => 'xml_debutElement',
-		'fin' => 'xml_finElement',
-		'text' => 'xml_textElement',
-		'pi' => 'xml_piElement',
-		'default' => 'xml_defaultElement'
-	);
+    // http://code.spip.net/@validerElement
+    public function validerElement($phraseur, $name, $attrs) {
+        if (!($p = isset($this->dtc->elements[$name]))) {
+            if ($p = strpos($name, ':')) {
+                $name = substr($name, $p + 1);
+                $p = isset($this->dtc->elements[$name]);
+            }
+            if (!$p) {
+                coordonnees_erreur($this, " <b>$name</b>&nbsp;: "
+                    . _T('zxml_inconnu_balise'));
+
+                return;
+            }
+        }
+        // controler les filles illegitimes, ca suffit 
+        $depth = $this->depth;
+        $ouvrant = $this->ouvrant;
+        #spip_log("trouve $name apres " . $ouvrant[$depth]);
+        if (isset($ouvrant[$depth])) {
+            if (preg_match('/^\s*(\w+)/', $ouvrant[$depth], $r)) {
+                $pere = $r[1];
+                #spip_log("pere $pere");
+                if (isset($this->dtc->elements[$pere])) {
+                    $fils = $this->dtc->elements[$pere];
+                    #spip_log("rejeton $name fils " . @join(',',$fils));
+                    if (!($p = @in_array($name, $fils))) {
+                        if ($p = strpos($name, ':')) {
+                            $p = substr($name, $p + 1);
+                            $p = @in_array($p, $fils);
+                        }
+                    }
+                    if (!$p) {
+                        $bons_peres = @join('</b>, <b>', $this->dtc->peres[$name]);
+                        coordonnees_erreur($this, " <b>$name</b> "
+                            . _T('zxml_non_fils')
+                            . ' <b>'
+                            . $pere
+                            . '</b>'
+                            . (!$bons_peres ? ''
+                                : ('<p style="font-size: 80%"> ' . _T('zxml_mais_de') . ' <b>' . $bons_peres . '</b></p>')));
+                    } elseif ($this->dtc->regles[$pere][0] == '/') {
+                        $frat = substr($depth, 2);
+                        if (!isset($this->fratrie[$frat])) {
+                            $this->fratrie[$frat] = '';
+                        }
+                        $this->fratrie[$frat] .= "$name ";
+                    }
+                }
+            }
+        }
+        // Init de la suite des balises a memoriser si regle difficile
+        if ($this->dtc->regles[$name] and $this->dtc->regles[$name][0] == '/') {
+            $this->fratrie[$depth] = '';
+        }
+        if (isset($this->dtc->attributs[$name])) {
+            foreach ($this->dtc->attributs[$name] as $n => $v) {
+                if (($v[1] == '#REQUIRED') and (!isset($attrs[$n]))) {
+                    coordonnees_erreur($this, " <b>$n</b>"
+                        . '&nbsp;:&nbsp;'
+                        . _T('zxml_obligatoire_attribut')
+                        . " <b>$name</b>");
+                }
+            }
+        }
+    }
+
+    // http://code.spip.net/@validerAttribut
+    public function validerAttribut($phraseur, $name, $val, $bal) {
+        // Si la balise est inconnue, eviter d'insister
+        if (!isset($this->dtc->attributs[$bal])) {
+            return;
+        }
+
+        $a = $this->dtc->attributs[$bal];
+        if (!isset($a[$name])) {
+            $bons = join(', ', array_keys($a));
+            if ($bons) {
+                $bons = " title=' " .
+                    _T('zxml_connus_attributs') .
+                    '&nbsp;: ' .
+                    $bons .
+                    "'";
+            }
+            $bons .= " style='font-weight: bold'";
+            coordonnees_erreur($this, " <b>$name</b> "
+                . _T('zxml_inconnu_attribut') . ' ' . _T('zxml_de')
+                . " <a$bons>$bal</a> ("
+                . _T('zxml_survoler')
+                . ")");
+        } else {
+            $type = $a[$name][0];
+            if (!preg_match('/^\w+$/', $type)) {
+                $this->valider_motif($phraseur, $name, $val, $bal, $type);
+            } else {
+                if (method_exists($this, $f = 'validerAttribut_' . $type)) {
+                    $this->$f($phraseur, $name, $val, $bal);
+                }
+            }
+            #		else spip_log("$type type d'attribut inconnu");
+        }
+    }
+
+    public function validerAttribut_NMTOKEN($phraseur, $name, $val, $bal) {
+        $this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_NMTOKEN);
+    }
+
+    public function validerAttribut_NMTOKENS($phraseur, $name, $val, $bal) {
+        $this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_NMTOKENS);
+    }
+
+    // http://code.spip.net/@validerAttribut_ID
+    public function validerAttribut_ID($phraseur, $name, $val, $bal) {
+        if (isset($this->ids[$val])) {
+            list($l, $c) = $this->ids[$val];
+            coordonnees_erreur($this, " <p><b>$val</b> "
+                . _T('zxml_valeur_attribut')
+                . " <b>$name</b> "
+                . _T('zxml_de')
+                . " <b>$bal</b> "
+                . _T('zxml_vu')
+                . " (L$l,C$c)");
+        } else {
+            $this->valider_motif($phraseur, $name, $val, $bal, _REGEXP_ID);
+            $this->ids[$val] = array(xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur));
+        }
+    }
+
+    // http://code.spip.net/@validerAttribut_IDREF
+    public function validerAttribut_IDREF($phraseur, $name, $val, $bal) {
+        $this->idrefs[] = array($val, xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur));
+    }
+
+    // http://code.spip.net/@validerAttribut_IDREFS
+    public function validerAttribut_IDREFS($phraseur, $name, $val, $bal) {
+        $this->idrefss[] = array($val, xml_get_current_line_number($phraseur), xml_get_current_column_number($phraseur));
+    }
+
+    // http://code.spip.net/@valider_motif
+    public function valider_motif($phraseur, $name, $val, $bal, $motif) {
+        if (!preg_match($motif, $val)) {
+            coordonnees_erreur($this, "<b>$val</b> "
+                . _T('zxml_valeur_attribut')
+                . " <b>$name</b> "
+                . _T('zxml_de')
+                . " <b>$bal</b> "
+                . _T('zxml_non_conforme')
+                . "</p><p>"
+                . "<b>" . $motif . "</b>");
+        }
+    }
+
+    // http://code.spip.net/@valider_idref
+    public function valider_idref($nom, $ligne, $col) {
+        if (!isset($this->ids[$nom])) {
+            $this->err[] = array(" <p><b>$nom</b> " . _T('zxml_inconnu_id'), $ligne, $col);
+        }
+    }
+
+    // http://code.spip.net/@valider_passe2
+    public function valider_passe2() {
+        if (!$this->err) {
+            foreach ($this->idrefs as $idref) {
+                list($nom, $ligne, $col) = $idref;
+                $this->valider_idref($nom, $ligne, $col);
+            }
+            foreach ($this->idrefss as $idref) {
+                list($noms, $ligne, $col) = $idref;
+                foreach (preg_split('/\s+/', $noms) as $nom) {
+                    $this->valider_idref($nom, $ligne, $col);
+                }
+            }
+        }
+    }
+
+    // http://code.spip.net/@debutElement
+    public function debutElement($phraseur, $name, $attrs) {
+        if ($this->dtc->elements) {
+            $this->validerElement($phraseur, $name, $attrs);
+        }
+
+        if ($f = $this->process['debut']) {
+            $f($this, $name, $attrs);
+        }
+        $depth = $this->depth;
+        $this->debuts[$depth] = strlen($this->res);
+        foreach ($attrs as $k => $v) {
+            $this->validerAttribut($phraseur, $k, $v, $name);
+        }
+    }
+
+    // http://code.spip.net/@finElement
+    public function finElement($phraseur, $name) {
+        $depth = $this->depth;
+        $contenu = $this->contenu;
+
+        $n = strlen($this->res);
+        $c = strlen(trim($contenu[$depth]));
+        $k = $this->debuts[$depth];
+
+        $regle = isset($this->dtc->regles[$name]) ? $this->dtc->regles[$name] : false;
+        $vide = ($regle == 'EMPTY');
+        // controler que les balises devant etre vides le sont 
+        if ($vide) {
+            if ($n <> ($k + $c)) {
+                coordonnees_erreur($this, " <p><b>$name</b> " . _T('zxml_nonvide_balise'));
+            }
+            // pour les regles PCDATA ou iteration de disjonction, tout est fait
+        } elseif ($regle and ($regle != '*')) {
+            if ($regle == '+') {
+                // iteration de disjonction non vide: 1 balise au -
+                if ($n == $k) {
+                    coordonnees_erreur($this, "<p>\n<b>$name</b> "
+                        . _T('zxml_vide_balise'));
+                }
+            } else {
+                $f = isset($this->fratrie[substr($depth, 2)]) ? $this->fratrie[substr($depth, 2)] : null;
+                if (is_null($f) or !preg_match($regle, $f)) {
+                    coordonnees_erreur($this,
+                        " <p>\n<b>$name</b> "
+                        . _T('zxml_succession_fils_incorrecte')
+                        . '&nbsp;: <b>'
+                        . $f
+                        . '</b>');
+                }
+            }
+
+        }
+        if ($f = $this->process['fin']) {
+            $f($this, $name, $vide);
+        }
+    }
+
+    // http://code.spip.net/@textElement
+    public function textElement($phraseur, $data) {
+        if (trim($data)) {
+            $d = $this->depth;
+            $d = $this->ouvrant[$d];
+            preg_match('/^\s*(\S+)/', $d, $m);
+            if (isset($this->dtc->pcdata[$m[1]]) and ($this->dtc->pcdata[$m[1]])) {
+                coordonnees_erreur($this, " <p><b>" . $m[1] . "</b> "
+                    . _T('zxml_nonvide_balise') // message a affiner
+                );
+            }
+        }
+        if ($f = $this->process['text']) {
+            $f($this, $data);
+        }
+    }
+
+    public function piElement($phraseur, $target, $data) {
+        if ($f = $this->process['pi']) {
+            $f($this, $target, $data);
+        }
+    }
+
+    // Denonciation des entitees XML inconnues
+    // Pour contourner le bug de conception de SAX qui ne signale pas si elles
+    // sont dans un attribut, les  entites les plus frequentes ont ete
+    // transcodees au prealable  (sauf & < > " que SAX traite correctement).
+    // On ne les verra donc pas passer a cette etape, contrairement a ce que 
+    // le source de la page laisse legitimement supposer. 
+
+    // http://code.spip.net/@defautElement
+    public function defaultElement($phraseur, $data) {
+        if (!preg_match('/^<!--/', $data)
+            and (preg_match_all('/&([^;]*)?/', $data, $r, PREG_SET_ORDER))
+        ) {
+            foreach ($r as $m) {
+                list($t, $e) = $m;
+                if (!isset($this->dtc->entites[$e])) {
+                    coordonnees_erreur($this, " <b>$e</b> "
+                        . _T('zxml_inconnu_entite')
+                        . ' '
+                    );
+                }
+            }
+        }
+        if (isset($this->process['default']) and ($f = $this->process['default'])) {
+            $f($this, $data);
+        }
+    }
+
+    // http://code.spip.net/@phraserTout
+    public function phraserTout($phraseur, $data) {
+        xml_parsestring($this, $data);
+
+        if (!$this->dtc or preg_match(',^' . _MESSAGE_DOCTYPE . ',', $data)) {
+            $this->err[] = array('DOCTYPE ?', 0, 0);
+        } else {
+            $this->valider_passe2($this);
+        }
+    }
+
+    /**
+     * Constructeur
+     *
+     * @param array $process ?
+     **/
+    public function __construct($process = array()) {
+        if (is_array($process)) {
+            $this->process = $process;
+        }
+    }
+
+    public $ids = array();
+    public $idrefs = array();
+    public $idrefss = array();
+    public $debuts = array();
+    public $fratrie = array();
+
+    public $dtc = null;
+    public $sax = null;
+    public $depth = "";
+    public $entete = '';
+    public $page = '';
+    public $res = "";
+    public $err = array();
+    public $contenu = array();
+    public $ouvrant = array();
+    public $reperes = array();
+    public $process = array(
+        'debut' => 'xml_debutElement',
+        'fin' => 'xml_finElement',
+        'text' => 'xml_textElement',
+        'pi' => 'xml_piElement',
+        'default' => 'xml_defaultElement'
+    );
 }
 
 
@@ -359,8 +359,8 @@ 
  *
  **/
 function xml_valider_dist($page, $apply = false, $process = false, $doctype = '', $charset = null) {
-	$f = new ValidateurXML($process);
-	$sax = charger_fonction('sax', 'xml');
+    $f = new ValidateurXML($process);
+    $sax = charger_fonction('sax', 'xml');
 
-	return $sax($page, $apply, $f, $doctype, $charset);
+    return $sax($page, $apply, $f, $doctype, $charset);
 }

Spacing +12 added lines, -12 removed lines

@@ -62,7 +62,7 @@ 
 							. $pere
 							. '</b>'
 							. (!$bons_peres ? ''
-								: ('<p style="font-size: 80%"> ' . _T('zxml_mais_de') . ' <b>' . $bons_peres . '</b></p>')));
+								: ('<p style="font-size: 80%"> '._T('zxml_mais_de').' <b>'.$bons_peres.'</b></p>')));
 					} elseif ($this->dtc->regles[$pere][0] == '/') {
 						$frat = substr($depth, 2);
 						if (!isset($this->fratrie[$frat])) {
@@ -100,15 +100,15 @@ 
 		if (!isset($a[$name])) {
 			$bons = join(', ', array_keys($a));
 			if ($bons) {
-				$bons = " title=' " .
-					_T('zxml_connus_attributs') .
-					'&nbsp;: ' .
-					$bons .
+				$bons = " title=' ".
+					_T('zxml_connus_attributs').
+					'&nbsp;: '.
+					$bons.
 					"'";
 			}
 			$bons .= " style='font-weight: bold'";
 			coordonnees_erreur($this, " <b>$name</b> "
-				. _T('zxml_inconnu_attribut') . ' ' . _T('zxml_de')
+				. _T('zxml_inconnu_attribut').' '._T('zxml_de')
 				. " <a$bons>$bal</a> ("
 				. _T('zxml_survoler')
 				. ")");
@@ -117,7 +117,7 @@ 
 			if (!preg_match('/^\w+$/', $type)) {
 				$this->valider_motif($phraseur, $name, $val, $bal, $type);
 			} else {
-				if (method_exists($this, $f = 'validerAttribut_' . $type)) {
+				if (method_exists($this, $f = 'validerAttribut_'.$type)) {
 					$this->$f($phraseur, $name, $val, $bal);
 				}
 			}
@@ -170,14 +170,14 @@ 
 				. " <b>$bal</b> "
 				. _T('zxml_non_conforme')
 				. "</p><p>"
-				. "<b>" . $motif . "</b>");
+				. "<b>".$motif."</b>");
 		}
 	}
 
 	// http://code.spip.net/@valider_idref
 	public function valider_idref($nom, $ligne, $col) {
 		if (!isset($this->ids[$nom])) {
-			$this->err[] = array(" <p><b>$nom</b> " . _T('zxml_inconnu_id'), $ligne, $col);
+			$this->err[] = array(" <p><b>$nom</b> "._T('zxml_inconnu_id'), $ligne, $col);
 		}
 	}
 
@@ -227,7 +227,7 @@ 
 		// controler que les balises devant etre vides le sont 
 		if ($vide) {
 			if ($n <> ($k + $c)) {
-				coordonnees_erreur($this, " <p><b>$name</b> " . _T('zxml_nonvide_balise'));
+				coordonnees_erreur($this, " <p><b>$name</b> "._T('zxml_nonvide_balise'));
 			}
 			// pour les regles PCDATA ou iteration de disjonction, tout est fait
 		} elseif ($regle and ($regle != '*')) {
@@ -262,7 +262,7 @@ 
 			$d = $this->ouvrant[$d];
 			preg_match('/^\s*(\S+)/', $d, $m);
 			if (isset($this->dtc->pcdata[$m[1]]) and ($this->dtc->pcdata[$m[1]])) {
-				coordonnees_erreur($this, " <p><b>" . $m[1] . "</b> "
+				coordonnees_erreur($this, " <p><b>".$m[1]."</b> "
 					. _T('zxml_nonvide_balise') // message a affiner
 				);
 			}
@@ -309,7 +309,7 @@ 
 	public function phraserTout($phraseur, $data) {
 		xml_parsestring($this, $data);
 
-		if (!$this->dtc or preg_match(',^' . _MESSAGE_DOCTYPE . ',', $data)) {
+		if (!$this->dtc or preg_match(',^'._MESSAGE_DOCTYPE.',', $data)) {
 			$this->err[] = array('DOCTYPE ?', 0, 0);
 		} else {
 			$this->valider_passe2($this);

ecrire/action/editer_article.php

Doc Comments +2 added lines, -2 removed lines

@@ -160,7 +160,7 @@ 
  * @param int $id_rubrique
  *     Identifiant de la rubrique parente
  * @param array|null $set
- * @return int
+ * @return boolean|string
  *     Identifiant du nouvel article
  *
  */
@@ -533,7 +533,7 @@ 
  *
  * @param int $id_rubrique
  *     Identifiant de la rubrique
- * @return int
+ * @return boolean|string
  *     Identifiant du nouvel article
  */
 function insert_article($id_rubrique) {

Indentation +301 added lines, -301 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -40,36 +40,36 @@ 
  *     Liste (identifiant de l'article, Texte d'erreur éventuel)
  */
 function action_editer_article_dist($arg = null) {
-	include_spip('inc/autoriser');
-	$err = "";
-	if (is_null($arg)) {
-		$securiser_action = charger_fonction('securiser_action', 'inc');
-		$arg = $securiser_action();
-	}
-
-	// si id_article n'est pas un nombre, c'est une creation 
-	// mais on verifie qu'on a toutes les donnees qu'il faut.
-	if (!$id_article = intval($arg)) {
-		$id_parent = _request('id_parent');
-		if (!$id_parent) {
-			$err = _L("creation interdite d'un article sans rubrique");
-		} elseif (!autoriser('creerarticledans', 'rubrique', $id_parent)) {
-			$err = _T("info_creerdansrubrique_non_autorise");
-		} else {
-			$id_article = article_inserer($id_parent);
-		}
-	}
-
-	// Enregistre l'envoi dans la BD
-	if ($id_article > 0) {
-		$err = article_modifier($id_article);
-	}
-
-	if ($err) {
-		spip_log("echec editeur article: $err", _LOG_ERREUR);
-	}
-
-	return array($id_article, $err);
+    include_spip('inc/autoriser');
+    $err = "";
+    if (is_null($arg)) {
+        $securiser_action = charger_fonction('securiser_action', 'inc');
+        $arg = $securiser_action();
+    }
+
+    // si id_article n'est pas un nombre, c'est une creation 
+    // mais on verifie qu'on a toutes les donnees qu'il faut.
+    if (!$id_article = intval($arg)) {
+        $id_parent = _request('id_parent');
+        if (!$id_parent) {
+            $err = _L("creation interdite d'un article sans rubrique");
+        } elseif (!autoriser('creerarticledans', 'rubrique', $id_parent)) {
+            $err = _T("info_creerdansrubrique_non_autorise");
+        } else {
+            $id_article = article_inserer($id_parent);
+        }
+    }
+
+    // Enregistre l'envoi dans la BD
+    if ($id_article > 0) {
+        $err = article_modifier($id_article);
+    }
+
+    if ($err) {
+        spip_log("echec editeur article: $err", _LOG_ERREUR);
+    }
+
+    return array($id_article, $err);
 }
 
 /**
@@ -91,46 +91,46 @@ 
  */
 function article_modifier($id_article, $set = null) {
 
-	// unifier $texte en cas de texte trop long
-	trop_longs_articles();
-
-	include_spip('inc/modifier');
-	include_spip('inc/filtres');
-	$c = collecter_requests(
-	// white list
-		objet_info('article', 'champs_editables'),
-		// black list
-		array('date', 'statut', 'id_parent'),
-		// donnees eventuellement fournies
-		$set
-	);
-
-	// Si l'article est publie, invalider les caches et demander sa reindexation
-	$t = sql_getfetsel("statut", "spip_articles", "id_article=" . intval($id_article));
-	$invalideur = $indexation = false;
-	if ($t == 'publie') {
-		$invalideur = "id='article/$id_article'";
-		$indexation = true;
-	}
-
-	if ($err = objet_modifier_champs('article', $id_article,
-		array(
-			'data' => $set,
-			'nonvide' => array('titre' => _T('info_nouvel_article') . " " . _T('info_numero_abbreviation') . $id_article),
-			'invalideur' => $invalideur,
-			'indexation' => $indexation,
-			'date_modif' => 'date_modif' // champ a mettre a date('Y-m-d H:i:s') s'il y a modif
-		),
-		$c)
-	) {
-		return $err;
-	}
-
-	// Modification de statut, changement de rubrique ?
-	$c = collecter_requests(array('date', 'statut', 'id_parent'), array(), $set);
-	$err = article_instituer($id_article, $c);
-
-	return $err;
+    // unifier $texte en cas de texte trop long
+    trop_longs_articles();
+
+    include_spip('inc/modifier');
+    include_spip('inc/filtres');
+    $c = collecter_requests(
+    // white list
+        objet_info('article', 'champs_editables'),
+        // black list
+        array('date', 'statut', 'id_parent'),
+        // donnees eventuellement fournies
+        $set
+    );
+
+    // Si l'article est publie, invalider les caches et demander sa reindexation
+    $t = sql_getfetsel("statut", "spip_articles", "id_article=" . intval($id_article));
+    $invalideur = $indexation = false;
+    if ($t == 'publie') {
+        $invalideur = "id='article/$id_article'";
+        $indexation = true;
+    }
+
+    if ($err = objet_modifier_champs('article', $id_article,
+        array(
+            'data' => $set,
+            'nonvide' => array('titre' => _T('info_nouvel_article') . " " . _T('info_numero_abbreviation') . $id_article),
+            'invalideur' => $invalideur,
+            'indexation' => $indexation,
+            'date_modif' => 'date_modif' // champ a mettre a date('Y-m-d H:i:s') s'il y a modif
+        ),
+        $c)
+    ) {
+        return $err;
+    }
+
+    // Modification de statut, changement de rubrique ?
+    $c = collecter_requests(array('date', 'statut', 'id_parent'), array(), $set);
+    $err = article_instituer($id_article, $c);
+
+    return $err;
 }
 
 /**
@@ -166,90 +166,90 @@ 
  */
 function article_inserer($id_rubrique, $set = null) {
 
-	// Si id_rubrique vaut 0 ou n'est pas definie, creer l'article
-	// dans la premiere rubrique racine
-	if (!$id_rubrique = intval($id_rubrique)) {
-		$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=$id_rubrique");
-	}
-
-	// eviter $id_secteur = NULL (erreur sqlite) si la requete precedente echoue 
-	// cas de id_rubrique = -1 par exemple avec plugin "pages"
-	$id_secteur = isset($row['id_secteur']) ? $row['id_secteur'] : 0;
-
-	$lang_rub = $row['lang'];
-
-	$lang = "";
-	$choisie = 'non';
-	// 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 (!empty($GLOBALS['meta']['multi_objets']) and in_array('spip_articles',
-			explode(',', $GLOBALS['meta']['multi_objets']))
-	) {
-		lang_select($GLOBALS['visiteur_session']['lang']);
-		if (in_array($GLOBALS['spip_lang'],
-			explode(',', $GLOBALS['meta']['langues_multilingue']))) {
-			$lang = $GLOBALS['spip_lang'];
-			$choisie = 'oui';
-		}
-	}
-
-	if (!$lang) {
-		$choisie = 'non';
-		$lang = $lang_rub ? $lang_rub : $GLOBALS['meta']['langue_site'];
-	}
-
-	$champs = array(
-		'id_rubrique' => $id_rubrique,
-		'id_secteur' => $id_secteur,
-		'statut' => 'prepa',
-		'date' => date('Y-m-d H:i:s'),
-		'lang' => $lang,
-		'langue_choisie' => $choisie
-	);
-
-	if ($set) {
-		$champs = array_merge($champs, $set);
-	}
-
-	// Envoyer aux plugins
-	$champs = pipeline('pre_insertion',
-		array(
-			'args' => array(
-				'table' => 'spip_articles',
-			),
-			'data' => $champs
-		)
-	);
-
-	$id_article = sql_insertq("spip_articles", $champs);
-
-	// controler si le serveur n'a pas renvoye une erreur
-	if ($id_article > 0) {
-		$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('article' => $id_article));
-		}
-	}
-
-	pipeline('post_insertion',
-		array(
-			'args' => array(
-				'table' => 'spip_articles',
-				'id_objet' => $id_article
-			),
-			'data' => $champs
-		)
-	);
-
-	return $id_article;
+    // Si id_rubrique vaut 0 ou n'est pas definie, creer l'article
+    // dans la premiere rubrique racine
+    if (!$id_rubrique = intval($id_rubrique)) {
+        $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=$id_rubrique");
+    }
+
+    // eviter $id_secteur = NULL (erreur sqlite) si la requete precedente echoue 
+    // cas de id_rubrique = -1 par exemple avec plugin "pages"
+    $id_secteur = isset($row['id_secteur']) ? $row['id_secteur'] : 0;
+
+    $lang_rub = $row['lang'];
+
+    $lang = "";
+    $choisie = 'non';
+    // 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 (!empty($GLOBALS['meta']['multi_objets']) and in_array('spip_articles',
+            explode(',', $GLOBALS['meta']['multi_objets']))
+    ) {
+        lang_select($GLOBALS['visiteur_session']['lang']);
+        if (in_array($GLOBALS['spip_lang'],
+            explode(',', $GLOBALS['meta']['langues_multilingue']))) {
+            $lang = $GLOBALS['spip_lang'];
+            $choisie = 'oui';
+        }
+    }
+
+    if (!$lang) {
+        $choisie = 'non';
+        $lang = $lang_rub ? $lang_rub : $GLOBALS['meta']['langue_site'];
+    }
+
+    $champs = array(
+        'id_rubrique' => $id_rubrique,
+        'id_secteur' => $id_secteur,
+        'statut' => 'prepa',
+        'date' => date('Y-m-d H:i:s'),
+        'lang' => $lang,
+        'langue_choisie' => $choisie
+    );
+
+    if ($set) {
+        $champs = array_merge($champs, $set);
+    }
+
+    // Envoyer aux plugins
+    $champs = pipeline('pre_insertion',
+        array(
+            'args' => array(
+                'table' => 'spip_articles',
+            ),
+            'data' => $champs
+        )
+    );
+
+    $id_article = sql_insertq("spip_articles", $champs);
+
+    // controler si le serveur n'a pas renvoye une erreur
+    if ($id_article > 0) {
+        $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('article' => $id_article));
+        }
+    }
+
+    pipeline('post_insertion',
+        array(
+            'args' => array(
+                'table' => 'spip_articles',
+                'id_objet' => $id_article
+            ),
+            'data' => $champs
+        )
+    );
+
+    return $id_article;
 }
 
 
@@ -277,120 +277,120 @@ 
  */
 function article_instituer($id_article, $c, $calcul_rub = true) {
 
-	include_spip('inc/autoriser');
-	include_spip('inc/rubriques');
-	include_spip('inc/modifier');
-
-	$row = sql_fetsel("statut, date, id_rubrique", "spip_articles", "id_article=$id_article");
-	$id_rubrique = $row['id_rubrique'];
-	$statut_ancien = $statut = $row['statut'];
-	$date_ancienne = $date = $row['date'];
-	$champs = array();
-
-	$d = isset($c['date']) ? $c['date'] : null;
-	$s = isset($c['statut']) ? $c['statut'] : $statut;
-
-	// cf autorisations dans inc/instituer_article
-	if ($s != $statut or ($d and $d != $date)) {
-		if (autoriser('publierdans', 'rubrique', $id_rubrique)) {
-			$statut = $champs['statut'] = $s;
-		} else {
-			if (autoriser('modifier', 'article', $id_article) and $s != 'publie') {
-				$statut = $champs['statut'] = $s;
-			} else {
-				spip_log("editer_article $id_article refus " . join(' ', $c));
-			}
-		}
-
-		// En cas de publication, fixer la date a "maintenant"
-		// sauf si $c commande autre chose
-		// ou si l'article est deja date dans le futur
-		// En cas de proposition d'un article (mais pas depublication), idem
-		if ($champs['statut'] == 'publie'
-			or ($champs['statut'] == 'prop' and ($d or !in_array($statut_ancien, array('publie', 'prop'))))
-		) {
-			if ($d or strtotime($d = $date) > time()) {
-				$champs['date'] = $date = $d;
-			} else {
-				$champs['date'] = $date = date('Y-m-d H:i:s');
-			}
-		}
-	}
-
-	// Verifier que la rubrique demandee existe et est differente
-	// de la rubrique actuelle
-	if (isset($c['id_parent'])
-		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'article etait publie
-		// et que le demandeur n'est pas admin de la rubrique de destination
-		// repasser l'article en statut 'propose'.
-		if ($statut == 'publie'
-			and !autoriser('publierdans', 'rubrique', $id_parent)
-		) {
-			$champs['statut'] = 'prop';
-		}
-	}
-
-	// Envoyer aux plugins
-	$champs = pipeline('pre_edition',
-		array(
-			'args' => array(
-				'table' => 'spip_articles',
-				'id_objet' => $id_article,
-				'action' => 'instituer',
-				'statut_ancien' => $statut_ancien,
-				'date_ancienne' => $date_ancienne,
-			),
-			'data' => $champs
-		)
-	);
-
-	if (!count($champs)) {
-		return '';
-	}
-
-	// Envoyer les modifs.
-	editer_article_heritage($id_article, $id_rubrique, $statut_ancien, $champs, $calcul_rub);
-
-	// Invalider les caches
-	include_spip('inc/invalideur');
-	suivre_invalideur("id='article/$id_article'");
-
-	if ($date) {
-		$t = strtotime($date);
-		$p = @$GLOBALS['meta']['date_prochain_postdate'];
-		if ($t > time() and (!$p or ($t < $p))) {
-			ecrire_meta('date_prochain_postdate', $t);
-		}
-	}
-
-	// Pipeline
-	pipeline('post_edition',
-		array(
-			'args' => array(
-				'table' => 'spip_articles',
-				'id_objet' => $id_article,
-				'action' => 'instituer',
-				'statut_ancien' => $statut_ancien,
-				'date_ancienne' => $date_ancienne,
-			),
-			'data' => $champs
-		)
-	);
-
-	// Notifications
-	if ($notifications = charger_fonction('notifications', 'inc')) {
-		$notifications('instituerarticle', $id_article,
-			array('statut' => $statut, 'statut_ancien' => $statut_ancien, 'date' => $date, 'date_ancienne' => $date_ancienne)
-		);
-	}
-
-	return ''; // pas d'erreur
+    include_spip('inc/autoriser');
+    include_spip('inc/rubriques');
+    include_spip('inc/modifier');
+
+    $row = sql_fetsel("statut, date, id_rubrique", "spip_articles", "id_article=$id_article");
+    $id_rubrique = $row['id_rubrique'];
+    $statut_ancien = $statut = $row['statut'];
+    $date_ancienne = $date = $row['date'];
+    $champs = array();
+
+    $d = isset($c['date']) ? $c['date'] : null;
+    $s = isset($c['statut']) ? $c['statut'] : $statut;
+
+    // cf autorisations dans inc/instituer_article
+    if ($s != $statut or ($d and $d != $date)) {
+        if (autoriser('publierdans', 'rubrique', $id_rubrique)) {
+            $statut = $champs['statut'] = $s;
+        } else {
+            if (autoriser('modifier', 'article', $id_article) and $s != 'publie') {
+                $statut = $champs['statut'] = $s;
+            } else {
+                spip_log("editer_article $id_article refus " . join(' ', $c));
+            }
+        }
+
+        // En cas de publication, fixer la date a "maintenant"
+        // sauf si $c commande autre chose
+        // ou si l'article est deja date dans le futur
+        // En cas de proposition d'un article (mais pas depublication), idem
+        if ($champs['statut'] == 'publie'
+            or ($champs['statut'] == 'prop' and ($d or !in_array($statut_ancien, array('publie', 'prop'))))
+        ) {
+            if ($d or strtotime($d = $date) > time()) {
+                $champs['date'] = $date = $d;
+            } else {
+                $champs['date'] = $date = date('Y-m-d H:i:s');
+            }
+        }
+    }
+
+    // Verifier que la rubrique demandee existe et est differente
+    // de la rubrique actuelle
+    if (isset($c['id_parent'])
+        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'article etait publie
+        // et que le demandeur n'est pas admin de la rubrique de destination
+        // repasser l'article en statut 'propose'.
+        if ($statut == 'publie'
+            and !autoriser('publierdans', 'rubrique', $id_parent)
+        ) {
+            $champs['statut'] = 'prop';
+        }
+    }
+
+    // Envoyer aux plugins
+    $champs = pipeline('pre_edition',
+        array(
+            'args' => array(
+                'table' => 'spip_articles',
+                'id_objet' => $id_article,
+                'action' => 'instituer',
+                'statut_ancien' => $statut_ancien,
+                'date_ancienne' => $date_ancienne,
+            ),
+            'data' => $champs
+        )
+    );
+
+    if (!count($champs)) {
+        return '';
+    }
+
+    // Envoyer les modifs.
+    editer_article_heritage($id_article, $id_rubrique, $statut_ancien, $champs, $calcul_rub);
+
+    // Invalider les caches
+    include_spip('inc/invalideur');
+    suivre_invalideur("id='article/$id_article'");
+
+    if ($date) {
+        $t = strtotime($date);
+        $p = @$GLOBALS['meta']['date_prochain_postdate'];
+        if ($t > time() and (!$p or ($t < $p))) {
+            ecrire_meta('date_prochain_postdate', $t);
+        }
+    }
+
+    // Pipeline
+    pipeline('post_edition',
+        array(
+            'args' => array(
+                'table' => 'spip_articles',
+                'id_objet' => $id_article,
+                'action' => 'instituer',
+                'statut_ancien' => $statut_ancien,
+                'date_ancienne' => $date_ancienne,
+            ),
+            'data' => $champs
+        )
+    );
+
+    // Notifications
+    if ($notifications = charger_fonction('notifications', 'inc')) {
+        $notifications('instituerarticle', $id_article,
+            array('statut' => $statut, 'statut_ancien' => $statut_ancien, 'date' => $date, 'date_ancienne' => $date_ancienne)
+        );
+    }
+
+    return ''; // pas d'erreur
 }
 
 /**
@@ -415,33 +415,33 @@ 
  */
 function editer_article_heritage($id_article, $id_rubrique, $statut, $champs, $cond = true) {
 
-	// Si on deplace l'article
-	//  changer aussi son secteur et sa langue (si heritee)
-	if (isset($champs['id_rubrique'])) {
+    // Si on deplace l'article
+    //  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']));
+        $row_rub = sql_fetsel("id_secteur, lang", "spip_rubriques", "id_rubrique=" . sql_quote($champs['id_rubrique']));
 
-		$langue = $row_rub['lang'];
-		$champs['id_secteur'] = $row_rub['id_secteur'];
-		if (sql_fetsel('1', 'spip_articles',
-			"id_article=" . intval($id_article) . " AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue))) {
-			$champs['lang'] = $langue;
-		}
-	}
+        $langue = $row_rub['lang'];
+        $champs['id_secteur'] = $row_rub['id_secteur'];
+        if (sql_fetsel('1', 'spip_articles',
+            "id_article=" . intval($id_article) . " AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue))) {
+            $champs['lang'] = $langue;
+        }
+    }
 
-	if (!$champs) {
-		return;
-	}
+    if (!$champs) {
+        return;
+    }
 
-	sql_updateq('spip_articles', $champs, "id_article=" . intval($id_article));
+    sql_updateq('spip_articles', $champs, "id_article=" . intval($id_article));
 
-	// Changer le statut des rubriques concernees 
+    // 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;
-		calculer_rubriques_if($id_rubrique, $champs, $statut, $postdate);
-	}
+    if ($cond) {
+        include_spip('inc/rubriques');
+        $postdate = ($GLOBALS['meta']["post_dates"] == "non" and isset($champs['date']) and (strtotime($champs['date']) < time())) ? $champs['date'] : false;
+        calculer_rubriques_if($id_rubrique, $champs, $statut, $postdate);
+    }
 }
 
 /**
@@ -450,12 +450,12 @@ 
  * @return void
  */
 function trop_longs_articles() {
-	if (is_array($plus = _request('texte_plus'))) {
-		foreach ($plus as $n => $t) {
-			$plus[$n] = preg_replace(",<!--SPIP-->[\n\r]*,", "", $t);
-		}
-		set_request('texte', join('', $plus) . _request('texte'));
-	}
+    if (is_array($plus = _request('texte_plus'))) {
+        foreach ($plus as $n => $t) {
+            $plus[$n] = preg_replace(",<!--SPIP-->[\n\r]*,", "", $t);
+        }
+        set_request('texte', join('', $plus) . _request('texte'));
+    }
 }
 
 
@@ -480,7 +480,7 @@ 
  *     Chaîne contenant un texte d'erreur sinon.
  */
 function revisions_articles($id_article, $c = false) {
-	return article_modifier($id_article, $c);
+    return article_modifier($id_article, $c);
 }
 
 /**
@@ -501,7 +501,7 @@ 
  *     Chaîne contenant un texte d'erreur sinon.
  */
 function revision_article($id_article, $c = false) {
-	return article_modifier($id_article, $c);
+    return article_modifier($id_article, $c);
 }
 
 /**
@@ -522,7 +522,7 @@ 
  *     Chaîne contenant un texte d'erreur sinon.
  */
 function articles_set($id_article, $set = null) {
-	return article_modifier($id_article, $set);
+    return article_modifier($id_article, $set);
 }
 
 /**
@@ -537,7 +537,7 @@ 
  *     Identifiant du nouvel article
  */
 function insert_article($id_rubrique) {
-	return article_inserer($id_rubrique);
+    return article_inserer($id_rubrique);
 }
 
 /**
@@ -559,5 +559,5 @@ 
  *     Chaîne vide
  */
 function instituer_article($id_article, $c, $calcul_rub = true) {
-	return article_instituer($id_article, $c, $calcul_rub);
+    return article_instituer($id_article, $c, $calcul_rub);
 }

Spacing +8 added lines, -8 removed lines

@@ -106,7 +106,7 @@ 
 	);
 
 	// Si l'article est publie, invalider les caches et demander sa reindexation
-	$t = sql_getfetsel("statut", "spip_articles", "id_article=" . intval($id_article));
+	$t = sql_getfetsel("statut", "spip_articles", "id_article=".intval($id_article));
 	$invalideur = $indexation = false;
 	if ($t == 'publie') {
 		$invalideur = "id='article/$id_article'";
@@ -116,7 +116,7 @@ 
 	if ($err = objet_modifier_champs('article', $id_article,
 		array(
 			'data' => $set,
-			'nonvide' => array('titre' => _T('info_nouvel_article') . " " . _T('info_numero_abbreviation') . $id_article),
+			'nonvide' => array('titre' => _T('info_nouvel_article')." "._T('info_numero_abbreviation').$id_article),
 			'invalideur' => $invalideur,
 			'indexation' => $indexation,
 			'date_modif' => 'date_modif' // champ a mettre a date('Y-m-d H:i:s') s'il y a modif
@@ -298,7 +298,7 @@ 
 			if (autoriser('modifier', 'article', $id_article) and $s != 'publie') {
 				$statut = $champs['statut'] = $s;
 			} else {
-				spip_log("editer_article $id_article refus " . join(' ', $c));
+				spip_log("editer_article $id_article refus ".join(' ', $c));
 			}
 		}
 
@@ -322,7 +322,7 @@ 
 	if (isset($c['id_parent'])
 		and $id_parent = $c['id_parent']
 		and $id_parent != $id_rubrique
-		and (sql_fetsel('1', "spip_rubriques", "id_rubrique=" . intval($id_parent)))
+		and (sql_fetsel('1', "spip_rubriques", "id_rubrique=".intval($id_parent)))
 	) {
 		$champs['id_rubrique'] = $id_parent;
 
@@ -419,12 +419,12 @@ 
 	//  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']));
+		$row_rub = sql_fetsel("id_secteur, lang", "spip_rubriques", "id_rubrique=".sql_quote($champs['id_rubrique']));
 
 		$langue = $row_rub['lang'];
 		$champs['id_secteur'] = $row_rub['id_secteur'];
 		if (sql_fetsel('1', 'spip_articles',
-			"id_article=" . intval($id_article) . " AND langue_choisie<>'oui' AND lang<>" . sql_quote($langue))) {
+			"id_article=".intval($id_article)." AND langue_choisie<>'oui' AND lang<>".sql_quote($langue))) {
 			$champs['lang'] = $langue;
 		}
 	}
@@ -433,7 +433,7 @@ 
 		return;
 	}
 
-	sql_updateq('spip_articles', $champs, "id_article=" . intval($id_article));
+	sql_updateq('spip_articles', $champs, "id_article=".intval($id_article));
 
 	// Changer le statut des rubriques concernees 
 
@@ -454,7 +454,7 @@ 
 		foreach ($plus as $n => $t) {
 			$plus[$n] = preg_replace(",<!--SPIP-->[\n\r]*,", "", $t);
 		}
-		set_request('texte', join('', $plus) . _request('texte'));
+		set_request('texte', join('', $plus)._request('texte'));
 	}
 }
 

ecrire/action/editer_liens.php

Doc Comments +1 added lines, -1 removed lines

@@ -207,7 +207,7 @@
  *
  * @api
  * @param array $objets_source
- * @param array|string $objets_lies
+ * @param string $objets_lies
  * @return int
  */
 function objet_optimiser_liens($objets_source, $objets_lies) {

Indentation +423 added lines, -423 removed lines

@@ -29,7 +29,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 // charger la gestion les rôles sur les objets
@@ -47,21 +47,21 @@ 
  *     - array(clé primaire, nom de la table de lien) si associable
  */
 function objet_associable($objet) {
-	$trouver_table = charger_fonction('trouver_table', 'base');
-	$table_sql = table_objet_sql($objet);
+    $trouver_table = charger_fonction('trouver_table', 'base');
+    $table_sql = table_objet_sql($objet);
 
-	$l = "";
-	if ($primary = id_table_objet($objet)
-		and $trouver_table($l = $table_sql . "_liens")
-		and !preg_match(',[^\w],', $primary)
-		and !preg_match(',[^\w],', $l)
-	) {
-		return array($primary, $l);
-	}
+    $l = "";
+    if ($primary = id_table_objet($objet)
+        and $trouver_table($l = $table_sql . "_liens")
+        and !preg_match(',[^\w],', $primary)
+        and !preg_match(',[^\w],', $l)
+    ) {
+        return array($primary, $l);
+    }
 
-	spip_log("Objet $objet non associable : ne dispose pas d'une cle primaire $primary OU d'une table liens $l");
+    spip_log("Objet $objet non associable : ne dispose pas d'une cle primaire $primary OU d'une table liens $l");
 
-	return false;
+    return false;
 }
 
 /**
@@ -87,13 +87,13 @@ 
  * @return bool|int
  */
 function objet_associer($objets_source, $objets_lies, $qualif = null) {
-	$modifs = objet_traiter_liaisons('lien_insert', $objets_source, $objets_lies, $qualif);
+    $modifs = objet_traiter_liaisons('lien_insert', $objets_source, $objets_lies, $qualif);
 
-	if ($qualif) {
-		objet_qualifier_liens($objets_source, $objets_lies, $qualif);
-	}
+    if ($qualif) {
+        objet_qualifier_liens($objets_source, $objets_lies, $qualif);
+    }
 
-	return $modifs; // pas d'erreur
+    return $modifs; // pas d'erreur
 }
 
 
@@ -127,7 +127,7 @@ 
  * @return bool|int
  */
 function objet_dissocier($objets_source, $objets_lies, $cond = null) {
-	return objet_traiter_liaisons('lien_delete', $objets_source, $objets_lies, $cond);
+    return objet_traiter_liaisons('lien_delete', $objets_source, $objets_lies, $cond);
 }
 
 
@@ -152,7 +152,7 @@ 
  * @return bool|int
  */
 function objet_qualifier_liens($objets_source, $objets_lies, $qualif) {
-	return objet_traiter_liaisons('lien_set', $objets_source, $objets_lies, $qualif);
+    return objet_traiter_liaisons('lien_set', $objets_source, $objets_lies, $qualif);
 }
 
 
@@ -187,7 +187,7 @@ 
  *     Liste des trouvailles
  */
 function objet_trouver_liens($objets_source, $objets_lies, $cond = null) {
-	return objet_traiter_liaisons('lien_find', $objets_source, $objets_lies, $cond);
+    return objet_traiter_liaisons('lien_find', $objets_source, $objets_lies, $cond);
 }
 
 
@@ -211,7 +211,7 @@ 
  * @return int
  */
 function objet_optimiser_liens($objets_source, $objets_lies) {
-	return objet_traiter_liaisons('lien_optimise', $objets_source, $objets_lies);
+    return objet_traiter_liaisons('lien_optimise', $objets_source, $objets_lies);
 }
 
 
@@ -231,32 +231,32 @@ 
  *     Nombre de liens copiés
  */
 function objet_dupliquer_liens($objet, $id_source, $id_cible, $types = null, $exclure_types = null) {
-	include_spip('base/objets');
-	$tables = lister_tables_objets_sql();
-	$n = 0;
-	foreach ($tables as $table_sql => $infos) {
-		if (
-			(is_null($types) or in_array($infos['type'], $types))
-			and (is_null($exclure_types) or !in_array($infos['type'], $exclure_types))
-		) {
-			if (objet_associable($infos['type'])) {
-				$liens = (($infos['type'] == $objet) ?
-					objet_trouver_liens(array($objet => $id_source), '*')
-					:
-					objet_trouver_liens(array($infos['type'] => '*'), array($objet => $id_source)));
-				foreach ($liens as $lien) {
-					$n++;
-					if ($infos['type'] == $objet) {
-						objet_associer(array($objet => $id_cible), array($lien['objet'] => $lien[$lien['objet']]), $lien);
-					} else {
-						objet_associer(array($infos['type'] => $lien[$infos['type']]), array($objet => $id_cible), $lien);
-					}
-				}
-			}
-		}
-	}
-
-	return $n;
+    include_spip('base/objets');
+    $tables = lister_tables_objets_sql();
+    $n = 0;
+    foreach ($tables as $table_sql => $infos) {
+        if (
+            (is_null($types) or in_array($infos['type'], $types))
+            and (is_null($exclure_types) or !in_array($infos['type'], $exclure_types))
+        ) {
+            if (objet_associable($infos['type'])) {
+                $liens = (($infos['type'] == $objet) ?
+                    objet_trouver_liens(array($objet => $id_source), '*')
+                    :
+                    objet_trouver_liens(array($infos['type'] => '*'), array($objet => $id_source)));
+                foreach ($liens as $lien) {
+                    $n++;
+                    if ($infos['type'] == $objet) {
+                        objet_associer(array($objet => $id_cible), array($lien['objet'] => $lien[$lien['objet']]), $lien);
+                    } else {
+                        objet_associer(array($infos['type'] => $lien[$infos['type']]), array($objet => $id_cible), $lien);
+                    }
+                }
+            }
+        }
+    }
+
+    return $n;
 }
 
 /**
@@ -298,38 +298,38 @@ 
  * @return bool|int|array
  */
 function objet_traiter_liaisons($operation, $objets_source, $objets_lies, $set = null) {
-	// accepter une syntaxe minimale pour supprimer tous les liens
-	if ($objets_lies == '*') {
-		$objets_lies = array('*' => '*');
-	}
-	$modifs = 0; // compter le nombre de modifications
-	$echec = null;
-	foreach ($objets_source as $objet => $ids) {
-		if ($a = objet_associable($objet)) {
-			list($primary, $l) = $a;
-			if (!is_array($ids)) {
-				$ids = array($ids);
-			} elseif (reset($ids) == "NOT") {
-				// si on demande un array('NOT',...) => recuperer la liste d'ids correspondants
-				$where = lien_where($primary, $ids, '*', '*');
-				$ids = sql_allfetsel($primary, $l, $where);
-				$ids = array_map('reset', $ids);
-			}
-			foreach ($ids as $id) {
-				$res = $operation($objet, $primary, $l, $id, $objets_lies, $set);
-				if ($res === false) {
-					spip_log("objet_traiter_liaisons [Echec] : $operation sur $objet/$primary/$l/$id", _LOG_ERREUR);
-					$echec = true;
-				} else {
-					$modifs = ($modifs ? (is_array($res) ? array_merge($modifs, $res) : $modifs + $res) : $res);
-				}
-			}
-		} else {
-			$echec = true;
-		}
-	}
-
-	return ($echec ? false : $modifs); // pas d'erreur
+    // accepter une syntaxe minimale pour supprimer tous les liens
+    if ($objets_lies == '*') {
+        $objets_lies = array('*' => '*');
+    }
+    $modifs = 0; // compter le nombre de modifications
+    $echec = null;
+    foreach ($objets_source as $objet => $ids) {
+        if ($a = objet_associable($objet)) {
+            list($primary, $l) = $a;
+            if (!is_array($ids)) {
+                $ids = array($ids);
+            } elseif (reset($ids) == "NOT") {
+                // si on demande un array('NOT',...) => recuperer la liste d'ids correspondants
+                $where = lien_where($primary, $ids, '*', '*');
+                $ids = sql_allfetsel($primary, $l, $where);
+                $ids = array_map('reset', $ids);
+            }
+            foreach ($ids as $id) {
+                $res = $operation($objet, $primary, $l, $id, $objets_lies, $set);
+                if ($res === false) {
+                    spip_log("objet_traiter_liaisons [Echec] : $operation sur $objet/$primary/$l/$id", _LOG_ERREUR);
+                    $echec = true;
+                } else {
+                    $modifs = ($modifs ? (is_array($res) ? array_merge($modifs, $res) : $modifs + $res) : $res);
+                }
+            }
+        } else {
+            $echec = true;
+        }
+    }
+
+    return ($echec ? false : $modifs); // pas d'erreur
 }
 
 
@@ -358,81 +358,81 @@ 
  *     Nombre d'insertions faites, false si échec.
  */
 function lien_insert($objet_source, $primary, $table_lien, $id, $objets, $qualif) {
-	$ins = 0;
-	$echec = null;
-	if (is_null($qualif)) {
-		$qualif = array();
-	}
-
-	foreach ($objets as $objet => $id_objets) {
-		if (!is_array($id_objets)) {
-			$id_objets = array($id_objets);
-		}
-
-		// role, colonne, where par défaut
-		list($role, $colonne_role, $cond) =
-			roles_trouver_dans_qualif($objet_source, $objet, $qualif);
-
-		foreach ($id_objets as $id_objet) {
-			$objet = ($objet == '*') ? $objet : objet_type($objet); # securite
-
-			$insertions = array(
-				'id_objet' => $id_objet,
-				'objet' => $objet,
-				$primary => $id
-			);
-			// rôle en plus s'il est défini
-			if ($role) {
-				$insertions += array(
-					$colonne_role => $role
-				);
-			}
-			$args = array(
-				'table_lien' => $table_lien,
-				'objet_source' => $objet_source,
-				'id_objet_source' => $id,
-				'objet' => $objet,
-				'id_objet' => $id_objet,
-				'role' => $role,
-				'colonne_role' => $colonne_role,
-				'action' => 'insert',
-			);
-
-			// Envoyer aux plugins
-			$insertions = pipeline('pre_edition_lien',
-				array(
-					'args' => $args,
-					'data' => $insertions
-				)
-			);
-			$args['id_objet'] = $insertions['id_objet'];
-
-			$where = lien_where($primary, $id, $objet, $id_objet, $cond);
-
-			if ($id_objet = intval($insertions['id_objet'])
-				and !sql_getfetsel($primary, $table_lien, $where)
-			) {
-
-				$e = sql_insertq($table_lien, $insertions);
-				if ($e !== false) {
-					$ins++;
-					lien_propage_date_modif($objet, $id_objet);
-					lien_propage_date_modif($objet_source, $id);
-					// Envoyer aux plugins
-					pipeline('post_edition_lien',
-						array(
-							'args' => $args,
-							'data' => $insertions
-						)
-					);
-				} else {
-					$echec = true;
-				}
-			}
-		}
-	}
-
-	return ($echec ? false : $ins);
+    $ins = 0;
+    $echec = null;
+    if (is_null($qualif)) {
+        $qualif = array();
+    }
+
+    foreach ($objets as $objet => $id_objets) {
+        if (!is_array($id_objets)) {
+            $id_objets = array($id_objets);
+        }
+
+        // role, colonne, where par défaut
+        list($role, $colonne_role, $cond) =
+            roles_trouver_dans_qualif($objet_source, $objet, $qualif);
+
+        foreach ($id_objets as $id_objet) {
+            $objet = ($objet == '*') ? $objet : objet_type($objet); # securite
+
+            $insertions = array(
+                'id_objet' => $id_objet,
+                'objet' => $objet,
+                $primary => $id
+            );
+            // rôle en plus s'il est défini
+            if ($role) {
+                $insertions += array(
+                    $colonne_role => $role
+                );
+            }
+            $args = array(
+                'table_lien' => $table_lien,
+                'objet_source' => $objet_source,
+                'id_objet_source' => $id,
+                'objet' => $objet,
+                'id_objet' => $id_objet,
+                'role' => $role,
+                'colonne_role' => $colonne_role,
+                'action' => 'insert',
+            );
+
+            // Envoyer aux plugins
+            $insertions = pipeline('pre_edition_lien',
+                array(
+                    'args' => $args,
+                    'data' => $insertions
+                )
+            );
+            $args['id_objet'] = $insertions['id_objet'];
+
+            $where = lien_where($primary, $id, $objet, $id_objet, $cond);
+
+            if ($id_objet = intval($insertions['id_objet'])
+                and !sql_getfetsel($primary, $table_lien, $where)
+            ) {
+
+                $e = sql_insertq($table_lien, $insertions);
+                if ($e !== false) {
+                    $ins++;
+                    lien_propage_date_modif($objet, $id_objet);
+                    lien_propage_date_modif($objet_source, $id);
+                    // Envoyer aux plugins
+                    pipeline('post_edition_lien',
+                        array(
+                            'args' => $args,
+                            'data' => $insertions
+                        )
+                    );
+                } else {
+                    $echec = true;
+                }
+            }
+        }
+    }
+
+    return ($echec ? false : $ins);
 }
 
 /**
@@ -447,45 +447,45 @@ 
  * @return array                        Liste des conditions
  */
 function lien_where($primary, $id_source, $objet, $id_objet, $cond = array()) {
-	if ((!is_array($id_source) and !strlen($id_source))
-		or !strlen($objet)
-		or (!is_array($id_objet) and !strlen($id_objet))
-	) {
-		return array("0=1");
-	} // securite
-
-	$not = "";
-	if (is_array($id_source) and reset($id_source) == "NOT") {
-		$not = array_shift($id_source);
-		$id_source = reset($id_source);
-	}
-
-	$where = $cond;
-
-	if ($id_source !== '*') {
-		$where[] = (is_array($id_source) ? sql_in(addslashes($primary), array_map('intval', $id_source),
-			$not) : addslashes($primary) . ($not ? "<>" : "=") . intval($id_source));
-	} elseif ($not) {
-		$where[] = "0=1";
-	} // idiot mais quand meme
-
-	$not = "";
-	if (is_array($id_objet) and reset($id_objet) == "NOT") {
-		$not = array_shift($id_objet);
-		$id_objet = reset($id_objet);
-	}
-
-	if ($objet !== '*') {
-		$where[] = "objet=" . sql_quote($objet);
-	}
-	if ($id_objet !== '*') {
-		$where[] = (is_array($id_objet) ? sql_in('id_objet', array_map('intval', $id_objet),
-			$not) : "id_objet" . ($not ? "<>" : "=") . intval($id_objet));
-	} elseif ($not) {
-		$where[] = "0=1";
-	} // idiot mais quand meme
-
-	return $where;
+    if ((!is_array($id_source) and !strlen($id_source))
+        or !strlen($objet)
+        or (!is_array($id_objet) and !strlen($id_objet))
+    ) {
+        return array("0=1");
+    } // securite
+
+    $not = "";
+    if (is_array($id_source) and reset($id_source) == "NOT") {
+        $not = array_shift($id_source);
+        $id_source = reset($id_source);
+    }
+
+    $where = $cond;
+
+    if ($id_source !== '*') {
+        $where[] = (is_array($id_source) ? sql_in(addslashes($primary), array_map('intval', $id_source),
+            $not) : addslashes($primary) . ($not ? "<>" : "=") . intval($id_source));
+    } elseif ($not) {
+        $where[] = "0=1";
+    } // idiot mais quand meme
+
+    $not = "";
+    if (is_array($id_objet) and reset($id_objet) == "NOT") {
+        $not = array_shift($id_objet);
+        $id_objet = reset($id_objet);
+    }
+
+    if ($objet !== '*') {
+        $where[] = "objet=" . sql_quote($objet);
+    }
+    if ($id_objet !== '*') {
+        $where[] = (is_array($id_objet) ? sql_in('id_objet', array_map('intval', $id_objet),
+            $not) : "id_objet" . ($not ? "<>" : "=") . intval($id_objet));
+    } elseif ($not) {
+        $where[] = "0=1";
+    } // idiot mais quand meme
+
+    return $where;
 }
 
 /**
@@ -516,85 +516,85 @@ 
  */
 function lien_delete($objet_source, $primary, $table_lien, $id, $objets, $cond = null) {
 
-	$retire = array();
-	$dels = 0;
-	$echec = false;
-	if (is_null($cond)) {
-		$cond = array();
-	}
-
-	foreach ($objets as $objet => $id_objets) {
-		$objet = ($objet == '*') ? $objet : objet_type($objet); # securite
-		if (!is_array($id_objets) or reset($id_objets) == "NOT") {
-			$id_objets = array($id_objets);
-		}
-		foreach ($id_objets as $id_objet) {
-			list($cond, $colonne_role, $role) = roles_creer_condition_role($objet_source, $objet, $cond);
-			// id_objet peut valoir '*'
-			$where = lien_where($primary, $id, $objet, $id_objet, $cond);
-
-			// lire les liens existants pour propager la date de modif
-			$select = "$primary,id_objet,objet";
-			if ($colonne_role) {
-				$select .= ",$colonne_role";
-			}
-			$liens = sql_allfetsel($select, $table_lien, $where);
-
-			// iterer sur les liens pour permettre aux plugins de gerer
-			foreach ($liens as $l) {
-
-				$args = array(
-					'table_lien' => $table_lien,
-					'objet_source' => $objet_source,
-					'id_objet_source' => $l[$primary],
-					'objet' => $l['objet'],
-					'id_objet' => $l['id_objet'],
-					'colonne_role' => $colonne_role,
-					'role' => ($colonne_role ? $l[$colonne_role] : ''),
-					'action' => 'delete',
-				);
-
-				// Envoyer aux plugins
-				$l = pipeline('pre_edition_lien',
-					array(
-						'args' => $args,
-						'data' => $l
-					)
-				);
-				$args['id_objet'] = $id_o = $l['id_objet'];
-
-				if ($id_o = intval($l['id_objet'])) {
-					$where = lien_where($primary, $l[$primary], $l['objet'], $id_o, $cond);
-					$e = sql_delete($table_lien, $where);
-					if ($e !== false) {
-						$dels += $e;
-						lien_propage_date_modif($l['objet'], $id_o);
-						lien_propage_date_modif($objet_source, $l[$primary]);
-					} else {
-						$echec = true;
-					}
-					$retire[] = array(
-						'source' => array($objet_source => $l[$primary]),
-						'lien' => array($l['objet'] => $id_o),
-						'type' => $l['objet'],
-						'role' => ($colonne_role ? $l[$colonne_role] : ''),
-						'id' => $id_o
-					);
-					// Envoyer aux plugins
-					pipeline('post_edition_lien',
-						array(
-							'args' => $args,
-							'data' => $l
-						)
-					);
-				}
-			}
-		}
-	}
-
-	pipeline('trig_supprimer_objets_lies', $retire);
-
-	return ($echec ? false : $dels);
+    $retire = array();
+    $dels = 0;
+    $echec = false;
+    if (is_null($cond)) {
+        $cond = array();
+    }
+
+    foreach ($objets as $objet => $id_objets) {
+        $objet = ($objet == '*') ? $objet : objet_type($objet); # securite
+        if (!is_array($id_objets) or reset($id_objets) == "NOT") {
+            $id_objets = array($id_objets);
+        }
+        foreach ($id_objets as $id_objet) {
+            list($cond, $colonne_role, $role) = roles_creer_condition_role($objet_source, $objet, $cond);
+            // id_objet peut valoir '*'
+            $where = lien_where($primary, $id, $objet, $id_objet, $cond);
+
+            // lire les liens existants pour propager la date de modif
+            $select = "$primary,id_objet,objet";
+            if ($colonne_role) {
+                $select .= ",$colonne_role";
+            }
+            $liens = sql_allfetsel($select, $table_lien, $where);
+
+            // iterer sur les liens pour permettre aux plugins de gerer
+            foreach ($liens as $l) {
+
+                $args = array(
+                    'table_lien' => $table_lien,
+                    'objet_source' => $objet_source,
+                    'id_objet_source' => $l[$primary],
+                    'objet' => $l['objet'],
+                    'id_objet' => $l['id_objet'],
+                    'colonne_role' => $colonne_role,
+                    'role' => ($colonne_role ? $l[$colonne_role] : ''),
+                    'action' => 'delete',
+                );
+
+                // Envoyer aux plugins
+                $l = pipeline('pre_edition_lien',
+                    array(
+                        'args' => $args,
+                        'data' => $l
+                    )
+                );
+                $args['id_objet'] = $id_o = $l['id_objet'];
+
+                if ($id_o = intval($l['id_objet'])) {
+                    $where = lien_where($primary, $l[$primary], $l['objet'], $id_o, $cond);
+                    $e = sql_delete($table_lien, $where);
+                    if ($e !== false) {
+                        $dels += $e;
+                        lien_propage_date_modif($l['objet'], $id_o);
+                        lien_propage_date_modif($objet_source, $l[$primary]);
+                    } else {
+                        $echec = true;
+                    }
+                    $retire[] = array(
+                        'source' => array($objet_source => $l[$primary]),
+                        'lien' => array($l['objet'] => $id_o),
+                        'type' => $l['objet'],
+                        'role' => ($colonne_role ? $l[$colonne_role] : ''),
+                        'id' => $id_o
+                    );
+                    // Envoyer aux plugins
+                    pipeline('post_edition_lien',
+                        array(
+                            'args' => $args,
+                            'data' => $l
+                        )
+                    );
+                }
+            }
+        }
+    }
+
+    pipeline('trig_supprimer_objets_lies', $retire);
+
+    return ($echec ? false : $dels);
 }
 
 
@@ -617,56 +617,56 @@ 
  * @return bool|int
  */
 function lien_optimise($objet_source, $primary, $table_lien, $id, $objets) {
-	include_spip('genie/optimiser');
-	$echec = false;
-	$dels = 0;
-	foreach ($objets as $objet => $id_objets) {
-		$objet = ($objet == '*') ? $objet : objet_type($objet); # securite
-		if (!is_array($id_objets) or reset($id_objets) == "NOT") {
-			$id_objets = array($id_objets);
-		}
-		foreach ($id_objets as $id_objet) {
-			$where = lien_where($primary, $id, $objet, $id_objet);
-			# les liens vers un objet inexistant
-			$r = sql_select("DISTINCT objet", $table_lien, $where);
-			while ($t = sql_fetch($r)) {
-				$type = $t['objet'];
-				$spip_table_objet = table_objet_sql($type);
-				$id_table_objet = id_table_objet($type);
-				$res = sql_select("L.$primary AS id,L.id_objet",
-					// la condition de jointure inclue L.objet='xxx' pour ne joindre que les bonnes lignes
-					// du coups toutes les lignes avec un autre objet ont un id_xxx=NULL puisque LEFT JOIN
-					// il faut les eliminier en repetant la condition dans le where L.objet='xxx'
-					"$table_lien AS L
+    include_spip('genie/optimiser');
+    $echec = false;
+    $dels = 0;
+    foreach ($objets as $objet => $id_objets) {
+        $objet = ($objet == '*') ? $objet : objet_type($objet); # securite
+        if (!is_array($id_objets) or reset($id_objets) == "NOT") {
+            $id_objets = array($id_objets);
+        }
+        foreach ($id_objets as $id_objet) {
+            $where = lien_where($primary, $id, $objet, $id_objet);
+            # les liens vers un objet inexistant
+            $r = sql_select("DISTINCT objet", $table_lien, $where);
+            while ($t = sql_fetch($r)) {
+                $type = $t['objet'];
+                $spip_table_objet = table_objet_sql($type);
+                $id_table_objet = id_table_objet($type);
+                $res = sql_select("L.$primary AS id,L.id_objet",
+                    // la condition de jointure inclue L.objet='xxx' pour ne joindre que les bonnes lignes
+                    // du coups toutes les lignes avec un autre objet ont un id_xxx=NULL puisque LEFT JOIN
+                    // il faut les eliminier en repetant la condition dans le where L.objet='xxx'
+                    "$table_lien AS L
 									LEFT JOIN $spip_table_objet AS O
 										ON (O.$id_table_objet=L.id_objet AND L.objet=" . sql_quote($type) . ")",
-					"L.objet=" . sql_quote($type) . " AND O.$id_table_objet IS NULL");
-				// sur une cle primaire composee, pas d'autres solutions que de virer un a un
-				while ($row = sql_fetch($res)) {
-					$e = sql_delete($table_lien,
-						array("$primary=" . $row['id'], "id_objet=" . $row['id_objet'], "objet=" . sql_quote($type)));
-					if ($e != false) {
-						$dels += $e;
-						spip_log("Entree " . $row['id'] . "/" . $row['id_objet'] . "/$type supprimee dans la table $table_lien",
-							_LOG_INFO_IMPORTANTE);
-					}
-				}
-			}
-
-			# les liens depuis un objet inexistant
-			$table_source = table_objet_sql($objet_source);
-			// filtrer selon $id, $objet, $id_objet eventuellement fournis
-			// (en general '*' pour chaque)
-			$where = lien_where("L.$primary", $id, $objet, $id_objet);
-			$where[] = "O.$primary IS NULL";
-			$res = sql_select("L.$primary AS id",
-				"$table_lien AS L LEFT JOIN $table_source AS O ON L.$primary=O.$primary",
-				$where);
-			$dels += optimiser_sansref($table_lien, $primary, $res);
-		}
-	}
-
-	return ($echec ? false : $dels);
+                    "L.objet=" . sql_quote($type) . " AND O.$id_table_objet IS NULL");
+                // sur une cle primaire composee, pas d'autres solutions que de virer un a un
+                while ($row = sql_fetch($res)) {
+                    $e = sql_delete($table_lien,
+                        array("$primary=" . $row['id'], "id_objet=" . $row['id_objet'], "objet=" . sql_quote($type)));
+                    if ($e != false) {
+                        $dels += $e;
+                        spip_log("Entree " . $row['id'] . "/" . $row['id_objet'] . "/$type supprimee dans la table $table_lien",
+                            _LOG_INFO_IMPORTANTE);
+                    }
+                }
+            }
+
+            # les liens depuis un objet inexistant
+            $table_source = table_objet_sql($objet_source);
+            // filtrer selon $id, $objet, $id_objet eventuellement fournis
+            // (en general '*' pour chaque)
+            $where = lien_where("L.$primary", $id, $objet, $id_objet);
+            $where[] = "O.$primary IS NULL";
+            $res = sql_select("L.$primary AS id",
+                "$table_lien AS L LEFT JOIN $table_source AS O ON L.$primary=O.$primary",
+                $where);
+            $dels += optimiser_sansref($table_lien, $primary, $res);
+        }
+    }
+
+    return ($echec ? false : $dels);
 }
 
 
@@ -698,70 +698,70 @@ 
  *     Nombre de modifications faites, false si échec.
  */
 function lien_set($objet_source, $primary, $table_lien, $id, $objets, $qualif) {
-	$echec = null;
-	$ok = 0;
-	if (!$qualif) {
-		return false;
-	}
-	// nettoyer qualif qui peut venir directement d'un objet_trouver_lien :
-	unset($qualif[$primary]);
-	unset($qualif[$objet_source]);
-	if (isset($qualif['objet'])) {
-		unset($qualif[$qualif['objet']]);
-	}
-	unset($qualif['objet']);
-	unset($qualif['id_objet']);
-	foreach ($objets as $objet => $id_objets) {
-
-		// role, colonne, where par défaut
-		list($role, $colonne_role, $cond) =
-			roles_trouver_dans_qualif($objet_source, $objet, $qualif);
-
-		$objet = ($objet == '*') ? $objet : objet_type($objet); # securite
-		if (!is_array($id_objets) or reset($id_objets) == "NOT") {
-			$id_objets = array($id_objets);
-		}
-		foreach ($id_objets as $id_objet) {
-
-			$args = array(
-				'table_lien' => $table_lien,
-				'objet_source' => $objet_source,
-				'id_objet_source' => $id,
-				'objet' => $objet,
-				'id_objet' => $id_objet,
-				'role' => $role,
-				'colonne_role' => $colonne_role,
-				'action' => 'modifier',
-			);
-
-			// Envoyer aux plugins
-			$qualif = pipeline('pre_edition_lien',
-				array(
-					'args' => $args,
-					'data' => $qualif,
-				)
-			);
-			$args['id_objet'] = $id_objet;
-
-			$where = lien_where($primary, $id, $objet, $id_objet, $cond);
-			$e = sql_updateq($table_lien, $qualif, $where);
-
-			if ($e === false) {
-				$echec = true;
-			} else {
-				// Envoyer aux plugins
-				pipeline('post_edition_lien',
-					array(
-						'args' => $args,
-						'data' => $qualif
-					)
-				);
-				$ok++;
-			}
-		}
-	}
-
-	return ($echec ? false : $ok);
+    $echec = null;
+    $ok = 0;
+    if (!$qualif) {
+        return false;
+    }
+    // nettoyer qualif qui peut venir directement d'un objet_trouver_lien :
+    unset($qualif[$primary]);
+    unset($qualif[$objet_source]);
+    if (isset($qualif['objet'])) {
+        unset($qualif[$qualif['objet']]);
+    }
+    unset($qualif['objet']);
+    unset($qualif['id_objet']);
+    foreach ($objets as $objet => $id_objets) {
+
+        // role, colonne, where par défaut
+        list($role, $colonne_role, $cond) =
+            roles_trouver_dans_qualif($objet_source, $objet, $qualif);
+
+        $objet = ($objet == '*') ? $objet : objet_type($objet); # securite
+        if (!is_array($id_objets) or reset($id_objets) == "NOT") {
+            $id_objets = array($id_objets);
+        }
+        foreach ($id_objets as $id_objet) {
+
+            $args = array(
+                'table_lien' => $table_lien,
+                'objet_source' => $objet_source,
+                'id_objet_source' => $id,
+                'objet' => $objet,
+                'id_objet' => $id_objet,
+                'role' => $role,
+                'colonne_role' => $colonne_role,
+                'action' => 'modifier',
+            );
+
+            // Envoyer aux plugins
+            $qualif = pipeline('pre_edition_lien',
+                array(
+                    'args' => $args,
+                    'data' => $qualif,
+                )
+            );
+            $args['id_objet'] = $id_objet;
+
+            $where = lien_where($primary, $id, $objet, $id_objet, $cond);
+            $e = sql_updateq($table_lien, $qualif, $where);
+
+            if ($e === false) {
+                $echec = true;
+            } else {
+                // Envoyer aux plugins
+                pipeline('post_edition_lien',
+                    array(
+                        'args' => $args,
+                        'data' => $qualif
+                    )
+                );
+                $ok++;
+            }
+        }
+    }
+
+    return ($echec ? false : $ok);
 }
 
 /**
@@ -791,23 +791,23 @@ 
  * @return array
  */
 function lien_find($objet_source, $primary, $table_lien, $id, $objets, $cond = null) {
-	$trouve = array();
-	foreach ($objets as $objet => $id_objets) {
-		$objet = ($objet == '*') ? $objet : objet_type($objet); # securite
-		// gerer les roles s'il y en a dans $cond
-		list($cond) = roles_creer_condition_role($objet_source, $objet, $cond, true);
-		// lien_where prend en charge les $id_objets sous forme int ou array
-		$where = lien_where($primary, $id, $objet, $id_objets, $cond);
-		$liens = sql_allfetsel('*', $table_lien, $where);
-		// ajouter les entrees objet_source et objet cible par convenance
-		foreach ($liens as $l) {
-			$l[$objet_source] = $l[$primary];
-			$l[$objet] = $l['id_objet'];
-			$trouve[] = $l;
-		}
-	}
-
-	return $trouve;
+    $trouve = array();
+    foreach ($objets as $objet => $id_objets) {
+        $objet = ($objet == '*') ? $objet : objet_type($objet); # securite
+        // gerer les roles s'il y en a dans $cond
+        list($cond) = roles_creer_condition_role($objet_source, $objet, $cond, true);
+        // lien_where prend en charge les $id_objets sous forme int ou array
+        $where = lien_where($primary, $id, $objet, $id_objets, $cond);
+        $liens = sql_allfetsel('*', $table_lien, $where);
+        // ajouter les entrees objet_source et objet cible par convenance
+        foreach ($liens as $l) {
+            $l[$objet_source] = $l[$primary];
+            $l[$objet] = $l['id_objet'];
+            $trouve[] = $l;
+        }
+    }
+
+    return $trouve;
 }
 
 /**
@@ -818,25 +818,25 @@ 
  * @param array|int $ids
  */
 function lien_propage_date_modif($objet, $ids) {
-	static $done = array();
-	$hash = md5($objet . serialize($ids));
-
-	// sql_updateq, peut être un rien lent.
-	// On évite de l'appeler 2 fois sur les mêmes choses
-	if (isset($done[$hash])) {
-		return;
-	}
-
-	$trouver_table = charger_fonction('trouver_table', 'base');
-
-	$table = table_objet_sql($objet);
-	if ($desc = $trouver_table($table)
-		and isset($desc['field']['date_modif'])
-	) {
-		$primary = id_table_objet($objet);
-		$where = (is_array($ids) ? sql_in($primary, array_map('intval', $ids)) : "$primary=" . intval($ids));
-		sql_updateq($table, array('date_modif' => date('Y-m-d H:i:s')), $where);
-	}
-
-	$done[$hash] = true;
+    static $done = array();
+    $hash = md5($objet . serialize($ids));
+
+    // sql_updateq, peut être un rien lent.
+    // On évite de l'appeler 2 fois sur les mêmes choses
+    if (isset($done[$hash])) {
+        return;
+    }
+
+    $trouver_table = charger_fonction('trouver_table', 'base');
+
+    $table = table_objet_sql($objet);
+    if ($desc = $trouver_table($table)
+        and isset($desc['field']['date_modif'])
+    ) {
+        $primary = id_table_objet($objet);
+        $where = (is_array($ids) ? sql_in($primary, array_map('intval', $ids)) : "$primary=" . intval($ids));
+        sql_updateq($table, array('date_modif' => date('Y-m-d H:i:s')), $where);
+    }
+
+    $done[$hash] = true;
 }

Spacing +10 added lines, -10 removed lines

@@ -52,7 +52,7 @@ 
 
 	$l = "";
 	if ($primary = id_table_objet($objet)
-		and $trouver_table($l = $table_sql . "_liens")
+		and $trouver_table($l = $table_sql."_liens")
 		and !preg_match(',[^\w],', $primary)
 		and !preg_match(',[^\w],', $l)
 	) {
@@ -464,7 +464,7 @@ 
 
 	if ($id_source !== '*') {
 		$where[] = (is_array($id_source) ? sql_in(addslashes($primary), array_map('intval', $id_source),
-			$not) : addslashes($primary) . ($not ? "<>" : "=") . intval($id_source));
+			$not) : addslashes($primary).($not ? "<>" : "=").intval($id_source));
 	} elseif ($not) {
 		$where[] = "0=1";
 	} // idiot mais quand meme
@@ -476,11 +476,11 @@ 
 	}
 
 	if ($objet !== '*') {
-		$where[] = "objet=" . sql_quote($objet);
+		$where[] = "objet=".sql_quote($objet);
 	}
 	if ($id_objet !== '*') {
 		$where[] = (is_array($id_objet) ? sql_in('id_objet', array_map('intval', $id_objet),
-			$not) : "id_objet" . ($not ? "<>" : "=") . intval($id_objet));
+			$not) : "id_objet".($not ? "<>" : "=").intval($id_objet));
 	} elseif ($not) {
 		$where[] = "0=1";
 	} // idiot mais quand meme
@@ -639,15 +639,15 @@ 
 					// il faut les eliminier en repetant la condition dans le where L.objet='xxx'
 					"$table_lien AS L
 									LEFT JOIN $spip_table_objet AS O
-										ON (O.$id_table_objet=L.id_objet AND L.objet=" . sql_quote($type) . ")",
-					"L.objet=" . sql_quote($type) . " AND O.$id_table_objet IS NULL");
+										ON (O.$id_table_objet=L.id_objet AND L.objet=".sql_quote($type).")",
+					"L.objet=".sql_quote($type)." AND O.$id_table_objet IS NULL");
 				// sur une cle primaire composee, pas d'autres solutions que de virer un a un
 				while ($row = sql_fetch($res)) {
 					$e = sql_delete($table_lien,
-						array("$primary=" . $row['id'], "id_objet=" . $row['id_objet'], "objet=" . sql_quote($type)));
+						array("$primary=".$row['id'], "id_objet=".$row['id_objet'], "objet=".sql_quote($type)));
 					if ($e != false) {
 						$dels += $e;
-						spip_log("Entree " . $row['id'] . "/" . $row['id_objet'] . "/$type supprimee dans la table $table_lien",
+						spip_log("Entree ".$row['id']."/".$row['id_objet']."/$type supprimee dans la table $table_lien",
 							_LOG_INFO_IMPORTANTE);
 					}
 				}
@@ -819,7 +819,7 @@ 
  */
 function lien_propage_date_modif($objet, $ids) {
 	static $done = array();
-	$hash = md5($objet . serialize($ids));
+	$hash = md5($objet.serialize($ids));
 
 	// sql_updateq, peut être un rien lent.
 	// On évite de l'appeler 2 fois sur les mêmes choses
@@ -834,7 +834,7 @@ 
 		and isset($desc['field']['date_modif'])
 	) {
 		$primary = id_table_objet($objet);
-		$where = (is_array($ids) ? sql_in($primary, array_map('intval', $ids)) : "$primary=" . intval($ids));
+		$where = (is_array($ids) ? sql_in($primary, array_map('intval', $ids)) : "$primary=".intval($ids));
 		sql_updateq($table, array('date_modif' => date('Y-m-d H:i:s')), $where);
 	}
 

ecrire/inc/idna_convert.class.php

Doc Comments +5 added lines, -5 removed lines

@@ -88,7 +88,7 @@ 
      * the constructor
      *
      * @param array $options
-     * @return boolean
+     * @return boolean|null
      * @since 0.5.2
      */
     public function __construct($options = false)
@@ -393,7 +393,7 @@ 
     /**
      * Use this method to get the last error ocurred
      * @param    void
-     * @return   string   The last error, that occured
+     * @return   boolean   The last error, that occured
      */
     public function get_last_error()
     {
@@ -403,7 +403,7 @@ 
     /**
      * The actual decoding algorithm
      * @param string
-     * @return mixed
+     * @return false|string
      */
     protected function _decode($encoded)
     {
@@ -464,7 +464,7 @@ 
     /**
      * The actual encoding algorithm
      * @param  string
-     * @return mixed
+     * @return false|string
      */
     protected function _encode($decoded)
     {
@@ -699,7 +699,7 @@ 
      * Decomposes a Hangul syllable
      * (see http://www.unicode.org/unicode/reports/tr15/#Hangul
      * @param    integer  32bit UCS4 code point
-     * @return   array    Either Hangul Syllable decomposed or original 32bit value as one value array
+     * @return   integer[]    Either Hangul Syllable decomposed or original 32bit value as one value array
      */
     protected function _hangul_decompose($char)
     {

Spacing +43 added lines, -46 removed lines

@@ -73,16 +73,16 @@ 
     protected $_lcount = 19;
     protected $_vcount = 21;
     protected $_tcount = 28;
-    protected $_ncount = 588;   // _vcount * _tcount
+    protected $_ncount = 588; // _vcount * _tcount
     protected $_scount = 11172; // _lcount * _tcount * _vcount
     protected $_error = false;
     protected static $_mb_string_overload = null;
     // See {@link set_paramter()} for details of how to change the following
     // settings from within your script / application
-    protected $_api_encoding = 'utf8';   // Default input charset is UTF-8
-    protected $_allow_overlong = false;  // Overlong UTF-8 encodings are forbidden
-    protected $_strict_mode = false;     // Behave strict or not
-    protected $_idn_version = 2003;      // Can be either 2003 (old, default) or 2008
+    protected $_api_encoding = 'utf8'; // Default input charset is UTF-8
+    protected $_allow_overlong = false; // Overlong UTF-8 encodings are forbidden
+    protected $_strict_mode = false; // Behave strict or not
+    protected $_idn_version = 2003; // Can be either 2003 (old, default) or 2008
 
     /**
      * the constructor
@@ -140,7 +140,7 @@ 
                             $this->_api_encoding = $v;
                             break;
                         default:
-                            $this->_error('Set Parameter: Unknown parameter ' . $v . ' for option ' . $k);
+                            $this->_error('Set Parameter: Unknown parameter '.$v.' for option '.$k);
                             return false;
                     }
                     break;
@@ -154,7 +154,7 @@ 
                     if (in_array($v, array('2003', '2008'))) {
                         $this->_idn_version = $v;
                     } else {
-                        $this->_error('Set Parameter: Unknown parameter ' . $v . ' for option ' . $k);
+                        $this->_error('Set Parameter: Unknown parameter '.$v.' for option '.$k);
                     }
                     break;
                 case 'encode_german_sz': // Deprecated
@@ -165,7 +165,7 @@ 
                     }
                     break;
                 default:
-                    $this->_error('Set Parameter: Unknown option ' . $k);
+                    $this->_error('Set Parameter: Unknown option '.$k);
                     return false;
             }
         }
@@ -188,7 +188,7 @@ 
                 case 'ucs4_array':
                     break;
                 default:
-                    $this->_error('Unknown encoding ' . $one_time_encoding);
+                    $this->_error('Unknown encoding '.$one_time_encoding);
                     return false;
             }
         }
@@ -206,7 +206,7 @@ 
             list ($email_pref, $input) = explode('@', $input, 2);
             $arr = explode('.', $input);
             foreach ($arr as $k => $v) {
-                if (preg_match('!^' . preg_quote($this->_punycode_prefix, '!') . '!', $v)) {
+                if (preg_match('!^'.preg_quote($this->_punycode_prefix, '!').'!', $v)) {
                     $conv = $this->_decode($v);
                     if ($conv) {
                         $arr[$k] = $conv;
@@ -216,7 +216,7 @@ 
             $input = join('.', $arr);
             $arr = explode('.', $email_pref);
             foreach ($arr as $k => $v) {
-                if (preg_match('!^' . preg_quote($this->_punycode_prefix, '!') . '!', $v)) {
+                if (preg_match('!^'.preg_quote($this->_punycode_prefix, '!').'!', $v)) {
                     $conv = $this->_decode($v);
                     if ($conv) {
                         $arr[$k] = $conv;
@@ -224,7 +224,7 @@ 
                 }
             }
             $email_pref = join('.', $arr);
-            $return = $email_pref . '@' . $input;
+            $return = $email_pref.'@'.$input;
         } elseif (preg_match('![:\./]!', $input)) { // Or a complete domain name (with or without paths / parameters)
             // No no in strict mode
             if ($this->_strict_mode) {
@@ -241,13 +241,13 @@ 
                     }
                 }
                 $parsed['host'] = join('.', $arr);
-                $return = (empty($parsed['scheme']) ? '' : $parsed['scheme'] . (strtolower($parsed['scheme']) == 'mailto' ? ':' : '://')).
-                        (empty($parsed['user']) ? '' : $parsed['user'] . (empty($parsed['pass']) ? '' : ':' . $parsed['pass']) . '@').
+                $return = (empty($parsed['scheme']) ? '' : $parsed['scheme'].(strtolower($parsed['scheme']) == 'mailto' ? ':' : '://')).
+                        (empty($parsed['user']) ? '' : $parsed['user'].(empty($parsed['pass']) ? '' : ':'.$parsed['pass']).'@').
                         $parsed['host'].
-                        (empty($parsed['port']) ? '' : ':' . $parsed['port']).
+                        (empty($parsed['port']) ? '' : ':'.$parsed['port']).
                         (empty($parsed['path']) ? '' : $parsed['path']).
-                        (empty($parsed['query']) ? '' : '?' . $parsed['query']).
-                        (empty($parsed['fragment']) ? '' : '#' . $parsed['fragment']);
+                        (empty($parsed['query']) ? '' : '?'.$parsed['query']).
+                        (empty($parsed['fragment']) ? '' : '#'.$parsed['fragment']);
             } else { // parse_url seems to have failed, try without it
                 $arr = explode('.', $input);
                 foreach ($arr as $k => $v) {
@@ -265,8 +265,8 @@ 
         // The output is UTF-8 by default, other output formats need conversion here
         // If one time encoding is given, use this, else the objects property
         switch (($one_time_encoding) ? $one_time_encoding : $this->_api_encoding) {
-            case 'utf8':        return $return; // break;
-            case 'ucs4_string': return $this->_ucs4_to_ucs4_string($this->_utf8_to_ucs4($return));  // break;
+            case 'utf8' : return $return; // break;
+            case 'ucs4_string': return $this->_ucs4_to_ucs4_string($this->_utf8_to_ucs4($return)); // break;
             case 'ucs4_array':  return $this->_utf8_to_ucs4($return); // break;
             default:            $this->_error('Unsupported output format'); return false;
         }
@@ -283,15 +283,14 @@ 
         // Forcing conversion of input to UCS4 array
         // If one time encoding is given, use this, else the objects property
         switch ($one_time_encoding ? $one_time_encoding : $this->_api_encoding) {
-            case 'utf8':
-                $decoded = $this->_utf8_to_ucs4($decoded);
+            case 'utf8' : $decoded = $this->_utf8_to_ucs4($decoded);
                 break;
             case 'ucs4_string':
                 $decoded = $this->_ucs4_string_to_ucs4($decoded);
             case 'ucs4_array':
                 break;
             default:
-                $this->_error('Unsupported input format: ' . ($one_time_encoding ? $one_time_encoding : $this->_api_encoding));
+                $this->_error('Unsupported input format: '.($one_time_encoding ? $one_time_encoding : $this->_api_encoding));
                 return false;
         }
 
@@ -380,13 +379,13 @@ 
             }
         }
         $parsed['host'] = join('.', $arr);
-        $return = (empty($parsed['scheme']) ? '' : $parsed['scheme'] . (strtolower($parsed['scheme']) == 'mailto' ? ':' : '://')).
-                (empty($parsed['user']) ? '' : $parsed['user'] . (empty($parsed['pass']) ? '' : ':' . $parsed['pass']) . '@').
+        $return = (empty($parsed['scheme']) ? '' : $parsed['scheme'].(strtolower($parsed['scheme']) == 'mailto' ? ':' : '://')).
+                (empty($parsed['user']) ? '' : $parsed['user'].(empty($parsed['pass']) ? '' : ':'.$parsed['pass']).'@').
                 $parsed['host'].
-                (empty($parsed['port']) ? '' : ':' . $parsed['port']).
+                (empty($parsed['port']) ? '' : ':'.$parsed['port']).
                 (empty($parsed['path']) ? '' : $parsed['path']).
-                (empty($parsed['query']) ? '' : '?' . $parsed['query']).
-                (empty($parsed['fragment']) ? '' : '#' . $parsed['fragment']);
+                (empty($parsed['query']) ? '' : '?'.$parsed['query']).
+                (empty($parsed['fragment']) ? '' : '#'.$parsed['fragment']);
         return $return;
     }
 
@@ -409,11 +408,11 @@ 
     {
         $decoded = array();
         // find the Punycode prefix
-        if (!preg_match('!^' . preg_quote($this->_punycode_prefix, '!') . '!', $encoded)) {
+        if (!preg_match('!^'.preg_quote($this->_punycode_prefix, '!').'!', $encoded)) {
             $this->_error('This is not a punycode string');
             return false;
         }
-        $encode_test = preg_replace('!^' . preg_quote($this->_punycode_prefix, '!') . '!', '', $encoded);
+        $encode_test = preg_replace('!^'.preg_quote($this->_punycode_prefix, '!').'!', '', $encoded);
         // If nothing left after removing the prefix, it is hopeless
         if (!$encode_test) {
             $this->_error('The given encoded string was empty');
@@ -439,8 +438,7 @@ 
             for ($old_idx = $idx, $w = 1, $k = $this->_base; 1; $k += $this->_base) {
                 $digit = $this->_decode_digit($encoded{$enco_idx++});
                 $idx += $digit * $w;
-                $t = ($k <= $bias) ? $this->_tmin :
-                        (($k >= $bias + $this->_tmax) ? $this->_tmax : ($k - $bias));
+                $t = ($k <= $bias) ? $this->_tmin : (($k >= $bias + $this->_tmax) ? $this->_tmax : ($k - $bias));
                 if ($digit < $t) {
                     break;
                 }
@@ -513,7 +511,7 @@ 
             return $encoded; // All codepoints were basic ones
         }
         // Start with the prefix; copy it to output
-        $encoded = $this->_punycode_prefix . $encoded;
+        $encoded = $this->_punycode_prefix.$encoded;
         // If we have basic code points in output, add an hyphen to the end
         if ($codecount) {
             $encoded .= '-';
@@ -540,8 +538,7 @@ 
                     $delta++;
                 } elseif ($decoded[$i] == $cur_code) {
                     for ($q = $delta, $k = $this->_base; 1; $k += $this->_base) {
-                        $t = ($k <= $bias) ? $this->_tmin :
-                                (($k >= $bias + $this->_tmax) ? $this->_tmax : $k - $bias);
+                        $t = ($k <= $bias) ? $this->_tmin : (($k >= $bias + $this->_tmax) ? $this->_tmax : $k - $bias);
                         if ($q < $t) {
                             break;
                         }
@@ -628,12 +625,12 @@ 
             }
             // Try to find prohibited input
             if (in_array($v, self::$NP['prohibit']) || in_array($v, self::$NP['general_prohibited'])) {
-                $this->_error('NAMEPREP: Prohibited input U+' . sprintf('%08X', $v));
+                $this->_error('NAMEPREP: Prohibited input U+'.sprintf('%08X', $v));
                 return false;
             }
             foreach (self::$NP['prohibit_ranges'] as $range) {
                 if ($range[0] <= $v && $v <= $range[1]) {
-                    $this->_error('NAMEPREP: Prohibited input U+' . sprintf('%08X', $v));
+                    $this->_error('NAMEPREP: Prohibited input U+'.sprintf('%08X', $v));
                     return false;
                 }
             }
@@ -869,7 +866,7 @@ 
                 $output[$out_len] = $v;
                 ++$out_len;
                 if ('add' == $mode) {
-                    $this->_error('Conversion from UTF-8 to UCS-4 failed: malformed input at byte ' . $k);
+                    $this->_error('Conversion from UTF-8 to UCS-4 failed: malformed input at byte '.$k);
                     return false;
                 }
                 continue;
@@ -894,7 +891,7 @@ 
                     $next_byte = 4;
                     $v = ($v - 252) << 30;
                 } else {
-                    $this->_error('This might be UTF-8, but I don\'t understand it at byte ' . $k);
+                    $this->_error('This might be UTF-8, but I don\'t understand it at byte '.$k);
                     return false;
                 }
                 if ('add' == $mode) {
@@ -907,7 +904,7 @@ 
                 if (!$this->_allow_overlong && $test == 'range') {
                     $test = 'none';
                     if (($v < 0xA0 && $start_byte == 0xE0) || ($v < 0x90 && $start_byte == 0xF0) || ($v > 0x8F && $start_byte == 0xF4)) {
-                        $this->_error('Bogus UTF-8 character detected (out of legal range) at byte ' . $k);
+                        $this->_error('Bogus UTF-8 character detected (out of legal range) at byte '.$k);
                         return false;
                     }
                 }
@@ -916,7 +913,7 @@ 
                     $output[($out_len - 1)] += $v;
                     --$next_byte;
                 } else {
-                    $this->_error('Conversion from UTF-8 to UCS-4 failed: malformed input at byte ' . $k);
+                    $this->_error('Conversion from UTF-8 to UCS-4 failed: malformed input at byte '.$k);
                     return false;
                 }
                 if ($next_byte < 0) {
@@ -940,13 +937,13 @@ 
             if ($v < 128) { // 7bit are transferred literally
                 $output .= chr($v);
             } elseif ($v < (1 << 11)) { // 2 bytes
-                $output .= chr(192 + ($v >> 6)) . chr(128 + ($v & 63));
+                $output .= chr(192 + ($v >> 6)).chr(128 + ($v & 63));
             } elseif ($v < (1 << 16)) { // 3 bytes
-                $output .= chr(224 + ($v >> 12)) . chr(128 + (($v >> 6) & 63)) . chr(128 + ($v & 63));
+                $output .= chr(224 + ($v >> 12)).chr(128 + (($v >> 6) & 63)).chr(128 + ($v & 63));
             } elseif ($v < (1 << 21)) { // 4 bytes
-                $output .= chr(240 + ($v >> 18)) . chr(128 + (($v >> 12) & 63)) . chr(128 + (($v >> 6) & 63)) . chr(128 + ($v & 63));
+                $output .= chr(240 + ($v >> 18)).chr(128 + (($v >> 12) & 63)).chr(128 + (($v >> 6) & 63)).chr(128 + ($v & 63));
             } else {
-                $this->_error('Conversion from UCS-4 to UTF-8 failed: malformed input at byte ' . $k);
+                $this->_error('Conversion from UCS-4 to UTF-8 failed: malformed input at byte '.$k);
                 return false;
             }
         }
@@ -965,7 +962,7 @@ 
         // Take array values and split output to 4 bytes per value
         // The bit mask is 255, which reads &11111111
         foreach ($input as $v) {
-            $output .= chr(($v >> 24) & 255) . chr(($v >> 16) & 255) . chr(($v >> 8) & 255) . chr($v & 255);
+            $output .= chr(($v >> 24) & 255).chr(($v >> 16) & 255).chr(($v >> 8) & 255).chr($v & 255);
         }
         return $output;
     }
@@ -995,7 +992,7 @@ 
                 $out_len++;
                 $output[$out_len] = 0;
             }
-            $output[$out_len] += ord($input{$i}) << (8 * (3 - ($i % 4) ) );
+            $output[$out_len] += ord($input{$i}) << (8 * (3 - ($i % 4)));
         }
         return $output;
     }

ecrire/action/editer_auteur.php

Doc Comments +7 added lines, -7 removed lines

@@ -85,7 +85,7 @@ 
  * @param string|null $source
  *     D'où provient l'auteur créé ? par défaut 'spip', mais peut être 'ldap' ou autre.
  * @param array|null $set
- * @return int
+ * @return boolean|string
  *     Identifiant de l'auteur créé
  */
 function auteur_inserer($source = null, $set = null) {
@@ -140,7 +140,7 @@ 
  * @param bool $force_update
  *   Permet de forcer la maj en base des champs fournis, sans passer par instancier.
  *   Utilise par auth/spip
- * @return string|null
+ * @return string|false
  *
  *     - Chaîne vide si aucune erreur,
  *     - Chaîne contenant un texte d'erreur sinon.
@@ -304,7 +304,7 @@ 
  *     Couples (colonne => valeur) des données à instituer
  * @param bool $force_webmestre
  *     Autoriser un auteur à passer webmestre (force l'autorisation)
- * @return bool|string
+ * @return false|string
  */
 function auteur_instituer($id_auteur, $c, $force_webmestre = false) {
 	if (!$id_auteur = intval($id_auteur)) {
@@ -449,7 +449,7 @@ 
  * @see auteur_inserer()
  *
  * @param string|null $source
- * @return int
+ * @return boolean|string
  */
 function insert_auteur($source = null) {
 	return auteur_inserer($source);
@@ -463,7 +463,7 @@ 
  *
  * @param int $id_auteur
  * @param array|null $set
- * @return string|null
+ * @return string|false
  */
 function auteurs_set($id_auteur, $set = null) {
 	return auteur_modifier($id_auteur, $set);
@@ -478,7 +478,7 @@ 
  * @param int $id_auteur
  * @param array $c
  * @param bool $force_webmestre
- * @return bool|string
+ * @return false|string
  */
 function instituer_auteur($id_auteur, $c, $force_webmestre = false) {
 	return auteur_instituer($id_auteur, $c, $force_webmestre);
@@ -492,7 +492,7 @@ 
  *
  * @param int $id_auteur
  * @param array $c
- * @return string|null
+ * @return string|false
  */
 function revision_auteur($id_auteur, $c = false) {
 	return auteur_modifier($id_auteur, $c);

Indentation +269 added lines, -269 removed lines

@@ -17,7 +17,7 @@ 
  */
 
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 /**
@@ -37,43 +37,43 @@ 
  */
 function action_editer_auteur_dist($arg = null) {
 
-	if (is_null($arg)) {
-		$securiser_action = charger_fonction('securiser_action', 'inc');
-		$arg = $securiser_action();
-	}
-
-
-	// si id_auteur n'est pas un nombre, c'est une creation
-	if (!$id_auteur = intval($arg)) {
-
-		if (($id_auteur = auteur_inserer()) > 0) {
-
-			# cf. GROS HACK
-			# recuperer l'eventuel logo charge avant la creation
-			# ils ont un id = 0-id_auteur de la session
-			$id_hack = 0 - $GLOBALS['visiteur_session']['id_auteur'];
-			$chercher_logo = charger_fonction('chercher_logo', 'inc');
-			foreach (array('on', 'off') as $type) {
-				if ($logo = $chercher_logo($id_hack, 'id_auteur', $type)) {
-					if ($logo = reset($logo)) {
-						rename($logo, str_replace($id_hack, $id_auteur, $logo));
-					}
-				}
-			}
-		}
-	}
-
-	// Enregistre l'envoi dans la BD
-	$err = "";
-	if ($id_auteur > 0) {
-		$err = auteur_modifier($id_auteur);
-	}
-
-	if ($err) {
-		spip_log("echec editeur auteur: $err", _LOG_ERREUR);
-	}
-
-	return array($id_auteur, $err);
+    if (is_null($arg)) {
+        $securiser_action = charger_fonction('securiser_action', 'inc');
+        $arg = $securiser_action();
+    }
+
+
+    // si id_auteur n'est pas un nombre, c'est une creation
+    if (!$id_auteur = intval($arg)) {
+
+        if (($id_auteur = auteur_inserer()) > 0) {
+
+            # cf. GROS HACK
+            # recuperer l'eventuel logo charge avant la creation
+            # ils ont un id = 0-id_auteur de la session
+            $id_hack = 0 - $GLOBALS['visiteur_session']['id_auteur'];
+            $chercher_logo = charger_fonction('chercher_logo', 'inc');
+            foreach (array('on', 'off') as $type) {
+                if ($logo = $chercher_logo($id_hack, 'id_auteur', $type)) {
+                    if ($logo = reset($logo)) {
+                        rename($logo, str_replace($id_hack, $id_auteur, $logo));
+                    }
+                }
+            }
+        }
+    }
+
+    // Enregistre l'envoi dans la BD
+    $err = "";
+    if ($id_auteur > 0) {
+        $err = auteur_modifier($id_auteur);
+    }
+
+    if ($err) {
+        spip_log("echec editeur auteur: $err", _LOG_ERREUR);
+    }
+
+    return array($id_auteur, $err);
 }
 
 /**
@@ -90,39 +90,39 @@ 
  */
 function auteur_inserer($source = null, $set = null) {
 
-	// Ce qu'on va demander comme modifications
-	$champs = array();
-	$champs['source'] = $source ? $source : 'spip';
-
-	$champs['login'] = '';
-	$champs['statut'] = '5poubelle';  // inutilisable tant qu'il n'a pas ete renseigne et institue
-	$champs['webmestre'] = 'non';
-
-	if ($set) {
-		$champs = array_merge($champs, $set);
-	}
-
-	// Envoyer aux plugins
-	$champs = pipeline('pre_insertion',
-		array(
-			'args' => array(
-				'table' => 'spip_auteurs',
-			),
-			'data' => $champs
-		)
-	);
-	$id_auteur = sql_insertq("spip_auteurs", $champs);
-	pipeline('post_insertion',
-		array(
-			'args' => array(
-				'table' => 'spip_auteurs',
-				'id_objet' => $id_auteur
-			),
-			'data' => $champs
-		)
-	);
-
-	return $id_auteur;
+    // Ce qu'on va demander comme modifications
+    $champs = array();
+    $champs['source'] = $source ? $source : 'spip';
+
+    $champs['login'] = '';
+    $champs['statut'] = '5poubelle';  // inutilisable tant qu'il n'a pas ete renseigne et institue
+    $champs['webmestre'] = 'non';
+
+    if ($set) {
+        $champs = array_merge($champs, $set);
+    }
+
+    // Envoyer aux plugins
+    $champs = pipeline('pre_insertion',
+        array(
+            'args' => array(
+                'table' => 'spip_auteurs',
+            ),
+            'data' => $champs
+        )
+    );
+    $id_auteur = sql_insertq("spip_auteurs", $champs);
+    pipeline('post_insertion',
+        array(
+            'args' => array(
+                'table' => 'spip_auteurs',
+                'id_objet' => $id_auteur
+            ),
+            'data' => $champs
+        )
+    );
+
+    return $id_auteur;
 }
 
 
@@ -147,66 +147,66 @@ 
  */
 function auteur_modifier($id_auteur, $set = null, $force_update = false) {
 
-	include_spip('inc/modifier');
-	include_spip('inc/filtres');
-	$c = collecter_requests(
-	// white list
-		objet_info('auteur', 'champs_editables'),
-		// black list
-		$force_update ? array() : array('webmestre', 'pass', 'login'),
-		// donnees eventuellement fournies
-		$set
-	);
-
-	if ($err = objet_modifier_champs('auteur', $id_auteur,
-		array(
-			'data' => $set,
-			'nonvide' => array('nom' => _T('ecrire:item_nouvel_auteur'))
-		),
-		$c)
-	) {
-		return $err;
-	}
-	$session = $c;
-
-	$err = '';
-	if (!$force_update) {
-		// Modification de statut, changement de rubrique ?
-		$c = collecter_requests(
-		// white list
-			array(
-				'statut',
-				'new_login',
-				'new_pass',
-				'login',
-				'pass',
-				'webmestre',
-				'restreintes',
-				'id_parent'
-			),
-			// black list
-			array(),
-			// donnees eventuellement fournies
-			$set
-		);
-		if (isset($c['new_login']) and !isset($c['login'])) {
-			$c['login'] = $c['new_login'];
-		}
-		if (isset($c['new_pass']) and !isset($c['pass'])) {
-			$c['pass'] = $c['new_pass'];
-		}
-		$err = auteur_instituer($id_auteur, $c);
-		$session = array_merge($session, $c);
-	}
-
-	// .. mettre a jour les sessions de cet auteur
-	include_spip('inc/session');
-	$session['id_auteur'] = $id_auteur;
-	unset($session['new_login']);
-	unset($session['new_pass']);
-	actualiser_sessions($session);
-
-	return $err;
+    include_spip('inc/modifier');
+    include_spip('inc/filtres');
+    $c = collecter_requests(
+    // white list
+        objet_info('auteur', 'champs_editables'),
+        // black list
+        $force_update ? array() : array('webmestre', 'pass', 'login'),
+        // donnees eventuellement fournies
+        $set
+    );
+
+    if ($err = objet_modifier_champs('auteur', $id_auteur,
+        array(
+            'data' => $set,
+            'nonvide' => array('nom' => _T('ecrire:item_nouvel_auteur'))
+        ),
+        $c)
+    ) {
+        return $err;
+    }
+    $session = $c;
+
+    $err = '';
+    if (!$force_update) {
+        // Modification de statut, changement de rubrique ?
+        $c = collecter_requests(
+        // white list
+            array(
+                'statut',
+                'new_login',
+                'new_pass',
+                'login',
+                'pass',
+                'webmestre',
+                'restreintes',
+                'id_parent'
+            ),
+            // black list
+            array(),
+            // donnees eventuellement fournies
+            $set
+        );
+        if (isset($c['new_login']) and !isset($c['login'])) {
+            $c['login'] = $c['new_login'];
+        }
+        if (isset($c['new_pass']) and !isset($c['pass'])) {
+            $c['pass'] = $c['new_pass'];
+        }
+        $err = auteur_instituer($id_auteur, $c);
+        $session = array_merge($session, $c);
+    }
+
+    // .. mettre a jour les sessions de cet auteur
+    include_spip('inc/session');
+    $session['id_auteur'] = $id_auteur;
+    unset($session['new_login']);
+    unset($session['new_pass']);
+    actualiser_sessions($session);
+
+    return $err;
 }
 
 /**
@@ -227,9 +227,9 @@ 
  * @return string
  */
 function auteur_associer($id_auteur, $objets, $qualif = null) {
-	include_spip('action/editer_liens');
+    include_spip('action/editer_liens');
 
-	return objet_associer(array('auteur' => $id_auteur), $objets, $qualif);
+    return objet_associer(array('auteur' => $id_auteur), $objets, $qualif);
 }
 
 
@@ -244,7 +244,7 @@ 
  * @return string
  */
 function auteur_referent($id_auteur, $c) {
-	return auteur_associer($id_auteur, $c);
+    return auteur_associer($id_auteur, $c);
 }
 
 /**
@@ -263,9 +263,9 @@ 
  * @return string
  */
 function auteur_dissocier($id_auteur, $objets) {
-	include_spip('action/editer_liens');
+    include_spip('action/editer_liens');
 
-	return objet_dissocier(array('auteur' => $id_auteur), $objets);
+    return objet_dissocier(array('auteur' => $id_auteur), $objets);
 }
 
 /**
@@ -286,9 +286,9 @@ 
  * @return bool|int
  */
 function auteur_qualifier($id_auteur, $objets, $qualif) {
-	include_spip('action/editer_liens');
+    include_spip('action/editer_liens');
 
-	return objet_qualifier_liens(array('auteur' => $id_auteur), $objets, $qualif);
+    return objet_qualifier_liens(array('auteur' => $id_auteur), $objets, $qualif);
 }
 
 
@@ -307,133 +307,133 @@ 
  * @return bool|string
  */
 function auteur_instituer($id_auteur, $c, $force_webmestre = false) {
-	if (!$id_auteur = intval($id_auteur)) {
-		return false;
-	}
-	$erreurs = array(); // contiendra les differentes erreurs a traduire par _T()
-	$champs = array();
-
-	// les memoriser pour les faire passer dans le pipeline pre_edition
-	if (isset($c['login']) and strlen($c['login'])) {
-		$champs['login'] = $c['login'];
-	}
-	if (isset($c['pass']) and strlen($c['pass'])) {
-		$champs['pass'] = $c['pass'];
-	}
-
-	$statut = $statut_ancien = sql_getfetsel('statut', 'spip_auteurs', 'id_auteur=' . intval($id_auteur));
-
-	if (isset($c['statut'])
-		and (autoriser('modifier', 'auteur', $id_auteur, null, array('statut' => $c['statut'])))
-	) {
-		$statut = $champs['statut'] = $c['statut'];
-	}
-
-	// Restreindre avant de declarer l'auteur
-	// (section critique sur les droits)
-	if (isset($c['id_parent']) and $c['id_parent']) {
-		if (is_array($c['restreintes'])) {
-			$c['restreintes'][] = $c['id_parent'];
-		} else {
-			$c['restreintes'] = array($c['id_parent']);
-		}
-	}
-
-	if (isset($c['webmestre'])
-		and ($force_webmestre or autoriser('modifier', 'auteur', $id_auteur, null, array('webmestre' => '?')))
-	) {
-		$champs['webmestre'] = $c['webmestre'] == 'oui' ? 'oui' : 'non';
-	}
-
-	// si statut change et n'est pas 0minirezo, on force webmestre a non
-	if (isset($c['statut']) and $c['statut'] !== '0minirezo') {
-		$champs['webmestre'] = $c['webmestre'] = 'non';
-	}
-
-	// Envoyer aux plugins
-	$champs = pipeline('pre_edition',
-		array(
-			'args' => array(
-				'table' => 'spip_auteurs',
-				'id_objet' => $id_auteur,
-				'action' => 'instituer',
-				'statut_ancien' => $statut_ancien,
-			),
-			'data' => $champs
-		)
-	);
-
-	if (isset($c['restreintes']) and is_array($c['restreintes'])
-		and autoriser('modifier', 'auteur', $id_auteur, null, array('restreint' => $c['restreintes']))
-	) {
-		$rubriques = array_map('intval', $c['restreintes']);
-		$rubriques = array_unique($rubriques);
-		$rubriques = array_diff($rubriques, array(0));
-		auteur_dissocier($id_auteur, array('rubrique' => '*'));
-		auteur_associer($id_auteur, array('rubrique' => $rubriques));
-	}
-
-	$flag_ecrire_acces = false;
-	// commencer par traiter les cas particuliers des logins et pass
-	// avant les autres ecritures en base
-	if (isset($champs['login']) or isset($champs['pass'])) {
-		$auth_methode = sql_getfetsel('source', 'spip_auteurs', 'id_auteur=' . intval($id_auteur));
-		include_spip('inc/auth');
-		if (isset($champs['login']) and strlen($champs['login'])) {
-			if (!auth_modifier_login($auth_methode, $champs['login'], $id_auteur)) {
-				$erreurs[] = 'ecrire:impossible_modifier_login_auteur';
-			}
-		}
-		if (isset($champs['pass']) and strlen($champs['pass'])) {
-			$champs['login'] = sql_getfetsel('login', 'spip_auteurs', 'id_auteur=' . intval($id_auteur));
-			if (!auth_modifier_pass($auth_methode, $champs['login'], $champs['pass'], $id_auteur)) {
-				$erreurs[] = 'ecrire:impossible_modifier_pass_auteur';
-			}
-		}
-		unset($champs['login']);
-		unset($champs['pass']);
-		$flag_ecrire_acces = true;
-	}
-
-	if (!count($champs)) {
-		return implode(' ', array_map('_T', $erreurs));
-	}
-	sql_updateq('spip_auteurs', $champs, 'id_auteur=' . $id_auteur);
-
-	// .. mettre a jour les fichiers .htpasswd et .htpasswd-admin
-	if ($flag_ecrire_acces
-		or isset($champs['statut'])
-	) {
-		include_spip('inc/acces');
-		ecrire_acces();
-	}
-
-	// Invalider les caches
-	include_spip('inc/invalideur');
-	suivre_invalideur("id='auteur/$id_auteur'");
-
-	// Pipeline
-	pipeline('post_edition',
-		array(
-			'args' => array(
-				'table' => 'spip_auteurs',
-				'id_objet' => $id_auteur,
-				'action' => 'instituer',
-				'statut_ancien' => $statut_ancien,
-			),
-			'data' => $champs
-		)
-	);
-
-
-	// Notifications
-	if ($notifications = charger_fonction('notifications', 'inc')) {
-		$notifications('instituerauteur', $id_auteur,
-			array('statut' => $statut, 'statut_ancien' => $statut_ancien)
-		);
-	}
-
-	return implode(' ', array_map('_T', $erreurs));
+    if (!$id_auteur = intval($id_auteur)) {
+        return false;
+    }
+    $erreurs = array(); // contiendra les differentes erreurs a traduire par _T()
+    $champs = array();
+
+    // les memoriser pour les faire passer dans le pipeline pre_edition
+    if (isset($c['login']) and strlen($c['login'])) {
+        $champs['login'] = $c['login'];
+    }
+    if (isset($c['pass']) and strlen($c['pass'])) {
+        $champs['pass'] = $c['pass'];
+    }
+
+    $statut = $statut_ancien = sql_getfetsel('statut', 'spip_auteurs', 'id_auteur=' . intval($id_auteur));
+
+    if (isset($c['statut'])
+        and (autoriser('modifier', 'auteur', $id_auteur, null, array('statut' => $c['statut'])))
+    ) {
+        $statut = $champs['statut'] = $c['statut'];
+    }
+
+    // Restreindre avant de declarer l'auteur
+    // (section critique sur les droits)
+    if (isset($c['id_parent']) and $c['id_parent']) {
+        if (is_array($c['restreintes'])) {
+            $c['restreintes'][] = $c['id_parent'];
+        } else {
+            $c['restreintes'] = array($c['id_parent']);
+        }
+    }
+
+    if (isset($c['webmestre'])
+        and ($force_webmestre or autoriser('modifier', 'auteur', $id_auteur, null, array('webmestre' => '?')))
+    ) {
+        $champs['webmestre'] = $c['webmestre'] == 'oui' ? 'oui' : 'non';
+    }
+
+    // si statut change et n'est pas 0minirezo, on force webmestre a non
+    if (isset($c['statut']) and $c['statut'] !== '0minirezo') {
+        $champs['webmestre'] = $c['webmestre'] = 'non';
+    }
+
+    // Envoyer aux plugins
+    $champs = pipeline('pre_edition',
+        array(
+            'args' => array(
+                'table' => 'spip_auteurs',
+                'id_objet' => $id_auteur,
+                'action' => 'instituer',
+                'statut_ancien' => $statut_ancien,
+            ),
+            'data' => $champs
+        )
+    );
+
+    if (isset($c['restreintes']) and is_array($c['restreintes'])
+        and autoriser('modifier', 'auteur', $id_auteur, null, array('restreint' => $c['restreintes']))
+    ) {
+        $rubriques = array_map('intval', $c['restreintes']);
+        $rubriques = array_unique($rubriques);
+        $rubriques = array_diff($rubriques, array(0));
+        auteur_dissocier($id_auteur, array('rubrique' => '*'));
+        auteur_associer($id_auteur, array('rubrique' => $rubriques));
+    }
+
+    $flag_ecrire_acces = false;
+    // commencer par traiter les cas particuliers des logins et pass
+    // avant les autres ecritures en base
+    if (isset($champs['login']) or isset($champs['pass'])) {
+        $auth_methode = sql_getfetsel('source', 'spip_auteurs', 'id_auteur=' . intval($id_auteur));
+        include_spip('inc/auth');
+        if (isset($champs['login']) and strlen($champs['login'])) {
+            if (!auth_modifier_login($auth_methode, $champs['login'], $id_auteur)) {
+                $erreurs[] = 'ecrire:impossible_modifier_login_auteur';
+            }
+        }
+        if (isset($champs['pass']) and strlen($champs['pass'])) {
+            $champs['login'] = sql_getfetsel('login', 'spip_auteurs', 'id_auteur=' . intval($id_auteur));
+            if (!auth_modifier_pass($auth_methode, $champs['login'], $champs['pass'], $id_auteur)) {
+                $erreurs[] = 'ecrire:impossible_modifier_pass_auteur';
+            }
+        }
+        unset($champs['login']);
+        unset($champs['pass']);
+        $flag_ecrire_acces = true;
+    }
+
+    if (!count($champs)) {
+        return implode(' ', array_map('_T', $erreurs));
+    }
+    sql_updateq('spip_auteurs', $champs, 'id_auteur=' . $id_auteur);
+
+    // .. mettre a jour les fichiers .htpasswd et .htpasswd-admin
+    if ($flag_ecrire_acces
+        or isset($champs['statut'])
+    ) {
+        include_spip('inc/acces');
+        ecrire_acces();
+    }
+
+    // Invalider les caches
+    include_spip('inc/invalideur');
+    suivre_invalideur("id='auteur/$id_auteur'");
+
+    // Pipeline
+    pipeline('post_edition',
+        array(
+            'args' => array(
+                'table' => 'spip_auteurs',
+                'id_objet' => $id_auteur,
+                'action' => 'instituer',
+                'statut_ancien' => $statut_ancien,
+            ),
+            'data' => $champs
+        )
+    );
+
+
+    // Notifications
+    if ($notifications = charger_fonction('notifications', 'inc')) {
+        $notifications('instituerauteur', $id_auteur,
+            array('statut' => $statut, 'statut_ancien' => $statut_ancien)
+        );
+    }
+
+    return implode(' ', array_map('_T', $erreurs));
 
 }
 
@@ -452,7 +452,7 @@ 
  * @return int
  */
 function insert_auteur($source = null) {
-	return auteur_inserer($source);
+    return auteur_inserer($source);
 }
 
 /**
@@ -466,7 +466,7 @@ 
  * @return string|null
  */
 function auteurs_set($id_auteur, $set = null) {
-	return auteur_modifier($id_auteur, $set);
+    return auteur_modifier($id_auteur, $set);
 }
 
 /**
@@ -481,7 +481,7 @@ 
  * @return bool|string
  */
 function instituer_auteur($id_auteur, $c, $force_webmestre = false) {
-	return auteur_instituer($id_auteur, $c, $force_webmestre);
+    return auteur_instituer($id_auteur, $c, $force_webmestre);
 }
 
 /**
@@ -495,5 +495,5 @@ 
  * @return string|null
  */
 function revision_auteur($id_auteur, $c = false) {
-	return auteur_modifier($id_auteur, $c);
+    return auteur_modifier($id_auteur, $c);
 }

Spacing +5 added lines, -5 removed lines

@@ -95,7 +95,7 @@ 
 	$champs['source'] = $source ? $source : 'spip';
 
 	$champs['login'] = '';
-	$champs['statut'] = '5poubelle';  // inutilisable tant qu'il n'a pas ete renseigne et institue
+	$champs['statut'] = '5poubelle'; // inutilisable tant qu'il n'a pas ete renseigne et institue
 	$champs['webmestre'] = 'non';
 
 	if ($set) {
@@ -321,7 +321,7 @@ 
 		$champs['pass'] = $c['pass'];
 	}
 
-	$statut = $statut_ancien = sql_getfetsel('statut', 'spip_auteurs', 'id_auteur=' . intval($id_auteur));
+	$statut = $statut_ancien = sql_getfetsel('statut', 'spip_auteurs', 'id_auteur='.intval($id_auteur));
 
 	if (isset($c['statut'])
 		and (autoriser('modifier', 'auteur', $id_auteur, null, array('statut' => $c['statut'])))
@@ -377,7 +377,7 @@ 
 	// commencer par traiter les cas particuliers des logins et pass
 	// avant les autres ecritures en base
 	if (isset($champs['login']) or isset($champs['pass'])) {
-		$auth_methode = sql_getfetsel('source', 'spip_auteurs', 'id_auteur=' . intval($id_auteur));
+		$auth_methode = sql_getfetsel('source', 'spip_auteurs', 'id_auteur='.intval($id_auteur));
 		include_spip('inc/auth');
 		if (isset($champs['login']) and strlen($champs['login'])) {
 			if (!auth_modifier_login($auth_methode, $champs['login'], $id_auteur)) {
@@ -385,7 +385,7 @@ 
 			}
 		}
 		if (isset($champs['pass']) and strlen($champs['pass'])) {
-			$champs['login'] = sql_getfetsel('login', 'spip_auteurs', 'id_auteur=' . intval($id_auteur));
+			$champs['login'] = sql_getfetsel('login', 'spip_auteurs', 'id_auteur='.intval($id_auteur));
 			if (!auth_modifier_pass($auth_methode, $champs['login'], $champs['pass'], $id_auteur)) {
 				$erreurs[] = 'ecrire:impossible_modifier_pass_auteur';
 			}
@@ -398,7 +398,7 @@ 
 	if (!count($champs)) {
 		return implode(' ', array_map('_T', $erreurs));
 	}
-	sql_updateq('spip_auteurs', $champs, 'id_auteur=' . $id_auteur);
+	sql_updateq('spip_auteurs', $champs, 'id_auteur='.$id_auteur);
 
 	// .. mettre a jour les fichiers .htpasswd et .htpasswd-admin
 	if ($flag_ecrire_acces

ecrire/action/editer_rubrique.php

Doc Comments +4 added lines, -4 removed lines

@@ -73,7 +73,7 @@ 
  *     Identifiant de la rubrique parente.
  *     0 pour la racine.
  * @param array|null $set
- * @return int
+ * @return boolean|string
  *     Identifiant de la rubrique crée
  */
 function rubrique_inserer($id_parent, $set = null) {
@@ -120,7 +120,7 @@ 
  *     Identifiant de la rubrique modifiée
  * @param array|null $set
  *     Tableau qu'on peut proposer en lieu et place de _request()
- * @return bool|string
+ * @return string|false
  *     - false  : Aucune modification, aucun champ n'est à modifier
  *     - chaîne vide : Vide si tout s'est bien passé
  *     - chaîne : Texte d'un message d'erreur
@@ -277,7 +277,7 @@ 
  * @param int $id_parent
  *     Identifiant de la rubrique parente.
  *     0 pour la racine.
- * @return int
+ * @return boolean|string
  *     Identifiant de la rubrique crée
  **/
 function insert_rubrique($id_parent) {
@@ -296,7 +296,7 @@ 
  *     Identifiant de la rubrique à instituer
  * @param array|null $set
  *     Tableau qu'on peut proposer en lieu et place de _request()
- * @return bool|string
+ * @return string|false
  *     - false  : Aucune modification, aucun champ n'est à modifier
  *     - chaîne vide : Vide si tout s'est bien passé
  *     - chaîne : Texte d'un message d'erreur

Indentation +151 added lines, -151 removed lines

@@ -16,7 +16,7 @@ 
  * @package SPIP\Core\Rubriques\Edition
  */
 if (!defined('_ECRIRE_INC_VERSION')) {
-	return;
+    return;
 }
 
 include_spip('inc/rubriques');
@@ -38,31 +38,31 @@ 
  */
 function action_editer_rubrique_dist($arg = null) {
 
-	if (is_null($arg)) {
-		$securiser_action = charger_fonction('securiser_action', 'inc');
-		$arg = $securiser_action();
-	}
+    if (is_null($arg)) {
+        $securiser_action = charger_fonction('securiser_action', 'inc');
+        $arg = $securiser_action();
+    }
 
-	if (!$id_rubrique = intval($arg)) {
-		if ($arg != 'oui') {
-			include_spip('inc/headers');
-			redirige_url_ecrire();
-		}
-		$id_rubrique = rubrique_inserer(_request('id_parent'));
-	}
+    if (!$id_rubrique = intval($arg)) {
+        if ($arg != 'oui') {
+            include_spip('inc/headers');
+            redirige_url_ecrire();
+        }
+        $id_rubrique = rubrique_inserer(_request('id_parent'));
+    }
 
-	$err = rubrique_modifier($id_rubrique);
+    $err = rubrique_modifier($id_rubrique);
 
-	if (_request('redirect')) {
-		$redirect = parametre_url(
-			urldecode(_request('redirect')),
-			'id_rubrique', $id_rubrique, '&');
+    if (_request('redirect')) {
+        $redirect = parametre_url(
+            urldecode(_request('redirect')),
+            'id_rubrique', $id_rubrique, '&');
 
-		include_spip('inc/headers');
-		redirige_par_entete($redirect);
-	}
+        include_spip('inc/headers');
+        redirige_par_entete($redirect);
+    }
 
-	return array($id_rubrique, $err);
+    return array($id_rubrique, $err);
 }
 
 
@@ -77,40 +77,40 @@ 
  *     Identifiant de la rubrique crée
  */
 function rubrique_inserer($id_parent, $set = null) {
-	$champs = array(
-		'titre' => _T('item_nouvelle_rubrique'),
-		'id_parent' => intval($id_parent),
-		'statut' => 'prepa'
-	);
-
-	if ($set) {
-		$champs = array_merge($champs, $set);
-	}
-
-	// Envoyer aux plugins
-	$champs = pipeline('pre_insertion',
-		array(
-			'args' => array(
-				'table' => 'spip_rubriques',
-			),
-			'data' => $champs
-		)
-	);
-
-	$id_rubrique = sql_insertq("spip_rubriques", $champs);
-	pipeline('post_insertion',
-		array(
-			'args' => array(
-				'table' => 'spip_rubriques',
-				'id_objet' => $id_rubrique
-			),
-			'data' => $champs
-		)
-	);
-	propager_les_secteurs();
-	calculer_langues_rubriques();
-
-	return $id_rubrique;
+    $champs = array(
+        'titre' => _T('item_nouvelle_rubrique'),
+        'id_parent' => intval($id_parent),
+        'statut' => 'prepa'
+    );
+
+    if ($set) {
+        $champs = array_merge($champs, $set);
+    }
+
+    // Envoyer aux plugins
+    $champs = pipeline('pre_insertion',
+        array(
+            'args' => array(
+                'table' => 'spip_rubriques',
+            ),
+            'data' => $champs
+        )
+    );
+
+    $id_rubrique = sql_insertq("spip_rubriques", $champs);
+    pipeline('post_insertion',
+        array(
+            'args' => array(
+                'table' => 'spip_rubriques',
+                'id_objet' => $id_rubrique
+            ),
+            'data' => $champs
+        )
+    );
+    propager_les_secteurs();
+    calculer_langues_rubriques();
+
+    return $id_rubrique;
 }
 
 /**
@@ -126,42 +126,42 @@ 
  *     - chaîne : Texte d'un message d'erreur
  */
 function rubrique_modifier($id_rubrique, $set = null) {
-	include_spip('inc/autoriser');
-	include_spip('inc/filtres');
-
-	include_spip('inc/modifier');
-	$c = collecter_requests(
-	// white list
-		objet_info('rubrique', 'champs_editables'),
-		// black list
-		array('id_parent', 'confirme_deplace'),
-		// donnees eventuellement fournies
-		$set
-	);
-
-	if ($err = objet_modifier_champs('rubrique', $id_rubrique,
-		array(
-			'data' => $set,
-			'nonvide' => array('titre' => _T('titre_nouvelle_rubrique') . " " . _T('info_numero_abbreviation') . $id_rubrique)
-		),
-		$c)
-	) {
-		return $err;
-	}
-
-	$c = collecter_requests(array('id_parent', 'confirme_deplace'), array(), $set);
-	// Deplacer la rubrique
-	if (isset($c['id_parent'])) {
-		$err = rubrique_instituer($id_rubrique, $c);
-	}
-
-	// invalider les caches marques de cette rubrique
-	include_spip('inc/invalideur');
-	suivre_invalideur("id='rubrique/$id_rubrique'");
-	// et celui de menu_rubriques 
-	effacer_meta("date_calcul_rubriques");
-
-	return $err;
+    include_spip('inc/autoriser');
+    include_spip('inc/filtres');
+
+    include_spip('inc/modifier');
+    $c = collecter_requests(
+    // white list
+        objet_info('rubrique', 'champs_editables'),
+        // black list
+        array('id_parent', 'confirme_deplace'),
+        // donnees eventuellement fournies
+        $set
+    );
+
+    if ($err = objet_modifier_champs('rubrique', $id_rubrique,
+        array(
+            'data' => $set,
+            'nonvide' => array('titre' => _T('titre_nouvelle_rubrique') . " " . _T('info_numero_abbreviation') . $id_rubrique)
+        ),
+        $c)
+    ) {
+        return $err;
+    }
+
+    $c = collecter_requests(array('id_parent', 'confirme_deplace'), array(), $set);
+    // Deplacer la rubrique
+    if (isset($c['id_parent'])) {
+        $err = rubrique_instituer($id_rubrique, $c);
+    }
+
+    // invalider les caches marques de cette rubrique
+    include_spip('inc/invalideur');
+    suivre_invalideur("id='rubrique/$id_rubrique'");
+    // et celui de menu_rubriques 
+    effacer_meta("date_calcul_rubriques");
+
+    return $err;
 }
 
 /**
@@ -184,21 +184,21 @@ 
  *     false si la confirmation du déplacement n'est pas présente
  */
 function editer_rubrique_breves($id_rubrique, $id_parent, $c = array()) {
-	if (!sql_countsel('spip_breves', "id_rubrique=$id_rubrique")) {
-		return true;
-	}
+    if (!sql_countsel('spip_breves', "id_rubrique=$id_rubrique")) {
+        return true;
+    }
 
-	if (empty($c['confirme_deplace']) or $c['confirme_deplace'] != 'oui') {
-		return false;
-	}
+    if (empty($c['confirme_deplace']) or $c['confirme_deplace'] != 'oui') {
+        return false;
+    }
 
-	if ($id_secteur = sql_getfetsel("id_secteur",
-		"spip_rubriques", "id_rubrique=$id_parent")
-	) {
-		sql_updateq("spip_breves", array("id_rubrique" => $id_secteur), "id_rubrique=$id_rubrique");
-	}
+    if ($id_secteur = sql_getfetsel("id_secteur",
+        "spip_rubriques", "id_rubrique=$id_parent")
+    ) {
+        sql_updateq("spip_breves", array("id_rubrique" => $id_secteur), "id_rubrique=$id_rubrique");
+    }
 
-	return true;
+    return true;
 }
 
 
@@ -220,51 +220,51 @@ 
  *     Chaîne : Texte du message d'erreur
  */
 function rubrique_instituer($id_rubrique, $c) {
-	// traitement de la rubrique parente
-	// interdiction de deplacer vers ou a partir d'une rubrique
-	// qu'on n'administre pas.
-
-	if (null !== ($id_parent = $c['id_parent'])) {
-		$id_parent = intval($id_parent);
-		$filles = calcul_branche_in($id_rubrique);
-		if (strpos(",$id_parent,", ",$filles,") !== false) {
-			spip_log("La rubrique $id_rubrique ne peut etre fille de sa descendante $id_parent");
-		} else {
-			$s = sql_fetsel("id_parent, statut", "spip_rubriques", "id_rubrique=$id_rubrique");
-			$old_parent = $s['id_parent'];
-
-			if (!($id_parent != $old_parent
-				and autoriser('publierdans', 'rubrique', $id_parent)
-				and autoriser('creerrubriquedans', 'rubrique', $id_parent)
-				and autoriser('publierdans', 'rubrique', $old_parent)
-			)
-			) {
-				if ($s['statut'] != 'new') {
-					spip_log("deplacement de $id_rubrique vers $id_parent refuse a " . $GLOBALS['visiteur_session']['id_auteur'] . ' ' . $GLOBALS['visiteur_session']['statut']);
-				}
-			} elseif (editer_rubrique_breves($id_rubrique, $id_parent, $c)) {
-				$statut_ancien = $s['statut'];
-				sql_updateq('spip_rubriques', array('id_parent' => $id_parent), "id_rubrique=$id_rubrique");
-
-
-				propager_les_secteurs();
-
-				// Deplacement d'une rubrique publiee ==> chgt general de leur statut
-				if ($statut_ancien == 'publie') {
-					calculer_rubriques_if($old_parent, array('id_rubrique' => $id_parent), $statut_ancien);
-				}
-				// Creation ou deplacement d'une rubrique non publiee
-				// invalider le cache de leur menu
-				elseif (!$statut_ancien || $old_parent != $id_parent) {
-					effacer_meta("date_calcul_rubriques");
-				}
-
-				calculer_langues_rubriques();
-			}
-		}
-	}
-
-	return ''; // pas d'erreur
+    // traitement de la rubrique parente
+    // interdiction de deplacer vers ou a partir d'une rubrique
+    // qu'on n'administre pas.
+
+    if (null !== ($id_parent = $c['id_parent'])) {
+        $id_parent = intval($id_parent);
+        $filles = calcul_branche_in($id_rubrique);
+        if (strpos(",$id_parent,", ",$filles,") !== false) {
+            spip_log("La rubrique $id_rubrique ne peut etre fille de sa descendante $id_parent");
+        } else {
+            $s = sql_fetsel("id_parent, statut", "spip_rubriques", "id_rubrique=$id_rubrique");
+            $old_parent = $s['id_parent'];
+
+            if (!($id_parent != $old_parent
+                and autoriser('publierdans', 'rubrique', $id_parent)
+                and autoriser('creerrubriquedans', 'rubrique', $id_parent)
+                and autoriser('publierdans', 'rubrique', $old_parent)
+            )
+            ) {
+                if ($s['statut'] != 'new') {
+                    spip_log("deplacement de $id_rubrique vers $id_parent refuse a " . $GLOBALS['visiteur_session']['id_auteur'] . ' ' . $GLOBALS['visiteur_session']['statut']);
+                }
+            } elseif (editer_rubrique_breves($id_rubrique, $id_parent, $c)) {
+                $statut_ancien = $s['statut'];
+                sql_updateq('spip_rubriques', array('id_parent' => $id_parent), "id_rubrique=$id_rubrique");
+
+
+                propager_les_secteurs();
+
+                // Deplacement d'une rubrique publiee ==> chgt general de leur statut
+                if ($statut_ancien == 'publie') {
+                    calculer_rubriques_if($old_parent, array('id_rubrique' => $id_parent), $statut_ancien);
+                }
+                // Creation ou deplacement d'une rubrique non publiee
+                // invalider le cache de leur menu
+                elseif (!$statut_ancien || $old_parent != $id_parent) {
+                    effacer_meta("date_calcul_rubriques");
+                }
+
+                calculer_langues_rubriques();
+            }
+        }
+    }
+
+    return ''; // pas d'erreur
 }
 
 /**
@@ -281,7 +281,7 @@ 
  *     Identifiant de la rubrique crée
  **/
 function insert_rubrique($id_parent) {
-	return rubrique_inserer($id_parent);
+    return rubrique_inserer($id_parent);
 }
 
 
@@ -302,7 +302,7 @@ 
  *     - chaîne : Texte d'un message d'erreur
  **/
 function revisions_rubriques($id_rubrique, $set = null) {
-	return rubrique_modifier($id_rubrique, $set);
+    return rubrique_modifier($id_rubrique, $set);
 }
 
 /**
@@ -321,5 +321,5 @@ 
  *     Chaîne : Texte du message d'erreur
  **/
 function instituer_rubrique($id_rubrique, $c) {
-	return rubrique_instituer($id_rubrique, $c);
+    return rubrique_instituer($id_rubrique, $c);
 }

Spacing +2 added lines, -2 removed lines

@@ -142,7 +142,7 @@ 
 	if ($err = objet_modifier_champs('rubrique', $id_rubrique,
 		array(
 			'data' => $set,
-			'nonvide' => array('titre' => _T('titre_nouvelle_rubrique') . " " . _T('info_numero_abbreviation') . $id_rubrique)
+			'nonvide' => array('titre' => _T('titre_nouvelle_rubrique')." "._T('info_numero_abbreviation').$id_rubrique)
 		),
 		$c)
 	) {
@@ -240,7 +240,7 @@ 
 			)
 			) {
 				if ($s['statut'] != 'new') {
-					spip_log("deplacement de $id_rubrique vers $id_parent refuse a " . $GLOBALS['visiteur_session']['id_auteur'] . ' ' . $GLOBALS['visiteur_session']['statut']);
+					spip_log("deplacement de $id_rubrique vers $id_parent refuse a ".$GLOBALS['visiteur_session']['id_auteur'].' '.$GLOBALS['visiteur_session']['statut']);
 				}
 			} elseif (editer_rubrique_breves($id_rubrique, $id_parent, $c)) {
 				$statut_ancien = $s['statut'];