diff options
| -rwxr-xr-x | web/report.cgi | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/web/report.cgi b/web/report.cgi index 341dc9299..ab53fa9a2 100755 --- a/web/report.cgi +++ b/web/report.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: report.cgi,v 1.21 2007-05-09 22:05:55 matthew Exp $ +# $Id: report.cgi,v 1.22 2007-05-11 09:20:50 matthew Exp $ use strict; require 5.8.0; @@ -57,8 +57,7 @@ sub main { ", @params); my $fourweeks = 4*7*24*60*60; foreach my $row (@$problem) { - my $council = $row->{council}; - $council =~ s/\|.*//; + my ($council, $missing) = $row->{council} =~ /^(.*?)\|(.*)$/; my @council = split /,/, $council; my $type = ($row->{duration} > 2 * $fourweeks) ? 'unknown' @@ -66,7 +65,7 @@ sub main { my $duration = ($row->{duration} > 2 * $fourweeks) ? 'old' : 'new'; foreach (@council) { next if $one_council && $_ != $one_council; - my $entry = [ $row->{id}, $row->{title}, $row->{detail}, scalar @council ]; + my $entry = [ $row->{id}, $row->{title}, $row->{detail}, scalar @council, $missing ]; push @{$fixed{$_}{$duration}}, $entry if $row->{state} eq 'fixed'; push @{$open{$_}{$type}}, $entry @@ -126,6 +125,7 @@ sub list_problems { print '</a>'; print ' <small>(sent to both)</small>' if $_->[3]>1; print ' <small>(sent to none)</small>' if $_->[3]==0; + print ' <small>(no details for other)</small>' if $_->[4]; print '<br><small>' . ent($_->[2]) . '</small>' if $all; print '</li>'; } |