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

chore(exam-correct): reintroduce examResults

Browse Source
This commit is contained in:
Sarah Vaupel 2020-02-07 09:51:50 +01:00
parent af8d77c4a4
commit 5125ddfeec
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -74,9 +74,7 @@ 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)
-- TODO submit exam results: work in progress mayEditResults <- hasWriteAccessTo $ CExamR tid ssh csh examn EUsersR
-- 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