Changeset 12274

Timestamp:

2006-07-21T15:54:02+12:00 (18 years ago)

Author:

mdewsnip

Message:

Added support for "indexed_section" and "info_section" gsdldoctype metadata, which is the same as "indexed_doc" and "info_doc" but at the section level.

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

@@ -146 +146 @@
     # but we need to put the section tag placeholders in there so the 
     # sections match up with gdbm db
-    if (!$indexed_doc) {
+    my $indexed_section = $doc_obj->get_metadata_element($section, "gsdldoctype") || "indexed_section";
+    if (!$indexed_doc || $indexed_section ne "indexed_section") {
         $text .= "\n</$sectiontag>\n" if ($sectiontag ne "");
         $section = $doc_obj->get_next_section($section);

trunk/gsdl/perllib/mgbuildproc.pm

@@ -85 +85 @@
     $self->{'num_sections'} += 1;
 
-    if ($indexed_doc) {
+    my $indexed_section = $doc_obj->get_metadata_element($section, "gsdldoctype") || "indexed_section";
+    if ($indexed_doc && $indexed_section eq "indexed_section") {
         $self->{'num_bytes'} += $doc_obj->get_text_length ($section);
         foreach my $field (split (/,/, $fields)) {

trunk/gsdl/perllib/mgppbuildproc.pm

@@ -240 +240 @@
     $text .= "$sectiontag";
 
-    if (!$indexed_doc) {
+    my $indexed_section = $doc_obj->get_metadata_element($section, "gsdldoctype") || "indexed_section";
+    if (!$indexed_doc || $indexed_section ne "indexed_section") {
         # we are not actually indexing anything for this document,
         # but we want to keep the section numbers the same, so we just