diff options
author | ivan <ivan> | 2010-06-05 20:18:47 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-06-05 20:18:47 +0000 |
commit | 627408df58ee7efff68e8cb08e0deba5a677d8a9 (patch) | |
tree | 6a296b6132d952474e1971bbba4f3bcaa181727f /FS/FS/otaker_Mixin.pm | |
parent | d073f37f96c2cf88ca42c87a1972ecbbd5f5478e (diff) |
should really fix the cust_main_note upgrade bullshit, RT#8580
Diffstat (limited to 'FS/FS/otaker_Mixin.pm')
-rw-r--r-- | FS/FS/otaker_Mixin.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/FS/FS/otaker_Mixin.pm b/FS/FS/otaker_Mixin.pm index ca17018..c8479cd 100644 --- a/FS/FS/otaker_Mixin.pm +++ b/FS/FS/otaker_Mixin.pm @@ -11,8 +11,11 @@ sub otaker { my $otaker = shift; my $access_user = qsearchs('access_user', { 'username' => $otaker } ); if ( !$access_user && $otaker =~ /^(.+), (.+)$/ ) { #same as below.. - $otaker = lc($2.$1); - $access_user = qsearchs('access_user', { 'username' => $otaker } ); + my($lastname, $firstname) = ($1, $2); + $otaker = lc($firstname.$lastname); + $access_user = qsearchs('access_user', { 'first' => $firstname, + 'last' => $lastname } ) + || qsearchs('access_user', { 'username' => $otaker } ); } croak "can't set otaker: $otaker not found!" unless $access_user; #confess? $self->usernum( $access_user->usernum ); |