Lines 25-31
use warnings;
Link Here
|
25 |
use LangInstaller; |
25 |
use LangInstaller; |
26 |
use Getopt::Long; |
26 |
use Getopt::Long; |
27 |
use Pod::Usage; |
27 |
use Pod::Usage; |
28 |
|
28 |
use File::Copy; |
29 |
|
29 |
|
30 |
my $verbose = 0; |
30 |
my $verbose = 0; |
31 |
my $pref = 0; |
31 |
my $pref = 0; |
Lines 68-73
else {
Link Here
|
68 |
usage(); |
68 |
usage(); |
69 |
} |
69 |
} |
70 |
|
70 |
|
|
|
71 |
# Copy of the translated columns.def |
72 |
# name expected (for example with fr-FR): columns.def.fr-FR |
73 |
my $filetobecopied = C4::Context->config('intrahtdocs') . "/prog/en/columns.def.$lang"; |
74 |
my $newfile = C4::Context->config('intrahtdocs') . "/prog/$lang/columns.def"; |
75 |
print "Looking for the following column.def file : " . $filetobecopied . "\n"; |
76 |
if (-e $filetobecopied) { |
77 |
print "Language specific column.def file found.\n"; |
78 |
print "Copying to destination : " . $newfile . "\n"; |
79 |
copy($filetobecopied, $newfile) or die "ERROR: File cannot be copied.\n"; |
80 |
} |
81 |
else { |
82 |
print "Language specific column.def file NOT found.\n"; |
83 |
} |
71 |
|
84 |
|
72 |
|
85 |
|
73 |
=head1 NAME |
86 |
=head1 NAME |
74 |
- |
|
|