Changeset 7835 for trunk/gsdl/perllib/classify/List.pm

Timestamp:

2004-08-02T15:41:33+12:00 (20 years ago)

Author:

jrm21

Message:

record mdoffset for each document when adding to a sub list. List.pm checks
for this offset in the document, and uses it if found.

File:

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

trunk/gsdl/perllib/classify/List.pm

@@ -153 +153 @@
     my $metaname;
     if (defined $self->{'meta_list'}) {
-    # find the first available metadata
-    foreach $m (@{$self->{'meta_list'}}) {
-        $metavalue = $doc_obj->get_metadata_element($doc_obj->get_top_section(), $m);
-        $metaname = $m;
-        last if defined $metavalue;
+    my $topsection=$doc_obj->get_top_section();
+
+    # 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";
+
+    } else {
+        # use the first available metadata
+        foreach my $m (@{$self->{'meta_list'}}) {
+        $metavalue = $doc_obj->
+            get_metadata_element($topsection, $m);
+        $metaname = $m;
+        last if defined $metavalue;
+        }
     } 
-    #if we haven't found a metavalue here, then the doc shouldn't be included
+    # if we haven't found a metavalue, then the doc shouldn't be included
     return unless defined $metavalue;
     }
@@ -213 +233 @@
 
     foreach $OID (@list) {
-    push (@{$classifyinfo{'contains'}}, {'OID'=>$OID});
+    my $hashref={};
+    # special oid format, if using offsets (from AZCompactList)
+    if ($OID =~ s/\.offset(\d+)$//) {
+        $hashref->{'offset'}=$1;
+    }
+    $hashref->{'OID'}=$OID;
+
+    push (@{$classifyinfo{'contains'}}, $hashref);
     }