X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_bill_pay.pm;h=25bd61977994ddbe4c0048e87a7a2669485d0491;hb=c0c5709fb022b83a482d0b35f7094505766d5868;hp=3f787d3b72500e976e07538a2fd2ae1472d302f2;hpb=664a6d35a1e811eb2c10503b288be178cc14801c;p=freeside.git

diff --git a/FS/FS/cust_bill_pay.pm b/FS/FS/cust_bill_pay.pm
index 3f787d3b7..25bd61977 100644
--- a/FS/FS/cust_bill_pay.pm
+++ b/FS/FS/cust_bill_pay.pm
@@ -1,15 +1,9 @@
 package FS::cust_bill_pay;
+use base qw( FS::cust_main_Mixin FS::cust_bill_ApplicationCommon );
 
 use strict;
-use vars qw( @ISA $conf );
-use FS::Record qw( qsearchs );
-use FS::cust_main_Mixin;
-use FS::cust_bill_ApplicationCommon;
-use FS::cust_bill;
-use FS::cust_pay;
-use FS::cust_pkg;
-
-@ISA = qw( FS::cust_main_Mixin FS::cust_bill_ApplicationCommon );
+use vars qw( $conf );
+use FS::UID;
 
 #ask FS::UID to run this stuff for us later
 FS::UID->install_callback( sub { 
@@ -143,13 +137,6 @@ sub check {
 
 Returns the payment (see L<FS::cust_pay>)
 
-=cut
-
-sub cust_pay {
-  my $self = shift;
-  qsearchs( 'cust_pay', { 'paynum' => $self->paynum } );
-}
-
 =item send_receipt HASHREF | OPTION => VALUE ...
 
 Sends a payment receipt for the associated payment, against this specific