freeside/FS/FS cust_main.pm,1.92.2.47,1.92.2.48

[ivan]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory pouncequick:/tmp/cvs-serv26299

Modified Files:
      Tag: FREESIDE_1_4_BRANCH
	cust_main.pm 
Log Message:
don't generate invoices for COMP customers

Index: cust_main.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_main.pm,v
retrieving revision 1.92.2.47
retrieving revision 1.92.2.48
diff -u -d -r1.92.2.47 -r1.92.2.48
--- cust_main.pm	14 May 2004 12:25:47 -0000	1.92.2.47
+++ cust_main.pm	9 Nov 2004 08:15:38 -0000	1.92.2.48
@@ -1098,6 +1098,7 @@
 
 sub bill {
   my( $self, %options ) = @_;
+  return '' if $self->payby eq 'COMP';
   my $time = $options{'time'} || time;
 
   my $error;