diff options
-rwxr-xr-x | examples/dump-dataset-metadata.scm | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/examples/dump-dataset-metadata.scm b/examples/dump-dataset-metadata.scm index 154f147..4747700 100755 --- a/examples/dump-dataset-metadata.scm +++ b/examples/dump-dataset-metadata.scm @@ -64,18 +64,14 @@ (field Investigators LastName) (field Investigators Email)) (set rdf:type 'foaf:Person) - ;; Special case Yohan Bossé's name since the last name has - ;; unprintable characters. (set foaf:name (string-append (field Investigators FirstName) " " (if (string=? (field Investigators FirstName) "Yohan") "Bossé" (field Investigators LastName)))) - (set foaf:givenName (field Investigators FirstName)) - ;; Special case Yohan Bossé's name since the last name has - ;; unprintable characters. - (set foaf:familyName (if (string=? (field Investigators FirstName) "Yohan") - "Bossé" - (field Investigators LastName))) + (set foaf:givenName + (field ("CAST(CONVERT(BINARY CONVERT(FirstName USING latin1) USING utf8) AS VARCHAR(100))" FirstName))) + (set foaf:familyName + (field ("CAST(CONVERT(BINARY CONVERT(LastName USING latin1) USING utf8) AS VARCHAR(100))" LastName))) (set foaf:homepage (field Investigators Url)) (set gn:address (field Investigators Address)) (set gn:city (field Investigators City)) |