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

[Enrico Zini]

Author: enrico
Date: Mon Sep  4 13:53:03 2006
New Revision: 1891

Modified:
   central-database/branches/alioth/webfrontend/Engine.pm
Log:
Fixed bug; also ignore ::TODO 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 Sep  4 13:53:03 2006
@@ -147,7 +147,7 @@
 
 sub tagcard ($$)
 {
-	my ($self, $name) = shift;
+	my ($self, $name) = @_;
 	return scalar(@{$self->{tags}{$name}{pkgs}});
 }
 
@@ -805,7 +805,7 @@
 #		&main::msg("Found %s\n", $p->name());
 		for my $t ($p->tags())
 		{
-			if ($t->name() !~ /^(special|made-of|uitoolkit)::/)
+			if ($t->name() !~ /(^(special|made-of|uitoolkit)::)|(::TODO$)/)
 			{
 #				if (exists $specialTags{$t->name})
 #				{