From a44350f5257f65ccd8cc84232561a094febed86f Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Sat, 4 Dec 2021 14:50:40 +0530 Subject: Build subjects exclusively with string->identifier. * dump.scm (dump-mapping-method, dump-publication, dump-info-files): Use string->identifier to build subjects. --- dump.scm | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/dump.scm b/dump.scm index fd1b9c3..faeffdd 100755 --- a/dump.scm +++ b/dump.scm @@ -178,7 +178,7 @@ characters with an underscore and prefixing with gn:PREFIX." (sql-for-each (lambda (row) (scm->triples (map-alist row (set rdf:type 'gn:mappingMethod)) - (string-append "gn:mappingMethod" (assoc-ref row "Name")))) + (string->identifier "mappingMethod" (assoc-ref row "Name")))) db "SELECT Name FROM MappingMethod")) @@ -229,8 +229,8 @@ Lab_code, Submitter, Owner, Authorized_Users FROM Phenotype")) ;; TODO: Why are there unprintable characters? (delete-substrings (key "Abstract") "\x01")) (else=> default-metadata-proc)) - (string-append "gn:publication" - (number->string (assoc-ref row "Id"))))) + (string->identifier "publication" + (number->string (assoc-ref row "Id"))))) db "SELECT Id, PubMed_ID, Abstract, Authors, Title, Journal, Volume, Pages, Month, Year FROM Publication")) @@ -360,8 +360,8 @@ GROUP BY Email")) (key "GeoSeries"))) (key "GeoSeries"))) (else=> default-metadata-proc)) - (string-append "gn:dataset" - (number->string (assoc-ref row "GN_AccesionId"))))) + (string->identifier "dataset" + (number->string (assoc-ref row "GN_AccesionId"))))) db ;; TODO: Double check Platforms. It doesn't seem to ;; match up. -- cgit v1.2.3