+package FS::otaker_Mixin;
+
+use strict;
+use Carp qw( croak ); #confess );
+use FS::Record qw( qsearch qsearchs );
+use FS::access_user;
+
+sub otaker {
+ my $self = shift;
+ if ( scalar(@_) ) { #set
+ my $otaker = shift;
+ my $access_user = qsearchs('access_user', { 'username' => $otaker } )
+ or croak "can't set otaker: $otaker not found!"; #confess?
+ $self->usernum( $access_user->usernum );
+ $otaker; #not sure return is used anywhere, but just in case
+ } else { #get
+ if ( $self->usernum ) {
+ $self->access_user->username;
+ } elsif ( length($self->get('otaker')) ) {
+ $self->get('otaker');
+ } else {
+ '';
+ }
+ }
+}
+
+sub access_user {
+ my $self = shift;
+ qsearchs('access_user', { 'usernum' => $self->usernum } );
+}
+
+sub _upgrade_otaker {
+ my $class = shift;
+ my $table = $class->table;
+
+ while ( 1 ) {
+ my @records = qsearch({
+ 'table' => $table,
+ 'hashref' => {},
+ 'extra_sql' => 'WHERE otaker IS NOT NULL LIMIT 1000',
+ });
+ last unless @records;
+
+ foreach my $record (@records) {
+ eval { $record->otaker($record->otaker) };
+ if ( $@ ) {
+ my $access_user = new FS::access_user {
+ 'username' => $record->otaker,
+ '_password' => 'CHANGEME',
+ 'first' => 'Legacy',
+ 'last' => 'User',
+ 'disabled' => 'Y',
+ };
+ my $error = $access_user->insert;
+ die $error if $error;
+ $record->otaker($record->otaker);
+ }
+ $record->set('otaker', '');
+ my $error = $record->replace;
+ die $error if $error;
+ }
+
+ }
+
+}
+
+1;