introduction d'un critere {fragment} pour definir des blocs appelables par...

introduction d'un critere {fragment} pour definir des blocs appelables par ahah ; {pagination} provoque un fragment ; {!fragment} le supprime ; {fragment truc} fixe l'id du div englobant

ecrire/public/compiler.php

@@ -489,8 +489,6 @@ function compile_cas($tableau, $descr, &$boucles, $id_boucle) {
 				$newdescr, $boucles, $id_boucle);
 			$apres = calculer_liste($p->apres,
 				$newdescr, $boucles, $id_boucle);
-			if ($boucles[$nom]->mode_partie=='p+')
-				$ahah_out = array($nom,$descr['nom']);
 			$newdescr['niv']--;
 			$altern = calculer_liste($p->altern,
 				$newdescr, $boucles, $id_boucle);
@@ -544,11 +542,18 @@ function compile_cas($tableau, $descr, &$boucles, $id_boucle) {
 				$code = "((strval($t = $code)!='')"
 					." ?\n\t$tab($res) :\n\t$tab($altern))";
 			}
-			if ($ahah_out!==false){
-				$code = "'<div id=\"$ahah_out[0]_$ahah_out[1]\" class=\"bloc_ahah_pagination\">'
-				.(\$ahah = $code).
-				((\$_GET['ahah_id']=='$ahah_out[0]_$ahah_out[1]')?die(\$ahah):'').'</div>'";
+
+			// gestion d'une boucle-fragment (ahah)
+			if (strlen($p->fragment)) {
+				$code = '(($fragment = '.$code.')?
+				\'<div id="'.$p->fragment.'" class="fragment">\'
+				.$fragment
+				."</div>":"").
+				(($_GET["fragment"]=="'.$p->fragment.'")?
+					die(charset2unicode($fragment)):""
+				)';
 			}
+
 		}
 		if ($code != "''")
 			$codes[]= (($mode == 'validation') ?

ecrire/public/criteres.php

@@ -105,8 +105,19 @@ function critere_pagination_dist($idb, &$boucles, $crit) {
 	$boucle->mode_partie = 'p+';
 	$boucle->partie = 'intval(_request("debut'.$idb.'"))';
 	$boucle->total_parties = $pas;
+	if (!isset($boucle->fragment)) $boucle->fragment = $idb;
 }
 
+// {fragment}
+// http://www.spip.net/@fragment
+function critere_fragment_dist($idb, &$boucles, $crit) {
+	if (!($param = $crit->param[0][0]->texte))
+		$param = 'fragment'.$idb;
+	if ($crit->not)
+		$param = false;
+	$boucle = &$boucles[$idb];
+	$boucle->fragment = $param;
+}
 
 
 // {recherche}

ecrire/public/interfaces.php

@@ -49,6 +49,7 @@ class Boucle {
 	var $jointures_explicites = false;
 	var $doublons;
 	var $partie, $total_parties,$mode_partie;
+	var $fragment; # definir un fragment de page
 	var $externe = ''; # appel a partir d'une autre boucle (recursion)
 	// champs pour la construction de la requete SQL
 	var $tout = false;