notid/integreat
1
0
Fork 0
Code Issues Pull Requests 2 Actions Packages Projects Releases Wiki Activity

fix import batch

Browse Source
This commit is contained in:
Bryce Covert
2022-10-10 20:48:37 -07:00
parent 70391b6b56
commit 68721520e6
2 changed files with 3 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/clj/auto_ap/graphql/ledger.clj
View File

@@ -199,6 +199,7 @@
(try (try
(f entry) (f entry)
(catch Exception e (catch Exception e
(println e)
(assoc entry :error (.getMessage e) (assoc entry :error (.getMessage e)
:status (or (:status (ex-data e)) :status (or (:status (ex-data e))
:error)))))) :error))))))

8
src/cljs/auto_ap/views/pages/admin/import_batches.cljs
View File

@@ -45,19 +45,15 @@
::unmounted ::unmounted
(fn [{:keys [db]}] (fn [{:keys [db]}]
{:dispatch [::data-page/dispose ::page] {:dispatch [::data-page/dispose ::page]
::track/dispose {:id ::params} ::track/dispose {:id ::params}}))
:db (dissoc db ::msg)}))
;; VIEWS ;; VIEWS
(def import-batch-content (def import-batch-content
(with-meta (with-meta
(fn [] (fn []
(let [user @(re-frame/subscribe [::subs/user]) (let [user @(re-frame/subscribe [::subs/user])]
message @(re-frame/subscribe [::msg])]
[:div [:div
[:h1.title "Import Batches"] [:h1.title "Import Batches"]
(when message
[:div.notification.is-info.is-light message])
(when (= "admin" (:user/role user)) (when (= "admin" (:user/role user))
[:div [:div
[:div.is-pulled-right [:div.is-pulled-right