geonetwork-ui 2.3.2 → 2.4.0-alpha.1.2ade9018

package/src/libs/api/metadata-converter/src/lib/iso19139/write-parts.ts

@@ -1,13 +1,15 @@
 import {
   CatalogRecord,
   Constraint,
-  DatasetDistribution,
+  DatasetOnlineResource,
   DatasetRecord,
   DatasetServiceDistribution,
+  FieldTranslation,
   Individual,
   Keyword,
-  KeywordThesaurus,
+  LanguageCode,
   RecordStatus,
+  RecordTranslations,
   Role,
   ServiceEndpoint,
   ServiceOnlineResource,
@@ -15,12 +17,12 @@ import {
   UpdateFrequencyCode,
   UpdateFrequencyCustom,
 } from '../../../../../../libs/common/domain/src/lib/model/record'
+import { ThesaurusModel } from '../../../../../../libs/common/domain/src/lib/model/thesaurus'
 import format from 'date-fns/format'
+import { Geometry } from 'geojson'
 import {
   ChainableFunction,
-  fallback,
   filterArray,
-  getAtIndex,
   map,
   mapArray,
   noop,
@@ -28,24 +30,28 @@ import {
   tap,
 } from '../function-utils'
 import {
-  XmlElement,
-  addAttribute,
   appendChildren,
   createChild,
   createElement,
-  findChildElement,
+  createNestedChild,
+  createNestedElement,
   findChildOrCreate,
   findChildrenElement,
   findNestedChildOrCreate,
+  findNestedElement,
   findNestedElements,
   readAttribute,
   removeAllChildren,
   removeChildren,
   removeChildrenByName,
   setTextContent,
+  writeAttribute,
+  XmlElement,
 } from '../xml-utils'
 import { readKind } from './read-parts'
+import { writeGeometry } from './utils/geometry'
 import { namePartsToFull } from './utils/individual-name'
+import { LANG_2_TO_3_MAPPER } from '../../../../../../libs/util/i18n/src/lib/language-codes'
 
 export function writeCharacterString(
   text: string
@@ -55,6 +61,32 @@ export function writeCharacterString(
   )
 }
 
+export function writeLocalizedCharacterString(
+  text: string,
+  translations: FieldTranslation,
+  defaultLanguage: LanguageCode
+): ChainableFunction<XmlElement, XmlElement> {
+  if (!translations) return writeCharacterString(text)
+  function createLocalized(lang: LanguageCode, translation: string) {
+    return pipe(
+      createNestedElement('gmd:textGroup', 'gmd:LocalisedCharacterString'),
+      writeAttribute('locale', `#${lang.toUpperCase()}`),
+      setTextContent(translation)
+    )
+  }
+  return pipe(
+    writeCharacterString(text),
+    removeChildrenByName('gmd:PT_FreeText'),
+    createChild('gmd:PT_FreeText'),
+    appendChildren(
+      createLocalized(defaultLanguage, text),
+      ...Object.entries(translations).map(([lang, translation]) =>
+        createLocalized(lang, translation)
+      )
+    )
+  )
+}
+
 export function writeLinkage(
   url: URL
 ): ChainableFunction<XmlElement, XmlElement> {
@@ -73,7 +105,7 @@ export function writeAnchor(
   return tap(
     pipe(
       findChildOrCreate('gmx:Anchor'),
-      addAttribute('xlink:href', url.toString()),
+      writeAttribute('xlink:href', url.toString()),
       text ? setTextContent(text) : noop
     )
   )
@@ -82,11 +114,9 @@ export function writeAnchor(
 export function writeDateTime(
   date: Date
 ): ChainableFunction<XmlElement, XmlElement> {
-  return tap(
-    pipe(
-      findChildOrCreate('gco:DateTime'),
-      setTextContent(format(date, "yyyy-MM-dd'T'HH:mm:ss"))
-    )
+  return pipe(
+    findChildOrCreate('gco:DateTime'),
+    setTextContent(format(date, "yyyy-MM-dd'T'HH:mm:ss"))
   )
 }
 
@@ -101,6 +131,14 @@ export function writeDate(
   )
 }
 
+export function writeDecimal(
+  decimal: number
+): ChainableFunction<XmlElement, XmlElement> {
+  return tap(
+    pipe(findChildOrCreate('gco:Decimal'), setTextContent(decimal.toString()))
+  )
+}
+
 export function getProgressCode(status: RecordStatus): string {
   switch (status) {
     case 'completed':
@@ -169,7 +207,7 @@ export function getRoleCode(role: Role): string {
   }
 }
 
-export function getDistributionProtocol(
+export function getServiceDistributionProtocol(
   distribution: DatasetServiceDistribution
 ): string {
   switch (distribution.accessServiceProtocol.toLowerCase()) {
@@ -232,12 +270,15 @@ export function getISODuration(updateFrequency: UpdateFrequencyCustom): string {
   return `P${duration.years}Y${duration.months}M${duration.days}D${hours}`
 }
 
-export function appendResponsibleParty(contact: Individual) {
+function appendResponsibleParty(
+  contact: Individual,
+  translations: RecordTranslations,
+  defaultLanguage: LanguageCode
+) {
   const fullName = namePartsToFull(contact.firstName, contact.lastName)
 
   const createAddress = pipe(
-    createElement('gmd:address'),
-    createChild('gmd:CI_Address'),
+    createNestedElement('gmd:address', 'gmd:CI_Address'),
     appendChildren(
       pipe(
         createElement('gmd:electronicMailAddress'),
@@ -255,24 +296,20 @@ export function appendResponsibleParty(contact: Individual) {
   )
 
   const createContact = pipe(
-    createElement('gmd:contactInfo'),
-    createChild('gmd:CI_Contact'),
+    createNestedElement('gmd:contactInfo', 'gmd:CI_Contact'),
     contact.phone
       ? appendChildren(
           pipe(
-            createElement('gmd:phone'),
-            createChild('gmd:CI_Telephone'),
-            createChild('gmd:voice'),
+            createNestedElement('gmd:phone', 'gmd:CI_Telephone', 'gmd:voice'),
             writeCharacterString(contact.phone)
           )
         )
       : noop,
     appendChildren(createAddress),
-    'website' in contact.organization
+    contact.organization?.website
       ? appendChildren(
           pipe(
-            createElement('gmd:onlineResource'),
-            createChild('gmd:CI_OnlineResource'),
+            createNestedElement('gmd:onlineResource', 'gmd:CI_OnlineResource'),
             writeLinkage(contact.organization.website)
           )
         )
@@ -298,64 +335,24 @@ export function appendResponsibleParty(contact: Individual) {
             )
           )
         : noop,
+
+      contact.organization?.name
+        ? appendChildren(
+            pipe(
+              createElement('gmd:organisationName'),
+              writeCharacterString(contact.organization.name)
+            )
+          )
+        : noop,
       appendChildren(
-        pipe(
-          createElement('gmd:organisationName'),
-          writeCharacterString(contact.organization.name)
-        ),
         createContact,
         pipe(
-          createElement('gmd:role'),
-          createChild('gmd:CI_RoleCode'),
-          addAttribute(
+          createNestedElement('gmd:role', 'gmd:CI_RoleCode'),
+          writeAttribute(
             'codeList',
             'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#CI_RoleCode'
           ),
-          addAttribute('codeListValue', getRoleCode(contact.role))
-        )
-      )
-    )
-  )
-}
-
-export function updateCitationDate(
-  date: Date,
-  type: 'revision' | 'creation' | 'publication'
-) {
-  return pipe(
-    findNestedElements('gmd:date', 'gmd:CI_Date'),
-    filterArray(
-      pipe(
-        findChildElement('gmd:CI_DateTypeCode'),
-        readAttribute('codeListValue'),
-        map((value) => value === type)
-      )
-    ),
-    getAtIndex(0),
-    findChildElement('gmd:date'),
-    removeAllChildren(),
-    writeDateTime(date)
-  )
-}
-
-export function appendCitationDate(
-  date: Date,
-  type: 'revision' | 'creation' | 'publication'
-) {
-  return appendChildren(
-    pipe(
-      createElement('gmd:date'),
-      createChild('gmd:CI_Date'),
-      appendChildren(
-        pipe(createElement('gmd:date'), writeDateTime(date)),
-        pipe(
-          createElement('gmd:dateType'),
-          createChild('gmd:CI_DateTypeCode'),
-          addAttribute(
-            'codeList',
-            'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#CI_DateTypeCode'
-          ),
-          addAttribute('codeListValue', type)
+          writeAttribute('codeListValue', getRoleCode(contact.role))
         )
       )
     )
@@ -367,18 +364,16 @@ export function removeKeywords() {
 }
 
 // returns a <gmd:thesaurusName> element
-export function createThesaurus(thesaurus: KeywordThesaurus) {
+export function createThesaurus(thesaurus: ThesaurusModel) {
   return pipe(
-    createElement('gmd:thesaurusName'),
-    createChild('gmd:CI_Citation'),
+    createNestedElement('gmd:thesaurusName', 'gmd:CI_Citation'),
     appendChildren(
       pipe(
         createElement('gmd:title'),
         writeCharacterString(thesaurus.name || thesaurus.id)
       ),
       pipe(
-        createElement('gmd:identifier'),
-        createChild('gmd:MD_Identifier'),
+        createNestedElement('gmd:identifier', 'gmd:MD_Identifier'),
         appendChildren(
           pipe(
             createElement('gmd:code'),
@@ -392,7 +387,10 @@ export function createThesaurus(thesaurus: KeywordThesaurus) {
   )
 }
 
-export function appendKeywords(keywords: Keyword[]) {
+export function appendKeywords(
+  keywords: Keyword[],
+  defaultLanguage: LanguageCode
+) {
   // keywords are grouped by thesaurus if they have one, otherwise by type
   const keywordsByThesaurus: Keyword[][] = keywords.reduce((acc, keyword) => {
     const thesaurusId = keyword.thesaurus?.id
@@ -412,17 +410,15 @@ export function appendKeywords(keywords: Keyword[]) {
   return appendChildren(
     ...keywordsByThesaurus.map((keywords) =>
       pipe(
-        createElement('gmd:descriptiveKeywords'),
-        createChild('gmd:MD_Keywords'),
+        createNestedElement('gmd:descriptiveKeywords', 'gmd:MD_Keywords'),
         appendChildren(
           pipe(
-            createElement('gmd:type'),
-            createChild('gmd:MD_KeywordTypeCode'),
-            addAttribute(
+            createNestedElement('gmd:type', 'gmd:MD_KeywordTypeCode'),
+            writeAttribute(
               'codeList',
               'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#MD_KeywordTypeCode'
             ),
-            addAttribute('codeListValue', keywords[0].type)
+            writeAttribute('codeListValue', keywords[0].type)
           )
         ),
         keywords[0].thesaurus
@@ -432,7 +428,11 @@ export function appendKeywords(keywords: Keyword[]) {
           ...keywords.map((keyword) =>
             pipe(
               createElement('gmd:keyword'),
-              writeCharacterString(keyword.label)
+              writeLocalizedCharacterString(
+                keyword.label,
+                keyword.translations?.label,
+                defaultLanguage
+              )
             )
           )
         )
@@ -443,58 +443,74 @@ export function appendKeywords(keywords: Keyword[]) {
 
 export function createConstraint(
   constraint: Constraint,
-  type: 'legal' | 'security' | 'other'
+  type: 'legal' | 'security' | 'other',
+  defaultLanguage: LanguageCode
 ) {
   if (type === 'security') {
     return pipe(
-      createElement('gmd:resourceConstraints'),
-      createChild('gmd:MD_SecurityConstraints'),
+      createNestedElement(
+        'gmd:resourceConstraints',
+        'gmd:MD_SecurityConstraints'
+      ),
       appendChildren(
         pipe(
-          createElement('gmd:classification'),
-          createChild('gmd:MD_ClassificationCode'),
-          addAttribute(
+          createNestedElement(
+            'gmd:classification',
+            'gmd:MD_ClassificationCode'
+          ),
+          writeAttribute(
             'codeList',
             'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#MD_ClassificationCode'
           ),
-          addAttribute('codeListValue', 'restricted')
+          writeAttribute('codeListValue', 'restricted')
         ),
         pipe(
           createElement('gmd:useLimitation'),
-          writeCharacterString(constraint.text)
+          writeLocalizedCharacterString(
+            constraint.text,
+            constraint.translations?.text,
+            defaultLanguage
+          )
         )
       )
     )
   } else if (type === 'legal') {
     return pipe(
-      createElement('gmd:resourceConstraints'),
-      createChild('gmd:MD_LegalConstraints'),
+      createNestedElement('gmd:resourceConstraints', 'gmd:MD_LegalConstraints'),
       appendChildren(
         pipe(
-          createElement('gmd:accessConstraints'),
-          createChild('gmd:MD_RestrictionCode'),
-          addAttribute(
+          createNestedElement(
+            'gmd:accessConstraints',
+            'gmd:MD_RestrictionCode'
+          ),
+          writeAttribute(
             'codeList',
             'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#MD_RestrictionCode'
           ),
-          addAttribute('codeListValue', 'otherRestrictions')
+          writeAttribute('codeListValue', 'otherRestrictions')
         ),
         pipe(
           createElement('gmd:otherConstraints'),
-          writeCharacterString(constraint.text)
+          writeLocalizedCharacterString(
+            constraint.text,
+            constraint.translations?.text,
+            defaultLanguage
+          )
         )
       )
     )
   }
 
   return pipe(
-    createElement('gmd:resourceConstraints'),
-    createChild('gmd:MD_Constraints'),
-    appendChildren(
-      pipe(
-        createElement('gmd:useLimitation'),
-        writeCharacterString(constraint.text)
-      )
+    createNestedElement(
+      'gmd:resourceConstraints',
+      'gmd:MD_Constraints',
+      'gmd:useLimitation'
+    ),
+    writeLocalizedCharacterString(
+      constraint.text,
+      constraint.translations?.text,
+      defaultLanguage
     )
   )
 }
@@ -567,48 +583,51 @@ export function removeLicenses() {
   )
 }
 
-export function createLicense(license: Constraint) {
+export function createLicense(
+  license: Constraint,
+  defaultLanguage: LanguageCode
+) {
   return pipe(
-    createElement('gmd:resourceConstraints'),
-    createChild('gmd:MD_LegalConstraints'),
+    createNestedElement('gmd:resourceConstraints', 'gmd:MD_LegalConstraints'),
     appendChildren(
       pipe(
-        createElement('gmd:accessConstraints'),
-        createChild('gmd:MD_RestrictionCode'),
-        addAttribute(
+        createNestedElement('gmd:accessConstraints', 'gmd:MD_RestrictionCode'),
+        writeAttribute(
           'codeList',
           'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#MD_RestrictionCode'
         ),
-        addAttribute('codeListValue', 'license')
+        writeAttribute('codeListValue', 'license')
       ),
       pipe(
-        createElement('gmd:accessConstraints'),
-        createChild('gmd:MD_RestrictionCode'),
-        addAttribute(
+        createNestedElement('gmd:accessConstraints', 'gmd:MD_RestrictionCode'),
+        writeAttribute(
           'codeList',
           'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#MD_RestrictionCode'
         ),
-        addAttribute('codeListValue', 'otherRestrictions')
+        writeAttribute('codeListValue', 'otherRestrictions')
       ),
       pipe(
         createElement('gmd:otherConstraints'),
         'url' in license
           ? writeAnchor(license.url, license.text)
-          : writeCharacterString(license.text)
+          : writeLocalizedCharacterString(
+              license.text,
+              license.translations?.text,
+              defaultLanguage
+            )
       )
     )
   )
 }
 
-export function removeDistributions() {
-  return pipe(removeChildrenByName('gmd:distributionInfo'))
+export function removeOnlineResources() {
+  return removeChildrenByName('gmd:distributionInfo')
 }
 
-function appendDistributionFormat(mimeType: string) {
+function appendOnlineResourceFormat(mimeType: string) {
   return appendChildren(
     pipe(
-      createElement('gmd:distributionFormat'),
-      createChild('gmd:MD_Format'),
+      createNestedElement('gmd:distributionFormat', 'gmd:MD_Format'),
       appendChildren(
         pipe(createElement('gmd:name'), writeCharacterString(mimeType)),
         pipe(
@@ -621,71 +640,84 @@ function appendDistributionFormat(mimeType: string) {
 }
 
 export function createDistributionInfo() {
-  return pipe(
-    createElement('gmd:distributionInfo'),
-    createChild('gmd:MD_Distribution')
-  )
+  return createNestedElement('gmd:distributionInfo', 'gmd:MD_Distribution')
 }
 
 // apply to MD_Distribution
-export function appendDistribution(
-  distribution: DatasetDistribution,
+export function appendOnlineResource(
+  onlineResource: DatasetOnlineResource,
   appendFormatFn: (
     mimeType: string
-  ) => ChainableFunction<XmlElement, XmlElement>
+  ) => ChainableFunction<XmlElement, XmlElement>,
+  translations: RecordTranslations,
+  defaultLanguage: LanguageCode
 ) {
   let name: string
   let functionCode: string
   let protocol: string
-  if (distribution.type === 'service') {
-    name = distribution.identifierInService // this is for GeoNetwork to know the layer name
+  if (onlineResource.type === 'service') {
+    name = onlineResource.identifierInService // this is for GeoNetwork to know the layer name
     functionCode = 'download'
-    protocol = getDistributionProtocol(distribution)
-  } else if (distribution.type === 'download') {
-    name = distribution.name
+    protocol = getServiceDistributionProtocol(onlineResource)
+  } else if (onlineResource.type === 'download') {
+    name = onlineResource.name
     functionCode = 'download'
     protocol = 'WWW:DOWNLOAD'
   } else {
-    name = distribution.name
+    name = onlineResource.name
     functionCode = 'information'
     protocol = 'WWW:LINK'
   }
   const appendTransferOptions = appendChildren(
     pipe(
-      createElement('gmd:transferOptions'),
-      createChild('gmd:MD_DigitalTransferOptions'),
-      createChild('gmd:onLine'),
-      createChild('gmd:CI_OnlineResource'),
-      writeLinkage(distribution.url),
-      'description' in distribution
+      createNestedElement(
+        'gmd:transferOptions',
+        'gmd:MD_DigitalTransferOptions',
+        'gmd:onLine',
+        'gmd:CI_OnlineResource'
+      ),
+      writeLinkage(onlineResource.url),
+      'description' in onlineResource
         ? appendChildren(
             pipe(
               createElement('gmd:description'),
-              writeCharacterString(distribution.description)
+              writeLocalizedCharacterString(
+                onlineResource.description,
+                onlineResource.translations?.description,
+                defaultLanguage
+              )
             )
           )
         : noop,
       name !== undefined
         ? appendChildren(
-            pipe(createElement('gmd:name'), writeCharacterString(name))
+            pipe(
+              createElement('gmd:name'),
+              writeLocalizedCharacterString(
+                name,
+                onlineResource.translations?.name,
+                defaultLanguage
+              )
+            )
           )
         : noop,
       appendChildren(
         pipe(createElement('gmd:protocol'), writeCharacterString(protocol)),
         pipe(
-          createElement('gmd:function'),
-          createChild('gmd:CI_OnLineFunctionCode'),
-          addAttribute(
+          createNestedElement('gmd:function', 'gmd:CI_OnLineFunctionCode'),
+          writeAttribute(
             'codeList',
             'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#CI_OnLineFunctionCode'
           ),
-          addAttribute('codeListValue', functionCode)
+          writeAttribute('codeListValue', functionCode)
         )
       )
     )
   )
   return pipe(
-    'mimeType' in distribution ? appendFormatFn(distribution.mimeType) : noop,
+    'mimeType' in onlineResource
+      ? appendFormatFn(onlineResource.mimeType)
+      : noop,
     appendTransferOptions
   )
 }
@@ -725,46 +757,11 @@ export function writeUniqueIdentifier(
 export function writeKind(record: CatalogRecord, rootEl: XmlElement) {
   pipe(
     findNestedChildOrCreate('gmd:hierarchyLevel', 'gmd:MD_ScopeCode'),
-    addAttribute(
+    writeAttribute(
       'codeList',
       'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#MD_ScopeCode'
     ),
-    addAttribute('codeListValue', record.kind)
-  )(rootEl)
-}
-
-export function writeOwnerOrganization(
-  record: CatalogRecord,
-  rootEl: XmlElement
-) {
-  // if no contact matches the owner org, create an empty one
-  const ownerContact: Individual = record.contacts.find(
-    (contact) => contact.organization.name === record.ownerOrganization.name
-  )
-  pipe(
-    findChildOrCreate('gmd:contact'),
-    removeAllChildren(),
-    appendResponsibleParty(
-      ownerContact
-        ? {
-            ...ownerContact,
-            // owner responsible party is always point of contact
-            role: 'point_of_contact',
-          }
-        : {
-            organization: record.ownerOrganization,
-            email: '',
-            role: 'point_of_contact',
-          }
-    )
-  )(rootEl)
-}
-
-export function writeRecordUpdated(record: CatalogRecord, rootEl: XmlElement) {
-  pipe(
-    findChildOrCreate('gmd:dateStamp'),
-    removeAllChildren(),
-    writeDateTime(record.recordUpdated)
+    writeAttribute('codeListValue', record.kind)
   )(rootEl)
 }
 
@@ -772,7 +769,11 @@ export function writeTitle(record: CatalogRecord, rootEl: XmlElement) {
   pipe(
     findOrCreateIdentification(),
     findNestedChildOrCreate('gmd:citation', 'gmd:CI_Citation', 'gmd:title'),
-    writeCharacterString(record.title)
+    writeLocalizedCharacterString(
+      record.title,
+      record.translations?.title,
+      record.defaultLanguage
+    )
   )(rootEl)
 }
 
@@ -780,7 +781,11 @@ export function writeAbstract(record: CatalogRecord, rootEl: XmlElement) {
   pipe(
     findOrCreateIdentification(),
     findChildOrCreate('gmd:abstract'),
-    writeCharacterString(record.abstract)
+    writeLocalizedCharacterString(
+      record.abstract,
+      record.translations?.abstract,
+      record.defaultLanguage
+    )
   )(rootEl)
 }
 
@@ -788,11 +793,11 @@ export function writeStatus(record: DatasetRecord, rootEl: XmlElement) {
   pipe(
     findOrCreateIdentification(),
     findNestedChildOrCreate('gmd:status', 'gmd:MD_ProgressCode'),
-    addAttribute(
+    writeAttribute(
       'codeList',
       'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#MD_ProgressCode'
     ),
-    addAttribute('codeListValue', getProgressCode(record.status))
+    writeAttribute('codeListValue', getProgressCode(record.status))
   )(rootEl)
 }
 
@@ -801,7 +806,14 @@ export function writeContacts(record: CatalogRecord, rootEl: XmlElement) {
     removeChildrenByName('gmd:contact'),
     appendChildren(
       ...record.contacts.map((contact) =>
-        pipe(createElement('gmd:contact'), appendResponsibleParty(contact))
+        pipe(
+          createElement('gmd:contact'),
+          appendResponsibleParty(
+            contact,
+            record.translations,
+            record.defaultLanguage
+          )
+        )
       )
     )
   )(rootEl)
@@ -819,7 +831,11 @@ export function writeContactsForResource(
       ...record.contactsForResource.map((contact) =>
         pipe(
           createElement('gmd:pointOfContact'),
-          appendResponsibleParty(contact)
+          appendResponsibleParty(
+            contact,
+            record.translations,
+            record.defaultLanguage
+          )
         )
       )
     )
@@ -830,7 +846,7 @@ export function writeKeywords(record: CatalogRecord, rootEl: XmlElement) {
   pipe(
     findOrCreateIdentification(),
     removeKeywords(),
-    appendKeywords(record.keywords)
+    appendKeywords(record.keywords, record.defaultLanguage)
   )(rootEl)
 }
 
@@ -841,8 +857,7 @@ export function writeTopics(record: CatalogRecord, rootEl: XmlElement) {
     appendChildren(
       ...record.topics.map((topic) =>
         pipe(
-          createElement('gmd:topicCategory'),
-          createChild('gmd:MD_TopicCategoryCode'),
+          createNestedElement('gmd:topicCategory', 'gmd:MD_TopicCategoryCode'),
           setTextContent(topic)
         )
       )
@@ -854,7 +869,11 @@ export function writeLicenses(record: CatalogRecord, rootEl: XmlElement) {
   pipe(
     findOrCreateIdentification(),
     removeLicenses(),
-    appendChildren(...record.licenses.map(createLicense))
+    appendChildren(
+      ...record.licenses.map((license) =>
+        createLicense(license, record.defaultLanguage)
+      )
+    )
   )(rootEl)
 }
 
@@ -866,7 +885,9 @@ export function writeLegalConstraints(
     findOrCreateIdentification(),
     removeLegalConstraints(),
     appendChildren(
-      ...record.legalConstraints.map((c) => createConstraint(c, 'legal'))
+      ...record.legalConstraints.map((c) =>
+        createConstraint(c, 'legal', record.defaultLanguage)
+      )
     )
   )(rootEl)
 }
@@ -879,7 +900,9 @@ export function writeSecurityConstraints(
     findOrCreateIdentification(),
     removeSecurityConstraints(),
     appendChildren(
-      ...record.securityConstraints.map((c) => createConstraint(c, 'security'))
+      ...record.securityConstraints.map((c) =>
+        createConstraint(c, 'security', record.defaultLanguage)
+      )
     )
   )(rootEl)
 }
@@ -892,7 +915,9 @@ export function writeOtherConstraints(
     findOrCreateIdentification(),
     removeOtherConstraints(),
     appendChildren(
-      ...record.otherConstraints.map((c) => createConstraint(c, 'other'))
+      ...record.otherConstraints.map((c) =>
+        createConstraint(c, 'other', record.defaultLanguage)
+      )
     )
   )(rootEl)
 }
@@ -908,18 +933,22 @@ export function writeUpdateFrequency(
     findChildOrCreate('gmd:MD_MaintenanceInformation'),
     typeof record.updateFrequency === 'object'
       ? pipe(
-          createChild('gmd:userDefinedMaintenanceFrequency'),
-          createChild('gts:TM_PeriodDuration'),
+          createNestedChild(
+            'gmd:userDefinedMaintenanceFrequency',
+            'gts:TM_PeriodDuration'
+          ),
           setTextContent(getISODuration(record.updateFrequency))
         )
       : pipe(
-          createChild('gmd:maintenanceAndUpdateFrequency'),
-          createChild('gmd:MD_MaintenanceFrequencyCode'),
-          addAttribute(
+          createNestedChild(
+            'gmd:maintenanceAndUpdateFrequency',
+            'gmd:MD_MaintenanceFrequencyCode'
+          ),
+          writeAttribute(
             'codeList',
             'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#MD_MaintenanceFrequencyCode'
           ),
-          addAttribute(
+          writeAttribute(
             'codeListValue',
             getMaintenanceFrequencyCode(record.updateFrequency)
           )
@@ -927,66 +956,114 @@ export function writeUpdateFrequency(
   )(rootEl)
 }
 
-export function writeResourceCreated(
-  record: DatasetRecord,
-  rootEl: XmlElement
-) {
-  if (!('resourceCreated' in record)) return
+export function writeRecordUpdated(record: CatalogRecord, rootEl: XmlElement) {
   pipe(
+    findChildOrCreate('gmd:dateStamp'),
+    removeAllChildren(),
+    writeDateTime(record.recordUpdated)
+  )(rootEl)
+}
+
+export function removeResourceDate(
+  type: 'revision' | 'creation' | 'publication'
+) {
+  return pipe(
     findOrCreateIdentification(),
     findNestedChildOrCreate('gmd:citation', 'gmd:CI_Citation'),
-    fallback(
-      updateCitationDate(record.resourceCreated, 'creation'),
-      appendCitationDate(record.resourceCreated, 'creation')
+    removeChildren(
+      pipe(
+        findNestedElements('gmd:date'),
+        filterArray(
+          pipe(
+            findNestedElement(
+              'gmd:CI_Date',
+              'gmd:dateType',
+              'gmd:CI_DateTypeCode'
+            ),
+            readAttribute('codeListValue'),
+            map((value) => value === type)
+          )
+        )
+      )
     )
-  )(rootEl)
+  )
 }
 
-export function writeResourceUpdated(
-  record: DatasetRecord,
-  rootEl: XmlElement
+export function appendResourceDate(
+  date: Date,
+  type: 'revision' | 'creation' | 'publication'
 ) {
-  if (!('resourceUpdated' in record)) return
-  pipe(
+  return pipe(
     findOrCreateIdentification(),
     findNestedChildOrCreate('gmd:citation', 'gmd:CI_Citation'),
-    fallback(
-      updateCitationDate(record.resourceUpdated, 'revision'),
-      appendCitationDate(record.resourceUpdated, 'revision')
+    appendChildren(
+      pipe(
+        createNestedElement('gmd:date', 'gmd:CI_Date'),
+        appendChildren(
+          pipe(createElement('gmd:date'), writeDateTime(date)),
+          pipe(
+            createNestedElement('gmd:dateType', 'gmd:CI_DateTypeCode'),
+            writeAttribute(
+              'codeList',
+              'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#CI_DateTypeCode'
+            ),
+            writeAttribute('codeListValue', type)
+          )
+        )
+      )
     )
-  )(rootEl)
+  )
+}
+
+export function writeResourceCreated(
+  record: DatasetRecord,
+  rootEl: XmlElement
+) {
+  removeResourceDate('creation')(rootEl)
+  if (!record.resourceCreated) return
+  appendResourceDate(record.resourceCreated, 'creation')(rootEl)
+}
+
+export function writeResourceUpdated(
+  record: DatasetRecord,
+  rootEl: XmlElement
+) {
+  removeResourceDate('revision')(rootEl)
+  if (!record.resourceUpdated) return
+  appendResourceDate(record.resourceUpdated, 'revision')(rootEl)
 }
 
 export function writeResourcePublished(
   record: DatasetRecord,
   rootEl: XmlElement
 ) {
-  if (!('resourcePublished' in record)) return
-  pipe(
-    findOrCreateIdentification(),
-    findNestedChildOrCreate('gmd:citation', 'gmd:CI_Citation'),
-    fallback(
-      updateCitationDate(record.resourcePublished, 'publication'),
-      appendCitationDate(record.resourcePublished, 'publication')
-    )
-  )(rootEl)
+  removeResourceDate('publication')(rootEl)
+  if (!record.resourcePublished) return
+  appendResourceDate(record.resourcePublished, 'publication')(rootEl)
 }
 
 export function writeSpatialRepresentation(
   record: DatasetRecord,
   rootEl: XmlElement
 ) {
+  if (!record.spatialRepresentation) {
+    pipe(
+      findOrCreateIdentification(),
+      removeChildrenByName('gmd:spatialRepresentationType')
+    )(rootEl)
+    return
+  }
   pipe(
     findOrCreateIdentification(),
     findNestedChildOrCreate(
       'gmd:spatialRepresentationType',
       'gmd:MD_SpatialRepresentationTypeCode'
     ),
-    addAttribute(
+    writeAttribute(
       'codeList',
       'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#MD_SpatialRepresentationTypeCode'
     ),
-    addAttribute('codeListValue', record.spatialRepresentation)
+    writeAttribute('codeListValue', record.spatialRepresentation)
   )(rootEl)
 }
 
@@ -1000,8 +1077,7 @@ export function writeGraphicOverviews(
     appendChildren(
       ...record.overviews.map((overview) =>
         pipe(
-          createElement('gmd:graphicOverview'),
-          createChild('gmd:MD_BrowseGraphic'),
+          createNestedElement('gmd:graphicOverview', 'gmd:MD_BrowseGraphic'),
           appendChildren(
             pipe(
               createElement('gmd:fileName'),
@@ -1022,20 +1098,6 @@ export function writeGraphicOverviews(
   )(rootEl)
 }
 
-export function writeDistributions(record: DatasetRecord, rootEl: XmlElement) {
-  pipe(
-    removeDistributions(),
-    appendChildren(
-      ...record.distributions.map((d) =>
-        pipe(
-          createDistributionInfo(),
-          appendDistribution(d, appendDistributionFormat)
-        )
-      )
-    )
-  )(rootEl)
-}
-
 export function writeLineage(record: DatasetRecord, rootEl: XmlElement) {
   pipe(
     findNestedChildOrCreate(
@@ -1045,7 +1107,11 @@ export function writeLineage(record: DatasetRecord, rootEl: XmlElement) {
       'gmd:LI_Lineage',
       'gmd:statement'
     ),
-    writeCharacterString(record.lineage)
+    writeLocalizedCharacterString(
+      record.lineage,
+      record.translations?.lineage,
+      record.defaultLanguage
+    )
   )(rootEl)
 }
 
@@ -1076,9 +1142,11 @@ export function createOnlineResource(onlineResource: ServiceOnlineResource) {
   const appendTransferOptions = appendChildren(
     pipe(
       createElement('gmd:transferOptions'),
-      createChild('gmd:MD_DigitalTransferOptions'),
-      createChild('gmd:onLine'),
-      createChild('gmd:CI_OnlineResource'),
+      createNestedChild(
+        'gmd:MD_DigitalTransferOptions',
+        'gmd:onLine',
+        'gmd:CI_OnlineResource'
+      ),
       writeLinkage(linkageUrl),
       'description' in onlineResource
         ? appendChildren(
@@ -1099,34 +1167,61 @@ export function createOnlineResource(onlineResource: ServiceOnlineResource) {
       appendChildren(
         pipe(createElement('gmd:protocol'), writeCharacterString(protocol)),
         pipe(
-          createElement('gmd:function'),
-          createChild('gmd:CI_OnLineFunctionCode'),
-          addAttribute(
+          createNestedElement('gmd:function', 'gmd:CI_OnLineFunctionCode'),
+          writeAttribute(
             'codeList',
             'http://standards.iso.org/iso/19139/resources/gmxCodelists.xml#CI_OnLineFunctionCode'
           ),
-          addAttribute('codeListValue', functionCode)
+          writeAttribute('codeListValue', functionCode)
         )
       )
     )
   )
   return pipe(
-    createElement('gmd:distributionInfo'),
-    createChild('gmd:MD_Distribution'),
+    createNestedElement('gmd:distributionInfo', 'gmd:MD_Distribution'),
     appendTransferOptions
   )
 }
 
-export function writeOnlineResources(
-  record: ServiceRecord,
+export function appendDatasetOnlineResources(
+  record: DatasetRecord,
   rootEl: XmlElement
 ) {
-  pipe(
-    removeDistributions(),
-    appendChildren(...record.onlineResources.map(createOnlineResource))
+  appendChildren(
+    ...record.onlineResources.map((d) =>
+      pipe(
+        createDistributionInfo(),
+        appendOnlineResource(
+          d,
+          appendOnlineResourceFormat,
+          record.translations,
+          record.defaultLanguage
+        )
+      )
+    )
   )(rootEl)
 }
 
+export function appendServiceOnlineResources(
+  record: ServiceRecord,
+  rootEl: XmlElement
+) {
+  appendChildren(...record.onlineResources.map(createOnlineResource))(rootEl)
+}
+
+export function writeOnlineResources(
+  record: CatalogRecord,
+  rootEl: XmlElement
+) {
+  removeOnlineResources()(rootEl)
+
+  if (record.kind === 'dataset') {
+    appendDatasetOnlineResources(record, rootEl)
+    return
+  }
+  appendServiceOnlineResources(record, rootEl)
+}
+
 export function writeTemporalExtents(
   record: DatasetRecord,
   rootEl: XmlElement
@@ -1138,20 +1233,18 @@ export function writeTemporalExtents(
     appendChildren(
       ...record.temporalExtents.map((extent) =>
         pipe(
-          createElement('gmd:temporalElement'),
-          createChild('gmd:EX_TemporalExtent'),
+          createNestedElement('gmd:temporalElement', 'gmd:EX_TemporalExtent'),
           appendChildren(
             'start' in extent && 'end' in extent
               ? pipe(
-                  createElement('gmd:extent'),
-                  createChild('gml:TimePeriod'),
+                  createNestedElement('gmd:extent', 'gml:TimePeriod'),
                   appendChildren(
                     pipe(
                       createElement('gml:beginPosition'),
                       pipe(
                         extent.start
                           ? setTextContent(format(extent.start, 'yyyy-MM-dd'))
-                          : addAttribute('indeterminatePosition', 'unknown')
+                          : writeAttribute('indeterminatePosition', 'unknown')
                       )
                     ),
                     pipe(
@@ -1159,24 +1252,20 @@ export function writeTemporalExtents(
                       pipe(
                         extent.end
                           ? setTextContent(format(extent.end, 'yyyy-MM-dd'))
-                          : addAttribute('indeterminatePosition', 'unknown')
+                          : writeAttribute('indeterminatePosition', 'unknown')
                       )
                     )
                   )
                 )
               : pipe(
-                  createElement('gmd:extent'),
-                  createChild('gml:TimeInstant'),
-                  appendChildren(
-                    pipe(
-                      createElement('gml:timePosition'),
-                      pipe(
-                        extent.start
-                          ? setTextContent(format(extent.start, 'yyyy-MM-dd'))
-                          : addAttribute('indeterminatePosition', 'unknown')
-                      )
-                    )
-                  )
+                  createNestedElement(
+                    'gmd:extent',
+                    'gml:TimeInstant',
+                    'gml:timePosition'
+                  ),
+                  extent.start
+                    ? setTextContent(format(extent.start, 'yyyy-MM-dd'))
+                    : writeAttribute('indeterminatePosition', 'unknown')
                 )
           )
         )
@@ -1184,3 +1273,111 @@ export function writeTemporalExtents(
     )
   )(rootEl)
 }
+
+export function writeSpatialExtents(record: DatasetRecord, rootEl: XmlElement) {
+  const appendBoundingPolygon = (geometry?: Geometry) => {
+    if (!geometry) return null
+    return pipe(
+      createElement('gmd:EX_BoundingPolygon'),
+      appendChildren(
+        pipe(
+          createElement('gmd:polygon'),
+          appendChildren(() => writeGeometry(geometry))
+        )
+      )
+    )
+  }
+
+  const appendGeographicBoundingBox = (
+    bbox?: [number, number, number, number]
+  ) => {
+    if (!bbox) return null
+    return pipe(
+      createElement('gmd:EX_GeographicBoundingBox'),
+      appendChildren(
+        pipe(createElement('gmd:westBoundLongitude'), writeDecimal(bbox[0])),
+        pipe(createElement('gmd:eastBoundLongitude'), writeDecimal(bbox[2])),
+        pipe(createElement('gmd:southBoundLatitude'), writeDecimal(bbox[1])),
+        pipe(createElement('gmd:northBoundLatitude'), writeDecimal(bbox[3]))
+      )
+    )
+  }
+
+  const appendGeographicDescription = (
+    description?: string,
+    translations?: FieldTranslation
+  ) => {
+    if (!description) return null
+    return pipe(
+      createNestedElement(
+        'gmd:EX_GeographicDescription',
+        'gmd:geographicIdentifier',
+        'gmd:MD_Identifier',
+        'gmd:code'
+      ),
+      writeLocalizedCharacterString(
+        description,
+        translations,
+        record.defaultLanguage
+      )
+    )
+  }
+
+  pipe(
+    findOrCreateIdentification(),
+    findNestedChildOrCreate('gmd:extent', 'gmd:EX_Extent'),
+    removeChildrenByName('gmd:geographicElement'),
+    appendChildren(
+      ...record.spatialExtents.map((extent) =>
+        pipe(
+          createElement('gmd:geographicElement'),
+          appendChildren(
+            appendBoundingPolygon(extent.geometry),
+            appendGeographicBoundingBox(extent.bbox),
+            appendGeographicDescription(
+              extent.description,
+              extent.translations?.description
+            )
+          )
+        )
+      )
+    )
+  )(rootEl)
+}
+
+export function writeLanguages(record: DatasetRecord, rootEl: XmlElement) {
+  // clear existing
+  removeChildrenByName('gmd:locale')(rootEl)
+
+  // do not write down languages if there is nothing else than the default one
+  if (!record.otherLanguages?.length) {
+    return
+  }
+
+  const createLanguageEl = (lang: LanguageCode) =>
+    pipe(
+      createNestedElement('gmd:locale', 'gmd:PT_Locale'),
+      writeAttribute('id', lang.toUpperCase()),
+      createNestedChild('gmd:languageCode', 'gmd:LanguageCode'),
+      writeAttribute('codeList', 'http://www.loc.gov/standards/iso639-2/'),
+      writeAttribute('codeListValue', LANG_2_TO_3_MAPPER[lang])
+    )
+
+  // add new languages (only if other than default one)
+  appendChildren(
+    createLanguageEl(record.defaultLanguage),
+    ...record.otherLanguages.map(createLanguageEl)
+  )(rootEl)
+}
+
+export function writeDefaultLanguage(
+  record: DatasetRecord,
+  rootEl: XmlElement
+) {
+  const lang3 = LANG_2_TO_3_MAPPER[record.defaultLanguage.toLowerCase()]
+  return pipe(
+    findNestedChildOrCreate('gmd:language', 'gmd:LanguageCode'),
+    writeAttribute('codeList', 'http://www.loc.gov/standards/iso639-2/'),
+    writeAttribute('codeListValue', lang3)
+  )(rootEl)
+}