diff options
| -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) |