- 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..
+ 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 } );
+ }
+ croak "can't set otaker: $otaker not found!" unless $access_user; #confess?