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

fix(exams): set use-custom correctly if forced

Browse Source
This commit is contained in:
Sarah Vaupel 2021-06-09 16:56:25 +02:00 committed by Gregor Kleen
parent abd68ac032
commit 8bb61401a7
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -150,9 +150,7 @@ examForm (Entity _ Course{..}) template csrf = hoist liftHandler $ do
<* aformSection MsgExamAuthorshipStatementSection <* aformSection MsgExamAuthorshipStatementSection
<* optionalActionA <* optionalActionA
( aopt htmlField ( aopt htmlField
( fslI MsgExamAuthorshipStatementSchoolDefinition (fslI MsgExamAuthorshipStatementSchoolDefinition & addAttr "disabled" "disabled")
& addAttr "disabled" "disabled"
)
((Just . authorshipStatementDefinitionContent . entityVal) <$> mSchoolAuthorshipStatement) ((Just . authorshipStatementDefinitionContent . entityVal) <$> mSchoolAuthorshipStatement)
<* optionalActionA <* optionalActionA
( apreq htmlField ( apreq htmlField
@ -170,7 +168,7 @@ examForm (Entity _ Course{..}) template csrf = hoist liftHandler $ do
& addAttr "disabled" "disabled" & addAttr "disabled" "disabled"
& setTooltip MsgExamAuthorshipStatementUseCustomDefinitionDisabledTip & setTooltip MsgExamAuthorshipStatementUseCustomDefinitionDisabledTip
) )
( bool (Just True) ( bool (Just False)
(Just True) -- TODO: set according to template, if template is empty `Just True` (Just True) -- TODO: set according to template, if template is empty `Just True`
schoolSheetExamAuthorshipStatementAllowOther schoolSheetExamAuthorshipStatementAllowOther
) )