--- 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| | |
, join("\n"
- , qq|$hhmm|
- , $p->[2]->{title}->{content} || '-'
+ , qq|$hhmm $span| + , $p->[2]->{title}->{content} || '' , "" ) . qq| | |
@@ -89,4 +101,8 @@
print qq|