nouveau critère {logo} qui ne liste que les objets ayant un logo ({!logo}...

nouveau critère {logo} qui ne liste que les objets ayant un logo ({!logo} fonctionne ; le critère fonctionne aussi dans la boucle HIERARCHIE).

ecrire/public/composer.php

@@ -19,7 +19,7 @@ include_spip('inc/documents');
 include_spip('inc/forum');
 include_spip('inc/distant');
 include_spip('inc/rubriques'); # pour calcul_branche (cf critere branche)
-include_spip('public/debug'); # toujours prévoir le pire
+include_spip('public/debug'); # toujours prevoir le pire
 
 # Charge et retourne un composeur, i.e. la fonction principale d'un squelette
 # ou '' s'il est inconnu. Le compile au besoin
@@ -313,6 +313,27 @@ function calcul_exposer ($id, $type, $reference) {
 	return $exposer[$type][$id];
 }
 
+function lister_objets_avec_logos ($type) {
+	$type_logos = array(
+	'hierarchie' => 'rub',
+	'rubriques' => 'rub',
+	'articles' => 'art',
+	'breves' => 'breve',
+	'mots' => 'mot',
+	'sites' => 'site',
+	'auteurs' => 'aut'
+	);
+
+	$logos = array();
+	if ($type = $type_logos[$type]) {
+		$a = preg_files(_DIR_IMG.$type.'on[0-9]+\.(gif|png|jpg)$');
+		foreach ($a as $f)
+			$logos[] = intval(substr($f, strlen(_DIR_IMG.$type.'on')));
+	}
+
+	return join(',',$logos);
+}
+
 function table_from_primary($id) {
 	global $tables_principales;
 	include_spip('base/serial');

ecrire/public/criteres.php

@@ -185,6 +185,22 @@ function critere_branche_dist($idb, &$boucles, $crit) {
 		$boucle->where[]= $c;
 }
 
+// {logo} liste les objets qui ont un logo
+function critere_logo_dist($idb, &$boucles, $crit) {
+	$not = $crit->not;
+	$boucle = &$boucles[$idb];
+
+	$c = "calcul_mysql_in('" .
+	  $boucle->id_table . '.' . $boucle->primary
+	  . "', lister_objets_avec_logos(". $boucle->type_requete ."), '')";
+	if ($crit->cond) $c = "($arg ? $c : 1)";
+
+	if ($not)
+		$boucle->where[]= array("'NOT'", $c);
+	else
+		$boucle->where[]= $c;
+}
+
 // Tri : {par xxxx}
 // http://www.spip.net/@par
 function critere_par_dist($idb, &$boucles, $crit) {