setUsrPwd :: POSTContentHandler
setUsrPwd = do
  user <- getParameter usernamePrm
  newPwd <- getParameter studentNewPwdPrm
  ok <- userStory (isStudentOfMine user)
  if ok
    then do
      msg <- P.setUserPassword user newPwd
      return $ StatusMessage msg
    else do
      let username = usernameCata id user
      return . StatusMessage $ msg_SetUserPassword_NonRegisteredUser
        "This user is not registered in neither of your courses nor your groups."
setUsrPwd :: POSTContentHandler
setUsrPwd = do
  user <- getParameter usernamePrm
  newPwd <- getParameter studentNewPwdPrm
  ok <- userStory (isStudentOfMine user)
  if ok
    then do
      msg <- P.setUserPassword user newPwd
      return $ StatusMessage msg
    else do
      let username = usernameCata id user
      return . StatusMessage $ msg_SetUserPassword_NonRegisteredUser
        "This user is not registered in neither of your courses nor your groups."
setUsrPwd = do
  user <- getParameter usernamePrm
  newPwd <- getParameter studentNewPwdPrm
  ok <- userStory (isStudentOfMine user)
  if ok
    then do
      msg <- P.setUserPassword user newPwd
      return $ StatusMessage msg
    else do
      let username = usernameCata id user
      return . StatusMessage $ msg_SetUserPassword_NonRegisteredUser
        "This user is not registered in neither of your courses nor your groups."