fraport/fradrive-old
Archived
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 <*> optionalActionA
( areq dayField (fslI MsgCourseAvsRegisterTutorialDay) (Just . fromMaybe today . join $ cavsregTutorial <$> template) ( 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 getCAvsRegisterR, postCAvsRegisterR :: TermId -> SchoolId -> CourseShorthand -> Handler Html