implementing permissions to companies

2017-12-20 09:00:45 -08:00
parent 2af3752041
commit ef252de79d
5 changed files with 16 additions and 29 deletions
--- a/src/cljs/auto_ap/subs.cljs
+++ b/src/cljs/auto_ap/subs.cljs
@@ -11,7 +11,9 @@
 (re-frame/reg-sub
 ::companies
 (fn [db]
-   (:companies db)))
+   (when (:user db)
+     (let [{:strs [companies] :as x} (js->clj (.parse js/JSON (base64/decodeString (second (str/split (:user db) #"\.")))))]
+       (map (fn [c] {:name c}) companies)))))

 (re-frame/reg-sub
 ::menu