From 9d75f01621e435863f90de252a2b2c17c60f564d Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Sun, 21 Aug 2005 18:32:20 +0000
Subject: [PATCH] Bug fix

---
 perl/sct6 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/sct6 b/perl/sct6
index 0cd6ccc..cb3fe0b 100755
--- 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);
 }
 
-- 
2.30.2