From d1ec907270171b67fa0fb3cf55f2b3b88c4cd412 Mon Sep 17 00:00:00 2001 From: Tim Pope Date: Tue, 16 Aug 2005 07:32:32 +0000 Subject: [PATCH] Bug fix --- perl/sct6 | 1 - 1 file changed, 1 deletion(-) 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 ''; -- 2.30.2