From 9763dbc57f2890e6de599be36a88bbe0a1022bd7 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Fri, 29 Apr 2005 14:22:52 +0000
Subject: [PATCH] No more Friday exams

---
 perl/sctweb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/perl/sctweb b/perl/sctweb
index 15ab1ef..3c26cee 100755
--- a/perl/sctweb
+++ b/perl/sctweb
@@ -181,6 +181,8 @@ sub off_for_exams {
 	} elsif($time =~ /$ending/) {
 	    return $lastday-5;
 	}
+    } elsif($days eq "5") {
+	return $lastday-2;
     }
     return wantarray ? () : "";
 }
-- 
2.30.2