 (ns cmr.umm-spec.umm-to-xml-mappings.new-echo10
   "Defines mappings from a UMM record into ECHO10 XML"
-  (:require [cmr.umm-spec.xml.gen :refer :all]
-            [cmr.umm-spec.simple-xpath :refer [select value-at]]))
+  (:require [cmr.umm-spec.xml.gen :refer :all]))
 
 (defn characteristic-mapping
   [data]

                           :Technique
                           :NumberOfSensors)
            [:Characteristics
             (for [cc (select inst "Characteristics")]
               (characteristic-mapping cc))]
            [:Sensors
             (for [ss (select inst "Sensors")]
               [:Sensor
                (elements-from ss
                               :ShortName
                               :LongName
                               :Technique)
                [:Characteristics
                 (map characteristic-mapping (select ss "Characteristics"))]])]
            [:OperationModes
             (for [mode (select inst "OperationalModes")]
               [:OperationMode mode])]])]])]
    [:AdditionalAttributes
     (for [aa (select c "/AdditionalAttributes")]
       [:AdditionalAttribute
        (elements-from aa
                       :Name :Description :DataType :ParameterRangeBegin

                         :PeriodCycleDurationValue)])])

    [:Platforms
     (for [plat (:Platforms c)]
       [:Platform
        (elements-from plat
                       :ShortName
                       :LongName
                       :Type)
        [:Characteristics
         (for [cc (:Characteristics plat)]
           (characteristic-mapping cc))]
        [:Instruments
         (for [inst (:Instruments plat)]
           [:Instrument
            (elements-from inst
                           :ShortName
