66 lines
1.7 KiB
Plaintext
66 lines
1.7 KiB
Plaintext
$newline never
|
|
\<!doctype html>
|
|
<html>
|
|
<head>
|
|
<meta charset="UTF-8">
|
|
<style>
|
|
h1 {
|
|
font-size: 1.25em;
|
|
font-variant: small-caps;
|
|
font-weight: normal;
|
|
}
|
|
|
|
.comment {
|
|
white-space: pre-wrap;
|
|
font-family: monospace;
|
|
}
|
|
<body>
|
|
<h1>
|
|
_{MsgMailSubmissionRatedIntro (CI.original courseName) termDesc}
|
|
<dl>
|
|
<dt>
|
|
_{MsgSubmission}
|
|
<dd>
|
|
<a href=@{CSubmissionR tid ssh csh shn csid SubShowR}>
|
|
#{display csid}
|
|
$maybe User{userDisplayName} <- corrector
|
|
<dt>
|
|
_{MsgRatingBy}
|
|
<dd>
|
|
#{display userDisplayName}
|
|
$maybe time <- submissionRatingTime'
|
|
<dt>
|
|
_{MsgRatingTime}
|
|
<dd>
|
|
#{time}
|
|
<dt> #{sheetTypeDesc}
|
|
$maybe points <- submissionRatingPoints
|
|
$maybe grading <- preview _grading sheetType
|
|
$case grading
|
|
$of Points{..}
|
|
<dd>
|
|
_{MsgAchievedOf points maxPoints}
|
|
$of PassPoints{..}
|
|
<dd>
|
|
$if fromMaybe False (gradingPassed grading points)
|
|
_{MsgPassed}
|
|
$else
|
|
_{MsgNotPassed}
|
|
<dt>
|
|
_{MsgAchievedPassPoints}
|
|
<dd>
|
|
_{MsgPassAchievedOf points passingPoints maxPoints}
|
|
$of PassBinary
|
|
<dd>
|
|
$if fromMaybe False (gradingPassed grading points)
|
|
_{MsgPassed}
|
|
$else
|
|
_{MsgNotPassed}
|
|
|
|
$maybe comment <- submissionRatingComment
|
|
<dt>
|
|
_{MsgRatingComment}
|
|
<dd .comment>
|
|
#{comment}
|
|
^{editNotifications}
|