Re: HTML::CalendarMonth - printing a consistent (6) rows for days of the week

Give this a whirl:

my $c = HTML::CalendarMonth->new(
                                 year    => 2003,
                                 month   => 1,
                                 bgcolor => 'white',
                                );
$c->maxrow($c->maxrow + 1);
print $c->as_HTML;
[download]

This produces the calendar on the right below:

January 2000
Su M Tu W Th F Sa
1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 29
30 31

January 2003
Su M Tu W Th F Sa
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31

You can compare $c->maxrow (or $c->last_row) for each calendar in question to decide whether to add the extra row or not. Note that once you add the extra row, $c->maxrow() and $c->last_row() will yield different results -- the former pertains to the HTML table, the latter pertains to the calendar data itself.

Cheers,
Matt

Comment on Re: HTML::CalendarMonth - printing a consistent (6) rows for days of the week Select or Download Code

Replies are listed 'Best First'.
Re: Re: HTML::CalendarMonth - printing a consistent (6) rows for days of the week by jonnyfolk (Vicar) on Dec 12, 2003 at 07:48 UTC
My humble thanks, Oh Great One, I have been able to create the following lines to compare each calendar: `my $result = $c->last_row; unless ($result == 7) { $c->maxrow($c->maxrow + 1); }` [download] I don't know if a proper programmer would have done it differently, but this works for me, and I am grateful for your help.	[reply] [d/l]