minor

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))))