inspire i18n statement implementation

Author: eblondel

inst/actions/geometa_create_iso_19115.R

@@ -942,7 +942,8 @@ function(action, entity, config){
     dc_inspire1 <- ISODomainConsistency$new()
     cr_inspire1 <- ISOConformanceResult$new()
     cr_inspire_spec1 <- ISOCitation$new()
-    cr_inspire_spec1$setTitle(set_i18n("inspire_spatial_data_services"))
+    inspire_sds = set_i18n("inspire_spatial_data_services")
+    cr_inspire_spec1$setTitle(inspire_sds, locales = geoflow::get_locales_from(inspire_sds))
     cr_inspire1$setExplanation(NA)
     cr_inspire_date1 <- ISODate$new()
     cr_inspire_date1$setDate(as.Date(ISOdate(2010,12,8)))
@@ -956,7 +957,8 @@ function(action, entity, config){
     dc_inspire2 <- ISODomainConsistency$new()
     cr_inspire2 <- ISOConformanceResult$new()
     cr_inspire_spec2 <- ISOCitation$new()
-    cr_inspire_spec2$setTitle(set_i18n("inspire_metadata"))
+    inspire_md = set_i18n("inspire_metadata")
+    cr_inspire_spec2$setTitle(inspire_md, locales = geoflow::get_locales_from(inspire_md))
     cr_inspire2$setExplanation(NA)
     cr_inspire_date2 <- ISODate$new()
     cr_inspire_date2$setDate(as.Date(ISOdate(2008,12,4)))