aboutsummaryrefslogtreecommitdiff
path: root/examples/generif.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/generif.scm')
-rwxr-xr-xexamples/generif.scm2
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