locations.

src/cljs/auto_ap/subs.cljs

@@ -50,12 +50,18 @@
              []
              clients))))
 
+;; Bank accounts only, not including cash
 (re-frame/reg-sub
- ::real-bank-accounts
+ ::real-bank-accounts 
  :<- [::client]
  (fn [client]
    (->> client :bank-accounts (filter #(= (:type %) :check)) (sort-by :sort-order))))
 
+(re-frame/reg-sub
+ ::locations-for-client
+ 
+ (fn [db [_ client]]
+   (:locations (get (:clients db) (or client (:client db))))))
 
 (re-frame/reg-sub
  ::clients-by-id