                    (= (:ShortName %) center))
              data-centers)
        {:Roles [center-role]
-        :ShortName center
+        :ShortName short-name
         :LongName long-name}))))
 
 (defn parse-data-centers

  "Return true if ShortName is more than 85 characters and should be truncated"
  [short-name]
  (> (count short-name) u/SHORTNAME_MAX))

(defn- validate-short-name
  "Truncate ShortName if it's count is greater than 85 characters"
  [short-name]
  (u/truncate short-name u/SHORTNAME_MAX (truncate-short-name? short-name)))

(defn- parse-contact-mechanisms
  "Parse ECHO10 contact mechanisms to UMM."

  center-role - role for the data center"
  [doc data-centers center-name center-role]
  (let [center (value-of doc (str "/Collection/" center-name))
        short-name (u/truncate-with-default
                    center u/SHORTNAME_MAX (truncate-short-name? center))
        long-name (when (truncate-short-name? center) center)]
    (if center
      ;; Check to see if we already have an entry for this data center - the role and short name
      ;; match. If so, don't create a new record.
