From aff04c3487ff6619b84c7387857701729de6b5d0 Mon Sep 17 00:00:00 2001 From: wolf Date: Fri, 8 Feb 2002 17:22:19 +0000 Subject: [PATCH] Only write up to 8 months per row. git-svn-id: https://svn.dealii.org/trunk@5483 0785d39b-7218-0410-832d-ea1e28bc413d --- deal.II/common/scripts/report.pl | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/deal.II/common/scripts/report.pl b/deal.II/common/scripts/report.pl index e942d516f7..d46b0183da 100644 --- a/deal.II/common/scripts/report.pl +++ b/deal.II/common/scripts/report.pl @@ -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 "\n"; print TABLE_FILE "\n\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 "
\n"; + } + # now write link to month file print HEAD_FILE ""; print HEAD_FILE "$this_year/$this_month  \n"; } -- 2.39.5