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

feat(exam-correct): use examId instead as uw-exam-correct value

Browse Source
This commit is contained in:
Sarah Vaupel 2020-01-28 09:18:53 +01:00 committed by Gregor Kleen
parent 4e2810d9bb
commit 2d9a8771ef
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/CryptoID.hs
View File

@ -43,6 +43,7 @@ decCryptoIDs [ ''SubmissionId
, ''SystemMessageId
, ''SystemMessageTranslationId
, ''StudyFeaturesId
, ''ExamId
, ''ExamOccurrenceId
, ''ExamPartId
, ''AllocationId

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

@ -66,7 +66,7 @@ getECorrectR :: TermId -> SchoolId -> CourseShorthand -> ExamName -> Handler Htm
getECorrectR tid ssh csh examn = do
MsgRenderer mr <- getMsgRenderer
(Entity _ Exam{..}, examParts) <- runDB $ do
(Entity eId Exam{..}, examParts) <- runDB $ do
exam@(Entity eId Exam{..}) <- fetchExam tid ssh csh examn
examParts <- sortOn (view $ _entityVal . _examPartNumber) <$> selectList [ ExamPartExam ==. eId ] [ Asc ExamPartName ]
return (exam, entityVal <$> examParts)
@ -81,7 +81,7 @@ getECorrectR tid ssh csh examn = do
participantHeadTooltip = [whamlet| _{MsgExamCorrectHeadParticipantTooltip} |]
examCorrectIdent = intercalate "-" [toPathPiece tid, toPathPiece ssh, toPathPiece csh, toPathPiece examn]
examCorrectIdent <- encrypt eId :: Handler CryptoUUIDExam
siteLayoutMsg heading $ do
setTitleI heading