         (GET "/" {params :params headers :headers context :request-context}
           (find-concept-by-cmr-concept-id context path-w-extension params headers)))
 
-      ;; Find concepts
+      ;; Find concepts - form encoded
       (context ["/:path-w-extension" :path-w-extension concept-type-w-extension-regex] [path-w-extension]
         (GET "/" {params :params headers :headers context :request-context query-string :query-string}
           (find-concepts context path-w-extension params headers query-string))
         (POST "/" {params :params headers :headers context :request-context body :body-copy}
           (find-concepts context path-w-extension params headers body)))
 
-      ;; AQL search
+      ;; AQL search - xml
       (context ["/concepts/:path-w-extension" :path-w-extension search-w-extension-regex] [path-w-extension]
         (POST "/" {params :params headers :headers context :request-context body :body-copy}
           (find-concepts-by-aql context path-w-extension params headers body)))

(defn- find-concepts
  "Invokes query service to find results and returns the response"
  [context path-w-extension params headers query-string]
  (let [concept-type (concept-type-path-w-extension->concept-type path-w-extension)
        context (-> context
                    (process-context-info params headers)
                    (assoc :query-string query-string))
        params (process-params params path-w-extension headers "application/xml")
        _ (info (format "Searching for %ss from client %s in format %s with params %s."
                        (name concept-type) (:client-id context) (:result-format params) (pr-str params)))
        search-params (lp/process-legacy-psa params query-string)
        results (query-svc/find-concepts-by-parameters context concept-type search-params)]
    (search-response params results)))

(defn- find-concepts-by-aql
  "Invokes query service to parse the AQL query, find results and returns the response"

  (:require [compojure.handler :as handler]
            [compojure.route :as route]
            [compojure.core :refer :all]
            [clojure.string :as str]
            [ring.util.response :as r]
            [ring.util.codec :as codec]
            [ring.middleware.json :as ring-json]
