add checkbox to rename subpages too

[ikiwiki.git] / IkiWiki / Plugin / rename.pm

diff --git a/IkiWiki/Plugin/rename.pm b/IkiWiki/Plugin/rename.pm
index f90a3b7b7ffd626a98732086794a4bc4a308d642..e5dfa4b016a4e9ad5d5b8fbf2e3e0ddad5cf02d3 100644 (file)
--- a/IkiWiki/Plugin/rename.pm
+++ b/IkiWiki/Plugin/rename.pm
@@ -123,6 +123,13 @@ sub rename_form ($$$) { #{{{
                $f->field(name => "type", type => 'select',
                        options => \@page_types,
                        value => $ext, force => 1);
+               
+               $f->field(name => "subpages",
+                       label => "",
+                       type => "checkbox",
+                       options => [ [ 1 => gettext("Also rename SubPages and attachments") ] ],
+                       value => 1,
+                       force => 1);
        }
        $f->field(name => "attachment", type => "hidden");
 
@@ -254,7 +261,8 @@ sub sessioncgi ($$) { #{{{
                                my $type=$q->param('type');
                                if (defined $type && length $type && $IkiWiki::hooks{htmlize}{$type}) {
                                        $type=IkiWiki::possibly_foolish_untaint($type);
-                               } else {
+                               }
+                               else {
                                        my ($ext)=$srcfile=~/\.([^.]+)$/;
                                        $type=$ext;
                                }
@@ -274,7 +282,7 @@ sub sessioncgi ($$) { #{{{
                        if ($config{rcs}) {
                                IkiWiki::rcs_rename($srcfile, $destfile);
                                IkiWiki::rcs_commit_staged(
-                                       sprintf(gettext("rename %s to %s"), $src, $dest),
+                                       sprintf(gettext("rename %s to %s"), $srcfile, $destfile),
                                        $session->param("name"), $ENV{REMOTE_ADDR});
                        }
                        else {
@@ -303,7 +311,7 @@ sub sessioncgi ($$) { #{{{
                                                        next if $@;
                                                        my $conflict=IkiWiki::rcs_commit(
                                                                $file,
-                                                               sprintf(gettext("update for rename of %s to %s"), $src, $dest),
+                                                               sprintf(gettext("update for rename of %s to %s"), $srcfile, $destfile),
                                                                $token,
                                                                $session->param("name"), 
                                                                $ENV{REMOTE_ADDR}