diff options
| -rwxr-xr-x | web-admin/index.cgi | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/web-admin/index.cgi b/web-admin/index.cgi index 3647aef10..a66a009cc 100755 --- a/web-admin/index.cgi +++ b/web-admin/index.cgi @@ -7,10 +7,10 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: francis@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: index.cgi,v 1.36 2007-05-09 11:14:40 francis Exp $ +# $Id: index.cgi,v 1.37 2007-05-09 11:16:05 francis Exp $ # -my $rcsid = ''; $rcsid .= '$Id: index.cgi,v 1.36 2007-05-09 11:14:40 francis Exp $'; +my $rcsid = ''; $rcsid .= '$Id: index.cgi,v 1.37 2007-05-09 11:16:05 francis Exp $'; use strict; @@ -135,7 +135,7 @@ sub do_summary ($) { print $q->h3("Questionnaire status"); $statuses = dbh()->selectall_arrayref("select count(*) as c, (whenanswered is null) from questionnaire group by (whenanswered is null) order by c desc"); print $q->p(join($q->br(), - map { $_->[0] . " " . ($_->[1] ? 'answered' : 'unanswered') } @$statuses + map { $_->[0] . " " . ($_->[1] eq 't' ? 'answered' : 'unanswered') } @$statuses )); print $q->h3("Alert status"); |