optimisation de la pagination avec sql_seek :

- dans les paginations standard sql_seek permet de sauter directement aux resultats sans passer n fois dans le while avant
- dans les paginations indirectes, sql_seek permet de chercher le numero de page dans les resultats et de remettre le pointeur au debut sans perturber le reste de la boucle

ecrire/public/compiler.php

@@ -325,7 +325,9 @@ function calculer_boucle_nonrec($id_boucle, &$boucles) {
 	
 	return  $count .
 		(!$flag_cpt  ? "" :
-			"\n\t\$Numrows['$id_boucle']['compteur_boucle'] = 0;")
+			"\n\t\$Numrows['$id_boucle']['compteur_boucle'] = 0;"
+		 .(($boucle->mode_partie)?"\n\tif (isset(\$debut_boucle) AND \$debut_boucle) sql_seek(\$result,\$Numrows['$id_boucle']['compteur_boucle']=\$debut_boucle);":"")
+			)
 		. '
 	$t0 = "";' .
 		$corps .

ecrire/public/criteres.php

@@ -152,7 +152,7 @@ function critere_pagination_dist($idb, &$boucles, $crit) {
 		// dans ce cas, on retrouve la page par un appel a quete_debut_pagination,
 		// et on place dans Pile[0]['debut_xxx'] le vrai numero de page pour la balise #PAGINATION
 		// et dans Pile[0][@primary] = yyy pour permettre a la balise #EXPOSER d'exposer l'objet
-		.'($Pile[0][\'debut\'.'.$debut.'] = quete_debut_pagination(\''.$boucle->primary.'\',$Pile[0][\'@'.$boucle->primary.'\'] = substr($partie,1),'.intval($pas).',calculer_select($select, $from, $type, $where, $join, $groupby, $orderby, $limit, $having, $table, $id, $connect)))'
+		.'($Pile[0][\'debut\'.'.$debut.'] = quete_debut_pagination(\''.$boucle->primary.'\',$Pile[0][\'@'.$boucle->primary.'\'] = substr($partie,1),'.intval($pas).',$result))'
 		// sinon on fait un intval sur la valeur demandee, et c'est tout
 		.':intval($partie)';
 

ecrire/public/quete.php

@@ -245,7 +245,10 @@ function quete_debut_pagination($primary,$valeur,$pas,$res){
 	$pos = 0;
 	while ($row = sql_fetch($res) AND $row[$primary]!==$valeur)
 		$pos++;
-	sql_free($res);
+
+	// remettre le pointeur au debut des resultats
+	sql_seek($res,0);
+
 	// si on a pas trouve
 	if ($row[$primary]!==$valeur)
 		return 0;