Changeset 8729

Timestamp:

2004-12-03T12:01:52+13:00 (19 years ago)

Author:

kjdon

Message:

changed List so that when its being used from AZCompactList it does use the list of metadata names rather than assuming it is using the first one

File:

• trunk/gsdl/perllib/classify/List.pm (modified) (1 diff)

trunk/gsdl/perllib/classify/List.pm

@@ -157 +157 @@
     # find the correct bit of metadata, if multi-valued metadata field
     if (exists $doc_obj->{'mdoffset'}) { # set by AZCompactList
+
         my $mdoffset=$doc_obj->{'mdoffset'} - 1;
-        # if this List is used by AZCompactList, then $metavalue is
-        # only really needed for sorting.
-        # assume (!!) there is only one fieldname in the meta_list
-        $metaname=(@{$self->{'meta_list'}})[0];
-        # get all metadata values for this field
-        my $values_listref=
-        $doc_obj->get_metadata($topsection, $metaname);
-        # get the correct one (from the offset)
-        $metavalue=@$values_listref[$mdoffset];
-        # use a special format for docOID...
-        $doc_OID .= ".offset$mdoffset";
-
+        
+        foreach my $m (@{$self->{'meta_list'}}) {
+        my $values_listref=
+            $doc_obj->get_metadata($topsection, $m);
+        $array_size = scalar(@{$values_listref});
+        if ($array_size==0 || $array_size < $mdoffset+1) {
+            $mdoffset = $mdoffset - $array_size;
+        } else {
+            $metaname = $m;
+            # get the correct value using the offset
+            $metavalue=@$values_listref[$mdoffset];
+                    # use a special format for docOID...
+            $doc_OID .= ".offset$mdoffset";
+            last;
+        }
+        }
     } else {
         # use the first available metadata