Sales orders works correctly now.
This commit is contained in:
@@ -243,22 +243,27 @@
|
||||
)))
|
||||
|
||||
(defn get-access-token []
|
||||
(let [cob-session (login-cobrand)
|
||||
user-session (login-user cob-session)
|
||||
token (->
|
||||
(str (:yodlee-base-url env) "/user/accessTokens?appIds=" 10003600)
|
||||
(try
|
||||
(let [cob-session (login-cobrand)
|
||||
user-session (login-user cob-session)
|
||||
token (->
|
||||
(str (:yodlee-base-url env) "/user/accessTokens?appIds=" 10003600)
|
||||
|
||||
(client/get
|
||||
(merge {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
|
||||
:as :json}
|
||||
other-config))
|
||||
:body
|
||||
:user
|
||||
:accessTokens
|
||||
first
|
||||
:value
|
||||
)]
|
||||
[user-session token]))
|
||||
(client/get
|
||||
(merge {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
|
||||
:as :json}
|
||||
other-config))
|
||||
(doto log/info)
|
||||
:body
|
||||
:user
|
||||
:accessTokens
|
||||
first
|
||||
:value
|
||||
)]
|
||||
[user-session token])
|
||||
(catch Exception e
|
||||
(log/error e)
|
||||
(throw e))))
|
||||
|
||||
(defn create-user []
|
||||
(let [cob-session (login-cobrand)]
|
||||
|
||||
Reference in New Issue
Block a user