Changeset 28755

Timestamp:

2013-12-09T18:41:35+13:00 (10 years ago)

Author:

ak19

Message:

First set of adjustments to get spreadsheets generated for the gs3interface translation module.

File:

• main/trunk/greenstone2/bin/script/gti.pl (modified) (4 diffs)

main/trunk/greenstone2/bin/script/gti.pl

@@ -120 +120 @@
     # for GS3, set gsdl_root_dir to GSDL3HOME
     if($module eq "gs3interface"){
-    $gsdl_root_directory = (defined $ENV{'GSDL3HOME'}) ? $ENV{'GSDL3HOME'} : &util::filename_cat($ENV{'GSDL3SRCHOME'}, "web");
-    $gti_log_file = &util::filename_cat($gsdl_root_directory, "logs", "gti.log");
+    if($ENV{'GSDL3SRCHOME'}) {
+        $gsdl_root_directory = (defined $ENV{'GSDL3HOME'}) ? $ENV{'GSDL3HOME'} : &util::filename_cat($ENV{'GSDL3SRCHOME'}, "web");
+        $gti_log_file = &util::filename_cat($gsdl_root_directory, "logs", "gti.log");
+    }
     }
     
@@ -331 +333 @@
     my ($source_file, $target_file, $translation_file_type)
     = &get_translation_configuration($target_language_code, $translation_file_key);
-    
+
     # Parse the source language and target language files
     my $source_file_path = &util::filename_cat($gsdl_root_directory, $source_file);
@@ -1827 +1829 @@
         &throw_fatal_error("Missing command argument.");
     }
-    
+
     my %source_files_key_to_text_mapping = ();
     my %target_files_key_to_text_mapping = ();
@@ -1900 +1902 @@
     $source_files_key_to_gti_comment_mapping, $target_files_key_to_gti_comment_mapping) = @_;
     
-    my $source_file_directory = &util::filename_cat("WEB-INF","classes"); # my $source_file_directory = "greenstone3";
+    my $source_file_directory = "greenstone3";  # my $source_file_directory = &util::filename_cat("WEB-INF","classes"); 
     my $translation_file_type = "resource_bundle";