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

fix(eecorrectr): encrypt eeid

Browse Source
This commit is contained in:
Sarah Vaupel 2020-08-12 14:31:55 +02:00
parent 4515987446
commit 5d9ca454fa
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/CryptoID.hs
View File

@ -72,6 +72,7 @@ decCryptoIDs [ ''SubmissionId
, ''CourseNewsId , ''CourseNewsId
, ''CourseEventId , ''CourseEventId
, ''TutorialId , ''TutorialId
, ''ExternalExamId
] ]
decCryptoIDKeySize decCryptoIDKeySize

7
src/Handler/ExternalExam/Correct.hs
View File

@ -20,7 +20,7 @@ getEECorrectR :: TermId -> SchoolId -> CourseName -> ExamName -> Handler Html
getEECorrectR tid ssh coursen examn = do getEECorrectR tid ssh coursen examn = do
MsgRenderer mr <- getMsgRenderer MsgRenderer mr <- getMsgRenderer
Entity _eeId ExternalExam{..} <- runDB $ fetchExternalExam tid ssh coursen examn Entity eeId ExternalExam{..} <- runDB $ fetchExternalExam tid ssh coursen examn
mayEditResults <- hasWriteAccessTo $ EExamR tid ssh coursen examn EEUsersR mayEditResults <- hasWriteAccessTo $ EExamR tid ssh coursen examn EEUsersR
@ -38,10 +38,7 @@ getEECorrectR tid ssh coursen examn = do
examGradingMode = externalExamGradingMode examGradingMode = externalExamGradingMode
examCorrectIdent :: Text examCorrectIdent <- encrypt eeId :: Handler CryptoUUIDExternalExam
examCorrectIdent = "TODO" -- TODO fix below
-- examCorrectIdent <- encrypt eeId :: Handler (CryptoID UUID ExternalExamId)
siteLayoutMsg heading $ do siteLayoutMsg heading $ do
setTitleI heading setTitleI heading