rename function for clarity, formatting improvements
parent
529a06b7cc
commit
d622da057b
|
@ -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,
|
||||||
|
|
Loading…
Reference in New Issue