|
Lines 527-532
sub extract_messages_from_templates {
Link Here
|
| 527 |
foreach my $file (@files) { |
527 |
foreach my $file (@files) { |
| 528 |
say "Extract messages from $file" if $self->{verbose}; |
528 |
say "Extract messages from $file" if $self->{verbose}; |
| 529 |
my $template = read_file("$intranetdir/$file"); |
529 |
my $template = read_file("$intranetdir/$file"); |
|
|
530 |
|
| 531 |
# No need to process a file that doesn't use the i18n.inc file. |
| 532 |
next unless $template =~ /i18n\.inc/; |
| 533 |
|
| 530 |
my $data = $parser->parse($template); |
534 |
my $data = $parser->parse($template); |
| 531 |
unless ($data) { |
535 |
unless ($data) { |
| 532 |
warn "Error at $file : " . $parser->error(); |
536 |
warn "Error at $file : " . $parser->error(); |
| 533 |
- |
|
|