'type' => 'checkbox',
},
+ 'use_disposition_taqua' => { 'name' => 'Do not charge for CDRs where the disposition is not set to "100" (Taqua).',
+ 'type' => 'checkbox',
+ },
+
+ 'use_carrierid' => { 'name' => 'Do not charge for CDRs where the Carrier ID is not set to: ',
+ },
+
+ 'use_cdrtypenum' => { 'name' => 'Do not charge for CDRs where the CDR Type is not set to: ',
+ },
+
+ '411_rewrite' => { 'name' => 'Rewrite these (comma-separated) destination numbers to 411 for rating purposes: ',
+ },
+
'output_format' => { 'name' => 'Simple output format',
'type' => 'select',
'select_options' => { FS::cdr::invoice_formats() },
},
- 'separate_usage' => { 'name' => 'Separate usage charges from recurring charges',
- 'type' => 'checkbox',
- },
-
'usage_section' => { 'name' => 'Section in which to place separate usage charges',
},
default_prefix
disable_src
domestic_prefix international_prefix
- use_amaflags use_disposition output_format
- separate_usage summarize_usage usage_section
+ use_amaflags use_disposition
+ use_disposition_taqua use_carrierid use_cdrtypenum
+ 411_rewrite
+ output_format summarize_usage usage_section
)
],
'weight' => 40,
$self->option('setup_fee');
}
-sub calc_recur {
- my $self = shift;
- my $charges = 0;
- $charges = $self->calc_usage(@_)
- unless $self->option('separate_usage', 'Hush!');
- $self->option('recur_fee') + $charges;
-}
-
#false laziness w/voip_sqlradacct calc_recur resolve it if that one ever gets used again
-sub calc_usage {
+sub calc_recur {
my($self, $cust_pkg, $sdate, $details, $param ) = @_;
my $last_bill = $cust_pkg->last_bill;
my( $rate_region, $regionnum );
my $pretty_destnum;
my $charge = '';
+ my $classnum = '';
my @call_details = ();
if ( $self->option('rating_method') eq 'prefix'
|| ! $self->option('rating_method')
)
{
+ #should have some better way of checking these options than a long
+ #if-else tree...
+ my $notchg = "not charging for CDR";
+
if ( $self->option('use_amaflags') && $cdr->amaflags != 2 ) {
- warn "not charging for CDR (amaflags != 2)\n" if $DEBUG;
+ warn "$notchg (amaflags != 2)\n" if $DEBUG;
$charge = 0;
} elsif ( $self->option('use_disposition')
&& $cdr->disposition ne 'ANSWERED' ) {
- warn "not charging for CDR (disposition != ANSWERED)\n" if $DEBUG;
+ warn "$notchg (disposition != ANSWERED)\n" if $DEBUG;
+ $charge = 0;
+
+ } elsif ( $self->option('use_disposition_taqua')
+ && $cdr->disposition != 100 ) {
+
+ warn "$notchg (disposition != 100)\n" if $DEBUG;
+ $charge = 0;
+
+ } elsif ( $self->option('use_carrierid')
+ && $cdr->carrierid != $self->option('use_carrierid') ) {
+
+ warn "$notchg (carrierid != ". $self->option('use_carrierid'). ")\n"
+ if $DEBUG;
+ $charge = 0;
+
+ } elsif ( $self->option('use_cdrtypenum')
+ && $cdr->cdrtypenum != $self->option('use_cdrtypenum') ) {
+
+ warn "$notchg (cdrtypenum != ". $self->option('use_cdrtypenum'). ")\n"
+ if $DEBUG;
$charge = 0;
} else {
# (or calling station id for toll free calls)
###
+ if ( $self->option('411_rewrite') ) {
+ my @dirass = split(/\s*,\s*/, $self->option('411_rewrite'));
+ $cdr->dst('411') if grep $cdr->dst eq $_, @dirass;
+ }
+
my( $to_or_from, $number );
if ( $cdr->dst =~ /^(\+?1)?8([02-8])\1/ ) { #tollfree call
$to_or_from = 'from';
$rate_region->regionname,
);
+ $classnum = $rate_detail->classnum;
+
}
if ( $charge > 0 ) {
+ #just use FS::cust_bill_pkg_detail objects?
my $call_details;
if ( $self->option('rating_method') eq 'upstream_simple' ) {
- $call_details = [ 'C', $call_details[0] ];
+ $call_details = [ 'C', $call_details[0], $charge, $classnum ];
}else{
$csv->combine(@call_details);
- $call_details = [ 'C', $csv->string ];
+ $call_details = [ 'C', $csv->string, $charge, $classnum ];
}
warn " adding details on charge to invoice: [ ".
join(', ', @{$call_details} ). " ]"
} #if ( $spool_cdr && length($downstream_cdr) )
- $charges;
+ $self->option('recur_fee') + $charges;
}
scalar(grep { $_->part_svc->svcdb eq 'svc_phone' } $cust_pkg->cust_svc);
}
-sub append_cust_bill_pkgs {
- my $self = shift;
- my($cust_pkg, $sdate, $details, $param ) = @_;
- return []
- unless $self->option('separate_usage', 'Hush!');
-
- my @details = ();
- my $charges = $self->calc_usage($cust_pkg, $sdate, \@details, $param);
-
- return []
- unless $charges; # unless @details?
-
- my @cust_bill_pkg = ();
-
- my $want_summary = $self->option('summarize_usage', 'Hush!') &&
- $self->option('usage_section', 'Hush!');
-
- push @cust_bill_pkg, new FS::cust_bill_pkg {
- 'pkgnum' => $cust_pkg->pkgnum,
- 'setup' => 0,
- 'unitsetup' => 0,
- 'recur' => sprintf( "%.2f", $charges), # hmmm
- 'unitrecur' => 0,
- 'quantity' => $cust_pkg->quantity,
- 'sdate' => $$sdate,
- 'edate' => $cust_pkg->bill, # already fiddled
- 'itemdesc' => 'Usage charges', # configurable?
- 'duplicate' => 'Y',
- }
- if $want_summary;
-
- push @cust_bill_pkg, new FS::cust_bill_pkg {
- 'pkgnum' => $cust_pkg->pkgnum,
- 'setup' => 0,
- 'unitsetup ' => 0,
- 'recur' => sprintf( "%.2f", $charges), # hmmm
- 'unitrecur ' => 0,
- 'quantity' => $cust_pkg->quantity,
- 'sdate' => $$sdate,
- 'edate' => $cust_pkg->bill, # already fiddled
- 'itemdesc' => 'Usage charges', # configurable?
- 'section' => $self->option('usage_section', 'Hush!'),
- 'details' => \@details,
- 'post_total' => ( $want_summary ? 'Y' : '' ),
- };
-
-
- return [ @cust_bill_pkg ];
-}
-
1;