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
|
package FixMyStreet::App::Controller::Dashboard;
use Moose;
use namespace::autoclean;
use DateTime;
BEGIN { extends 'Catalyst::Controller'; }
=head1 NAME
FixMyStreet::App::Controller::Dashboard - Catalyst Controller
=head1 DESCRIPTION
Catalyst Controller.
=head1 METHODS
=cut
=head2 check_page_allowed
Checks if we can view this page, and if not redirect to 404.
=cut
sub check_page_allowed : Private {
my ( $self, $c ) = @_;
$c->detach( '/page_error_404_not_found' )
unless $c->user_exists && $c->user->from_council;
return $c->user->from_council;
}
=head2 index
Show the dashboard table.
=cut
sub index : Path : Args(0) {
my ( $self, $c ) = @_;
my $council = $c->forward('check_page_allowed');
my $children = mySociety::MaPit::call('area/children', $council,
type => $mySociety::VotingArea::council_child_types,
);
$c->stash->{children} = $children;
my %counts;
my $t = DateTime->today;
$counts{wtd} = $c->forward( 'updates_search', [ {
council => $council,
'me.confirmed' => { '>=', $t->subtract( days => $t->dow - 1 )
} } ] );
$counts{week} = $c->forward( 'updates_search', [ {
council => $council,
'me.confirmed' => { '>=', DateTime->now->subtract( weeks => 1 )
} } ] );
$counts{weeks} = $c->forward( 'updates_search', [ {
council => $council,
'me.confirmed' => { '>=', DateTime->now->subtract( weeks => 4 )
} } ] );
$counts{ytd} = $c->forward( 'updates_search', [ {
council => $council,
'me.confirmed' => { '>=', DateTime->today->set( day => 1, month => 1 )
} } ] );
$c->stash->{problems} = \%counts;
}
sub updates_search : Private {
my ( $self, $c, $params ) = @_;
my $comments = $c->model('DB::Comment')->search(
$params,
{
group_by => [ 'problem_state' ],
select => [ 'problem_state', { count => 'me.id' } ],
as => [ qw/state state_count/ ],
join => 'problem'
}
);
my %counts =
map { ($_->state||'-') => $_->get_column('state_count') } $comments->all;
%counts =
map { $_ => $counts{$_} || 0 }
('confirmed', 'investigating', 'in progress', 'closed', 'fixed - council',
'fixed - user', 'fixed', 'unconfirmed', 'hidden',
'partial', 'planned');
$counts{fixed_user} = $c->model('DB::Comment')->search(
{ %$params, mark_fixed => 1 }, { join => 'problem' }
)->count;
$counts{total} = $c->cobrand->problems->search(
{ %$params, state => [ FixMyStreet::DB::Result::Problem::visible_states() ] }
)->count;
return \%counts;
}
=head1 AUTHOR
Matthew Somerville
=head1 LICENSE
Copyright (c) 2012 UK Citizens Online Democracy. All rights reserved.
Licensed under the Affero GPL.
=cut
__PACKAGE__->meta->make_immutable;
1;
|
