From 586159f8e0a3cbd2728f1e2a20caca8ede20780a Mon Sep 17 00:00:00 2001 From: Bryce Covert Date: Sun, 4 Dec 2022 14:49:41 -0800 Subject: [PATCH] minor --- src/clj/auto_ap/jobs/register_invoice_import.clj | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/src/clj/auto_ap/jobs/register_invoice_import.clj b/src/clj/auto_ap/jobs/register_invoice_import.clj index 219d44e9..5073adf5 100644 --- a/src/clj/auto_ap/jobs/register_invoice_import.clj +++ b/src/clj/auto_ap/jobs/register_invoice_import.clj @@ -8,7 +8,7 @@ [clojure.string :as str] [clj-time.coerce :as coerce] [auto-ap.time :as atime] - [auto-ap.datomic :refer [conn]] + [auto-ap.datomic :refer [conn audit-transact]] [clojure.data.csv :as csv] [clojure.java.io :as io] [config.core :refer [env]] @@ -27,7 +27,7 @@ (let [db (d/db conn) i->invoice-id (fn [i] (try (Long/parseLong i) - (catch Exception e + (catch Exception _ (:db/id (d/pull db '[:db/id] [:invoice/original-id (Long/parseLong (first (str/split i #"-")))]))))) invoice-totals (->> data @@ -47,7 +47,7 @@ target-account target-date amount - target-account-code + _ location] (drop 1 data) :let [invoice-id (i->invoice-id i) @@ -129,7 +129,8 @@ (log/info "contains " (count data) " rows") (doseq [n (partition-all 50 (register-invoice-import* data))] (log/info "transacting" n) - @(d/transact conn n)))) + (audit-transact data {:user/name "register-invoice-import" + :user/role "admin"})))) (defn -main [& _] (execute "register-invoice-import" #(register-invoice-import (:args env))))