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"))
|
||||
|
||||
Reference in New Issue
Block a user