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

minor change gradingSummaryRow

Browse Source
This commit is contained in:
SJost 2018-12-21 17:12:06 +01:00
parent dd3e321b7b
commit 51607c8000
1 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
templates/widgets/gradingSummaryRow.hamlet
View File

@ -15,15 +15,21 @@ $#
<th .table__th>_{sumHeader} <th .table__th>_{sumHeader}
$maybe _ <- hasMarkedPasses $maybe _ <- hasMarkedPasses
$with Sum pmax <- summary ^. _numMarkedPasses $with Sum pmax <- summary ^. _numMarkedPasses
$with Sum pacv <- summary ^. _achievedPasses $if pmax > 0
<td .table__td> $with Sum pacv <- summary ^. _achievedPasses
$if pmax > 0 <td .table__td>
#{textPercentInt pacv pmax} $if pmax > 0
<td .table__td> #{textPercentInt pacv pmax}
#{display pacv} / #{display pmax} <td .table__td>
#{display pacv} / #{display pmax}
$else
<td .table__td>
<td .table__td>
$maybe _ <- hasPasses $maybe _ <- hasPasses
<td .table__td> $with Sum numPass <- summary ^. _numSheetsPasses
#{display $ summary ^. _numSheetsPasses} <td .table__td>
$if numPass > 0
#{display numPass}
$maybe _ <- hasMarkedPoints $maybe _ <- hasMarkedPoints
$with Sum pmax <- summary ^. _sumMarkedPoints $with Sum pmax <- summary ^. _sumMarkedPoints
$with Sum pacv <- summary ^. _achievedPoints $with Sum pacv <- summary ^. _achievedPoints
@ -32,9 +38,17 @@ $#
#{textPercent $ realToFrac $ pacv / pmax} #{textPercent $ realToFrac $ pacv / pmax}
<td .table__td> <td .table__td>
#{display pacv} / #{display pmax} #{display pacv} / #{display pmax}
\ (_{title $ getSum $ summary ^. _numMarkedPoints}) $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 $maybe _ <- hasPoints
<td .table__td> <td .table__td>
#{display (summary ^. _sumSheetsPoints)} #{display (summary ^. _sumSheetsPoints)}
\ (_{title $ getSum $ summary ^. _numSheetsPoints}) $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} <td .table__td>#{display $ summary ^. _numSheets}