From f20e3a004cfa7a0cc80834706411dcd0b3ad97a8 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Tue, 4 Feb 2025 08:49:20 +0100
Subject: [PATCH] minor enhancements for ISO 19115 action

---
 inst/actions/geometa_create_iso_19115.R | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/inst/actions/geometa_create_iso_19115.R b/inst/actions/geometa_create_iso_19115.R
index b618319..4adecf2 100644
--- a/inst/actions/geometa_create_iso_19115.R
+++ b/inst/actions/geometa_create_iso_19115.R
@@ -40,7 +40,16 @@ function(action, entity, config){
     rp <- ISOResponsibleParty$new()
     if(is.null(x$firstName)) x$firstName = NA
     if(is.null(x$lastName)) x$lastName = NA
-    if(!is.na(x$firstName) && !is.na(x$lastName)) rp$setIndividualName(paste(x$firstName, x$lastName))
+    indName = ""
+    if(!is.na(x$firstName)) indName = x$firstName
+    if(!is.na(x$lastName)){
+      if(nzchar(indName)){
+        indName = x$lastName
+      }else{
+        indName = paste(indName, x$lastName)
+      }
+    }
+    if(nzchar(indName)) rp$setIndividualName(indName)
     rp$setOrganisationName(x$organizationName)
     rp$setPositionName(x$positionName)
     rp$setRole(role)
@@ -116,7 +125,15 @@ function(action, entity, config){
   }
   md$setCharacterSet("utf8")
   md$setLanguage(entity$language)
-  md$setDateStamp(Sys.time())
+  
+  md_date = Sys.time()
+  if(length(entity$dates)>0){
+    md_dates = entity$dates[sapply(entity$dates, function(x){x$key == "metadata"})]
+    if(length(md_dates)>0){
+      md_date = md_dates[[1]]$value
+    }
+  }
+  md$setDateStamp(md_date)
   
   #locales (i18n/i10n support)
   if(length(entity$locales)>0){