64 lines
3.2 KiB
Plaintext
64 lines
3.2 KiB
Plaintext
<div>
|
|
<h2>_{MsgCorrectionSheets}
|
|
_{MsgCourseParticipants nrParticipants}
|
|
<table .table .table--striped .table--hover>
|
|
<tr .table__row .table__row--head>
|
|
<th .table__th>_{MsgSheet}
|
|
$if groupsPossible
|
|
<th .table__th>_{MsgNrSubmittorsTotal}
|
|
<th .table__th colspan=2>_{MsgNrSubmissionsTotal}
|
|
<th .table__th colspan=2>_{MsgNrSubmissionsNotAssigned}
|
|
<th .table__th>_{MsgNrSubmissionsNotCorrected}
|
|
<th .table__th colspan=3>_{MsgCorrectionTime}
|
|
$forall (sheetName, CorrectionInfo{ciSubmittors, ciSubmissions, ciAssigned, ciCorrected, ciMin, ciTot, ciMax}) <- Map.toList sheetMap
|
|
<tr .table__row>
|
|
<td .table__td>^{simpleLink (toWidget sheetName) (CSheetR tid ssh csh sheetName SSubsR)}
|
|
$if groupsPossible
|
|
<td .table__td>#{ciSubmittors}
|
|
$maybe ((splus,sfailed),_) <- Map.lookup sheetName assignment
|
|
<td .table__td>#{ciSubmissions}
|
|
<td .table__td .alert-success>(+#{show (Set.size splus)})
|
|
<td .table__td>#{ciSubmissions - ciAssigned}
|
|
<td .table__td .alert-danger>(#{show (Set.size sfailed)})
|
|
$nothing
|
|
<td .table__td colspan=2>#{ciSubmissions}
|
|
<td .table__td colspan=2>#{ciSubmissions - ciAssigned}
|
|
<td .table__td>#{ciSubmissions - ciCorrected}
|
|
<td .table__td>#{showDiffDays ciMin}
|
|
<td .table__td>#{showAvgsDays ciTot ciCorrected}
|
|
<td .table__td>#{showDiffDays ciMax}
|
|
<div>
|
|
<h2>_{MsgCorrectionCorrectors}
|
|
<table .table .table--striped .table--hover>
|
|
<tr .table__row .table__row--head>
|
|
<th .table__th>_{MsgCorrector}
|
|
<th .table__th>_{MsgNrSubmissionsTotal}
|
|
<th .table__th>_{MsgNrSubmissionsNotCorrected}
|
|
<th .table__th colspan=3>_{MsgCorrectionTime}
|
|
$forall shn <- sheetNames
|
|
<th .table__th colspan=5>#{shn}
|
|
$forall (CorrectionInfo{ciCorrector, ciSubmissions, ciCorrected, ciMin, ciTot, ciMax}) <- Map.elems corrMap
|
|
$with (nameW,loadM) <- getCorrector ciCorrector
|
|
<tr .table__row>
|
|
<td .table__td>^{nameW}
|
|
<td .table__td>#{ciSubmissions}
|
|
<td .table__td .heated style="--hotness: #{heat ciSubmissions ciCorrected}">#{ciSubmissions - ciCorrected}
|
|
<td .table__td>#{showDiffDays ciMin}
|
|
<td .table__td>#{showAvgsDays ciTot ciCorrected}
|
|
<td .table__td>#{showDiffDays ciMax}
|
|
$forall shn <- sheetNames
|
|
$maybe SheetCorrector{sheetCorrectorLoad, sheetCorrectorState} <- Map.lookup shn loadM
|
|
<td .table__td>#{showCompactCorrectorLoad sheetCorrectorLoad sheetCorrectorState}
|
|
$nothing
|
|
<td .table__td>
|
|
$maybe CorrectionInfo{ciAssigned,ciCorrected,ciTot} <- getCorrSheetStatus ciCorrector shn
|
|
$maybe nrNew <- getCorrNewAssignment ciCorrector shn
|
|
<td .table__td>#{ciAssigned}
|
|
<td .table__td .alert-success>(+#{nrNew})
|
|
$nothing
|
|
<td .table__td colspan=2>#{ciAssigned}
|
|
<td .table__td .heated style="--hotness: #{heat ciSubmissions ciCorrected}">#{ciAssigned - ciCorrected}
|
|
<td .table__td>#{showAvgsDays ciTot ciCorrected}
|
|
$nothing
|
|
<td .table__td colspan=5>
|
|
^{btnWdgt} |