Replace rdfs:label with gnt:traitId for Phenotypes.

1 files changed, 4 insertions, 1 deletions

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)