   [concept-scheme csv-content]
   (let [all-lines (str/split-lines csv-content)
         ;; Line 2 contains the names of the subfield names
-        subfield-names (map keyword (parse-single-csv-line (second all-lines) ","))
+        subfield-names (map csk/->kebab-case-keyword (parse-single-csv-line (second all-lines) ","))
         keyword-values (map util/remove-blank-keys
                             (map #(zipmap subfield-names (parse-single-csv-line % "\",\""))
                             ;; Lines 3 to the end are the values


(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))

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