diff options
| author | Munyoki Kilyungi | 2024-08-14 10:25:47 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-08-14 10:25:47 +0300 |
| commit | 20b165ab7388d5c278339c3958c895683348bdaf (patch) | |
| tree | 05d2a477eb1bb46bdaf645fa4107c482170b7e15 /examples/generif.scm | |
| parent | bc0ffa6fcb3d895d4396de9828e3989b0f2b2f7d (diff) | |
| download | gn-transform-databases-20b165ab7388d5c278339c3958c895683348bdaf.tar.gz | |
Add email to WIKI transform.
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'examples/generif.scm')
| -rwxr-xr-x | examples/generif.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/examples/generif.scm b/examples/generif.scm index 8e36705..5ec78f5 100755 --- a/examples/generif.scm +++ b/examples/generif.scm @@ -100,6 +100,7 @@ (identifier (field GeneRIF Id)) (initial (field GeneRIF initial)) (reason (field GeneRIF reason)) + (email (sanitize-rdf-string (field GeneRIF email))) (categories (remove (lambda (x) (or (eq? x #f) @@ -139,6 +140,9 @@ (field Investigators LastName) (field Investigators Email))) "") + (if (string-blank? email) + "" + (format #f "foaf:mbox ~s ; " email)) (format #f "dct:identifier ~s ; " identifier) (format #f "dct:hasVersion \"~s\"^^xsd:int ; " version-id) (if (string-blank? reason) |