47 lines
1.7 KiB
Plaintext
47 lines
1.7 KiB
Plaintext
$# Display a table showing the result of the corrector assignment for possibly several sheets
|
|
$# Expected variables"
|
|
$# sids :: list of SheetId
|
|
$# openSubs :: Map from SheetId to SubAssignInfo, a datatype collecting info about open submissions
|
|
$# status :: Map from SheetId to (Set SubmissionId, Set SubmisionId), i.e. assigned submissions and unassigned submissions for that sheet
|
|
<div .scrolltable>
|
|
<table .table .table--striped>
|
|
<tr .table__row .table__row--head>
|
|
<th .table__th>
|
|
_{MsgSheet}
|
|
<th .table__th>
|
|
_{MsgNrSubmissionsTotal}
|
|
<th .table__th>
|
|
_{MsgNrSubmissionsUnassigned}
|
|
<th .table__th>
|
|
_{MsgNrCorrectors}
|
|
<th .table__th>
|
|
_{MsgNrSubmissionsNewlyAssigned}
|
|
<th .table__th>
|
|
_{MsgNrSubmissionsNotAssigned}
|
|
|
|
$forall sid <- sids
|
|
$case Map.lookup sid openSubs
|
|
$of Nothing
|
|
<!-- Empty table row; should not occur. -->
|
|
$of Just SubAssignInfo{saiName, saiSubmissionNr, saiUnassignedNr, saiCorrectorNr}
|
|
<tr .table__row>
|
|
<td .table__td>
|
|
#{saiName}
|
|
<td .table__td>
|
|
#{show saiSubmissionNr}
|
|
<td .table__td>
|
|
#{show saiUnassignedNr}
|
|
<td .table__td>
|
|
#{show saiCorrectorNr}
|
|
$case Map.lookup sid status
|
|
$of Nothing
|
|
<td .table__td>
|
|
<!-- no newly assigned submission for this sheet -->
|
|
<td .table__td>
|
|
<!-- no newly unassigned submission for this sheet -->
|
|
$of Just (assigned,unassigned)
|
|
<td .table__td>
|
|
#{show (Set.size assigned)}
|
|
<td .table__td>
|
|
#{show (Set.size unassigned)}
|