diff --git a/src/clj/auto_ap/ssr/transaction/edit.clj b/src/clj/auto_ap/ssr/transaction/edit.clj index 2bbaa60c..c5d75920 100644 --- a/src/clj/auto_ap/ssr/transaction/edit.clj +++ b/src/clj/auto_ap/ssr/transaction/edit.clj @@ -1,5 +1,6 @@ (ns auto-ap.ssr.transaction.edit (:require + [auto-ap.cursor :as cursor] [auto-ap.datomic :refer [audit-transact conn pull-attr pull-ref]] [auto-ap.datomic.accounts :as d-accounts] @@ -198,7 +199,10 @@ 0.0))] [:div (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 (fc/with-field :db/id (com/hidden {:name (fc/field-name)