#{iconOK} \ _{MsgRegistered} $if is _Just muid

_{MsgAllocationPriority}

$maybe prioView <- mApplyFormView' >>= afvPriority ^{fvWidget prioView} $nothing _{MsgAllocationNoApplication} #{courseName} $if not courseVisible && mayEdit \ #{iconInvisible} $if isAdmin

$maybe deadline <- allocationCourseAcceptSubstitutes _{MsgCourseAllocationCourseAcceptsSubstitutesUntil}: # ^{formatTimeW SelFormatDateTime deadline} $nothing _{MsgCourseAllocationCourseAcceptsSubstitutesNever} $if allocationCourseAcceptSubstitutes >= Just now \ ^{iconOK}

_{MsgCourseAllocationCourseParticipants}: $maybe capacity <- courseCapacity \ _{MsgCourseMembersCountLimited partCount capacity} $if partCount < capacity \ ^{iconProblem} $nothing \ _{MsgCourseMembersCount partCount} \ ^{iconProblem} $if hasApplicationTemplate || is _Just courseApplicationsInstructions

_{MsgCourseApplicationInstructionsApplication}

$maybe aInst <- courseApplicationsInstructions

#{aInst} $maybe templateUrl <- mApplicationTemplate

#{iconRegisterTemplate} _{MsgCourseApplicationTemplateApplication} $maybe ApplicationFormView{ ..} <- mApplyFormView'

_{MsgCourseApplication}

^{renderFieldViews FormStandard afvForm} ^{snd afvButtons}