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
|
package FixMyStreet::Cobrand::SeeSomething;
use parent 'FixMyStreet::Cobrand::UKCouncils';
use strict;
use warnings;
sub council_id { return [ 2520, 2522, 2514, 2546, 2519, 2538, 2535 ]; }
sub council_area { return 'West Midlands'; }
sub council_name { return 'See Something Say Something'; }
sub council_url { return 'seesomething'; }
sub area_types { [ 'MTD' ] }
sub area_check {
my ( $self, $params, $context ) = @_;
my $councils = $params->{all_areas};
my $council_match = grep { $councils->{$_} } @{ $self->council_id };
if ($council_match) {
return 1;
}
return ( 0, "That location is not covered by See Something, Say Something" );
}
sub disambiguate_location {
my $self = shift;
my $string = shift;
my $town = 'West Midlands';
return {
%{ $self->SUPER::disambiguate_location() },
town => $town,
centre => '52.4803101685267,-2.2708272758854',
span => '1.4002794815887,2.06340043925997',
bounds => [ 51.8259444771676, -3.23554082684068, 53.2262239587563, -1.17214038758071 ],
};
}
sub example_places {
return ( 'WS1 4NH', 'Austin Drive, Coventry' );
}
sub send_questionnaires {
return 0;
}
sub ask_ever_reported {
return 0;
}
sub report_sent_confirmation_email { 1; }
sub report_check_for_errors { return (); }
sub never_confirm_reports { 1; }
sub allow_anonymous_reports { 1; }
sub anonymous_account { return { name => 'Anonymous Submission', email => FixMyStreet->config('DO_NOT_REPLY_EMAIL') }; }
sub admin_pages {
my $self = shift;
return {
'stats' => ['Reports', 0],
};
};
sub admin_stats {
my $self = shift;
my $c = $self->{c};
my %filters = ();
# XXX The below lookup assumes a body ID === MapIt area ID
my %councils =
map {
my $name = $_->name;
$name =~ s/(?:Borough|City) Council//;
($_->id => $name);
}
$c->model('DB::Body')->search({ id => $self->council_id });
$c->stash->{council_details} = \%councils;
if ( !$c->user_exists || !grep { $_ == $c->user->from_body->id } @{ $self->council_id } ) {
$c->detach( '/page_error_404_not_found' );
}
if ( $c->get_param('category') ) {
$filters{category} = $c->get_param('category');
$c->stash->{category} = $c->get_param('category');
}
if ( $c->get_param('subcategory') ) {
$filters{subcategory} = $c->get_param('subcategory');
$c->stash->{subcategory} = $c->get_param('subcategory');
}
if ( $c->get_param('service') ) {
$filters{service} = { -ilike => $c->get_param('service') };
$c->stash->{service} = $c->get_param('service');
}
my $page = $c->get_param('p') || 1;
my $p = $c->model('DB::Problem')->search(
{
confirmed => { not => undef },
%filters
},
{
columns => [ qw(
service category subcategory confirmed bodies_str
) ],
order_by => { -desc=> [ 'confirmed' ] },
rows => 20,
}
)->page( $page );
$c->stash->{reports} = $p;
$c->stash->{pager} = $p->pager;
return 1;
}
1;
|
