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