Adds manager type, blocks certain permissions

src/cljs/auto_ap/views/pages/ledger.cljs

@@ -91,8 +91,7 @@
        (assoc-in [:status :loading] false))))
 
 (defn ledger-content []
-  (let [current-client @(re-frame/subscribe [::subs/client])
-        user @(re-frame/subscribe [::subs/user])]
+  (let [current-client @(re-frame/subscribe [::subs/client])]
     [:div 
      [:h1.title "Ledger"]
      [table/table {:id :ledger
@@ -102,13 +101,16 @@
 
 
 (defn ledger-page []
-  (reagent/create-class
-   {:display-name "ledger-page"
-    :component-will-unmount #(re-frame/dispatch [::unmounted])
-    :reagent-render
-    (fn []
-      (let [params @(re-frame/subscribe [::params])]
-        [side-bar-layout
-         {:side-bar [ledger-side-bar]
-          :main [ledger-content]}]))}))
+  (let [user (re-frame/subscribe [::subs/user])]
+    (reagent/create-class
+     {:display-name "ledger-page"
+      :component-will-unmount #(re-frame/dispatch [::unmounted])
+      :reagent-render
+      (fn []
+        (if (not= "manager" (:user/role @user))
+          (let [params @(re-frame/subscribe [::params])]
+            [side-bar-layout
+             {:side-bar [ledger-side-bar]
+              :main [ledger-content]}])
+          [:div "Not authorized"]))})))