-sub search_pqf {
- my ($self, $query, $setname) = @_;
- return (IDZebra::search_PQF($self->{zh},
- $self->{odr_input},
- $self->{odr_output},
- $query,
- $setname));
+sub sortResultsets {
+ my ($self, $sortspec, $setname, @sets) = @_;
+
+ my @setnames;
+ my $count = 0;
+ foreach my $rs (@sets) {
+ push (@setnames, $rs->{name});
+ $count += $rs->{recordCount}; # is this really sure ??? It doesn't
+ # matter now...
+ }
+
+ my $status = IDZebra::sort($self->{zh},
+ $self->{odr_output},
+ $sortspec,
+ $setname,
+ \@setnames);
+
+ my $errCode = $self->errCode;
+ my $errString = $self->errString;
+
+ if ($status || $errCode) {$count = 0;}
+
+ my $rs = IDZebra::Resultset->new($self,
+ name => $setname,
+ recordCount => $count,
+ errCode => $errCode,
+ errString => $errString);
+
+ return ($rs);