about summary refs log tree commit diff
diff options
context:
space:
mode:
-rwxr-xr-xexamples/dump-dataset-metadata.scm42
1 files changed, 13 insertions, 29 deletions
diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm
index 9dd7f44..8a93bc3 100755
--- a/examples/dump-dataset-metadata.scm
+++ b/examples/dump-dataset-metadata.scm
@@ -31,13 +31,7 @@
   ;; find Evan Williams' email ID and insert it into the database.
   (string->identifier "investigator"
                       (string-join
-                       ;; Add special case for Yohan Bossé whose name
-                       ;; has unprintable characters.
-                       ;; TODO: Fix Yohan Bossé's name in the database.
-                       (let ((last-name (if (string=? first-name "Yohan")
-                                            "Bosse"
-                                            last-name)))
-                         (list first-name last-name (fix-email-id email)))
+                       (list first-name last-name (fix-email-id email))
                        "_")))
 
 (define-dump dump-investigators
@@ -50,13 +44,11 @@
                                         (field Investigators Email))
     (set rdf:type 'foaf:Person)
     (set foaf:name (string-append (field Investigators FirstName) " "
-                                  (if (string=? (field Investigators FirstName) "Yohan")
-                                      "Bossé"
-                                      (field Investigators LastName))))
+                                  (field Investigators LastName)))
     (set foaf:givenName
-         (field ("CAST(CONVERT(BINARY CONVERT(FirstName USING latin1) USING utf8) AS VARCHAR(100))" FirstName)))
+         (field Investigators FirstName))
     (set foaf:familyName
-         (field ("CAST(CONVERT(BINARY CONVERT(LastName USING latin1) USING utf8) AS VARCHAR(100))" LastName)))
+         (field Investigators LastName))
     (set foaf:homepage (field Investigators Url))
     (set v:adr (field Investigators Address))
     (set v:locality (field Investigators City))
@@ -161,7 +153,7 @@
                                       (field Investigators LastName)
                                       (field Investigators Email)))
     (set gdmt:hasCreatorAffiliation
-         (field ("CAST(CONVERT(BINARY CONVERT(Organizations.OrganizationName USING latin1) USING utf8) AS VARCHAR(1500))" Organizations)))
+         (field Organizations OrganizationName))
     (set gdmt:hasDatasetIdentifierSubType (format #f "GN~a" (field InfoFiles GN_AccesionId)))
     (set gdmt:hasRightsInfo (string-downcase
                              (field DatasetStatus DatasetStatusName)))
@@ -191,42 +183,34 @@
     (set gnt:hasContentInfo (sanitize-rdf-string (field InfoFiles Specifics)))
     (set gnt:hasCaseInfo
          (sanitize-rdf-string
-          (field ("CAST(CONVERT(BINARY CONVERT(Datasets.AboutCases USING latin1) USING utf8) AS VARCHAR(10000))" AboutCases))))
+          (field Datasets AboutCases)))
     (set gnt:hasPlatformInfo
          (sanitize-rdf-string
-          (field ("CAST(CONVERT(BINARY CONVERT(Datasets.AboutPlatform USING latin1) USING utf8) AS VARCHAR(1500))"
-                  AboutPlatform))))
+          (field Datasets AboutPlatform)))
     (set gnt:hasDataProcessingInfo
          (sanitize-rdf-string
-          (field ("CAST(CONVERT(BINARY CONVERT(Datasets.AboutDataProcessing USING latin1) USING utf8) AS VARCHAR(1500))"
-                  AboutDataProcessing))))
+          (field Datasets AboutDataProcessing)))
     (set gnt:hasNotes
          (sanitize-rdf-string
-          (field ("CAST(CONVERT(BINARY CONVERT(Datasets.Notes USING latin1) USING utf8) AS VARCHAR(1500))"
-                  GNNotes))))
+          (field Datasets Notes)))
     (set gnt:hasExperimentDesignInfo
          (sanitize-rdf-string
-          (field ("CAST(CONVERT(BINARY CONVERT(Datasets.ExperimentDesign USING latin1) USING utf8) AS VARCHAR(1500))"
-                  ExperimentDesign))))
+          (field Datasets ExperimentDesign)))
     (set gdmt:hasContributorInfo
          (sanitize-rdf-string
-          (field ("CAST(CONVERT(BINARY CONVERT(Datasets.Contributors USING latin1) USING utf8) AS VARCHAR(1500))"
-                  Contributors))))
+          (field Datasets Contributors)))
     (set gdmt:IsCitedBy
          (sanitize-rdf-string
           (regexp-substitute/global
            #f "^[Nn]one$"
-           (field
-            ("CAST(CONVERT(BINARY CONVERT(Datasets.Citation USING latin1) USING utf8) AS VARCHAR(1500))"
-             Citation))
+           (field Datasets Citation)
            "")))
     (set gnt:hasAcknowledgement
          (sanitize-rdf-string
           (string-trim-both
            (regexp-substitute/global
             #f "^[Nn]one$"
-            (field ("CAST(CONVERT(BINARY CONVERT(InfoFiles.Data_Source_Acknowledge USING latin1) USING utf8) AS VARCHAR(1500))"
-                    Data_Source_Acknowledge))
+            (field InfoFiles Data_Source_Acknowledge)
             ""))))
     (set gnt:hasAcknowledgement (sanitize-rdf-string
                                  (field Datasets Acknowledgment)))))