Drupal 7 fixes for the Canada zipcodes DB

http://drupal.org/node/255995

A few changes for Drupal 7 to accommodate the database provided in the above link. The changes support lat / lon for users and proximity search.

location.ca.inc

<?php 
function location_latlon_rough_ca($location = array()) {
  if (!isset($location['postal_code'])) {
    return NULL;
  }

	$postal_code = $location['postal_code'];
  while (strlen($postal_code) >= 3) {
    $row = db_query("SELECT latitude, longitude FROM {zipcodes} WHERE country = :country AND zip LIKE :zip", array(':country' => $location['country'], ':zip' => db_like($postal_code) . '%'))->fetchObject();

    if ($row) {
      return array('lat' => $row->latitude, 'lon' => $row->longitude);
    }
    $postal_code = trim(substr($postal_code, 0, -1));
  }
  return NULL;
}

function location_get_postalcode_data_ca($location = array()) {
	$postal_code = $location['postal_code'];
  // Now we pad the thing and query.
  while (strlen($postal_code) >= 3) {
    $row = db_query("SELECT * FROM {zipcodes} where country = :country AND zip LIKE :zip", array(':country' => $location['country'], ':zip' => db_like($postal_code) . '%'))->fetchObject();
    
    if ($row) {
      return array('lat' => $row->latitude, 'lon' => $row->longitude, 'city' => $row->city, 'province' => $row->state, 'country' => $row->country);
    }
    $postal_code = trim(substr($postal_code, 0, -1));
  }
  return NULL;
}
?>