From 08b948c24bcf33223e01f2b63bbe725f13d85ec7 Mon Sep 17 00:00:00 2001 From: Bryce Date: Tue, 19 May 2026 20:55:21 -0700 Subject: [PATCH] fixes --- src/clj/auto_ap/server.clj | 2 +- src/clj/auto_ap/ssr/pos/sales_summaries.clj | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/src/clj/auto_ap/server.clj b/src/clj/auto_ap/server.clj index dc086600..c3143575 100644 --- a/src/clj/auto_ap/server.clj +++ b/src/clj/auto_ap/server.clj @@ -63,7 +63,7 @@ (.setHandler server stats-handler)) (.setStopAtShutdown server true)) -(mount/defstate port :start (Integer/parseInt (or (env :port) "3000"))) +(mount/defstate port :start (Integer/parseInt (str (or (env :port) "3000")))) (mount/defstate jetty :start (run-jetty app {:port port diff --git a/src/clj/auto_ap/ssr/pos/sales_summaries.clj b/src/clj/auto_ap/ssr/pos/sales_summaries.clj index 88241c93..45988b07 100644 --- a/src/clj/auto_ap/ssr/pos/sales_summaries.clj +++ b/src/clj/auto_ap/ssr/pos/sales_summaries.clj @@ -721,7 +721,8 @@ :current-account-id current-account-id})))) (defn save-item-account [request] - (let [{:keys [field-name-prefix client-id]} (:params request) + (let [field-name-prefix (get-in request [:params "field-name-prefix"]) + client-id (get-in request [:params "client-id"]) account-input-name (str field-name-prefix "[ledger-mapped/account]") account-id-str (get-in request [:form-params account-input-name]) account-id (when (and account-id-str (not= account-id-str ""))