Ignore:
Timestamp:
Jan 18, 2009, 2:56:55 PM (11 years ago)
Author:
Nick Burch
Message:

Legend support in meta

File:
1 edited

Legend:

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

    r635 r676  
    114114
    115115                                chomp $line;
    116                                 my ($e,$n,$sheet,$year) = split(/,/, $line);
     116                                my ($e,$n,$sheet,$year,$legend) = split(/,/, $line);
    117117
    118118                                # Do they want this one?
     
    121121                                        $m{sheet} = $sheet;
    122122                                        $m{year} = $year;
     123                                        $m{legend} = $legend;
    123124                                        $tiles{$e}->{$n} = \%m;
    124125                                }
     
    156157                                                print "    <year>$m{year}</year>\n";
    157158                                        }
     159                                        if($m{legend}) {
     160                                                print "    <legend>$m{legend}</legend>\n";
     161                                        }
    158162                                        print "  </result>\n";
    159163                                } else {
     
    179183                                print " \"${easting}x${northing}\":{ ";
    180184                                if(keys %m) {
    181                                         print "easting:$easting, northing:$northing, sheet:\"$m{sheet}\", year:\"$m{year}\"";
     185                                        print "easting:$easting, northing:$northing, sheet:\"$m{sheet}\", year:\"$m{year}\", legend:\"$m{legend}\"";
    182186                                }
    183187                                $count++;
     
    193197    } else {
    194198                print header("text/plain");
    195                 print "# Easting,Northing,Sheet,Year\n";
     199                print "# Easting,Northing,Sheet,Year,Legend\n";
    196200
    197201                foreach my $easting (sort keys %tiles) {
     
    200204                                if(keys %{$tiles{$easting}->{$northing}}) {
    201205                                        print $tiles{$easting}->{$northing}->{sheet}.",";
    202                                         print $tiles{$easting}->{$northing}->{year}."\n";
     206                                        print $tiles{$easting}->{$northing}->{year}.",";
     207                                        print $tiles{$easting}->{$northing}->{legend}."\n";
    203208                                } else {
    204209                                        print ",\n";
Note: See TracChangeset for help on using the changeset viewer.