httemplate/search/cdr.html

   1 <% include( 'elements/search.html',
   2                'title' => $title,
   3                'name'  => 'call detail records',
   4                'query' => { 'table'   => 'cdr',
   5                             'hashref' => $hashref
   6                           },
   7                'count_query' => $count_query,
   8                'header' => [ fields('cdr') ], #XXX fill in some nice names
   9                'fields' => [ fields('cdr') ], #XXX fill in some pretty-print
  10                                               # processing, etc.
  11              )
  12 %>
  13 <%init>
  14
  15 die "access denied"
  16   unless $FS::CurrentUser::CurrentUser->access_right('List rating data');
  17
  18 my $title = 'Call Detail Records';
  19 my $hashref = {};
  20 my $count_query = 'SELECT COUNT(*) FROM cdr';
  21
  22 #process params for CDR search, populate $hashref...
  23 # and fixup $count_query
  24
  25 if ( $cgi->param('freesidestatus') eq 'NULL' ) {
  26
  27   my $title = "Unprocessed $title";
  28   $hashref->{'freesidestatus'} = ''; # Record.pm will take care of it
  29   #$count_query .= " AND ( freesidestatus IS NULL OR freesidestatus = '' )";
  30   $count_query .= " WHERE ( freesidestatus IS NULL OR freesidestatus = '' )";
  31
  32 } elsif ( $cgi->param('freesidestatus') =~ /^([\w ]+)$/ ) {
  33
  34   my $title = "Processed $title";
  35   $hashref->{'freesidestatus'} = $1;
  36   #$count_query .= " AND freesidestatus = '$1'";
  37   $count_query .= " WHERE freesidestatus = '$1'";
  38
  39 }
  40
  41 </%init>