forward port of colins 6.8.4 bugwork

This commit is contained in:
Colin Kuskie 2006-01-02 18:51:38 +00:00
parent 8d8c6d8065
commit 21188e7949
4 changed files with 38 additions and 9 deletions

View file

@ -353,7 +353,7 @@ sub view {
my $firstDayInFirstWeek = WebGUI::DateTime::getFirstDayInMonthPosition($thisMonth);
my $daysInMonth = WebGUI::DateTime::getDaysInMonth($thisMonth);
my @prepad;
while ($dayOfWeekCounter < $firstDayInFirstWeek) {
while (($dayOfWeekCounter <= $firstDayInFirstWeek) and $firstDayInFirstWeek != 7) {
push(@prepad,{
count => $dayOfWeekCounter
});