} @report_option;
}
- foreach my $any ( grep /^report_option_any/ keys %$params ) {
+ foreach my $any ( grep /^report_option_any/, keys %$params ) {
my @report_option_any = ();
- if ( exists($params->{$any}) ) {
- if ( ref($params->{$any}) eq 'ARRAY' ) {
- @report_option_any = @{ $params->{$any} };
- } elsif ( $params->{$any} =~ /^([,\d]*)$/ ) {
- @report_option_any = split(',', $1);
- }
-
+ if ( ref($params->{$any}) eq 'ARRAY' ) {
+ @report_option_any = @{ $params->{$any} };
+ } elsif ( $params->{$any} =~ /^([,\d]*)$/ ) {
+ @report_option_any = split(',', $1);
}
if (@report_option_any) {
( &FS::Report::FCC_477::statenum2state($_) || 'None' ).
'</TD>'.
'<TD>'.
- qq(<A HREF="${link}censustract2=$_$roa_r$row_c$row_t">).
+ qq(<A HREF="${link}censustract2=$_$roa_r$roa_c$roa_t">).
$state_pkgcount{$_}. ' packages</A> in '.
$state_hash{$_}. ' census tracts'.
'</TD>'.