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);
17 $access_user = qsearchs('access_user', { 'first' => $firstname,
18 'last' => $lastname } )
19 || qsearchs('access_user', { 'username' => $otaker } );
21 croak "can't set otaker: $otaker not found!" unless $access_user; #confess?
22 $self->usernum( $access_user->usernum );
23 $otaker; #not sure return is used anywhere, but just in case
25 if ( $self->usernum ) {
26 $self->access_user->username;
27 } elsif ( length($self->get('otaker')) ) {
37 qsearchs('access_user', { 'usernum' => $self->usernum } );
42 my $table = $class->table;
44 my $limit = ( $table eq 'cust_attachment' ? 10 : 1000 );
47 my @records = qsearch({
50 'extra_sql' => "WHERE otaker IS NOT NULL LIMIT $limit",
54 foreach my $record (@records) {
55 eval { $record->otaker($record->otaker) };
57 my $username = $record->otaker;
58 my($lastname, $firstname) = ( 'User', 'Legacy' );
59 if ( $username =~ /^(.+), (.+)$/ ) {
60 ($lastname, $firstname) = ($1, $2);
61 $username = lc($firstname.$lastname);
64 my $access_user = new FS::access_user {
65 'username' => $username,
66 '_password' => 'CHANGEME',
67 'first' => $firstname,
71 my $error = $access_user->insert;
73 $record->otaker($record->otaker);
75 $record->set('otaker', '');
76 my $error = $record->replace;