Changeset 10474

Timestamp:

2005-08-11T09:15:26+12:00 (19 years ago)

Author:

kjdon

Message:

implemented sections_index_document_metadata

Location:

trunk/gsdl/perllib

Files:

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

trunk/gsdl/perllib/lucenebuildproc.pm

@@ -300 +300 @@
                 $self->{'indexfieldmap'}->{$shortname} = 1;
                 }
-                foreach $item (@{$doc_obj->get_metadata ($section, $real_field)}) {
+                my @section_metadata = @{$doc_obj->get_metadata ($section, $real_field)};
+                if ($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)});
+                }
+                }
+                foreach $item (@section_metadata) {
                 $new_text .= "$parastarttag<$shortname index=\"1\">$item</$shortname>$paraendtag\n";
                 # remove entities

trunk/gsdl/perllib/mgbuildproc.pm

@@ -112 +112 @@
             } else {
             my $first = 1;
-            foreach my $meta (@{$doc_obj->get_metadata ($section, $real_field)}) {
+            my @section_metadata = @{$doc_obj->get_metadata ($section, $real_field)};
+            if ($level eq "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)});
+                }
+            }
+            foreach my $meta (@section_metadata) {
                 $meta =~ s/[\cB\cC]//g;
                 $self->{'num_processed_bytes'} += length ($meta);

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -31 +31 @@
 
 use basebuildproc;
-
 
 BEGIN {
@@ -271 +270 @@
                 $self->{'indexfieldmap'}->{$shortname} = 1;
                 }
-                foreach my $item (@{$doc_obj->get_metadata ($section, $real_field)}) {
+                my @section_metadata = @{$doc_obj->get_metadata ($section, $real_field)};
+                if ($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)});
+                }
+                }
+                foreach my $item (@section_metadata) {
+                #foreach my $item (@{$doc_obj->get_metadata ($section, $real_field)}) {
                 $new_text .= "$paratag<$shortname>$item</$shortname>\n";
                 }