53 lines
1.5 KiB
Plaintext
53 lines
1.5 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;
|
|
}
|
|
<body>
|
|
<h1>
|
|
_{SomeMessage $ MsgMailSubjectAllocationResults allocationName}
|
|
|
|
<p>
|
|
_{SomeMessage MsgAllocationResultsTip}
|
|
|
|
$if not (null warnSubstituteCourses)
|
|
<p>
|
|
_{SomeMessage MsgAllocationResultsLecturerSubstituteCoursesWarning}
|
|
<ul>
|
|
$forall Course{courseTerm, courseSchool, courseShorthand, courseName} <- warnSubstituteCourses
|
|
<li>
|
|
<a href=@{CourseR courseTerm courseSchool courseShorthand CEditR}>
|
|
#{courseName}
|
|
|
|
$if not (null lecturerResults)
|
|
<p>
|
|
_{SomeMessage MsgAllocationResultsLecturer}
|
|
<ul>
|
|
$forall msg <- lecturerResults
|
|
<li>_{msg}
|
|
|
|
$maybe pResults <- participantResults
|
|
<p>
|
|
_{SomeMessage MsgAllocationResultsStudentTip}
|
|
$case pResults
|
|
$of []
|
|
<p>_{SomeMessage MsgAllocationNoResultsStudent}
|
|
$of [csh]
|
|
<p>_{SomeMessage $ MsgAllocationResultStudent csh}
|
|
<p>_{SomeMessage MsgAllocationResultStudentRegistrationTip}
|
|
$of cshs
|
|
<p>
|
|
_{SomeMessage MsgAllocationResultsStudent}
|
|
<ul>
|
|
$forall csh <- cshs
|
|
<li>#{csh}
|
|
<p>_{SomeMessage MsgAllocationResultsStudentRegistrationTip}
|
|
|
|
^{ihamletSomeMessage editNotifications}
|