58 lines
2.0 KiB
Plaintext
58 lines
2.0 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;
|
|
}
|
|
.bold {
|
|
font-weight: bold;
|
|
}
|
|
<body>
|
|
<h1>
|
|
$case allocations
|
|
$of [Entity _ Allocation{allocationSchool, allocationName}]
|
|
_{SomeMessage $ MsgMailSubjectAllocationUnratedApplications allocationSchool allocationName}
|
|
$of _
|
|
_{SomeMessage $ MsgMailAllocationUnratedApplicationsIntroMultiple (length allocations)}
|
|
|
|
<p>
|
|
_{SomeMessage $ MsgMailAllocationUnratedApplications (length allocations)}
|
|
<ul>
|
|
$forall (Entity _ Allocation{allocationSchool, allocationName}, Entity _ Course{courseTerm, courseSchool, courseShorthand, courseName}, unrated) <- courses
|
|
<li>
|
|
<a href=@{CourseR courseTerm courseSchool courseShorthand CApplicationsR}>
|
|
#{courseName} #
|
|
(
|
|
_{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}, #
|
|
_{SomeMessage $ MsgMailAllocationUnratedApplicationsCount unrated}
|
|
)
|
|
|
|
$if doDeadlines
|
|
$if sameDeadlines
|
|
$maybe (_, allocationDeadline) <- preview _head deadlines
|
|
$maybe until <- allocationDeadline
|
|
<p>
|
|
_{SomeMessage $ MsgMailAllocationAllocationDeadline until}
|
|
$else
|
|
<p>
|
|
_{SomeMessage MsgMailAllocationAllocationDeadlineMultiple}
|
|
|
|
<ul>
|
|
$forall (Allocation{allocationSchool, allocationName}, allocationDeadline) <- deadlines
|
|
<li>
|
|
<p .bold>
|
|
_{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}
|
|
<p>
|
|
$maybe until <- allocationDeadline
|
|
_{SomeMessage $ MsgMailAllocationApplicationsAllocationDeadline until}
|
|
$nothing
|
|
_{SomeMessage MsgMailAllocationApplicationsAllocationDeadlineNothing}
|
|
|
|
|
|
^{ihamletSomeMessage editNotifications}
|