aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-05-04 17:03:39 +0530
committerArun Isaac2022-05-04 17:03:39 +0530
commit4684e4a5036a9b438560f1aa1767e5fee91c0ca3 (patch)
tree638eefa459abbb54aa297c6b54cb10f1449b9dac
parent852e5571ea501e7c7e772a29467c892b2eadc8df (diff)
downloadgn-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-xdump.scm11
1 files changed, 9 insertions, 2 deletions
diff --git a/dump.scm b/dump.scm
index 989c027..b62640c 100755
--- a/dump.scm
+++ b/dump.scm
@@ -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