diff options
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 |