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

Fix gradingSummart.hamlet

Browse Source
This commit is contained in:
SJost 2018-12-05 14:56:36 +01:00
parent 3080cac2f3
commit 5de9eb791a
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
templates/widgets/gradingSummary.hamlet
View File

@ -22,14 +22,9 @@ $# --
$maybe _ <- hasPoints
<td .table__td colspan=2>
<td .table__td>#{display nrNoGrade}
$# TODO: for Steffen: show messages conditional upon table content
$maybe _ <- positiveSum $ bonusSummary ^. _numSheets
<p>_{MsgSheetTypeInfoBonus}
$maybe _ <- positiveSum =<< (bonusSummary ^. _achievedPoints)
_{MsgSheetGradingBonusIncluded}
$maybe _ <- positiveSum $ informationalSummary ^. _numSheets
<p>_{MsgSheetTypeInfoNotGraded}
$maybe _ <- positiveSum =<< (bonusSummary ^. _achievedPoints)
<p>_{MsgSheetGradingBonusIncluded}
$nothing
$#TODO: MsgSheetTypeInfo into part about Bonus and about Informational
$maybe _ <- positiveSum $ informationalSummary ^. _numSheets
<p>_{MsgSheetTypeInfoBonus}
<p>_{MsgSheetTypeInfoNotGraded}