diff options
author | Arun Isaac | 2022-10-30 18:34:57 +0530 |
---|---|---|
committer | Arun Isaac | 2022-10-30 18:34:57 +0530 |
commit | a727611d57eabdbecf4c75bca75b92bc48231afd (patch) | |
tree | 9aaa532d8d2c0b9bf3b439cbb561f1cb9578496c | |
parent | 9824c24d9910c7503d2eafe074c8b6c7ec6641d6 (diff) | |
download | gn-transform-databases-a727611d57eabdbecf4c75bca75b92bc48231afd.tar.gz |
Special case Yohan Bossé's last name.
* dump.scm (dump-investigators): Special case Yohan Bossé's last name.
-rwxr-xr-x | dump.scm | 13 |
1 files changed, 11 insertions, 2 deletions
@@ -555,9 +555,18 @@ must be remedied." (field Investigators LastName) (field Investigators Email)) (set rdf:type 'foaf:Person) - (set foaf:name (string-append (field Investigators FirstName) " " (field Investigators LastName))) + ;; 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)) - (set foaf:familyName (field Investigators LastName)) + ;; 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:phone (field Investigators Phone)) (set foaf:mbox (fix-email-id (field Investigators Email))) (set foaf:homepage (field Investigators Url)) |