$newline never $# extra protects us against CSRF #{extra} $# Maybe display textField for passcode $maybe secretView <- msecretView ^{fvLabel secretView} ^{fvInput secretView} $# Ask for associated primary field uf study, unless registered $maybe sfView <- msfView ^{fvLabel sfView} ^{fvInput sfView} $# Always display register/deregister button ^{fvInput btnView}