54 lines
1.9 KiB
Plaintext
54 lines
1.9 KiB
Plaintext
<div .scrolltable>
|
|
<table .table .table--striped .table--vertical>
|
|
<tr .table__row>
|
|
<th .table__th>_{MsgSubmission}
|
|
<td .table__td>#{cid}
|
|
$maybe Entity _ User{userDisplayName, userSurname, userEmail} <- corrector
|
|
<tr .table__row>
|
|
<th .table__th>_{MsgRatingBy}
|
|
<td .table__td>^{nameEmailWidget userEmail userDisplayName userSurname}
|
|
$maybe time <- submissionRatingTime
|
|
<tr .table__row>
|
|
<th .table__th>_{MsgRatingTime}
|
|
<td .table__td>^{formatTimeW SelFormatDateTime time}
|
|
|
|
$maybe points <- submissionRatingPoints
|
|
$maybe grading <- preview _grading sheetType
|
|
$case grading
|
|
$of Points{..}
|
|
<tr .table__row>
|
|
<th .table__th>_{sheetType}
|
|
<td .table__td>_{MsgAchievedOf points maxPoints}
|
|
$of PassPoints{..}
|
|
<tr .table__row>
|
|
<th .table__th>_{sheetType}
|
|
<td .table__td>
|
|
$if fromMaybe False (gradingPassed grading points)
|
|
_{MsgPassed}
|
|
$else
|
|
_{MsgNotPassed}
|
|
<tr .table__row>
|
|
<th .table__th>_{MsgAchievedPassPoints}
|
|
<td .table__td>_{MsgPassAchievedOf points passingPoints maxPoints}
|
|
$of PassBinary
|
|
<tr .table__row>
|
|
<th .table__th>_{sheetType}
|
|
<td .table__td>
|
|
$if fromMaybe False (gradingPassed grading points)
|
|
_{MsgPassed}
|
|
$else
|
|
_{MsgNotPassed}
|
|
$of PassAlways
|
|
|
|
$if filesCorrected
|
|
<tr .table__row>
|
|
<th .table__th>_{MsgRatingFiles}
|
|
<td .table__td>
|
|
<a href=@{CSubmissionR courseTerm courseSchool courseShorthand sheetName cid $ SubArchiveR SubmissionCorrected}>
|
|
_{MsgRatingUpdatedFiles}
|
|
|
|
$maybe comment <- ratingComment
|
|
<tr .table__row>
|
|
<th .table__th>_{MsgRatingComment}
|
|
<td .table__td .comment>#{comment}
|