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
|
package FixMyStreet::App::Controller::My;
use Moose;
use namespace::autoclean;
BEGIN { extends 'Catalyst::Controller'; }
=head1 NAME
FixMyStreet::App::Controller::My - Catalyst Controller
=head1 DESCRIPTION
Catalyst Controller.
=head1 METHODS
=cut
=head2 index
=cut
sub my : Path : Args(0) {
my ( $self, $c ) = @_;
$c->detach( '/auth/redirect' ) unless $c->user;
my $p_page = $c->get_param('p') || 1;
my $u_page = $c->get_param('u') || 1;
$c->forward( '/reports/stash_report_filter_status' );
my $pins = [];
my $problems = {};
my $states = $c->stash->{filter_problem_states};
my $params = {
state => [ keys %$states ],
};
$params = {
%{ $c->cobrand->problems_clause },
%$params
} if $c->cobrand->problems_clause;
my $category = $c->get_param('filter_category');
if ( $category ) {
$params->{category} = $category;
$c->stash->{filter_category} = $category;
}
my $rs = $c->user->problems->search( $params, {
order_by => { -desc => 'confirmed' },
rows => 50
} )->page( $p_page );
while ( my $problem = $rs->next ) {
$c->stash->{has_content}++;
push @$pins, {
latitude => $problem->latitude,
longitude => $problem->longitude,
colour => $c->cobrand->pin_colour( $problem, 'my' ),
id => $problem->id,
title => $problem->title,
};
my $state = $problem->is_fixed ? 'fixed' : $problem->is_closed ? 'closed' : 'confirmed';
push @{ $problems->{$state} }, $problem;
push @{ $problems->{all} }, $problem;
}
$c->stash->{problems_pager} = $rs->pager;
$c->stash->{problems} = $problems;
$rs = $c->user->comments->search(
{ state => 'confirmed' },
{
order_by => { -desc => 'confirmed' },
rows => 50
} )->page( $u_page );
my @updates = $rs->all;
$c->stash->{has_content} += scalar @updates;
$c->stash->{updates} = \@updates;
$c->stash->{updates_pager} = $rs->pager;
my @categories = $c->user->problems->search( undef, {
columns => [ 'category' ],
distinct => 1,
order_by => [ 'category' ],
} )->all;
@categories = map { $_->category } @categories;
$c->stash->{filter_categories} = \@categories;
$c->stash->{page} = 'my';
FixMyStreet::Map::display_map(
$c,
latitude => $pins->[0]{latitude},
longitude => $pins->[0]{longitude},
pins => $pins,
any_zoom => 1,
)
if @$pins;
}
__PACKAGE__->meta->make_immutable;
1;
|
