 (def leaf-node-field-name
   "A map of the concept-scheme to the field name within that concept-scheme that identifies an
   entry as a leaf node."
-  {:providers :Short_Name})
+  {:providers :short-name})
 
 (defn- parse-single-csv-line
   "Parses a single CSV line into an array of values. An example line:

(ns cmr.transmit.kms
  "This namespace handles retrieval of controlled vocabulary from the GCMD Keyword Management
  System (KMS)."
  (:require [clj-http.client :as client]
            [clojure.string :as str]
            [cmr.transmit.config :as config]
            [cmr.transmit.connection :as conn]
            [cmr.common.util :as util]


(comment
  (take 10 (get-provider-hierarchy {:system (cmr.search.system/create-system)}))
  (count (set (map :short-name (get-provider-hierarchy {:system (cmr.search.system/create-system)}))))
  (count (map :short-name (get-provider-hierarchy {:system (cmr.search.system/create-system)})))
  ;; Look for any duplicate providers
  (for [v (vals (group-by keyword (map :short-name (get-provider-hierarchy
                                                     {:system (cmr.search.system/create-system)}))))
        :when (> (count v) 1)]
    v))
