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