diff options
| -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 b165b90..1809737 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -91,6 +91,7 @@ #:separator "" #:proc string-capitalize-first)] [version-id (field GeneRIF versionId)] + [identifier (field GeneRIF Id)] [categories (remove (lambda (x) (or (eq? x #f) @@ -130,6 +131,7 @@ (field Investigators LastName) (field Investigators Email))) "") + (format #f "dct:identifier ~s ; " identifier) (format #f "dct:hasVersion \"~s\"^^xsd:int ; " version-id) (if (not (null? categories)) (format #f |