diff options
author | Mark Wells <mark@freeside.biz> | 2015-02-23 19:17:29 -0800 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-02-23 19:17:29 -0800 |
commit | e151a538a611ed5aa3c08164cebc7230e5fa0da1 (patch) | |
tree | f6687ab71b8005ef011e040027f5de58ffd38b11 /FS/FS/cust_main.pm | |
parent | 62759f0a7ad3159372f7c7c6d35fea7e079084e5 (diff) |
option to force one-time charges to be billed separately, #32866
Diffstat (limited to 'FS/FS/cust_main.pm')
-rw-r--r-- | FS/FS/cust_main.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/cust_main.pm b/FS/FS/cust_main.pm index c3b141e..7594fa8 100644 --- a/FS/FS/cust_main.pm +++ b/FS/FS/cust_main.pm @@ -3131,6 +3131,7 @@ sub charge { my ( $setuptax, $taxclass ); #internal taxes my ( $taxproduct, $override ); #vendor (CCH) taxes my $no_auto = ''; + my $separate_bill = ''; my $cust_pkg_ref = ''; my ( $bill_now, $invoice_terms ) = ( 0, '' ); my $locationnum; @@ -3153,7 +3154,8 @@ sub charge { $bill_now = exists($_[0]->{bill_now}) ? $_[0]->{bill_now} : ''; $invoice_terms = exists($_[0]->{invoice_terms}) ? $_[0]->{invoice_terms} : ''; $locationnum = $_[0]->{locationnum} || $self->ship_locationnum; - } else { + $separate_bill = $_[0]->{separate_bill} || ''; + } else { # yuck $amount = shift; $setup_cost = ''; $quantity = 1; @@ -3221,6 +3223,7 @@ sub charge { 'quantity' => $quantity, 'start_date' => $start_date, 'no_auto' => $no_auto, + 'separate_bill' => $separate_bill, 'locationnum'=> $locationnum, } ); |