diff options
author | Arun Isaac | 2022-05-04 17:03:39 +0530 |
---|---|---|
committer | Arun Isaac | 2022-05-04 17:03:39 +0530 |
commit | 4684e4a5036a9b438560f1aa1767e5fee91c0ca3 (patch) | |
tree | 638eefa459abbb54aa297c6b54cb10f1449b9dac | |
parent | 852e5571ea501e7c7e772a29467c892b2eadc8df (diff) | |
download | gn-transform-databases-4684e4a5036a9b438560f1aa1767e5fee91c0ca3.tar.gz |
Special case investigator ID for "Yohan Bossé".
* dump.scm (investigator-attributes->id): Add special case for
investigator "Yohan Bossé".
-rwxr-xr-x | dump.scm | 11 |
1 files changed, 9 insertions, 2 deletions
@@ -512,8 +512,15 @@ must be remedied." ;; also the first and the last names. It would be preferable to just ;; find Evan Williams' email ID and insert it into the database. (string->identifier "investigator" - (string-join (list first-name last-name (fix-email-id email)) - "_"))) + (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))) + "_"))) (define-dump dump-investigators ;; There are a few duplicate entries. We group by email to |