Changeset 670 for trunk/npemap.org.uk

Timestamp:

Sep 23, 2008, 10:53:09 AM (12 years ago)

Author:

Nick Burch

Message:

Support osie too

File:

• trunk/npemap.org.uk/perllib/NPEMap/Postcodes.pm (modified) (2 diffs)

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

@@ -145 +145 @@
         my $postcode_text = $postcode->{outward} . ' ' .
                             $postcode->{inward} || '';
-        my ($lat,$long) = eastingNorthingToLatLong(
-              $postcode->{easting},$postcode->{northing},$postcode->{grid});
+
+                my $grid = "osgb";
+                my ($easting,$northing) = ($postcode->{easting},$postcode->{northing});
+                unless($easting && $northing) {
+                        $grid = "osie";
+                        ($easting,$northing) = ($postcode->{ie_easting},$postcode->{ie_northing});
+                }
+        my ($lat,$long) = eastingNorthingToLatLong($easting,$northing,$grid);
 
         $rss->add_item(
@@ -160 +166 @@
             },
             os => {
-                x => sprintf("%d", $postcode->{easting}),
-                y => $long = sprintf("%d", $postcode->{northing}),
+                x => sprintf("%d", $easting),
+                y => $long = sprintf("%d", $northing),
             },
         );