rename function for clarity, formatting improvements

master
Joey Hess 2009-03-27 15:27:38 -04:00
parent 529a06b7cc
commit d622da057b
1 changed files with 3 additions and 2 deletions

View File

@ -10,7 +10,7 @@ sub import {
hook(type => "formbuilder_setup", id => "rename", call => \&formbuilder_setup); hook(type => "formbuilder_setup", id => "rename", call => \&formbuilder_setup);
hook(type => "formbuilder", id => "rename", call => \&formbuilder); hook(type => "formbuilder", id => "rename", call => \&formbuilder);
hook(type => "sessioncgi", id => "rename", call => \&sessioncgi); hook(type => "sessioncgi", id => "rename", call => \&sessioncgi);
hook(type => "rename", id => "rename", call => \&rename); hook(type => "rename", id => "rename", call => \&rename_subpages);
} }
sub getsetup () { sub getsetup () {
@ -414,7 +414,7 @@ sub sessioncgi ($$) {
} }
# Add subpages to the list of pages to be renamed, if needed. # Add subpages to the list of pages to be renamed, if needed.
sub rename(@) { sub rename_subpages (@) {
my %params = @_; my %params = @_;
my %torename = %{$params{torename}}; my %torename = %{$params{torename}};
@ -501,6 +501,7 @@ sub rename_hook (@) {
$done{$torename->{src}}=1; $done{$torename->{src}}=1;
} }
} }
push @torename, rename_hook( push @torename, rename_hook(
torename => \@nextset, torename => \@nextset,
done => \%done, done => \%done,