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

fixing two bugs.

Browse Source
This commit is contained in:
Bryce Covert
2022-06-26 10:59:40 -07:00
parent f710f97a8c
commit 258a7ac021
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/clj/auto_ap/square/core.clj
View File

@@ -178,7 +178,8 @@
(remove-nils (remove-nils
#:charge #:charge
{:type-name (:type t) {:type-name (:type t)
:external-id (str "square/charge/" (:id t)) :external-id (when (:payment_id t)
(str "square/charge/" (:payment_id t)))
:processor (condp = (some-> (:note t) str/lower-case) :processor (condp = (some-> (:note t) str/lower-case)
"doordash" :ccp-processor/doordash "doordash" :ccp-processor/doordash
"dd" :ccp-processor/doordash "dd" :ccp-processor/doordash
@@ -486,7 +487,7 @@
(map (fn [x] [:db/retractEntity x])))) (map (fn [x] [:db/retractEntity x]))))
(defn upsert-all [] (defn upsert-all []
(doseq [client ((get-square-clients)) (doseq [client (get-square-clients)
:when (seq (filter :square-location/client-location (:client/square-locations client)))] :when (seq (filter :square-location/client-location (:client/square-locations client)))]
(lc/with-context {:client (:client/code client)} (lc/with-context {:client (:client/code client)}
(upsert-locations client) (upsert-locations client)