two minor fixes
This commit is contained in:
@@ -129,8 +129,8 @@
|
|||||||
(log/info "contains " (count data) " rows")
|
(log/info "contains " (count data) " rows")
|
||||||
(doseq [n (partition-all 50 (register-invoice-import* data))]
|
(doseq [n (partition-all 50 (register-invoice-import* data))]
|
||||||
(log/info "transacting" n)
|
(log/info "transacting" n)
|
||||||
(audit-transact data {:user/name "register-invoice-import"
|
(audit-transact n {:user/name "register-invoice-import"
|
||||||
:user/role "admin"}))))
|
:user/role "admin"}))))
|
||||||
|
|
||||||
(defn -main [& _]
|
(defn -main [& _]
|
||||||
(execute "register-invoice-import" #(register-invoice-import (:args env))))
|
(execute "register-invoice-import" #(register-invoice-import (:args env))))
|
||||||
|
|||||||
@@ -51,7 +51,8 @@
|
|||||||
::success
|
::success
|
||||||
(fn [{:keys [db]} [_ n]]
|
(fn [{:keys [db]} [_ n]]
|
||||||
{:db (assoc db ::msg (:message (:request-job n)))
|
{:db (assoc db ::msg (:message (:request-job n)))
|
||||||
:dispatch [::params-change]}))
|
:dispatch-n [[::params-change]
|
||||||
|
[::modal/modal-closed]]}))
|
||||||
|
|
||||||
(re-frame/reg-event-fx
|
(re-frame/reg-event-fx
|
||||||
::saving
|
::saving
|
||||||
|
|||||||
Reference in New Issue
Block a user