Ticket #669: Search-Xapian-1.2.20.0.patch

Search-Xapian-1.2.20.0

@@ -34 +34 @@
   }
 }
 
+sub set_collapse_key {
+  my $self = shift;
+  my $valueno = shift;
+  my $nargs = scalar(@_);
+  if( $nargs > 1) {
+    Carp::carp( "USAGE: \$enquire->set_collapse_key(\$valueno) or \$enquire->set_collapse_key(\$valueno, \$count)" );
+    exit;
+  }
+  if( $nargs == 0 ) {
+    $self->set_collapse_key1( $valueno );
+  } else {
+    $self->set_collapse_key2( $valueno, shift );
+  }
+}
+
 sub get_mset {
   my $self = shift;
   my $nargs = scalar(@_);

Search-Xapian-1.2.20.0

@@ -47 +47 @@
        RETVAL
 
 void
-Enquire::set_collapse_key(collapse_key)
+Enquire::set_collapse_key1(collapse_key)
     valueno     collapse_key
     CODE:
        try {
@@ -55 +55 @@
        } catch (...) {
            handle_exception();
        }
+
+void
+Enquire::set_collapse_key2(collapse_key, count)
+    valueno     collapse_key
+    int         count
+    CODE:
+       try {
+           THIS->set_collapse_key(collapse_key, count);
+       } catch (...) {
+           handle_exception();
+       }
 
 void
 Enquire::set_docid_order(order)