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

fix: safe cursor indexing in simple-mode-fields*

Browse Source
This commit is contained in:
Bryce
2026-05-27 21:44:54 -07:00
parent 00b5303c28
commit a88dcf4122
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/clj/auto_ap/ssr/transaction/edit.clj
View File

@@ -181,17 +181,14 @@
(defn simple-mode-fields* (defn simple-mode-fields*
"Renders the simple-mode account + location row and the toggle-to-advanced link. "Renders the simple-mode account + location row and the toggle-to-advanced link.
Must be called within a fc/start-form + fc/with-field :step-params context." Must be called within a fc/start-form + fc/with-field :step-params context.
Caller must establish Alpine x-data with simpleAccountId in scope."
[request] [request]
(let [snapshot (-> request :multi-form-state :snapshot) (let [snapshot (-> request :multi-form-state :snapshot)
client-id (or (-> request :entity :transaction/client :db/id) client-id (or (-> request :entity :transaction/client :db/id)
(:transaction/client snapshot)) (:transaction/client snapshot))
existing-row (first (:transaction/accounts snapshot)) existing-row (first (:transaction/accounts snapshot))
account-val (or (:transaction-account/account existing-row) account-val (:transaction-account/account existing-row)
(fc/with-field :transaction/accounts
(fc/with-cursor (nth fc/*current* 0)
(fc/with-field :transaction-account/account
(fc/field-value)))))
location-val (or (:transaction-account/location existing-row) "Shared") location-val (or (:transaction-account/location existing-row) "Shared")
account-id (when (nat-int? account-val) account-id (when (nat-int? account-val)
(dc/pull (dc/db conn) '[:account/location] account-val)) (dc/pull (dc/db conn) '[:account/location] account-val))
@@ -201,7 +198,7 @@
0.0))] 0.0))]
[:div [:div
(fc/with-field :transaction/accounts (fc/with-field :transaction/accounts
(fc/with-cursor (nth fc/*current* 0) (fc/with-cursor (nth fc/*current* 0 nil)
[:span [:span
(fc/with-field :db/id (fc/with-field :db/id
(com/hidden {:name (fc/field-name) (com/hidden {:name (fc/field-name)