From b4acc5bce12a308141b9f1fd235e0a19bf100bc1 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Mon, 21 Aug 2023 16:03:57 +0300
Subject: Replace gnt:traitName with rdfs:label

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/phenotype.scm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(limited to 'examples/phenotype.scm')

diff --git a/examples/phenotype.scm b/examples/phenotype.scm
index 772c2bc..42396af 100755
--- a/examples/phenotype.scm
+++ b/examples/phenotype.scm
@@ -26,9 +26,6 @@
    (gnt:abbreviation a owl:ObjectProperty)
    (gnt:abbreviation rdfs:domain gnc:phenotype)
    (gnt:abbreviation skos:definition "The abbreviation used for this resource")
-   (gnt:traitName a owl:ObjectProperty)
-   (gnt:traitName rdfs:domain gnc:phenotype)
-   (gnt:traitName skos:definition "The trait Name of this resource")
    (gnt:labCode a owl:ObjectProperty)
    (gnt:labCode rdfs:domain gnc:phenotype)
    (gnt:submitter a owl:ObjectProperty)
@@ -54,12 +51,13 @@
           "set" (field InbredSet Name)
           #:separator ""
           #:proc string-capitalize-first))
-    (set gnt:traitName
+    ;; This is the trait's name
+    (set rdfs:label
          (let ((trait-id (field PublishXRef Id)))
            (if (number? trait-id)
                (number->string trait-id)
                trait-id)))
-    (set rdfs:label
+    (set skos:altLabel
          (field ("CONCAT(IFNULL(InbredSet.Name, PublishXRef.InbredSetId), '_', PublishXRef.Id)"
                  Phenotype)))
     ;; All phenotypes have a post-publication description
-- 
cgit v1.2.3