my %events_by_day = map {($_=>[])} (1 .. $last_day);
foreach my $event (events_of_pages(\@pages, %params)) {
- push @{$events_by_day{$event->{date}->{day}}}, $event;
+ my $day = $event->{date}->{day};
+ push @{$events_by_day{$day}}, $event
+ if defined $day;
}
my $t='<tr>';