minor fix to clients
This commit is contained in:
@@ -167,13 +167,13 @@
|
|||||||
::bank-account-activated
|
::bank-account-activated
|
||||||
[(forms/in-form ::new-client) (re-frame/path [:data :bank-accounts])]
|
[(forms/in-form ::new-client) (re-frame/path [:data :bank-accounts])]
|
||||||
(fn [bank-accounts [_ index]]
|
(fn [bank-accounts [_ index]]
|
||||||
(update bank-accounts index assoc :active? true)))
|
(update (vec (sort-by :sort-order bank-accounts)) index assoc :active? true)))
|
||||||
|
|
||||||
(re-frame/reg-event-db
|
(re-frame/reg-event-db
|
||||||
::bank-account-deactivated
|
::bank-account-deactivated
|
||||||
[(forms/in-form ::new-client) (re-frame/path [:data :bank-accounts])]
|
[(forms/in-form ::new-client) (re-frame/path [:data :bank-accounts])]
|
||||||
(fn [bank-accounts [_ index]]
|
(fn [bank-accounts [_ index]]
|
||||||
(update bank-accounts index assoc :active? false)))
|
(update (vec (sort-by :sort-order bank-accounts)) index assoc :active? false)))
|
||||||
|
|
||||||
(re-frame/reg-event-db
|
(re-frame/reg-event-db
|
||||||
::bank-account-removed
|
::bank-account-removed
|
||||||
|
|||||||
Reference in New Issue
Block a user