diff options
| -rw-r--r-- | perllib/Cobrands/Barnet/Util.pm | 5 | ||||
| -rw-r--r-- | perllib/Cobrands/Emptyhomes/Util.pm | 9 |
2 files changed, 2 insertions, 12 deletions
diff --git a/perllib/Cobrands/Barnet/Util.pm b/perllib/Cobrands/Barnet/Util.pm index 3cc60117f..e59e9118f 100644 --- a/perllib/Cobrands/Barnet/Util.pm +++ b/perllib/Cobrands/Barnet/Util.pm @@ -3,18 +3,13 @@ # Util.pm: # Barnet cobranding for FixMyStreet. # -# # Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org -# -# $Id: Util.pm,v 1.9 2009-12-22 13:04:05 matthew Exp $ package Cobrands::Barnet::Util; -use Standard; use strict; use Carp; use URI::Escape; -use mySociety::Web qw(ent); use mySociety::VotingArea; sub new { diff --git a/perllib/Cobrands/Emptyhomes/Util.pm b/perllib/Cobrands/Emptyhomes/Util.pm index f562a849b..acb870695 100644 --- a/perllib/Cobrands/Emptyhomes/Util.pm +++ b/perllib/Cobrands/Emptyhomes/Util.pm @@ -3,19 +3,14 @@ # Util.pm: # Emptyhomes Cobranding for FixMyStreet. # -# # Copyright (c) 2009 UK Citizens Online Democracy. All rights reserved. # Email: louise@mysociety.org. WWW: http://www.mysociety.org -# -# $Id: Util.pm,v 1.8 2009-12-22 11:17:26 matthew Exp $ package Cobrands::Emptyhomes::Util; -use Standard; use strict; use Carp; -use mySociety::Web qw(ent); -sub new{ +sub new { my $class = shift; return bless {}, $class; } @@ -44,7 +39,7 @@ Set the language and text domain for the site based on the query and host. =cut -sub set_lang_and_domain{ +sub set_lang_and_domain { my ($self, $lang, $unicode) = @_; mySociety::Locale::negotiate_language('en-gb,English,en_GB|cy,Cymraeg,cy_GB', $lang); mySociety::Locale::gettext_domain('FixMyStreet-EmptyHomes', $unicode); |