diff --git a/src/Handler/Home.hs b/src/Handler/Home.hs index b1e24ca7a..00e2c90c0 100644 --- a/src/Handler/Home.hs +++ b/src/Handler/Home.hs @@ -75,7 +75,7 @@ homeAnonymous = do let tid = courseTerm course csh = courseShorthand course cell [whamlet|#{display csh}|] - , sortable (Just "deadline") (i18nCell MsgDeadline) $ \DBRow{ dbrOutput=(Entity {entityVal = course}) } -> + , sortable (Just "deadline") (i18nCell MsgRegisterTo) $ \DBRow{ dbrOutput=(Entity {entityVal = course}) } -> textCell $ display $ courseRegisterTo course ] courseTable <- dbTable def $ DBTable diff --git a/templates/course.hamlet b/templates/course.hamlet index bab4e83c8..eefb2ce53 100644 --- a/templates/course.hamlet +++ b/templates/course.hamlet @@ -35,6 +35,7 @@ $if registrationOpen
+ $# regWidget is defined through templates/widgets/registerForm ^{regWidget} $#
diff --git a/templates/widgets/registerForm.hamlet b/templates/widgets/registerForm.hamlet index 0ea60e059..d20fc0cc8 100644 --- a/templates/widgets/registerForm.hamlet +++ b/templates/widgets/registerForm.hamlet @@ -1,4 +1,4 @@ -$# protects against CSRF +$# extra protects us against CSRF #{extra} $# Maybe display textField for passcode $maybe secretView <- msecretView