1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
#!/usr/bin/perl -w
# report.cgi:
# Display summary reports for Neighbourhood Fix-It
#
# Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
#
# $Id: report.cgi,v 1.6 2007-05-01 16:24:40 matthew Exp $
use strict;
require 5.8.0;
# Horrible boilerplate to set up appropriate library paths.
use FindBin;
use lib "$FindBin::Bin/../perllib";
use lib "$FindBin::Bin/../../perllib";
use Page;
use mySociety::Config;
use mySociety::DBHandle qw(dbh select_all);
use mySociety::MaPit;
use mySociety::Web qw(ent NewURL);
BEGIN {
mySociety::Config::set_file("$FindBin::Bin/../conf/general");
mySociety::DBHandle::configure(
Name => mySociety::Config::get('BCI_DB_NAME'),
User => mySociety::Config::get('BCI_DB_USER'),
Password => mySociety::Config::get('BCI_DB_PASS'),
Host => mySociety::Config::get('BCI_DB_HOST', undef),
Port => mySociety::Config::get('BCI_DB_PORT', undef)
);
}
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
$where_extra
order by id
", @params);
foreach my $row (@$problem) {
my $council = $row->{council};
$council =~ s/\|.*//;
my @council = split /,/, $council;
foreach (@council) {
push @{$out{$_}{$row->{state}}}, [ $row->{id}, $row->{title}, $row->{detail} ];
}
}
my $areas_info = mySociety::MaPit::get_voting_areas_info([keys %out]);
print Page::header($q, 'Summary reports');
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};
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();
}
Page::do_fastcgi(\&main);
sub list_problems {
my ($title, $problems, $all) = @_;
print "<h3>$title</h3>\n<ul>";
foreach (@$problems) {
print '<li><a href="/?id=' . $_->[0] . '">';
print ent($_->[1]);
print '</a>';
print '<br><small>' . ent($_->[2]) . '</small>' if $all;
print '</li>';
}
print '</ul>';
}
|
