projects
/
idzebra-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update Perl internals so that it matches the current Zebra API.
[idzebra-moved-to-github.git]
/
perl
/
lib
/
IDZebra
/
Resultset.pm
diff --git
a/perl/lib/IDZebra/Resultset.pm
b/perl/lib/IDZebra/Resultset.pm
index
28db014
..
253bba1
100644
(file)
--- a/
perl/lib/IDZebra/Resultset.pm
+++ b/
perl/lib/IDZebra/Resultset.pm
@@
-1,4
+1,4
@@
-# $Id: Resultset.pm,v 1.10 2003-07-26 16:27:46 pop Exp $
+# $Id: Resultset.pm,v 1.11 2004-07-28 08:15:46 adam Exp $
#
# Zebra perl API header
# =============================================================================
#
# Zebra perl API header
# =============================================================================
@@
-12,7
+12,7
@@
BEGIN {
use IDZebra::Logger qw(:flags :calls);
use Scalar::Util qw(weaken);
use Carp;
use IDZebra::Logger qw(:flags :calls);
use Scalar::Util qw(weaken);
use Carp;
- our $VERSION = do { my @r = (q$Revision: 1.10 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
+ our $VERSION = do { my @r = (q$Revision: 1.11 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
our @ISA = qw(IDZebra::Logger);
}
our @ISA = qw(IDZebra::Logger);
}
@@
-131,6
+131,8
@@
sub records {
my $class = $args{class} ? $args{class} : '';
my $class = $args{class} ? $args{class} : '';
+ # ADAM: Reset before we use it (not after)
+ IDZebra::odr_reset($self->{odr_stream});
my $ro = IDZebra::RetrievalObj->new();
IDZebra::records_retrieve($self->{session}{zh},
my $ro = IDZebra::RetrievalObj->new();
IDZebra::records_retrieve($self->{session}{zh},
@@
-155,8
+157,6
@@
sub records {
}
}
}
}
- IDZebra::odr_reset($self->{odr_stream});
-
return (@res);
}
return (@res);
}