From: Tim Pope <code@tpope.net>
Date: Wed, 24 Nov 2004 02:57:23 +0000 (+0000)
Subject: More substitutions
X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=commitdiff_plain;h=c7e3b4e2251a02ea9718380feb28f9a6ea1044cb

More substitutions
---

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,