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

fix(schedule-opt): account for course schedule opt in tutorial opt

Browse Source
This commit is contained in:
Sarah Vaupel 2020-11-09 18:51:06 +01:00
parent cd450848a4
commit d8a921f335
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/Handler/Course/Show.hs
View File

@ -207,8 +207,16 @@ getCShowR tid ssh csh = do
| otherwise -> return mempty
tutScheduleOptSet <- if
| Just (uid,User{..}) <- mbAuth -> do
mScheduleOpt <- getBy $ UniqueTutorialScheduleOpt tutId uid
let currentOpt = maybe (maybe (isRegistered && userScheduleOccurrenceDisplayDefault) (courseScheduleOptOpt . entityVal) mCourseScheduleOpt) tutorialScheduleOptOpt $ entityVal <$> mScheduleOpt
mTutorialScheduleOpt <- getBy $ UniqueTutorialScheduleOpt tutId uid
let
currentOpt = maybe
( maybe
(isRegistered && userScheduleOccurrenceDisplayDefault)
((&&) isRegistered . courseScheduleOptOpt . entityVal)
mCourseScheduleOpt
)
(tutorialScheduleOptOpt . entityVal)
mTutorialScheduleOpt
(tutScheduleForm, tutScheduleEnctype) <- liftHandler . generateFormPost . buttonForm' $ bool [BtnScheduleOptIn] [BtnScheduleOptOut] currentOpt
return $ wrapForm tutScheduleForm def
{ formAction = Just . SomeRoute $ CTutorialR tid ssh csh tutorialName (TScheduleOptSetR $ not currentOpt)