quiet warnings about CGI::param in list context

[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 7212726..91b2001 100644 (file)
--- a/httemplate/search/cust_tax_exempt.cgi
+++ b/httemplate/search/cust_tax_exempt.cgi
@@ -1,4 +1,4 @@
-<% include( 'elements/search.html',
+<& elements/search.html,
                  'title'       => 'Legacy tax exemptions',
                  'name'        => 'legacy tax exemptions',
                  'query'       => $query,
@@ -7,12 +7,16 @@
                  'header'      => [
                    '#',
                    'Month',
+                   'Inserted',
                    'Amount',
                    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; },
 
                    \&FS::UI::Web::cust_fields,
@@ -21,31 +25,32 @@
                    '',
                    '',
                    '',
+                   '',
 
                    ( map { $_ ne 'Cust. Status' ? $clink : '' }
                          FS::UI::Web::cust_header()
                    ),
                  ],
-                 'align' => 'rrr'.FS::UI::Web::cust_aligns(),
+                 'align' => 'rrrr'.FS::UI::Web::cust_aligns(),
                  'color' => [ 
                               '',
                               '',
                               '',
+                              '',
                               FS::UI::Web::cust_colors(),
                             ],
                  'style' => [ 
                               '',
                               '',
                               '',
+                              '',
                               FS::UI::Web::cust_styles(),
                             ],
-           )
-%>
+           
+&>
 <%init>
 
-my $join_cust = "
-    LEFT JOIN cust_main USING ( custnum )
-";
+my $join_cust = FS::UI::Web::join_cust_main('cust_tax_exempt');
 
 die "access denied"
   unless $FS::CurrentUser::CurrentUser->access_right('View customer tax exemptions');
@@ -56,7 +61,6 @@ my @where = ();
 #if ( $beginning || $ending ) {
 #  push @where, "_date >= $beginning",
 #               "_date <= $ending";
-#               #"payby != 'COMP';
 #}
 
 if ( $cgi->param('agentnum') =~ /^(\d+)$/ ) {