diff options
| author | matthew <matthew> | 2007-08-17 10:33:24 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2007-08-17 10:33:24 +0000 |
| commit | 987cf40f58e1c110e929c0323d706eadc23a98d1 (patch) | |
| tree | 8ac782c5b30021e0f36439d2f02c70c62c0908be /web | |
| parent | 3274e991cf35032b1f15b2e3a6b8cc3af1830167 (diff) | |
Show user notices rather than generic "something's gone wrong".
Diffstat (limited to 'web')
| -rwxr-xr-x | web/questionnaire.cgi | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/web/questionnaire.cgi b/web/questionnaire.cgi index 708ec0e94..603b1959c 100755 --- a/web/questionnaire.cgi +++ b/web/questionnaire.cgi @@ -6,7 +6,7 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: questionnaire.cgi,v 1.15 2007-08-15 12:37:47 matthew Exp $ +# $Id: questionnaire.cgi,v 1.16 2007-08-17 10:33:24 matthew Exp $ use strict; require 5.8.0; @@ -76,7 +76,7 @@ sub check_stuff { 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 = map { $_ => scalar $q->param($_) || '' } @vars; my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars; my ($error, $questionnaire, $prev_questionnaire, $problem); |