diff options
| -rwxr-xr-x | web/about.cgi | 37 | ||||
| -rwxr-xr-x | web/reports.cgi | 7 |
2 files changed, 4 insertions, 40 deletions
diff --git a/web/about.cgi b/web/about.cgi deleted file mode 100755 index 82e6a234e..000000000 --- a/web/about.cgi +++ /dev/null @@ -1,37 +0,0 @@ -#!/usr/bin/perl -w - -# about.cgi: -# About page for FixMyStreet -# -# Copyright (c) 2006 UK Citizens Online Democracy. All rights reserved. -# Email: matthew@mysociety.org. WWW: http://www.mysociety.org -# -# $Id: about.cgi,v 1.4 2007-06-15 14:57:52 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; - -# Main code for index.cgi -sub main { - my $q = shift; - print Page::header($q, title=>'About'); - print about_page(); - print Page::footer(); -} -Page::do_fastcgi(\&main); - -sub about_page { - my $out = <<EOF; -<h1>About this site</h1> -<p>About stuff here</p> -</div> -EOF - return $out; -} - diff --git a/web/reports.cgi b/web/reports.cgi index 180f361c2..ba29d05af 100755 --- a/web/reports.cgi +++ b/web/reports.cgi @@ -7,7 +7,7 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: matthew@mysociety.org. WWW: http://www.mysociety.org # -# $Id: reports.cgi,v 1.5 2007-08-24 23:37:15 matthew Exp $ +# $Id: reports.cgi,v 1.6 2007-08-24 23:43:52 matthew Exp $ use strict; require 5.8.0; @@ -105,7 +105,8 @@ sub main { %councils = ( $one_council => 1 ); } else { # Show all councils on main report page - %councils = map { $_ => 1 } @{mySociety::MaPit::get_areas_by_type($mySociety::VotingArea::council_parent_types)}; + my @types = grep { !/LGD/ } @$mySociety::VotingArea::council_parent_types; + %councils = map { $_ => 1 } @{mySociety::MaPit::get_areas_by_type(\@types)}; } my @params; @@ -235,7 +236,7 @@ sub summary_cell { sub list_problems { my ($title, $problems, $all) = @_; - return unless $problems; + return unless @$problems; print "<h3>$title</h3>\n<ul>"; foreach (@$problems) { print '<li><a href="/?id=' . $_->[0] . '">'; |