diff options
Diffstat (limited to 'examples')
| -rwxr-xr-x | examples/generif.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index ea89cb4..da41dcb 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -90,6 +90,7 @@ (remap-species-identifiers (field Species Fullname)) #:separator "" #:proc string-capitalize-first)] + [version-id (field GeneRIF versionId)] [categories (remove (lambda (x) (or (eq? x #f) @@ -129,6 +130,7 @@ (field Investigators LastName) (field Investigators Email))) "") + (format #f "dct:hasVersion \"~s\"^^xsd:int ; " version-id) (if (not (null? categories)) (format #f "~{gnt:belongsToCategory ~s ; ~}" |