X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Freport_cdr.html;h=0eefd4ce70a487195a19e7b13e2275769f905b77;hb=ba703eae98d1c77cfabc275c22a992b62c60548d;hp=11049ac9373853ff1e76500dabf8ba32324f8df7;hpb=9e5bf689d08f88ec6b49312c2c515f5a28bfdf11;p=freeside.git
diff --git a/httemplate/search/report_cdr.html b/httemplate/search/report_cdr.html
index 11049ac93..0eefd4ce7 100644
--- a/httemplate/search/report_cdr.html
+++ b/httemplate/search/report_cdr.html
@@ -22,9 +22,14 @@
Status: |
|
@@ -46,6 +51,16 @@
% }
% #}
+ <% include('/elements/tr-select-table.html',
+ field => 'cdrtypenum',
+ label => 'CDR Type',
+ table => 'cdr_type',
+ name_col => 'cdrtypename',
+ disable_empty => 1,
+ pre_options => [ '', 'all',
+ 'none', 'none' ] )
+ %>
+
<% include ( '/elements/tr-input-beginning_ending.html' ) %>
@@ -133,6 +148,11 @@
+ Acct Code (one per-line): |
+ |
+
+
+
|
@@ -170,6 +190,10 @@ die "access denied"
my @fields = fields('cdr');
my $labels = FS::cdr->table_info->{'fields'};
+my $conf = new FS::Conf;
+my $default_phone_countrycode =
+ $conf->config('default_phone_countrycode') || '1';
+
#XXX config
my @show_default = qw(
calldate clid src dst dcontext charged_party
@@ -202,7 +226,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 =
@@ -227,7 +251,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;