21 lines
951 B
Plaintext
21 lines
951 B
Plaintext
<div .allocation-course id=#{toPathPiece cID}>
|
|
<div .allocation-course__priority>
|
|
$maybe prioView <- mApplyFormView' >>= afvPriority
|
|
^{fvInput prioView}
|
|
$nothing
|
|
_{MsgAllocationNoApplication}
|
|
<a .allocation-course__name href=@{CourseR courseTerm courseSchool courseShorthand CShowR}>
|
|
#{courseName}
|
|
$maybe aInst <- courseApplicationsInstructions
|
|
<div .allocation-course__instructions>
|
|
<p>
|
|
#{aInst}
|
|
$if hasApplicationTemplate
|
|
<p>
|
|
<a href=@{CourseR courseTerm courseSchool courseShorthand CRegisterTemplateR}>
|
|
#{iconRegisterTemplate} _{MsgCourseApplicationTemplateApplication}
|
|
$maybe ApplicationFormView{ ..} <- mApplyFormView'
|
|
<div .allocation-course__application uw-interactive-fieldset data-conditional-input=#{maybe "" fvId afvPriority} data-conditional-value="" data-conditional-negated>
|
|
^{renderFieldViews FormStandard afvForm}
|
|
^{snd afvButtons}
|