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

[Enrico Zini]

Author: enrico
Date: Tue Nov 15 16:05:28 2005
New Revision: 1503

Modified:
   central-database/branches/alioth/webfrontend/Engine.pm
Log:
Fixed the optimized algorithm (I was trying it on Alioth instead of at home)

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 16:05:28 2005
@@ -823,8 +823,10 @@
 		{
 			last if not exists $ts{$res[$count]};
 		}
-		++$occ[$count];
+		++$occ[$count - 1];
 	}
+#	for my $c (@occ) { &main::msg("Initial count: $c\n"); }
+
 	# Choose the best X
 
 	# First thing, aggregate the counts
@@ -832,6 +834,7 @@
 	{
 		$occ[$i - 1] += $occ[$i];
 	}
+#	for my $c (@occ) { &main::msg("Aggregated count: $c\n"); }
 
 	# Then pick a good count
 	my $amount;
@@ -843,6 +846,7 @@
 			last;
 		}
 	}
+#	&main::msg("Selected: $amount\n");
 
 	return @res[0 .. $amount];