X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=a60f0a2854bb6f2abde76baf3f1ad22bda0d1a3f;hp=6c47ff946e0290280c5649f8962b45f23bca0dc8;hb=0e0d6dcdea7eb31714375cbcc7de8ee68507cd47;hpb=4bf23ca6c398b23c42efb732f308deabbf7c0b26

diff --git a/perl/sctweb b/perl/sctweb
index 6c47ff9..a60f0a2 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -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") {