Changeset 333
- Timestamp:
- Nov 5, 2006, 4:13:03 PM (14 years ago)
- Location:
- trunk/npemap.org.uk
- Files:
-
- 2 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/npemap.org.uk/perllib/NPEMap/Postcodes.pm
r247 r333 9 9 use Template; 10 10 use NPEMap::Config; 11 use Date::Format; 11 12 12 13 require Exporter; 13 14 @ISA = qw(Exporter); 14 @EXPORT = qw(build_home_stats );15 @EXPORT = qw(build_home_stats missing_district_stats); 15 16 16 17 sub _getAllStats { … … 88 89 } 89 90 91 sub missing_district_stats { 92 my $dbh = shift; 93 my $template = Template->new($tt_config); 94 95 my $sql = <<EOF; 96 SELECT d.outward, d.district, d.county FROM districts AS d LEFT OUTER JOIN postcodes AS p ON (d.outward = p.outward) 97 WHERE p.id IS NULL 98 ORDER BY d.outward 99 EOF 100 101 my $sth = $dbh->prepare($sql); 102 $sth->execute or die $dbh->errstr; 103 my $districts = $sth->fetchall_arrayref({}); 104 105 my $vars = { 106 districts => $districts, 107 updated => ctime(time) 108 }; 109 110 $template->process('missing_district_stats.tt', $vars, $staticdir . '/stats/missing_district_stats.html') 111 or warn $template->error(); 112 } 113 90 114 1;
Note: See TracChangeset
for help on using the changeset viewer.