fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix(exam-correct): temporarily disable exam results (WIP)

Browse Source
This commit is contained in:
Sarah Vaupel 2020-02-07 09:06:38 +01:00
parent 1d0be2d682
commit 533e7482c9
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Exam/Correct.hs
View File

@ -74,7 +74,9 @@ getECorrectR tid ssh csh examn = do
examParts <- sortOn (view $ _entityVal . _examPartNumber) <$> selectList [ ExamPartExam ==. eId ] [ Asc ExamPartName ] examParts <- sortOn (view $ _entityVal . _examPartNumber) <$> selectList [ ExamPartExam ==. eId ] [ Asc ExamPartName ]
return (exam, entityVal <$> examParts) 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 let
heading = prependCourseTitle tid ssh csh $ (mr . MsgExamCorrectHeading . CI.original) examName heading = prependCourseTitle tid ssh csh $ (mr . MsgExamCorrectHeading . CI.original) examName