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

[Enrico Zini]

Author: enrico
Date: Mon Nov 14 15:07:51 2005
New Revision: 1488

Modified:
   central-database/branches/alioth/webfrontend/Engine.pm
   central-database/branches/alioth/webfrontend/search.cgi
Log:
Added made-of::* and uitoolkit::* to the list of tags that don't concur in creating the initial list of wanted tags.
Added role::sw:devel-lib to the list of preseeded unwanted tags

Modified: central-database/branches/alioth/webfrontend/Engine.pm
==============================================================================
--- central-database/branches/alioth/webfrontend/Engine.pm	(original)
+++ central-database/branches/alioth/webfrontend/Engine.pm	Mon Nov 14 15:07:51 2005
@@ -459,7 +459,7 @@
 #		&main::msg("Found %s\n", $p->name());
 		for my $tag ($p->tags())
 		{
-			++$tags{$tag->name()} if $tag->name() !~ /^special::/;
+			++$tags{$tag->name()} if $tag->name() !~ /^(special|made-of|uitoolkit)::/;
 		}
 	}
 	my @res = (sort { $tags{$b} <=> $tags{$a} } keys %tags)[0 .. $max_tags];

Modified: central-database/branches/alioth/webfrontend/search.cgi
==============================================================================
--- central-database/branches/alioth/webfrontend/search.cgi	(original)
+++ central-database/branches/alioth/webfrontend/search.cgi	Mon Nov 14 15:07:51 2005
@@ -57,7 +57,7 @@
 	if ($selwords =~ m/[A-Za-z0-9 ._-]+/)
 	{
 		@sel_words = grep { $_ } split(/\s+/, $selwords);
-		@unwant_tags = ('role::aux:dummy', 'role::content:data', 'role::sw:shlib');
+		@unwant_tags = ('role::aux:dummy', 'role::content:data', 'role::sw:devel-lib', 'role::sw:shlib');
 		@want_tags = Engine::tagsForSearch($max_tags, {
 				words => \@sel_words,
 				notags => [Engine::tag(@unwant_tags)]