fix import batch
This commit is contained in:
@@ -199,6 +199,7 @@
|
||||
(try
|
||||
(f entry)
|
||||
(catch Exception e
|
||||
(println e)
|
||||
(assoc entry :error (.getMessage e)
|
||||
:status (or (:status (ex-data e))
|
||||
:error))))))
|
||||
|
||||
@@ -45,19 +45,15 @@
|
||||
::unmounted
|
||||
(fn [{:keys [db]}]
|
||||
{:dispatch [::data-page/dispose ::page]
|
||||
::track/dispose {:id ::params}
|
||||
:db (dissoc db ::msg)}))
|
||||
::track/dispose {:id ::params}}))
|
||||
|
||||
;; VIEWS
|
||||
(def import-batch-content
|
||||
(with-meta
|
||||
(fn []
|
||||
(let [user @(re-frame/subscribe [::subs/user])
|
||||
message @(re-frame/subscribe [::msg])]
|
||||
(let [user @(re-frame/subscribe [::subs/user])]
|
||||
[:div
|
||||
[:h1.title "Import Batches"]
|
||||
(when message
|
||||
[:div.notification.is-info.is-light message])
|
||||
(when (= "admin" (:user/role user))
|
||||
[:div
|
||||
[:div.is-pulled-right
|
||||
|
||||
Reference in New Issue
Block a user