$newline never $# SPDX-FileCopyrightText: 2022 Felix Hamann ,Gregor Kleen ,Sarah Vaupel ,Sarah Vaupel ,Steffen Jost ,Winnie Ros $# $# SPDX-License-Identifier: AGPL-3.0-or-later

_{MsgCourseNews} $if not visibleNews \ #{iconInvisible}

$if not (null news)

toPathPiece cID}> $case (courseNewsTitle, courseNewsSummary) $# $of (Just title, Just summary) $#
$# ^{modal (toWidget title) (Left (SomeRoute (CNewsR tid ssh csh cID CNShowR)))} $# $if not isVisible $# \ #{iconInvisible} $#
$# #{summary} $of (_, Just summary) $if not isVisible
#{iconInvisible}
^{modal (toWidget summary) (Left (SomeRoute (CNewsR tid ssh csh cID CNShowR)))} $of (Just title, Nothing)
#{title} $if not isVisible \ #{iconInvisible}
#{courseNewsContent} $of (Nothing, Nothing) $if not isVisible
#{iconInvisible}
#{courseNewsContent} $if showNewsFiles files
$forall ((_, fp), fileUrl) <- filter (not . view (_1 . _1)) files
#{fp} $elseif not (null files)
#{iconFileZip} \ _{MsgCourseNewsFiles}
_{MsgCourseNewsLastEdited lastEditText} $if mayEditNews || mayDelete
$if mayEditNews
^{modal (i18n MsgCourseNewsActionEdit) (Left (SomeRoute (CNewsR tid ssh csh cID CNEditR)))} $if mayDelete
^{modal (i18n MsgCourseNewsActionDelete) (Left (SomeRoute (CNewsR tid ssh csh cID CNDeleteR)))} $if mayCreateNews
^{modal (i18n MsgCourseNewsActionCreate) (Left (SomeRoute (CourseR tid ssh csh CNewsNewR)))} $maybe descr <- courseDescription course
_{MsgCourseDescription}

#{descr}
_{MsgTableCourseSchool}
#{schoolName} $if length courseQualifications > 0
_{MsgCourseQualifications (length courseQualifications)}

$forall Entity{entityVal=Qualification{qualificationName=qName,qualificationShorthand=qShort}} <- courseQualifications
#{qName} $with numlecs <- length lecturers $if numlecs /= 0 $if numlecs > 1
_{MsgLecturersFor} $else
_{MsgLecturerFor}

$forall lect <- lecturers
^{nameEmailWidget' lect} $with numassi <- length assistants $if numassi /= 0 $if numassi > 1
_{MsgAssistantsFor} $else
_{MsgAssistantFor}

$forall assi <- assistants
^{nameEmailWidget' assi} $with numadmins <- length administrators $if numadmins /= 0
_{MsgCourseAdminFor}

$forall admin <- administrators
^{nameEmailWidget' admin} $with numtutor <- length tutors $if numtutor /= 0
_{MsgTutorsFor numtutor}

$forall tutor <- tutors
^{nameEmailWidget' tutor} $with numcorrector <- length correctors $if numcorrector /= 0
_{MsgCorrectorsFor numcorrector}

$forall corrector <- correctors
^{nameEmailWidget' corrector} $maybe link <- courseLinkExternal course
_{MsgCourseHomepageExternal}
#{iconLink} \ #{uriToString id link mempty} $# $if NTop (Just 0) < NTop (courseCapacity course)
_{MsgCourseParticipantsHeading}
$maybe capacity <- courseCapacity course _{MsgCourseParticipantsCountOf participants capacity} $nothing _{MsgCourseParticipantsCount participants} $if mayEdit
$if isJust courseVisibleFrom && isNothing courseVisibleTo _{MsgCourseVisibleFrom} $else _{MsgCourseVisibility} \ #{iconInvisible}

$maybe visFrom <- courseVisibleFrom ^{formatTimeRangeW SelFormatDateTime visFrom courseVisibleTo}
$if NTop (Just now) < NTop courseVisibleFrom _{MsgCourseInvisible} $maybe regFrom <- courseRegisterFrom course
_{MsgCourseRegistrationInterval}

^{formatTimeRangeW SelFormatDateTime regFrom (courseRegisterTo course)} $maybe dereg <- mDereg
_{MsgCourseDeregisterUntil dereg} $maybe mGroup <- submissionGroup
_{MsgTableSubmissionGroup}
$maybe groupName <- mGroup #{groupName} $nothing _{MsgTableNoSubmissionGroup} $if registrationOpen || isJust registration
_{MsgCourseRegistration}

$maybe CourseParticipant{courseParticipantRegistration} <- registration _{MsgRegisteredSince} \ ^{formatTimeW SelFormatDateTime courseParticipantRegistration} $nothing _{MsgNotRegistered}
$if registrationOpen $# regForm is defined through templates/widgets/registerForm ^{regForm}
_{MsgCourseMaterial}
$if mayViewSheets $if mayViewAnySheet _{MsgCourseSheetsFoundHere}: # _{MsgSheetListCourse} $else _{MsgCourseSheetsNoneVisible} $if mayViewMaterials
$if mayViewAnyMaterial _{MsgCourseMaterialsFoundHere}: # _{MsgMaterialList} $else _{MsgCourseMaterialsNoneVisible}
$if courseMaterialFree course _{MsgCourseMaterialFree} $else _{MsgCourseMaterialNotFree} $if hasExams
_{MsgCourseExams}
^{examTable} $if not (null events) || mayCreateEvents
_{MsgCourseEvents} $if null events \ #{iconInvisible}

$forall (cID, CourseEvent{courseEventType, courseEventTime, courseEventRoom, courseEventNote}, showRoom) <- events toPathPiece cID}>

_{MsgCourseEventType} _{MsgCourseEventTime} _{MsgCourseEventRoom} _{MsgCourseEventNote} $if mayCreateEvents _{MsgCourseEventActions} \ #{iconInvisible}

#{courseEventType}

^{occurrencesWidget courseEventTime}
$if showRoom
$maybe room <- courseEventRoom ^{roomReferenceWidget room} $nothing _{MsgCourseEventRoomIsUnset} $else
_{MsgCourseEventRoomIsHidden}

#{courseEventNote} $if mayCreateEvents

^{modal (i18n MsgCourseEventsActionEdit) (Left (SomeRoute (CEventR tid ssh csh cID CEvEditR)))}
^{modal (i18n MsgCourseEventsActionDelete) (Left (SomeRoute (CEventR tid ssh csh cID CEvDeleteR)))} $if mayCreateEvents

^{modal (i18n MsgCourseEventsActionCreate) (Left (SomeRoute (CourseR tid ssh csh CEventsNewR)))} $if hasTutorials
_{MsgCourseTutorials}
^{tutorialTable}