aboutsummaryrefslogtreecommitdiffstats
path: root/perllib/FixMyStreet/Cobrand/EmptyHomes.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/EmptyHomes.pm')
-rw-r--r--perllib/FixMyStreet/Cobrand/EmptyHomes.pm28
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';