diff options
| author | ckonstanski <kostcarl@isu.edu> | 2026-08-20 15:45:47 -0600 |
|---|---|---|
| committer | ckonstanski <kostcarl@isu.edu> | 2026-08-20 15:45:47 -0600 |
| commit | 78fe2d442271d3f4d211a2c20db25743e4462916 (patch) | |
| tree | 4546670de0fd61c794be3612d6a957a8f7c9918c /lisp/webapps/resume/clojurescript | |
| parent | 40dba201fdfba8c69e8dc30206468aee8082df2a (diff) | |
stuff
Diffstat (limited to 'lisp/webapps/resume/clojurescript')
| -rw-r--r-- | lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs b/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs index 52059f7..35ea5aa 100644 --- a/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs +++ b/lisp/webapps/resume/clojurescript/resume/src/resume/core.cljs @@ -372,8 +372,10 @@ (defn handler-login-authenticate [response] (let [jsonobj (js->clj (js/JSON.parse response))] - (cond (get jsonobj "errormsg") (goto-location "/login") - (get jsonobj "message") (on-menu-clicked "/home")))) + (notifications jsonobj) + (reset-location "/home") + (render-menu) + (render-about-us-view))) (defn render-login-authenticate [] (POST "/login/authenticate" @@ -383,13 +385,8 @@ ;; logout -(defn handler-logout [response] - (render-home "You are now logged out" "") - (reset-location "/home") - (render-menu)) - (defn render-logout [] - (GET "/logout" {:handler handler-logout})) + (GET "/logout" {:handler handler-login-authenticate})) ;; profile |