From 4199cc624b2ff4e6919c0d9e3f4e2102c6a3734d Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Mon, 9 Nov 2020 13:09:07 +0100
Subject: [PATCH] fix(schedule): account for isRegistered for tutorials
 schedule opt

---
 src/Handler/Course/Show.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Handler/Course/Show.hs b/src/Handler/Course/Show.hs
index 6029f6297..adcc74bed 100644
--- a/src/Handler/Course/Show.hs
+++ b/src/Handler/Course/Show.hs
@@ -195,7 +195,7 @@ getCShowR tid ssh csh = do
               tutScheduleOptSet <- if
                 | Just (uid,User{..}) <- mbAuth -> do
                     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
                     return $ wrapForm tutScheduleForm def
                       { formAction = Just . SomeRoute $ CTutorialR tid ssh csh tutorialName (TScheduleOptSetR $ not currentOpt)