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

feat(avs): register course participants for day groups per default

Browse Source
This commit is contained in:
Sarah Vaupel 2022-11-24 18:51:00 +01:00
parent 747d6198c4
commit 64d3ceb56d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Course/Avs.hs
View File

@ -36,7 +36,7 @@ courseAvsRegisterForm template = wFormToAForm $ do
<*> optionalActionA
( areq dayField (fslI MsgCourseAvsRegisterTutorialDay) (Just . fromMaybe today . join $ cavsregTutorial <$> template)
)
(fslI MsgCourseAvsRegisterCreateTutorial) (is _Just . cavsregTutorial <$> template)
(fslI MsgCourseAvsRegisterCreateTutorial) ((is _Just . cavsregTutorial <$> template) <|> Just True)
getCAvsRegisterR, postCAvsRegisterR :: TermId -> SchoolId -> CourseShorthand -> Handler Html