diff options
author | ivan <ivan> | 2010-04-04 23:18:23 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-04-04 23:18:23 +0000 |
commit | f4cff6248e3340d2321e9d761fec9ea12b28f781 (patch) | |
tree | 94770bfb725fa79ae8eb0e829b809b087bbc0f14 /FS/FS/cust_main_note.pm | |
parent | 1a2e0285a2c596cc202ef9a9f1cf0815f4d7c5ff (diff) |
fix otaker upgrade for cust_attachment & cust_main_note, hopefully
Diffstat (limited to 'FS/FS/cust_main_note.pm')
-rw-r--r-- | FS/FS/cust_main_note.pm | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/FS/FS/cust_main_note.pm b/FS/FS/cust_main_note.pm index 118ccd4..0798825 100644 --- a/FS/FS/cust_main_note.pm +++ b/FS/FS/cust_main_note.pm @@ -114,6 +114,28 @@ sub check { $self->SUPER::check; } +#false laziness w/otaker_Mixin & cust_attachment +sub otaker { + my $self = shift; + if ( scalar(@_) ) { #set + my $otaker = shift; + my($l,$f) = (split(', ', $otaker)); + my $access_user = qsearchs('access_user', { 'username'=>$otaker } ) + || qsearchs('access_user', { 'first'=>$f, 'last'=>$l } ) + 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 { + ''; + } + } +} + # Used by FS::Upgrade to migrate to a new database. sub _upgrade_data { # class method my ($class, %opts) = @_; |