From 71b08b0b9014f5b20d759e4eb1b334aa3e301636 Mon Sep 17 00:00:00 2001 From: Sophie Meynieux Date: Wed, 5 Dec 2012 12:14:20 +0100 Subject: [PATCH] Bug 9216 : Adding copy of columns.def.{lang} (if it exists) into {lang} directory tree during translation process --- misc/translator/translate | 15 ++++++++++++++- 1 files changed, 14 insertions(+), 1 deletions(-) diff --git a/misc/translator/translate b/misc/translator/translate index f0c12c9..8824c41 100755 --- a/misc/translator/translate +++ b/misc/translator/translate @@ -25,7 +25,7 @@ use warnings; use LangInstaller; use Getopt::Long; use Pod::Usage; - +use File::Copy; my $verbose = 0; my $pref = 0; @@ -68,6 +68,19 @@ else { usage(); } +# Copy of the translated columns.def +# name expected (for example with fr-FR): columns.def.fr-FR +my $filetobecopied = C4::Context->config('intrahtdocs') . "/prog/en/columns.def.$lang"; +my $newfile = C4::Context->config('intrahtdocs') . "/prog/$lang/columns.def"; +print "Looking for the following column.def file : " . $filetobecopied . "\n"; +if (-e $filetobecopied) { + print "Language specific column.def file found.\n"; + print "Copying to destination : " . $newfile . "\n"; + copy($filetobecopied, $newfile) or die "ERROR: File cannot be copied.\n"; +} +else { + print "Language specific column.def file NOT found.\n"; +} =head1 NAME -- 1.7.5.4