From 3b9f1f53722e4866309d1555639c347c7bbacc97 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Sat, 19 Aug 2023 16:30:36 +0300
Subject: Add traitName

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

diff --git a/examples/dump-phenotype.scm b/examples/dump-phenotype.scm
index bd9c76f..35f96b3 100755
--- a/examples/dump-phenotype.scm
+++ b/examples/dump-phenotype.scm
@@ -59,6 +59,9 @@
    (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)
@@ -85,7 +88,10 @@
           #:separator ""
           #:proc string-capitalize-first))
     (set gnt:traitName
-         (field PublishXRef Id))
+         (let ((trait-id (field PublishXRef Id)))
+           (if (number? trait-id)
+               (number->string trait-id)
+               trait-id)))
     (set rdfs:label
          (field ("CONCAT(IFNULL(InbredSet.Name, PublishXRef.InbredSetId), '_', PublishXRef.Id)"
                  Phenotype)))
-- 
cgit v1.2.3