Changeset 391
- Timestamp:
- Nov 22, 2006, 9:42:19 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/npemap.org.uk/scripts/exporter/updatePostcodeine.pl
r278 r391 44 44 # Process the query 45 45 $query->execute; 46 while(my ($outer,$ inner,$e,$n) = $query->fetchrow_array) {46 while(my ($outer,$e,$n) = $query->fetchrow_array) { 47 47 $e =~ s/^(\d+)\.\d+$/$1/; 48 48 $n =~ s/^(\d+)\.\d+$/$1/; 49 my $pcode = "$outer$inner";49 my $pcode = $outer; 50 50 if (length($pcode) > 2) { 51 51 print OUT "\"$pcode\",$e,$n\n"; … … 65 65 66 66 # Get a query returning 67 # outer ,inner, easting, northing67 # outer . inner, easting, northing 68 68 sub getQuery { 69 69 my ($conn) = @_; 70 70 71 71 my $sql = 72 "SELECT outward ,inward, AVG(easting) AS avg_easting, AVG(northing) AS avg_northing ".72 "SELECT outward || inward, AVG(easting) AS avg_easting, AVG(northing) AS avg_northing ". 73 73 "FROM postcodes ". 74 74 "WHERE NOT deleted ". 75 "GROUP BY outward ,inward ".75 "GROUP BY outward || inward ". 76 76 "ORDER BY outward || inward "; 77 77
Note: See TracChangeset
for help on using the changeset viewer.