po plugin: allow pagestate update (bugfix)

Signed-off-by: intrigeri <intrigeri@boum.org>
master
intrigeri 2008-10-10 18:08:00 +02:00
parent b0b87d1584
commit ffd1fff775
1 changed files with 17 additions and 0 deletions

View File

@ -14,6 +14,7 @@ use File::Temp;
sub import {
hook(type => "getsetup", id => "po", call => \&getsetup);
hook(type => "checkconfig", id => "po", call => \&checkconfig);
hook(type => "needsbuild", id => "po", call => \&needsbuild);
hook(type => "targetpage", id => "po", call => \&targetpage);
hook(type => "tweakurlpath", id => "po", call => \&tweakurlpath);
hook(type => "tweakbestlink", id => "po", call => \&tweakbestlink);
@ -72,6 +73,22 @@ sub checkconfig () { #{{{
}
} #}}}
sub needsbuild (@) { #{{{
my $needsbuild=shift;
foreach my $page (keys %pagestate) {
if (exists $pagestate{$page}{po}{translatable}) {
if (exists $pagesources{$page} &&
grep { $_ eq $pagesources{$page} } @$needsbuild) {
# remove state, it will be re-added
# if the preprocessor directive is still
# there during the rebuild
delete $pagestate{$page}{po}{translatable};
}
}
}
} #}}}
sub targetpage (@) { #{{{
my %params = @_;
my $page=$params{page};