From 2a3d2eb80cbb064331abf59288f61847f4ab12fa Mon Sep 17 00:00:00 2001 From: ckonstanski Date: Wed, 23 Dec 2020 22:19:01 -0700 Subject: dark theme and logout fix --- webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) (limited to 'webapps') diff --git a/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs b/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs index d7ac618..8fce8dd 100644 --- a/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs +++ b/webapps/ldapadmin/clojurescript/ldapadmin/src/core.cljs @@ -8,6 +8,7 @@ ;; declarations (enable-console-print!) +(def jquery (js* "$")) (declare template-message) (declare maybe-error) @@ -63,8 +64,6 @@ (declare handler-location) (declare goto-location) -(def jquery (js* "$")) - ;; notifications (hiccups/defhtml template-error [errormsg] @@ -274,8 +273,8 @@ (render-login)) (get jsonobj "message") (do - (dommy/set-html! (dommy/sel1 :#location) "/home") - (render-home (get jsonobj "message") ""))) + (dommy/set-html! (dommy/sel1 :#location) "/inetorg/view") + (render-inetorg-view (get jsonobj "message") ""))) (render-menu))) (defn render-login-authenticate [] @@ -347,8 +346,14 @@ (dommy/set-html! (dommy/sel1 :#body) (template-inetorg-view jsonobj)) (render-inetorg-view-search))) -(defn render-inetorg-view [] - (GET "/inetorg/view" {:handler handler-inetorg-view})) +(defn render-inetorg-view + ([] + (GET "/inetorg/view" {:handler handler-inetorg-view})) + ([message errormsg] + (POST "/inetorg/view" {:format :raw + :params {:message message + :errormsg errormsg} + :handler handler-inetorg-view}))) ;; inetorg-view-search -- cgit v1.3