From 29288f09d3700d98c70b5c6a2f8354ece25f8c01 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Thu, 21 Apr 2005 05:19:08 +0000
Subject: [PATCH] Newline in duration in lieu of dash

---
 perl/sctweb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/sctweb b/perl/sctweb
index 9aef892..597ce83 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -312,7 +312,7 @@ sub get_schedule {
 	    $row->[2] =~ s/(.*\S)\s*//;
 	    $session = $1;
 	    $row->[2] =~ s/(\d\d)-(\d\d)-(\d\d)/20$3$1$2/g;
-	    $row->[2] =~ s/ *to */-/g;
+	    $row->[2] =~ s/ *to */\n/g;
 	    $row->[3] = capitalize($row->[3]);
 	    $row->[3] =~ s/([A-Z]r?)$/$1./;
 	    push @schedule, {
-- 
2.30.2