two minor fixes

src/clj/auto_ap/jobs/register_invoice_import.clj

@@ -129,8 +129,8 @@
     (log/info "contains " (count data) " rows")
     (doseq [n (partition-all 50 (register-invoice-import* data))]
       (log/info "transacting" n)
-      (audit-transact data {:user/name "register-invoice-import"
-                            :user/role "admin"}))))
+      (audit-transact n {:user/name "register-invoice-import"
+                         :user/role "admin"}))))
 
 (defn -main [& _]
   (execute "register-invoice-import" #(register-invoice-import (:args env))))

src/cljs/auto_ap/views/pages/admin/jobs.cljs

@@ -51,7 +51,8 @@
  ::success
  (fn [{:keys [db]} [_ n]]
    {:db (assoc db ::msg (:message (:request-job n)))
-    :dispatch [::params-change]}))
+    :dispatch-n [[::params-change]
+                 [::modal/modal-closed]]}))
 
 (re-frame/reg-event-fx
  ::saving