Changeset 27301 for main/trunk/greenstone2/perllib/lucenebuilder.pm
- Timestamp:
- 2013-05-06T15:19:40+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/lucenebuilder.pm
r25723 r27301 226 226 sub build_indexes { 227 227 my $self = shift (@_); 228 my ($indexname ) = @_;228 my ($indexname, $indexlevel) = @_; 229 229 my $outhandle = $self->{'outhandle'}; 230 230 … … 238 238 } 239 239 240 # Have we got para index? 241 foreach my $level (keys %{$self->{'levels'}}) { 242 if ($level =~ /paragraph/) { 243 print $outhandle "Warning: Paragraph level indexing not supported by Lucene/Solr\n"; 244 last; 245 } 240 # Determine what levels of index we want to build (a user may a specific 241 # level to index by using indexlevel parameter) [jmt12] 242 my @desired_indexlevels; 243 foreach my $level (keys %{$self->{'levels'}}) 244 { 245 # ignore paragraph levels as they are unsupported in Lucene 246 if ($level =~ /paragraph/) 247 { 248 print $outhandle "WARNING: Paragraph level indexing not supported by Lucene. Ignoring index\n"; 249 } 250 # build only the requested level if specified 251 elsif (defined $indexlevel && $indexlevel eq $level) 252 { 253 push (@desired_indexlevels, $level); 254 last; 255 } 256 # otherwise build all levels defined 257 else 258 { 259 push (@desired_indexlevels, $level); 260 } 246 261 } 247 262 … … 256 271 257 272 my $idx = $self->{'index_mapping'}->{$index}; 258 foreach my $level (keys %{$self->{'levels'}}) { 273 # we now iterate through the filtered list of index levels [jmt12] 274 foreach my $level (@desired_indexlevels) { 259 275 next if $level =~ /paragraph/; # we don't do para indexing 260 276 my ($pindex) = $level =~ /^(.)/;
Note:
See TracChangeset
for help on using the changeset viewer.