From 4684e4a5036a9b438560f1aa1767e5fee91c0ca3 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 4 May 2022 17:03:39 +0530
Subject: Special case investigator ID for "Yohan Bossé".

* dump.scm (investigator-attributes->id): Add special case for
investigator "Yohan Bossé".
---
 dump.scm | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 'dump.scm')

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
-- 
cgit v1.2.3