From 2e8ac2a294f52555be10284b43e522e46b4b8bcf Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Tue, 26 May 2020 20:12:33 +0200
Subject: [PATCH] #39 fix bug in CSW - getRecordById for ISO 19110

---
 DESCRIPTION          | 2 +-
 R/CSWGetRecordById.R | 3 ++-
 R/ows4R.R            | 2 +-
 man/ows4R.Rd         | 2 +-
 4 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index 3094e0a..93cd5e0 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: ows4R
 Version: 0.1-5
-Date: 2020-03-09
+Date: 2020-05-26
 Title: Interface to OGC Web-Services (OWS)
 Authors@R: c(person("Emmanuel", "Blondel", role = c("aut", "cre"), email = "emmanuel.blondel1@gmail.com", comment = c(ORCID = "0000-0002-5870-5762")),
              person("Norbert", "Billet", role = c("ctb")))
diff --git a/R/CSWGetRecordById.R b/R/CSWGetRecordById.R
index 310ef48..083cb2a 100644
--- a/R/CSWGetRecordById.R
+++ b/R/CSWGetRecordById.R
@@ -96,11 +96,12 @@ CSWGetRecordById <- R6Class("CSWGetRecordById",
           },
           "http://www.isotc211.org/2005/gfc" = {
             out <- NULL
+            print(private$response)
             xmlObjs <- getNodeSet(private$response, "//ns:FC_FeatureCatalogue", c(ns = outputSchema))
             if(length(xmlObjs)>0){
               xmlObj <- xmlObjs[[1]]
               out <- geometa::ISOFeatureCatalogue$new()
-              out$decode(xml = xml)
+              out$decode(xml = xmlObj)
             }
             out
           },
diff --git a/R/ows4R.R b/R/ows4R.R
index 4700c95..b64c65c 100644
--- a/R/ows4R.R
+++ b/R/ows4R.R
@@ -16,7 +16,7 @@
 #'    Type: \tab Package\cr
 #'    Version
 #'    : \tab 0.1-5\cr
-#'    Date: \tab 2020-03-09\cr
+#'    Date: \tab 2020-05-26\cr
 #'    License: \tab MIT\cr
 #'    LazyLoad: \tab yes\cr
 #'  }
diff --git a/man/ows4R.Rd b/man/ows4R.Rd
index dfac25a..4a277e7 100644
--- a/man/ows4R.Rd
+++ b/man/ows4R.Rd
@@ -17,7 +17,7 @@ Web Processing Service (WPS).
    Type: \tab Package\cr
    Version
    : \tab 0.1-5\cr
-   Date: \tab 2020-03-09\cr
+   Date: \tab 2020-05-26\cr
    License: \tab MIT\cr
    LazyLoad: \tab yes\cr
  }