62 lines
1.7 KiB
Plaintext
62 lines
1.7 KiB
Plaintext
$newline never
|
|
|
|
$# SPDX-FileCopyrightText: 2022 Gregor Kleen <gregor.kleen@ifi.lmu.de>,Winnie Ros <winnie.ros@campus.lmu.de>
|
|
$#
|
|
$# SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
$maybe ExternalExamResult{externalExamResultResult} <- mResult
|
|
<section>
|
|
<h2>
|
|
_{MsgExternalExamResult}
|
|
|
|
<p .result>
|
|
$case externalExamResultResult
|
|
$of ExamAttended grade
|
|
_{grade}
|
|
$of ExamNoShow
|
|
_{MsgExternalExamNoShow}
|
|
$of ExamVoided
|
|
_{MsgExternalExamVoided}
|
|
|
|
<section>
|
|
<dl .deflist>
|
|
<dt .deflist__dt>_{MsgTableTerm}
|
|
<dd .deflist__dd>
|
|
_{unTermKey externalExamTerm}
|
|
<dt .deflist__dt>_{MsgTableCourseSchool}
|
|
<dd .deflist__dd>
|
|
#{schoolName}
|
|
<dt .deflist__dt>_{MsgExternalExamCourseName}
|
|
<dd .deflist__dd>
|
|
#{externalExamCourseName}
|
|
<dt .deflist__dt>_{MsgTableExamName}
|
|
<dd .deflist__dd>
|
|
#{externalExamExamName}
|
|
$maybe examTime <- fmap externalExamResultTime mResult <|> externalExamDefaultTime
|
|
<dt .deflist__dt>
|
|
_{MsgTableExamTime}
|
|
<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 _ usr)
|
|
<li>
|
|
^{userEmailWidget usr}
|
|
$of Left email
|
|
<li .email>
|
|
#{email}
|
|
|