X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Freport_cdr.html;h=ef544783860b2e45dc352d62c0157b43b08782a8;hb=dbf521cf2f1f1a05f4722006f339b2595c8ee70f;hp=e3418a7d44fd3a70bb0254eb8727c023e2cc915b;hpb=fb4ab1073f0d15d660c6cdc4e07afebf68ef3924;p=freeside.git
diff --git a/httemplate/search/report_cdr.html b/httemplate/search/report_cdr.html
index e3418a7d4..ef5447838 100644
--- a/httemplate/search/report_cdr.html
+++ b/httemplate/search/report_cdr.html
@@ -24,9 +24,12 @@
@@ -144,6 +147,11 @@
|
+
+ Acct Code (one per-line): |
+ |
+
+
|
@@ -180,7 +188,13 @@ die "access denied"
unless $FS::CurrentUser::CurrentUser->access_right('List rating data');
my @fields = fields('cdr');
+push @fields, 'ratename';
my $labels = FS::cdr->table_info->{'fields'};
+$labels->{ratename} = 'Rate plan';
+
+my $conf = new FS::Conf;
+my $default_phone_countrycode =
+ $conf->config('default_phone_countrycode') || '1';
#XXX config
my @show_default = qw(
@@ -214,7 +228,7 @@ if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
});
die "Customer not found!" unless $cust_main;
- #historical?
+ #historical packages? It would help, it was still usage, it happened
foreach my $cust_pkg ( $cust_main->ncancelled_pkgs ) {
my @voip_pkgs =
@@ -239,7 +253,7 @@ if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
my @numbers = map {
my $number = $_->phonenum;
$number = $_->countrycode. $number
- unless $_->countrycode eq '1';
+ unless $_->countrycode eq $default_phone_countrycode;
$number;
}
@svc_phone;