Option to show reports for just one council.

1 files changed, 24 insertions, 8 deletions

diff --git a/web/report.cgi b/web/report.cgi
index cc6f4478a..ea9395eef 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.4 2007-04-19 12:44:44 matthew Exp $
+# $Id: report.cgi,v 1.5 2007-04-23 18:15:40 francis Exp $
 
 use strict;
 require 5.8.0;
@@ -20,7 +20,7 @@ use Page;
 use mySociety::Config;
 use mySociety::DBHandle qw(dbh select_all);
 use mySociety::MaPit;
-use mySociety::Web qw(ent);
+use mySociety::Web qw(ent NewURL);
 
 BEGIN {
     mySociety::Config::set_file("$FindBin::Bin/../conf/general");
@@ -36,12 +36,20 @@ BEGIN {
 sub main {
     my $q = shift;
     my $all = $q->param('all') || 0;
+    my $one_council = $q->param('council');
+    my @params;
+    my $where_extra;
+    if ($one_council) {
+        push @params, $one_council;
+        $where_extra = "and council = ?";
+    }
     my %out;
     my $problem = select_all(
         "select id, title, detail, council, state from problem
         where state in ('confirmed', 'fixed') and whensent is not null
-	order by id
-    ");
+        $where_extra
+        order by id
+    ", @params);
     foreach my $row (@$problem) {
         my $council = $row->{council};
         $council =~ s/\|.*//;
@@ -52,11 +60,19 @@ sub main {
     }
     my $areas_info = mySociety::MaPit::get_voting_areas_info([keys %out]);
     print Page::header($q, 'Summary reports');
-    print $q->p('This page currently simply shows a summary of all reports on this site.
-In the future, we hope to increase the functionality of this section.');
+    if (!$one_council) {
+        print $q->p('This is a summary of all reports on this site, select \'show only\' to see the reports for just one council..');
+    } else {
+        print $q->p('This is a summary of all reports for one council.',
+            $q->a({href => NewURL($q, 'council'=>undef) }, 'Show all councils.'));
+    }
     foreach (sort { $areas_info->{$a}->{name} cmp $areas_info->{$b}->{name} } keys %out) {
-        print '<h2>' . $areas_info->{$_}->{name} . "</h2>\n";
-	list_problems('Problems', $out{$_}{confirmed}, $all) if $out{$_}{confirmed};
+        print '<h2>' . $areas_info->{$_}->{name};
+        if (!$one_council) {
+            print ' ' . $q->small('('.$q->a({href => NewURL($q, 'council'=>$_) }, 'show only').')');
+        }
+        print "</h2>\n";
+        list_problems('Problems', $out{$_}{confirmed}, $all) if $out{$_}{confirmed};
         list_problems('Fixed', $out{$_}{fixed}, $all) if $out{$_}{fixed};
     }
     print Page::footer();