notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

fixes rule

Browse Source
This commit is contained in:
Bryce Covert
2019-09-30 21:00:02 -07:00
parent 85cd5f9fb2
commit 6c6f49dc25
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/cljs/auto_ap/subs.cljs
View File

@@ -77,12 +77,12 @@
(re-frame/reg-sub (re-frame/reg-sub
::locations-for-client-or-bank-account ::locations-for-client-or-bank-account
(fn [db [_ client-id bank-account-id]] (fn [db [_ client-id bank-account-id]]
(let [client (get (:clients db) (or client (:client db))) (let [client (get (:clients db) (or client-id (:client db)))
client-locations (:locations client) client-locations (:locations client)
bank-account-locations (-> (by :id (:bank-accounts client)) bank-account-locations (-> (by :id (:bank-accounts client))
(get bank-account-id) (get bank-account-id)
:locations)] :locations)]
(or bank-account-locations client-locations)))) (or (seq bank-account-locations) client-locations))))
(re-frame/reg-sub (re-frame/reg-sub
::clients-by-id ::clients-by-id