foreach my $page (keys %pagestate) {
if (exists $pagestate{$page}{trail}) {
if (exists $pagesources{$page} &&
grep { $_ eq $pagesources{$page} } @$needsbuild) {
foreach my $page (keys %pagestate) {
if (exists $pagestate{$page}{trail}) {
if (exists $pagesources{$page} &&
grep { $_ eq $pagesources{$page} } @$needsbuild) {
# Remove state, it will be re-added
# if the preprocessor directive is still
# there during the rebuild. {item} is the
# Remove state, it will be re-added
# if the preprocessor directive is still
# there during the rebuild. {item} is the
my ($old_p, $old_n) = @{$old->{$trail}};
my ($new_p, $new_n) = @{$new->{$trail}};
$old_p = "" unless defined $old_p;
my ($old_p, $old_n) = @{$old->{$trail}};
my ($new_p, $new_n) = @{$new->{$trail}};
$old_p = "" unless defined $old_p;
my ($prevurl, $nexturl, $prevtitle, $nexttitle);
if (defined $prev) {
my ($prevurl, $nexturl, $prevtitle, $nexttitle);
if (defined $prev) {
$prevurl = urlto($prev, $page);
$prevtitle = title_of($prev);
}
if (defined $next) {
$prevurl = urlto($prev, $page);
$prevtitle = title_of($prev);
}
if (defined $next) {
$nexturl = urlto($next, $page);
$nexttitle = title_of($next);
}
$nexturl = urlto($next, $page);
$nexttitle = title_of($next);
}