fix(exams): account for registration in schedule-opt toggle
This commit is contained in:
parent
a6308544c8
commit
2bbe67bf90
@ -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}
|
||||
|
||||
Reference in New Issue
Block a user