Minor enhancement to location processing

main
Daniel Asher Resnick 10 months ago
parent 4687677e0c
commit 54e4708484
  1. 10
      wiki-map.pl

@ -168,12 +168,16 @@ foreach my $page (values %{$location_query_results->{query}{pages}})
my $region_name = $parsed_template->{positional_params}[1]; my $region_name = $parsed_template->{positional_params}[1];
$regions_by_subregion{$location->{name}} = $region_name; $regions_by_subregion{$location->{name}} = $region_name;
push @location_continuations, sub next unless $parsed_template->{positional_params}[0] =~ $coords_regex;
{
return unless $parsed_template->{positional_params}[0] =~ $coords_regex;
my ($nw, $sw) = ($1, $2); my ($nw, $sw) = ($1, $2);
$location->make_tile_at($nw, $sw); $location->make_tile_at($nw, $sw);
if($regiondir) if($regiondir)
{
# Locations can have their own images rendered, given a list of context tiles
# To reference these tiles, they must exist in the parent grid,
# so the remainder of the processing must happen after the region tile pages are processed
push @location_continuations, sub
{ {
my @coords_list = ({ nw => $nw, sw => $sw}); my @coords_list = ({ nw => $nw, sw => $sw});
foreach my $coords (split /;/, $parsed_template->{named_params}{context_tiles}) foreach my $coords (split /;/, $parsed_template->{named_params}{context_tiles})

Loading…
Cancel
Save