remove unused svc_Smart

[freeside.git] / httemplate / search / cdr.html

diff --git a/httemplate/search/cdr.html b/httemplate/search/cdr.html
index 75049b4..54c804c 100644 (file)
--- a/httemplate/search/cdr.html
+++ b/httemplate/search/cdr.html
@@ -1,13 +1,5 @@
-<%
-
-my $hashref = {};
-#process params for CDR search, populate $hashref...
-
-my $count_query = 'SELECT COUNT(*) FROM cdr';
-# and fixup $count_query
-
-%><%= include( 'elements/search.html',
-               'title' => 'Call Detail Records',
+<% include( 'elements/search.html',
+               'title' => $title,
                'name'  => 'call detail records',
                'query' => { 'table'   => 'cdr',
                             'hashref' => $hashref
@@ -18,3 +10,32 @@ my $count_query = 'SELECT COUNT(*) FROM cdr';
                                               # processing, etc.
              )
 %>
+<%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('List rating data');
+
+my $title = 'Call Detail Records';
+my $hashref = {};
+my $count_query = 'SELECT COUNT(*) FROM cdr';
+
+#process params for CDR search, populate $hashref...
+# and fixup $count_query
+
+if ( $cgi->param('freesidestatus') eq 'NULL' ) {
+
+  my $title = "Unprocessed $title";
+  $hashref->{'freesidestatus'} = ''; # Record.pm will take care of it
+  #$count_query .= " AND ( freesidestatus IS NULL OR freesidestatus = '' )";
+  $count_query .= " WHERE ( freesidestatus IS NULL OR freesidestatus = '' )";
+
+} elsif ( $cgi->param('freesidestatus') =~ /^([\w ]+)$/ ) {
+
+  my $title = "Processed $title";
+  $hashref->{'freesidestatus'} = $1;
+  #$count_query .= " AND freesidestatus = '$1'";
+  $count_query .= " WHERE freesidestatus = '$1'";
+
+}
+
+</%init>