diff options
| author | Munyoki Kilyungi | 2024-07-30 12:43:29 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-07-30 12:43:29 +0300 |
| commit | 68e2eda0b3520bd8f4aa4bd3a4fad0e1613aa142 (patch) | |
| tree | 5d6762f54ee168f4efac4e14b0976acc3fd71749 /examples | |
| parent | 2d2583e7579d41730ec6e5a74e4925b6da34f142 (diff) | |
| download | gn-transform-databases-68e2eda0b3520bd8f4aa4bd3a4fad0e1613aa142.tar.gz | |
Update GeneRIF metadata to contain the version-id.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples')
| -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 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 ; ~}" |