From 2826fd5099972d6c1315000e8ddcf0e3ee31e12d Mon Sep 17 00:00:00 2001 From: Bryce Date: Thu, 30 Jan 2025 13:43:28 -0800 Subject: [PATCH] also update client --- src/clj/auto_ap/ssr/ledger/new.clj | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/clj/auto_ap/ssr/ledger/new.clj b/src/clj/auto_ap/ssr/ledger/new.clj index 1539a9f1..bfcb33f2 100644 --- a/src/clj/auto_ap/ssr/ledger/new.clj +++ b/src/clj/auto_ap/ssr/ledger/new.clj @@ -303,7 +303,9 @@ li)))) (assoc :journal-entry/external-id (str "manual-" (UUID/randomUUID)))) (= :post (:request-method request)) (assoc :db/id "new")) - {:keys [tempids]} (audit-transact [[:upsert-entity entity]] + {:keys [tempids]} (audit-transact [[:upsert-entity entity] + {:db/id (-> request :form-params :journal-entry/client :db/id) + :client/ledger-last-change (iol-ion.tx.upsert-ledger/current-date (dc/db conn))}] (:identity request)) updated-entity (dc/pull (dc/db conn) ledger.common/default-read