#{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} $if hasApplicationTemplate || is _Just courseApplicationsInstructions

_{MsgCourseApplicationInstructionsApplication}

$maybe aInst <- courseApplicationsInstructions

#{aInst} $if hasApplicationTemplate

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

_{MsgCourseApplication}

^{renderFieldViews FormStandard afvForm} ^{snd afvButtons}