Changeset 9091

Timestamp:

2005-02-17T17:25:30+13:00 (19 years ago)

Author:

mdewsnip

Message:

Added a "-show_complete_translations" option to see just the translations that are finished.

File:

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

trunk/gsdl/bin/script/translator/writetranslationmedium.pl

@@ -66 +66 @@
 
 my $option_show_all_translations = 0;
+my $option_show_complete_translations = 0;
 
 
@@ -83 +84 @@
     while ($optionalarg) {
     if ($optionalarg eq "-show_all_translations") { $option_show_all_translations = 1; }
+    if ($optionalarg eq "-show_complete_translations") { $option_show_complete_translations = 1; }
     $optionalarg = shift(@_);
     }
@@ -183 +185 @@
         $translationstowrite{$key}[0] = $sourcehash{$key};
         $translationstowrite{$key}[1] = $translationdata{$key} || "";
+        }
+    }
+    }
+
+    elsif ($option_show_complete_translations) {
+    foreach $key (keys(%translationdata)) {
+        if ($key !~ /\*$/ && $translationdata{$key} ne "") {
+        $translationstowrite{$key}[0] = $sourcehash{$key};
+        $translationstowrite{$key}[1] = $translationdata{$key};
         }
     }