foreach my $rename (@torename) {
next unless istranslatable($rename->{src});
my %otherpages=%{otherlanguages($rename->{src})};
- debug "bla".$rename->{src};
while (my ($lang, $otherpage) = each %otherpages) {
push @{$torename}, {
src => $otherpage,
destfile => $rename->{dest}.".".$lang.".po",
required => 0,
};
- debug "po(renamepages): pushed src=$otherpage, dest=".otherlanguage($rename->{dest}, $lang);
}
}
} #}}}