$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}