Changeset 13271

Timestamp:

2006-11-15T13:28:14+13:00 (17 years ago)

Author:

mdewsnip

Message:

Now sets "offset" values so the correct metadata value is displayed when multiple values are assigned to one document.

File:

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

trunk/gsdl/perllib/classify/GenericList.pm

@@ -259 +259 @@
                 'childtype' => $self->{$first_metadata_group . ".list_type"},
                 'Title' => $self->{'buttonname'},
-                'contains' => [] );
+                'contains' => [],
+                'mdtype' => $first_metadata_group );
 
     # Recursively create the classification hierarchy, one level for each metadata group
@@ -448 +449 @@
     # If there is only one item and 'always_bookshelf' is false, add the item to the list
     if (@OIDs == 1 && $self->{$metadata_group . ".always_bookshelf"} eq "f") {
-        push(@{$classifier_node->{'contains'}}, { 'OID' => $OIDs[0] });
+        my $OID = $OIDs[0];
+
+        # Find the offset of this metadata value
+        my $offset = 0;
+        my %OIDtometavaluehash = %{$self->{$metadata_group . ".list"}};
+        my @metavalues = @{$OIDtometavaluehash{$OID}};
+        for (my $i = 0; $i < scalar(@metavalues); $i++) {
+        if ($metavalue eq $metavalues[$i]) {
+            $offset = $i;
+            last;
+        }
+        }
+        push(@{$classifier_node->{'contains'}}, { 'OID' => $OID, 'offset' => $offset });
     }