diff options
| -rwxr-xr-x | web/contact.cgi | 16 | ||||
| -rwxr-xr-x | web/report.cgi | 16 |
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') . |