Changeset 563 for trunk


Ignore:
Timestamp:
Jul 24, 2007, 9:13:20 PM (12 years ago)
Author:
Nick Burch
Message:

Handle negative northings

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/npemap.org.uk/cgi/get-meta.fcgi

    r544 r563  
    5454                @requests = split(",", $cgi->param("tiles"));
    5555                foreach my $req (@requests) {
    56                         my ($e,$n) = ($req =~ /^(\d+)x(\d+)$/);
     56                        my ($e,$n) = ($req =~ /^(\d+)x(\-?\d+)$/);
    5757                        unless($e && $n) {
    5858                                print_err ("Invalid tile '$req' requested, must be of the form eastingxnorthing" );
     
    6666                @requests = split(",", $cgi->param("locations"));
    6767                foreach my $req (@requests) {
    68                         my ($e,$n) = ($req =~ /^(\d+)x(\d+)$/);
     68                        my ($e,$n) = ($req =~ /^(\d+)x(\-?\d+)$/);
    6969                        $e = int($e / 1000);
    7070                        $n = int($n / 1000);
Note: See TracChangeset for help on using the changeset viewer.