Changeset 12371

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 (!?).

Location:

trunk/gsdl/perllib

Files:

• lucenebuildproc.pm (modified) (1 diff)
• mgbuildproc.pm (modified) (1 diff)
• mgppbuildproc.pm (modified) (1 diff)

trunk/gsdl/perllib/lucenebuildproc.pm

@@ -231 +231 @@
             else {
             my @section_metadata = @{$doc_obj->get_metadata ($section, $submeta)};
-            if ($self->{'indexing_text'} && defined ($self->{'sections_index_document_metadata'})) {
+            if ($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(), $submeta)});

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)});

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -322 +322 @@
             } else {
             my @section_metadata = @{$doc_obj->get_metadata ($section, $submeta)};
-            if ($self->{'indexing_text'} && defined ($self->{'sections_index_document_metadata'})) {
+            if ($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(), $submeta)});