54 lines
2.5 KiB
Plaintext
54 lines
2.5 KiB
Plaintext
$# Displays one row of the grading summary
|
|
$# Expects several variables:
|
|
$# summary :: SheetGradeSummary -- summary to display
|
|
$# sumHeader :: UniWorXMessage -- row header
|
|
$# hasPasses :: Maybe Int -- Should Passing be displayed?
|
|
$# hasMarkedPasses :: Maybe Int -- Number of marked pass-sheets
|
|
$# hasPoints :: Maybe Points -- Should Points be displayed?
|
|
$# hasMarkedPoints :: Maybe Int -- Number of marked point-sheets
|
|
$#
|
|
$# TODO: Durschnittliche Punktzahl anzeigen
|
|
$# TODO: Extra-Spalte für Punkte Bewertet = numMarkedPoints / Punkte Gesamt = sumSheetPoints
|
|
$#
|
|
$maybe _ <- positiveSum $ summary ^. _numSheets
|
|
<tr .table__row>
|
|
<th .table__th>_{sumHeader}
|
|
$maybe _ <- hasMarkedPasses
|
|
$with Sum pmax <- summary ^. _numMarkedPasses
|
|
$if pmax > 0
|
|
$with Sum pacv <- summary ^. _achievedPasses
|
|
<td .table__td>
|
|
$if pmax > 0
|
|
#{textPercentInt pacv pmax}
|
|
<td .table__td>
|
|
#{display pacv} / #{display pmax}
|
|
$else
|
|
<td .table__td>
|
|
<td .table__td>
|
|
$maybe _ <- hasPasses
|
|
$with Sum numPass <- summary ^. _numSheetsPasses
|
|
<td .table__td>
|
|
$if numPass > 0
|
|
#{display numPass}
|
|
$maybe _ <- hasMarkedPoints
|
|
$with Sum pmax <- summary ^. _sumMarkedPoints
|
|
$with Sum pacv <- summary ^. _achievedPoints
|
|
<td .table__td>
|
|
$if pmax > 0
|
|
#{textPercent $ realToFrac $ pacv / pmax}
|
|
<td .table__td>
|
|
#{display pacv} / #{display pmax}
|
|
$if ((summary ^. _numMarkedPoints) /= (summary ^. _numSheets))
|
|
$# Falls Anzahl Blätter der Zeile verschieden von Anzahl gewerterer Blätter
|
|
\ (_{title $ getSum $ summary ^. _numMarkedPoints})
|
|
$# Kurze Alternative mit Hashtag-Symbol für "Anzahl"
|
|
$# \ (##{display $ summary ^. _numMarkedPoints})
|
|
$maybe _ <- hasPoints
|
|
<td .table__td>
|
|
#{display (summary ^. _sumSheetsPoints)}
|
|
$if ((summary ^. _numSheetsPoints) /= (summary ^. _numSheets))
|
|
$# Falls Anzahl Blätter der Zeile verschieden von Anzahl Blätter mit Punkten
|
|
\ (_{title $ getSum $ summary ^. _numSheetsPoints})
|
|
$# Kurze Alternative mit Hashtag-Symbol für "Anzahl"
|
|
$# \ (##{display $ summary ^. _numSheetsPoints})
|
|
<td .table__td>#{display $ summary ^. _numSheets} |