From cd741fc595e1124191e7bf80effce6c05e65855a Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 30 Jul 2024 17:47:27 +0300
Subject: Update GeneRIF metadata to contain "dct:identifier" for each comment.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 examples/generif.scm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'examples/generif.scm')

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
-- 
cgit v1.2.3