fix: handle absent :transaction/accounts in simple-mode-fields* (ValCursor crash)
This commit is contained in:
@@ -1,5 +1,6 @@
|
|||||||
(ns auto-ap.ssr.transaction.edit
|
(ns auto-ap.ssr.transaction.edit
|
||||||
(:require
|
(:require
|
||||||
|
[auto-ap.cursor :as cursor]
|
||||||
[auto-ap.datomic
|
[auto-ap.datomic
|
||||||
:refer [audit-transact conn pull-attr pull-ref]]
|
:refer [audit-transact conn pull-attr pull-ref]]
|
||||||
[auto-ap.datomic.accounts :as d-accounts]
|
[auto-ap.datomic.accounts :as d-accounts]
|
||||||
@@ -198,7 +199,10 @@
|
|||||||
0.0))]
|
0.0))]
|
||||||
[:div
|
[:div
|
||||||
(fc/with-field :transaction/accounts
|
(fc/with-field :transaction/accounts
|
||||||
(fc/with-cursor (nth fc/*current* 0 nil)
|
(fc/with-cursor (let [cur fc/*current*]
|
||||||
|
(if (sequential? @cur)
|
||||||
|
(nth cur 0 nil)
|
||||||
|
(auto_ap.cursor.MapCursor. {} (cursor/state cur) (conj (cursor/path cur) 0))))
|
||||||
[:span
|
[:span
|
||||||
(fc/with-field :db/id
|
(fc/with-field :db/id
|
||||||
(com/hidden {:name (fc/field-name)
|
(com/hidden {:name (fc/field-name)
|
||||||
|
|||||||
Reference in New Issue
Block a user