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

other tweaks

Browse Source
This commit is contained in:
Bryce
2024-05-01 12:39:48 -07:00
parent f9900f5f71
commit e6a8f7dc78
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
src/clj/auto_ap/ssr/admin/clients.clj
View File

@@ -1283,11 +1283,10 @@
[:td (fc/with-field :square-location/client-location
(com/text-input {:name (fc/field-name)
:value (fc/field-value)}))]]))]]]])
(defn refresh-square-locations [request]
#_(alog/peek (keys (:query-params request)))
(defn refresh-square-locations [request]
(let [locations @(de/timeout!
(de/chain (square/client-locations {:client/square-auth-token (get-in request [:query-params "step-params[client/square-auth-token]"])})
(de/chain (square/client-locations {:client/square-auth-token (get-in request [:query-params (keyword "step-params[client/square-auth-token]")])})
(fn [client-locations]
(into []
(for [square-location client-locations]