$newline never

$# SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>,Sarah Vaupel <vaupel.sarah@campus.lmu.de>,Steffen Jost <jost@tcs.ifi.lmu.de>,Winnie Ros <winnie.ros@campus.lmu.de>
$#
$# SPDX-License-Identifier: AGPL-3.0-or-later

<div .scrolltable>
  <table .table .table--striped .table--vertical>
    <tr .table__row>
      <th .table__th>_{MsgTableSubmission}
      <td .table__td>#{cid}
    $maybe Entity _ usr <- corrector
      <tr .table__row>
        <th .table__th>_{MsgRatingBy}
        <td .table__td>^{userEmailWidget usr}
    $maybe time <- submissionRatingTime
      <tr .table__row>
        <th .table__th>_{MsgTableRatingTime}
        <td .table__td>^{formatTimeW SelFormatDateTime time}
    
    $maybe points <- submissionRatingPoints
      $maybe grading <- preview _grading sheetType
        $case grading 
          $of Points{..}
            <tr .table__row>
              <th .table__th>^{sheetTypeDesc tr}
              <td .table__td>_{MsgTableAchievedOf points maxPoints}
          $of PassPoints{..}
            <tr .table__row>
              <th .table__th>^{sheetTypeDesc tr}
              <td .table__td>
                $if fromMaybe False (gradingPassed grading points)
                  _{MsgTablePassed}
                $else
                  _{MsgTableNotPassed}
            <tr .table__row>
              <th .table__th>_{MsgAchievedPassPoints}
              <td .table__td>_{MsgPassAchievedOf points passingPoints maxPoints}
          $of PassBinary
            <tr .table__row>
              <th .table__th>^{sheetTypeDesc tr}
              <td .table__td>
                $if fromMaybe False (gradingPassed grading points)
                  _{MsgTablePassed}
                $else
                  _{MsgTableNotPassed}
          $of PassAlways

    $if filesCorrected
      <tr .table__row>
        <th .table__th>_{MsgRatingFiles}
        <td .table__td>
          <a href=#{urlArchive}>
            _{MsgRatingUpdatedFiles}

    $maybe comment <- ratingComment
      <tr .table__row>
        <th .table__th>_{MsgRatingComment}
        <td .table__td .comment>#{comment}
