From 68e2eda0b3520bd8f4aa4bd3a4fad0e1613aa142 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Tue, 30 Jul 2024 12:43:29 +0300
Subject: Update GeneRIF metadata to contain the version-id.

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

(limited to 'examples')

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 ; ~}"
-- 
cgit v1.2.3