      :browse-flag browsable
      :day-night day-night
      :cloud-cover (str cloud-cover)
+     :coordinate-system coordinate-system
      :shapes (srl/ords-info->shapes ords-info ords)}))
 
 (def ATOM_HEADER_ATTRIBUTES

(defn- atom-reference->xml-element
  "Converts a search result atom reference into an XML element"
  [reference]
  (let [{:keys [id title updated dataset-id producer-gran-id
                size original-format data-center start-date end-date atom-links
                online-access-flag browse-flag day-night cloud-cover shapes]} reference]
    (x/element :entry {}
               (x/element :id {} id)
               (x/element :title {:type "text"} title)

          [browsable] :browsable
          [day-night] :day-night
          [cloud-cover] :cloud-cover
          [coordinate-system] :coordinate-system
          ords-info :ords-info
          ords :ords} :fields} elastic-result
        start-date (when start-date (str/replace (str start-date) #"\+0000" "Z"))
