From: ivan <ivan>
Date: Sat, 18 Sep 2010 15:57:52 +0000 (+0000)
Subject: fix stupid cust_main_note upgrade for multi-word first names
X-Git-Tag: freeside_2_1_1^2~49
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=ab3998eb1808a009d1b13c34a73582d6e71e4bb4;p=freeside.git

fix stupid cust_main_note upgrade for multi-word first names
---

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,