Changeset 27563 for main/trunk/greenstone2/perllib/lucenebuildproc.pm

Timestamp:

2013-06-06T11:29:54+12:00 (11 years ago)

Author:

kjdon

Message:

implementing the new build option sections_sort_on_document_metadata

File:

• main/trunk/greenstone2/perllib/lucenebuildproc.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/lucenebuildproc.pm

@@ -78 +78 @@
 }
 
+sub set_sections_sort_on_document_metadata {
+    my $self= shift (@_);
+    my ($index_type) = @_;
+    
+    $self->{'sections_sort_on_document_metadata'} = $index_type;
+}
+
 sub set_sortfields {
     my $self = shift (@_);
@@ -360 +367 @@
         
         my @section_metadata = @{$doc_obj->get_metadata ($section, $submeta)};
+            if ($section ne $doc_obj->get_top_section() && defined ($self->{'sections_sort_on_document_metadata'})) {
+            if ($self->{'sections_sort_on_document_metadata'} eq "always" || ( scalar(@section_metadata) == 0 && $self->{'sections_sort_on_document_metadata'} eq "unless_section_metadata_exists")) {
+                push (@section_metadata, @{$doc_obj->get_metadata ($doc_obj->get_top_section(), $submeta)});
+            }
+            }
         push (@metadata_list, @section_metadata);
         }
@@ -365 +377 @@
         foreach my $item (@metadata_list) {
         &ghtml::htmlsafe($item);
-        $new_text .= "$item ";
+        $new_text .= "$item";
         }
         if ($new_text =~ /\S/) {