diff options
| author | matthew <matthew> | 2009-12-22 11:54:50 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2009-12-22 11:54:50 +0000 |
| commit | 75517fb1dca1de9fa6a84bf6325bcd7bca1e645e (patch) | |
| tree | 2edb0ff82cb601240b5961a72f46031158290eee /perllib/Page.pm | |
| parent | fb4cd606a26f74aed6468e8f727f4cab2a7df272 (diff) | |
Make link to main site better.
Diffstat (limited to 'perllib/Page.pm')
| -rw-r--r-- | perllib/Page.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perllib/Page.pm b/perllib/Page.pm index 16ddfa1c9..58c30dcae 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.227 2009-12-22 11:44:45 matthew Exp $ +# $Id: Page.pm,v 1.228 2009-12-22 11:54:50 matthew Exp $ # package Page; @@ -965,7 +965,7 @@ sub geocode_string { $s = lc($s); $s =~ s/[^-&0-9a-z ']/ /g; $s =~ s/\s+/ /g; - $s = uri_escape($s); + $s = URI::Escape::uri_escape_utf8($s); $s = Cobrand::disambiguate_location(get_cobrand($q), "q=$s", $q); $s =~ s/%20/+/g; my $url = 'http://maps.google.com/maps/geo?' . $s; @@ -1043,7 +1043,7 @@ sub short_name { $name =~ s/ (Borough|City|District|County) Council$//; $name =~ s/ Council$//; $name =~ s/ & / and /; - $name = uri_escape($name); + $name = URI::Escape::uri_escape_utf8($name); $name =~ s/%20/+/g; return $name; } |