fixes a bug with manual import
This commit is contained in:
@@ -266,13 +266,13 @@
|
||||
(defn get-existing [bank-account]
|
||||
(log/info "looking up bank account data for" bank-account)
|
||||
(into {}
|
||||
(dc/q {:query {:find ['?tid '?as2]
|
||||
:in ['$ '?ba]
|
||||
:where ['[?e :transaction/bank-account ?ba]
|
||||
'[?e :transaction/id ?tid]
|
||||
'[?e :transaction/approval-status ?as]
|
||||
'[?as :db/ident ?as2]]}
|
||||
:args [(dc/db conn) bank-account]})))
|
||||
(dc/q '[:find ?tid ?as2
|
||||
:in $ ?ba
|
||||
:where [?e :transaction/bank-account ?ba]
|
||||
[?e :transaction/id ?tid]
|
||||
[?e :transaction/approval-status ?as]
|
||||
[?as :db/ident ?as2]]
|
||||
(dc/db conn) bank-account)))
|
||||
|
||||
(defprotocol ImportBatch
|
||||
(import-transaction! [this transaction])
|
||||
|
||||
Reference in New Issue
Block a user