Changeset 6925 for trunk/gsdl/perllib/classify

Timestamp:

2004-03-04T16:37:57+13:00 (20 years ago)

Author:

mdewsnip

Message:

Changed the way display in different languages is done. Instead of passing a language variable throughout the process, the desired resource bundle is explicitly loaded during the initialization of each program (buildcol.pl, classinfo.pl, exportcol.pl, import.pl mkcol.pl, pluginfo.pl).

File:

• trunk/gsdl/perllib/classify/BasClas.pm (modified) (6 diffs)

trunk/gsdl/perllib/classify/BasClas.pm

@@ -93 +93 @@
 {
     local $self = shift(@_);
-    local $language = shift(@_);
 
     &PrintUsage::print_xml_header();
-    $self->print_xml($language);
+    $self->print_xml();
 }
 
@@ -103 +102 @@
 {
     local $self = shift(@_);
-    local $language = shift(@_);
 
     local $optionlistref = $self->{'option_list'};
@@ -117 +115 @@
     print STDERR "  <Arguments>\n";
     if (defined($classifieroptions->{'args'})) {
-    &PrintUsage::print_options_xml($language, $classifieroptions->{'args'});
+    &PrintUsage::print_options_xml($classifieroptions->{'args'});
     }
 
     # Recurse up the classifier hierarchy
-    $self->print_xml($language);
+    $self->print_xml();
 
     print STDERR "  </Arguments>\n";
@@ -131 +129 @@
 {
     local $self = shift(@_);
-    local $language = shift(@_);
 
     # Print the usage message for a classifier (recursively)
     local $descoffset = $self->determine_description_offset(0);
-    $self->print_classifier_usage($language, $descoffset, 1);
+    $self->print_classifier_usage($descoffset, 1);
 }
 
@@ -168 +165 @@
 {
     local $self = shift(@_);
-    local $language = shift(@_);
     local $descoffset = shift(@_);
     local $isleafclass = shift(@_);
@@ -198 +194 @@
 
     # Display the classifier options
-    &PrintUsage::print_options_txt($language, $classifierargs, $optiondescoffset);
+    &PrintUsage::print_options_txt($classifierargs, $optiondescoffset);
     }
 
     # Recurse up the classifier hierarchy
-    $self->print_classifier_usage($language, $descoffset, 0);
+    $self->print_classifier_usage($descoffset, 0);
     $self->{'option_list'} = \@optionlist;
 }