[freeside-commits] freeside/httemplate/search cust_pkg.cgi, 1.73.2.1, 1.73.2.2 477partVI_census.html, 1.3.2.2, 1.3.2.3
Ivan,,,
ivan at wavetail.420.am
Wed Aug 17 18:15:51 PDT 2011
Update of /home/cvs/cvsroot/freeside/httemplate/search
In directory wavetail.420.am:/tmp/cvs-serv22040/httemplate/search
Modified Files:
Tag: FREESIDE_2_3_BRANCH
cust_pkg.cgi 477partVI_census.html
Log Message:
multiple state links in FCC report, RT#13922
Index: 477partVI_census.html
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/search/477partVI_census.html,v
retrieving revision 1.3.2.2
retrieving revision 1.3.2.3
diff -u -w -d -r1.3.2.2 -r1.3.2.3
--- 477partVI_census.html 17 Aug 2011 21:39:54 -0000 1.3.2.2
+++ 477partVI_census.html 18 Aug 2011 01:15:49 -0000 1.3.2.3
@@ -31,10 +31,10 @@
'fields' => [
sub { my $row = shift;
$state_hash{substr($row->censustract, 0, 2)}++;
- 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',
@@ -149,9 +149,13 @@
'<BR><B>WARNING: multiple states found</B><BR>'.
'<TABLE BORDER=0>'. #nicer formatting someday
join('', map { '<TR>'.
- "<TD>$_</TD>".
- qq(<TD><A HREF="${link}state=$_">).
- $state_hash{$_}. '</A></TD>'.
+ '<TD>'.
+ ( &FS::Report::FCC_477::statenum2state($_) || 'None' ).
+ '</TD>'.
+ '<TD>'.
+ qq(<A HREF="${link}censustract2=$_">).
+ $state_hash{$_}. ' census tracts</A>'.
+ '</TD>'.
'</TR>';
}
keys %state_hash
Index: cust_pkg.cgi
===================================================================
RCS file: /home/cvs/cvsroot/freeside/httemplate/search/cust_pkg.cgi,v
retrieving revision 1.73.2.1
retrieving revision 1.73.2.2
diff -u -w -d -r1.73.2.1 -r1.73.2.2
--- cust_pkg.cgi 18 Aug 2011 00:33:37 -0000 1.73.2.1
+++ cust_pkg.cgi 18 Aug 2011 01:15:49 -0000 1.73.2.2
@@ -154,7 +154,8 @@
$search_hash{$_} = [ $cgi->param($_) ];
}
-for my $param ( qw(censustract) ) {
+#scalars that need to be passed if empty
+for my $param (qw(censustract censustract2 )) {
$search_hash{$param} = $cgi->param($param) || ''
if ( grep { /$param/ } $cgi->param );
}
More information about the freeside-commits
mailing list