diff options
author | ivan <ivan> | 2010-09-18 15:57:52 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-09-18 15:57:52 +0000 |
commit | ab3998eb1808a009d1b13c34a73582d6e71e4bb4 (patch) | |
tree | 007cc6a2de232babea0b3ca3ee3317199105dc51 /FS/FS/otaker_Mixin.pm | |
parent | e0093aa9840234ddea14f43d7db5e35ccae1eb5d (diff) |
fix stupid cust_main_note upgrade for multi-word first names
Diffstat (limited to 'FS/FS/otaker_Mixin.pm')
-rw-r--r-- | FS/FS/otaker_Mixin.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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, |