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
|
#!/usr/bin/perl -w
# questionnaire.cgi:
# Questionnaire for problem creators
#
# Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
#
# $Id: questionnaire.cgi,v 1.12 2007-06-22 14:20:45 matthew Exp $
use strict;
require 5.8.0;
# Horrible boilerplate to set up appropriate library paths.
use FindBin;
use lib "$FindBin::Bin/../perllib";
use lib "$FindBin::Bin/../../perllib";
use Error qw(:try);
use Page;
use mySociety::AuthToken;
use mySociety::Config;
use mySociety::DBHandle qw(dbh select_all);
use mySociety::MaPit;
use mySociety::Web qw(ent);
BEGIN {
mySociety::Config::set_file("$FindBin::Bin/../conf/general");
mySociety::DBHandle::configure(
Name => mySociety::Config::get('BCI_DB_NAME'),
User => mySociety::Config::get('BCI_DB_USER'),
Password => mySociety::Config::get('BCI_DB_PASS'),
Host => mySociety::Config::get('BCI_DB_HOST', undef),
Port => mySociety::Config::get('BCI_DB_PORT', undef)
);
}
sub main {
my $q = shift;
my $out = '';
if ($q->param('submit')) {
$out = submit_questionnaire($q);
} else {
$out = display_questionnaire($q);
}
print Page::header($q, title=>_('Questionnaire'));
print $out;
print Page::footer();
dbh()->rollback();
}
Page::do_fastcgi(\&main);
sub check_stuff {
my $q = shift;
my $id = mySociety::AuthToken::retrieve('questionnaire', $q->param('token'));
throw Error::Simple("I'm afraid we couldn't validate that token. If you've copied the URL from an email, please check that you copied it exactly.\n") unless $id;
my $questionnaire = dbh()->selectrow_hashref(
'select id, problem_id, whenanswered from questionnaire where id=?', {}, $id);
my $problem_id = $questionnaire->{problem_id};
throw Error::Simple("You have already answered this questionnaire. If you have a question, please <a href=/contact>get in touch</a>, or <a href=/?id=$problem_id>view your problem</a>.\n") if $questionnaire->{whenanswered};
my $prev_questionnaire = dbh()->selectrow_hashref(
'select id from questionnaire where problem_id=? and whenanswered is not null', {}, $problem_id);
my $problem = dbh()->selectrow_hashref(
"select *, extract(epoch from confirmed) as time, extract(epoch from whensent-confirmed) as whensent
from problem where id=? and state in ('confirmed','fixed')", {}, $problem_id);
throw Error::Simple("I'm afraid we couldn't locate your problem in the database.\n") unless $problem;
return ($questionnaire, $prev_questionnaire, $problem);
}
sub submit_questionnaire {
my $q = shift;
my @vars = qw(token id been_fixed reported update another);
my %input = map { $_ => scalar $q->param($_) } @vars;
my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars;
my ($error, $questionnaire, $prev_questionnaire, $problem);
try {
($questionnaire, $prev_questionnaire, $problem) = check_stuff($q);
} catch Error::Simple with {
my $e = shift;
$error = $e;
};
return $error if $error;
my @errors;
push @errors, 'Please state whether or not the problem has been fixed' unless $input{been_fixed};
push @errors, 'Please say whether you\'ve ever reported a problem to your council before' unless $input{reported} || $prev_questionnaire;
push @errors, 'Please indicate whether you\'d like to receive another questionnaire'
if $input{been_fixed} eq 'No' && !$input{another};
push @errors, 'Please provide some explanation as to why you\'re reopening this report'
if $input{been_fixed} eq 'No' && $problem->{state} eq 'fixed' && !$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} eq 'Yes' ? 't' :
($input{reported} eq 'No' ? 'f' : undef);
dbh()->do('update questionnaire set whenanswered=ms_current_timestamp(),
ever_reported=?, old_state=?, new_state=? where id=?', {},
$reported, $problem->{state}, $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';
dbh()->do("insert into comment
(problem_id, name, email, website, text, state, mark_fixed, mark_open)
values (?, ?, ?, ?, ?, 'confirmed', ?, ?)", {},
$problem->{id}, $name, $problem->{email}, '', $update,
$new_state eq 'fixed' ? 't' : 'f', $new_state eq 'confirmed' ? 't' : 'f'
)
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{another} eq 'Yes';
dbh()->commit();
return <<EOF;
<p>Thank you very much for filling in our questionnaire.
<a href="/?id=$problem->{id}">View your report on the site</a></p>
EOF
}
sub display_questionnaire {
my ($q, @errors) = @_;
my @vars = qw(token id been_fixed reported update another);
my %input = map { $_ => $q->param($_) || '' } @vars;
my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars;
my ($error, $questionnaire, $prev_questionnaire, $problem);
try {
($questionnaire, $prev_questionnaire, $problem) = check_stuff($q);
} catch Error::Simple with {
my $e = shift;
$error = $e;
};
return $error if $error;
my $x = Page::os_to_tile($problem->{easting});
my $y = Page::os_to_tile($problem->{northing});
my $x_tile = int($x);
my $y_tile = int($y);
my $px = Page::os_to_px($problem->{easting}, $x_tile);
my $py = Page::os_to_px($problem->{northing}, $y_tile);
my $pins = Page::display_pin($q, $px, $py, $problem->{state} eq 'fixed'?'green':'red');
my $problem_text = Page::display_problem_text($q, $problem);
my $updates = Page::display_problem_updates($problem->{id});
my $out = '';
$out .= Page::display_map($q, x => $x_tile, y => $y_tile, pins => $pins,
px => $px, py => $py, pre => $problem_text, post => $updates );
my %been_fixed = (
yes => $input{been_fixed} eq 'Yes' ? ' checked' : '',
no => $input{been_fixed} eq 'No' ? ' checked' : '',
);
my %reported = (
yes => $input{reported} eq 'Yes' ? ' checked' : '',
no => $input{reported} eq 'No' ? ' checked' : '',
);
my %another = (
yes => $input{another} eq 'Yes' ? ' checked' : '',
no => $input{another} eq 'No' ? ' checked' : '',
);
$out .= <<EOF;
<h1>Questionnaire</h1>
<form method="post" action="/questionnaire" id="questionnaire">
<input type="hidden" name="token" value="$input_h{token}">
<p>The details of your problem are available on the right hand side of this page.
EOF
$out .= 'Please take a look at the updates that have been left.' if $updates;
$out .= '</p>';
if (@errors) {
$out .= '<ul id="error"><li>' . join('</li><li>', @errors) . '</li></ul>';
}
$out .= '<p>';
$out .= 'An update marked this problem as fixed. ' if $problem->{state} eq 'fixed';
$out .= 'Has the problem been fixed?</p>';
$out .= <<EOF;
<p align="center">
<input type="radio" name="been_fixed" id="been_fixed_yes" value="Yes"$been_fixed{yes}>
<label for="been_fixed_yes">Yes</label>
<input type="radio" name="been_fixed" id="been_fixed_no" value="No"$been_fixed{no}>
<label for="been_fixed_no">No</label>
</p>
EOF
$out .= <<EOF unless $prev_questionnaire;
<p>Have you ever reported a problem to a council before?</p>
<p align="center">
<input type="radio" name="reported" id="reported_yes" value="Yes"$reported{yes}>
<label for="reported_yes">Yes</label>
<input type="radio" name="reported" id="reported_no" value="No"$reported{no}>
<label for="reported_no">No</label>
</p>
EOF
$out .= <<EOF;
<p>If you wish to leave a public update on the problem, please enter it here
(please note it will not be sent to the council). For example, what was
your experience of getting the problem fixed?</p>
<p><textarea name="update" style="width:90%" rows="7" cols="30">$input_h{update}</textarea></p>
<div id="another_qn">
<p>Would you like to receive another questionnaire in 4 weeks, reminding you to check the status?</p>
<p align="center">
<input type="radio" name="another" id="another_yes" value="Yes"$another{yes}>
<label for="another_yes">Yes</label>
<input type="radio" name="another" id="another_no" value="No"$another{no}>
<label for="another_no">No</label>
</p>
</div>
<p align="right"><input type="submit" name="submit" value="Submit questionnaire"></p>
</form>
EOF
$out .= Page::display_map_end(0);
return $out;
}
|
