attempt fixing "multiple states" links, RT#13922

diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm
index 4a66ddc..8055a10 100644 (file)
--- a/FS/FS/cust_pkg.pm
+++ b/FS/FS/cust_pkg.pm
@@ -3012,16 +3012,13 @@ sub search {
          } @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) {

diff --git a/httemplate/search/477partVI_census.html b/httemplate/search/477partVI_census.html
index 35de349..fc097ee 100755 (executable)
--- a/httemplate/search/477partVI_census.html
+++ b/httemplate/search/477partVI_census.html
@@ -172,7 +172,7 @@ my $html_foot = sub {
                        ( &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>'.