Micro changes.

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

diff --git a/deal.II/common/scripts/report-regression-tests.pl b/deal.II/common/scripts/report-regression-tests.pl
index d46b0183da90e930267c5b61869b435916976e65..0f040ccd5219ea276d1eaced71da00eba5c62da1 100644 (file)
--- a/deal.II/common/scripts/report-regression-tests.pl
+++ b/deal.II/common/scripts/report-regression-tests.pl
@@ -45,7 +45,7 @@ foreach $name (sort keys %testcase) {
 # then generate output for the three frames and the panels for 
 # the different months
 
-# first get last active months for the default panel
+# first get last active month for the default panel
 foreach $date (sort {$b cmp $a} keys %results)
 {
     $date =~ /(\d+)-(\d+)-\d+/;
@@ -134,7 +134,7 @@ foreach $date (sort {$b cmp $a} keys %results)
            print TABLE_FILE "</body>\n</html>\n";
            close TABLE_FILE;
        }
-       $file = "tests_report_${this_year}_$this_month.html";
+       $file = "tests_report_${this_year}_${this_month}.html";
        use Cwd;
        $dir = cwd();
        open TABLE_FILE, ">$file" or die "Can't open output file $file in $dir\n";
@@ -172,7 +172,7 @@ EOT
        }
        # now write link to month file
        print HEAD_FILE "<a href=\"$file\" target=\"report_results\">";
-       print HEAD_FILE "$this_year/$this_month</a>&nbsp;&nbsp;\n";
+       print HEAD_FILE "${this_year}/${this_month}</a>&nbsp;&nbsp;\n";
     }
 
     print TABLE_FILE "<tr><td>$date  ";
@@ -216,10 +216,15 @@ foreach $name (sort keys %testcase) {
     if ($col == 0) {
        print NAMES_FILE "<tr>\n";
     }
-    print NAMES_FILE "   <td><small>$testcase{$name}</small> <td><small>$name</small>\n";
+    print NAMES_FILE "   <td><small>$testcase{$name}</small></td>",
+                     "   <td><small>$name</small></td>\n";
 
     # next column. if at end, wrap around
     $col = ($col+1)%4;
+
+    if ($col == 0) {
+       print NAMES_FILE "</tr>\n";
+    }
 }
 
 print NAMES_FILE <<'EOT'