|
|
@ -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}) |
|
|
|