42 lines
1.1 KiB
Plaintext
42 lines
1.1 KiB
Plaintext
$newline never
|
|
$maybe ExternalExamResult{externalExamResultResult} <- mResult
|
|
<section>
|
|
<h2>
|
|
_{MsgExamResult}
|
|
|
|
<p .result>
|
|
$case externalExamResultResult
|
|
$of ExamAttended grade
|
|
$if externalExamShowGrades
|
|
_{grade}
|
|
$else
|
|
$if view (passingGrade . _Wrapped) grade
|
|
_{MsgExamPassed}
|
|
$else
|
|
_{MsgExamNotPassed}
|
|
$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}
|
|
|