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): account for isRegistered for tutorials schedule opt

Browse Source
This commit is contained in:
Sarah Vaupel 2020-11-09 13:09:07 +01:00
parent 2c9d5e0a22
commit 4199cc624b
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 tutScheduleOptSet <- if
| Just (uid,User{..}) <- mbAuth -> do | Just (uid,User{..}) <- mbAuth -> do
mScheduleOpt <- getBy $ UniqueTutorialScheduleOpt tutId uid mScheduleOpt <- getBy $ UniqueTutorialScheduleOpt tutId uid
let currentOpt = maybe userScheduleOccurrenceDisplayDefault tutorialScheduleOptOpt $ entityVal <$> mScheduleOpt let currentOpt = maybe (isRegistered && userScheduleOccurrenceDisplayDefault) tutorialScheduleOptOpt $ entityVal <$> mScheduleOpt
(tutScheduleForm, tutScheduleEnctype) <- liftHandler . generateFormPost . buttonForm' $ bool [BtnScheduleOptIn] [BtnScheduleOptOut] currentOpt (tutScheduleForm, tutScheduleEnctype) <- liftHandler . generateFormPost . buttonForm' $ bool [BtnScheduleOptIn] [BtnScheduleOptOut] currentOpt
return $ wrapForm tutScheduleForm def return $ wrapForm tutScheduleForm def
{ formAction = Just . SomeRoute $ CTutorialR tid ssh csh tutorialName (TScheduleOptSetR $ not currentOpt) { formAction = Just . SomeRoute $ CTutorialR tid ssh csh tutorialName (TScheduleOptSetR $ not currentOpt)