diff options
Diffstat (limited to 'examples/generif.scm')
| -rwxr-xr-x | examples/generif.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 302aace..34562a5 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -73,6 +73,9 @@ (gnt:initial a owl:ObjectProperty) (gnt:initial rdfs:domain gnc:GeneWikiEntry) (gnt:initial skos:definition "Optional user or project code or your initials") + (gnt:reason a owl:ObjectProperty) + (gnt:reason rdfs:domain gnc:GeneWikiEntry) + (gnt:reason skos:definition "The reason why this resource was modified") (gnc:GNWikiEntry rdfs:comment "Represents GeneRIF Entries entered from GeneNetwork") (gnt:geneSymbol rdfs:domain gnc:GNWikiEntry)) (triples @@ -96,6 +99,7 @@ [version-id (field GeneRIF versionId)] [identifier (field GeneRIF Id)] [initial (field GeneRIF initial)] + [reason (field GeneRIF reason)] [categories (remove (lambda (x) (or (eq? x #f) @@ -137,6 +141,9 @@ "") (format #f "dct:identifier ~s ; " identifier) (format #f "dct:hasVersion \"~s\"^^xsd:int ; " version-id) + (if (string-blank? reason) + "" + (format #f "gnt:reason ~s ; " reason)) (if (null? initial) "" (format #f "gnt:initial ~s ; " initial)) (if (not (null? categories)) (format #f |