1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
|
package FixMyStreet::Cobrand::Bromley;
use parent 'FixMyStreet::Cobrand::UKCouncils';
use strict;
use warnings;
use DateTime::Format::W3CDTF;
sub council_area_id { return 2482; }
sub council_area { return 'Bromley'; }
sub council_name { return 'Bromley Council'; }
sub council_url { return 'bromley'; }
sub base_url {
my $self = shift;
return $self->next::method() if FixMyStreet->config('STAGING_SITE');
return 'https://fix.bromley.gov.uk';
}
sub problems_on_map_restriction {
my ($self, $rs) = @_;
return $rs if FixMyStreet->staging_flag('skip_checks');
my $tfl = FixMyStreet::DB->resultset('Body')->search({ name => 'TfL' })->first;
return $rs->to_body($tfl ? [ $self->body->id, $tfl->id ] : $self->body);
}
sub default_show_name { 0 }
sub disambiguate_location {
my $self = shift;
my $string = shift;
my $town = 'Bromley';
# There has been a road name change for a section of Ramsden Road
# (BR5) between Church Hill and Court Road has changed to 'Old Priory
# Avenue' - presently entering Old Priory Avenue simply takes the user to
# a different Priory Avenue in Petts Wood
# From Google maps search, "BR6 0PL" is a valid postcode for Old Priory Avenue
if ($string =~/^old\s+priory\s+av\w*$/i) {
$town = 'BR6 0PL';
}
# White Horse Hill is on boundary with Greenwich, so need a
# specific postcode
$town = 'BR7 6DH' if $string =~ /^white\s+horse/i;
$town = '' if $string =~ /orpington/i;
$string =~ s/(, *)?br[12]$//i;
$town = 'Beckenham' if $string =~ s/(, *)?br3$//i;
$town = 'West Wickham' if $string =~ s/(, *)?br4$//i;
$town = 'Orpington' if $string =~ s/(, *)?br[56]$//i;
$town = 'Chislehurst' if $string =~ s/(, *)?br7$//i;
$town = 'Swanley' if $string =~ s/(, *)?br8$//i;
return {
%{ $self->SUPER::disambiguate_location() },
string => $string,
town => $town,
centre => '51.366836,0.040623',
span => '0.154963,0.24347',
bounds => [ 51.289355, -0.081112, 51.444318, 0.162358 ],
};
}
sub get_geocoder {
return 'OSM'; # default of Bing gives poor results, let's try overriding.
}
sub example_places {
return ( 'BR1 3UH', 'Glebe Rd, Bromley' );
}
sub map_type {
'Bromley';
}
# Bromley pins always yellow
sub pin_colour {
my ( $self, $p, $context ) = @_;
return 'grey' if !$self->owns_problem( $p );
return 'yellow';
}
sub recent_photos {
my ( $self, $area, $num, $lat, $lon, $dist ) = @_;
$num = 3 if $num > 3 && $area eq 'alert';
return $self->problems->recent_photos( $num, $lat, $lon, $dist );
}
sub send_questionnaires {
return 0;
}
sub ask_ever_reported {
return 0;
}
sub process_open311_extras {
my $self = shift;
$self->SUPER::process_open311_extras( @_, [ 'first_name', 'last_name' ] );
}
sub contact_email {
my $self = shift;
return join( '@', 'info', 'bromley.gov.uk' );
}
sub contact_name { 'Bromley Council (do not reply)'; }
sub abuse_reports_only { 1; }
sub reports_per_page { return 20; }
sub tweak_all_reports_map {
my $self = shift;
my $c = shift;
if ( !$c->stash->{ward} ) {
$c->stash->{map}->{longitude} = 0.040622967881348;
$c->stash->{map}->{latitude} = 51.36690161822;
$c->stash->{map}->{any_zoom} = 0;
$c->stash->{map}->{zoom} = 11;
}
}
sub title_list {
return ["MR", "MISS", "MRS", "MS", "DR"];
}
sub open311_config {
my ($self, $row, $h, $params) = @_;
my $extra = $row->get_extra_fields;
my $title = $row->title;
foreach (@$extra) {
next unless $_->{value};
$title .= ' | ID: ' . $_->{value} if $_->{name} eq 'feature_id';
$title .= ' | PROW ID: ' . $_->{value} if $_->{name} eq 'prow_reference';
}
@$extra = grep { $_->{name} !~ /feature_id|prow_reference/ } @$extra;
push @$extra,
{ name => 'report_url',
value => $h->{url} },
{ name => 'report_title',
value => $title },
{ name => 'public_anonymity_required',
value => $row->anonymous ? 'TRUE' : 'FALSE' },
{ name => 'email_alerts_requested',
value => 'FALSE' }, # always false as can never request them
{ name => 'requested_datetime',
value => DateTime::Format::W3CDTF->format_datetime($row->confirmed->set_nanosecond(0)) },
{ name => 'email',
value => $row->user->email };
# make sure we have last_name attribute present in row's extra, so
# it is passed correctly to Bromley as attribute[]
if ( $row->cobrand ne 'bromley' ) {
my ( $firstname, $lastname ) = ( $row->name =~ /(\w+)\.?\s+(.+)/ );
push @$extra, { name => 'last_name', value => $lastname };
}
$row->set_extra_fields(@$extra);
$params->{always_send_latlong} = 0;
$params->{send_notpinpointed} = 1;
$params->{extended_description} = 0;
}
sub open311_config_updates {
my ($self, $params) = @_;
$params->{use_extended_updates} = 1;
$params->{endpoints} = {
service_request_updates => 'update.xml',
update => 'update.xml'
};
}
sub open311_pre_send {
my ($self, $row, $open311) = @_;
my $extra = $row->extra || {};
unless ( $extra->{title} ) {
$extra->{title} = $row->user->title;
$row->extra( $extra );
}
}
1;
|
