Changeset 353
- Timestamp:
- Nov 6, 2006, 6:21:49 PM (14 years ago)
- Location:
- trunk/npemap.org.uk
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/npemap.org.uk/perllib/NPEMap/Postcodes.pm
r348 r353 10 10 use NPEMap::Config; 11 11 use Date::Format; 12 use Chart::Strip; 12 13 13 14 require Exporter; 14 15 @ISA = qw(Exporter); 15 @EXPORT = qw(build_home_stats missing_district_stats );16 @EXPORT = qw(build_home_stats missing_district_stats build_submission_graph); 16 17 17 18 sub _getAllStats { … … 35 36 my $dbh = shift; 36 37 my $sql = <<"HERE"; 37 SELECT TO_CHAR(DATE_TRUNC('day', created_at), 'YYYY-MM-DD') AS day,38 SELECT extract(epoch FROM date_trunc('day', created_at)) AS time, 38 39 COUNT(*) AS all, 39 SUM(CASE WHEN source=0 THEN 1 ELSE 0 END) AS us40 SUM(CASE WHEN source=0 THEN 1 ELSE 0 END) AS value 40 41 FROM postcodes WHERE deleted ='f' 41 42 GROUP BY date_trunc('day', created_at) … … 128 129 } 129 130 131 sub build_submission_graph { 132 my $dbh = shift; 133 my $chart = Chart::Strip->new( 134 title => 'Postcodes collected over time', 135 ); 136 137 $chart->add_data(_getDateStats($dbh), {}); 138 open PNG, ">$staticdir/stats/submission_graph.png" or die $!; 139 print PNG $chart->png(); 140 close PNG; 141 return 1; 142 } 143 130 144 1;
Note: See TracChangeset
for help on using the changeset viewer.