allow multiple presentations on same date

[HTML5TV.git] / bin / calendar.pl

diff --git a/bin/calendar.pl b/bin/calendar.pl
index f6bb503..3a5a100 100755 (executable)
--- a/bin/calendar.pl
+++ b/bin/calendar.pl
@@ -70,7 +70,7 @@ foreach my $path ( glob 'media/*/hCalendar.html' ) {
                ]
        );
 
-       $vevents->{ $hcal->dtstart_iso } = $html;
+       $vevents->{ $hcal->dtstart_iso . $media } = $html;
 
        my $pubDate = $hcal->dtstart_iso;
        $pubDate =~ s{^(\d\d\d\d)(\d\d)(\d\d).*$}{$1-$2-$3};