57 lines
1.6 KiB
Plaintext
57 lines
1.6 KiB
Plaintext
$newline never
|
|
$maybe ExternalExamResult{externalExamResultResult} <- mResult
|
|
<section>
|
|
<h2>
|
|
_{MsgExamResult}
|
|
|
|
<p .result>
|
|
$case externalExamResultResult
|
|
$of ExamAttended grade
|
|
_{grade}
|
|
$of ExamNoShow
|
|
_{MsgExamNoShow}
|
|
$of ExamVoided
|
|
_{MsgExamVoided}
|
|
|
|
<section>
|
|
<dl .deflist>
|
|
<dt .deflist__dt>_{MsgTerm}
|
|
<dd .deflist__dd>
|
|
_{unTermKey externalExamTerm}
|
|
<dt .deflist__dt>_{MsgCourseSchool}
|
|
<dd .deflist__dd>
|
|
#{schoolName}
|
|
<dt .deflist__dt>_{MsgCourseName}
|
|
<dd .deflist__dd>
|
|
#{externalExamCourseName}
|
|
<dt .deflist__dt>_{MsgExamName}
|
|
<dd .deflist__dd>
|
|
#{externalExamExamName}
|
|
$maybe examTime <- fmap externalExamResultTime mResult <|> externalExamDefaultTime
|
|
<dt .deflist__dt>
|
|
_{MsgExamTime}
|
|
<dd .deflist__dd>
|
|
^{formatTimeW SelFormatDateTime examTime}
|
|
$if not (null addSchools)
|
|
<dt .deflist__dt>
|
|
_{MsgExternalExamExamOfficeSchools}
|
|
<dd .deflist__dd>
|
|
<ul>
|
|
$forall Entity _ School{schoolName} <- addSchools
|
|
<li>
|
|
#{schoolName}
|
|
$if not (null staff)
|
|
<dt .deflist__dt>
|
|
_{MsgExternalExamStaff}
|
|
<dd .deflist__dd>
|
|
<ul>
|
|
$forall s <- staff
|
|
$case s
|
|
$of Right (Entity _ User{userDisplayName, userDisplayEmail, userSurname})
|
|
<li>
|
|
^{nameEmailWidget userDisplayEmail userDisplayName userSurname}
|
|
$of Left email
|
|
<li .email>
|
|
#{email}
|
|
|