diff options
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/otaker_Mixin.pm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/FS/FS/otaker_Mixin.pm b/FS/FS/otaker_Mixin.pm index 9b86dc6d1..ca170186b 100644 --- a/FS/FS/otaker_Mixin.pm +++ b/FS/FS/otaker_Mixin.pm @@ -9,8 +9,12 @@ sub otaker { my $self = shift; if ( scalar(@_) ) { #set my $otaker = shift; - my $access_user = qsearchs('access_user', { 'username' => $otaker } ) - or croak "can't set otaker: $otaker not found!"; #confess? + 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 } ); + } + croak "can't set otaker: $otaker not found!" unless $access_user; #confess? $self->usernum( $access_user->usernum ); $otaker; #not sure return is used anywhere, but just in case } else { #get |