From 2bbe67bf909ee3369defa8edb5736a91bc1185c4 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <>
Date: Sat, 7 Nov 2020 20:22:33 +0100
Subject: [PATCH] fix(exams): account for registration in schedule-opt toggle

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

diff --git a/templates/exam-show.hamlet b/templates/exam-show.hamlet
index 2224c91ed..c3b7c2a57 100644
--- a/templates/exam-show.hamlet
+++ b/templates/exam-show.hamlet
@@ -237,8 +237,8 @@ $if not (null occurrences)
                 $maybe (Entity _ User{userScheduleOccurrenceDisplayDefault}) <- mAuth
                   <td .table__td>
                     <div .table__td-content>
-                      <a .btn .btn-primary href=@{CExamR tid ssh csh examn (EScheduleOptSetR examOccurrenceName (not (maybe userScheduleOccurrenceDisplayDefault examOccurrenceScheduleOptOpt mEOScheduleOpt)))}>
-                        _{bool MsgScheduleOptIn MsgScheduleOptOut (maybe userScheduleOccurrenceDisplayDefault examOccurrenceScheduleOptOpt mEOScheduleOpt)}
+                      <a .btn .btn-primary href=@{CExamR tid ssh csh examn (EScheduleOptSetR examOccurrenceName (not (maybe (registered && userScheduleOccurrenceDisplayDefault) examOccurrenceScheduleOptOpt mEOScheduleOpt)))}>
+                        _{bool MsgScheduleOptIn MsgScheduleOptOut (maybe (registered && userScheduleOccurrenceDisplayDefault) examOccurrenceScheduleOptOpt mEOScheduleOpt)}
                       $if is _Just mEOScheduleOpt
                         <a .btn .btn-primary href=@{CExamR tid ssh csh examn (EScheduleOptDelR examOccurrenceName)}>
                           _{MsgScheduleOptDelete}