setUserPasswordContent :: IHtml
setUserPasswordContent = do
  msg <- getI18N
  return $ do
    Bootstrap.row $ Bootstrap.colMd Bootstrap.colSize4 Bootstrap.colOffset4 $
      postForm (routeOf setUserPassword) `withId` (rFormId setStudentPwdForm) $ do
        Bootstrap.textInput     (B.name usernamePrm)           (msg $ msg_SetUserPassword_User "Username: ") ""
        Bootstrap.passwordInput (B.name studentNewPwdPrm)      (msg $ msg_SetUserPassword_NewPassword "New password: ")
        Bootstrap.passwordInput (B.name studentNewPwdAgainPrm) (msg $ msg_SetUserPassword_NewPasswordAgain "New password (again): ")
        Bootstrap.submitButton  (fieldName changePasswordBtn)  (msg $ msg_SetUserPassword_SetButton "Update")
  where
    setUserPassword = Pages.setUserPassword ()
setUserPasswordContent :: IHtml
setUserPasswordContent = do
  msg <- getI18N
  return $ do
    Bootstrap.row $ Bootstrap.colMd Bootstrap.colSize4 Bootstrap.colOffset4 $
      postForm (routeOf setUserPassword) `withId` (rFormId setStudentPwdForm) $ do
        Bootstrap.textInput     (B.name usernamePrm)           (msg $ msg_SetUserPassword_User "Username: ") ""
        Bootstrap.passwordInput (B.name studentNewPwdPrm)      (msg $ msg_SetUserPassword_NewPassword "New password: ")
        Bootstrap.passwordInput (B.name studentNewPwdAgainPrm) (msg $ msg_SetUserPassword_NewPasswordAgain "New password (again): ")
        Bootstrap.submitButton  (fieldName changePasswordBtn)  (msg $ msg_SetUserPassword_SetButton "Update")
  where
    setUserPassword = Pages.setUserPassword ()
setUserPasswordContent = do
  msg <- getI18N
  return $ do
    Bootstrap.row $ Bootstrap.colMd Bootstrap.colSize4 Bootstrap.colOffset4 $
      postForm (routeOf setUserPassword) `withId` (rFormId setStudentPwdForm) $ do
        Bootstrap.textInput     (B.name usernamePrm)           (msg $ msg_SetUserPassword_User "Username: ") ""
        Bootstrap.passwordInput (B.name studentNewPwdPrm)      (msg $ msg_SetUserPassword_NewPassword "New password: ")
        Bootstrap.passwordInput (B.name studentNewPwdAgainPrm) (msg $ msg_SetUserPassword_NewPasswordAgain "New password (again): ")
        Bootstrap.submitButton  (fieldName changePasswordBtn)  (msg $ msg_SetUserPassword_SetButton "Update")
  where
    setUserPassword = Pages.setUserPassword ()