$newline never

_{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}
_{MsgCourseSchool}
#{schoolName} $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 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 $if hasAllocationRegistrationOpen _{MsgCourseInvisibleOverridenByAllocation} $else _{MsgCourseInvisible} $maybe (Allocation{allocationName, allocationRegisterByCourse}, url) <- mAllocation'
_{MsgCourseAllocation}
#{allocationName} $maybe regFrom <- allocationRegisterByCourse $maybe regFrom' <- courseRegisterFrom course $with regFrom'' <- max regFrom regFrom' $if NTop (Just regFrom'') <= NTop (courseRegisterTo course)
_{MsgCourseDirectRegistrationInterval}

^{formatTimeRangeW SelFormatDateTime regFrom'' (courseRegisterTo course)} $maybe dereg <- mDereg
_{MsgCourseDeregisterUntil dereg} $nothing $maybe regFrom <- courseRegisterFrom course
_{MsgCourseRegistrationInterval}

^{formatTimeRangeW SelFormatDateTime regFrom (courseRegisterTo course)} $maybe dereg <- mDereg
_{MsgCourseDeregisterUntil dereg} $maybe aInst <- courseApplicationsInstructions course
$if courseApplicationsRequired course _{MsgCourseApplicationInstructionsApplication} $else _{MsgCourseApplicationInstructionsRegistration}

#{aInst} $maybe templateUrl <- mApplicationTemplate
#{iconRegisterTemplate} # $if courseApplicationsRequired course _{MsgCourseApplicationTemplateApplication} $else _{MsgCourseApplicationTemplateRegistration} $nothing $maybe templateUrl <- mApplicationTemplate
$if courseApplicationsRequired course _{MsgCourseApplicationInstructionsApplication} $else _{MsgCourseApplicationInstructionsRegistration}
#{iconRegisterTemplate} # $if courseApplicationsRequired course _{MsgCourseApplicationTemplateApplication} $else _{MsgCourseApplicationTemplateRegistration} $maybe mGroup <- submissionGroup
_{MsgSubmissionGroup}
$maybe groupName <- mGroup #{groupName} $nothing _{MsgNoSubmissionGroup} $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} $if (isJust mApplication && courseApplicationsRequired course) && mayReRegister
_{MsgCourseApplicationDeleteToEdit}
_{MsgCourseMaterial}
$if mayViewSheets $if mayViewAnySheet _{MsgCourseSheetsFoundHere}: # _{MsgMenuSheetList} $else _{MsgCourseSheetsNoneVisible} $if mayViewMaterials
$if mayViewAnyMaterial _{MsgCourseMaterialsFoundHere}: # _{MsgMenuMaterialList} $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, courseEventCurrentOpt, mEventScheduleOpt) <- events toPathPiece cID}>

_{MsgCourseEventType} _{MsgCourseEventTime} _{MsgCourseEventRoom} _{MsgCourseEventNote} $# TODO: merge with actions column $if is _Just mbAuth _{MsgScheduleOptActions} $if mayCreateEvents _{MsgCourseEventActions} \ #{iconInvisible}

#{courseEventType}

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

#{courseEventNote} $# TODO: merge with actions column $if is _Just mbAuth

_{bool MsgScheduleOptIn MsgScheduleOptOut courseEventCurrentOpt} $if is _Just mEventScheduleOpt _{MsgScheduleOptDelete} $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} $maybe (_, user) <- mbAuth
_{MsgScheduleOptActions}
_{bool MsgCourseScheduleOptIn MsgCourseScheduleOptOut (courseScheduleOptToggleValue user)} $if is _Just mCourseScheduleOpt _{MsgCourseScheduleOptDelete}