From 0894da67f353e74480e55f1300fcc2a5fbf8f145 Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Tue, 30 May 2023 00:36:59 +0200
Subject: [PATCH] fix #326

---
 inst/actions/geometa_create_iso_19110.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/inst/actions/geometa_create_iso_19110.R b/inst/actions/geometa_create_iso_19110.R
index 3e748907..910c1b0a 100644
--- a/inst/actions/geometa_create_iso_19110.R
+++ b/inst/actions/geometa_create_iso_19110.R
@@ -67,10 +67,10 @@ function(action, entity, config){
   fc$addScope(paste0("geoflow:", data_objects[[1]]$uploadType))
   #-> ofv (openfairviewer) scope
   ofv_scope <- "ogc_filters"
-  if(length(data_objects[[1]]$parameters)>0){
+  if(length(entity$data$parameters)>0){
     ofv_scope <- "ogc_viewparams"
   }
-  if(length(data_objects[[1]]$ogc_dimensions)>0){
+  if(length(entity$data$ogc_dimensions)>0){
     ofv_scope <- "ogc_dimensions"
   }
   fc$addScope(paste0("openfairviewer:", ofv_scope))
@@ -171,7 +171,7 @@ function(action, entity, config){
     
     fat_attr <- NULL
     fat_attr_desc <- NULL
-    fto <- data_objects[[1]]$featureTypeObj
+    fto <- entity$data$featureTypeObj
     if(!is.null(fto)) fat_attr <- fto$getMemberById(featureAttrName)
     if(!is.null(fat_attr)){
       fat_attr_desc <- fat_attr$name