Changeset 27301 for main/trunk

Timestamp:

2013-05-06T15:19:40+12:00 (11 years ago)

Author:

jmt12

Message:

You can now use the indexname and indexlevel options to buildcol to selectively build lucene indexes

File:

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

main/trunk/greenstone2/perllib/lucenebuilder.pm

@@ -226 +226 @@
 sub build_indexes {
     my $self = shift (@_);
-    my ($indexname) = @_;
+    my ($indexname, $indexlevel) = @_;
     my $outhandle = $self->{'outhandle'};
 
@@ -238 +238 @@
     }
 
-    # Have we got para index?
-    foreach my $level (keys %{$self->{'levels'}}) {
-    if ($level =~ /paragraph/) {
-        print $outhandle "Warning: Paragraph level indexing not supported by Lucene/Solr\n";
-        last;
-    }
+    # Determine what levels of index we want to build (a user may a specific
+    # level to index by using indexlevel parameter) [jmt12]
+    my @desired_indexlevels;
+    foreach my $level (keys %{$self->{'levels'}})
+    {
+      # ignore paragraph levels as they are unsupported in Lucene
+      if ($level =~ /paragraph/)
+      {
+        print $outhandle "WARNING: Paragraph level indexing not supported by Lucene. Ignoring index\n";
+      }
+      # build only the requested level if specified
+      elsif (defined $indexlevel && $indexlevel eq $level)
+      {
+        push (@desired_indexlevels, $level);
+        last;
+      }
+      # otherwise build all levels defined
+      else
+      {
+        push (@desired_indexlevels, $level);
+      }
     }
 
@@ -256 +271 @@
 
         my $idx = $self->{'index_mapping'}->{$index};
-        foreach my $level (keys %{$self->{'levels'}}) {
+            # we now iterate through the filtered list of index levels [jmt12]
+        foreach my $level (@desired_indexlevels) {
         next if $level =~ /paragraph/; # we don't do para indexing
         my ($pindex) = $level =~ /^(.)/;