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/banned_pay.pm | |
parent | cc9855d8e52fe35a362f7bda01616d53f04a7aab (diff) |
move from otaker to proper usernum FK
Diffstat (limited to 'FS/FS/banned_pay.pm')
-rw-r--r-- | FS/FS/banned_pay.pm | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/FS/FS/banned_pay.pm b/FS/FS/banned_pay.pm index 1ad87f5..a862028 100644 --- a/FS/FS/banned_pay.pm +++ b/FS/FS/banned_pay.pm @@ -1,12 +1,10 @@ package FS::banned_pay; use strict; -use vars qw( @ISA ); +use base qw( FS::otaker_Mixin FS::Record ); use FS::Record qw( qsearch qsearchs ); use FS::UID qw( getotaker ); -@ISA = qw(FS::Record); - =head1 NAME FS::banned_pay - Object methods for banned_pay records @@ -117,11 +115,17 @@ sub check { $self->_date(time) unless $self->_date; - $self->otaker(getotaker); + $self->otaker(getotaker) unless $self->otaker; $self->SUPER::check; } +# Used by FS::Upgrade to migrate to a new database. +sub _upgrade_data { # class method + my ($class, %opts) = @_; + $class->_upgrade_otaker(%opts); +} + =back =head1 BUGS |