fixes.

src/clj/auto_ap/graphql/vendors.clj

@@ -147,14 +147,22 @@
     (d-vendors/get-graphql-by-id (assoc args :id (:id context))
                                  (:id args))))
 
-(defn search [_ args _]
-  (->> (d/q '[:find ?n ?i ?s
-              :in $ ?q
-              :where [(fulltext $ :vendor/search-terms ?q) [[?i ?n _ ?s]]]
-              (not [?i :vendor/hidden true])]
-            (d/db conn)
-            (:query args))
-       (sort-by last)
-       (map (fn [[n i]]
-              {:name n
-               :id i}))))
+(defn search [context args _]
+  (let [data (if (is-admin? (:id context))
+               (d/q '[:find ?n ?i ?s
+                      :in $ ?q
+                      :where [(fulltext $ :vendor/search-terms ?q) [[?i ?n _ ?s]]]]
+                    (d/db conn)
+                    (:query args))
+               (d/q '[:find ?n ?i ?s
+                      :in $ ?q
+                      :where [(fulltext $ :vendor/search-terms ?q) [[?i ?n _ ?s]]]
+                      (not [?i :vendor/hidden true])]
+                    (d/db conn)
+                    (:query args)))]
+    
+    (->> data
+         (sort-by last)
+         (map (fn [[n i]]
+                {:name n
+                 :id   i})))))