###
# parse censustract2
###
- if ( exists($params->{'censustract2'}) =~ /^(\d*)$/ ) {
+ if ( exists($params->{'censustract2'})
+ && $params->{'censustract2'} =~ /^(\d*)$/
+ )
+ {
if ($1) {
push @where, "cust_main.censustract LIKE '$1%'";
} else {
<% include( 'elements/search.html',
'html_init' => $html_init,
- 'html_foot' => $html_foot,,
+ 'html_foot' => $html_foot,
'name' => 'regions',
'query' => [ @sql_query ],
'count_query' => $count_query,
sub { my $row = shift;
my $state = substr($row->censustract, 0, 2);
$state_hash{$state}++;
- substr($row->censustract, 2, 3) || 'None'
+ substr($row->censustract, 2, 3) || 'None';
},
sub { my $row = shift;
- substr($row->censustract, 5) || 'None'
+ substr($row->censustract, 5) || 'None';
},
'upload',
'download',
for ( qw(agentnum magic) ) {
$search_hash{$_} = $cgi->param($_) if $cgi->param($_);
}
-$search_hash{'classnum'} = [ $cgi->param('classnum') ];
+$search_hash{'classnum'} = [ $cgi->param('classnum') ]
+ if grep { $_ eq 'classnum' } $cgi->param;
my @column_option = grep { /^\d+$/ } $cgi->param('part1_column_option')
if $cgi->param('part1_column_option');
}
#arrays
-for (qw( pkgpart classnum )) {
- $search_hash{$_} = [ $cgi->param($_) ];
+for my $param (qw( pkgpart classnum )) {
+ $search_hash{$param} = [ $cgi->param($param) ];
+ if grep { $_ eq $param } $cgi->param;
}
#scalars that need to be passed if empty
-for my $param (qw(censustract censustract2 )) {
+for my $param (qw( censustract censustract2 )) {
$search_hash{$param} = $cgi->param($param) || ''
- if ( grep { /$param/ } $cgi->param );
+ if grep { $_ eq $param } $cgi->param;
}
my @report_option = $cgi->param('report_option')