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 actions

Browse Source
This commit is contained in:
Sarah Vaupel 2020-11-09 17:59:51 +01:00
parent 4199cc624b
commit 374cb6250d
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/Show.hs
View File

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