66 lines
1.6 KiB
Plaintext
66 lines
1.6 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{..} <- corrector
|
|
<dt>
|
|
_{MsgRatingBy}
|
|
<dd>
|
|
#{display userDisplayName}
|
|
$maybe time <- submissionRatingTime'
|
|
<dt>
|
|
_{MsgRatingTime}
|
|
<dd>
|
|
#{time}
|
|
$maybe points <- submissionRatingPoints
|
|
$case sheetType
|
|
$of Bonus{..}
|
|
<dt>
|
|
_{MsgAchievedBonusPoints}
|
|
<dd>
|
|
_{MsgAchievedOf points maxPoints}
|
|
$of Normal{..}
|
|
<dt>
|
|
_{MsgAchievedNormalPoints}
|
|
<dd>
|
|
_{MsgAchievedOf points maxPoints}
|
|
$of Pass{..}
|
|
<dt>
|
|
_{MsgPassedResult}
|
|
<dd>
|
|
$if points >= passingPoints
|
|
_{MsgPassed}
|
|
$else
|
|
_{MsgNotPassed}
|
|
<dt>
|
|
_{MsgAchievedPassPoints}
|
|
<dd>
|
|
_{MsgPassAchievedOf points passingPoints maxPoints}
|
|
$of NotGraded
|
|
$maybe comment <- submissionRatingComment
|
|
<dt>
|
|
_{MsgRatingComment}
|
|
<dd .comment>
|
|
#{comment}
|