X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsct6;h=843f1030f03e510c119e140704e815848e387206;hp=e55560f933d34383a9b0b716d8220cf4e729a91b;hb=2bb1edeb6981c608ddc0d7aa6af6fc658af7bfc7;hpb=d1ec907270171b67fa0fb3cf55f2b3b88c4cd412 diff --git a/perl/sct6 b/perl/sct6 index e55560f..843f103 100755 --- a/perl/sct6 +++ b/perl/sct6 @@ -511,7 +511,7 @@ sub do_html_schedule { print "\n"; foreach my $row (@schedule) { map { s/\n/
/g; $_} %$row; - $row->{'duration'} =~ s/-/\n/g; + $row->{'duration'} =~ s/-/
/g; $row->{'duration'} =~ s/\d\d(\d\d)(\d\d)(\d\d)/$2-$3-$1/g; print ''; $shade = ($shade eq "dark"?"light":"dark");