|
Lines 184-194
sub get_translated_tab_content {
Link Here
|
| 184 |
if ( keys %$translated_tab_content != keys %$tab_content ) { |
184 |
if ( keys %$translated_tab_content != keys %$tab_content ) { |
| 185 |
my %duplicates; |
185 |
my %duplicates; |
| 186 |
for my $section ( keys %$tab_content ) { |
186 |
for my $section ( keys %$tab_content ) { |
| 187 |
push @{ $duplicates{ $self->get_trans_text( "$file $section", $section ) } }, $section; |
187 |
push @{ $duplicates{ $self->get_trans_text( "$tab > $section", $section ) } }, $section; |
| 188 |
} |
188 |
} |
| 189 |
for my $translation ( keys %duplicates ) { |
189 |
for my $translation ( keys %duplicates ) { |
| 190 |
if ( @{ $duplicates{$translation} } > 1 ) { |
190 |
if ( @{ $duplicates{$translation} } > 1 ) { |
| 191 |
warn qq(In file "$file", "$translation" is a translation for sections ") |
191 |
warn qq(In tab "$tab", "$translation" is a translation for sections ") |
| 192 |
. join( '", "', @{ $duplicates{$translation} } ) . '"'; |
192 |
. join( '", "', @{ $duplicates{$translation} } ) . '"'; |
| 193 |
} |
193 |
} |
| 194 |
} |
194 |
} |
| 195 |
- |
|
|