diff options
| author | Edmund von der Burg <evdb@mysociety.org> | 2011-02-23 22:25:33 +0000 |
|---|---|---|
| committer | Edmund von der Burg <evdb@mysociety.org> | 2011-02-23 22:25:33 +0000 |
| commit | fa5163eff32b66edb244f1d121cbec74469e3f48 (patch) | |
| tree | ee550e0780c636c1165c5de59c7d67b606f05aab /perllib/Problems.pm | |
| parent | 5cf138c1ace35dbc9cbce1279e1ddcb8a55fe513 (diff) | |
| parent | 3a690ce84d1913872d56e46a8ecd3c7ad728072e (diff) | |
Merge branch 'master' into migrate_to_catalyst
Diffstat (limited to 'perllib/Problems.pm')
| -rw-r--r-- | perllib/Problems.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/perllib/Problems.pm b/perllib/Problems.pm index 74ac34f75..111583fd5 100644 --- a/perllib/Problems.pm +++ b/perllib/Problems.pm @@ -101,7 +101,8 @@ sub recent_photos { my ($num, $lat, $lon, $dist) = @_; my $probs; if (defined $lat) { - my $key = "recent_photos:$site_key:$num:$lat:$lon:$dist"; + my $dist2 = $dist; # Create a copy of the variable to stop it being stringified into a locale in the next line! + my $key = "recent_photos:$site_key:$num:$lat:$lon:$dist2"; $probs = Memcached::get($key); unless ($probs) { $probs = mySociety::Locale::in_gb_locale { |