|
Lines 621-634
sub extract_messages {
Link Here
|
| 621 |
die "system call failed: $xgettext_cmd"; |
621 |
die "system call failed: $xgettext_cmd"; |
| 622 |
} |
622 |
} |
| 623 |
|
623 |
|
|
|
624 |
my @js_dirs = ( |
| 625 |
"$intranetdir/koha-tmpl/intranet-tmpl/prog/js", |
| 626 |
"$intranetdir/koha-tmpl/intranet-tmpl/prog/en/js", |
| 627 |
"$intranetdir/koha-tmpl/opac-tmpl/bootstrap/js", |
| 628 |
); |
| 629 |
|
| 624 |
my @js_files; |
630 |
my @js_files; |
| 625 |
find(sub { |
631 |
find(sub { |
| 626 |
if ($File::Find::dir =~ m|/en/| && $_ =~ m/\.js$/) { |
632 |
if ($_ =~ m/\.js$/) { |
| 627 |
my $filename = $File::Find::name; |
633 |
my $filename = $File::Find::name; |
| 628 |
$filename =~ s|^$intranetdir/||; |
634 |
$filename =~ s|^$intranetdir/||; |
| 629 |
push @js_files, $filename; |
635 |
push @js_files, $filename; |
| 630 |
} |
636 |
} |
| 631 |
}, "$intranetdir/koha-tmpl"); |
637 |
}, @js_dirs); |
| 632 |
|
638 |
|
| 633 |
$xgettext_cmd = "$self->{xgettext} -L JavaScript $xgettext_common_args " |
639 |
$xgettext_cmd = "$self->{xgettext} -L JavaScript $xgettext_common_args " |
| 634 |
. "-o $Bin/$self->{domain}-js.pot -D $intranetdir"; |
640 |
. "-o $Bin/$self->{domain}-js.pot -D $intranetdir"; |
| 635 |
- |
|
|