supporting transaction automation

This commit is contained in:
Bryce Covert
2019-05-16 13:45:14 -07:00
parent 6d85c2d67c
commit 26fbb89345
9 changed files with 21 additions and 10 deletions

View File

@@ -36,7 +36,7 @@
:account account_id
:location location}))
;; TODO ASSERT ADMIN
(defn upsert-transaction-rule [context {{:keys [id description note client_id bank_account_id amount_lte amount_gte vendor_id accounts transaction_approval_status ]} :transaction_rule :as z} value]
(defn upsert-transaction-rule [context {{:keys [id description yodlee_merchant_id note client_id bank_account_id amount_lte amount_gte vendor_id accounts transaction_approval_status ]} :transaction_rule :as z} value]
#_(assert-admin (:id context))
(let [existing-transaction (tr/get-by-id id)
deleted (deleted-accounts existing-transaction accounts)
@@ -53,6 +53,7 @@
:note note
:client client_id
:bank-account bank_account_id
:yodlee-merchant yodlee_merchant_id
:amount-lte amount_lte
:amount-gte amount_gte
:vendor vendor_id