67 lines
2.5 KiB
Plaintext
67 lines
2.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;
|
|
}
|
|
.bold {
|
|
font-weight: bold;
|
|
}
|
|
<body>
|
|
<h1>
|
|
$case allocations
|
|
$of [Entity _ Allocation{allocationSchool, allocationName}]
|
|
_{SomeMessage $ MsgMailSubjectAllocationAllocation allocationSchool allocationName}
|
|
$of _
|
|
_{SomeMessage $ MsgMailAllocationAllocationIntroMultiple (length allocations)}
|
|
|
|
<p>
|
|
_{SomeMessage $ MsgMailAllocationAllocation (length allocations)}
|
|
<ul>
|
|
$forall (Entity _ Allocation{allocationSchool, allocationName}, Entity _ Course{courseTerm, courseSchool, courseShorthand, courseName}) <- courses
|
|
<li>
|
|
<a href=@{CourseR courseTerm courseSchool courseShorthand CApplicationsR}>
|
|
#{courseName} (_{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName})
|
|
|
|
$if doDeadlines
|
|
$if sameDeadlines
|
|
$maybe (_, registerDeadline, allocationDeadline) <- preview _head deadlines
|
|
$maybe until <- guardOnM doRegisterDeadlines registerDeadline
|
|
<p>
|
|
_{SomeMessage $ MsgMailAllocationApplicationsMayChange until}
|
|
|
|
$maybe until <- allocationDeadline
|
|
<p>
|
|
_{SomeMessage $ MsgMailAllocationAllocationDeadline until}
|
|
$else
|
|
$if doRegisterDeadlines
|
|
<p>
|
|
_{SomeMessage MsgMailAllocationApplicationsMayChangeMultiple}
|
|
<p>
|
|
_{SomeMessage MsgMailAllocationAllocationDeadlineMultiple}
|
|
|
|
<ul>
|
|
$forall (Allocation{allocationSchool, allocationName}, registerDeadline, allocationDeadline) <- deadlines
|
|
<li>
|
|
<p .bold>
|
|
_{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}
|
|
$if doRegisterDeadlines
|
|
<p>
|
|
$maybe until <- registerDeadline
|
|
_{SomeMessage $ MsgMailAllocationApplicationsRegisterDeadline until}
|
|
$nothing
|
|
_{SomeMessage MsgMailAllocationApplicationsRegisterDeadlineNothing}
|
|
<p>
|
|
$maybe until <- allocationDeadline
|
|
_{SomeMessage $ MsgMailAllocationApplicationsAllocationDeadline until}
|
|
$nothing
|
|
_{SomeMessage MsgMailAllocationApplicationsAllocationDeadlineNothing}
|
|
|
|
|
|
^{ihamletSomeMessage editNotifications}
|