removing prints.
This commit is contained in:
@@ -26,9 +26,7 @@
|
|||||||
::expense-account
|
::expense-account
|
||||||
:<- [::change-expense-accounts]
|
:<- [::change-expense-accounts]
|
||||||
(fn [{{:keys [expense-accounts] :or {expense-accounts [] }} :invoice} [_ expense-account-id]]
|
(fn [{{:keys [expense-accounts] :or {expense-accounts [] }} :invoice} [_ expense-account-id]]
|
||||||
(println "subbing")
|
(first (filter #(= expense-account-id (:id %)) expense-accounts))))
|
||||||
(doto (first (filter #(= expense-account-id (:id %)) expense-accounts))
|
|
||||||
println)))
|
|
||||||
|
|
||||||
(re-frame/reg-event-fx
|
(re-frame/reg-event-fx
|
||||||
::change-expense-accounts
|
::change-expense-accounts
|
||||||
@@ -44,7 +42,6 @@
|
|||||||
(fn [expense-accounts]
|
(fn [expense-accounts]
|
||||||
(mapv
|
(mapv
|
||||||
(fn [expense-account]
|
(fn [expense-account]
|
||||||
(println expense-account id)
|
|
||||||
(if (= id (:id expense-account))
|
(if (= id (:id expense-account))
|
||||||
(assoc-in expense-account f v)
|
(assoc-in expense-account f v)
|
||||||
expense-account))
|
expense-account))
|
||||||
@@ -72,13 +69,9 @@
|
|||||||
[:expense_accounts [:amount :id :location :expense_account_id
|
[:expense_accounts [:amount :id :location :expense_account_id
|
||||||
[:expense_account [:id :name [:parent [:id :name]]]]]]
|
[:expense_account [:id :name [:parent [:id :name]]]]]]
|
||||||
[:client [:name :id :locations]]
|
[:client [:name :id :locations]]
|
||||||
[:payments [:amount :id [:payment [:amount :s3_url :check_number ]]]]
|
[:payments [:amount :id [:payment [:amount :s3_url :check_number ]]]]]]}]}
|
||||||
]]}]}
|
|
||||||
:on-success on-success}})))
|
:on-success on-success}})))
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
(re-frame/reg-event-db
|
(re-frame/reg-event-db
|
||||||
::add-expense-account-split
|
::add-expense-account-split
|
||||||
(fn [db _]
|
(fn [db _]
|
||||||
|
|||||||
Reference in New Issue
Block a user