From 533e7482c9baab10c6b82781f57e610f5ca45129 Mon Sep 17 00:00:00 2001 From: Sarah Vaupel Date: Fri, 7 Feb 2020 09:06:38 +0100 Subject: [PATCH] fix(exam-correct): temporarily disable exam results (WIP) --- src/Handler/Exam/Correct.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Handler/Exam/Correct.hs b/src/Handler/Exam/Correct.hs index 5df19d1a3..311ae4342 100644 --- a/src/Handler/Exam/Correct.hs +++ b/src/Handler/Exam/Correct.hs @@ -74,7 +74,9 @@ getECorrectR tid ssh csh examn = do examParts <- sortOn (view $ _entityVal . _examPartNumber) <$> selectList [ ExamPartExam ==. eId ] [ Asc ExamPartName ] return (exam, entityVal <$> examParts) - mayEditResults <- hasWriteAccessTo $ CExamR tid ssh csh examn EUsersR + -- TODO submit exam results: work in progress + -- mayEditResults <- hasWriteAccessTo $ CExamR tid ssh csh examn EUsersR + let mayEditResults = False let heading = prependCourseTitle tid ssh csh $ (mr . MsgExamCorrectHeading . CI.original) examName