push_content at end of vevent for calendar

[HTML5TV.git] / lib / HTML5TV / hCalendar.pm

diff --git a/lib/HTML5TV/hCalendar.pm b/lib/HTML5TV/hCalendar.pm
index cb07177..3e87e7f 100644 (file)
--- a/lib/HTML5TV/hCalendar.pm
+++ b/lib/HTML5TV/hCalendar.pm
@@ -48,7 +48,11 @@ sub AUTOLOAD {
 
 sub as_HTML {
        my $self = shift;
-       $self->{tree}->look_down( class => 'vevent' )->as_HTML('<>&');
+       my $el = shift;
+       my $vevent = $self->{tree}->look_down( class => 'vevent' )
+               ->push_content( $el )
+               ->as_HTML('<>&')
+       ;
 }
 
 sub dtstart_iso {