Changeset 27815 for gs3-extensions/solr/trunk/src/perllib/solrbuildproc.pm

Timestamp:

2013-07-11T16:15:43+12:00 (11 years ago)

Author:

kjdon

Message:

adding in facets

File:

• gs3-extensions/solr/trunk/src/perllib/solrbuildproc.pm (modified) (2 diffs)

gs3-extensions/solr/trunk/src/perllib/solrbuildproc.pm

@@ -58 +58 @@
 }
 
+sub set_facetfields {
+    my $self = shift (@_);
+ 
+    my ($facetfields) = @_;
+    $self->{'facetfields'} = ();
+    # lets just go through and check for text, allfields, metadata which are only valid for indexes, not for facetfields
+    foreach my $s (@$facetfields) {
+    if ($s !~ /^(text|allfields|metadata)$/) {
+        push (@{$self->{'facetfields'}}, $s);
+    }
+    }
+}
 
 #----
@@ -557 +569 @@
     if ($self->{'indexing_text'} && ($sec_tag_name ne "" || $doc_section == 1 )) {
     # add sort fields if there are any
-        
-    foreach my $sfield (@{$self->{'sortfields'}}) {
+        my $seenfields = {};
+    foreach my $sfield (@{$self->{'sortfields'}}, @{$self->{'facetfields'}}) {
+        print STDERR "sort/facet field = $sfield\n";
         # ignore special field rank
         next if $sfield eq "rank";
+        # ignore any we have already done - we may have duplicates in the sort and facet lists
+        next if (defined $seenfields->{$sfield});
+        print STDERR "processing it\n";
+        $seenfields->{$sfield} = 1;
         my $sf_shortname;
         if (defined $self->{'sortfieldnamemap'}->{$sfield}) {