diff options
| -rw-r--r-- | perllib/Cobrands/Barnet/Util.pm | 77 |
1 files changed, 77 insertions, 0 deletions
diff --git a/perllib/Cobrands/Barnet/Util.pm b/perllib/Cobrands/Barnet/Util.pm new file mode 100644 index 000000000..1842078ce --- /dev/null +++ b/perllib/Cobrands/Barnet/Util.pm @@ -0,0 +1,77 @@ +#!/usr/bin/perl -w +# +# 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.1 2009-12-15 16:07:21 matthew Exp $ + +package Cobrands::Barnet::Util; +use Standard; +use strict; +use Carp; +use mySociety::Web qw(ent); + +sub new { + my $class = shift; + return bless {}, $class; +} + +=item + +Return the base url for this cobranded site + +=cut + +sub base_url { + my $base_url = mySociety::Config::get('BASE_URL'); + if ($base_url !~ /barnet/) { + $base_url =~ s/http:\/\//http:\/\/barnet\./g; + } + return $base_url; +} + +=item site_title + +Return the title to be used in page heads + +=cut + +sub site_title { + my ($self) = @_; + return 'Barnet Council FixMyStreet'; +} + +sub enter_postcode_text { + my ($self,$q) = @_; + return 'Enter a Barnet postcode, or street name and area:'; +} + +=item council_check COUNCILS QUERY CONTEXT + +Return a boolean indicating whether the councils for the location passed any +extra checks defined by the cobrand ousing data in the query + +=cut + +sub council_check { + my ($self, $councils, $q, $context) = @_; + my $council_match = defined $councils->{2489}; + if ($council_match) { + return 1; + } + my $error_msg = "That location is not covered by Barnet. +Please visit <a href='http://www.fixmystreet.com/'>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 { + # $error_msg .= "You can subscribe to alerts for this area at $main_app_link."; + #} + return (0, $error_msg); +} + +1; + |