Changeset 6332 for trunk/gsdl/perllib/classify.pm

Timestamp:

2003-12-19T15:16:29+13:00 (20 years ago)

Author:

jmt12

Message:

When -gli argument is provided to calling script these modules will now output gli specific, non-language nor verbosity specific, messages

File:

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

trunk/gsdl/perllib/classify.pm

@@ -115 +115 @@
 # to the gdbm
 sub output_classify_info {
-    my ($classifiers, $handle, $allclassifications) = @_;
+    my ($classifiers, $handle, $allclassifications, $gli) = @_;
 #    $handle = "main::STDOUT";
+
+    $gli = 0 unless defined $gli;
 
     # create a classification containing all the info
@@ -124 +126 @@
     # get each of the classifications
     foreach $classobj (@$classifiers) {
-    my $tempinfo = $classobj->get_classify_info();
+    my $tempinfo = $classobj->get_classify_info($gli);
     $tempinfo->{'classifyOID'} = "CL$next_classify_num";
     $next_classify_num++;