+ // La valeur date doit designer un champ de la table SQL.
+ // Si c'est un litteral unique dans le source, verifier a la compil,
+ // sinon synthetiser le test de verif pour execution ulterieure
+ // On prendra arbitrairement le premier champ si test negatif.
+
+ if ((count($date) == 1) AND ($date[0]->type == 'texte')) {
+ $date = $date[0]->texte;
+ if (!isset($fields[$date]))
+ return array('zbug_critere_inconnu', array('critere' => $crit->op . " " . $date));
+ } else {
+ $a = calculer_liste($date, array(), $boucles, $parent);
+ $noms = array_keys($fields);
+ $defaut = $noms[0];
+ $noms = join(" ", $noms);
+ # bien laisser 2 espaces avant $nom pour que strpos<>0
+ $cond = "(\$a=strval($a))AND\nstrpos(\" $noms \",\" \$a \")";
+ $date = "'.(($cond)\n?\$a:\"$defaut\").'";
+ }