maybe makes plaid work, maybe makes yodlee reauthenticate work.
This commit is contained in:
@@ -38,6 +38,27 @@
|
||||
:headers {"Content-Type" "application/edn"}
|
||||
:body (pr-str {:message (.getMessage e)
|
||||
:error (.toString e)})})))
|
||||
|
||||
(GET "/provider-accounts/:client/:id" {:keys [query-params identity edn-params]
|
||||
{:keys [client id]} :route-params
|
||||
:as request}
|
||||
(assert-admin identity)
|
||||
(log/info "looking-up " client id)
|
||||
(try
|
||||
|
||||
{:status 200
|
||||
:headers {"Content-Type" "application/edn"}
|
||||
:body (pr-str (yodlee/get-provider-account-detail (-> client
|
||||
Long/parseLong
|
||||
d-clients/get-by-id
|
||||
:client/code)
|
||||
id))}
|
||||
(catch Exception e
|
||||
(log/error e)
|
||||
{:status 400
|
||||
:headers {"Content-Type" "application/edn"}
|
||||
:body (pr-str {:message (.getMessage e)
|
||||
:error (.toString e)})})))
|
||||
(POST "/provider-accounts/delete/" {:keys [edn-params identity] {:keys [id]} :route-params :as request}
|
||||
(assert-admin identity)
|
||||
(try
|
||||
|
||||
@@ -53,7 +53,7 @@
|
||||
:can-submit [::can-submit]
|
||||
:id ::form}))
|
||||
(defn form [{:keys [provider-account]}]
|
||||
(let [{error :error account-data :data } @(re-frame/subscribe [::forms/form [::form (:id provider-account)]])
|
||||
(let [{error :error account-data :data } @(re-frame/subscribe [::forms/form ::form])
|
||||
|
||||
{:keys [form-inline field error-notification submit-button]} reauthenticate-form
|
||||
]
|
||||
@@ -83,8 +83,7 @@
|
||||
|
||||
(re-frame/reg-event-fx
|
||||
::reauthenticate-start
|
||||
(fn [{:keys [db]} [_ provider-account client-id]]
|
||||
(println provider-account)
|
||||
(fn [{:keys [db]} [_ client-id provider-account ]]
|
||||
{:db (-> db
|
||||
(forms/start-form ::form {:id (:id provider-account)
|
||||
:client-id client-id
|
||||
|
||||
@@ -35,6 +35,20 @@
|
||||
(fn [{:keys [db]} [_ i result]]
|
||||
{:dispatch [::modal/modal-closed ]}))
|
||||
|
||||
|
||||
|
||||
(re-frame/reg-event-fx
|
||||
::request-login-form
|
||||
[with-user ]
|
||||
(fn [{:keys [user]} [_ provider-account client-id]]
|
||||
{:http {:token user
|
||||
:method :get
|
||||
:owns-state {:multi ::request-login-form
|
||||
:which (:id provider-account)}
|
||||
:headers {"Content-Type" "application/edn"}
|
||||
:uri (str "/api/yodlee2/provider-accounts/" client-id "/" (:id provider-account) )
|
||||
:on-success [::form/reauthenticate-start client-id]}}))
|
||||
|
||||
(re-frame/reg-event-fx
|
||||
::delete-provider-account
|
||||
[with-user ]
|
||||
@@ -76,7 +90,8 @@
|
||||
|
||||
(defn table [{:keys [status page]}]
|
||||
(let [params @(re-frame/subscribe [::params])
|
||||
statuses @(re-frame/subscribe [::status/multi ::refresh])]
|
||||
statuses @(re-frame/subscribe [::status/multi ::refresh])
|
||||
login-statuses @(re-frame/subscribe [::status/multi ::request-login-form])]
|
||||
[grid/grid {:status status
|
||||
:on-params-change (fn [p]
|
||||
(re-frame/dispatch [::params-changed p]))
|
||||
@@ -107,7 +122,9 @@
|
||||
[:li (:name a) " - " (:number a) [:div.tag (->$ (:available-balance a))]])]]
|
||||
[grid/cell {}
|
||||
[:div.buttons
|
||||
[buttons/fa-icon {:event [::form/reauthenticate-start c (:id (:client c))]
|
||||
[buttons/fa-icon {:event
|
||||
[::request-login-form c (:id (:client c))]
|
||||
:class (status/class-for (get login-statuses (:id c)))
|
||||
:icon "fa-pencil"}]
|
||||
[buttons/fa-icon {:event [::request-refresh (:id c) (:id (:client c))]
|
||||
:class (status/class-for (get statuses (:id c)))
|
||||
|
||||
Reference in New Issue
Block a user