58 lines
1.8 KiB
Plaintext
58 lines
1.8 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>
|
|
$case allocs
|
|
$of [Allocation{allocationSchool, allocationName}]
|
|
<h1>
|
|
_{SomeMessage $ MsgMailSubjectAllocationStaffRegister allocationSchool allocationName}
|
|
$of _
|
|
<h1>
|
|
_{SomeMessage $ MsgMailAllocationStaffRegisterIntroMultiple (length allocs)}
|
|
|
|
<ul>
|
|
$forall Allocation{allocationName, allocationSchool} <- allocs
|
|
<li>
|
|
_{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}
|
|
|
|
<p>
|
|
_{SomeMessage MsgMailAllocationStaffRegisterNewCourse}
|
|
<br>
|
|
<a href=@{CourseNewR}>
|
|
_{SomeMessage MsgCourseNew}
|
|
|
|
$if doRegisterDeadlines
|
|
$if singleRegisterDeadline
|
|
$maybe (_, registerDeadline) <- preview _head deadlines
|
|
$maybe until <- registerDeadline
|
|
<p>
|
|
_{SomeMessage $ MsgMailAllocationStaffRegisterDeadline (length allocs) until}
|
|
$else
|
|
<p>
|
|
_{SomeMessage $ MsgMailAllocationStaffRegisterDeadlineMultiple}
|
|
|
|
<ul>
|
|
$forall (Allocation{allocationSchool, allocationName}, staffRegisterDeadline) <- deadlines
|
|
<li>
|
|
<p .bold>
|
|
_{SomeMessage $ MsgMailAllocationSchoolAndName allocationSchool allocationName}
|
|
<p>
|
|
$maybe until <- staffRegisterDeadline
|
|
_{SomeMessage $ MsgMailAllocationStaffRegisterDeadlineSingle until}
|
|
$nothing
|
|
_{SomeMessage MsgMailAllocationStaffRegisterDeadlineSingleNothing}
|
|
|
|
|
|
^{ihamletSomeMessage editNotifications}
|