From eed289041e3508199c9ba607eab9197d90a99221 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Wed, 15 May 2024 00:31:24 +0300
Subject: Replace rdfs:label with gnt:traitId for Phenotypes.

---
 examples/phenotype.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/examples/phenotype.scm b/examples/phenotype.scm
index a0b04bf..fd5ed85 100755
--- a/examples/phenotype.scm
+++ b/examples/phenotype.scm
@@ -20,6 +20,9 @@
            (left-join Publication "ON Publication.Id = PublishXRef.PublicationId")
            (left-join Phenotype "ON Phenotype.Id = PublishXRef.PhenotypeId")))
   (schema-triples
+   (gnt:traitId a owl:ObjectProperty)
+   (gnt:traitId rdfs:domain gnc:Phenotype)
+   (gnt:traitId skos:definition "This is the unique trait id assigned from GeneNetwork")
    (gnt:abbreviation a owl:ObjectProperty)
    (gnt:abbreviation rdfs:domain gnc:Phenotype)
    (gnt:abbreviation skos:definition "The abbreviation used for this resource")
@@ -60,7 +63,7 @@
           #:separator ""
           #:proc string-capitalize-first))
     ;; This is the trait's name
-    (set rdfs:label
+    (set gnt:traitId
          (let ((trait-id (field PublishXRef Id)))
            (if (number? trait-id)
                (number->string trait-id)
-- 
cgit v1.2.3