minor bug fix for balance sheet.

This commit is contained in:
2023-09-07 11:29:39 -07:00
parent cdd8d9a98f
commit 848458be7e

View File

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