diff options
author | Struan Donald <struan@exo.org.uk> | 2013-08-01 11:30:53 +0100 |
---|---|---|
committer | Struan Donald <struan@exo.org.uk> | 2013-08-01 11:30:53 +0100 |
commit | 094e926d6c62bc8e9e45e69ec256744cda169d7d (patch) | |
tree | 175c02563e3386a89461d63c77f76a541f628920 /perllib/FixMyStreet/Cobrand/FixMyStreet.pm | |
parent | e7c62cbd10d8d751b816517939ccf466f5e804dd (diff) |
Send back a list of titles in new report ajax details
This is so that the mobile app can use the list to build the appropriate
UI as fixing the HTML that is sent for the site is too awful.
Diffstat (limited to 'perllib/FixMyStreet/Cobrand/FixMyStreet.pm')
-rw-r--r-- | perllib/FixMyStreet/Cobrand/FixMyStreet.pm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm index 04c137674..aa2be4a0f 100644 --- a/perllib/FixMyStreet/Cobrand/FixMyStreet.pm +++ b/perllib/FixMyStreet/Cobrand/FixMyStreet.pm @@ -1,6 +1,8 @@ package FixMyStreet::Cobrand::FixMyStreet; use base 'FixMyStreet::Cobrand::UK'; +use constant COUNCIL_ID_BROMLEY => 2482; + # FixMyStreet should return all cobrands sub restriction { return {}; @@ -10,5 +12,14 @@ sub admin_base_url { return 'https://secure.mysociety.org/admin/bci/'; } +sub title_list { + my $self = shift; + my $areas = shift; + my $first_area = ( values %$areas )[0]; + + return ["MR", "MISS", "MRS", "MS", "DR"] if $first_area->{id} eq COUNCIL_ID_BROMLEY; + return undef; +} + 1; |