From ab3998eb1808a009d1b13c34a73582d6e71e4bb4 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Sat, 18 Sep 2010 15:57:52 +0000
Subject: [PATCH] fix stupid cust_main_note upgrade for multi-word first names

---
 FS/FS/otaker_Mixin.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/FS/FS/otaker_Mixin.pm b/FS/FS/otaker_Mixin.pm
index 0da9aeedb..8d9c8824f 100644
--- a/FS/FS/otaker_Mixin.pm
+++ b/FS/FS/otaker_Mixin.pm
@@ -13,6 +13,7 @@ sub otaker {
     if ( !$access_user && $otaker =~ /^(.+), (.+)$/ ) { #same as below..
       my($lastname, $firstname) = ($1, $2);
       $otaker = lc($firstname.$lastname);
+      $otaker =~ s/ //g;
       $access_user =  qsearchs('access_user', { 'first' => $firstname, 
                                                 'last'  => $lastname  } )
                    || qsearchs('access_user', { 'username' => $otaker } );
@@ -58,6 +59,7 @@ sub _upgrade_otaker {
         if ( $username =~ /^(.+), (.+)$/ ) {
           ($lastname, $firstname) = ($1, $2);
           $username = lc($firstname.$lastname);
+          $username =~ s/ //g;
         }
         my $access_user = new FS::access_user {
           'username'  => $username,
-- 
2.11.0