Changeset 197
- Timestamp:
- Oct 26, 2006, 10:43:45 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/npemap.org.uk/cgi/get-distant-postcodes.fcgi
r196 r197 60 60 } 61 61 62 # Tidy up from another run 62 # Tidy up from another run, if required 63 63 my $checksql = "SELECT tablename FROM pg_tables WHERE tablename = 'averages'"; 64 my $check = $dbh->prepare($checksql); 65 $check->execute; 66 if($check->fetchrow_array) { 67 $dbh->do("DROP TABLE averages"); 64 my @has_table = $dbh->selectrow_array($checksql); 65 if(@has_table) { 66 $dbh->do("DROP TABLE averages;"); 68 67 } 69 68 70 69 # Get our sql 71 70 # First calculate the average 72 my $prepsql = "CREATE TABLE averages (pcpart VARCHAR(10),avg_easting INTEGER, avg_northing INTEGER);"; 73 $prepsql .= "SELECT $pcpart AS pcpart, AVG(easting) AS avg_easting, AVG(northing) AS avg_northing INTO averages FROM postcodes GROUP BY $pcgroup "; 71 my $prepsql .= "SELECT $pcpart AS pcpart, AVG(easting) AS avg_easting, AVG(northing) AS avg_northing INTO TEMP TABLE averages FROM postcodes GROUP BY $pcgroup "; 74 72 75 73 # Then join to find problem ones … … 85 83 # Do the query 86 84 my $sth = $dbh->prepare($sql); 87 print $sql."\n";88 89 85 if ($sth->execute()) { 90 86 print "Content-type: text/javascript\n\n"; … … 103 99 104 100 # Tidy up 105 $check->execute;106 if( $check->fetchrow_array) {101 @has_table = $dbh->selectrow_array($checksql); 102 if(@has_table) { 107 103 $dbh->do("DROP TABLE averages"); 108 104 }
Note: See TracChangeset
for help on using the changeset viewer.