diff options
author | Mark Wells <mark@freeside.biz> | 2015-10-22 15:42:17 -0700 |
---|---|---|
committer | Mark Wells <mark@freeside.biz> | 2015-10-22 15:58:57 -0700 |
commit | d9085d3f37cd6e9b1bad068cfdce945053cf669f (patch) | |
tree | 82cf188e5d8e48a8ba3201c87e1c277a12f9f5e2 /FS/FS/part_pkg/agent.pm | |
parent | c1a674eb92448c96c82517377069359c487d8642 (diff) |
agent wholesale pricing based on actual invoices, #31234
Diffstat (limited to 'FS/FS/part_pkg/agent.pm')
-rw-r--r-- | FS/FS/part_pkg/agent.pm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/FS/FS/part_pkg/agent.pm b/FS/FS/part_pkg/agent.pm index e1165c4..1a5b615 100644 --- a/FS/FS/part_pkg/agent.pm +++ b/FS/FS/part_pkg/agent.pm @@ -14,8 +14,8 @@ $DEBUG = 0; $me = '[FS::part_pkg::agent]'; %info = ( - 'name' => 'Wholesale bulk billing, for master customers of an agent.', - 'shortname' => 'Wholesale bulk billing for agent', + 'name' => 'Wholesale billing based on package prices, for master customers of an agent.', + 'shortname' => 'Wholesale billing for agent (package prices)', 'inherit_fields' => [qw( prorate global_Mixin)], 'fields' => { #'recur_method' => { 'name' => 'Recurring fee method', @@ -94,12 +94,13 @@ sub calc_recur { if $DEBUG; #make sure setup dates are filled in - my $error = $cust_main->bill; #options don't propogate from freeside-daily + my $error = $cust_main->bill( time => $$sdate ); die "Error pre-billing agent customer: $error" if $error; my @cust_pkg = grep { my $setup = $_->get('setup'); my $cancel = $_->get('cancel'); + #$setup <= $$sdate # ? $setup < $$sdate # END && ( ! $cancel || $cancel > $last_bill ) #START } |