improve speed in customer search, #13364

[freeside.git] / httemplate / search / cust_tax_exempt.cgi

diff --git a/httemplate/search/cust_tax_exempt.cgi b/httemplate/search/cust_tax_exempt.cgi
index b77cd0e..3704b20 100644 (file)
--- a/httemplate/search/cust_tax_exempt.cgi
+++ b/httemplate/search/cust_tax_exempt.cgi
@@ -7,31 +7,31 @@
                  'header'      => [
                    '#',
                    'Month',
+                   'Inserted',
                    'Amount',
-                   'Date',
                    FS::UI::Web::cust_header(),
                  ],
                  'fields'      => [
-                   'exemptpkgnum',
+                   'exemptnum',
                    sub { $_[0]->month. '/'. $_[0]->year; },
+                   sub { my $h = $_[0]->h_search('insert');
+                         $h ? time2str('%L/%d/%Y', $h->history_date ) : ''
+                       },
                    sub { $money_char. $_[0]->amount; },
 
-                   sub { time2str('%b %d %Y', shift->_date ) },
-
                    \&FS::UI::Web::cust_fields,
                  ],
                  'links'       => [
                    '',
                    '',
                    '',
-
                    '',
 
                    ( map { $_ ne 'Cust. Status' ? $clink : '' }
                          FS::UI::Web::cust_header()
                    ),
                  ],
-                 'align' => 'rrrlrc'.FS::UI::Web::cust_aligns(), # 'rlrrrc',
+                 'align' => 'rrrr'.FS::UI::Web::cust_aligns(),
                  'color' => [ 
                               '',
                               '',
@@ -59,12 +59,12 @@ die "access denied"
 
 my @where = ();
 
-my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
-if ( $beginning || $ending ) {
-  push @where, "_date >= $beginning",
-               "_date <= $ending";
-               #"payby != 'COMP';
-}
+#my($beginning, $ending) = FS::UI::Web::parse_beginning_ending($cgi);
+#if ( $beginning || $ending ) {
+#  push @where, "_date >= $beginning",
+#               "_date <= $ending";
+#               #"payby != 'COMP';
+#}
 
 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {
   push @where, "agentnum = $1";
@@ -74,6 +74,13 @@ if ( $cgi->param('custnum') =~ /^(\d+)$/ ) {
   push @where,  "cust_main.custnum = $1";
 }
 
+#prospect active inactive suspended cancelled
+if ( grep { $cgi->param('status') eq $_ } FS::cust_main->statuses() ) {
+  my $method = $cgi->param('status'). '_sql';
+  #push @where, $class->$method();
+  push @where, FS::cust_main->$method();
+}
+
 if ( $cgi->param('out') ) {
 
   push @where, "