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

supports batch update

Browse Source
This commit is contained in:
Bryce
2023-06-09 12:03:57 -07:00
parent 7af840a1de
commit 68bd112c06
1 changed files with 11 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -530,10 +530,17 @@
(when (seq ignore-retraction) (when (seq ignore-retraction)
(audit-transact-batch ignore-retraction (:id context)))) (audit-transact-batch ignore-retraction (:id context))))
#_(log/info (map :tx success)) #_(log/info (map :tx success))
(mu/trace ::success-tx (let [invalidated
[:count (count success)] (mu/trace ::success-tx
(doseq [[_ n] (:tempids (audit-transact-batch (map :tx success) (:id context)))] [:count (count success)]
(solr/touch n))) (for [[_ n] (:tempids (audit-transact-batch (map :tx success) (:id context)))]
n))]
(future
(mu/log ::indexing-solr :count (count invalidated))
(mu/trace ::indexed-external-solr
[:count (count invalidated)]
(doseq [n invalidated]
(solr/touch n)))))
{:successful (map (fn [x] {:external_id (:external_id x)}) success) {:successful (map (fn [x] {:external_id (:external_id x)}) success)
:ignored (map (fn [x] :ignored (map (fn [x]