81 |
if ( $programs->{$c}->[0]->[0] == $hh * 60 + $mm ) { |
if ( $programs->{$c}->[0]->[0] == $hh * 60 + $mm ) { |
82 |
my $p = shift @{ $programs->{$c} }; |
my $p = shift @{ $programs->{$c} }; |
83 |
my $span = $p->[1]; # - 1; |
my $span = $p->[1]; # - 1; |
84 |
push @td, join('' |
|
85 |
, qq|<td rowspan=$span>| |
my $html = ''; |
86 |
, join("\n" |
$html = join("\n" |
87 |
, qq|<span class="hhmm">$hhmm<br>$span</span>| |
, qq|<span class="hhmm">$hhmm<br>$span</span>| |
88 |
, $p->[2]->{title}->{content} || '' |
, $p->[2]->{title}->{content} |
89 |
, "<!-- $c -->" |
, "<!-- $c -->" |
90 |
) |
) if $p->[2]; |
91 |
. qq|</td>| |
|
92 |
); |
push @td, qq|<td rowspan=$span>$html</td>|; |
93 |
} |
} |
94 |
} |
} |
95 |
|
|