$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) <- filter (not . view _1) files
#{fp} $elseif not (null files)
#{iconFileZip} \ _{MsgCourseNewsFiles}
_{MsgCourseNewsLastEdited lastEditText}

^{modal (i18n MsgCourseNewsActionEdit) (Left (SomeRoute (CNewsR tid ssh csh cID CNEditR)))}
^{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} \ #{link} $# $if NTop (Just 0) < NTop (courseCapacity course)
_{MsgCourseParticipantsHeading}
$maybe capacity <- courseCapacity course _{MsgCourseParticipantsCountOf participants capacity} $nothing _{MsgCourseParticipantsCount participants} $maybe (name, url) <- mAllocation'
_{MsgCourseAllocation}
#{name} $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} $if hasApplicationTemplate
#{iconRegisterTemplate} # $if courseApplicationsRequired course _{MsgCourseApplicationTemplateApplication} $else _{MsgCourseApplicationTemplateRegistration} $if registrationOpen || isJust registration
_{MsgCourseRegistration}

$if registrationOpen $# regForm is defined through templates/widgets/registerForm ^{regForm} $if isJust mApplication && courseApplicationsRequired course
_{MsgCourseApplicationDeleteToEdit} $else $if isJust registration
_{MsgCourseRegistrationDeleteToEdit} $maybe CourseParticipant{courseParticipantRegistration} <- registration _{MsgRegisteredSince} \ ^{formatTimeW SelFormatDateTime courseParticipantRegistration}
_{MsgCourseMaterial}
$if courseMaterialFree course _{MsgCourseMaterialFree} $else _{MsgCourseMaterialNotFree} $if hasExams
_{MsgCourseExams}
^{examTable} $if hasTutorials
_{MsgCourseTutorials}
^{tutorialTable}