limit Most Recently Doomed to the 20 most doomed. the full report takes forever

diff --git a/reports.cgi b/reports.cgi
index 41614773dd0b91b745c9af12706a4b08473f7708..9fe4413b40a75579c874da945849900031a9b5d3 100755 (executable)
--- a/reports.cgi
+++ b/reports.cgi
@@ -711,10 +711,15 @@ sub most_recently_doomed
 #       sort people by the number of bugs they have assigned to this milestone
         @people = sort bybugs @people;
         my $totalpeople = @people;
+        
+        if ($totalpeople > 20) {
+            splice @people, 0, $totalpeople-20;
+            }
                 
         print "<TABLE>\n";
         print "<TR><TD COLSPAN=2>\n";
         print "$totalpeople engineers have $bugtotal untouched new bugs.\n";
+        print "These are the 20 most doomed.";
         print "</TD></TR>\n";
 
         while (@people)