No more Friday exams

[tpope-extra.git] / perl / sctweb

diff --git a/perl/sctweb b/perl/sctweb
index 15ab1ef17685b640aa250b615ee0608ea9f58138..3c26cee263497b5f65a59f85bbd2417db60ea052 100755 (executable)
--- 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 ? () : "";
 }