refactor
parent
fe1671fd57
commit
e4b7f6badf
|
@ -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;
|
||||||
}
|
}
|
||||||
|
@ -419,6 +405,22 @@ sub sessioncgi ($$) {
|
||||||
exit 0;
|
exit 0;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
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)=@_;
|
||||||
|
|
Loading…
Reference in New Issue