X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=httemplate%2Fsearch%2Freport_cdr.html;h=744038d12938e27a384fcd07882b3ae0753914f7;hb=457cf05ffc31212de613249c95a8ab05aed34f47;hp=28516313b35fbe1028900c070c07f1aaba54890c;hpb=c47123a101c99b35c3c7b1be5b003b773ae00e06;p=freeside.git diff --git a/httemplate/search/report_cdr.html b/httemplate/search/report_cdr.html index 28516313b..744038d12 100644 --- a/httemplate/search/report_cdr.html +++ b/httemplate/search/report_cdr.html @@ -3,6 +3,13 @@
+ <% include('/elements/footer.html') %> <%init> die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); +my @fields = fields('cdr'); +my $labels = FS::cdr->table_info->{'fields'}; + +#XXX config +my @show_default = qw( + calldate clid src dst dcontext charged_party + startdate answerdate enddate duration billsec + disposition amaflags accountcode userfield + rated_price upstream_price carrierid + svcnum freesidestatus freesiderewritestatus +); +my %show_default = map { $_=>1 } @show_default; + +my $names_list = [ map { + [ $_ => { + 'label' => 'Show '. ( $labels->{$_} || $_ ) + } + ] + } + @fields + ]; + %init>