freeside/FS/FS cust_main.pm,1.163,1.164

ivan ivan at pouncequick.420.am
Tue Nov 9 00:14:42 PST 2004


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

Modified Files:
	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.163
retrieving revision 1.164
diff -u -d -r1.163 -r1.164
--- cust_main.pm	26 Oct 2004 11:26:33 -0000	1.163
+++ cust_main.pm	9 Nov 2004 08:14:39 -0000	1.164
@@ -1117,6 +1117,7 @@
 
 sub bill {
   my( $self, %options ) = @_;
+  return '' if $self->payby eq 'COMP';
   warn "bill customer ". $self->custnum if $DEBUG;
 
   my $time = $options{'time'} || time;




More information about the freeside-commits mailing list