X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_pkg%2Fvoip_cdr.pm;h=d3eff355f0ac002b033626dfd0834c8e3738a31b;hb=c2f7d8ba623194ad1fae37b231b2e29b33d05674;hp=b8f1eee038814f07bc5cd829736e27f6a853b7a4;hpb=a17d255a7678d360c3673a461b091608b181716c;p=freeside.git diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm index b8f1eee03..d3eff355f 100644 --- a/FS/FS/part_pkg/voip_cdr.pm +++ b/FS/FS/part_pkg/voip_cdr.pm @@ -465,6 +465,15 @@ sub calc_usage { #my @invoice_details_sort; + # for tagging invoice details + my $phonenum; + if ( $svc_table eq 'svc_phone' ) { + $phonenum = $svc_x->phonenum; + } elsif ( $svc_table eq 'svc_pbx' ) { + $phonenum = $svc_x->title; + } + $formatter->phonenum($phonenum); + #first rate any outstanding CDRs not yet rated # XXX eventually use an FS::Cursor for this my $cdr_search = $svc_x->psearch_cdrs(%options);