aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authormatthew <matthew>2007-05-15 15:17:06 +0000
committermatthew <matthew>2007-05-15 15:17:06 +0000
commitd9ab887d7e032b0fb263e542884b1b1e2542c59f (patch)
tree9c11d6734d910d4f0c6c4aafe250c59e88256392
parent6a508c786ecf0f1f155e4a38745e354ebbf90200 (diff)
Nicer summary table.
-rwxr-xr-xweb/contact.cgi16
-rwxr-xr-xweb/report.cgi16
2 files changed, 16 insertions, 16 deletions
diff --git a/web/contact.cgi b/web/contact.cgi
index cffe254cd..2301bab55 100755
--- a/web/contact.cgi
+++ b/web/contact.cgi
@@ -6,7 +6,7 @@
# Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved.
# Email: matthew@mysociety.org. WWW: http://www.mysociety.org
#
-# $Id: contact.cgi,v 1.17 2007-05-15 15:12:22 matthew Exp $
+# $Id: contact.cgi,v 1.18 2007-05-15 15:17:06 matthew Exp $
use strict;
require 5.8.0;
@@ -112,18 +112,18 @@ sub contact_page {
Port => mySociety::Config::get('BCI_DB_PORT', undef)
);
my $p = dbh()->selectrow_hashref(
- 'select title,detail,name,anonymous,extract(epoch from created) as created
- from problem where id=?', {}, $id);
+ 'select title,detail,name,anonymous,extract(epoch from created) as created
+ from problem where id=?', {}, $id);
$out .= $q->p('You are reporting the following problem report for being abusive, containing personal information, or similar:');
$out .= $q->blockquote(
- $q->h2(ent($p->{title})),
- $q->p($q->em(
+ $q->h2(ent($p->{title})),
+ $q->p($q->em(
'Reported ',
($p->{anonymous}) ? 'anonymously' : "by " . ent($p->{name}),
' at ' . Page::prettify_epoch($p->{created}),
- )),
- $q->p(ent($p->{detail}))
- );
+ )),
+ $q->p(ent($p->{detail}))
+ );
$out .= '<input type="hidden" name="id" value="' . $id . '">';
} else {
$out .= <<EOF;
diff --git a/web/report.cgi b/web/report.cgi
index b16793746..f9f0e67f9 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.32 2007-05-15 15:14:49 matthew Exp $
+# $Id: report.cgi,v 1.33 2007-05-15 15:17:06 matthew Exp $
use strict;
require 5.8.0;
@@ -78,14 +78,14 @@ sub main {
if (!$one_council) {
print Page::header($q, 'Summary reports');
print $q->p(_('This is a summary of all reports on this site that have been sent to a council; select a particular council to see the reports sent there.'));
- my $c = 0;
- print '<table cellpadding="4" cellspacing="0" border="0">';
+ my $c = 0;
+ print '<table cellpadding="3" cellspacing="1" border="0">';
print '<tr><th>Name</th><th>New problems</th><th>Older problems</th>
<th>Old problems,<br>state unknown</th><th>Recently fixed</th><th>Old fixed</th></tr>';
foreach (sort { Page::canonicalise_council($areas_info->{$a}->{name}) cmp Page::canonicalise_council($areas_info->{$b}->{name}) } keys %councils) {
- print '<tr';
- print ' class="a"' if ($c++%2);
- print '><td><a href="report?council=' . $_ . '">' .
+ print '<tr align="center"';
+ print ' class="a"' if (++$c%2);
+ print '><td align="right"><a href="report?council=' . $_ . '">' .
Page::canonicalise_council($areas_info->{$_}->{name}) . '</a></td>';
summary_cell(\@{$open{$_}{new}});
summary_cell(\@{$open{$_}{older}});
@@ -99,8 +99,8 @@ sub main {
my $name = Page::canonicalise_council($areas_info->{$one_council}->{name});
print Page::header($q, "$name - Summary reports", rss => [ "Problems within $name, Neighbourhood Fix-It", "/rss/council/$one_council" ]);
print $q->p(
- $q->a({href => "/rss/council/$one_council"}, '<img align="right" src="/i/feed.png" width="16" height="16" title="RSS feed" alt="RSS feed of problems in this council" border="0" hspace="4">'),
- 'This is a summary of all reports for one council. You can ' .
+ $q->a({href => "/rss/council/$one_council"}, '<img align="right" src="/i/feed.png" width="16" height="16" title="RSS feed" alt="RSS feed of problems in this council" border="0" hspace="4">'),
+ 'This is a summary of all reports for one council. You can ' .
$q->a({href => NewURL($q, all=>1) }, 'see more details') .
' or go back and ' .
$q->a({href => NewURL($q, all=>undef, council=>undef) }, 'show all councils') .