[Debtags-commits] [svn] r1498 - central-database/branches/alioth/webfrontend

[Enrico Zini]

Author: enrico
Date: Tue Nov 15 10:35:41 2005
New Revision: 1498

Modified:
   central-database/branches/alioth/webfrontend/Engine.pm
   central-database/branches/alioth/webfrontend/search.cgi
Log:
Craft the initial 'wanted tags' set to have at least 4 items in the result set

Modified: central-database/branches/alioth/webfrontend/Engine.pm
==============================================================================
--- central-database/branches/alioth/webfrontend/Engine.pm	(original)
+++ central-database/branches/alioth/webfrontend/Engine.pm	Tue Nov 15 10:35:41 2005
@@ -506,7 +506,7 @@
 #	{
 #		&main::msg("%d: %s\n", $tags{$tag}, $tag);
 #	}
-	while (!findPackages({tags => [tag(@res)], notags => $search->{notags}}))
+	while (scalar(findPackages({tags => [tag(@res)], notags => $search->{notags}})) < 4)
 	{
 #		&main::msg("No entries with %s, trying to remove %s\n", join(',', at res), $res[$#res]);
 		pop @res;

Modified: central-database/branches/alioth/webfrontend/search.cgi
==============================================================================
--- central-database/branches/alioth/webfrontend/search.cgi	(original)
+++ central-database/branches/alioth/webfrontend/search.cgi	Tue Nov 15 10:35:41 2005
@@ -1,5 +1,8 @@
 #!/usr/bin/perl -w
 
+# TODO:
+#  - when computing initial 'wanted' tags, if the result set is small, keep removing tags
+
 use strict;
 use warnings;
 use English;