Changeset 10470

Timestamp:

2005-08-10T16:30:08+12:00 (19 years ago)

Author:

mdewsnip

Message:

Added missing language option and fixed a new bug that prevented it from being used from the GLI.

File:

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

trunk/gsdl/bin/script/explode_metadata_database.pl

@@ -26 +26 @@
 my $arguments = 
     [ 
+      { 'name' => "language",
+    'desc' => "{scripts.language}",
+    'type' => "string",
+    'reqd' => "no" },
       { 'name' => "plugin",
     'desc' => "{explode.plugin}",
@@ -88 +92 @@
     # parse the options
     my $intArgLeftinAfterParsing = parse2::parse(\@ARGV,$arguments,$hashParsingResult,"allow_extra_options");
+
+    foreach my $strVariable (keys %$hashParsingResult)
+    {
+    eval "\$$strVariable = \$hashParsingResult->{\"\$strVariable\"}";
+    }
+
+    # If $language has been specified, load the appropriate resource bundle
+    # (Otherwise, the default resource bundle will be loaded automatically)
+    if ($language && $language =~ /\S/) {
+    &gsprintf::load_language_specific_resource_bundle($language);
+    }
+
+    if ($xml) {
+        &PrintUsage::print_xml_usage($options);
+    print "\n";
+    return;
+    }
+
     # There should one arg left after parsing
     if($intArgLeftinAfterParsing > 1)
@@ -93 +115 @@
     &PrintUsage::print_txt_usage($options, "{explode.params}");
     die "\n";
-    }
-
-    foreach my $strVariable (keys %$hashParsingResult)
-    {
-    eval "\$$strVariable = \$hashParsingResult->{\"\$strVariable\"}";
-    }
-        
-    # If $language has been specified, load the appropriate resource bundle
-    # (Otherwise, the default resource bundle will be loaded automatically)
-    if ($language && $language =~ /\S/) {
-    &gsprintf::load_language_specific_resource_bundle($language);
-    }
-
-    if ($xml) {
-        &PrintUsage::print_xml_usage($options);
-    print "\n";
-    return;
     }