makes client ids on manual

This commit is contained in:
2025-01-30 12:11:52 -08:00
parent e74694e924
commit e1d86ffa24

View File

@@ -296,7 +296,9 @@
(update :journal-entry/line-items
(fn [li]
(mapv
#(remove-nils (update % :journal-entry-line/account :db/id))
#(remove-nils (-> %
(update :journal-entry-line/account :db/id)
(assoc :journal-entry-line/client (-> request :form-params :journal-entry/client :db/id)))
li)))
(assoc :journal-entry/external-id (str "manual-" (UUID/randomUUID))))
(= :post (:request-method request)) (assoc :db/id "new"))
@@ -358,4 +360,4 @@
#_(wrap-merge-prior-hx)
(wrap-must {:activity :edit :subject :ledger})
(wrap-nested-form-params)
(wrap-client-redirect-unauthenticated)))))
(wrap-client-redirect-unauthenticated)))))