Changeset 353

Timestamp:

Nov 6, 2006, 6:21:49 PM (14 years ago)

Author:

Dominic Hargreaves

Message:

Date stats as graph

Location:

trunk/npemap.org.uk

Files:

• perllib/NPEMap/Postcodes.pm (modified) (3 diffs)
• scripts/content/date_stats.pl (added)

trunk/npemap.org.uk/perllib/NPEMap/Postcodes.pm

@@ -10 +10 @@
 use NPEMap::Config;
 use Date::Format;
+use Chart::Strip;
 
 require Exporter;
 @ISA    = qw(Exporter);
-@EXPORT = qw(build_home_stats missing_district_stats);
+@EXPORT = qw(build_home_stats missing_district_stats build_submission_graph);
 
 sub _getAllStats {
@@ -35 +36 @@
     my $dbh = shift;
     my $sql = <<"HERE";
-SELECT TO_CHAR(DATE_TRUNC('day', created_at), 'YYYY-MM-DD') AS day,
+SELECT extract(epoch FROM date_trunc('day', created_at)) AS time,
        COUNT(*) AS all,
-       SUM(CASE WHEN source=0 THEN 1 ELSE 0 END) AS us
+       SUM(CASE WHEN source=0 THEN 1 ELSE 0 END) AS value
 FROM postcodes WHERE deleted ='f'
 GROUP BY  date_trunc('day', created_at)
@@ -128 +129 @@
 }
 
+sub build_submission_graph {
+    my $dbh = shift;
+    my $chart = Chart::Strip->new(
+        title => 'Postcodes collected over time',
+    );
+
+    $chart->add_data(_getDateStats($dbh), {});
+    open PNG, ">$staticdir/stats/submission_graph.png" or die $!;
+    print PNG $chart->png();
+    close PNG;
+    return 1;
+}
+
 1;