[6111] renumerote les jointures de chaque boucle, mais faut penser aux...

[6111] renumerote les jointures de chaque boucle, mais faut penser aux squelettes d'inclusion qui ont des boucles homonymes

ecrire/public/compiler.php

@@ -603,6 +603,7 @@ function public_compiler_dist($squelette, $nom, $gram, $sourcefile) {
 	foreach($boucles as $idb => $boucle) {
 		if (($boucle->type_requete == 'documents') && $boucle->doublons)
 			{ $descr['documents'] = true; break; }
+		$boucles[$idb]->descr = &$descr;
 	}
 	// Commencer par reperer les boucles appelees explicitement 
 	// car elles indexent les arguments de maniere derogatoire

ecrire/public/criteres.php

@@ -606,9 +606,10 @@ function calculer_jointure(&$boucle, $depart, $arrivee, $col='', $cond)
   $id_primary = $ddesc['key']['PRIMARY KEY'];
   $id_field = $dnom . '.' . $id_primary;
   $id_table = "";
+  $cpt = &$num[$boucle->descr['nom']][$boucle->id_boucle];
   foreach($res as $r) {
     list($d, $a, $j) = $r;
-    $n=++$num[$boucle->id_boucle];
+    $n = ++$cpt;
     $boucle->join[$n]= array(($id_table ? $id_table : $d), $j);
     $boucle->from[$id_table = "L$n"] = $a[0];    
   }

ecrire/public/interfaces.php

@@ -75,6 +75,7 @@ class Boucle {
 	var $numrows = false; 
 	var $cptrows = false; 
 	var $ligne = 0; 
+	var $descr =  array(); # noms des fichiers source et but etc
 }
 
 // sous-noeud du precedent