From: Tim Pope Date: Thu, 21 Apr 2005 05:19:08 +0000 (+0000) Subject: Newline in duration in lieu of dash X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=29288f09d3700d98c70b5c6a2f8354ece25f8c01 Newline in duration in lieu of dash --- 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, {