1 package FS::otaker_Mixin;
4 use Carp qw( croak ); #confess );
5 use FS::Record qw( qsearch qsearchs );
10 if ( scalar(@_) ) { #set
12 my $access_user = qsearchs('access_user', { 'username' => $otaker } );
13 if ( !$access_user && $otaker =~ /^(.+), (.+)$/ ) { #same as below..
14 my($lastname, $firstname) = ($1, $2);
15 $otaker = lc($firstname.$lastname);
16 $access_user = qsearchs('access_user', { 'first' => $firstname,
17 'last' => $lastname } )
18 || qsearchs('access_user', { 'username' => $otaker } );
20 croak "can't set otaker: $otaker not found!" unless $access_user; #confess?
21 $self->usernum( $access_user->usernum );
22 $otaker; #not sure return is used anywhere, but just in case
24 if ( $self->usernum ) {
25 $self->access_user->username;
26 } elsif ( length($self->get('otaker')) ) {
36 qsearchs('access_user', { 'usernum' => $self->usernum } );
41 my $table = $class->table;
44 my @records = qsearch({
47 'extra_sql' => 'WHERE otaker IS NOT NULL LIMIT 1000',
51 foreach my $record (@records) {
52 eval { $record->otaker($record->otaker) };
54 my $username = $record->otaker;
55 if ( $username =~ /^(.+), (.+)$/ ) {
56 $username = lc($2.$1);
58 my $access_user = new FS::access_user {
59 'username' => $username,
60 '_password' => 'CHANGEME',
65 my $error = $access_user->insert;
67 $record->otaker($record->otaker);
69 $record->set('otaker', '');
70 my $error = $record->replace;