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
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
|
package FixMyStreet::App::Controller::Questionnaire;
use Moose;
use namespace::autoclean;
#use Utils;
#use Error qw(:try);
#use CrossSell;
#use mySociety::Locale;
BEGIN { extends 'Catalyst::Controller'; }
=head1 NAME
FixMyStreet::App::Controller::Questionnaire - Catalyst Controller
=head1 DESCRIPTION
Catalyst Controller.
=head1 METHODS
=cut
sub load_questionnaire : Private {
my ( $self, $c ) = @_;
my $questionnaire = $c->model('DB::Questionnaire')->find(
{ id => $c->stash->{id} },
{ prefetch => 'problem' }
);
$c->stash->{questionnaire} = $questionnaire;
my $problem_id = $questionnaire->problem_id;
if ( $questionnaire->whenanswered ) {
my $problem_url = $c->uri_for( "/report/$problem_id" );
my $contact_url = $c->uri_for( "/contact" );
$c->stash->{message} = sprintf(_("You have already answered this questionnaire. If you have a question, please <a href='%s'>get in touch</a>, or <a href='%s'>view your problem</a>.\n"), $contact_url, $problem_url);
$c->stash->{template} = 'questionnaire/error.html';
$c->detach;
}
# FIXME problem fetched information
# extract(epoch from confirmed) as time, extract(epoch from whensent-confirmed) as whensent
# state in ('confirmed','fixed')
$c->stash->{problem} = $questionnaire->problem;
# throw Error::Simple(_("I'm afraid we couldn't locate your problem in the database.\n")) unless $problem;
$c->stash->{answered_ever_reported} = $c->model('DB::Questionnaire')->count(
{ 'problem.user_id' => $c->stash->{problem}->user_id,
ever_reported => { '!=', undef },
},
{ join => 'problem' }
);
}
sub submit : Path('submit') {
my ( $self, $c ) = @_;
$c->forward( '/tokens/load_questionnaire_id', [ $c->req->params->{token} ] );
$c->forward( 'load_questionnaire' );
my $questionnaire = $c->stash->{questionnaire};
my $problem = $questionnaire->problem;
$c->stash->{num_questionnaire} = $c->model('DB::Questionnaire')->count(
{ problem_id => $problem->id }
);
map { $c->stash->{$_} = $c->req->params->{$_} || '' } qw(been_fixed reported another update);
# EHA questionnaires done for you
if ($c->cobrand->moniker eq 'emptyhomes') {
$c->stash->{another} = $c->stash->{num_questionnaire}==1 ? 'Yes' : 'No';
}
my @errors;
push @errors, _('Please state whether or not the problem has been fixed') unless $c->stash->{been_fixed};
my $ask_ever_reported = $c->cobrand->ask_ever_reported;
if ($ask_ever_reported) {
push @errors, _('Please say whether you\'ve ever reported a problem to your council before') unless $c->stash->{reported} || $c->stash->{answered_ever_reported};
}
push @errors, _('Please indicate whether you\'d like to receive another questionnaire')
if ($c->stash->{been_fixed} eq 'No' || $c->stash->{been_fixed} eq 'Unknown') && !$c->stash->{another};
push @errors, _('Please provide some explanation as to why you\'re reopening this report')
if $c->stash->{been_fixed} eq 'No' && $problem->state eq 'fixed' && !$c->stash->{update};
if (@errors) {
$c->stash->{errors} = [ @errors ];
$c->detach( 'display' );
}
# my $fh = $q->upload('photo');
# my $image;
# if ($fh) {
# my $err = Page::check_photo($q, $fh);
# push @errors, $err if $err;
# try {
# $image = Page::process_photo($fh) unless $err;
# } catch Error::Simple with {
# my $e = shift;
# push(@errors, "That image doesn't appear to have uploaded correctly ($e), please try again.");
# };
# }
# push @errors, _('Please provide some text as well as a photo')
# if $image && !$input{update};
# return display_questionnaire($q, @errors) if @errors;
#
# my $new_state = '';
# $new_state = 'fixed' if $input{been_fixed} eq 'Yes' && $problem->{state} eq 'confirmed';
# $new_state = 'confirmed' if $input{been_fixed} eq 'No' && $problem->{state} eq 'fixed';
#
# # Record state change, if there was one
# dbh()->do("update problem set state=?, lastupdate=ms_current_timestamp()
# where id=?", {}, $new_state, $problem->{id})
# if $new_state;
#
# # If it's not fixed and they say it's still not been fixed, record time update
# dbh()->do("update problem set lastupdate=ms_current_timestamp()
# where id=?", {}, $problem->{id})
# if $input{been_fixed} eq 'No' && $problem->{state} eq 'confirmed';
#
# # Record questionnaire response
# my $reported = $input{reported}
# ? ($input{reported} eq 'Yes' ? 't' : ($input{reported} eq 'No' ? 'f' : undef))
# : undef;
# dbh()->do('update questionnaire set whenanswered=ms_current_timestamp(),
# ever_reported=?, old_state=?, new_state=? where id=?', {},
# $reported, $problem->{state}, $input{been_fixed} eq 'Unknown'
# ? 'unknown'
# : ($new_state ? $new_state : $problem->{state}),
# $questionnaire->{id});
#
# # Record an update if they've given one, or if there's a state change
# my $name = $problem->{anonymous} ? undef : $problem->{name};
# my $update = $input{update} ? $input{update} : _('Questionnaire filled in by problem reporter');
# Utils::workaround_pg_bytea("insert into comment
# (problem_id, name, email, website, text, state, mark_fixed, mark_open, photo, lang, cobrand, cobrand_data, confirmed)
# values (?, ?, ?, '', ?, 'confirmed', ?, ?, ?, ?, ?, ?, ms_current_timestamp())", 7,
# $problem->{id}, $name, $problem->{email}, $update,
# $new_state eq 'fixed' ? 't' : 'f', $new_state eq 'confirmed' ? 't' : 'f',
# $image, $mySociety::Locale::lang, $cobrand, $c->cobrand->extra_data
# )
# if $new_state || $input{update};
#
# # If they've said they want another questionnaire, mark as such
# dbh()->do("update problem set send_questionnaire = 't' where id=?", {}, $problem->{id})
# if ($input{been_fixed} eq 'No' || $input{been_fixed} eq 'Unknown') && $input{another} eq 'Yes';
# dbh()->commit();
#
# my $out;
# my $message;
# my $advert_outcome = 1;
# if ($input{been_fixed} eq 'Unknown') {
# $message = _(<<EOF);
# <p>Thank you very much for filling in our questionnaire; if you
# get some more information about the status of your problem, please come back to the
# site and leave an update.</p>
# EOF
# } elsif ($new_state eq 'confirmed' || (!$new_state && $problem->{state} eq 'confirmed')) {
# my $wtt_url = Cobrand::writetothem_url($cobrand, $c->cobrand->extra_data);
# $wtt_url = "http://www.writetothem.com" if (! $wtt_url);
# $message = sprintf(_(<<EOF), $wtt_url);
# <p style="font-size:150%%">We're sorry to hear that. We have two suggestions: why not try
# <a href="%s">writing direct to your councillor(s)</a>
# or, if it's a problem that could be fixed by local people working together,
# why not <a href="http://www.pledgebank.com/new">make and publicise a pledge</a>?
# </p>
# EOF
# $advert_outcome = 0;
# } else {
# $message = _(<<EOF);
# <p style="font-size:150%">Thank you very much for filling in our questionnaire; glad to hear it's been fixed.</p>
# EOF
# }
# $out = $message;
# my $display_advert = Cobrand::allow_crosssell_adverts($cobrand);
# if ($display_advert && $advert_outcome) {
# $out .= CrossSell::display_advert($q, $problem->{email}, $problem->{name},
# council => $problem->{council});
# }
# my %vars = (message => $message);
# my $template_page = Page::template_include('questionnaire-completed', $q, Page::template_root($q), %vars);
# return $template_page if ($template_page);
# return $out;
}
# Sent here from email token action. Simply load and display questionnaire.
sub index : Private {
my ( $self, $c ) = @_;
$c->forward( 'load_questionnaire' );
$c->forward( 'display' );
}
# Displays the questionnaire, either after bad submission or from email token
sub display : Private {
my ( $self, $c ) = @_;
$c->stash->{template} = 'questionnaire/index.html';
my $problem = $c->stash->{questionnaire}->problem;
( $c->stash->{short_latitude}, $c->stash->{short_longitude} ) =
map { Utils::truncate_coordinate($_) }
( $problem->latitude, $problem->longitude );
my $updates = $c->model('DB::Comment')->search(
{ problem_id => $problem->id, state => 'confirmed' },
{ order_by => 'confirmed' }
);
$c->stash->{updates} = $updates;
$c->stash->{map_start_html} = FixMyStreet::Map::display_map(
$c,
latitude => $problem->latitude,
longitude => $problem->longitude,
pins => [ [ $problem->latitude, $problem->longitude, $problem->state eq 'fixed' ? 'green' : 'red' ] ],
);
$c->stash->{map_js} = FixMyStreet::Map::header_js();
$c->stash->{cobrand_form_elements} = $c->cobrand->form_elements('questionnaireForm');
}
sub creator_fixed : Private {
my ( $self, $c ) = @_;
$c->stash->{template} = 'questionnaire/creator_fixed.html';
return 1;
}
=head1 AUTHOR
Matthew Somerville
=head1 LICENSE
Copyright (c) 2011 UK Citizens Online Democracy. All rights reserved.
Licensed under the Affero GPL.
=cut
__PACKAGE__->meta->make_immutable;
1;
|
