diff options
| author | matthew <matthew> | 2007-05-04 15:24:43 +0000 |
|---|---|---|
| committer | matthew <matthew> | 2007-05-04 15:24:43 +0000 |
| commit | c5a6cc1022afc92df6fe97a17fd448079e82a6fb (patch) | |
| tree | 1fec5016c8f6b01fe774b20755089d72240a64b4 | |
| parent | 35e2f31b2ef7c7c68e6ca459d91822c6309ccaa1 (diff) | |
Don't care about defined/undefinedness.
| -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 2f31fac3d..3a0de74e6 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.1 2007-05-04 14:36:56 matthew Exp $ +# $Id: questionnaire.cgi,v 1.2 2007-05-04 15:24:43 matthew Exp $ use strict; require 5.8.0; @@ -135,7 +135,7 @@ EOF sub display_questionnaire { my ($q, @errors) = @_; my @vars = qw(token id been_fixed reported update another); - my %input = map { $_ => scalar $q->param($_) } @vars; + my %input = map { $_ => $q->param($_) || '' } @vars; my %input_h = map { $_ => $q->param($_) ? ent($q->param($_)) : '' } @vars; my ($error, $questionnaire, $prev_questionnaire, $problem); |