From e54116790e06c0ec0ab0c799d62083df32c7d12a Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Thu, 24 Dec 2020 15:38:07 -0700 Subject: login now forwards to /inetorg/view --- webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'webapps/ldapadmin/clojurescript') diff --git a/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs b/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs index 8fce8dd..2a6d489 100644 --- a/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs +++ b/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs @@ -74,7 +74,7 @@ (defn maybe-error [jsonobj] (let [errormsg (get jsonobj "errormsg")] - (cond (or (= nil errormsg) (= "" errormsg)) + (cond (empty? errormsg) (dommy/set-style! (dommy/sel1 :#errormsg) :display "none") :else (do @@ -84,7 +84,7 @@ (defn maybe-message [jsonobj] (let [message (get jsonobj "message")] - (cond (or (= nil message) (= "" message)) + (cond (empty? message) (dommy/set-style! (dommy/sel1 :#message) :display "none") :else (do @@ -97,12 +97,12 @@ (maybe-message jsonobj)) (defn auth-notifications [jsonobj] - (cond (get jsonobj "errormsg") + (cond (empty? (get jsonobj "errormsg")) + (maybe-message jsonobj) + :else (do (render-home "" (get jsonobj "errormsg")) - (render-menu)) - :else - (maybe-message jsonobj))) + (render-menu)))) ;; forms @@ -287,7 +287,7 @@ (defn handler-logout [response] (let [jsonobj (js->clj (js/JSON.parse response))] - (render-home"You are now logged out" "") + (render-home "You are now logged out" "") (dommy/set-html! (dommy/sel1 :#location) "/home") (render-menu))) @@ -297,7 +297,7 @@ ;; inetorg-view (hiccups/defhtml template-inetorg-view [jsonobj] - [:h3 {:style "text-align: center"} (get jsonobj "instructions")] + [:h3 {:style "text-align: center"} (get jsonobj "title")] [:div {:id "search"}] [:div {:id "results"}] [:div {:id "modify" -- cgit v1.3