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

(cloud) should make sales queries work again

Browse Source
This commit is contained in:
Bryce Covert
2023-04-05 14:49:09 -07:00
parent fe6869e71e
commit 78a476f4b1
3 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
scratch-sessions/link_sales_queries.clj
View File

@@ -1,6 +1,6 @@
(ns link-sales-queries
(:require [datomic.api :as d]
(:require [datomic.client.api :as dc]
[auto-ap.datomic :refer [conn]]
[auto-ap.routes.queries :refer [get-query]]))
@@ -301,10 +301,10 @@
(def unattached-queries
(map first (d/q '[:find ?g
(map first (dc/q '[:find ?g
:in $ [?g ...]
:where (not [_ :saved-query/guid ?g])]
(d/db conn)
(dc/db conn)
recently-used-query-ids)))
@@ -353,9 +353,9 @@
:lookup-key lookup-key
:query query
:note note
:extant (:db/id (d/pull (d/db conn) '[:db/id] [:saved-query/lookup-key lookup-key]))
:extant-guid (:saved-query/guid (d/pull (d/db conn) '[:saved-query/guid] [:saved-query/lookup-key lookup-key]))
:extant-guid-used? (recently-used-query-ids (:saved-query/guid (d/pull (d/db conn) '[:saved-query/guid] [:saved-query/lookup-key lookup-key])))})))
:extant (:db/id (dc/pull (dc/db conn) '[:db/id] [:saved-query/lookup-key lookup-key]))
:extant-guid (:saved-query/guid (dc/pull (dc/db conn) '[:saved-query/guid] [:saved-query/lookup-key lookup-key]))
:extant-guid-used? (recently-used-query-ids (:saved-query/guid (dc/pull (dc/db conn) '[:saved-query/guid] [:saved-query/lookup-key lookup-key])))})))
#_(filter (comp #{"NGEB"} :client-code))