diff options
| author | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-14 15:40:34 +0000 |
|---|---|---|
| committer | Matthew Somerville <matthew@fury.ukcod.org.uk> | 2011-02-14 15:40:34 +0000 |
| commit | 91ac9486a1fd2eeb65fc9c6d2fccc1b170cfc16f (patch) | |
| tree | 2d0ddea3e0f8a870ebe910c51aa2d0807f50eeb8 /perllib/Utils.pm | |
| parent | 844b21d06083368048a0ea2c20baffc7d06b0449 (diff) | |
Tweaks to OSM map module, fix for truncated co-ords.
Diffstat (limited to 'perllib/Utils.pm')
| -rw-r--r-- | perllib/Utils.pm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/perllib/Utils.pm b/perllib/Utils.pm index 91dab033a..21994d20b 100644 --- a/perllib/Utils.pm +++ b/perllib/Utils.pm @@ -100,7 +100,9 @@ which is < 1m at the equator, if you're using WGS84 lat/lon. sub truncate_coordinate { my $in = shift; - my $out = sprintf( '%0.6f', $in ); + my $out = mySociety::Locale::in_gb_locale { + sprintf( '%0.6f', $in ); + }; $out =~ s{\.?0+\z}{} if $out =~ m{\.}; return $out; } |