View | Details | Raw Unified | Return to bug 9216
Collapse All | Expand All

(-)a/misc/translator/translate (-2 / +14 lines)
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
- 

Return to bug 9216