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
|
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->req->params->{p} || 1;
my $u_page = $c->req->params->{u} || 1;
my $pins = [];
my $problems = {};
my $params = {
state => [ FixMyStreet::DB::Result::Problem->visible_states() ],
};
$params = {
%{ $c->cobrand->problems_clause },
%$params
} if $c->cobrand->problems_clause;
my $rs = $c->user->problems->search( $params, {
order_by => { -desc => 'confirmed' },
rows => 50
} )->page( $p_page );
while ( my $problem = $rs->next ) {
push @$pins, {
latitude => $problem->latitude,
longitude => $problem->longitude,
colour => $problem->is_fixed ? 'green' : 'red',
id => $problem->id,
title => $problem->title,
};
my $state = $problem->is_fixed ? 'fixed' : $problem->is_closed ? 'closed' : 'confirmed';
push @{ $problems->{$state} }, $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->{updates} = \@updates;
$c->stash->{updates_pager} = $rs->pager;
$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;
|
