--- program/xmltv.pl 2009/10/31 13:10:05 18 +++ program/xmltv.pl 2009/10/31 13:29:41 19 @@ -13,6 +13,9 @@ warn dump $tv; print qq| + + + + + + |; @@ -68,12 +80,12 @@ foreach my $c ( @channels ) { if ( $programs->{$c}->[0]->[0] == $hh * 60 + $mm ) { my $p = shift @{ $programs->{$c} }; - my $span = $p->[1] - 1; + my $span = $p->[1]; # - 1; push @td, join('' , qq|| @@ -89,4 +101,8 @@ print qq|

| , join("\n" - , qq|$hhmm| - , $p->[2]->{title}->{content} || '-' + , qq|$hhmm
$span| + , $p->[2]->{title}->{content} || '' , "" ) . qq|

+ + + + |;