$# 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)}