master
Joey Hess 2009-01-06 17:28:26 -05:00
parent fe1671fd57
commit e4b7f6badf
1 changed files with 18 additions and 16 deletions

View File

@ -390,22 +390,8 @@ sub sessioncgi ($$) {
$template->param(error => $rename->{error}); $template->param(error => $rename->{error});
if ($rename->{src} ne $rename->{dest}) { if ($rename->{src} ne $rename->{dest}) {
$template->param(brokenlinks_checked => 1); $template->param(brokenlinks_checked => 1);
$template->param(brokenlinks => [ $template->param(brokenlinks => linklist($rename->{dest}, $rename->{brokenlinks}));
map { $template->param(fixedlinks => linklist($rename->{dest}, $rename->{fixedlinks}));
{
page => htmllink($rename->{dest}, $rename->{dest}, $_,
noimageinline => 1)
}
} @{$rename->{brokenlinks}}
]);
$template->param(fixedlinks => [
map {
{
page => htmllink($rename->{dest}, $rename->{dest}, $_,
noimageinline => 1)
}
} @{$rename->{fixedlinks}}
]);
} }
$renamesummary.=$template->output; $renamesummary.=$template->output;
} }
@ -420,6 +406,22 @@ sub sessioncgi ($$) {
} }
} }
sub linklist {
# generates a list of links in a form suitable for FormBuilder
my $dest=shift;
my $list=shift;
# converts a list of pages into a list of links
# in a form suitable for FormBuilder.
[map {
{
page => htmllink($dest, $dest, $_,
noimageinline => 1,
)
}
} @{$list}]
}
sub renamepage_hook ($$$$) { sub renamepage_hook ($$$$) {
my ($page, $src, $dest, $content)=@_; my ($page, $src, $dest, $content)=@_;