From c7e3b4e2251a02ea9718380feb28f9a6ea1044cb Mon Sep 17 00:00:00 2001 From: Tim Pope Date: Wed, 24 Nov 2004 02:57:23 +0000 Subject: [PATCH] More substitutions --- perl/sctweb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/perl/sctweb b/perl/sctweb index 08bdbbc..da7a831 100755 --- a/perl/sctweb +++ b/perl/sctweb @@ -145,6 +145,7 @@ sub capitalize { s/\bComp\b/Composition/g; s/\bFed\b/Federal/g; s/\bGen\b/General/g; + s/\bIntro\b/Introduction/g; #s/\bGovt\b/Government/g; s/\bLit\b/Literature/g; s/\bPrin\b/Principles/g; @@ -196,7 +197,7 @@ sub get_schedule { $end =~ s/PM$//; } else { $end =~ s/AM$//; } $row->[8] =~ s/(\d\d)-(\d\d)-(\d\d)/20$3$1$2/g; - $row->[9] =~ s/ON CAMPUS\n//g; + $row->[9] =~ s/(ON|MAIN) CAMPUS\n//ig; $row->[9] =~ s/\n/ /g; push @schedule, { id => $classid, -- 2.30.2