From 42c133d3ed81fde0bd415e83cc2fecf3a0afbd4d Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Mon, 9 Nov 2020 19:00:22 +0100
Subject: [PATCH] fix(schedule-opt): account for registration status in course
 schedule opt

---
 templates/course.hamlet | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/templates/course.hamlet b/templates/course.hamlet
index 7fb570bed..fb2aa9042 100644
--- a/templates/course.hamlet
+++ b/templates/course.hamlet
@@ -320,8 +320,8 @@ $#    $if NTop (Just 0) < NTop (courseCapacity course)
     <dt .deflist__dt>
       _{MsgScheduleOptActions}
     <dd .deflist__dd>
-      <a .btn .btn-primary href=@{CourseR tid ssh csh (CScheduleOptSetR (not (maybe userScheduleOccurrenceDisplayDefault (courseScheduleOptOpt . entityVal) mCourseScheduleOpt)))}>
-        _{bool MsgCourseScheduleOptIn MsgCourseScheduleOptOut (maybe userScheduleOccurrenceDisplayDefault (courseScheduleOptOpt . entityVal) mCourseScheduleOpt)}
+      <a .btn .btn-primary href=@{CourseR tid ssh csh (CScheduleOptSetR (not (maybe ((is _Just registration) && userScheduleOccurrenceDisplayDefault) (courseScheduleOptOpt . entityVal) mCourseScheduleOpt)))}>
+        _{bool MsgCourseScheduleOptIn MsgCourseScheduleOptOut (maybe ((is _Just registration) && userScheduleOccurrenceDisplayDefault) (courseScheduleOptOpt . entityVal) mCourseScheduleOpt)}
       $if is _Just mCourseScheduleOpt
         <a .btn .btn-primary href=@{CourseR tid ssh csh CScheduleOptDelR}>
           _{MsgCourseScheduleOptDelete}