|
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 |
- |
|
|