From 32072dbf59a054529f5304574c0f56f9567d14d0 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Sat, 28 Dec 2013 16:11:46 -0800 Subject: autoload methods returning foreign records, RT#13971 --- FS/FS/cust_pay_pending.pm | 17 +++-------------- 1 file changed, 3 insertions(+), 14 deletions(-) (limited to 'FS/FS/cust_pay_pending.pm') diff --git a/FS/FS/cust_pay_pending.pm b/FS/FS/cust_pay_pending.pm index 572a2ad..f5de73d 100644 --- a/FS/FS/cust_pay_pending.pm +++ b/FS/FS/cust_pay_pending.pm @@ -1,16 +1,11 @@ package FS::cust_pay_pending; +use base qw( FS::payinfo_transaction_Mixin FS::cust_main_Mixin FS::Record ); use strict; -use vars qw( @ISA @encrypted_fields ); -use FS::Record qw( qsearch qsearchs dbh ); #dbh for _upgrade_data -use FS::payinfo_transaction_Mixin; -use FS::cust_main_Mixin; -use FS::cust_main; -use FS::cust_pkg; +use vars qw( @encrypted_fields ); +use FS::Record qw( qsearchs dbh ); #dbh for _upgrade_data use FS::cust_pay; -@ISA = qw( FS::payinfo_transaction_Mixin FS::cust_main_Mixin FS::Record ); - @encrypted_fields = ('payinfo'); sub nohistory_fields { ('payinfo'); } @@ -260,12 +255,6 @@ Returns the associated L record if any. Otherwise returns false. =cut -sub cust_main { - my $self = shift; - qsearchs('cust_main', { custnum => $self->custnum } ); -} - - #these two are kind-of false laziness w/cust_main::realtime_bop #(currently only used when resolving pending payments manually) -- cgit v1.1