diff options
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/EmptyHomes.pm')
-rw-r--r-- | perllib/FixMyStreet/Cobrand/EmptyHomes.pm | 28 |
1 files changed, 16 insertions, 12 deletions
diff --git a/perllib/FixMyStreet/Cobrand/EmptyHomes.pm b/perllib/FixMyStreet/Cobrand/EmptyHomes.pm index 2d0798989..6b907cbd0 100644 --- a/perllib/FixMyStreet/Cobrand/EmptyHomes.pm +++ b/perllib/FixMyStreet/Cobrand/EmptyHomes.pm @@ -1,9 +1,11 @@ -package FixMyStreet::Cobrands::EmptyHomes; -use base 'FixMyStreet::Cobrands::Default'; +package FixMyStreet::Cobrand::EmptyHomes; +use base 'FixMyStreet::Cobrand::Default'; use strict; use warnings; +use FixMyStreet; +use mySociety::Locale; use Carp; =item @@ -13,11 +15,11 @@ Return the base url for this cobranded site =cut sub base_url { - my $base_url = mySociety::Config::get('BASE_URL'); - if ($base_url !~ /emptyhomes/) { - $base_url =~ s/http:\/\//http:\/\/emptyhomes\./g; - } - return $base_url; + my $base_url = FixMyStreet->config('BASE_URL'); + if ( $base_url !~ /emptyhomes/ ) { + $base_url =~ s/http:\/\//http:\/\/emptyhomes\./g; + } + return $base_url; } sub admin_base_url { @@ -25,7 +27,7 @@ sub admin_base_url { } sub area_types { - return qw(DIS LBO MTD UTA LGD COI); # No CTY + return qw(DIS LBO MTD UTA LGD COI); # No CTY } =item set_lang_and_domain LANG UNICODE @@ -35,9 +37,10 @@ Set the language and text domain for the site based on the query and host. =cut 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); + 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 ); mySociety::Locale::change(); } @@ -47,7 +50,7 @@ Return the title to be used in page heads =cut -sub site_title { +sub site_title { my ($self) = @_; return _('Report Empty Homes'); } @@ -57,6 +60,7 @@ sub site_title { Return the XSL file path to be used for feeds' =cut + sub feed_xsl { my ($self) = @_; return '/xsl.eha.xsl'; |