From 709e4a4c30ce474b37fb8ccec9253e461a46c640 Mon Sep 17 00:00:00 2001
From: "slamm%netscape.com" <slamm%netscape.com>
Date: Fri, 25 Jun 1999 22:05:09 +0000
Subject: [PATCH] more columns

---
 webtools/tinderbox/warnings.pl | 34 +++++++++++++++-------------------
 1 file changed, 15 insertions(+), 19 deletions(-)

diff --git a/webtools/tinderbox/warnings.pl b/webtools/tinderbox/warnings.pl
index 5d19dba7b727..74313d03e6ba 100755
--- a/webtools/tinderbox/warnings.pl
+++ b/webtools/tinderbox/warnings.pl
@@ -250,25 +250,21 @@ __END_HEADER
   # Summary Table (name, count)
   #
   print "<table border=0 cellpadding=1 cellspacing=0>";
-  for (my $ii=0; $ii <= $#who_list / 2; $ii++) {
-    my $who1 = $who_list[$ii];
-    my $who2 = $who_list[$ii + $#who_list/2 + 1];
-    my $count1 = $who_count{$who1};
-    my $count2 = $who_count{$who2};
-    my $name1 = $who1;
-    my $name2 = $who2;
-    $name1 =~ s/%.*//;
-    $name2 =~ s/%.*//;
-
-    print "<tr><td>";
-    print "<a href='#$name1'>$name1</a>";
-    print "</td><td>";
-    print "$count1";
-    print "</td><td>&nbsp;</td><td>";
-    print "<a href='#$name2'>$name2</a>" unless $name2 eq '';
-    print "</td><td>";
-    print "$count2" if $count2;
-    print "</td></tr>";
+  my $num_columns = 5;
+  my $num_per_column = $#who_list / $num_columns;
+  for (my $ii=0; $ii <= $num_per_column; $ii++) {
+    print "<tr>";
+    for (my $jj=0; $jj < $num_columns; $jj++) {
+      my $who = $who_list[$ii+$jj*$num_per_column + 1];
+      my $count = $who_count{$who};
+      my $name = $who;
+      $name =~ s/%.*//;
+      print "<td><a href='#$name'>$name</a>";
+      print "</td><td>";
+      print "$count";
+      print "</td><td>&nbsp;</td>";
+    }
+    print "<tr>";
   }
   print "</table><p>";