# delete old and excess changes
foreach my $page (keys %pagesources) {
- if ($page=~/^\Q$config{recentchangespage}\E\/change_/ && ! $seen{$page}) {
+ if ($pagesources{$page} =~ /\._change$/ && ! $seen{$page}) {
unlink($config{srcdir}.'/'.$pagesources{$page});
}
}
my %params=@_;
my $template=$params{template};
my $page=$params{page};
- if ($config{rcs} && $page ne $config{recentchangespage} &&
+
+ if (defined $config{recentchangespage} && $config{rcs} &&
+ $page ne $config{recentchangespage} &&
$template->query(name => "recentchangesurl")) {
$template->param(recentchangesurl => urlto($config{recentchangespage}, $page));
$template->param(have_actions => 1);
"</p>");
}
else {
- IkiWiki::redirect($cgi, $config{url}."/".htmlpage($link));
+ IkiWiki::redirect($cgi, $config{url}.IkiWiki::beautify_urlpath("/".htmlpage($link)));
}
exit;
);
}
- # escape wikilinks and preprocessor stuff in commit messages
+ # escape wikilinks and preprocessor stuff in commit messages
if (ref $change->{message}) {
foreach my $field (@{$change->{message}}) {
if (exists $field->{line}) {
wikiname => $config{wikiname},
);
IkiWiki::run_hooks(pagetemplate => sub {
- shift->(page => $page, destpage => $page, template => $template);
+ shift->(page => $page, destpage => $page,
+ template => $template, rev => $change->{rev});
});
my $file=$page."._change";
return $page;
} #}}}
-sub updatechanges ($$) { #{{{
- my $subdir=shift;
- my @changes=@{shift()};
-
-} #}}}
-
1