Making it so manual ledger is searchable and usable

2020-09-30 06:47:17 -07:00
parent a38894a10a
commit 429b02884a
8 changed files with 224 additions and 20 deletions
--- a/src/clj/auto_ap/graphql/ledger.clj
+++ b/src/clj/auto_ap/graphql/ledger.clj
@@ -22,7 +22,7 @@

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