search cdr by acctid

diff --git a/httemplate/search/cdr.html b/httemplate/search/cdr.html
index ceee6f2..d1f68c5 100644 (file)
--- a/httemplate/search/cdr.html
+++ b/httemplate/search/cdr.html
@@ -194,6 +194,23 @@ if ( $cgi->param('cdrbatch') ne '__ALL__' ) {
 }
 
 ###
+# acctid
+###
+
+if ( $cgi->param('acctid') =~ /\d/ ) {
+  my $acctid = $cgi->param('acctid');
+  $acctid =~ s/\r\n/\n/g; #browsers?
+  my @acctid = map  { /^\s*(\d+)\s*$/ or die "guru meditation #4"; $1; }
+               grep { /^\s*(\d+)\s*$/ }
+               split(/\n/, $acctid);
+  if ( @acctid ) {
+    my $search = 'acctid IN ( '. join(',', @acctid). ' )';
+    push @qsearch, $search;
+    push @search,  $search;
+  }
+}
+
+###
 # finish it up
 ###
 

diff --git a/httemplate/search/report_cdr.html b/httemplate/search/report_cdr.html
index c5f728c..f3ad1e6 100644 (file)
--- a/httemplate/search/report_cdr.html
+++ b/httemplate/search/report_cdr.html
@@ -84,6 +84,11 @@
   <% include( '/elements/tr-select-cdrbatch.html' ) %>
 
   <TR>
+    <TD ALIGN="right">Acct ID (one per-line):</TD>
+    <TD><TEXTAREA NAME="acctid"></TEXTAREA></TD>
+  </TR>
+
+  <TR>
     <TH BGCOLOR="#e8e8e8" COLSPAN=2>&nbsp;</TH>
   </TR>