diff options
| author | ivan <ivan> | 2011-08-17 21:07:55 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2011-08-17 21:07:55 +0000 |
| commit | c0e1b949ca42baf12bc501be41401608f10853e6 (patch) | |
| tree | cfc824e054ed7c9f901e60384327eea0cf8e0e46 | |
| parent | 747a19687ad2ccc676ea3d6f024d87410dc797e8 (diff) | |
fix 477 censustract links, RT#13922
| -rwxr-xr-x | httemplate/search/477partVI_census.html | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/httemplate/search/477partVI_census.html b/httemplate/search/477partVI_census.html index 9134bacca..d28caeb47 100755 --- a/httemplate/search/477partVI_census.html +++ b/httemplate/search/477partVI_census.html @@ -130,8 +130,16 @@ my $count_query = 'SELECT count(*) FROM ( ('. @sql_query ). ') ) AS foo'; -my $link = 'cust_pkg.cgi?'. - join(';', map{ "$_=". $search_hash{$_} } keys %search_hash). ';'; +my $link = 'cust_pkg.cgi?'. join(';', + map { my $key = $_; + my @values = ref($search_hash{$_}) + ? @{ $search_hash{$_} } + : $search_hash{$_} + map { "$key=$_" } @values + } + keys %search_hash + ). ';'; + my $link_suffix = sub { my $row = shift; my $result = 'censustract='. $row->censustract. ';'; $result .= 'report_option='. @row_option[$row->upload - 1] |