diff --git a/src/clj/auto_ap/rule_matching.clj b/src/clj/auto_ap/rule_matching.clj index ef3353c1..91eaed6b 100644 --- a/src/clj/auto_ap/rule_matching.clj +++ b/src/clj/auto_ap/rule_matching.clj @@ -109,10 +109,10 @@ valid-locations) - [{:transaction-account/account (:db/id (:transaction-rule-account/account tra)) - :transaction-account/amount (Math/abs (* (:transaction-rule-account/percentage tra) - (:transaction/amount transaction))) - :transaction-account/location (:transaction-rule-account/location tra)}])) + [(cond-> {:transaction-account/account (:db/id (:transaction-rule-account/account tra)) + :transaction-account/amount (Math/abs (* (:transaction-rule-account/percentage tra) + (:transaction/amount transaction)))} + (:transaction-rule-account/location tra) (assoc :transaction-account/location (:transaction-rule-account/location tra)))])) (:transaction-rule/accounts rule))) accounts (mapv (fn [a]