From e1d86ffa2493beaea44fc0341c9a93608e5266af Mon Sep 17 00:00:00 2001 From: Bryce Date: Thu, 30 Jan 2025 12:11:52 -0800 Subject: [PATCH] makes client ids on manual --- src/clj/auto_ap/ssr/ledger/new.clj | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/clj/auto_ap/ssr/ledger/new.clj b/src/clj/auto_ap/ssr/ledger/new.clj index 89edcc1b..69be27c1 100644 --- a/src/clj/auto_ap/ssr/ledger/new.clj +++ b/src/clj/auto_ap/ssr/ledger/new.clj @@ -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))))) \ No newline at end of file + (wrap-client-redirect-unauthenticated)))))