X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=fc96328f3e79256617dbdbd1cb8e04a5e0e28675;hp=8f514bbd782ad9422a3b4b679bbecef760ca72fd;hb=f65ee818b0b3dd72de609ab923173349a981776f;hpb=771c724425f346e5131cc8ed552b87aa0ef03588

diff --git a/perl/sctweb b/perl/sctweb
index 8f514bb..fc96328 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -668,7 +668,7 @@ sub do_transcripts {
     }
 }
 
-if ($arg eq "-s") {
+if ($arg eq "-s" || $arg eq "-h") {
     do_html_schedule(@ARGV);
 } elsif ($arg eq "-m") {
     do_mhc_schedule(@ARGV);
@@ -676,14 +676,14 @@ if ($arg eq "-s") {
     do_csv_schedule(@ARGV);
 } elsif ($arg eq "-v") {
     do_vcalendar_schedule(@ARGV);
-} elsif ($arg eq "-x") {
-    do_xml_schedule(@ARGV);
 } elsif ($arg eq "-g") {
     do_html_grades(@ARGV);
 } elsif ($arg eq "-t") {
     do_transcripts;
 } elsif ($arg eq "-f") {
     do_faculty;
+} elsif ($arg eq "-x" || 1) {
+    do_xml_schedule(@ARGV);
 }
 
 $ua->get("$url&tserve_trans_config=alogout.cfg"); # Logout