69 lines
3.4 KiB
Plaintext
69 lines
3.4 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=4>#{shn}
|
|
$forall (CorrectionInfo{ciCorrector, ciSubmissions, ciCorrected, ciMin, ciTot, ciMax}) <- Map.elems corrMap
|
|
<tr .table__row>
|
|
<td .table__td>^{showCorrector ciCorrector}
|
|
<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 smap <- Map.lookup shn infoMap
|
|
$maybe CorrectionInfo{ciAssigned,ciCorrected,ciTot} <- Map.lookup ciCorrector smap
|
|
$maybe (_,cass) <- Map.lookup shn assignment
|
|
$maybe nrNew <- Map.lookup ciCorrector cass
|
|
<td .table__td>#{ciAssigned}
|
|
<td .table__td .alert-success>(+#{nrNew})
|
|
<td .table__td .heated style="--hotness: #{heat ciSubmissions ciCorrected}">#{ciAssigned - ciCorrected}
|
|
<td .table__td>#{showAvgsDays ciTot ciCorrected}
|
|
$nothing
|
|
<td .table__td colspan=2>#{ciAssigned}
|
|
<td .table__td>#{ciAssigned - ciCorrected}
|
|
<td .table__td>#{showAvgsDays ciTot ciCorrected}
|
|
$nothing
|
|
<td .table__td colspan=2>#{ciAssigned}
|
|
<td .table__td>#{ciAssigned - ciCorrected}
|
|
<td .table__td>#{showAvgsDays ciTot ciCorrected}
|
|
$nothing
|
|
<td .table__td colspan=4>
|
|
$nothing
|
|
<td .table__td colspan=4>
|
|
^{btnWdgt} |