diff options
| author | Munyoki Kilyungi | 2024-07-30 17:47:27 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-07-30 17:47:27 +0300 |
| commit | cd741fc595e1124191e7bf80effce6c05e65855a (patch) | |
| tree | f59bd562d2e2110e4d28c21b4035a3a0d0e0daa2 /examples/generif.scm | |
| parent | b2ab8bb47a3da76bb507f2f135194974fdf3bf85 (diff) | |
| download | gn-transform-databases-cd741fc595e1124191e7bf80effce6c05e65855a.tar.gz | |
Update GeneRIF metadata to contain "dct:identifier" for each comment.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/generif.scm')
| -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 |