2 # ============================================================================
3 # Zebra perl API header
4 # =============================================================================
7 # ============================================================================
8 package IDZebra::Resultset;
10 use IDZebra::Logger qw(:flags :calls);
11 use IDZebra::Repository;
12 use Scalar::Util qw(weaken);
14 our @ISA = qw(IDZebra::Logger);
17 # -----------------------------------------------------------------------------
18 # Class constructors, destructor
19 # -----------------------------------------------------------------------------
21 my ($proto,$session, %args) = @_;
22 my $class = ref($proto) || $proto;
24 $self->{session} = $session;
25 weaken ($self->{session});
28 $self->{ro} = IDZebra::RetrievalObj->new();
29 $self->{odr_stream} = IDZebra::odr_createmem($IDZebra::ODR_DECODE);
31 $self->{name} = $args{name};
32 $self->{recordCount} = $args{recordCount};
33 $self->{errCode} = $args{errCode};
34 $self->{errString} = $args{errString};
36 bless ($self, $class);
42 return ($self->{recordCount});
47 return ($self->{errCode});
52 return ($self->{errCode});
58 # print STDERR "Destroy RS\n";
62 if ($self->{odr_stream}) {
63 IDZebra::odr_reset($self->{odr_stream});
64 IDZebra::odr_destroy($self->{odr_stream});
65 $self->{odr_stream} = undef;
69 delete($self->{session});
71 # -----------------------------------------------------------------------------
73 my ($self, %args) = @_;
75 my $from = $args{from} ? $args{from} : 1;
76 my $to = $args{to} ? $args{to} : $self->{recordCount};
78 my $elementSet = $args{elementSet} ? $args{elementSet} : 'R';
79 my $schema = $args{schema} ? $args{schema} : '';
80 my $recordSyntax = $args{recordSyntax} ? $args{recordSyntax} : '';
83 my $ro = IDZebra::RetrievalObj->new();
84 IDZebra::records_retrieve($self->{session}{zh},
97 for (my $i=$from; $i<=$to; $i++) {
98 my $rec = IDZebra::RetrievalRecord->new();
99 IDZebra::record_retrieve($ro, $self->{odr_stream}, $rec, $i-$from+1);
103 IDZebra::odr_reset($self->{odr_stream});
109 my ($self, $sortspec, $setname) = @_;
111 $_[0] = $self->{session}->sortResultsets($sortspec,
112 $self->{name}, ($self));
115 return ($self->{session}->sortResultsets($sortspec,
120 # ============================================================================
125 IDZebra::Resultset - Representation of Zebra search results
131 The I<Resultset> object represents results of a Zebra search. Contains number of hits, search status, and can be used to sort and retrieve the records.
137 printf ("RS Status is %d (%s)\n", $rs->errCode, $rs->errString);
139 I<$rs-E<gt>errCode> is 0, if there were no errors during search.
141 =head1 RETRIEVING RECORDS
150 Peter Popovics, pop@technomat.hu
154 IDZebra, IDZebra::Data1, Zebra documentation