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

refactor(sheets): remove obsolete form validation TODOs

Browse Source
This commit is contained in:
Sarah Vaupel 2021-06-19 12:58:55 +02:00 committed by Gregor Kleen
parent 7192cb527c
commit 09a1c829bd
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Handler/Sheet/Form.hs
View File

@ -185,10 +185,6 @@ makeSheetForm cId msId template = identifyForm FIDsheet . validateForm validateS
$ classifySubmissionMode sfSubmissionMode /= SubmissionModeNone $ classifySubmissionMode sfSubmissionMode /= SubmissionModeNone
|| sfType == NotGraded || sfType == NotGraded
-- TODO: do authorship statement validation
-- TODO: if school mode is none or required for this sheet (exam-related/exam-umrelated?), statement must be set accordingly (Just for required, Nothing for none)
-- TODO: if school prevents custom statements, statement must match current school statement
correctorForm :: Loads -> AForm Handler Loads correctorForm :: Loads -> AForm Handler Loads
correctorForm loads' = wFormToAForm $ do correctorForm loads' = wFormToAForm $ do
currentRoute <- fromMaybe (error "correctorForm called from 404-handler") <$> liftHandler getCurrentRoute currentRoute <- fromMaybe (error "correctorForm called from 404-handler") <$> liftHandler getCurrentRoute