More forgiving
This commit is contained in:
@@ -452,7 +452,8 @@
|
|||||||
(map (fn [x] [:db/retractEntity x]))))
|
(map (fn [x] [:db/retractEntity x]))))
|
||||||
|
|
||||||
(defn upsert-all []
|
(defn upsert-all []
|
||||||
(doseq [[client-code] (get-in env [:square-config])]
|
(doseq [[client-code] (get-in env [:square-config])
|
||||||
|
:when (d/entid (d/db conn) [:client/code client-code])]
|
||||||
(lc/with-context {:source (str "Square loading for " client-code)
|
(lc/with-context {:source (str "Square loading for " client-code)
|
||||||
:client client-code}
|
:client client-code}
|
||||||
(log/info "Loading Orders")
|
(log/info "Loading Orders")
|
||||||
|
|||||||
Reference in New Issue
Block a user