46 lines
1.6 KiB
Plaintext
46 lines
1.6 KiB
Plaintext
<div .scrolltable>
|
|
<table .table .table--striped .table--hover .table--vertical>
|
|
<tr .table__row>
|
|
<th .table__th>_{MsgSubmission}
|
|
<td .table__td>#{display cid}
|
|
$maybe Entity _ User{userDisplayName} <- corrector
|
|
<tr .table__row>
|
|
<th .table__th>_{MsgRatingBy}
|
|
<td .table__td>#{display userDisplayName}
|
|
$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>#{sheetTypeDesc}
|
|
<td .table__td>_{MsgAchievedOf points maxPoints}
|
|
$of PassPoints{..}
|
|
<tr .table__row>
|
|
<th .table__th>#{sheetTypeDesc}
|
|
<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>#{sheetTypeDesc}
|
|
<td .table__td>
|
|
$if fromMaybe False (gradingPassed grading points)
|
|
_{MsgPassed}
|
|
$else
|
|
_{MsgNotPassed}
|
|
|
|
$maybe comment <- ratingComment
|
|
<tr .table__row>
|
|
<th .table__th>_{MsgRatingComment}
|
|
<td .table__td .comment>#{comment}
|