From: Tim Pope Date: Tue, 16 Aug 2005 07:32:32 +0000 (+0000) Subject: Bug fix X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=d1ec907270171b67fa0fb3cf55f2b3b88c4cd412 Bug fix --- 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 '';