other tweaks

src/clj/auto_ap/jobs/sales_summaries.clj

@@ -77,6 +77,7 @@
    "returns" 41100
    "card payments" 75460
    "cash payments" 75452
+   "cash refunds" 75452
    "food app payments" 72350
    "unknown" 40000
    "discounts" 41000
@@ -85,6 +86,7 @@
    "beverages" 42000
    "bowls" 40118
    "catering" 43000
+   "ezcater catering" 43010
    "desserts" 40116
    "fries" 40117
    "plates" 40113
@@ -93,7 +95,8 @@
    "uncategorized" 40000
    "tax" 25700
    "tip" 25500
-   "card refunds" 75460})
+   "card refunds" 75460
+   "food app refunds" 72350})
 
 (defn get-payment-items [c date]
   (->> 

src/clj/auto_ap/ssr/admin/clients.clj

@@ -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]