$newline never $# SPDX-FileCopyrightText: 2022 Gregor Kleen ,Winnie Ros $# $# SPDX-License-Identifier: AGPL-3.0-or-later
^{formWidget} $maybe (courses, intersections, mapIntersect, allUsersUnion, allUsersIntersection) <- intersectionsRes
$forall (l, Entity lCid Course{courseTerm, courseSchool, courseShorthand}) <- lIxed courses
$forall Entity _ Course{courseTerm, courseSchool, courseShorthand} <- courses #{courseTerm}-#{courseSchool}-#{courseShorthand} _{MsgParticipantsIntersectNotOne}
#{courseTerm}-#{courseSchool}-#{courseShorthand} $forall (u, Entity uCid _) <- lIxed courses $if l > u $else $with n <- symmIntersection intersections lCid uCid $if showNumber n lCid uCid #{n} $maybe num <- Map.lookup lCid mapIntersect #{num}

_{MsgAllUsersUnion}: # #{allUsersUnion}

_{MsgAllUsersIntersection}: # #{allUsersIntersection}