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

fix(exams): correctly treat school-mode optional as off by default

Browse Source
This commit is contained in:
Sarah Vaupel 2021-06-19 10:17:42 +02:00 committed by Gregor Kleen
parent 5c813ed02b
commit ac86832b34
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Handler/Exam/Form.hs
View File

@ -163,10 +163,9 @@ examForm (Entity _ Course{..}) template csrf = hoist liftHandler $ do
SchoolAuthorshipStatementModeNone -> pure Nothing -- suppress display of whole section incl. header SchoolAuthorshipStatementModeNone -> pure Nothing -- suppress display of whole section incl. header
otherMode -> aformSection MsgExamAuthorshipStatementSection otherMode -> aformSection MsgExamAuthorshipStatementSection
*> case otherMode of *> case otherMode of
SchoolAuthorshipStatementModeOptional -> optionalActionA SchoolAuthorshipStatementModeOptional -> optionalActionA (contentField id)
(contentField id)
(fslI MsgExamAuthorshipStatementRequired & setTooltip MsgExamAuthorshipStatementRequiredTip) (fslI MsgExamAuthorshipStatementRequired & setTooltip MsgExamAuthorshipStatementRequiredTip)
((is _Just . efAuthorshipStatement <$> template) <|> (pure $ is _Just schoolSheetExamAuthorshipStatementDefinition)) (is _Just . efAuthorshipStatement <$> template)
SchoolAuthorshipStatementModeRequired -> fmap Just . contentField $ setTooltip MsgExamAuthorshipStatementRequiredDisabledOnTip SchoolAuthorshipStatementModeRequired -> fmap Just . contentField $ setTooltip MsgExamAuthorshipStatementRequiredDisabledOnTip
_none -> pure Nothing _none -> pure Nothing