59 lines
2.1 KiB
Plaintext
59 lines
2.1 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 allocs
|
|
$of [Allocation{allocationSchool, allocationName}]
|
|
_{SomeMessage $ MsgMailSubjectAllocationRegister allocationSchool allocationName}
|
|
$of _
|
|
_{SomeMessage $ MsgMailAllocationRegisterIntroMultiple (length allocs)}
|
|
|
|
<p>
|
|
_{SomeMessage $ MsgMailAllocationRegister (length allocs)}
|
|
|
|
$case allocs
|
|
$of [Allocation{allocationTerm, allocationSchool, allocationShorthand, allocationName}]
|
|
<a href=@{AllocationR allocationTerm allocationSchool allocationShorthand AShowR}>
|
|
_{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}
|
|
$of _
|
|
<ul>
|
|
$forall Allocation{allocationTerm, allocationSchool, allocationShorthand, allocationName} <- allocs
|
|
<li>
|
|
<a href=@{AllocationR allocationTerm allocationSchool allocationShorthand AShowR}>
|
|
_{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}
|
|
|
|
$if doRegisterDeadlines
|
|
$if singleRegisterDeadline
|
|
$maybe (_, registerDeadline) <- preview _head deadlines
|
|
$maybe until <- registerDeadline
|
|
<p>
|
|
_{SomeMessage $ MsgMailAllocationRegisterDeadline until}
|
|
$else
|
|
<p>
|
|
_{SomeMessage $ MsgMailAllocationRegisterDeadlineMultiple}
|
|
|
|
<ul>
|
|
$forall (Allocation{allocationSchool, allocationName}, registerDeadline) <- deadlines
|
|
<li>
|
|
<p .bold>
|
|
_{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}
|
|
<p>
|
|
$maybe until <- registerDeadline
|
|
_{SomeMessage $ MsgMailAllocationRegisterDeadlineSingle until}
|
|
$nothing
|
|
_{SomeMessage MsgMailAllocationRegisterDeadlineSingleNothing}
|
|
|
|
^{ihamletSomeMessage editNotifications}
|