minor bug fix for balance sheet.
This commit is contained in:
@@ -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]
|
||||||
|
|||||||
Reference in New Issue
Block a user