Changeset 8275

Timestamp:

2004-10-12T04:13:27+13:00 (20 years ago)

Author:

cs025

Message:

Avoids problems with 'oai' being visible better than the previous version.

File:

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

trunk/gsdl/perllib/classify.pm

@@ -163 +163 @@
 
     # get each of the classifications
-    CLASSIFIER: foreach $classobj (@$classifiers) {
+    foreach $classobj (@$classifiers) {
     my $tempinfo = $classobj->get_classify_info($gli);
     my $classID = $tempinfo->{'classifyOID'};
 
-    if ((defined $classID) && ($classID eq "oai")) {
-        next CLASSIFIER;
-    }
     $tempinfo->{'classifyOID'} = "CL$next_classify_num" unless defined($tempinfo->{'classifyOID'});
     $next_classify_num++;
@@ -216 +213 @@
         next unless defined $tempinfo;
         
-        $contains_text .= ";" unless $first;
+        if (!defined ($tempinfo->{'classifyOID'}) ||
+        $tempinfo->{'classifyOID'} ne "oai") {
+        $contains_text .= ";" unless $first;
+        }
         $mdoffset_text .= ";" unless $first;
         $first = 0;
         
         if (defined ($tempinfo->{'classifyOID'})) {
-        $contains_text .= $tempinfo->{'classifyOID'};
+        if ($tempinfo->{'classifyOID'} ne "oai") {
+            $contains_text .= $tempinfo->{'classifyOID'};
+        }
         &print_classify_info ($handle, $tempinfo, $tempinfo->{'classifyOID'},
                       $allclassifications);