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

Fixes ezcater error for unsubscribed clients

Browse Source
This commit is contained in:
Bryce Covert
2023-01-24 10:44:49 -08:00
parent 344841420a
commit 67d2528166
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/clj/auto_ap/ezcater/core.clj
View File

@@ -269,11 +269,12 @@
(alog/info
::try-import-order
:json json)
@(d/transact conn [(some-> json
(lookup-order)
(order->sales-order)
(update :sales-order/date coerce/to-date)
(update-in [:sales-order/charges 0 :charge/date] coerce/to-date))]))
@(d/transact conn (filter identity
[(some-> json
(lookup-order)
(order->sales-order)
(update :sales-order/date coerce/to-date)
(update-in [:sales-order/charges 0 :charge/date] coerce/to-date))])))
(defn upsert-recent []
(let [last-sunday (coerce/to-date (time/plus (second (->> (time/today)