about summary refs log tree commit diff
path: root/examples/dump-dataset-metadata.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/dump-dataset-metadata.scm')
-rwxr-xr-xexamples/dump-dataset-metadata.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm
index aa7a5f2..e4f8334 100755
--- a/examples/dump-dataset-metadata.scm
+++ b/examples/dump-dataset-metadata.scm
@@ -130,8 +130,10 @@
    (gn:contributors rdfs:range rdfs:Literal)
    (gn:citation rdfs:range rdfs:Literal)
    (gn:acknowledgment rdfs:range rdfs:Literal))
-  (triples (string->identifier "dataset"
-                               (field InfoFiles InfoPageName))
+  (triples (ontology 'dataset:
+                     (regexp-substitute/global #f "[^A-Za-z0-9:]"
+                                               (field InfoFiles InfoPageName)
+                                               'pre "_" 'post))
     ;; Add GeneChipName and GeoPlatform:
     ;; GeneChip.GeneChipName AS gene_chip_name
     ;; GeneChip.GeoPlatform AS geo_platform
@@ -214,6 +216,7 @@
        (prefix "uniprot:" "<http://purl.uniprot.org/uniprot/>")
        (prefix "up:" "<http://purl.uniprot.org/core/>")
        (prefix "xsd:" "<http://www.w3.org/2001/XMLSchema#>")
+       (prefix "dataset:" "<http://genenetwork.org/dataset/>")
        (newline)
        (dump-info-files db)
        (dump-investigators db))