X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fsctweb;h=3c26cee263497b5f65a59f85bbd2417db60ea052;hp=15ab1ef17685b640aa250b615ee0608ea9f58138;hb=9763dbc57f2890e6de599be36a88bbe0a1022bd7;hpb=5b7718beb78ff32f4f954c675a0934e9386badad

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 ? () : "";
 }