           (update! :users {:user user}
                    {:$set {:pwd new-pwd-hash}}
                    :upsert false)
-          (html-doc
-           [:div#update-succeeded "Password for " user " updated successfully"]))
+          (flash-msg (str "Password for " user " updated successfully")
+                     "/problems"))
         (flash-error why "/login/update")))))
 
 (def-page reset-password-page []

  (:import java.net.URLEncoder
           org.apache.commons.mail.SimpleEmail))
                        
(def-page my-login-page [location]
  [:div.error (session/flash-get :error)]
  (form-to [:post "/login"]
    [:table
     [:tr

             name " has been reset to " pw ". Make sure to change it"
             " soon at https://4clojure.com/login/update - pick"
             " something you'll remember!")})
      (session/session-put! :login-to "/login/update")
      (flash-msg "Your password has been reset! You should receive an email soon"
                 "/login"))
    (flash-error "We don't know anyone with that email address!"
