Changeset 12371 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

2006-08-02T11:30:37+12:00 (18 years ago)

Author:

mdewsnip

Message:

If sections_index_document_metadata is on, top level sections no longer inherit metadata from themselves (!?).

File:

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

trunk/gsdl/perllib/mgbuildproc.pm

@@ -114 +114 @@
             my $first = 1;
             my @section_metadata = @{$doc_obj->get_metadata ($section, $real_field)};
-            if ($level eq "section" && $self->{'indexing_text'} && defined ($self->{'sections_index_document_metadata'})) {
+            if ($level eq "section" && $section ne $doc_obj->get_top_section() && $self->{'indexing_text'} && defined ($self->{'sections_index_document_metadata'})) {
                 if ($self->{'sections_index_document_metadata'} eq "always" || ( scalar(@section_metadata) == 0 && $self->{'sections_index_document_metadata'} eq "unless_section_metadata_exists")) {
                 push (@section_metadata, @{$doc_obj->get_metadata ($doc_obj->get_top_section(), $real_field)});