dark theme and logout fix

1 files changed, 11 insertions, 6 deletions

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