Changeset 676

Timestamp:

Jan 18, 2009, 2:56:55 PM (12 years ago)

Author:

Nick Burch

Message:

Legend support in meta

File:

• trunk/npemap.org.uk/cgi/get-meta.fcgi (modified) (6 diffs)

trunk/npemap.org.uk/cgi/get-meta.fcgi

@@ -114 +114 @@
 
                                 chomp $line;
-                                my ($e,$n,$sheet,$year) = split(/,/, $line);
+                                my ($e,$n,$sheet,$year,$legend) = split(/,/, $line);
 
                                 # Do they want this one?
@@ -121 +121 @@
                                         $m{sheet} = $sheet;
                                         $m{year} = $year;
+                                        $m{legend} = $legend;
                                         $tiles{$e}->{$n} = \%m;
                                 }
@@ -156 +157 @@
                                                 print "    <year>$m{year}</year>\n";
                                         }
+                                        if($m{legend}) {
+                                                print "    <legend>$m{legend}</legend>\n";
+                                        }
                                         print "  </result>\n";
                                 } else {
@@ -179 +183 @@
                                 print " \"${easting}x${northing}\":{ ";
                                 if(keys %m) {
-                                        print "easting:$easting, northing:$northing, sheet:\"$m{sheet}\", year:\"$m{year}\"";
+                                        print "easting:$easting, northing:$northing, sheet:\"$m{sheet}\", year:\"$m{year}\", legend:\"$m{legend}\"";
                                 }
                                 $count++;
@@ -193 +197 @@
     } else {
                 print header("text/plain");
-                print "# Easting,Northing,Sheet,Year\n";
+                print "# Easting,Northing,Sheet,Year,Legend\n";
 
                 foreach my $easting (sort keys %tiles) {
@@ -200 +204 @@
                                 if(keys %{$tiles{$easting}->{$northing}}) {
                                         print $tiles{$easting}->{$northing}->{sheet}.",";
-                                        print $tiles{$easting}->{$northing}->{year}."\n";
+                                        print $tiles{$easting}->{$northing}->{year}.",";
+                                        print $tiles{$easting}->{$northing}->{legend}."\n";
                                 } else {
                                         print ",\n";