More substitutions

diff --git a/perl/sctweb b/perl/sctweb
index 08bdbbc781ce9486b2ade00300f36c8b8e745563..da7a83158810853e38173cb192e3c2530bd7b5bd 100755 (executable)
--- 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,