From d6e608ffa92e2154dd0b0ba9093139b5bca6479c Mon Sep 17 00:00:00 2001
From: eblondel <emmanuel.blondel1@gmail.com>
Date: Tue, 10 Sep 2024 09:50:37 +0200
Subject: [PATCH] #181 - support M4 - CIT existing classes refacotring

---
 R/ISOAddress.R        | 5 ++++-
 R/ISOCitation.R       | 5 ++++-
 R/ISOCitationSeries.R | 5 ++++-
 R/ISOContact.R        | 5 ++++-
 R/ISOOnLineFunction.R | 5 ++++-
 R/ISOOnlineResource.R | 5 ++++-
 R/ISORole.R           | 5 ++++-
 R/ISOTelephone.R      | 5 ++++-
 8 files changed, 32 insertions(+), 8 deletions(-)

diff --git a/R/ISOAddress.R b/R/ISOAddress.R
index ee882e27..007db240 100644
--- a/R/ISOAddress.R
+++ b/R/ISOAddress.R
@@ -25,7 +25,10 @@ ISOAddress <- R6Class("ISOAddress",
   inherit = ISOAbstractObject,
   private = list(
     xmlElement = "CI_Address",
-    xmlNamespacePrefix = "GMD"
+    xmlNamespacePrefix = list(
+      "19115-1/2" = "GMD",
+      "19115-3" = "CIT"
+    )
   ),
   public = list(
     #'@field deliveryPoint delivery point
diff --git a/R/ISOCitation.R b/R/ISOCitation.R
index e160823e..94ecba30 100644
--- a/R/ISOCitation.R
+++ b/R/ISOCitation.R
@@ -51,7 +51,10 @@ ISOCitation<- R6Class("ISOCitation",
   inherit = ISOAbstractObject,
   private = list(
     xmlElement = "CI_Citation",
-    xmlNamespacePrefix = "GMD"
+    xmlNamespacePrefix = list(
+      "19115-1/2" = "GMD",
+      "19115-3" = "CIT"
+    )
   ),
   public = list(
     #'@field title title
diff --git a/R/ISOCitationSeries.R b/R/ISOCitationSeries.R
index f0162284..724cebc8 100644
--- a/R/ISOCitationSeries.R
+++ b/R/ISOCitationSeries.R
@@ -16,7 +16,10 @@ ISOCitationSeries <- R6Class("ISOCitationSeries",
    inherit = ISOAbstractObject,
    private = list(
      xmlElement = "CI_Series",
-     xmlNamespacePrefix = "GMD"
+     xmlNamespacePrefix = list(
+       "19115-1/2" = "GMD",
+       "19115-3" = "CIT"
+     )
    ),
    public = list(
      #'@field name name [0..1]
diff --git a/R/ISOContact.R b/R/ISOContact.R
index c209fa8b..f3d54d65 100644
--- a/R/ISOContact.R
+++ b/R/ISOContact.R
@@ -35,7 +35,10 @@ ISOContact <- R6Class("ISOContact",
    inherit = ISOAbstractObject,
    private = list(
      xmlElement = "CI_Contact",
-     xmlNamespacePrefix = "GMD"
+     xmlNamespacePrefix = list(
+       "19115-1/2" = "GMD",
+       "19115-3" = "CIT"
+     )
    ),
    public = list(
      #'@field phone phone
diff --git a/R/ISOOnLineFunction.R b/R/ISOOnLineFunction.R
index dbcbaad3..87cd107b 100644
--- a/R/ISOOnLineFunction.R
+++ b/R/ISOOnLineFunction.R
@@ -23,7 +23,10 @@ ISOOnLineFunction <- R6Class("ISOOnLineFunction",
   inherit = ISOCodeListValue,
   private = list(
     xmlElement = "CI_OnLineFunctionCode",
-    xmlNamespacePrefix = "GMD"
+    xmlNamespacePrefix = list(
+      "19115-1/2" = "GMD",
+      "19115-3" = "CIT"
+    )
   ),
   public = list(
     
diff --git a/R/ISOOnlineResource.R b/R/ISOOnlineResource.R
index 78b35919..5ec79f8d 100644
--- a/R/ISOOnlineResource.R
+++ b/R/ISOOnlineResource.R
@@ -25,7 +25,10 @@ ISOOnlineResource <- R6Class("ISOOnlineResource",
   inherit = ISOAbstractObject,
   private = list(
     xmlElement = "CI_OnlineResource",
-    xmlNamespacePrefix = "GMD"
+    xmlNamespacePrefix = list(
+      "19115-1/2" = "GMD",
+      "19115-3" = "CIT"
+    )
   ),
   public = list(
     #'@field linkage linkage
diff --git a/R/ISORole.R b/R/ISORole.R
index f2434dff..40df777d 100644
--- a/R/ISORole.R
+++ b/R/ISORole.R
@@ -23,7 +23,10 @@ ISORole <- R6Class("ISORole",
   inherit = ISOCodeListValue,
   private = list(
     xmlElement = "CI_RoleCode",
-    xmlNamespacePrefix = "GMD"
+    xmlNamespacePrefix = list(
+      "19115-1/2" = "GMD",
+      "19115-3" = "CIT"
+    )
   ),
   public = list(
     
diff --git a/R/ISOTelephone.R b/R/ISOTelephone.R
index 8b2be875..a3a12ec4 100644
--- a/R/ISOTelephone.R
+++ b/R/ISOTelephone.R
@@ -22,7 +22,10 @@ ISOTelephone <- R6Class("ISOTelephone",
    inherit = ISOAbstractObject,
    private = list(
      xmlElement = "CI_Telephone",
-     xmlNamespacePrefix = "GMD"
+     xmlNamespacePrefix = list(
+       "19115-1/2" = "GMD",
+       "19115-3" = "CIT"
+     )
    ),
    public = list(
      #'@field voice voice