X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=da7a83158810853e38173cb192e3c2530bd7b5bd;hp=08bdbbc781ce9486b2ade00300f36c8b8e745563;hb=c7e3b4e2251a02ea9718380feb28f9a6ea1044cb;hpb=3720f9723e308df224baf26bf4b3d98cda175077

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,