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;
43 my $limit = ( $table eq 'cust_attachment' ? 10 : 1000 );
46 my @records = qsearch({
49 'extra_sql' => "WHERE otaker IS NOT NULL LIMIT $limit",
53 foreach my $record (@records) {
54 eval { $record->otaker($record->otaker) };
56 my $username = $record->otaker;
57 my($lastname, $firstname) = ( 'User', 'Legacy' );
58 if ( $username =~ /^(.+), (.+)$/ ) {
59 ($lastname, $firstname) = ($1, $2);
60 $username = lc($firstname.$lastname);
62 my $access_user = new FS::access_user {
63 'username' => $username,
64 '_password' => 'CHANGEME',
65 'first' => $firstname,
69 my $error = $access_user->insert;
71 $record->otaker($record->otaker);
73 $record->set('otaker', '');
74 my $error = $record->replace;