tons of small fixes.
This commit is contained in:
@@ -177,6 +177,30 @@
|
||||
(filter #(or (not (:hidden %))
|
||||
is-admin) all-vendors)))
|
||||
|
||||
(re-frame/reg-sub
|
||||
::searchable-vendors
|
||||
:<- [::is-admin?]
|
||||
:<- [::client]
|
||||
:<- [::all-vendors]
|
||||
(fn [[is-admin client all-vendors]]
|
||||
(cond client
|
||||
(filter (fn [{:keys [hidden usage name] :as vendor}]
|
||||
(or (not hidden)
|
||||
(-> (first (filter #(= (:client-id %)
|
||||
(:id client))
|
||||
usage))
|
||||
(:count 0)
|
||||
(> 0))))
|
||||
all-vendors)
|
||||
|
||||
is-admin
|
||||
all-vendors
|
||||
|
||||
:else
|
||||
|
||||
|
||||
(filter #(not (:hidden %)) all-vendors))))
|
||||
|
||||
(re-frame/reg-sub
|
||||
::all-vendors
|
||||
(fn [db]
|
||||
|
||||
Reference in New Issue
Block a user