fix(exams): account for registration in schedule-opt toggle

This commit is contained in:
Sarah Vaupel 2020-11-07 20:22:33 +01:00
parent a6308544c8
commit 2bbe67bf90

View File

@ -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}