FS RT #27189 - only printing 'each' if package quantity > 1 ; removed now-obsolete...
[freeside.git] / 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 use FS::UID qw( dbh );
8
9 sub otaker {
10   my $self = shift;
11   if ( scalar(@_) ) { #set
12     my $otaker = shift;
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);
17       $otaker =~ s/ //g;
18       $access_user =  qsearchs('access_user', { 'first' => $firstname, 
19                                                 'last'  => $lastname  } )
20                    || qsearchs('access_user', { 'username' => $otaker } );
21     }
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
25   } else { #get
26     if ( $self->usernum ) {
27       $self->access_user->username;
28     } elsif ( length($self->get('otaker')) ) {
29       $self->get('otaker');
30     } else {
31       '';
32     }
33   }
34 }
35
36 sub access_user {
37   my $self = shift;
38   qsearchs('access_user', { 'usernum' => $self->usernum } );
39 }
40
41 sub _upgrade_otaker {
42   my $class = shift;
43   my $table = $class->table;
44
45   my $limit = ( $table eq 'cust_attachment' ? 10 : 1000 );
46
47   while ( 1 ) {
48     my @records = qsearch({
49                     'table'     => $table,
50                     'hashref'   => {},
51                     'extra_sql' => "WHERE otaker IS NOT NULL LIMIT $limit",
52                   });
53     last unless @records;
54
55     foreach my $record (@records) {
56       eval { $record->otaker($record->otaker) };
57       if ( $@ ) {
58         my $username = $record->otaker;
59         my($lastname, $firstname) = ( 'User', 'Legacy' );
60         if ( $username =~ /^(.+), (.+)$/ ) {
61           ($lastname, $firstname) = ($1, $2);
62           $username = lc($firstname.$lastname);
63           $username =~ s/ //g;
64         }
65         my $access_user = new FS::access_user {
66           'username'  => $username,
67           '_password' => 'CHANGEME',
68           'first'     => $firstname,
69           'last'      => $lastname,
70           'disabled'  => 'Y',
71         };
72         my $error = $access_user->insert;
73         die $error if $error;
74         $record->otaker($record->otaker);
75       }
76       $record->set('otaker', '');
77       my $error = $record->replace;
78       die $error if $error;
79     }
80         
81     if ( $table eq 'cust_attachment' ) {
82         warn "  committing (cust_attachment) \n";
83         dbh->commit or die dbh->errstr;
84     }
85
86   }
87
88 }
89
90 1;