[freeside-commits] freeside/FS/FS otaker_Mixin.pm,1.6,1.7

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv21300

Modified Files:
	otaker_Mixin.pm 
Log Message:
fix stupid cust_main_note upgrade for multi-word first names

Index: otaker_Mixin.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/otaker_Mixin.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -w -d -r1.6 -r1.7
--- otaker_Mixin.pm	25 Jul 2010 07:30:42 -0000	1.6
+++ otaker_Mixin.pm	18 Sep 2010 15:57:52 -0000	1.7
@@ -13,6 +13,7 @@
     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 @@
         if ( $username =~ /^(.+), (.+)$/ ) {
           ($lastname, $firstname) = ($1, $2);
           $username = lc($firstname.$lastname);
+          $username =~ s/ //g;
         }
         my $access_user = new FS::access_user {
           'username'  => $username,