diff options
| -rwxr-xr-x | examples/phenotype.scm | 8 |
1 files changed, 3 insertions, 5 deletions
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 |