X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fsearch%2Fcdr.html;h=852eebadbe8abc6020239c4eb34f1551e22838d4;hb=850f16089f73212d65751dec48e799d83defa6fb;hp=0facc7fab2ac9889d7c563bda7a14b0e88caeb02;hpb=c50294661393eec227f85446d17037c520b65e0a;p=freeside.git diff --git a/httemplate/search/cdr.html b/httemplate/search/cdr.html index 0facc7fab..852eebadb 100644 --- a/httemplate/search/cdr.html +++ b/httemplate/search/cdr.html @@ -1,15 +1,50 @@ <% include( 'elements/search.html', 'title' => $title, 'name' => 'call detail records', + 'query' => { 'table' => 'cdr', 'hashref' => $hashref, 'extra_sql' => $qsearch, 'order_by' => 'ORDER BY calldate', }, 'count_query' => $count_query, - 'header' => [ fields('cdr') ], #XXX fill in some nice names - 'fields' => [ fields('cdr') ], #XXX fill in some pretty-print - # processing, etc. + 'header' => [ + '', # checkbox column + fields('cdr'), #XXX fill in some nice names + ], + 'fields' => [ + sub { + return '' unless $edit_data; + $areboxes = 1; + my $cdr = shift; + my $acctid = $cdr->acctid; + qq!!; + }, + fields('cdr'), #XXX fill in some pretty-print + #processing, etc. + ], + + 'html_form' => qq!
!, + #false laziness w/queue.html + 'html_foot' => sub { + if ( $areboxes ) { + '
'. + ''. + qq!
!. + qq!
!. + ''; + } else { + ''; + } + }, + ) %> <%init> @@ -17,6 +52,10 @@ die "access denied" unless $FS::CurrentUser::CurrentUser->access_right('List rating data'); +my $edit_data = $FS::CurrentUser::CurrentUser->access_right('Edit rating data'); + +my $areboxes = 0; + my $title = 'Call Detail Records'; my $hashref = {}; @@ -24,7 +63,6 @@ my $hashref = {}; # and fixup $count_query my @search = (); -my @qsearch = (); ### # freesidestatus @@ -51,18 +89,22 @@ if ( $cgi->param('freesidestatus') eq 'NULL' ) { my $str2time_sql = str2time_sql; my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi); -push @search, -my @dsearch = ( "$str2time_sql calldate) >= $beginning ", - "$str2time_sql calldate) <= $ending" - ); -push @search, @dsearch; -push @qsearch, @search; +push @search, "$str2time_sql calldate) >= $beginning ", + "$str2time_sql calldate) <= $ending"; +### +# duration / billsec +### + +push @search, FS::UI::Web::parse_lt_gt($cgi, 'duration'); +push @search, FS::UI::Web::parse_lt_gt($cgi, 'billsec'); ### -# src/dest +# src/dest/charged_party ### +my @qsearch = @search; + if ( $cgi->param('src') =~ /^\s*([\d\-\+\ ]+)\s*$/ ) { ( my $src = $1 ) =~ s/\D//g; $hashref->{'src'} = $src; @@ -75,6 +117,32 @@ if ( $cgi->param('dst') =~ /^\s*([\d\-\+ ]+)\s*$/ ) { push @search, "dst = '$dst'"; } +if ( $cgi->param('charged_party') =~ /^\s*([\d\-\+\ ]+)\s*$/ ) { + ( my $charged_party = $1 ) =~ s/\D//g; + #$hashref->{'charged_party'} = $charged_party; + #push @search, "charged_party = '$charged_party'"; + #XXX countrycode + push @search, " ( charged_party = '$charged_party' + OR charged_party = '1$charged_party' ) "; + push @qsearch, " ( charged_party = '$charged_party' + OR charged_party = '1$charged_party' ) "; +} + +### +# cdrbatch +### + +if ( $cgi->param('cdrbatch') ne '__ALL__' ) { + if ( $cgi->param('cdrbatch') eq '' ) { + my $search = "( cdrbatch IS NULL OR cdrbatch = '' )"; + push @qsearch, $search; + push @search, $search; + } else { + $hashref->{cdrbatch} = $cgi->param('cdrbatch'); + push @search, 'cdrbatch = '. dbh->quote($cgi->param('cdrbatch')); + } +} + ### # finish it up ###