diff options
Diffstat (limited to 'IkiWiki/Plugin/po.pm')
| -rw-r--r-- | IkiWiki/Plugin/po.pm | 46 |
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 # `---- |