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

fixes

Browse Source
This commit is contained in:
Bryce
2026-05-19 20:55:21 -07:00
parent 83a739ac5b
commit 08b948c24b
2 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/clj/auto_ap/server.clj
View File

@@ -63,7 +63,7 @@
(.setHandler server stats-handler)) (.setHandler server stats-handler))
(.setStopAtShutdown server true)) (.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 (mount/defstate jetty
:start (run-jetty app {:port port :start (run-jetty app {:port port

3
src/clj/auto_ap/ssr/pos/sales_summaries.clj
View File

@@ -721,7 +721,8 @@
:current-account-id current-account-id})))) :current-account-id current-account-id}))))
(defn save-item-account [request] (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-input-name (str field-name-prefix "[ledger-mapped/account]")
account-id-str (get-in request [:form-params account-input-name]) account-id-str (get-in request [:form-params account-input-name])
account-id (when (and account-id-str (not= account-id-str "")) account-id (when (and account-id-str (not= account-id-str ""))