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 --- examples/dump-phenotype.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'examples/dump-phenotype.scm') 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