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 or croak "can't set otaker: $otaker not found!"; #confess?
14 $self->usernum( $access_user->usernum );
15 $otaker; #not sure return is used anywhere, but just in case
17 if ( $self->usernum ) {
18 $self->access_user->username;
19 } elsif ( length($self->get('otaker')) ) {
29 qsearchs('access_user', { 'usernum' => $self->usernum } );
34 my $table = $class->table;
37 my @records = qsearch({
40 'extra_sql' => 'WHERE otaker IS NOT NULL LIMIT 1000',
44 foreach my $record (@records) {
45 eval { $record->otaker($record->otaker) };
47 my $access_user = new FS::access_user {
48 'username' => $record->otaker,
49 '_password' => 'CHANGEME',
54 my $error = $access_user->insert;
56 $record->otaker($record->otaker);
58 $record->set('otaker', '');
59 my $error = $record->replace;