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

Warns when an account is unusable

Browse Source
This commit is contained in:
Bryce
2024-03-28 19:39:47 -07:00
parent 0d75df522d
commit 6496eea485
5 changed files with 29 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/clj/auto_ap/ssr/account.clj
View File

@@ -4,6 +4,7 @@
[auto-ap.graphql.utils
:refer [assert-can-see-client can-see-client? cleanse-query is-admin?]]
[auto-ap.solr :as solr]
[auto-ap.logging :as alog]
[auto-ap.ssr.utils
:refer [entity-id ref->enum-schema wrap-schema-enforce]]
[com.brunobonacci.mulog :as mu]
@@ -34,8 +35,7 @@
:name (first name)})))
(defn account-search [{{:keys [q client-id allowance vendor-id] :as qp} :query-params id :identity}]
(defn account-search [{{:keys [q client-id purpose vendor-id] :as qp} :query-params id :identity}]
(when client-id
(assert-can-see-client id client-id))
(let [num (some-> (re-find #"([0-9]+)" q)
@@ -46,9 +46,9 @@
valid-allowances (cond-> #{:allowance/allowed
:allowance/warn}
(is-admin? id) (conj :allowance/admin-only))
allowance (cond (= allowance :vendor)
allowance (cond (= purpose "vendor")
:account/vendor-allowance
(= allowance :invoice)
(= purpose "invoice")
:account/invoice-allowance
:else
:account/default-allowance)
@@ -99,6 +99,6 @@
[:maybe entity-id]]
[:vendor-id {:optional true}
[:maybe entity-id]]
[:allowance {:optional true}
[:maybe (ref->enum-schema "allowance")]]])))
[:purpose {:optional true}
[:maybe :string]]])))