FS/FS/otaker_Mixin.pm

   1 package FS::otaker_Mixin;
   2
   3 use strict;
   4 use Carp qw( croak ); #confess );
   5 use FS::Record qw( qsearch qsearchs );
   6 use FS::access_user;
   7
   8 sub otaker {
   9   my $self = shift;
  10   if ( scalar(@_) ) { #set
  11     my $otaker = shift;
  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 } );
  19     }
  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
  23   } else { #get
  24     if ( $self->usernum ) {
  25       $self->access_user->username;
  26     } elsif ( length($self->get('otaker')) ) {
  27       $self->get('otaker');
  28     } else {
  29       '';
  30     }
  31   }
  32 }
  33
  34 sub access_user {
  35   my $self = shift;
  36   qsearchs('access_user', { 'usernum' => $self->usernum } );
  37 }
  38
  39 sub _upgrade_otaker {
  40   my $class = shift;
  41   my $table = $class->table;
  42
  43   while ( 1 ) {
  44     my @records = qsearch({
  45                     'table'     => $table,
  46                     'hashref'   => {},
  47                     'extra_sql' => 'WHERE otaker IS NOT NULL LIMIT 1000',
  48                   });
  49     last unless @records;
  50
  51     foreach my $record (@records) {
  52       eval { $record->otaker($record->otaker) };
  53       if ( $@ ) {
  54         my $username = $record->otaker;
  55         my($lastname, $firstname) = ( 'User', 'Legacy' );
  56         if ( $username =~ /^(.+), (.+)$/ ) {
  57           ($lastname, $firstname) = ($1, $2);
  58           $username = lc($firstname.$lastname);
  59         }
  60         my $access_user = new FS::access_user {
  61           'username'  => $username,
  62           '_password' => 'CHANGEME',
  63           'first'     => $firstname,
  64           'last'      => $lastname,
  65           'disabled'  => 'Y',
  66         };
  67         my $error = $access_user->insert;
  68         die $error if $error;
  69         $record->otaker($record->otaker);
  70       }
  71       $record->set('otaker', '');
  72       my $error = $record->replace;
  73       die $error if $error;
  74     }
  75
  76   }
  77
  78 }
  79
  80 1;