urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refactor

master
Joey Hess 2009-01-06 17:28:26 -05:00
parent fe1671fd57
commit e4b7f6badf
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
IkiWiki/Plugin/rename.pm
View File

@ -390,22 +390,8 @@ sub sessioncgi ($$) {
$template->param(error => $rename->{error});
if ($rename->{src} ne $rename->{dest}) {
$template->param(brokenlinks_checked => 1);
$template->param(brokenlinks => [
map {
{
page => htmllink($rename->{dest}, $rename->{dest}, $_,
noimageinline => 1)
}
} @{$rename->{brokenlinks}}
]);
$template->param(fixedlinks => [
map {
{
page => htmllink($rename->{dest}, $rename->{dest}, $_,
noimageinline => 1)
}
} @{$rename->{fixedlinks}}
]);
$template->param(brokenlinks => linklist($rename->{dest}, $rename->{brokenlinks}));
$template->param(fixedlinks => linklist($rename->{dest}, $rename->{fixedlinks}));
}
$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 ($$$$) {
my ($page, $src, $dest, $content)=@_;