Changeset 831 for trunk

Timestamp:

1999-12-13T16:51:06+13:00 (24 years ago)

Author:

davidb

Message:

added support for multiple metavales for a metadata type

File:

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

trunk/gsdl/perllib/classify.pm

@@ -109 +109 @@
 sub print_classify_info {
     my ($handle, $classifyinfo, $OID, $allclassifications) = @_;
+
     $OID =~ s/^\.+//; # just for good luck
 
@@ -132 +133 @@
 
     
-    $outputtext .= "<contains>";
+    my $contains_text = "<contains>";
+    my $mdoffset_text = "<mdoffset>";
     
     my $next_subOID = 1;
@@ -140 +142 @@
         next unless defined $tempinfo;
         
-        $outputtext .= ";" unless $first;
+        $contains_text .= ";" unless $first;
+        $mdoffset_text .= ";" unless $first;
         $first = 0;
         
         if (defined ($tempinfo->{'classifyOID'})) {
-        $outputtext .= $tempinfo->{'classifyOID'};
+        $contains_text .= $tempinfo->{'classifyOID'};
         &print_classify_info ($handle, $tempinfo, $tempinfo->{'classifyOID'},
                       $allclassifications);
         } elsif (defined ($tempinfo->{'OID'})) {
-        $outputtext .= $tempinfo->{'OID'};
+        $contains_text .= $tempinfo->{'OID'};
+        $mdoffset_text .= $tempinfo->{'offset'}
+          if (defined ($tempinfo->{'offset'}))
         # note: we don't want to print the contents of the books
         } else {
-        $outputtext .= "\".$next_subOID";
+        $contains_text .= "\".$next_subOID";
         &print_classify_info ($handle, $tempinfo, "$OID.$next_subOID",
                       $allclassifications);
@@ -157 +162 @@
         }
     }
-    $outputtext .= "\n";
+    
+    $outputtext .= "$contains_text\n";
+    $outputtext .= "<mdtype>$classifyinfo->{'mdtype'}\n" 
+        if defined $classifyinfo->{'mdtype'};
+    $outputtext .= "$mdoffset_text\n"
+        if ($mdoffset_text !~ m/^<mdoffset>;+$/);
+    
     $outputtext .= '-' x 70 . "\n";