X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fcust_bill_batch.pm;h=fcbda7f70660d8ad9d743847ed80941f333db3d5;hp=4569e6bc87295ccec0db185f2611c7429fdb4429;hb=8d0e8149e7b19ad8543ac6c8c663be63dbc34762;hpb=b7dbecfb82aea90a4289089927d0b17436b2ed5a

diff --git a/FS/FS/cust_bill_batch.pm b/FS/FS/cust_bill_batch.pm
index 4569e6bc8..fcbda7f70 100644
--- a/FS/FS/cust_bill_batch.pm
+++ b/FS/FS/cust_bill_batch.pm
@@ -1,12 +1,11 @@
 package FS::cust_bill_batch;
+use base qw( FS::option_Common );
 
 use strict;
-use vars qw( @ISA $me $DEBUG );
-use FS::Record qw( qsearch qsearchs dbh );
+use vars qw( $me $DEBUG );
 
-@ISA = qw( FS::option_Common );
 $me = '[ FS::cust_bill_batch ]';
-$DEBUG=0;
+$DEBUG = 0;
 
 sub table { 'cust_bill_batch' }
 
@@ -38,24 +37,10 @@ following fields are currently supported:
 
 Returns the C<FS::bill_batch> object.
 
-=cut
-
-sub bill_batch { 
-  my $self = shift;
-  FS::bill_batch->by_key($self->batchnum);
-}
-
 =item cust_bill
 
 Returns the C<FS::cust_bill> object.
 
-=cut
-
-sub cust_bill {
-  my $self = shift;
-  FS::cust_bill->by_key($self->invnum);
-}
-
 =back
 
 =head1 BUGS