 (defn geometry->iso-xml
   "Returns an individual ISO MENDS geographic extent element for a UMM
   spatial coverage geometry record."
-  [coordinate-system geom]
+  [coordinate-system geom gen-id]
   ;; set the coordinate system based on the spatial coverage for output
-  (let [geom (d/calculate-derived (umm-s/set-coordinate-system coordinate-system geom))]
+  (let [geom     (d/calculate-derived (umm-s/set-coordinate-system coordinate-system geom))]
     (list
-     (x/element :gmd:geographicElement {} (geometry->iso-geom (r/mbr geom)))
-     (x/element :gmd:geographicElement {} (geometry->iso-geom geom)))))
+     (x/element :gmd:geographicElement {} (geometry->iso-geom (r/mbr geom) gen-id))
+     (x/element :gmd:geographicElement {} (geometry->iso-geom geom gen-id)))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Public Functions

(defn spatial-coverage->extent-xml
  "Returns a sequence of ISO MENDS elements from the given SpatialCoverage."
  [{:keys [spatial-representation geometries]}]
  (mapcat #(geometry->iso-xml spatial-representation %) geometries))

                  (map #(x/element :gml:interior {} (gml-linear-ring (:points %))) interior))))))

(defmethod geometry->iso-geom cmr.spatial.mbr.Mbr
  [mbr gen-id]
  (x/element :gmd:EX_GeographicBoundingBox {}
             (x/element :gmd:westBoundLongitude {} (gco-decimal (:west mbr)))
             (x/element :gmd:eastBoundLongitude {} (gco-decimal (:east mbr)))
