From dac9c38d9835a262b061fd351a13b19f67e82d5d Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Tue, 23 May 2023 15:13:36 +0300 Subject: Sanitize a generif entry from GN Signed-off-by: Munyoki Kilyungi --- examples/dump-generif.scm | 7 ++++--- 1 file 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 -- cgit v1.2.3