fix events_of_pages()

diff --git a/events.pm b/events.pm
index 51c176d..2999b1e 100644 (file)
--- a/events.pm
+++ b/events.pm
@@ -250,7 +250,7 @@ sub events_of_pages ($%) {
        return
         map {event_of_page($_->{page}, $_->{date}, %params)}
         ( (sort {lc IkiWiki::basename($a->{page}) cmp lc IkiWiki::basename($b->{page})} @day_events)
-        , (sort {lc $a->{hour}.'/'.IkiWiki::basename($a->{page}) cmp lc $b->{hour}.'/'.IkiWiki::basename($b->{page})} @hour_events) );
+        , (sort {lc $a->{date}->{hour}.'/'.IkiWiki::basename($a->{page}) cmp lc $b->{date}->{hour}.'/'.IkiWiki::basename($b->{page})} @hour_events) );
  }
 sub event_html ($$%) {
        my ($date, $format, %params) = @_;