fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

chore: strikethrough names of ignored occurrences

Browse Source
This commit is contained in:
Wolfgang Witt 2021-03-19 14:17:47 +01:00 committed by Gregor Kleen
parent 25fa6ef0d7
commit 84a50646b0
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Handler/Exam/AutoOccurrence.hs
View File

@ -243,6 +243,8 @@ postEAutoOccurrenceR tid ssh csh examn = do
, formSubmit = FormNoSubmit , formSubmit = FormNoSubmit
, formAttrs = [("class", "buttongroup")] , formAttrs = [("class", "buttongroup")]
} }
isIgnored :: ExamOccurrenceId -> Bool
isIgnored occId = maybe False (Set.member occId) $ formResult' calculateRes' ^? _Just . _eaofConfig . _eaocIgnoreRooms . _eaoirIgnored
ExamAutoOccurrenceAcceptForm{..} <- maybe (redirect $ CExamR tid ssh csh examn EUsersR) return calcResult ExamAutoOccurrenceAcceptForm{..} <- maybe (redirect $ CExamR tid ssh csh examn EUsersR) return calcResult

6
templates/widgets/exam-occurrence-mapping.hamlet
View File

@ -28,7 +28,11 @@ $newline never
$forall Entity occId ExamOccurrence{ examOccurrenceName, examOccurrenceRoom, examOccurrenceStart, examOccurrenceEnd, examOccurrenceDescription, examOccurrenceCapacity } <- occurrences $forall Entity occId ExamOccurrence{ examOccurrenceName, examOccurrenceRoom, examOccurrenceStart, examOccurrenceEnd, examOccurrenceDescription, examOccurrenceCapacity } <- occurrences
<tr .table__row> <tr .table__row>
<td .table__td> <td .table__td>
_{examOccurrenceName} $if isIgnored occId
<strike>
_{examOccurrenceName}
$else
_{examOccurrenceName}
<td .table__td> <td .table__td>
_{loadProp (occLoad occId) examOccurrenceCapacity} _{loadProp (occLoad occId) examOccurrenceCapacity}
<td .table__td> <td .table__td>