From a727611d57eabdbecf4c75bca75b92bc48231afd Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 30 Oct 2022 18:34:57 +0530
Subject: Special case Yohan Bossé's last name.

* dump.scm (dump-investigators): Special case Yohan Bossé's last name.
---
 dump.scm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

(limited to 'dump.scm')

diff --git a/dump.scm b/dump.scm
index fd7e700..a763671 100755
--- a/dump.scm
+++ b/dump.scm
@@ -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))
-- 
cgit v1.2.3