diff options
Diffstat (limited to 'perllib/Cobrands/Barnet/Util.pm')
| -rw-r--r-- | perllib/Cobrands/Barnet/Util.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/perllib/Cobrands/Barnet/Util.pm b/perllib/Cobrands/Barnet/Util.pm index 9e837fd74..6e201cbf4 100644 --- a/perllib/Cobrands/Barnet/Util.pm +++ b/perllib/Cobrands/Barnet/Util.pm @@ -7,12 +7,13 @@ # Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: Util.pm,v 1.6 2009-12-22 11:44:46 matthew Exp $ +# $Id: Util.pm,v 1.7 2009-12-22 11:54:51 matthew Exp $ package Cobrands::Barnet::Util; use Standard; use strict; use Carp; +use URI::Escape; use mySociety::Web qw(ent); sub new { @@ -73,8 +74,10 @@ sub council_check { if ($council_match) { return 1; } + my $url = 'http://www.fixmystreet.com/'; + $url .= '?pc=' . URI::Escape::uri_escape_utf8($q->param('pc')) if $q->param('pc'); my $error_msg = "That location is not covered by Barnet. -Please visit <a href='http://www.fixmystreet.com/'>the main FixMyStreet site</a>."; +Please visit <a href='$url'>the main FixMyStreet site</a>."; #if ($context eq 'submit_problem' or $context eq 'display_location') { # $error_msg .= "You can report a problem at this location at $main_app_link."; #} else { |