aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rwxr-xr-xexamples/dump-generif.scm7
1 files changed, 4 insertions, 3 deletions
diff --git a/examples/dump-generif.scm b/examples/dump-generif.scm
index 415cb67..083490f 100755
--- a/examples/dump-generif.scm
+++ b/examples/dump-generif.scm
@@ -74,9 +74,10 @@
"")))
(multiset gn:geneWikiEntryOfGn
(let* ([entries
- (field
- ("GROUP_CONCAT(DISTINCT CONCAT_WS('::::', IFNULL(GeneCategory.Name, ''), IFNULL(GeneRIF.PubMed_ID, ''), GeneRIF.email, CAST(CONVERT(BINARY CONVERT(GeneRIF.comment USING latin1) USING utf8) AS VARCHAR(15000)), GeneRIF.createtime, IFNULL(weburl, '')) SEPARATOR';;;;;')"
- wikientry))]
+ (sanitize-rdf-string
+ (field
+ ("GROUP_CONCAT(DISTINCT CONCAT_WS('::::', IFNULL(GeneCategory.Name, ''), IFNULL(GeneRIF.PubMed_ID, ''), GeneRIF.email, CAST(CONVERT(BINARY CONVERT(GeneRIF.comment USING latin1) USING utf8) AS VARCHAR(15000)), GeneRIF.createtime, IFNULL(weburl, '')) SEPARATOR';;;;;')"
+ wikientry)))]
[comments (string-split-substring entries ";;;;;")])
(map
(match-lambda