minor bug fix for balance sheet.

2023-09-07 11:29:39 -07:00
parent cdd8d9a98f
commit 848458be7e
1 changed files with 3 additions and 3 deletions
--- a/src/clj/auto_ap/graphql/ledger.clj
+++ b/src/clj/auto_ap/graphql/ledger.clj
@@ -163,9 +163,9 @@

 (defn get-balance-sheet [context args _]
  (let [client-id (:client_id args)
-        client-ids (or (some-> client-id vector)
-                       (filter identity (:client_ids args)))
-        _ (assert-can-see-client (:id context) client-id)
+        client-ids (->> (or (some-> client-id vector)
+                            (filter identity (:client_ids args)))
+                        (filter identity))
        _ (when (not (seq client-ids))
            (throw (ex-info "Please select a client." {:validation-error "Please select a client."})))
        _ (doseq [client-id client-ids]