diff options
| author | ivan <ivan> | 2012-02-09 05:11:19 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2012-02-09 05:11:19 +0000 |
| commit | 8ac3302f703b842283230856d4939ca37a3e6ec8 (patch) | |
| tree | 9e2f3ff75e9f706cdbf88eab14d44ffe99f0482b /FS/FS/Misc/Geo.pm | |
| parent | cb27e3918663fa60f0e21d9fcbd1d2c0b5c7298e (diff) | |
fix census tract coding, broken by 1/17/2012 update to FFIEC site, RT#16369
Diffstat (limited to 'FS/FS/Misc/Geo.pm')
| -rw-r--r-- | FS/FS/Misc/Geo.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/FS/FS/Misc/Geo.pm b/FS/FS/Misc/Geo.pm index acfeabf..d7375b0 100644 --- a/FS/FS/Misc/Geo.pm +++ b/FS/FS/Misc/Geo.pm @@ -36,7 +36,7 @@ sub get_censustract { warn Dumper($location, $year) if $DEBUG; - my $url='http://www.ffiec.gov/Geocode/default.aspx'; + my $url = 'http://www.ffiec.gov/Geocode/default.aspx'; my $return = {}; my $error = ''; @@ -75,14 +75,11 @@ sub get_censustract { my($zip5, $zip4) = split('-',$location->{zip}); - $year ||= '2011'; - #ugh workaround a mess at ffiec - $year = " $year" if $year ne '2011'; + $year ||= '2011'; #2012 per http://transition.fcc.gov/form477/techfaqs.html soon/now? my @ffiec_args = ( __VIEWSTATE => $viewstate, __EVENTVALIDATION => $eventvalidation, ddlbYear => $year, - ddlbYear => '2011', #' 2009', txtAddress => $location->{address1}, txtCity => $location->{city}, ddlbState => $location->{state}, @@ -117,7 +114,10 @@ sub get_censustract { $return->{lc($1)} = $p->get_trimmed_text("/span"); } - $error = "No census tract found" unless $return->{tractcode}; + unless ( $return->{tractcode} ) { + warn "$error: $content ". Dumper($return) if $DEBUG; + $error = "No census tract found"; + } $return->{tractcode} .= ' ' unless $error || $JSON::VERSION >= 2; #broken JSON 1 workaround |