diff options
Diffstat (limited to 'perllib')
| -rw-r--r-- | perllib/Page.pm | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index ad6e25cb9..04c91dc8d 100644 --- a/perllib/Page.pm +++ b/perllib/Page.pm @@ -6,7 +6,7 @@ # Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: Page.pm,v 1.63 2007-08-29 23:03:16 matthew Exp $ +# $Id: Page.pm,v 1.64 2007-09-03 20:56:30 matthew Exp $ # package Page; @@ -529,13 +529,17 @@ sub geocode_string { } else { $js =~ /"coordinates":\[(.*?),(.*?),/; my $lon = $1; my $lat = $2; - ($easting, $northing) = mySociety::GeoUtil::wgs84_to_national_grid($lat, $lon, 'G'); - my $xx = Page::os_to_tile($easting); - my $yy = Page::os_to_tile($northing); - $x = int($xx); - $y = int($yy); - $x -= 1 if ($xx - $x < 0.5); - $y -= 1 if ($yy - $y < 0.5); + try { + ($easting, $northing) = mySociety::GeoUtil::wgs84_to_national_grid($lat, $lon, 'G'); + my $xx = Page::os_to_tile($easting); + my $yy = Page::os_to_tile($northing); + $x = int($xx); + $y = int($yy); + $x -= 1 if ($xx - $x < 0.5); + $y -= 1 if ($yy - $y < 0.5); + } catch { + $error = shift; + } } } return ($x, $y, $easting, $northing, $error); |