blob: b03a2ab981c84e29ec3fc9c94391a94f4626bd82 (
plain)
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::Admin::ExorDefects;
use Moose;
use namespace::autoclean;
use DateTime;
use Try::Tiny;
use FixMyStreet::Integrations::ExorRDI;
BEGIN { extends 'Catalyst::Controller'; }
sub begin : Private {
my ( $self, $c ) = @_;
$c->forward('/admin/begin');
}
sub index : Path : Args(0) {
my ( $self, $c ) = @_;
foreach (qw(error_message start_date end_date user_id)) {
if ( defined $c->flash->{$_} ) {
$c->stash->{$_} = $c->flash->{$_};
}
}
my @inspectors = $c->cobrand->users->search({
'user_body_permissions.permission_type' => 'report_inspect'
}, {
join => 'user_body_permissions',
distinct => 1,
}
)->all;
$c->stash->{inspectors} = \@inspectors;
# Default start/end date is today
my $now = DateTime->now( time_zone =>
FixMyStreet->time_zone || FixMyStreet->local_time_zone );
$c->stash->{start_date} ||= $now;
$c->stash->{end_date} ||= $now;
}
sub download : Path('download') : Args(0) {
my ( $self, $c ) = @_;
if ( !$c->cobrand->can('exor_rdi_link_id') ) {
# This only works on the Oxfordshire cobrand currently.
$c->detach( '/page_error_404_not_found', [] );
}
my $parser = DateTime::Format::Strptime->new( pattern => '%d/%m/%Y' );
my $start_date = $parser-> parse_datetime ( $c->get_param('start_date') );
my $end_date = $parser-> parse_datetime ( $c->get_param('end_date') ) ;
my $one_day = DateTime::Duration->new( days => 1 );
my $params = {
start_date => $start_date,
inspection_date => $start_date,
end_date => $end_date + $one_day,
user => $c->get_param('user_id'),
};
my $rdi = FixMyStreet::Integrations::ExorRDI->new($params);
try {
my $out = $rdi->construct;
$c->res->content_type('text/csv; charset=utf-8');
$c->res->header('content-disposition' => "attachment; filename=" . $rdi->filename);
$c->res->body( $out );
} catch {
die $_ unless $_ =~ /FixMyStreet::Integrations::ExorRDI::Error/;
if ($params->{user}) {
$c->flash->{error_message} = _("No inspections by that inspector in the selected date range.");
} else {
$c->flash->{error_message} = _("No inspections in the selected date range.");
}
$c->flash->{start_date} = $params->{start_date};
$c->flash->{end_date} = $params->{end_date};
$c->flash->{user_id} = $params->{user};
$c->res->redirect( $c->uri_for( '' ) );
};
}
1;
|
