summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
a211e48)
Ignore DDTP translations of languages that have no po translation.
We will not use them here and we might create needless slices
otherwise.
my %sdescs;
my %trans_desc = split /\000|\001/, $trans_desc;
while (my ($l, $d) = each %trans_desc) {
my %sdescs;
my %trans_desc = split /\000|\001/, $trans_desc;
while (my ($l, $d) = each %trans_desc) {
+ # filter out non-po languages
+ next unless exists $lang_vars{$l};
- $p{trans_desc} = \%sdescs;
+ $p{trans_desc} = \%sdescs if %sdescs;
}
$p{priority} = $entry->get_newest( 'priority' );
}
}
$p{priority} = $entry->get_newest( 'priority' );
}