Changeset 27565 for main

Timestamp:

2013-06-06T12:02:03+12:00 (11 years ago)

Author:

kjdon

Message:

ignore special keywords which should be only in indexes list, and ignore sort special keyword 'rank'

File:

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

main/trunk/greenstone2/perllib/lucenebuildproc.pm

@@ -88 +88 @@
     my $self = shift (@_);
  
-    ($self->{'sortfields'}) = @_;
+    my ($sortfields) = @_;
+    $self->{'sortfields'} = ();
+    # lets just go through and check for text, allfields, metadata which are only valid for indexes, not for sortfields
+    foreach my $s (@$sortfields) {
+    if ($s !~ /^(text|allfields|metadata)$/) {
+        push (@{$self->{'sortfields'}}, $s);
+    }
+    }
 }
 
@@ -353 +360 @@
         
     foreach my $sfield (@{$self->{'sortfields'}}) {
+        # ignore special field rank
+        next if $sfield eq "rank";
         my $sf_shortname;
         if (defined $self->{'sortfieldnamemap'}->{$sfield}) {