]> https://gitweb.dealii.org/ - dealii-svn.git/commitdiff
Only write up to 8 months per row.
authorwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Fri, 8 Feb 2002 17:22:19 +0000 (17:22 +0000)
committerwolf <wolf@0785d39b-7218-0410-832d-ea1e28bc413d>
Fri, 8 Feb 2002 17:22:19 +0000 (17:22 +0000)
git-svn-id: https://svn.dealii.org/trunk@5483 0785d39b-7218-0410-832d-ea1e28bc413d

deal.II/common/scripts/report.pl

index e942d516f73ea5c72fa4af9c18f8b41b18ef09da..d46b0183da90e930267c5b61869b435916976e65 100644 (file)
@@ -113,6 +113,7 @@ EOT
 
 
 # finally output a table of results
+$number_of_present_month = 0;
 foreach $date (sort {$b cmp $a} keys %results)
 {
     # if the month has changed (or if this is the first month we deal
@@ -126,6 +127,8 @@ foreach $date (sort {$b cmp $a} keys %results)
     $this_year  = $1;
     $this_month = $2;
     if ($this_month != $old_month) {
+       $number_of_present_month++;
+
        if (defined $old_month) {
            print TABLE_FILE "</table>\n";
            print TABLE_FILE "</body>\n</html>\n";
@@ -159,7 +162,15 @@ EOT
        }
        print TABLE_FILE "\n";
 
-
+       
+       # only write up to 8 months in a row into the month
+       # listing. if more, insert a linebreak
+       if (($number_of_present_month % 8 == 0) &&
+           ($number_of_present_month != 0)) 
+       {
+           print HEAD_FILE "<br>\n";
+       }
+       # 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";
     }

In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move.

Douglas Adams


Typeset in Trocchi and Trocchi Bold Sans Serif.