1 package FS::otaker_Mixin;
4 use Carp qw( croak ); #confess );
5 use FS::Record qw( qsearch qsearchs );
11 if ( scalar(@_) ) { #set
13 my $access_user = qsearchs('access_user', { 'username' => $otaker } );
14 if ( !$access_user && $otaker =~ /^(.+), (.+)$/ ) { #same as below..
15 my($lastname, $firstname) = ($1, $2);
16 $otaker = lc($firstname.$lastname);
18 $access_user = qsearchs('access_user', { 'first' => $firstname,
19 'last' => $lastname } )
20 || qsearchs('access_user', { 'username' => $otaker } );
22 croak "can't set otaker: $otaker not found!" unless $access_user; #confess?
23 $self->usernum( $access_user->usernum );
24 $otaker; #not sure return is used anywhere, but just in case
26 if ( $self->usernum ) {
27 $self->access_user->username;
28 } elsif ( length($self->get('otaker')) ) {
38 my $table = $class->table;
40 my $limit = ( $table eq 'cust_attachment' ? 10 : 1000 );
43 my @records = qsearch({
46 'extra_sql' => "WHERE otaker IS NOT NULL LIMIT $limit",
50 foreach my $record (@records) {
51 eval { $record->otaker($record->otaker) };
53 my $username = $record->otaker;
54 my($lastname, $firstname) = ( 'User', 'Legacy' );
55 if ( $username =~ /^(.+), (.+)$/ ) {
56 ($lastname, $firstname) = ($1, $2);
57 $username = lc($firstname.$lastname);
60 my $access_user = new FS::access_user {
61 'username' => $username,
62 '_password' => 'CHANGEME',
63 'first' => $firstname,
67 my $error = $access_user->insert;
69 $record->otaker($record->otaker);
71 $record->set('otaker', '');
72 my $error = $record->replace;
76 if ( $table eq 'cust_attachment' ) {
77 warn " committing (cust_attachment) \n";
78 dbh->commit or die dbh->errstr;