diff options
| -rwxr-xr-x | examples/dump-generif.scm | 7 |
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 |