makes client ids on manual
This commit is contained in:
@@ -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)))))
|
||||
|
||||
Reference in New Issue
Block a user