diff options
Diffstat (limited to 'transform')
| -rw-r--r-- | transform/strings.scm | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/transform/strings.scm b/transform/strings.scm index 7544399..51c5ed1 100644 --- a/transform/strings.scm +++ b/transform/strings.scm @@ -19,23 +19,6 @@ fix-email-id investigator-attributes->id)) -;; One email ID in the Investigators table has spaces in it. This -;; function fixes that. -(define (fix-email-id email) - (string-delete #\space email)) - -(define (investigator-attributes->id first-name last-name email) - ;; There is just one record corresponding to "Evan Williams" which - ;; does not have an email ID. To accommodate that record, we - ;; construct the investigator ID from not just the email ID, but - ;; 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)) - "_") - #:separator "_")) - (define (lower-case-and-replace-spaces str) (string-map (lambda (c) |