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