Adds manager type, blocks certain permissions

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

@@ -214,6 +214,9 @@
     {:component-will-mount #(re-frame/dispatch-sync [::params-change {:date (date->str (local-now) standard)}]) }))
 
 (defn balance-sheet-page []
-  [side-bar-layout
-   {:side-bar [ledger-side-bar] 
-    :main [balance-sheet-content]}])
+  (let [user (re-frame/subscribe [::subs/user])]
+    (if (not= "manager" (:user/role @user))
+      [side-bar-layout
+       {:side-bar [ledger-side-bar] 
+        :main [balance-sheet-content]}]
+      [:div "Not Authorized"])))

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

@@ -532,10 +532,13 @@
                                   (re-frame/dispatch [::ledger-params-changed params]))}]]]))
 
 (defn profit-and-loss-page []
-  (let [ledger-list-active? @(re-frame/subscribe [::ledger-list-active?])]
-    [side-bar-layout
-     {:side-bar [ledger-side-bar] 
-      :main [profit-and-loss-content]
-      :right-side-bar [appearing-side-bar
-                       {:visible? ledger-list-active?}
-                       [ledger-list]]}]))
+  (let [ledger-list-active? @(re-frame/subscribe [::ledger-list-active?])
+        user (re-frame/subscribe [::subs/user])]
+    (if (not= "manager" (:user/role @user))
+      [side-bar-layout
+       {:side-bar [ledger-side-bar] 
+        :main [profit-and-loss-content]
+        :right-side-bar [appearing-side-bar
+                         {:visible? ledger-list-active?}
+                         [ledger-list]]}]
+      [:div "Not authorized"])))