summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--IkiWiki/Plugin/po.pm46
1 files changed, 1 insertions, 45 deletions
diff --git a/IkiWiki/Plugin/po.pm b/IkiWiki/Plugin/po.pm
index 15b07e84b..d8a7de8eb 100644
--- a/IkiWiki/Plugin/po.pm
+++ b/IkiWiki/Plugin/po.pm
@@ -337,7 +337,6 @@ sub renamepages() { #{{{
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) {
@@ -358,18 +357,12 @@ sub mydelete(@) { #{{{
map {
deletetranslations($_);
- } grep { istranslatablefile($_) && ! renamed(pagename($_))} @deleted;
+ } grep { istranslatablefile($_) } @deleted;
} #}}}
sub change(@) { #{{{
my @rendered=@_;
- my $eachrenamed=eachrenamed();
- while (my ($oldpage, $newpage) = $eachrenamed->()) {
- renametranslations($oldpage, $newpage);
- }
- resetrenamed();
-
my $updated_po_files=0;
# Refresh/create POT and PO files as needed.
@@ -531,35 +524,6 @@ sub myurlto ($$;$) { #{{{
} #}}}
}
-{
- my %renamed;
-
- sub renamed ($) { #{{{
- my $page=shift;
-
- if (exists $renamed{$page} &&
- defined $renamed{$page}) {
- return $renamed{$page};
- }
- return;
- } #}}}
-
- sub setrenamed ($$) { #{{{
- my $oldpage=shift;
- my $newpage=shift;
-
- $renamed{$oldpage}=$newpage;
- } #}}}
-
- sub resetrenamed () { #{{{
- undef %renamed;
- } #}}}
-
- sub eachrenamed () { #{{{
- return sub { each %renamed };
- } #}}}
-}
-
# ,----
# | Helper functions
# `----
@@ -833,14 +797,6 @@ sub deletetranslations ($) { #{{{
debug "po(deletetranslations): TODO: delete translations of $deletedmasterfile";
} #}}}
-sub renametranslations (@) { #{{{
- my ($oldpage, $newpage)=(shift, shift);
-
- # FIXME - not needed anymore : debug "po(renametranslations): TODO: rename translations of $oldpage to $newpage";
-
-} #}}}
-
-
# ,----
# | PageSpec's
# `----