[L]Verbose[/L]
|
[tmp pages][/tmp]
[calc]
if ($Config->{StaticAll}) {
# startpage makes sense only if "StaticAll" is set
$Values->{ui_initial_page} = $Config->{StaticIndex} || $Config->{SpecialPage}{catalog};
%forced_pages = ();
} else {
$Values->{ui_initial_page};
# setup hash with selected pages
%forced_pages = %{$Config->{StaticPage}};
if ($Config->{StaticFly}) {
$forced_pages{$Config->{Special}->{flypage}} = 1;
}
}
# Find the list of pages not defined "NoCache"
@pages = split /\s+/, $Tag->list_pages();
my $check = $Config->{NoCache};
for(@pages) {
my $test = $_;
do {
$_ = '' if defined $check->{$test};
} while ($test =~ s:(.*)/.*:$1:);
}
$Scratch->{pages} = join "\n", grep $_, @pages;
# Generated selection of forced pages
my ($opts, $selected);
for (@pages) {
if (defined $forced_pages{$_}) {
$selected = ' selected';
} else {
$selected = '';
}
$opts .= " |