fix attachment support

diff --git a/events.pm b/events.pm
index 6cc233c..c154f4f 100644 (file)
--- a/events.pm
+++ b/events.pm
@@ -422,7 +422,9 @@ sub preprocess_month (@) {
        
        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>';