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

(cloud) adjustments for ezcater tenders, search fixes.

Browse Source
This commit is contained in:
Bryce
2023-05-18 16:56:58 -07:00
parent 3ce9cceee0
commit 0e6a5c6749
6 changed files with 141 additions and 125 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/clj/user.clj
View File

@@ -346,7 +346,7 @@
(mu/start-publisher! {:type :dev})
(mount.core/start (mount.core/only #{#'auto-ap.datomic/conn })))
(defn start-search []
#_(defn start-search []
(mount.core/start (mount.core/only #{#'auto-ap.graphql.vendors/indexer #'auto-ap.graphql.accounts/indexer})))
(defn restart-db []
@@ -573,7 +573,7 @@
(partition-all 1000))]
(print ".")
(flush)
(solr/index-documents solr/impl batch))
(solr/index-documents solr/impl "invoices" batch))
(doseq [batch (->> (dc/qseq {:query '[:find ?i
:in $
@@ -584,7 +584,7 @@
(partition-all 1000))]
(print ".")
(flush)
(solr/index-documents solr/impl batch))
(solr/index-documents solr/impl "invoices" batch))
(doseq [batch (->> (dc/qseq {:query '[:find ?i
:in $
@@ -595,7 +595,7 @@
(partition-all 1000))]
(print ".")
(flush)
(solr/index-documents solr/impl batch))
(solr/index-documents solr/impl "invoices" batch))
(doseq [batch (->> (dc/qseq {:query '[:find ?i
:in $
:where [?i :journal-entry/date]]
@@ -604,7 +604,7 @@
(partition-all 1000))]
(print ".")
(flush)
(solr/index-documents solr/impl batch)))
(solr/index-documents solr/impl "invoices" batch)))
(defn setup-sales-orders []
(doseq [n (->> (dc/qseq {:query '[:find ?s ?c :where [?s :sales-order/client ?c]] :args [(dc/db auto-ap.datomic/conn)]})