33 lines
1.3 KiB
Plaintext
33 lines
1.3 KiB
Plaintext
$# Displays one row of the grading summary
|
|
$# Expects several variables:
|
|
$# hasPassing :: Maybe Int -- Should Passing be displayed?
|
|
$# hasPoints :: Maybe Poibts -- Should Points be displayed?
|
|
$# summary :: SheetGradeSummary -- summary to display
|
|
$# sumHeader :: UniWorXMessage -- row header
|
|
$#
|
|
$maybe nrSheets <- positiveSum $ summary ^. _numSheets
|
|
<tr .table__row >
|
|
<th .table__th>_{sumHeader}
|
|
$maybe _ <- hasPassings
|
|
$with Sum pmax <- summary ^. _numGradePasses
|
|
$maybe Sum pacv <- summary ^. _achievedPasses
|
|
<td .table__td>
|
|
$if pmax /= 0
|
|
#{textPercentInt pacv pmax}
|
|
<td .table__td>
|
|
#{display pacv} / #{display pmax}
|
|
$nothing
|
|
<td .table__td colspan=2>
|
|
#{display pmax }
|
|
$maybe _ <- hasPoints
|
|
$with Sum pmax <- summary ^. _sumGradePoints
|
|
$maybe Sum pacv <- summary ^. _achievedPoints
|
|
<td .table__td>
|
|
$if pmax /= 0
|
|
#{textPercent $ realToFrac $ pacv / pmax}
|
|
<td .table__td>
|
|
#{display pacv} / #{display pmax}
|
|
$nothing
|
|
<td .table__td colspan=2>
|
|
#{display pmax }
|
|
<td .table__td>#{display nrSheets} |