|
|
|
@ -89,6 +89,8 @@ foreach my $page (values %{$region_query_results->{query}{pages}}) |
|
|
|
|
next unless $parsed_template; |
|
|
|
|
say STDERR "Processing region: $page->{title}"; |
|
|
|
|
$region->{defaults}{colour} = $parsed_template->{named_params}{colour}; |
|
|
|
|
$region->{defaults}{coords_colour} = $parsed_template->{named_params}{coordinates_colour} |
|
|
|
|
if $parsed_template->{named_params}{coordinates_colour}; |
|
|
|
|
if($regiondir) |
|
|
|
|
{ |
|
|
|
|
$regions_by_subregion{$region->{name}} = $region->{name}; |
|
|
|
@ -120,6 +122,8 @@ foreach my $page (values %{$subregion_query_results->{query}{pages}}) |
|
|
|
|
say STDERR "Processing subregion: $page->{title}"; |
|
|
|
|
my $subregion = $grid->make_region($page->{title}); |
|
|
|
|
$subregion->{defaults}{colour} = $parsed_template->{named_params}{colour}; |
|
|
|
|
$subregion->{defaults}{coords_colour} = $parsed_template->{named_params}{coordinates_colour} |
|
|
|
|
if $parsed_template->{named_params}{coordinates_colour}; |
|
|
|
|
if($regiondir) |
|
|
|
|
{ |
|
|
|
|
my $region_name = $parsed_template->{positional_params}[0]; |
|
|
|
@ -155,6 +159,8 @@ foreach my $page (values %{$location_query_results->{query}{pages}}) |
|
|
|
|
|
|
|
|
|
my $location = $grid->make_region($page->{title}); |
|
|
|
|
$location->{defaults}{colour} = $parsed_template->{named_params}{colour}; |
|
|
|
|
$location->{defaults}{coords_colour} = $parsed_template->{named_params}{coordinates_colour} |
|
|
|
|
if $parsed_template->{named_params}{coordinates_colour}; |
|
|
|
|
push @{$background_pages{"File:$parsed_template->{named_params}{background}"}}, $location; |
|
|
|
|
my $region_name = $parsed_template->{positional_params}[1]; |
|
|
|
|
$regions_by_subregion{$location->{name}} = $region_name; |
|
|
|
|