notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

Fixes some minor bugs

Browse Source
This commit is contained in:
Bryce
2023-05-22 12:28:09 -07:00
parent 780d1b6d4d
commit c78b3719c1
2 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/clj/auto_ap/graphql/invoices.clj
View File

@@ -60,8 +60,7 @@
(assert-power-user (:id context)) (assert-power-user (:id context))
(doseq [i invoices] (doseq [i invoices]
(assert-can-see-client (:id context) (:db/id (:invoice/client (dc/pull (dc/db conn) [{:invoice/client [:db/id]}] i))))) (assert-can-see-client (:id context) (:db/id (:invoice/client (dc/pull (dc/db conn) [{:invoice/client [:db/id]}] i)))))
(let [transactions (mapcat (fn [i] [[:db/retractEntity i] (let [transactions (mapcat (fn [i] [[:db/retractEntity i]])
[:db/retractEntity [:journal-entry/original-invoice i]]])
invoices)] invoices)]
(audit-transact transactions (:id context)) (audit-transact transactions (:id context))
invoices)) invoices))

2
src/clj/auto_ap/graphql/ledger.clj
View File

@@ -532,7 +532,7 @@
#_(log/info (map :tx success)) #_(log/info (map :tx success))
(mu/trace ::success-tx (mu/trace ::success-tx
[:count (count success)] [:count (count success)]
(doseq [n (:tempids (audit-transact-batch (map :tx success) (:id context)))] (doseq [[_ n] (:tempids (audit-transact-batch (map :tx success) (:id context)))]
(solr/touch n))) (solr/touch n)))
{:successful (map (fn [x] {:external_id (:external_id x)}) success) {:successful (map (fn [x] {:external_id (:external_id x)}) success)