1 # $Id: RetrievalRecord.pm,v 1.3 2003-03-05 13:55:22 pop Exp $
3 # Zebra perl API header
4 # =============================================================================
5 package IDZebra::RetrievalRecord;
12 our $VERSION = do { my @r = (q$Revision: 1.3 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
16 # =============================================================================
17 # THIS IS Just the documentation, and some access methods...
18 # The real code is autogenerated by SWIG in IDZebra.pm
19 # =============================================================================
21 sub errCode { $_[0]->{errCode} }
22 sub errString { $_[0]->{errString} }
23 sub position { $_[0]->{position} }
24 sub base { $_[0]->{base} }
25 sub sysno { $_[0]->{sysno} }
26 sub score { $_[0]->{score} }
27 sub format { $_[0]->{format} }
28 sub buf { $_[0]->{buf} }
30 # =============================================================================
36 IDZebra::RetrievalRecord - Structure representing a retrieval record
40 foreach my $rec ($rs1->records()) {
41 unless ($rec->errCode) {
42 printf ("Pos:%d, Base: %s, sysno: %d, score %d format: %s\n%s\n\n",
56 The object represents a Zebra retrieval record, as a "member" of a resultset. It's a read-only object. Beeing a tied reference, access to undefined members ("properties") may hurt.
60 The following properties are available trough both methods ($rec->errCode) and hash members ($rec->{errCode}):
66 The error code received when fetching this record. 0, if everything went OK.
70 Supplemental error information if applicable.
74 Position of record in the resultset.
78 The database the record belongs to
82 System number (unique identifier provided by Zebra for each record)
86 The score of the resulting record
90 Record format, (Z39.50)
94 The record data itself
104 Peter Popovics, pop@technomat.hu
108 Zebra documentation, IDZebra::Session, IDZebra::ResultSet manpages.