Fixes selection

This commit is contained in:
2024-04-15 20:41:42 -07:00
parent a9fdf9c340
commit 52662ca965

View File

@@ -82,8 +82,12 @@
(for [[before-account after-account] (map vector (concat original-expense-accounts (for [[before-account after-account] (map vector (concat original-expense-accounts
(repeat nil)) expense-accounts)] (repeat nil)) expense-accounts)]
(cond-> after-account (cond-> after-account
(not= (:id (:account before-account)) (and
(:id (:account after-account))) (not (:location (:account after-account)))
(= 1 (count locations)))
(assoc :location (first locations))
(:location (:account before-account))
(assoc :location nil) (assoc :location nil)
(not= (:amount-percentage before-account) (not= (:amount-percentage before-account)