diff options
| -rwxr-xr-x | examples/phenotype.scm | 5 |
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) |