#$search_hash{'query'} = $cgi->keywords;
#scalars
-for my $param (qw( agentnum status cancelled_pkgs cust_fields flattened_pkgs)) {
+my @scalars = qw (
+ agentnum status cancelled_pkgs cust_fields flattened_pkgs custbatch
+ no_censustract
+);
+
+for my $param ( @scalars ) {
$search_hash{$param} = scalar( $cgi->param($param) )
if $cgi->param($param);
}
if ( $FS::CurrentUser::CurrentUser->access_right('Bulk send customer notices') ) {
- my $uri = new URI::URL;
+ my $uri = new URI;
$uri->query_form( \%search_hash );
my $query = $uri->query;