73 lines
2.2 KiB
Plaintext
73 lines
2.2 KiB
Plaintext
$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
|
|
|
|
\<!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>
|
|
_{SomeMessage (MsgMailSubmissionRatedIntro (CI.original courseName) termDesc)}
|
|
<dl>
|
|
<dt>
|
|
_{SomeMessage MsgTableSubmission}
|
|
<dd>
|
|
<a href=@{CSubmissionR tid ssh csh shn csid SubShowR}>
|
|
#{csid}
|
|
$maybe User{userDisplayName, userSurname, userEmail} <- corrector
|
|
<dt>
|
|
_{SomeMessage MsgRatingBy}
|
|
<dd>
|
|
#{nameEmailHtml userEmail userDisplayName userSurname}
|
|
$maybe time <- submissionRatingTime'
|
|
<dt>
|
|
_{SomeMessage MsgTableRatingTime}
|
|
<dd>
|
|
#{time}
|
|
<dt> ^{sheetTypeDesc}
|
|
$maybe points <- submissionRatingPoints
|
|
$maybe grading <- preview _grading sheetType
|
|
$case grading
|
|
$of Points{..}
|
|
<dd>
|
|
_{SomeMessage (MsgAchievedOf points maxPoints)}
|
|
$of PassPoints{..}
|
|
<dd>
|
|
$if fromMaybe False (gradingPassed grading points)
|
|
_{SomeMessage MsgPassed}
|
|
$else
|
|
_{SomeMessage MsgNotPassed}
|
|
<dt>
|
|
_{SomeMessage MsgAchievedPassPoints}
|
|
<dd>
|
|
_{SomeMessage (MsgPassAchievedOf points passingPoints maxPoints)}
|
|
$of PassBinary
|
|
<dd>
|
|
$if fromMaybe False (gradingPassed grading points)
|
|
_{SomeMessage MsgPassed}
|
|
$else
|
|
_{SomeMessage MsgNotPassed}
|
|
$of PassAlways
|
|
<dd>
|
|
|
|
$maybe comment <- submissionRatingComment
|
|
<dt>
|
|
_{SomeMessage MsgRatingComment}
|
|
<dd .comment>
|
|
#{comment}
|
|
^{ihamletSomeMessage editNotifications}
|