Changeset 27565 for main/trunk
- Timestamp:
- 2013-06-06T12:02:03+12:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/perllib/lucenebuildproc.pm
r27563 r27565 88 88 my $self = shift (@_); 89 89 90 ($self->{'sortfields'}) = @_; 90 my ($sortfields) = @_; 91 $self->{'sortfields'} = (); 92 # lets just go through and check for text, allfields, metadata which are only valid for indexes, not for sortfields 93 foreach my $s (@$sortfields) { 94 if ($s !~ /^(text|allfields|metadata)$/) { 95 push (@{$self->{'sortfields'}}, $s); 96 } 97 } 91 98 } 92 99 … … 353 360 354 361 foreach my $sfield (@{$self->{'sortfields'}}) { 362 # ignore special field rank 363 next if $sfield eq "rank"; 355 364 my $sf_shortname; 356 365 if (defined $self->{'sortfieldnamemap'}->{$sfield}) {
Note:
See TracChangeset
for help on using the changeset viewer.