add USPS-unvalidated customer addresses report, RT12402

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

diff --git a/httemplate/search/cust_main.cgi b/httemplate/search/cust_main.cgi
index 8fbf636..ba7d4e3 100755 (executable)
--- a/httemplate/search/cust_main.cgi
+++ b/httemplate/search/cust_main.cgi
@@ -83,6 +83,10 @@
 %      push @select, FS::TicketSystem->sql_num_customer_tickets. " as tickets";
 %      push @addl_headers, 'Tickets';
 %      push @addl_cols, 'tickets';
+%    } elsif ( $query eq 'uspsunvalid' ) {
+%       $search{'country'} = 'US';
+%       $sortby=\*custnum_sort;
+%       $orderby = "ORDER BY custnum";
 %    } else {
 %      die "unknown browse field $query";
 %    }
@@ -132,6 +136,10 @@
 %  $addl_qual .= ( $addl_qual ? ' AND ' : '' ).
 %                $FS::CurrentUser::CurrentUser->agentnums_sql;
 %
+%  if ( $cgi->param('browse') && $cgi->param('browse') eq 'uspsunvalid' ) {
+%       $addl_qual .= ' AND ( length(zip) < 9 OR upper(address1) != address1 OR upper(city) != city ) ';
+%  }
+%
 %  if ( $addl_qual ) {
 %    $qual .= ' AND ' if $qual;
 %    $qual .= $addl_qual;