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

               (x/element :echo:browseFlag {} browse-flag)
               (when day-night (x/element :echo:dayNightFlag {} day-night))
               (when cloud-cover (x/element :echo:cloudCover {} cloud-cover))
               (when coordinate-system (x/element :echo:coordinateSystem {} coordinate-system))
               (map atom-spatial/shape->xml-element shapes))))

(defn- append-links
