32 lines
1.2 KiB
Plaintext
32 lines
1.2 KiB
Plaintext
$# Displays gradings Summary for various purposes
|
|
$# --
|
|
<div>
|
|
<h3>_{MsgSheetGradingSummaryTitle $ getSum $ numSheets $ sumSummaries}
|
|
<table .table .table--striped>
|
|
<tr .table__row .table__row--head>
|
|
<th>
|
|
$# empty cell for row headers
|
|
$maybe _ <- hasPassings
|
|
<th .table__th colspan=2>_{MsgSheetGradingPassing'}
|
|
$maybe _ <- hasPoints
|
|
<th .table__th colspan=2>_{MsgSheetGradingPoints'}
|
|
<th .table__th>_{MsgSheetGradingCount'}
|
|
$# Number of Sheet/Submissions used for calculating maximum passes/points
|
|
$forall row <- rowWdgts
|
|
^{row}
|
|
$maybe nrNoGrade <- positiveSum $ numNotGraded
|
|
<tr .table__row>
|
|
<th .table__th>_{MsgSheetTypeNotGraded}
|
|
$maybe _ <- hasPassings
|
|
<td colspan=2>
|
|
$maybe _ <- hasPoints
|
|
<td .table__td colspan=2>
|
|
<td .table__td>#{display nrNoGrade}
|
|
$maybe _ <- positiveSum $ bonusSummary ^. _numSheets
|
|
<p>_{MsgSheetTypeInfo}
|
|
$maybe _ <- positiveSum =<< (bonusSummary ^. _achievedPoints)
|
|
<p>_{MsgSheetGradingBonusIncluded}
|
|
$nothing
|
|
$#TODO: MsgSheetTypeInfo into part about Bonus and about Informational
|
|
$maybe _ <- positiveSum $ informationalSummary ^. _numSheets
|
|
<p>_{MsgSheetTypeInfo} |