diff options
| author | francis <francis> | 2008-04-11 11:35:56 +0000 |
|---|---|---|
| committer | francis <francis> | 2008-04-11 11:35:56 +0000 |
| commit | 3d2327d3c8f9c4436694b901045c9aafc099a156 (patch) | |
| tree | afd6713dca7eb2bf312d6ba9103f91a825482a2d /web-admin | |
| parent | 56c0a71acc408b951d854c5477e07d05901d1bd5 (diff) | |
Link to graph
Diffstat (limited to 'web-admin')
| -rwxr-xr-x | web-admin/index.cgi | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/web-admin/index.cgi b/web-admin/index.cgi index 11c37d239..289139665 100755 --- a/web-admin/index.cgi +++ b/web-admin/index.cgi @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#thing!/usr/bin/perl -w # # index.cgi # @@ -7,10 +7,10 @@ # Copyright (c) 2007 UK Citizens Online Democracy. All rights reserved. # Email: francis@mysociety.org; WWW: http://www.mysociety.org/ # -# $Id: index.cgi,v 1.46 2007-09-03 20:56:31 matthew Exp $ +# $Id: index.cgi,v 1.47 2008-04-11 11:35:56 francis Exp $ # -my $rcsid = ''; $rcsid .= '$Id: index.cgi,v 1.46 2007-09-03 20:56:31 matthew Exp $'; +my $rcsid = ''; $rcsid .= '$Id: index.cgi,v 1.47 2008-04-11 11:35:56 francis Exp $'; use strict; @@ -115,6 +115,9 @@ sub do_summary ($) { ['select count(*) from alert', 'alerts'] ))); + print $q->p( $q->a({href => "http://www.fixmystreet.com/bci-live-creation.png" }, + "Graph of problem creation by status over time" )); + print $q->h3("Council contacts status"); my $statuses = dbh()->selectall_arrayref("select count(*) as c, confirmed from contacts group by confirmed order by c desc"); print $q->p(join($q->br(), |