Changeset 10027 for trunk/gsdl/bin/script/gti.pl

Timestamp:

2005-06-08T14:03:53+12:00 (19 years ago)

Author:

mdewsnip

Message:

Completed GTI searching and correcting functionality.

File:

• trunk/gsdl/bin/script/gti.pl (modified) (3 diffs)

trunk/gsdl/bin/script/gti.pl

@@ -386 +386 @@
     # The key of the file to translate (ensure it is lowercase)
     my $translation_file_key = lc(shift(@_));
+    # Whether to submit a target chunk even if it hasn't changed
+    my $force_submission_flag = shift(@_);
 
     # Check that the necessary arguments were supplied
@@ -489 +491 @@
         next;
     }
-
-    # Apply the submitted translations
-    if (defined($target_file_key_to_submission_mapping{$chunk_key})) {
-        $target_file_key_to_text_mapping{$chunk_key} = $target_file_key_to_submission_mapping{$chunk_key};
+    }
+
+    # Apply the submitted translations
+    foreach my $chunk_key (keys(%target_file_key_to_submission_mapping)) {
+    if ($force_submission_flag || $target_file_key_to_submission_mapping{$chunk_key} ne $target_file_key_to_text_mapping{$chunk_key}) {
+        $target_file_key_to_text_mapping{$chunk_key} = $target_file_key_to_submission_mapping{$chunk_key};
         $target_file_key_to_comment_date_mapping{$chunk_key} = $submission_date;
-    }
+    }
     }
 
@@ -845 +849 @@
         $i++;
         $line = $file_lines[$i];
-        $line =~ s/(\s*)$//;  # Remove any nasty whitespace, carriage returns etc.
+        $line =~ s/\s*([^\\]\#.+)?$//;  # Remove any comments and nasty whitespace
         }