-sub renamepage(@) { #{{{
- my %params=@_;
- my $oldpage=$params{oldpage};
- my $newpage=$params{newpage};
-
- setrenamed($oldpage, $newpage) if istranslatable($oldpage);
+sub renamepages() { #{{{
+ my $torename=shift;
+ my @torename=@{$torename};
+
+ foreach my $rename (@torename) {
+ next unless istranslatable($rename->{src});
+ setrenamed($rename->{src}, $rename->{dest});
+ my %otherpages=%{otherlanguages($rename->{src})};
+ debug "bla".$rename->{src};
+ while (my ($lang, $otherpage) = each %otherpages) {
+ push @{$torename}, {
+ src => $otherpage,
+ srcfile => $pagesources{$otherpage},
+ dest => otherlanguage($rename->{dest}, $lang),
+ destfile => $rename->{dest}.".".$lang.".po",
+ required => 0,
+ };
+ debug "po(renamepages): pushed src=$otherpage, dest=".otherlanguage($rename->{dest}, $lang);
+ }
+ }