Minor logic change

[tpope-extra.git] / perl / sctweb

diff --git a/perl/sctweb b/perl/sctweb
index c1d82d6d8220e0bf1fe3b7c0da92a82ad35d9299..a60f0a2854bb6f2abde76baf3f1ad22bda0d1a3f 100755 (executable)
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -344,7 +344,7 @@ sub get_faculty_email {
        open INS, $ENV{'HOME'} . "/public_html/faculty.csv";
        while($_ = <INS>) {
            chomp;
-           m/"([^"]*)",([^,]*),([^,]*)/;
+           m/"([^"]*)",([^,]*),([^,]*)/; # "
            ($name, $email, $school) = ($1, $2, $3);
            $name =~ s/^([^,]*), ([^,]*)(.*)$/$2 $1$3/;
            $name =~ s/ [A-Z]\.//g;
@@ -642,9 +642,7 @@ sub do_transcripts {
     }
 }
 
-if ($arg eq "-g") {
-    do_html_grades(@ARGV);
-} elsif ($arg eq "-s") {
+if ($arg eq "-s") {
     do_html_schedule(@ARGV);
 } elsif ($arg eq "-m") {
     do_mhc_schedule(@ARGV);
@@ -652,6 +650,8 @@ if ($arg eq "-g") {
     do_csv_schedule(@ARGV);
 } elsif ($arg eq "-v") {
     do_vcalendar_schedule(@ARGV);
+} elsif ($arg eq "-g") {
+    do_html_grades(@ARGV);
 } elsif ($arg eq "-t") {
     do_transcripts;
 } elsif ($arg eq "-f") {