commit 0782632336050355058c69e9ae7f0ec000664859
parent 488dd71d61cf1f465cf37b0a2a2ca655e765c437
Author: Metalympiáda <metalympiada@matfyz.cz>
Date: Thu, 5 Jan 2023 00:12:24 +0100
Disable submission after deadline
Diffstat:
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/routes.scm b/routes.scm
@@ -20,6 +20,10 @@
(define site-name "Metalympiáda")
(define round-name "Domáce kolo 2022/23")
(define deadline "380. narodenín Isaaca Newtona")
+(define after-deadline #t)
+(define announcement (if after-deadline
+ "Čoskoro pribudnú výsledky a nové zadania. Deadline bol do "
+ "Riešenia je možné posielať do "))
(define current-round 0)
@@ -65,21 +69,21 @@
(p (@ (class "text")) ,text))))
(define* (problem-page #:optional (err #f) (user #f))
- (let ((answers (if user (select-answers user current-round) #f)))
+ (let ((answers (if user (select-answers user current-round) #f))
+ (submit-available (and user (not after-deadline))))
(values
"Zadania"
`(,(if err `(span (@ (class "error")) ,err) '())
,(if user (greeting user) `(,login-form (p "Pre odoslanie riešení sa prihláste")))
(h1 ,round-name)
- (p "Riešenia je možné posielať do "
- (strong ,deadline))
+ (p ,announcement (strong ,deadline))
(form (@ (action "#") (method "POST"))
,@(map (lambda (text index)
(let ((i (number->string (+ index 1))))
`((p (@ (class "text"))
(span (@ (class "problem-num")) ,i ".")
,text)
- ,(if user
+ ,(if submit-available
`(input (@ (name ,i)
(class "block")
,(if answers
@@ -88,7 +92,7 @@
'())
(hr))))
problems (iota (length problems)))
- ,(if user
+ ,(if submit-available
`(input (@ (class "button block")
(type "submit")
(value "Uložiť riešenia")))
