eliminate some false laziness in FS::Misc::send_email vs. msg_template/email.pm send_...

[freeside.git] / FS / FS / cust_bill_batch.pm

diff --git a/FS/FS/cust_bill_batch.pm b/FS/FS/cust_bill_batch.pm
index 4569e6b..fcbda7f 100644 (file)
--- 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