Bug fix

diff --git a/perl/sct6 b/perl/sct6
index 0cd6ccc5751367b0b14fb2a6fcb60d8237e9df45..cb3fe0b19bc274d7e64b34176b4fb65020494570 100755 (executable)
--- a/perl/sct6
+++ b/perl/sct6
@@ -316,7 +316,7 @@ if ($arg eq "-g") {
     do_xml_grades(@ARGV);
 } elsif ($arg eq "-t") {
     do_transcripts;
-} elsif ($arg eq "-x" || $arg = "-s" || 1) {
+} elsif ($arg eq "-x" || $arg eq "-s" || 1) {
     do_xml_schedule(@ARGV);
 }