Poor man's implementation of putting the test case names into cols.

git-svn-id: https://svn.dealii.org/trunk@4779 0785d39b-7218-0410-832d-ea1e28bc413d

diff --git a/deal.II/common/scripts/report.pl b/deal.II/common/scripts/report.pl
index 1f01e88ea26aea650905d9bd42febf864f5698dd..b7b3c88035fd7d4086bb959fcd92e5b3c3993204 100644 (file)
--- a/deal.II/common/scripts/report.pl
+++ b/deal.II/common/scripts/report.pl
@@ -107,9 +107,16 @@ EOT
     ;
 
 
-# output the list of test cases
+# output the list of test cases. always put four in a row
+$col = 0;
 foreach $name (sort keys %testcase) {
-    print "<tr><td>$testcase{$name} <td>$name\n";
+    if ($col == 0) {
+       print "<tr>\n";
+    }
+    print "   <td>$testcase{$name} <td>$name\n";
+
+    # next column. if at end, wrap around
+    $col = ($col+1)%4;
 }
 
 print <<'EOT'