X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fvoip_cdr.pm;h=ba5e711bc07e0f2ce7297f02bb6e7d73f80d94ba;hp=fd0ec9e55fd7bd227023b2c661be89a952cc3e06;hb=b2f85194e8e090dd6fb05acbe4575dd9440be134;hpb=b125fa567b6557aaa2f9574db8ec5dacd063ab8f diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm index fd0ec9e55..ba5e711bc 100644 --- a/FS/FS/part_pkg/voip_cdr.pm +++ b/FS/FS/part_pkg/voip_cdr.pm @@ -402,13 +402,15 @@ sub calc_usage { my $charges = 0; - my $included_min = $self->option('min_included', 1) || 0; #single price rating + my $included_min = $self->option('min_included', 1) || 0; + #single price rating + #or region group + my $included_calls = $self->option('calls_included', 1) || 0; my $cdr_svc_method = $self->option('cdr_svc_method',1)||'svc_phone.phonenum'; my $rating_method = $self->option('rating_method') || 'prefix'; - my $region_group_included_min = $self->option('min_included',1) || 0; - my %region_group_included_min = (); + my %detail_included_min = (); my $output_format = $self->option('output_format', 'Hush!') || ( $rating_method eq 'upstream_simple' @@ -470,6 +472,7 @@ sub calc_usage { #my @invoice_details_sort; #first rate any outstanding CDRs not yet rated + # XXX eventually use an FS::Cursor for this my $cdr_search = $svc_x->psearch_cdrs(%options); $cdr_search->limit(1000); $cdr_search->increment(0); # because we're changing their status as we go @@ -479,9 +482,8 @@ sub calc_usage { 'part_pkg' => $self, 'cust_pkg' => $cust_pkg, 'svcnum' => $svc_x->svcnum, - 'single_price_included_min' => \$included_min, - 'region_group_included_min' => \$region_group_included_min, - 'region_group_included_min_hashref' => \%region_group_included_min, + 'plan_included_min' => \$included_min, + 'detail_included_min_hashref' => \%detail_included_min, ); die $error if $error; #??