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

a bunch of fixes.

Browse Source
This commit is contained in:
Bryce Covert
2020-12-07 17:26:25 -08:00
parent b39df72d2f
commit 65ac96b8a4
4 changed files with 21 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
src/clj/auto_ap/datomic/ledger.clj
View File

@@ -4,10 +4,13 @@
[auto-ap.utils :refer [dollars-0?]]
[auto-ap.datomic :refer [merge-query apply-sort-3 apply-pagination add-sorter-fields conn]]
[auto-ap.datomic :refer [uri]]
[clojure.tools.logging :as log]
[clj-time.coerce :as c]
[clj-time.core :as time]))
(defn raw-graphql-ids [db args]
(log/info "ARGS" args)
(let [query (cond-> {:query {:find []
:in ['$ ]

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

@@ -22,7 +22,9 @@
(defn get-ledger-page [context args value]
(let [args (assoc args :id (:id context))
[journal-entries journal-entries-count] (l/get-graphql (<-graphql (:filters args)))
[journal-entries journal-entries-count] (l/get-graphql (assoc (<-graphql (:filters args)
)
:id (:id context)))
journal-entries (mapv
(fn [je]
(update je :journal-entry/line-items

18
src/clj/auto_ap/yodlee/core.clj
View File

@@ -361,14 +361,18 @@
user-session (login-user cob-session)
batch-size 100]
(doto (-> (str (:yodlee-base-url env) "/providerAccounts?providerAccountIds=" pa)
(try
(doto (-> (str (:yodlee-base-url env) "/providerAccounts?providerAccountIds=" pa)
(client/put (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
:body (json/write-str data)
:as :json}
other-config)))
log/info)
(refresh-provider-account pa)))
(client/put (merge {:headers (merge base-headers {"Authorization" (auth-header cob-session user-session)})
:body (json/write-str data)
:as :json}
other-config)))
log/info)
(refresh-provider-account pa)
(catch Exception e
(log/error e)))))
#_(defn get-users []
(let [cob-session (login-cobrand)]