X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fbanned_pay.pm;h=a86202824f078263432b4eb2cfb43649e9e2442c;hb=f8f4c51eaa6f5aa3d49672fe7a17f19fa22494c0;hp=1ad87f508777f92c0381c050f9c2232f3df6bf27;hpb=5e05724a635a22776f1b973f5d7e77989da4e048;p=freeside.git

diff --git a/FS/FS/banned_pay.pm b/FS/FS/banned_pay.pm
index 1ad87f508..a86202824 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