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

Unapproving a collection works

Browse Source
This commit is contained in:
Bryce Covert
2020-03-30 08:18:28 -07:00
parent add1dc6fcb
commit 86ed52f44c
3 changed files with 28 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
src/cljs/auto_ap/views/pages/transactions.cljs
View File

@@ -34,7 +34,7 @@
(re-frame/reg-event-fx
::manual-import-completed
(fn [{:keys [db]} [_ {:keys [imported errors]}]]
{:dispatch [::params-change {}]
{:dispatch [::params-change (::params db)]
:db (-> db
(assoc-in [::notification :message] (str "Successfully imported " imported " transactions"))
(assoc-in [::notification :errors] errors))}))
@@ -65,13 +65,25 @@
:end]]]}
:on-success [::received]}}))
(re-frame/reg-event-fx
::transactions-mounted
(fn [{:keys [db]} [_ params]]
(let [already-mounted? (and (db ::params)
(db ::transaction-page))
params-changed? (not= (db ::params)
(update db ::params merge params))]
(if (and already-mounted? (not params-changed?))
{}
{:dispatch [::params-change (merge (::params db ) params) ]}))))
(re-frame/reg-event-fx
::unapprove-all
(fn [cofx [_ params]]
{:db (-> (:db cofx)
(assoc-in [:status :loading] true)
(assoc-in [::params] params))
(assoc-in [:status :loading] true))
:graphql {:token (-> cofx :db :user)
:query-obj
{:venia/operation {:operation/type :mutation
@@ -90,7 +102,8 @@
::received
(fn [db [_ data]]
(-> db
(update ::transaction-page merge (first (:transaction-page data)))
(update ::transaction-page merge (or (first (:transaction-page data))
(first (:unapprove-transactions data))))
(assoc-in [:status :loading] false))))
(re-frame/reg-event-db
@@ -192,7 +205,7 @@
:on-params-change (fn [params]
(re-frame/dispatch [::params-change params]))}]
]))
{:component-will-mount #(re-frame/dispatch-sync [::params-change {:approval-status approval-status}]) }))
{:component-will-mount #(re-frame/dispatch-sync [::transactions-mounted {:approval-status approval-status}]) }))
(def main-content {nil (content {:approval-status nil})
:unapproved (content {:approval-status :unapproved})