Newline in duration in lieu of dash

diff --git a/perl/sctweb b/perl/sctweb
index 9aef892403e2d7d2290ea829cff15516970944a9..597ce83ccd00b63ccacd7ef2fe5a03192245be85 100755 (executable)
--- 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, {