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