Changeset 333

Timestamp:

Nov 5, 2006, 4:13:03 PM (15 years ago)

Author:

Dominic Hargreaves

Message:

Add missing district stats

Location:

trunk/npemap.org.uk

Files:

• perllib/NPEMap/Postcodes.pm (modified) (2 diffs)
• scripts/content/update_big_stats.pl (added)
• templates/missing_district_stats.tt (added)

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

@@ -9 +9 @@
 use Template;
 use NPEMap::Config;
+use Date::Format;
 
 require Exporter;
 @ISA    = qw(Exporter);
-@EXPORT = qw(build_home_stats);
+@EXPORT = qw(build_home_stats missing_district_stats);
 
 sub _getAllStats {
@@ -88 +89 @@
 }
 
+sub missing_district_stats {
+    my $dbh = shift;
+    my $template = Template->new($tt_config);
+
+    my $sql = <<EOF;
+SELECT   d.outward, d.district, d.county FROM districts AS d LEFT OUTER JOIN postcodes AS p ON (d.outward = p.outward)
+WHERE    p.id IS NULL
+ORDER BY d.outward
+EOF
+
+    my $sth = $dbh->prepare($sql); 
+    $sth->execute or die $dbh->errstr;
+    my $districts = $sth->fetchall_arrayref({});
+
+    my $vars = {
+        districts => $districts,
+        updated => ctime(time)
+    };
+
+    $template->process('missing_district_stats.tt', $vars, $staticdir . '/stats/missing_district_stats.html')
+        or warn $template->error();
+}
+
 1;