diff options
author | ivan <ivan> | 2010-03-29 00:23:07 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-03-29 00:23:07 +0000 |
commit | b516a7cb6c072871568bb0f217cc2bab6ebddd4a (patch) | |
tree | 28565d474bfbee6aa80d13e4964e8b335fd57ded /FS/FS/otaker_Mixin.pm | |
parent | cc9855d8e52fe35a362f7bda01616d53f04a7aab (diff) |
move from otaker to proper usernum FK
Diffstat (limited to 'FS/FS/otaker_Mixin.pm')
-rw-r--r-- | FS/FS/otaker_Mixin.pm | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/FS/FS/otaker_Mixin.pm b/FS/FS/otaker_Mixin.pm new file mode 100644 index 0000000..071958c --- /dev/null +++ b/FS/FS/otaker_Mixin.pm @@ -0,0 +1,67 @@ +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; |